FoxPro/Visual FoxPro - ctacte para mauricio

   
Vista:

ctacte para mauricio

Publicado por marina (38 intervenciones) el 23/05/2009 01:15:51
RELE valimp
SELE ctacte
STORE 0 TO totrec, reg
PUBLIC valimp(10)
SELECT ctacte
SCAN for codcliente = codclientegen AND totrec <= entrega
IF BETWEEN(fecha,fechae,fechas)
totrec = totrec + debe
reg = reg + 1
valimp(reg) = compro && Guardo en matriz los comprobantes
ENDIF
ENDSCAN
asi anda perfecto mauricio desde ya gracias por tu ayuda, lo q sucede es q el vector esta limitado a 10 reg y yo no se cuantos registros de ctacte pude tener un cliente puden ser 20 0 5 o 50 imaginate q la deuda acumulada en un mes puede ser variada.

si me podes ayudar yo necesito q analizando la entrega, me diga cuantos registros tengo q crear y guardar en el vector para no tener un vector fijo. Desde ya gracias y saludos
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

Ctacte para Mauricio

Publicado por Mauricio (1368 intervenciones) el 23/05/2009 17:38:08
De acuerdo Marina, aca esta el codigo ya probado:
SELE ctacte
STORE 0 TO totrec, reg, s
SCAN for codcliente = codclientegen
IF BETWEEN(fecha,fechae,fechas)
totrec = totrec + debe
s = s + 1
IF totrec > entrega
EXIT
ENDIF
ENDIF
ENDSCAN
PUBLIC valimp(s)
* Inicia el proceso de guardar en vector los comprobantes !!!!!!!
GO TOP
SCAN FOR codcliente = codclientegen
IF BETWEEN(fecha,fechae,fechas) AND reg < s
totrec = totrec + debe
reg = reg + 1
valimp(reg) = compro
ELSE
EXIT
ENDIF
ENDSCAN
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