TDetCollectionItem gerando Access Violation ao vender item

[aloisiopires]

Olá pessoal!

 

Tenho um sistema homologado em produção para MF-e. Recentemente, fiz alterações para emitir também NFC-e.

Uso o ACBrECF com VirtualSAT e VirtualNFce.

Depois das alterações passou a dar erro de Access Violation no momento de vender o item (ACBrECFVirtualSAT1QuandoVenderItem)

O erro acontece ao ler o parâmetro Det: TDetCollectionItem;

Já verifiquei várias coisas mas não consegui identificar a causa desse erro...

Alguém já passou por isso? 

 

Agradeço desde já.

 

Aloisio P. Neto

Desenvolvedor

[Daniel Simoes]

Apenas foi adicionado um Evento  na Classe base que permite a aplicação chamadora, controlar o Estado do ECF, quando este estiver mudando..

Por favor tente reproduzir o erro com o Demo ECFTeste...

Lembrando que A.V. ocorre quando se tenta acessar um objeto que não existe... ou seja, não foi criado ou já foi destruído 

[aloisiopires]

Em 07/04/2020 at 09:30, Daniel Simoes disse:

Apenas foi adicionado um Evento  na Classe base que permite a aplicação chamadora, controlar o Estado do ECF, quando este estiver mudando..

Por favor tente reproduzir o erro com o Demo ECFTeste...

Lembrando que A.V. ocorre quando se tenta acessar um objeto que não existe... ou seja, não foi criado ou já foi destruído 

Daniel, não quis dizer que é um erro do componente.

Acredito que é alguma configuração errada  no meu projeto que está causando isso.

Já verifiquei várias coisas e não achei o motivo do erro. 

O objetivo do post seria mesmo pedir uma dica pra alguém do grupo que pudesse me dar uma caminho na resolução desse erro ...

Só para ilustrar a situação: o erro ocorre no evento QuandoVenderItem do ACBrVirtualSAT (Aparentemente o Det não está sendo recebido e gera um access violation)

procedure TfPrincipal.ACBrECFVirtualSAT1QuandoVenderItem(
  Det: TDetCollectionItem);
begin
   // Complementa dados dos produtos para o CF-e

   with Det do
      begin
      if wNcm='' then
         Prod.NCM := '99'
      else
         Prod.NCM := wNcm;

      Prod.CFOP  := wCFOP;
      end;
end;

Agradeço quem puder dar alguma dica!

[Juliana Tamizou]

Boa tarde.

Você não consegue reproduzir a situação no demo? talvez isso já ajude a encontrar onde precisa ser ajustado no seu código.

Att.

[Daniel Simoes]

1 hora atrás, aloisiopires disse:

Só para ilustrar a situação: o erro ocorre no evento QuandoVenderItem do ACBrVirtualSAT (Aparentemente o Det não está sendo recebido e gera um access violation)

Humm.. quem invoca esse Evento é o componente...

Deixe um Bkpoint nele, e quando o "Det" estiver como "Nil", verifique no Call Stack, que linha de código chamou o evento...

[aloisiopires]

18 horas atrás, Daniel Simoes disse:

Humm.. quem invoca esse Evento é o componente...

Deixe um Bkpoint nele, e quando o "Det" estiver como "Nil", verifique no Call Stack, que linha de código chamou o evento...

Debuguei e notei o seguinte:

O evento é chamado na linha 445 da TACBrECFVirtualSATClass.VendeItemVirtual(ItemCupom: TACBrECFVirtualClassItemCupom)  
 

    if Assigned( fsQuandoVenderItem ) then
      fsQuandoVenderItem( Det );

 

O valor de Det está se perdendo entre a chamada e a execução do método ... (anexei o CallStack e o Local Variables)

Existe alguma configuração que possa estar errada que cause esse tipo de erro?

 

 

 

 

 

[Daniel Simoes]

Clique no segundo item do CallStack, e ache a linha do ACBrECFVirtualSAT... Com um debug nessa rotina, acompanhe a criação do Det, até passar ele pra o evento...

[aloisiopires]

Em 09/04/2020 at 16:02, Daniel Simoes disse:

Clique no segundo item do CallStack, e ache a linha do ACBrECFVirtualSAT... Com um debug nessa rotina, acompanhe a criação do Det, até passar ele pra o evento...

Daniel, eu já tinha feito isso...

Se observar no post anterior eu debuguei e postei as fotos.

Ao entrar no evento ACbrECFVirtualSAT1QuandoVenderItem o Delphi mostra que o valor de Det = inaccessible value.

Pelo que entendi o valor de Det se perde na passagem do parâmetro...

 

 

[Daniel Simoes]

@aloisiopires,

Não creio que seja esse o problema... O Objeto está sendo criado corretamente, no inicio de "TACBrECFVirtualSATClass.VendeItemVirtual"

procedure TACBrECFVirtualSATClass.VendeItemVirtual(
  ItemCupom: TACBrECFVirtualClassItemCupom);
var
  Det: TDetCollectionItem;
  AliqECF: TACBrECFAliquota;
begin

  with fsACBrSAT do
  begin
    Det := CFe.Det.New;     // <---- AQUI

    Det.nItem := ItemCupom.Sequencia;
    Det.Prod.cProd    := ItemCupom.Codigo;
    Det.Prod.xProd    := ItemCupom.Descricao;
    Det.Prod.qCom     := ItemCupom.Qtd;
    Det.Prod.vUnCom   := ItemCupom.ValorUnit;
    Det.Prod.uCom     := ItemCupom.Unidade;