
CREATE trigger ttbremessa_item_processado_b7u for tbremessa_item_processado
active before update position 7
AS
declare variable taloes_produzidos integer;
begin

  if(old.programacao_esteira <> new.programacao_esteira AND OLD.programacao_esteira IS NOT NULL)then
  begin
     taloes_produzidos = coalesce(
       (select
            count(i.pedido_item_controle)
        from tbpedido_item_processado i
          where i.remessa = new.remessa
            and i.remessa_acumulado_controle = new.controle
            and i.esteira_producao is not null),0);

     if(:taloes_produzidos > 0)then
     begin
        exception "..." 'TALAO EM PRODUCAO OU PRODUZIDO, OPERACAO CANCELADA.';
     end

  end
end;

COMMENT ON TRIGGER TTBREMESSA_ITEM_PROCESSADO_B7U IS 'bloqueia alteracao do GP caso um dos taloes detalhado ja tenha sido produzido';

