59 lines
1.9 KiB
Plaintext
59 lines
1.9 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
|
|
SELECT UNIQUE a.num_req FROM cctb00029 a WHERE a.num_req = pnumreq
|
|
IF STATUS <> NOTFOUND THEN
|
|
UPDATE cctb00029 SET mensaje = txtmensaje,
|
|
us_mod = suser_sname(),
|
|
fech_mod = getdate()
|
|
WHERE num_req = pnumreq
|
|
ELSE
|
|
INSERT INTO cctb00029 (num_req,mensaje,us_crea,fech_crea)
|
|
VALUES (pnumreq,txtmensaje,suser_sname(),getdate())
|
|
END IF
|
|
# END IF
|
|
END IF
|
|
INSERT INTO cctb00040 VALUES (pnumreq,getdate(),suser_sname(),txtmensaje)
|
|
CLOSE WINDOW w3
|
|
END FUNCTION |