prueba esta rutina amigo te hace el calculo de ventas en cuotas y te saca la fecha de vencimiento, la aporto un amigo del foro y anda de 10.
saludos
CLEAR
SET CENTURY on
SET DATE TO BRITISH
TxtFec_Enga = DATE()
nCuota = 1
nMeses = 6 &&Los meses que quieres desplegar
*- Separo por bloques la fecha
nMes = MONTH(txtFec_enga)
nDia = DAY(txtFec_enga)
nAno = YEAR(txtFec_enga)
nDiaf = DAY(txtFec_enga)
DO WHILE NMeses >= nCuota
*-Armo la fecha
fec_cuo = ctod(PADL(nDia,2,"0")+"/"+PADL(nMes,2,"0")+"/"+PADL(nAno,4,"0"))
?fec_cuo
nCuota = nCuota + 1
if nMes = 12
nMes = 1
else
nMes = MONTH(fec_cuo) + 1
endif
** Calcula ultimo dia del Mes **
Tufecha = ctod("01"+"/"+PADL(nMes,2,"0")+"/"+PADL(nAno,4,"0"))
nDiaf = DAY(txtFec_enga)
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
