Hola como meter este codigo en una funcion
Publicado por nick (16 intervenciones) el 17/10/2006 21:02:20
hola como haria sto en una funcion o un evento..gracias
choose case ls_mes
case '01'
SELECT mm_enero,TDOC_CODI INTO :ld_monto,:ls_tipodoc
FROM mensualidad_meses
WHERE Alumn_codi =:sle_codigo.text
USING SQLCA;
COMMIT USING SQLCA;
case '02'
SELECT mm_febrero,TDOC_CODI INTO :ld_monto,:ls_tipodoc
FROM mensualidad_meses
WHERE Alumn_codi =:sle_codigo.text
USING SQLCA;
COMMIT USING SQLCA;
choose case ls_mes
case '01'
SELECT mm_enero,TDOC_CODI INTO :ld_monto,:ls_tipodoc
FROM mensualidad_meses
WHERE Alumn_codi =:sle_codigo.text
USING SQLCA;
COMMIT USING SQLCA;
case '02'
SELECT mm_febrero,TDOC_CODI INTO :ld_monto,:ls_tipodoc
FROM mensualidad_meses
WHERE Alumn_codi =:sle_codigo.text
USING SQLCA;
COMMIT USING SQLCA;
Valora esta pregunta
0