Paulo Starling Perdigao

Boa tarde, pessoal! Tudo bem? Gostaria de pedir ajuda com um erro que estou tendo com o componente ACBR. Estou usando o Delphi XE6, windows 8.1 64 bits.. O componente está num DataModulo chamado FrmDados... O erro acontece apenas após o envio de mais de uma NFE e ao fechar o sistema, estou anexando um print... Já tentei o seguinte: (na unit principal do sistema, no CLOSE)... - FreeAndNil(FrmDados.ACBR)... - try FrmDados.ACBR.Free; except end; - try FrmDados.ACBR.Destroy; finally end; já tentei colocar FrmDados.ACBR.Free... no Destroy da mesma unit e o mesmo erro aconteceu... será que alguém tem alguma dica do que possa estar acontecendo? Obrigado, Rafael Hassegawa

Boa tarde, estou finalizando a NF310 porem tenho um problema Quando ocorre qualquer erro durante o processo de geração da nota ao voltar ou fechar a aplicação da um erro de Acess Violation alguem tem alguma dica? Parece que o certificado fica preso ou algum processo Alguém tem esse problema?

Bom dia Senhores envie uma nota em homologação para no na forma de emissao 6 - Contingência SVC-AN (SEFAZ Virtual de Contingência do AN) A nota foi gerou o recibo , gerou o protocolo mas não estou conseguindo fazer a consulta dela no Ambiente nacional mas se tento mandar ela de novo recebo a mensagem da que a nota esta em duplicidade.. Estou mandando o seguinte comando para consulta mas não recebo o numero do protocolo no retorno ////// se tiver chave preenchida e protocolo em branco enviar consulta ACBrNFe1.WebServices.Consulta.NFeChave :=Dmala.CDSQlocFaturasPchave_nfe.AsString; MemoResp.Lines.Text := UTF8Encode(ACBrNFe1.WebServices.Consulta.NFeChave); memoRespWS.Lines.Text := UTF8Encode(ACBrNFe1.WebServices.Retorno.RetornoWS); LoadXML(MemoResp, WBResposta); MemoDados.Lines.Add(''); MemoDados.Lines.Add('Consulta NFe'); MemoDados.Lines.Add('tpAmb: '+ TpAmbToStr(ACBrNFe1.WebServices.Retorno.TpAmb)); MemoDados.Lines.Add('verAplic: '+ ACBrNFe1.WebServices.Retorno.verAplic); MemoDados.Lines.Add('cStat: '+ IntToStr(ACBrNFe1.WebServices.Retorno.cStat)); MemoDados.Lines.Add('cUF: '+ IntToStr(ACBrNFe1.WebServices.Retorno.cUF)); MemoDados.Lines.Add('xMotivo: '+ ACBrNFe1.WebServices.Retorno.xMotivo); MemoDados.Lines.Add('cMsg: '+ IntToStr(ACBrNFe1.WebServices.Retorno.cMsg)); MemoDados.Lines.Add('xMsg: '+ ACBrNFe1.WebServices.Retorno.xMsg); MemoDados.Lines.Add('Recibo: '+ ACBrNFe1.WebServices.Retorno.Recibo); MemoDados.Lines.Add('Protocolo: '+ ACBrNFe1.WebServices.Retorno.Protocolo); ////////// fim consulta

Ola pessoal comecei a usar o ACBr aqui e estava tudo indo bem ,ai fiz a atualização do componente e as tags NFe.Ide.dhEmi NFe.Ide.dhSaiEnt: A versão do componente tá 3.10 não aparecem mais porem as só esta aparecendo as tags da versao 2.00 NFe.Ide.dEmi e NFe.Ide.dSaiEnt Alguém pode pode dar uma sugestão uma vez que antes da atualização estava correto atualizei ontem 14/01/2015 e meu componente esta configurado ACBRNFE1.Configuracoes.Geral.ModeloDF := moNFe; // moNFe ou moNFCe ACBRNFE1.Configuracoes.Geral.VersaoDF := ve310; // Versão 3.10 e a unit pcnNFer tem as sentenças de comparação de versao if NFe.infNFe.Versao >= 3 then begin (*B09*) NFe.ide.dEmi := Leitor.rCampo(tcDatHor, 'dhEmi'); (*B10*) NFe.ide.dSaiEnt := Leitor.rCampo(tcDatHor, 'dhSaiEnt'); end else begin (*B09*) NFe.ide.dEmi := Leitor.rCampo(tcDat, 'dEmi'); (*B10*) NFe.ide.dSaiEnt := Leitor.rCampo(tcDat, 'dSaiEnt'); (*B10a*)NFe.ide.hSaiEnt := Leitor.rCampo(tcHor, 'hSaiEnt'); Conto com o apoio de vcs obrigado