FiveTech Support Forums

DEFINE DIALOG oDlgFct SIZE 825, 670 PIXEL TRUEPIXEL RESIZABLE ICON "#8001"
....

    @ 40, 45 GET oGdoc VAR oFac:hOtros["documento"] SIZE 90, 30 PIXEL OF oDlgFct UPDATE BITMAP "Bbusc" PICTURE "@N";
            FONT oFont2 ACTION EVAL(cbDocum,.T.) VALID (EVAL(cbDocum,.F.,oFac:hOtros["documento"]),vlGdoc)
    @ 40, 45 GET oGndo VAR oFac:hOtros["nombredocumento"] SIZE 120, 30 PIXEL OF oDlgFct UPDATE FONT oFont2
    @ 40, 45 GET oGnro VAR oFac:hEncabezado["numero"] SIZE 100, 30 PIXEL OF oDlgFct UPDATE FONT oFont2 RIGHT PASSWORD

....

    @ 40, 45 SAY oSNit VAR cSNit SIZE 76, 22 PIXEL OF oDlgFct UPDATE FONT oFont1 
    @ 40, 45 GET oGnit VAR oFac:hEncabezado["nit"] SIZE 120, 22 PIXEL OF oDlgFct UPDATE FONT oFont1 PICTURE cPicTer ;
            BITMAP "Bbusc" ACTION EVAL(cbTerce,.T.) VALID (EVAL(cbTerce,.F.,oFac:hEncabezado["nit"]),vlGnit)
    @ 40, 45 GET oGdig VAR oFac:hTercero["dv"] SIZE 22, 22 PIXEL OF oDlgFct UPDATE FONT oFont1 PICTURE "@N"

...


    @ 62, 8 GROUP oGrpVe OF oDlgFct PIXEL size 350,75 FONT oFont1 PROMPT "Datos Vendedor" TRANSPARENT
    @ 40, 45 SAY oSVen VAR cSVen SIZE 70, 22 PIXEL OF oDlgFct UPDATE FONT oFont1 
    @ 40, 45 GET oGven VAR oFac:hEncabezado["idvendedor"] SIZE 120, 22 PIXEL OF oDlgFct UPDATE FONT oFont1 PICTURE cPicTer ;
            BITMAP "Bbusc" ACTION EVAL(cbVende,.T.) VALID (EVAL(cbVende,.F.,oFac:hEncabezado["idvendedor"]),vlGven)

ACTIVATE DIALOG oDlgFct CENTER VALID (MemoWrit( "facstate.txt", oDlgFct:SaveState() ),MemoWrit( "facstate_xbr.txt", oBrwItem:SaveState() ),.T.)