No IBExpert dê um CTRL+F12 e cole a seguinte SQL:
>> Click para fazer o download Ajusta_aba.sql
SET TERM ^ ;
CREATE OR ALTER PROCEDURE AJUSTA_NOME
as
declare variable nome varchar(100);
declare variable bico integer;
declare variable tanque integer;
declare variable mercadoria integer;
Begin
For
Select b.btbomba,q.tqnro,q.tqcodm,m.menome from a02abmtq b
left join a02ataq q on q.tqemp = b.btemp and q.tqnro = b.bttanque
left join a02amerc m on m.mecod = q.tqcodm
where metipo = 'C' and b.btsit = 'A'
into :bico , :tanque, :mercadoria, :nome
Do begin
Update a02aaba ab set abatanque=:tanque,
ab.abacodm=:mercadoria,
ab.abadesc=:nome
where ababomba = :bico
and abatanque is null
and abadata>='17.07.2012';
end
end^
SET TERM ; ^
/* Existing privileges on this procedure */
GRANT EXECUTE ON PROCEDURE AJUSTA_NOME TO SYSDBA;
Após criar a procedure, vá até o inicio dela e abra a mesma: "AJUSTA_NOME"

Quando entrar na procedure basta executar a mesma clickando na ceta verde em formato de "PLAY" ou ir na tecla F9. Em seguida de um Commit.



Sped C490 - Bahia
Abastecimento Corrompido
Sintegra Reg54
Erros na versão 197
Erros na versão 198
XML em erros
Erro ao importar notas v197
List index out of bounds (3)
0 comentários:
Postar um comentário