89 lines
2.3 KiB
Plaintext
89 lines
2.3 KiB
Plaintext
{
|
|
PROGRAMA :GEPRCS050
|
|
OBJETIVO : BRINDAR VARIOS INFORMES GENRENCIALES
|
|
DESARROLLADO POR ; ING. JUAN SOTO
|
|
FECHA DESARROLLO : FEBRERO 2,2022
|
|
}
|
|
|
|
DEFINE centra RECORD
|
|
tipo_reporte STRING,
|
|
ano,mes SMALLINT
|
|
END RECORD,
|
|
pperfil,pprinter1,pprinter2,ckprinter,usuario,clave,proceso,pprograma,accesso STRING,
|
|
ano,mes ui.ComboBox
|
|
|
|
MAIN
|
|
|
|
LABEL repetir:
|
|
CALL autentificacion() RETURNING pperfil,pprinter1,pprinter2,ckprinter,usuario,clave
|
|
IF int_flag THEN
|
|
LET int_flag = FALSE
|
|
EXIT PROGRAM
|
|
END IF
|
|
LET pprograma = 'geprcs050'
|
|
CALL seg000(usuario,pperfil,pprograma) RETURNING accesso
|
|
IF accesso = "SI" THEN
|
|
CALL geprcs50()
|
|
ELSE
|
|
CALL fgl_winmessage("INFO", "NO TIENE PERMISOS PARA UTILIZAR OPCION","INFO")
|
|
GOTO repetir
|
|
END IF
|
|
END MAIN
|
|
FUNCTION geprcs50()
|
|
|
|
OPEN WINDOW w1 WITH FORM "gefmcs050"
|
|
|
|
INPUT BY NAME centra.*
|
|
BEFORE INPUT
|
|
CALL cano()
|
|
CALL cmes()
|
|
|
|
DISPLAY "..\\IMAGENES\\LOGO1.PNG" TO logo
|
|
LET centra.ano = YEAR(TODAY)
|
|
LET centra.mes = MONTH(TODAY)
|
|
|
|
DISPLAY BY NAME centra.*
|
|
AFTER INPUT
|
|
IF int_flag THEN
|
|
EXIT input
|
|
END IF
|
|
LET centra.tipo_reporte = 'VENTAS DEL MES'
|
|
LET proceso = 'EN PROCESO....'
|
|
DISPLAY BY NAME proceso
|
|
CALL geprcs50_1(centra.*)
|
|
LET proceso = 'PROCESO TERMINADO...'
|
|
DISPLAY BY NAME proceso
|
|
END INPUT
|
|
CLOSE WINDOW w1
|
|
END FUNCTION
|
|
FUNCTION cano()
|
|
DEFINE pano SMALLINT
|
|
LET ano =ui.combobox.forname("formonly.ano")
|
|
CALL ano.clear()
|
|
|
|
DECLARE buscaano CURSOR FOR
|
|
SELECT DISTINCT a.ano FROM prdtable a
|
|
ORDER BY a.ano DESC
|
|
|
|
FOREACH buscaano INTO pano
|
|
CALL ano.addItem(pano,pano)
|
|
|
|
END FOREACH
|
|
END FUNCTION
|
|
FUNCTION cmes()
|
|
DEFINE pmes SMALLINT,
|
|
knombre VARCHAR(60)
|
|
|
|
LET mes = ui.ComboBox.forName('formonly.mes')
|
|
|
|
DECLARE buscames CURSOR FOR
|
|
SELECT a.mes,a.descrip FROM mestable a
|
|
ORDER BY a.mes
|
|
|
|
FOREACH buscames INTO pmes,knombre
|
|
CALL mes.addItem(pmes,knombre)
|
|
|
|
END FOREACH
|
|
|
|
|
|
END FUNCTION |