153 lines
4.6 KiB
Plaintext
153 lines
4.6 KiB
Plaintext
{
|
|
==============================================================================
|
|
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
|