... ACTION Cliente1(oLbx,oGet2,oGet3); //F2 VALID (Cliente11(@nTicket,oGet2,oGet3,oDlg1),Libre) FONT fntArial @ 2.55, 4 GET oGet3 VAR nImporte SIZE 45, 11 OF oDlg1 PICTURE "999,999.99" COLOR CLR_BLUE FONT fntArial RIGHT ACTIVATE Dialog oDlg5 Return NIL Function Cliente1(oLbx,oGet2,oGet3) ...
... Usa StrZero(<nNúmero>) --> cNúmero Y lo debes aplicar así ( dbfFacCliT )->( ordCreate( cPath + "FACCLIP.CDX", "nImporte", "nImporte", {|| StrZero( Field->nImporte ) }, ) ) Para buscar lo mismo: dbSeek( StrZero( nNumero ) ) De hecho yo haria ...
... buenos dias , nuevamente gracias por tu rutina Jose Luis, lo adaptare a mi sistema, crei que era mas facil usar esta instruccion oBrw:bFooter := nImporte.....sin With Object. Saludos y buen dia, luego le cuento como me quedo, gusto saludarte de nuevo Jose Luis. Atte: Adrian C. C.
... #include "FileXLS.ch" FUNCTION ExpCierreXLS(dFecha) Local cAlias := SELECT() LOCAL xlsFile := "" Local aHeads := {} Local nIMPORTE := 0 // VALOR FACTURA Local nPENDIENTE := 0 // PENDIENTE Local nACUENTA := 0 // PAGOS A CUENTA Local nSALDO := 0 // SALDOS * variables de la ...
... + DTOS(dFecha)+".XLS" //donde voy a grabar el archivo excel Local oExcel Local nRow, nCol, N := 1 Local aHeads := {} * Local nIMPORTE := 0 // VALOR FACTURA Local nPENDIENTE := 0 // PENDIENTE INICIA Local nACUENTA := 0 // PAGOS A CUENTA Local nSALDO := 0 // SALDOS * oExcel ...
... +space(50)+"Administ General: "+GetPvProfStr("config","Firma3","",cIniFile) local cDueno local nImporte:=0 local nIR:=Val(GetPvProfStr("config","RetencIR","2",cIniFile)) local nAlc:=Val(GetPvProfStr("config","RetencAlc","1",cIniFile)) ...
... pongo parte del codigo de mi aplicación : FUNCTION PrintFac(lModal, oDlg) LOCAL nLin, nLinMax LOCAL oPrn, cTitulo LOCAL nSub, nDescto1, nDescto2, nImporte, nSub2, nIva, nTotal LOCAL cMone, TotLet LOCAL i, des, NumLineas LOCAL Contador1 := 0 LOCAL Contador2 := CuentaLin() STATIC nFac2 STATIC FacUti ...
... <> 0,BALA->totalsgrup,; BALA->importe ) ,; ) algo asi diretamente sobre la columna del reporte, si no, tendrias que acualizar nImporte en bStartRecord o bStartLine del reporte espero haber entendido saludos Marcelo
... es porque algun registro todos lo valores son "0". Por lo que yo pondria If BALA->importe == 0 .and. BALA->totalgrupo <> 0 nImporte := BALA->totalgrupo n := 3 ElseIf BALA->importe == 0 .and. BALA->totalsgrup <> 0 nImporte := BALA->totalsgrup n := 1 ElseIf ...
... forman la promoicón, es decir 10 / 3, digamos así: nPromo := INT(10 / 3), el resultado sera 3 luego obtienes el importe de las tres promociones nImporte := ROUND(nPromo * 20,2) esto te dará $ 60 Despues debes determinar cuantas piezas van a cobrarse fuera de promoción esto lo obtienes así nPzsSin ...
... datos...anexo mi codigo Static nCveIva function poliza2() nCveIva := 0 Define Dialogo oDlg... bla bla bla bla ..... REDEFINE GET oGetDet[06] VAR nIMPORTE ID 110 OF oDlg PICTURE "9,999,999.99" REDEFINE COMBOBOX oCbxD VAR nCVEIVA ITEMS aFile1 ID 111 OF oDlg PICTURE "9" VALID V_TASAIVA(nIMPORTE,nCVEIVA) ...