Search the Community
Showing results for tags 'accessviolation'.
-
Olá à todos, depois de muito tentar não consegui achar uma solução, ao importar um xml de nfe pelo componente acbrnfe, da access violation em um xml de TPAG = 3 "Cartão de Crédito" que não possui a tag TBand. Tentei usar o if assigned(auxNF.NotasFiscais.Items[0].NFe.pag.Items[I].tBand)then antes de tentar acessar o valor de tBand mas ele não aceita, tem alguma forma correta de verificar se essa tag existe antes de tentar acessá-la?
-
Boa tarde. Gostaria de relatar um problema que ocorreu com nosso sistema emissor, com relação ao preview/impressão da Carta de Correção da NF-e. O que acontece é que após exibir um DANFE e depois tentar exibir o preview de uma Carta de Correção ocorre um Access Violation, nesse caso testei apenas usando a engine FastReport. Percebi que o erro ocorre nos métodos "PrepareReport" e "frxReportBeforePrint" da unit "Fontes\ACBrDFe\ACBrNFe\DANFE\NFe\Fast\ACBrNFeDANFEFRDM.pas". Ao que parece o objeto NFe (FNFe) que é usado dentro deles está assigned mas suas propriedades estão nil, ele passa na verificação do Assigned(), mas ao acessar as propriedades elas estão nil. Se carregar uma NF-e no componente ACBrNFe e emitir um DANFE ele fica com referências apontadas internamente no DANFE associado ao ACBrNFe, então mesmo se der um ACBrNFe.NotasFiscais.Clear e carregar somente o XML do evento de CCe o erro ocorre. O que eu fiz foi apenas passar nil para as variáveis FNFe e FEvento ao final de cada método "ImprimirDANFE", "ImprimirDANFEResumido", "ImprimirDANFEPDF", "ImprimirEVENTO", "ImprimirEVENTOPDF", "ImprimirINUTILIZACAO", "ImprimirINUTILIZACAOPDF", para assim não apontar para uma referência inválida e a verificação funcionar corretamente em "PrepareReport" e "frxReportBeforePrint". // Está em "ImprimirDANFE", "ImprimirDANFEResumido", "ImprimirDANFEPDF", "ImprimirEVENTO", "ImprimirEVENTOPDF", "ImprimirINUTILIZACAO", "ImprimirINUTILIZACAOPDF": { DONE -oLeandro : (03/09/2019) - Alteração para não causar AccessViolation após: 1 - Imprimir um DANFE; 2 - Imprimir um Evento (Carta de Correção); AccessViolation ocorre nos métodos: * PrepareReport * frxReportBeforePrint Provável motivo: Objeto NFe (FNFe) está assigned mas suas propriedades estão nil. } FNFe := nil; FEvento := nil; Segue o arquivo ACBrNFeDANFEFRDM.pas em anexo, as alterações estão marcadas com um "DONE -oLeandro :" , se a alteração proceder e for útil, peço aos administradores que adicionem a alteração no svn. Muito obrigado. ACBrNFeDANFEFRDM.pas
-
- 1
-
- carta de correção
- nf-e
- (and 6 more)
-
Olá... Gostaria apenas de informar que obtive um erro de AccessViolation ao realizar a consulta de NF-e/NFC-e quando utilizo a 'libCapicomDelphiSoap'. Aqui no Delphi o erro acontece na unit 'ACBrDFeCapicomDelphiSoap.pas', nas linhas 98-102: if (FpDFeSSL.UseCertificate) then begin CertContext := Certificado as ICertContext; CertContext.Get_CertContext(HCertContext); end; A propriedade Certificado (FCertificado) fica como 'nil'. Trocando para 'libCapicom' o erro não ocorre. Apenas reportando que tive esse problema, não encontrei uma solução programável, não sei se muitos utilizam a biblioteca com os componentes SOAP do Delphi. Obrigado.
-
Boa tarde para todos. Estou com um problema bastante estranho por aqui. Meu ambiente é: Delphi XE7 AcBr no truck Dlls do svn com openSSL 0.9.8.14 Quando do envio do email pela função "NotasFiscais[0].EnviarEmail", as vezes, sim...nem sempre mesmo repetindo a mesma operação eu recebo um access violation no seguinte bloco de codigo function TMimeMess.AddPartHTML(const Value: TStrings; const PartParent: TMimePart): TMimepart; begin Result := AddPart(PartParent); with Result do begin Value.SaveToStream(DecodedLines); <-- AQUI Primary := 'text'; Secondary := 'html'; Description := 'HTML text'; Disposition := 'inline'; CharsetCode := UTF_8; EncodingCode := ME_QUOTED_PRINTABLE; EncodePart; EncodePartHeader; end; end; Já mudei dlls, desinstalei e recoloquei o AcBr, mas o problema persiste. Envio 10, 20 NFs e do nada acontece bem ai (cheguei até ai com o Eureka) Não sei mais o que fazer. Se alguém puder me dar um norte seria de enorme ajuda. Desde já, obrigado pela atenção de todos.