106 lines
2.6 KiB
Plaintext
106 lines
2.6 KiB
Plaintext
{
|
|
-------------------------------------------------------------------------------
|
|
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
|
|
|