{
        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