{
-------------------------------------------------------------------------------
 PROGRAMA          : COMNRP000
 OBJETIVO          : Menu de Reportes del Sistema de Compras.
 PROGRAMADOR       : JUAN SOTO              
 FECHA REALIZACION : AGOSTO 1997         
 DIRECTOR PROYECTO : JOSE ALFREDO PAULINO
-------------------------------------------------------------------------------
}

GLOBALS "coprgb000.4gl"
MAIN
 DEFER INTERRUPT
 SELECT * INTO p_companias.* FROM companias
 CALL comnrp000() 
END MAIN
FUNCTION comnrp000() 
   DEFINE p_user CHAR(9)
   DEFINE luz CHAR(5)

OPTIONS
   PROMPT LINE 8
   CLEAR SCREEN 
   CALL pantalla()
    DISPLAY "Reportes" AT 6,36
    DISPLAY "comnrp000"                          AT 4,3 ATTRIBUTE(blue)
    DISPLAY " 1-Catalogo de Suplidores      coprrp001" AT 10,1 
    DISPLAY " 2-Cronologico de Ordenes      coprrp004" AT 11,1 
   #DISPLAY " 3-Relacion Pais - Puerto      coprrp009" AT 12,1
   #DISPLAY " 4-Poliza de Seguros           coprrp014" AT 13,1
   #DISPLAY " 5-Codigos Arancelarios        coprrp015" AT 14,1 
   #DISPLAY " 6-Ordenes Compras Pendientes  coprrp018" AT 15,1
    DISPLAY " 3-Validacion Ordenes          coprrp019" AT 12,1 
   #DISPLAY " 8-Maestra de Paises         coprrp021" AT 10,42
   #DISPLAY " 9-Maestra Companias Aseg.   coprrp022" AT 11,42
    DISPLAY " 4-Compra Bien Y/O Servicio    coprrp025" AT 13,1
   #DISPLAY "11-Orden Compra Vs Suplidor  coprrp026" AT 13,12
   #DISPLAY "12-Ordenadas Vs Recibidas    coprrp028" AT 14,12
    DISPLAY " 5-Compras Por Suplidor        coprrp029" AT 14,1
    
    DISPLAY " S- Retorna Menu Anterior "  AT 22,27  ATTRIBUTE(blue)

LABEL vuelve:
    PROMPT "OPCION: " attribute(blue) FOR OPT
    LET OPT = UPSHIFT(OPT) clipped

       IF opt != "S" THEN
           SELECT unique usuario INTO p_user FROM seg0001
           WHERE usuario = user
           CALL seg000(p_user,opt,"comnrp000") RETURNING luz
           IF luz = "roja" THEN
              ERROR "NO TIENE PERMISO PARA UTILIZAR OPCION"
              GOTO vuelve
           END IF
       END IF

    CASE
       WHEN OPT =  "1" 
           CALL coprrp001()
           CLEAR SCREEN
           CALL comnrp000()
       WHEN OPT =  "2" 
           CALL coprrp004()
           CLEAR SCREEN
           CALL comnrp000()
       WHEN OPT =  "3"           
           CALL coprrp019()
           CLEAR SCREEN
           CALL comnrp000()
       WHEN OPT =  "4"           
           CALL coprrp025()
           CLEAR SCREEN
           CALL comnrp000()
       WHEN OPT =  "5"           
           CALL coprrp029()
           CLEAR SCREEN
           CALL comnrp000()
       {WHEN OPT =  "6"           
           CALL coprrp018()
           CLEAR SCREEN
           CALL comnrp000()
       WHEN OPT =  "7"           
           CALL coprrp019()
           CLEAR SCREEN
           CALL comnrp000()
       WHEN OPT =  "8"           
           CALL coprrp021()  
           CLEAR SCREEN
           CALL comnrp000()
       WHEN OPT =  "9"           
           CALL coprrp022()  
           CLEAR SCREEN
           CALL comnrp000()
       WHEN OPT =  "10"           
           CALL coprrp025()   
           CLEAR SCREEN
           CALL comnrp000()
       WHEN OPT =  "11"           
           CALL coprrp026()   
           CLEAR SCREEN
           CALL comnrp000()
       WHEN OPT =  "12"           
           CALL coprrp028()   
           CLEAR SCREEN
           CALL comnrp000()
       WHEN OPT =  "13"           
           CALL coprrp029()   
           CLEAR SCREEN
           CALL comnrp000()}
       WHEN OPT = "S"
          CLEAR SCREEN
          RETURN           
     END CASE

END FUNCTION

FUNCTION pantalla() 
    DEFINE fecha CHAR(8),
           hora char(5) 
    LET fecha = today USING "dd/mm/yy"  
    LET hora = time
    LET lj = (80 - LENGTH(p_companias.nombre CLIPPED))/2
    DISPLAY p_companias.nombre CLIPPED AT 4,lj ATTRIBUTE (blue)
    DISPLAY fecha AT 4,70 ATTRIBUTE (blue)
    DISPLAY "Sistema de Compras" AT 5,31
    DISPLAY hora AT 6,73 ATTRIBUTE(blue)

    CALL fgl_drawbox(5,79,3,1)
    CALL fgl_drawbox(1,79,22,1)
END FUNCTION  

FUNCTION integridad()
         IF sqlca.sqlcode <  0 THEN
            LET numero_msg = sqlca.sqlcode
            CALL msg(numero_msg)
            DISPLAY numero_msg AT 23,70
            LET bandera = 1    
            LET STATUS = 0
            SLEEP 2
            RETURN
        END IF
END FUNCTION