FoxPro/Visual FoxPro - Contador de cuotas!!!!! Ayudenme por favor

 
Vista:

Contador de cuotas!!!!! Ayudenme por favor

Publicado por Luis  (22 intervenciones) el 09/09/2009 23:10:06
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
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Contador de cuotas!!!!! Ayudenme por favor

Publicado por HELDER (COUNDY) (711 intervenciones) el 10/09/2009 00:10:18
public nN_cuota
nN_cuota = thisform.txtdondeEscribesNumeroCouta.value

FOR n = 1 TO nN_cuota
append blank
replace n_cuota with nN_Couta + 1
endfor

SALUDES ESPERO FUNCIONE
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar