FiveTech Software tech support forums

Code: Select all

STATIC FUNCTION BrwFac()
    LOCAL oDlg, oLbx, oSay, cSay, nPece, nIva
    LOCAL nOrder, cVar
    IF LEFT(cSel,1) == "F"
        cSay := "Consulta por número de factura"
        nOrder := 1
    ENDIF
    IF LEFT(cSel,1) == "C"
        cVar := cCliNum
        cSay := "Cliente  ---> " + cCliNum + "  " + cCliNom
        nOrder := 2
    ENDIF
    IF LEFT(cSel,1) == "V"
        cVar := cAgente
        cSay := "Vendedor ---> " + cAgente + "  " + cAgeNom
        nOrder := 3
    ENDIF
    cfac->(DBSETORDER(nOrder))
    cfac->(DBSEEK(cVar))    

    DEFINE DIALOG oDlg RESOURCE "BrwFac3" TITLE "Consulta de facturas"
      oDlg:lHelpIcon := .F.
    
    REDEFINE SAY oSay VAR cSay ID 101 OF oDlg ;
        COLOR RGB(255,0,0)

   REDEFINE LISTBOX oLbx ;
    FIELDS cfac->facnum, DTOC(cfac->fechafac), DTOC(cfac->vencfac), cfac->tip_fac, ;
             cfac->agente, cfac->clinum, TRANSFORM(cfac->impfac,"999,999,999.99"), ;
             IIF(cfac->pagototal=0," ",TRANSFORM(cfac->pagototal,"999,999,999.99")), ;
             IIF(cfac->impfac-cfac->pagototal= 0," ", ;
                  TRANSFORM(cfac->impfac-cfac->pagototal,"999,999,999.99")), ;
             cFac->estado ;
        HEAD "FACTURA","FECHA","FECVEN","TIPO","VEND","CLIENTE","IMPORTE","A CUENTA", ;
              "SALDO", "STATUS" ;
        FIELDSIZES 73, 73, 73, 73, 73, 73, 94, 94, 94, 30 ;
        ALIAS "cfac" ;
        ID 102 OF oDlg ;
        ON LEFT DBLCLICK( cFacNum := cfac->facnum, nPece := cfac->descu_2, ;
                            nIva := cfac->iva, MosFac(nPece, nIva))
    oLbx:aJustify := {.f.,.f.,.f.,.f.,.f.,.f.,.t.,.t.,.t.,.f.}

    ACTIVATE DIALOG oDlg CENTERED

RETURN NIL
 

Code: Select all

# include "ord.ch"                 // al principio del programa

STATIC FUNCTION BrwFac()
    LOCAL oDlg, oLbx, oSay, cSay, oBSal, nPece, nIva
    LOCAL nOrder
    IF LEFT(cSel,1) == "F"
        cSay := "Consulta por número de factura"
        nOrder := 1
    ENDIF
    IF LEFT(cSel,1) == "C"
        cSay := "Cliente  ---> " + cCliNum + "  " + cCliNom
        nOrder := 2
    ENDIF
    IF LEFT(cSel,1) == "V"
        cSay := "Vendedor ---> " + cAgente + "  " + cAgeNom
        nOrder := 3
    ENDIF
    cfac->(DBSETORDER(nOrder))
    IF nOrder = 2
        cfac->(ordscope(0, cCliNum))
        cfac->(ordscope(1, cCliNum))
        cfac->(DBGOTOP())
    ELSEIF nOrder = 3
        cfac->(ordscope(TOPSCOPE, cAgente))
        cfac->(ordscope(BOTTOMSCOPE, cAgente))
        cfac->(DBGOTOP())
    ENDIF

    DEFINE DIALOG oDlg RESOURCE "BrwFac3" TITLE "Consulta de facturas"
      oDlg:lHelpIcon := .F.
    
    REDEFINE SAY oSay VAR cSay ID 101 OF oDlg ;
        COLOR RGB(255,0,0)

   REDEFINE LISTBOX oLbx ;
    FIELDS cfac->facnum, DTOC(cfac->fechafac), DTOC(cfac->vencfac), cfac->tip_fac, ;
             cfac->agente, cfac->clinum, TRANSFORM(cfac->impfac,"999,999,999.99"), ;
             IIF(cfac->pagototal=0," ",TRANSFORM(cfac->pagototal,"999,999,999.99")), ;
             IIF(cfac->impfac-cfac->pagototal= 0," ", ;
                  TRANSFORM(cfac->impfac-cfac->pagototal,"999,999,999.99")), ;
             cfac->estado ;
        HEAD "FACTURA","FECHA","FECVEN","TIPO","VEND","CLIENTE","IMPORTE","A CUENTA", ;
              "SALDO", "STATUS" ;
        FIELDSIZES 73, 73, 73, 73, 73, 73, 94, 94, 94, 30 ;
        ALIAS "cfac" ;
        ID 102 OF oDlg ;
        ON LEFT DBLCLICK( cFacNum := cfac->facnum, nPece := cfac->descu_2, ;
                            nIva := cfac->iva, MosFac(nPece, nIva))
        oLbx:bKeydown := {|nKey| IIF(nKey = 13, (cFacNum := cfac->facnum, ;
                                nPece := cfac->descu_2, nIva := cfac->iva, ;
                                MosFac(nPece,nIva)),)}                              
    oLbx:aHJustify := {2,2,2,2,2,2,2,2,2,2}
        oLbx:aJustify := {2,2,2,2,2,2,1,1,1,2}
        oLbx:Set3DStyle()
        
    REDEFINE BUTTON oBSal ID 103 OF oDlg ;
        ACTION oDlg:End()
        
    ACTIVATE DIALOG oDlg CENTERED

RETURN NIL