Fórum Access Violation - Filter! #608535
10/03/2020
0
Amigos, já fiz de tudo e não consigo descobrir esse erro de access violation, quando dou o comando de: dtmOC.cdsManifestoItem.Filtered := False; ele continua o meu código, mas da a mensagem de erro: segue abaixo parte do meu código:
dtmOC.cdsNFEmunicipio.First;
dtmOC.cdsManifestoItem.Open;
// Dados do(s) município(s) e da(s) NF-e
with dtmOC.cdsNFEmunicipio do
begin
vQtdTotNF := 0;
while not dtmOC.cdsNFEmunicipio.Eof do
begin
with infDoc.infMunDescarga.New do
begin
dtmOC.cdsManifestoItem.First;
dtmOC.cdsManifestoItem.Filtered := False;
dtmOC.cdsManifestoItem.Filter := ''''''''MunDescarga = '''''''' + IntToStr(dtmOC.cdsNFEmunicipioMunDescarga.AsInteger);
dtmOC.cdsManifestoItem.Filtered := True;
cMunDescarga := dtmOC.cdsManifestoItemMunDescarga.AsInteger;
xMunDescarga := RemoverCaracteresEspeciais(dtmOC.cdsManifestoItemMunicipio.AsString);
while not dtmOC.cdsManifestoItem.Eof do
begin
with infNFe.New do
begin
chNFe := dtmOC.cdsManifestoItemChave.AsString;
end;
vQtdTotNF := vQtdTotNF + 1;
dtmOC.cdsManifestoItem.Next;
end;
end;
dtmOC.cdsNFEmunicipio.Next;
end;
end;
se alguém poder me ajudar, não sei mais o que fazer, obrigado!
dtmOC.cdsNFEmunicipio.First;
dtmOC.cdsManifestoItem.Open;
// Dados do(s) município(s) e da(s) NF-e
with dtmOC.cdsNFEmunicipio do
begin
vQtdTotNF := 0;
while not dtmOC.cdsNFEmunicipio.Eof do
begin
with infDoc.infMunDescarga.New do
begin
dtmOC.cdsManifestoItem.First;
dtmOC.cdsManifestoItem.Filtered := False;
dtmOC.cdsManifestoItem.Filter := ''''''''MunDescarga = '''''''' + IntToStr(dtmOC.cdsNFEmunicipioMunDescarga.AsInteger);
dtmOC.cdsManifestoItem.Filtered := True;
cMunDescarga := dtmOC.cdsManifestoItemMunDescarga.AsInteger;
xMunDescarga := RemoverCaracteresEspeciais(dtmOC.cdsManifestoItemMunicipio.AsString);
while not dtmOC.cdsManifestoItem.Eof do
begin
with infNFe.New do
begin
chNFe := dtmOC.cdsManifestoItemChave.AsString;
end;
vQtdTotNF := vQtdTotNF + 1;
dtmOC.cdsManifestoItem.Next;
end;
end;
dtmOC.cdsNFEmunicipio.Next;
end;
end;
se alguém poder me ajudar, não sei mais o que fazer, obrigado!
Márcio Antônio
Curtir tópico
+ 0
Responder
Clique aqui para fazer login e interagir na Comunidade :)