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