Contador de cuotas!!!!! Ayudenme por favor
Publicado por Luis (22 intervenciones) el 09/09/2009 21:48:07
Hola amigos tengo un drama y no puedo hacer que me cuente el contador los numeros de cuotas que le asigono la fecha me sale de forma exelente. Pero a la hora de contar el numero de cuotas me tira todo cero no se mas que hacer. aqui les dejo la sintaxis de como esta estructurado
Saludos
TxtFec_venta= DATE()+30
nCuota = 1
nMeses = thisform.txtnumcuota.value &&Los meses que quieres desplegar
*- Separo por bloques la fecha
nMes = MONTH(txtFec_venta)
nDia = DAY(txtFec_venta)
nAno = YEAR(txtFec_venta)
nDiaf = DAY(txtFec_venta)
DO WHILE NMeses >= nCuota
*-Armo la fecha
fec_cuo = ctod(PADL(nDia,2,"0")+"/"+PADL(nMes,2,"0")+"/"+PADL(nAno,4,"0"))
?fec_cuo
select cuotatemporal
append blank
rlock()
replace vto with fec_cuo
replace ncuota with ncuota
replace numpagare with npagare
replace importe with totalapagar
replace fec_venta with fecventa
replace numorden with nfactura
flush
unlock all
select ctacte
nCuota = nCuota + 1
if nMes = 12
nMes = 1
else
nMes = MONTH(fec_cuo) + 1
endif
** Calcula ultimo dia del Mes ** flush
unlock all
select ctacte
Tufecha = ctod("01"+"/"+PADL(nMes,2,"0")+"/"+PADL(nAno,4,"0"))
nDiaf = DAY(txtFec_venta)
do case
case nDiaf > 28 and nMes = 2
nDia = 28
case nDiaf > 30 and nMes <> 2
nDia = DAY(gomonth(TuFecha - DAY(TuFecha) + 1, 1 )-1) &&Ultimo Dia
otherwise
nDia = nDiaf
endcase
*- Sumo si fuera otro año
nAno = YEAR(fec_cuo)
nAno = iif(nMes=1,nAno + 1,nAno)
ENDDO
Saludos
TxtFec_venta= DATE()+30
nCuota = 1
nMeses = thisform.txtnumcuota.value &&Los meses que quieres desplegar
*- Separo por bloques la fecha
nMes = MONTH(txtFec_venta)
nDia = DAY(txtFec_venta)
nAno = YEAR(txtFec_venta)
nDiaf = DAY(txtFec_venta)
DO WHILE NMeses >= nCuota
*-Armo la fecha
fec_cuo = ctod(PADL(nDia,2,"0")+"/"+PADL(nMes,2,"0")+"/"+PADL(nAno,4,"0"))
?fec_cuo
select cuotatemporal
append blank
rlock()
replace vto with fec_cuo
replace ncuota with ncuota
replace numpagare with npagare
replace importe with totalapagar
replace fec_venta with fecventa
replace numorden with nfactura
flush
unlock all
select ctacte
nCuota = nCuota + 1
if nMes = 12
nMes = 1
else
nMes = MONTH(fec_cuo) + 1
endif
** Calcula ultimo dia del Mes ** flush
unlock all
select ctacte
Tufecha = ctod("01"+"/"+PADL(nMes,2,"0")+"/"+PADL(nAno,4,"0"))
nDiaf = DAY(txtFec_venta)
do case
case nDiaf > 28 and nMes = 2
nDia = 28
case nDiaf > 30 and nMes <> 2
nDia = DAY(gomonth(TuFecha - DAY(TuFecha) + 1, 1 )-1) &&Ultimo Dia
otherwise
nDia = nDiaf
endcase
*- Sumo si fuera otro año
nAno = YEAR(fec_cuo)
nAno = iif(nMes=1,nAno + 1,nAno)
ENDDO
Valora esta pregunta
0