Erro No Evento Quandovenderitem Do Acbrvirtualnfce

[magnosystem]

Pessoal bom dia.

 

Eu tinha começado a desenvolver nfce e já estava até imprimindo cupom usando o ecfvirtual. Parei uns tempos e voltei agora e para tal atualizei os fontes do acbr.

Desde então está aparecendo a mensagem "Access Violation at Address 004099B6 in module MagnoPDV"

 

O interessante é que seu eu não colocar nenhum código no evento QuandoVenderItem do AcbrVirtualNFCe o erro desaparece, todavia, fica faltando os parâmetros de ncm e alguns outros e o envio é recusado pelo webservice. Mas basicamente é isto. Basta eu colocar um comando no evento (teste colocando apenas Det.Prod.ncm) que já dá erro.

 

Não achei nenhum exemplo no acbr, se tiver, me falem em qual pasta.

O fonte que está dentro do evento é o abaixo:

procedure TPDV.ECFVirtualNFCeQuandoVenderItem(Det: TDetCollectionItem);
begin
Det.nItem := Datacliente.TBAuxVendas.FieldByName('ITEM').AsInteger;
With Det.Prod do
Begin
cProd := Datacliente.TBAuxVendas.FieldByName('CODIGOPRODUTO').AsString;
if Datacliente.ValidaEAN(Datacliente.TBAuxVendas.FieldByName('CODIGOPRODUTO').AsString) then
cEAN := Datacliente.TBAuxVendas.FieldByName('CODIGOPRODUTO').AsString
else
cEAN := '';
xProd := Datacliente.TBAuxVendas.FieldByName('PRODUTO').AsString;
With Datacliente.QEXEC do
Begin
sql.Clear;
sql.Add('SELECT NCM FROM PRODUTOS WHERE CODIGO = ' + QuotedStr(Datacliente.TBAuxVendas.FieldByName('CODIGOPRODUTO').AsString));
open;
End;
if Datacliente.QEXEC.FieldByName('NCM').AsTrimString = '' then
NCM := '99999999'
else
NCM := Datacliente.QEXEC.FieldByName('NCM').AsTrimString;
if Datacliente.TBAuxVendas.FieldByName('TRIBUTACAO').AsString = 'Substituição Tributária' then
CFOP := '5403'
else
CFOP := '5102';
qCom := Datacliente.TBAuxVendas.fieldbyname('QUANTIDADE').AsCurrency;
if Trim(Datacliente.TBAuxVendas.fieldbyname('UNIDADE').AsString) = '' then
uCom := 'UN'
else
uCom := Datacliente.TBAuxVendas.fieldbyname('UNIDADE').AsString;
vUnCom := Datacliente.TBAuxVendas.fieldbyname('VALORUNITARIO').AsCurrency;
vDesc := Datacliente.TBAuxVendas.fieldbyname('DESCONTO').AsCurrency;
vProd := Datacliente.TBAuxVendas.fieldbyname('SUBTOTAL').AsCurrency;
vOutro := 0;
indRegra := irTruncamento;
end;
With Det.Imposto.ICMS do
Begin
if Datacliente.TBPadrao.FieldByName('SPEDREGIMETRIBUTARIO').AsString = 'SN' then
Begin
if Datacliente.TBAuxVendas.FieldByName('TRIBUTACAO').AsString = 'Substituição Tributária' then
CSOSN := csosn500 else
if Datacliente.TBAuxVendas.FieldByName('TRIBUTACAO').AsString = 'Isenta' then
CSOSN := csosn300 else
if Datacliente.TBAuxVendas.FieldByName('TRIBUTACAO').AsString = 'Não Tributada' then
CSOSN := csosn400 else
Begin
CSOSN := csosn102;
orig := oeNacional;
pICMS := Datacliente.TBAuxVendas.FieldByName('ALIQUOTA').AsCurrency;
vICMS := Datacliente.TBAuxVendas.FieldByName('VALORICMS').AsCurrency;
End;
End
else
Begin
if Datacliente.TBAuxVendas.FieldByName('TRIBUTACAO').AsString = 'Substituição Tributária' then
CST := cst60 else
if Datacliente.TBAuxVendas.FieldByName('TRIBUTACAO').AsString = 'Isenta' then
CST := cst40 else
if Datacliente.TBAuxVendas.FieldByName('TRIBUTACAO').AsString = 'Não Tributada' then
CST := cst41 else
Begin
CST := cst00;
pICMS := Datacliente.TBAuxVendas.FieldByName('ALIQUOTA').AsCurrency;
vICMS := Datacliente.TBAuxVendas.FieldByName('VALORICMS').AsCurrency;
End;
End;
End;
end;

[EMBarbosa]

Você consegue construir ou um testcase ou um aplicativo mínimo para reproduzir o problema?

[Daniel Simoes]

No ECFTeste.exe, em Lazarus, os ECFs Virtuais estão implementados (SAT e NFCe)

[magnosystem]

Vou tentar fazer no ecf teste. No lazarus tem a propriedade vtottrib no Det.Imposto. No delphi não tem. É isto mesmo ?

[Juliomar Marchetti]

Não você deve não ter recompilado os componentes no delphi e assim ele não vai aparecer pra ti!

[magnosystem]

Descobri o erro. O meu componente ACBRECF fica na DataModule. Há uns tempos atrás estava ocorrendo um erro com o AcbrNfeDanfeFR que eu consegui resolver tirando o componente AcbrNfeDanfeFR, AcbrNfe e o AcbrECFVirtualNFCe e colocando no form principal separado do Datamodule. Funcionou perfeitamente. Depois da atualização do ACBR notei que o AcbrECFVirtualNFCe não estava enxergando em tempo de programação o AcbrECF no Datamodule. Aí voltei o AcbrECFVirtualNFCe para o Datamodule e funcionou perfeitamente. Obrigado pela ajuda pessoal.