*Carga del Periodo operativo Activo
SS_PER = PERVT_GET() && Funcion me determina el Periodo Contable a Manejar
REDEFINE LISTBOX oLb1 FIELDS VOUCHER->CDLA_VC ,;
VOUCHER->NR_VC ,;
FDATE(VOUCHER->FE_VC) ,;
VOUCHER->MODSYS_VC,;
VOUCHER->CDRES_VC ,;
VOUCHER->TPMN_VC ,;
STR(VOUCHER->TPCB_VC,7,3),;
VOUCHER->GLOS_VC ;
SELECT VOUCHER->PER_VC FOR SS_JPER ;
HEADERS "Libro Aux","Nro.Voucher","Fecha","Mod.Origen","Cd.Resp","Mnd.","Tipo Cambio","Observaciones","Cuadre","May.","Use" ;
FIELDSIZES 40 ,75 ,65 ,55 ,40 , 30 ,50 ,200 ,30 ,30 ,30 ;
ON DBLCLICK {|| JWV_MANTE( "V",oDlg,oLb1,SS_JPER,oSYS_DAT)};
ID 172 OF oDlg
...............................
GASTOS->(OrdScope(0,cClave))
GASTOS->(OrdScope(1,cClave))
GASTOS->(DbGotop())
//
DEFINE DIALOG oDlg RESOURCE "GASTOS" TITLE cTitulo FONT oFont1
oDlg:lHelpIcon:=.F.
REDEFINE LISTBOX oLbx ;
FIELDS " "+DTOC(GASTOS->Fecha)+" ",;
" "+GASTOS->Codigo+" ",;
" "+GASTOS->Concepto+" ",;
" "+STR(GASTOS->Precio)+" ",;
" "+STR(GASTOS->Cantidad)+" ",;
" "+STR(GASTOS->Importe)+" ",;
" "+STR(GASTOS->IVA)+" ",;
" "+STR(GASTOS->Total)+" ",;
" "+GASTOS->Observa1+" ";
FIELDSIZES 65,30,180,75,55,75,55,65,150;
HEADERS "Fecha","Cód."),"Concepto","Precio","Cantidad",;
"Importe","I.V.A.","Total","Observaciones";
ID 200;
ON LEFT DBLCLICK ControlGastos(oLbx,"Modificar Apunte",.F.,cClave);
FONT oFont1;
OF oDlg
//
...........................................
Return to FiveWin para Harbour/xHarbour
Users browsing this forum: Google [Bot] and 68 guests