Leandro,
Quedo a la espera de las instrucciones de Rao y te enviamos las libs modificadas cuanto antes
gracias
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.)
Return to FiveWin for Harbour/xHarbour
Users browsing this forum: Google [Bot] and 42 guests