57 lines
1.9 KiB
Plaintext
57 lines
1.9 KiB
Plaintext
{
|
|
------------------------------------------------------------------
|
|
PROGRAMA : VEPRMT104
|
|
OBJETIVO : Capturar, Modificar, Eliminar registros de la
|
|
Proyectos de Clientes
|
|
PROGRAMADOR : Victor Gomez C.
|
|
FECHA REALIZACION : Wednesday, October 03, 2001
|
|
------------------------------------------------------------------
|
|
}
|
|
GLOBALS "veprgb000.4gl"
|
|
|
|
FUNCTION veprmt106(xtipo_cliente,xsec_cliente)
|
|
DEFINE xtipo_cliente,xsec_cliente SMALLINT,
|
|
xnombre CHAR(30)
|
|
SET CONNECTION "MSSQL"
|
|
OPEN WINDOW proyecto AT 2,2 WITH FORM "vefmmt106" ATTRIBUTE (BORDER,
|
|
FORM LINE FIRST +1,COMMENT LINE LAST)
|
|
|
|
INITIALIZE proyecto.* TO NULL
|
|
|
|
SELECT * INTO proyecto.* FROM vetb00049
|
|
WHERE @tipo_cliente = xtipo_cliente AND
|
|
@sec_cliente = xsec_cliente
|
|
|
|
IF STATUS = NOTFOUND THEN
|
|
LET proyecto.tipo_cliente = xtipo_cliente
|
|
LET proyecto.sec_cliente = xsec_cliente
|
|
END IF
|
|
|
|
DISPLAY BY NAME proyecto.*
|
|
|
|
LET int_flag = false
|
|
INPUT BY NAME proyecto.nombre_proyecto THRU proyecto.direccion_proyecto WITHOUT DEFAULTS
|
|
|
|
## Verifica que el codigo no exista en la tabla de datos basicos de clientes.
|
|
## Si existe, entonces despliega los datos del registro existente.
|
|
AFTER INPUT
|
|
IF int_flag THEN
|
|
LET numero_msg = 2
|
|
CALL msg(numero_msg)
|
|
LET int_flag = FALSE
|
|
EXIT INPUT
|
|
END IF
|
|
|
|
DELETE FROM vetb00049 WHERE tipo_cliente = xtipo_cliente AND
|
|
sec_cliente = xsec_cliente
|
|
|
|
INSERT INTO vetb00049 VALUES (proyecto.tipo_cliente,proyecto.sec_cliente,
|
|
proyecto.nombre_proyecto,proyecto.direccion_proyecto,
|
|
null,suser_sname(),getdate(), null, null)
|
|
|
|
EXIT INPUT
|
|
END INPUT
|
|
CLOSE WINDOW proyecto
|
|
END FUNCTION
|
|
|