ALTER TABLE MGOST_ORDENES_SERVICIOS
    ADD OBSERVACIONES1 MEMO,
    ADD OBSERVACIONES_MECANICO1 MEMO,
    ADD OBSERVACIONES_TRABAJO1 MEMO;


SET TERM ^ ;

CREATE OR ALTER PROCEDURE mgost_correccion1 
returns (
    observaciones varchar(800),
    otrabajo varchar(800),
    omecanico varchar(800),
    orden_servicio_id integer)
as
BEGIN
  /* PROCEDURE TEXT */
  FOR  SELECT OBSERVACIONES,OBSERVACIONES_TRABAJO,OBSERVACIONES_MECANICO, ORDEN_SERVICIO_ID
       FROM MGOST_ORDENES_SERVICIOS A
       INTO OBSERVACIONES, OTRABAJO, OMECANICO, ORDEN_SERVICIO_ID
  DO BEGIN

      UPDATE MGOST_ORDENES_SERVICIOS
      SET OBSERVACIONES1 = :OBSERVACIONES,
      OBSERVACIONES_TRABAJO1 = :OTRABAJO,
      OBSERVACIONES_MECANICO1 = :OMECANICO
      WHERE ORDEN_SERVICIO_ID =  :ORDEN_SERVICIO_ID;


  SUSPEND;
  END
END
^

SET TERM ; ^






