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 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
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
Imágen de perfil de Mauricio

Contador de cuotas!!!!! Ayudenme por favor

Publicado por Mauricio (1367 intervenciones) el 09/09/2009 22:42:40
Prueba esto, lo que esta con comentarios espero que tu lo resuelvas!!!!
*--- Prueba de cuotas LWP
CLOSE TABLE ALL
USE cuotas IN 0
SELE cuotas
fecha_venta = CTOD('05/01/2009')
fecha_cuota = fecha_venta
tot_venta = 300
nMeses = 6
vcuota = tot_venta / nmeses
FOR I = 1 TO nmeses
fecha_cuota = fecha_cuota + 30
APPEND BLANK
REPLACE fec_cuo WITH fecha_cuota, ncuota WITH I, val_cuo WITH vcuota
*
* 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"))
*
* Diaf = 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)
ENDFOR
RETURN
*---
*--- Crear tabla de Cuotas
*CREATE TABLE cuotas ;
* (fec_cuo D, ncuota N(3), pagare C(5), val_cuo N(11,2) )
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

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

Publicado por HELDER (COUNDY) (710 intervenciones) el 10/09/2009 00:11:56
RESPUESTA ARRIBA
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