FoxPro/Visual FoxPro - calcular cuota

   
Vista:

calcular cuota

Publicado por Sebastian (253 intervenciones) el 19/03/2009 00:22:51
Hola programadores tengo este codigo pero no esta funcionando correctamente necesito saber que el socio no este adeudando en sus aportes

SELECT socios
fecha=socios.soc_ins
mes = MONTH (socios.soc_ins)
SELECT aportes
SET FILTER TO
SET FILTER TO (aportes.soc_cod = soc_cod)
DO WHILE ((MONTH (aportes.apo_fec)) = (mes + 1)) and (eof ())
GO bottom
IF mes = 12
mes = 1
ELSE
mes = mes + 1
ENDIF
ENDDO
IF (MONTH (aportes.apo_fec)) <> (mes + 1)
thisform.text11.value="Deudor"
wait"El socio tiene Cuotas pendiente"window nowait
thisform.refresh
ELSE
IF ((MONTH (aportes.apo_fec)) + 1) = MONTH (date())
thisform.text11.value="Activo"
ELSE
thisform.text11.value="Deudor"
wait"El socio tiene Cuotas pendiente"window nowait
ENDIF
ENDIF
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:calcular cuota

Publicado por Mario (199 intervenciones) el 19/03/2009 13:59:46
Tratá de desterrar el SET FILTER de tus aplicaciones, todo va a funcionar mejor y más rápido.
Es preferible armar un cursor con SELECT(SQL) o hacer un SCAN FOR.
Yendo al punto: no te conviene crear un índice sobre aportes.apo_fec y buscar lo que necesitás?
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