FoxPro/Visual FoxPro - ayuda con venta credito

Muy buenas a todos quiero pedirles que me ayuden es que estoy bloqueado con el tema de ventas a crédito, le comento mi situación, tengo una factura venta a contado y a crédito, cuando es a crédito (30, 30-60, 30-60-90, días) debe generar las cuotas a pagar así como las respectivas fechas a pagar, bueno yo en mi factura actualmente cuando la venta es a crédito me habilita un text y cargo la fecha de vencimiento(Ej. 30 días) y el me genera la fecha de vencimiento pero ahora mi cliente me dice que va a trabajar con el ejemplo anterior que le di(a 30 días, 30-60 días, 30-60-90 días) y aquí es mi problema pues estoy bloqueado, yo tengo una tabla Cta. a cobrar donde guardo las ventas a crédito con estos campos nrocuenta,nrofactura,codcliente,fechavencimiento,monto,estado,debe,haber., ahora como hago para que si la venta crédito fue a 30-60 días me aparezca de la forma que mi cliente me pide Ej.:

Venta crédito a 30-60 días, monto=1000, fecha venta 11/12/2009
Nrocuenta nrofactura codcliente fechavencimiento monto estado debe haber

1 1 2 12/12/2009 500 p 500 0

2 1 2 12/01/2010 500 p 500 0

Aca te dejo este código para iterar cada dia de vencimiento:

Fecha_Venta = ctod("11/12/2009")
VaribleCredito = "30-60-90"

*--Concatenar para estandarizar el delimitador de dias de venciemintos
VaribleCredito = "-"+VaribleCredito+"-" && ahora VaribleCredito ="-30-60-90-"

*--Fijate que cada dia esta delimitado entre el caracter "-"

*-Usando la función Strextract para extrar cada vencimiento

cant_cuotas = OCCURS("-","-30-60-90-") -1

mto_cuota = 1000/cant_cuotas

FOR i = 1 TO cant_cuotas
vence = STREXTRACT("-30-60-90-","-","-",i)
? Fecha_Venta + VAL(vence)
NEXT

Saludos,
Luis Martínez
Venezuela

Sustituye el literal "-30-60-90-" por VaribleCredito

OCCURS("-","-30-60-90-") -1
vence = STREXTRACT("-30-60-90-","-","-",i)

por

OCCURS("-",VaribleCredito ) -1
vence = STREXTRACT(VaribleCredito ,"-","-",i)

Mario, aca un ejemplo que te puede servir!!!!!!!!
*
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
ENDFOR
RETURN
*---
*--- Crear tabla de Cuotas
*CREATE TABLE cuotas ;
*(fec_cuo D, ncuota N(3), pagare C(5), val_cuo N(11,2) )

gracias a todos estare realizando las modificaciones y espero que me funcione pero cualquier cosa estare preguntandoles de nuevo. gracias