Informes
Hola experto necesito crear un informe por ejemplo tengo tres tablas en la primera tengo a mis clientes y la segunda sus aportes las tercera tengo esta estructura cod_cli enero, febrero, marzo, abril, etc. Entonces guardo en la tercera tabla solo los cod_cli de esta manera.
Nota:cada vez que registros sus aportes de los clientes tengo un campo que guarda el mes
SELEC clientes
GO top
DO while ! Eof()
SCATTER memvar && Copia todos los campos de la tabla
SELEC meses
APPEND blank
**GATHER memvar&& Pega lo copiado en la tabla especificada
replace meses.cod_cli with clientes.cod_cli
SELEC clientes
Skip
enddo
Todo muy bien luego tengo este segundo código el problema es que no copia nada en febrero y como podría hacer para especificar el año por ejemplo si quisiera los meses del 2008
SELEC meses
GO top
DO while ! Eof()
SELEC aportes
SET order to cod_cli && El indice del codigo que evaluara
SEEK meses.cod_cli
IF found()
IF aportes.ap_mes = 1
SELEC meses
REPLACE enero with aportes.monto
IF aportes.ap_mes = 2
SELEC meses
REPLACE febrero with aportes.monto
Endif
Endif
Endif
seleC meses
Skip
enddo
Gracias.
Nota:cada vez que registros sus aportes de los clientes tengo un campo que guarda el mes
SELEC clientes
GO top
DO while ! Eof()
SCATTER memvar && Copia todos los campos de la tabla
SELEC meses
APPEND blank
**GATHER memvar&& Pega lo copiado en la tabla especificada
replace meses.cod_cli with clientes.cod_cli
SELEC clientes
Skip
enddo
Todo muy bien luego tengo este segundo código el problema es que no copia nada en febrero y como podría hacer para especificar el año por ejemplo si quisiera los meses del 2008
SELEC meses
GO top
DO while ! Eof()
SELEC aportes
SET order to cod_cli && El indice del codigo que evaluara
SEEK meses.cod_cli
IF found()
IF aportes.ap_mes = 1
SELEC meses
REPLACE enero with aportes.monto
IF aportes.ap_mes = 2
SELEC meses
REPLACE febrero with aportes.monto
Endif
Endif
Endif
seleC meses
Skip
enddo
Gracias.
1 Respuesta
Respuesta de ingesoft
1