{
-------------------------------------------------------------------------------
PROGRAMA           :  COPRCS003
OBJETIVO           :  Catalogo de Furgones
PROGRAMADOR        :  JUAN SOTO                  
FECHA REALIZACION  :  Agosto 1997    
DIRECTOR PROYECTO  :  JOSE ALFREDO PAULINO
-------------------------------------------------------------------------------
}
GLOBALS "coprgb000.4gl"

FUNCTION coprcs003()
  WHENEVER ERROR CONTINUE
   CLEAR SCREEN

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

   OPEN FORM cofmcs003 FROM "cofmcs003"
   DISPLAY FORM cofmcs003
   CALL PANTALLA()
   DISPLAY "<Esc> Consulta de Registro" AT 2,3
   DISPLAY "<Delete> Cancela Operacion" AT 2,50
   DISPLAY "coprcs003" AT 4,3
   DISPLAY "Catalogo de Furgones" AT 6,30 

   LABEL volver:
   CONSTRUCT criterio ON cod_furg FROM cod_furg

        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_furg,descrip_furg ",
               " FROM cotb00003 ",
               " 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
## furgon existe en el catalogo de furfones

   LET idx = 1
   FOREACH accion INTO furgon[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 

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

   END FOREACH

   CALL set_count (idx-1)
   DISPLAY ARRAY furgon 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