ALTER TABLE TBFICHA_TEMPO
    ADD PERDA00 NUMERIC(18,8) DEFAULT 0,
    ADD PERDA01 NUMERIC(18,8) DEFAULT 0,
    ADD PERDA02 NUMERIC(18,8) DEFAULT 0,
    ADD PERDA03 NUMERIC(18,8) DEFAULT 0,
    ADD PERDA04 NUMERIC(18,8) DEFAULT 0,
    ADD PERDA05 NUMERIC(18,8) DEFAULT 0,
    ADD PERDA06 NUMERIC(18,8) DEFAULT 0,
    ADD PERDA07 NUMERIC(18,8) DEFAULT 0,
    ADD PERDA08 NUMERIC(18,8) DEFAULT 0,
    ADD PERDA09 NUMERIC(18,8) DEFAULT 0,
    ADD PERDA10 NUMERIC(18,8) DEFAULT 0,
    ADD PERDA11 NUMERIC(18,8) DEFAULT 0,
    ADD PERDA12 NUMERIC(18,8) DEFAULT 0,
    ADD PERDA13 NUMERIC(18,8) DEFAULT 0,
    ADD PERDA14 NUMERIC(18,8) DEFAULT 0,
    ADD PERDA15 NUMERIC(18,8) DEFAULT 0,
    ADD PERDA16 NUMERIC(18,8) DEFAULT 0,
    ADD PERDA17 NUMERIC(18,8) DEFAULT 0,
    ADD PERDA18 NUMERIC(18,8) DEFAULT 0,
    ADD PERDA19 NUMERIC(18,8) DEFAULT 0,
    ADD PERDA20 NUMERIC(18,8) DEFAULT 0;

COMMENT ON COLUMN TBFICHA_TEMPO.PERDA00 IS
'percentual de perdas por tamanho';

ALTER TABLE TBCONTACONTABIL
    ADD TIPO_DESPESA INTEGER DEFAULT 0;
	
	
ALTER TABLE TBCUSTO_PADRAO_ITEM
    ADD FRETE INTEGER;

COMMENT ON COLUMN TBCUSTO_PADRAO_ITEM.FRETE IS
'0 - nao he percentual de frete
1 - he um frete';

CREATE OR ALTER trigger ttbcusto_padrao_item_b01u for tbcusto_padrao_item
active before update position 0
AS
DECLARE VARIABLE HISTORICO VARCHAR(500);
begin

   HISTORICO = '';

   if(new.descricao <> old.descricao)then
   begin
      HISTORICO = 'Item '||old.id||' Descrição: ' ||old.descricao ||' -> '|| new.descricao;
   end

   if(new.percentual <> old.percentual)then
   begin
      HISTORICO = iif(historico <> '',  HISTORICO || ', ', '') || 'Item '||old.id||' Percentual: ' ||old.percentual ||' -> '|| new.percentual;
   end

   if(new.fator <> old.fator)then
   begin
      HISTORICO = iif(historico <> '',  HISTORICO || ', ', '') || 'Item '||old.id||' Fator: ' ||old.fator ||' -> '|| new.fator;
   end

   if(new.avos <> old.avos)then
   begin
      HISTORICO = iif(historico <> '',  HISTORICO || ', ', '') || 'Item '||old.id||' Avos: ' ||old.avos ||' -> '|| new.avos;
   end

   if(new.usar_fator <> old.usar_fator)then
   begin
      HISTORICO = iif(historico <> '',  HISTORICO || ', ', '') || 'Item '||old.id||' Usar Fator: ' ||old.usar_fator ||' -> '|| new.usar_fator;
   end

   if(new.editavel <> old.editavel)then
   begin
      HISTORICO = iif(historico <> '',  HISTORICO || ', ', '') || 'Item '||old.id||' Editavel: ' ||old.editavel ||' -> '|| new.editavel;
   end

   if(new.incentivo <> old.incentivo)then
   begin
      HISTORICO = iif(historico <> '',  HISTORICO || ', ', '') || 'Item '||old.id||' Incentivo: ' ||old.incentivo ||' -> '|| new.incentivo;
   end

   if(new.frete <> old.frete)then
   begin
      HISTORICO = iif(historico <> '',  HISTORICO || ', ', '') || 'Item '||old.id||' Frete: ' ||old.frete ||' -> '|| new.frete;
   end


   if (HISTORICO <> '') Then
   Begin
       INSERT INTO TBHISTORICO
              (
              TABELA,
              TABELA_ID,
              USUARIO, IP,
              HISTORICO
              )
       VALUES(
              'TBCUSTO_PADRAO',
              new.padrao_id,
              (Select First 1 MON$USER from mon$attachments where mon$attachment_id = current_connection),
              (Select First 1 MON$REMOTE_ADDRESS from mon$attachments where mon$attachment_id = current_connection),
              :Historico
              );
   End
end;
