Ir para conteúdo
  • Cadastre-se

dev botao

  • Este tópico foi criado há 1726 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

Postado

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!

  • Solution
Postado

Está sim Juliomar, após algumas pesquisas, consegui resolver... eu havia esquecido de colocar o código dtmOC.cdsManifestoItem.DisableControls; e depois o dtmOC.cdsManifestoItem.EnableControls;

Obrigado pelo retorno.

Abraços!

  • Curtir 1
  • Administradores
Postado

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.

Consultora SAC ACBr

Juliana Tamizou

Gerente de Projetos ACBr / Diretora de Marketing AFRAC
Ajude o Projeto ACBr crescer - Seja Pro

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.  Discord

Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil


Participe de nosso canal no Discord e fique ainda mais próximo da Comunidade !!

  • Este tópico foi criado há 1726 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.
Visitante
Este tópico está agora fechado para novas respostas
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.