{
-------------------------------------------------------------------------------
PROGRAMA           :  COPRCS002
OBJETIVO           :  Consulta Maestra de Codigos Arancelarios
PROGRAMADOR        :  JUAN SOTO                    
FECHA REALIZACION  :  Agosto, 1997
DIRECTOR PROYECTO  :  JOSE ALFREDO PAULINO
-------------------------------------------------------------------------------
}
GLOBALS "coprgb000.4gl"

FUNCTION coprcs002()
  WHENEVER ERROR CONTINUE
   CLEAR SCREEN

   OPTIONS
        FORM LINE 9,
        ERROR LINE 23,
        COMMENT LINE 21

   OPEN FORM cofmcs002 FROM "cofmcs002"
   DISPLAY FORM cofmcs002
   CALL PANTALLA()
   DISPLAY "<Esc> Continua Consulta" AT 2,3
   DISPLAY "<Delete> Cancela Operacion" AT 2,50
   DISPLAY "coprcs002" AT 4,3
   DISPLAY "Codigos Arancelarios" AT 6,30 

   LABEL volver:
   CONSTRUCT criterio ON cod_nab FROM cod_nab

        IF int_flag THEN
           LET numero_msg = 2
           CALL msg(numero_msg)
           LET int_flag = FALSE
           RETURN
        END IF

## Se seleccionan los campos que el usuario debe ver en la pantalla
   LET SELEC = "SELECT cod_nab,descrip_esp,descrip_ing ",
               " FROM cotb00005 ",
               " WHERE ",
               "status_t is null AND ",
               criterio clipped,
               " ORDER BY 1 "

        IF int_flag THEN
           LET numero_msg = 2
           CALL msg(numero_msg)
           LET int_flag = FALSE
           RETURN
        END IF

   DISPLAY "Buscando Informacion... Espere Por Favor" AT 21,2 
         ATTRIBUTE (YELLOW)

   PREPARE busca FROM selec
   DECLARE accion CURSOR FOR busca
   OPEN accion
   DISPLAY "                                        " AT 21,2 

## Busca los registros que cumplan con la condicion dada y verifica si el
## codigo arancelario existe en el catalogo de aranceles

   LET idx = 1
   FOREACH accion INTO nab[idx].*
      LET idx = idx + 1
      IF STATUS = NOTFOUND THEN
         LET numero_msg = 3
         CALL msg(numero_msg)
         SLEEP 2
         RETURN
      END IF

     CALL integridad()
         IF bandera = 1 THEN
            LET bandera = 0
            RETURN
         END IF 

   END FOREACH

   CALL set_count (idx-1)
   DISPLAY ARRAY nab TO consart.* 

## Verifica si el usuario presiono la tecla <Delete>
    IF int_flag THEN
       LET numero_msg = 2
       CALL msg(numero_msg)
       LET int_flag = false
       RETURN
    ELSE
       CLEAR FORM
       GOTO volver
    END IF

END FUNCTION