Como comparar duas tabelas
15/12/2016
0
Vou explicar melhor tenho dois campos iguais em duas tabelas diferentes,tenho que comparar o ncm da tabela produtos com o ncm da tabela ncm e assim me retornado o valor da alíquota de imposto que ta na tabela de ncm,para a tabela de produto que existe esse campo alíquota na tabela produto...mais tem que jogar o valor da aliquota da tabela de ncm na tabela de produto no campo aliquota !!!! Como faço isso me ajudem???Obrigado pela atenção
Alan
Posts
15/12/2016
Raimundo Pereira
Function Atualizar_Alq(Comando_SQL:string):boolean;
implementation
{$R *.dfm}
Function TForm1.Atualizar_Alq(Comando_SQL:string):boolean;
begin
QryUpdate.Close;
QryUpdate.sql.Clear;
QryUpdate.sql.Text:=Comando_SQL;
try
QryUpdate.ExecSQL;
Result:=true;
except
Result:=False;
end;
end;
Agora sua rotina.
procedure TForm1.VerificarClick(Sender: TObject);
begin
qryNCM.Close;
qryNCM.FetchAll;
qryNCM.First;
Iniciamos um for na tabela ncm e ao mesmo tempo vamos atualizando
if not qryNCM.Eof then
repeat
//TODOS OS PRODUTOS CUJO NCM SEJA O ATUAL DA TABELA NCM SERÁ ATUALIZADO
Atualizar_Alq('UPDATE TABELA_PRODUTOS SET ALIQ_ICMS='''+qryNCM.FieldByName('ALIQ_ICMS').AsString+''' WHERE NCM='''+qryNCM.FieldByName('NCM').AsString+'''');
qryNCM.Next;
until qryNCM.Eof;
ShowMessage('Atualização finalizada');
end;
16/12/2016
Alan
16/12/2016
Alan
16/12/2016
Alan
17/12/2016
Raimundo Pereira
Com o passar do tempo, você terá mais produtos que NCM.
Então é melhor você percorrer do o cadastro de NCM e ir executando o update na tabela de produtos.
QryUpdate, não é preciso preencher SQL, apenas conectar a sua cnx principal.
Veja a função que irá realizar o update
Function TForm1.Atualizar_Alq(Comando_SQL:string):boolean;
begin
QryUpdate.Close;
QryUpdate.sql.Clear;
QryUpdate.sql.Text:=Comando_SQL;
try
QryUpdate.ExecSQL;
Result:=true;
except
Result:=False;
end;
end;
No momento em que estiver percorrendo o cadastro de NCM, automaticamente ele irá gerar o script de update e chamar a função.
// Veja aqui neste momento ele gerando o script
Atualizar_Alq('UPDATE TABELA_PRODUTOS SET ALIQ_ICMS='''+qryNCM.FieldByName('ALIQ_ICMS').AsString+''' WHERE NCM='''+qryNCM.FieldByName('NCM').AsString+'''');
Estou fora de escala hoje, se precisar de suporte
Chame no Whz 71.993052489
17/12/2016
Raimundo Pereira
Faça o backup do seu banco de dados
Clique aqui para fazer login e interagir na Comunidade :)
