{
==============================================================================
 PROGRAMA          : COMNCS000
 OBJETIVO          : Menu de Consultas del 
                     Sistema de Compras 
 PROGRAMADOR       : JUAN SOTO              
 FECHA REALIZACION : AGOSTO 1997     
 DIRECTOR PROYECTO : JOSE ALFREDO PAULINO
==============================================================================
}

GLOBALS "coprgb000.4gl"
DEFINE nombre_mon CHAR(30),
       simb_mon CHAR(4),
       nom_via CHAR(10)
MAIN
  DEFER INTERRUPT
  CALL comncs000()
END MAIN
FUNCTION comncs000()
   DEFINE p_user CHAR(9)
   DEFINE luz CHAR(5)
OPTIONS
   PROMPT LINE 8
   CLEAR SCREEN 
   CALL pantalla() 
    DISPLAY "Consultas" AT 6,35
    DISPLAY "comncs000"                          AT 4,3 ATTRIBUTE(YELLOW)
    DISPLAY " 1-Codigos Arancelarios               coprcs002" AT 10,6
    DISPLAY " 2-Catalogo de Furgones               coprcs003" AT 11,6
    DISPLAY " 3-Forma de Embarque - Materia Prima  coprcs004" AT 12,6
    DISPLAY " 4-Suplidor - Bienes y Servicios      coprcs005" AT 13,6
    DISPLAY " 5-Ordenes por Suplidor               coprcs008" AT 14,6
    DISPLAY " 6-Ordenes De Compras                 coprcs009" AT 15,6
    DISPLAY " 7-Compra Bien Y/O Servicio           coprcs010" AT 16,6
    DISPLAY " S-Retorna Menu Anterior       "               AT 20,6 
     ATTRIBUTE(YELLOW)

LABEL vuelve:
     PROMPT "OPCION: " attribute(yellow) 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,"comncs000") RETURNING luz
           IF luz = "roja" THEN
              ERROR "NO TIENE PERMISO PARA UTILIZAR OPCION"
              GOTO vuelve
           END IF
       END IF

    CASE     
       WHEN OPT = "1"
          CALL  coprcs002()
          CLEAR SCREEN
          CALL comncs000()
       WHEN OPT = "2"
          CALL  coprcs003()
          CLEAR SCREEN
          CALL comncs000()
       WHEN OPT = "3"
          CALL  coprcs004()
          CLEAR SCREEN
          CALL comncs000()
       WHEN OPT = "4"
          CALL  coprcs005()
          CLEAR SCREEN
          CALL comncs000()
       WHEN OPT = "5"
          CALL  coprcs008()
          CLEAR SCREEN
          CALL comncs000()
       WHEN OPT = "6"
          CALL  coprcs009()
          CLEAR SCREEN
          CALL comncs000()
       WHEN OPT = "7"
          CALL  coprcs010()
          CLEAR SCREEN
          CALL comncs000()
       WHEN OPT = "S" or OPT = "s"
          RETURN
        OTHERWISE
          CALL  comncs000()
     END CASE

END FUNCTION

FUNCTION pantalla() 
    DEFINE fecha CHAR(8),
           hora char(5) 
    LET fecha = today USING "dd/mm/yy"  
    LET hora = time
    DISPLAY "E L E C T R O D O M E S T I C O S  J U V I A R   " AT 4,17
            ATTRIBUTE (REVERSE,YELLOW)
    DISPLAY fecha AT 4,70 ATTRIBUTE (YELLOW)
    DISPLAY "Sistema de Compras" AT 5,31
    DISPLAY hora AT 6,73 ATTRIBUTE(YELLOW)

    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

FUNCTION escoge()
    SELECT nom_sp INTO suplidor.nom_sp FROM cotb00001
    WHERE cod_sp     = ordenes.cod_sp AND
                 cod_sp_sec = ordenes.cod_sp_sec AND
                 status_t is null

    IF ordenes.cod_sp = 23 THEN
       SELECT descrip_term INTO pagos.descrip_term FROM cotb00024
       WHERE term_sp = ordenes.term_sp AND status_t is null
    ELSE
       SELECT descrip_ting INTO pagos.descrip_term FROM cotb00024
       WHERE term_sp = ordenes.term_sp AND status_t is null
    END IF

    LET nombre_mon = null
    LET simb_mon   = null
    IF p_programa != "CS" THEN
    SELECT a.descrip_mon,a.simbolo INTO nombre_mon,simb_mon FROM cotb00031 a
    WHERE a.cod_mon = cod_mon AND a.status_t is null
    END IF
  LET nombre_p = null
  IF ordenes.cod_pt IS NOT NULL THEN
    SELECT nom_pt INTO nombre_p FROM cotb00019
           WHERE cod_pt = ordenes.cod_pt AND
                 status_t is null
  END IF

    IF ordenes.via = "01" THEN
       LET nom_via = "MARITIMA"
    END IF
    IF ordenes.via = "02" THEN
       LET nom_via = "AEREA"
    END IF
    IF ordenes.via = "03" THEN
       LET nom_via = "TERRESTRE"
    END IF
END FUNCTION