EnviarPagamento gerando Access Violation no acesso via DLL

[aloisiopires]

Saudações!

Preciso da ajuda dos colegas para um erro estranho que estou tendo.

Sistema MF-e homologado em produção há mais de 1 ano funcionando normal com integrador.

Ao tentar fazê-lo funcionar pela DLL, usando a versão 01.05.13 do Driver MFe acontece um erro de access violation ao executar o método EnviarPagamento.

Se mudo para integrador vai normal. Se faço venda a vista sem cartão vai normal também.

O que pode ser?

Segue abaixo como está meu código:

PagamentoMFe := TEnviarPagamento.Create;
  try
    with PagamentoMFe do
       begin
       Clear;
       ChaveAcessoValidador := aChaveAcessoValidador;
       ChaveRequisicao      := aChaveRequisicao;
       Estabelecimento      := copy(fPrincipal.ACBrSAT1.Config.emit_CNPJ,11,2);
       SerialPOS            := aSerialPos;
       CNPJ                 := fPrincipal.ACBrSAT1.Config.emit_CNPJ;
       IcmsBase             := fPrincipal.ACBrSAT1.CFe.Total.ICMSTot.vICMS;
       ValorTotalVenda      := CDS1VALOR.AsCurrency;
       HabilitarMultiplosPagamentos := True;
       HabilitarControleAntiFraude := False;
       CodigoMoeda          := 'BRL';
       EmitirCupomNFCE      := False;
       OrigemPagamento      := '';
       end;

    RespostaPagamentoMFe := TACBrSATMFe_integrador_XML(fPrincipal.ACBrSAT1.SAT).EnviarPagamento(PagamentoMFe);

Agradeço desde já !!

Aloisio P. Neto

Desenvolvedor

[Juliomar Marchetti]

Tente pegar o exemplo do svn e testar com ele

[André Ferreira de Moraes]

Não existe o método enviar pagamento na DLL do MFE, vc deve usar diretamente o componente ACBrIntegrador