FiveTech Software tech support forums

... cClieCiu }, ;
{ "direccion" , cClieDir }, ;
{ "telefonos" , cClieTel }, ;
{ "num_pres" , nPresNum }, ; /*datos del prestamo*/
{ "importe" , nImporte }, ;
{ "interes" , nInteres }, ;
{ "cuotas" , nCuotas }, ;
{ "modalidad_pago", nModalidad }, ;
{ "valor_cuota" , nValorCuota }, ;
{ "total ...

... cClieCiu }, ;
{ "direccion" , cClieDir }, ;
{ "telefonos" , cClieTel }, ;
{ "num_pres" , nPresNum }, ; /*datos del prestamo*/
{ "importe" , nImporte }, ;
{ "interes" , nInteres }, ;
{ "cuotas" , nCuotas }, ;
{ "modalidad_pago", nModalidad }, ;
{ "valor_cuota" , nValorCuota }, ;
{ "total ...

... 9999999";
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 ...

... anda que a estas alturas!!!

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 mi propia funcion de ...

El indice se construye así

// "Importe",;

( dbfFacCliT )->( ordCondSet( "!Deleted()", {|| !Deleted() }, , , , , , , , , , , .t. ) )
( dbfFacCliT )->( ordCreate( cPath + "FACCLIP.CDX", "nImporte", "nImporte", {|| Field->nImporte }, ) )

Saludos

... Refresh()


Hola 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 ...

... Pathwork + "\" + 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 ...

... GetPvProfStr("config","Firma2","",cIniFile);
+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))
local nCoop ...

... 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 ...

... DATA If( BALA->totalgrupo <> 0 , BALA->totalgrupo,;
If( BALA->totalsgrup <> 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

... y viendo asi rapido 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 BALA->importe ...

... 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í ...

... Funcion ... : NumLetra
// Descripción : Convierte número a letras (español)
// Autor ......: Valdenebro 2005
// Parámetros .:
// nImporte Importe a convertir a letras
// cMoneda Moneda: Por defecto Euros.- Sin moneda ''
// lMayuscula letras y monedas en mayúsculas: defecto .f ...

... 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 ...