49 lines
1.4 KiB
Plaintext
49 lines
1.4 KiB
Plaintext
FUNCTION entraMensaje(pnumreq,xcotizacion,accion,pusuarios)
|
|
DEFINE txtmensaje VARCHAR(200),
|
|
pnumreq,xcotizacion INT,
|
|
accion CHAR(3),
|
|
pusuarios CHAR(50)
|
|
OPEN WINDOW w3 AT 10,10 WITH FORM "ccfmmt008w"
|
|
|
|
IF accion = "A" THEN
|
|
SELECT b.direccion_proyecto
|
|
INTO txtmensaje
|
|
FROM vetb00050 b
|
|
WHERE b.cotizacion_no = xcotizacion
|
|
|
|
LET accion = accion CLIPPED
|
|
INPUT txtmensaje FROM mensajes ATTRIBUTES(WITHOUT DEFAULTS)
|
|
AFTER INPUT
|
|
IF int_flag THEN
|
|
EXIT INPUT
|
|
END IF
|
|
|
|
SELECT a.num_req FROM cctb00029 a
|
|
WHERE a.num_req = pnumreq
|
|
IF STATUS = NOTFOUND THEN
|
|
|
|
INSERT INTO cctb00029 (num_req,mensaje,us_crea,fech_crea) VALUES (pnumreq,txtmensaje,pusuarios,getdate())
|
|
ELSE
|
|
UPDATE cctb00029 SET mensaje = txtmensaje,us_mod = pusuarios,fech_mod = getdate()
|
|
WHERE num_req = pnumreq
|
|
END IF
|
|
END INPUT
|
|
ELSE
|
|
|
|
SELECT a.mensaje INTO txtmensaje FROM cctb00029 a WHERE a.num_req = pnumreq
|
|
IF txtmensaje IS NULL THEN
|
|
|
|
SELECT b.direccion_proyecto
|
|
INTO txtmensaje
|
|
FROM vetb00050 b
|
|
WHERE b.cotizacion_no = xcotizacion
|
|
|
|
END IF
|
|
INPUT txtmensaje FROM mensajes ATTRIBUTES(WITHOUT DEFAULTS)
|
|
IF accion <> "V" THEN
|
|
UPDATE cctb00029 SET mensaje = txtmensaje WHERE num_req = pnumreq
|
|
END IF
|
|
END IF
|
|
INSERT INTO cctb00040 VALUES (pnumreq,getdate(),suser_sname(),txtmensaje)
|
|
CLOSE WINDOW w3
|
|
END FUNCTION |