Mauricio Elias

Olá Bom Dia Juliomar! Estranho que usando Tls 1_2 o status do serviço funciona sem problema ou seja certificado e acho que a dll estão funcionando. No exemplo do ACBr não fica nenhuma dll na pasta então usa as que vai na pasta do windows? No meu caso na syswon64. Testei todas as dlls, todas de x86 e o erro persisti. Já coloquei as que o BigWings falou, tentei fazer o que o Daniel disse nesses tópicos: E nada resolve o problema. Olhei as propriedades está ta quase udo igual, a única diferença e que no componente ACBrNFe no exemplo no eventos, na opção OngerarLog está com nome ACBrNFe1GerarLog e na minha versão não consigo por esse nome da o erro Property and Method ACBrNFe1GerarLog are not compatible. Esse evento gera arquivo de log de tudo que acontece no ACBrNFe? Se sim no meu caso poderia indicar algum possível problema? Porque não consigo ativar esse evento no componente na minha versão? Acho que o problema pode estar na atualização do ACBr no meu delphi, por favor vocês poderiam me passar os passos para eu desinstalar totalmente o ACBr? E só usar o apagarAcbr? Pois depois de desinstalar ele vou apagar o conteúdo da pasta ACBr a baixar novamente pra só depois instalar. Pois a única explicação desse erro e de nada solucionar só pode ser na instalação(atualização no meu caso apesar de já ter reinstalado 4x), senão for isso então e alguma coisa relacionada a versão do windows ser 64 bits ou a atualização do windows apesar estar tudo atualizado a atualização fico com algum problema. Uso o ACBr a muito tempo e nunca passei por um problema(persistente) desse tipo, depois de uma atualização. Desde já Muito Obrigado pela Ajuda e paciência comigo!

Olá Boa Tarde Juliomar Pasta de Schemas ok é a mesma usada no exemplo do ACBrNFe. Configuração do Webservice ok na minha versão: ACBrNFe1.Configuracoes.WebServices.UF := cbUF.Text; ACBrNFe1.Configuracoes.WebServices.Ambiente := StrToTpAmb(Ok,IntToStr(rgTipoAmb.ItemIndex+1)); ACBrNFe1.Configuracoes.WebServices.Visualizar := ckVisualizar.Checked; ACBrNFe1.SSL.SSLType := TSSLType( cbSSLType.ItemIndex ); no exemplo: with ACBrNFe1.Configuracoes.WebServices do begin UF := cbUF.Text; Ambiente := StrToTpAmb(Ok,IntToStr(rgTipoAmb.ItemIndex+1)); Visualizar := cbxVisualizar.Checked; end; ACBrNFe1.SSL.SSLType := TSSLType(cbSSLType.ItemIndex); Configuração do certificado ok usei o mesmo certificado no exemplo e da mesma forma informando o numero de serie. na minha versão: ACBrNFe1.Configuracoes.Certificados.NumeroSerie := edtNumSerie.Text; no exemplo ACBrNFe1.Configuracoes.Certificados.NumeroSerie := edtNumSerie.Text; o TLS 1.2 está já assinalado no componente OK sim ACBrNFe1.SSL.SSLType := TSSLType( cbSSLType.ItemIndex ); SSLCRYPTLIB: cryWinCrypt SSLHttpLib: httpWinHttp SSLLib: libWinCrypt SSLXmlSignLib: xsLibXml2 SSLType: LT_TLSv1_2 o método estão iguais para preencher os dados você quer dizer preencher os dados da nota se sim estão ok, tanto que gero xml no sistema e envio pelo exemplo e validado e autorizado. Na hora de Gerar enviar está da seguinte ordem: LerConfiguracao; ACBrNFe1.NotasFiscais.Clear; GerarNFe(ME_nronota.Text);//alimenta os dados da nota ACBrNFe1.NotasFiscais.Imprimir;// exibe o espelho da nota if (ACBrNFe1.Enviar(0, false) = true) then na hora de enviar acontece o erro quando entra no metodo assinar. Como disse antes a única função diferente que notei no exemplo foi a ACBrNFe1.SSL.DescarregarCertificado . Coloquei ela mas o erro é o mesmo no mesmo lugar de sempre. Desculpa senão entendi alguma pergunta sua, espero te respondido o que você perguntou. Também exclui o componente ACBrNfe e coloquei outro já que foi atualizado mas o erro persisti. O que mais posso conferir? Obrigado pela Ajuda!

Olá Boa Tarde Juliomar Instalei novamente o ACBr, e fui testar novamente no exemplo de NFe do ACBr, configurei com os dados do certificado, do emitente. Gerei um xml na minha aplicação e fui tentar enviar pelo exemplo do ACBrNFe usando o botão Carregar Xml e Enviar, e desta vez enviou e autorizou, mas isso só no exemplo, pois na minha aplicação ainda persisti o erro. Então fui olhar o exemplo novamente e o que achei de diferente em relação ao meu foram o comando ACBrNFe1.SSL.DescarregarCertificado que no exemplo e chamado quando le a configuração, não entendi o porque desse comando e não achei o CarregarCertificado nem sei tem e precisa, enfim pus esse comando na minha rotina e o erro persisti, outra coisa que notei diferença foi no procedure LoadXML, então mudei pra ficar igual o exemplo mas não resolveu o problema. Estou debugando o exemplo e não achei até agora nenhuma outra diferença, teve alguma mudança no componente que precisa alterar? Tipo excluir o componente ACBrNfe e colocar novamente? Alguma propriedade nova no ACBrNFe precisa ser setada? No exemplo que fiz pra configurar e carregar e enviar o xml da o erro também, mas nele o lerconfiguracao e igual o que uso (segue em anexo) mudou alguma coisa que não estou conseguindo ver? E não entendi porque agora deu certo no exemplo e nas outras vezes não. A opção Complete boolean evalution estava false mesmo, e o schemas atualizado. Obrigado pela Ajuda e Atenção! NFE TESTE_exe.zip

Olá Juliomar, sim a pasta schemas está atualizada, e mesmo assim o erro persisti. BigWings a opção Complete boolean evalution já se encontra desativada. Obrigado pela Ajuda de vocês!

Boa Tarde Desinstalei o ACBr e instalei novamente, até com a opção não usar capicom marcada (apesar de ser ela estar me salvando, até agora pois por ela não da erro), mas mesmo assim o erro persisti. Fui debugando e cheguei no local exato onde ocorre o erro, e na função: LibXmlNodeWasFound que fica na unit ACBrDFeXsLibXml2. function TDFeSSLXmlSignLibXml2.LibXmlNodeWasFound(ANode: xmlNodePtr; const NodeName: String; const NameSpace: String): boolean; begin Result := (ANode <> nil) and (ANode^.Name = NodeName) and ((NameSpace = '') or (ANode^.ns^.href = NameSpace)); end; Em negrito a linha onde ocorre o erro. Já pus todas as dlls x86 libxml2 junto com o executável e nenhuma resolveu. Será que vou ter formatar e tentar por o windows 10 32 bits? Estou testando com 2 certificados de empresas diferentes, mas o problema acontece em ambos. Obrigado pela Ajuda e Atenção!

Boa Tarde a Todos! Segui todos esses passos , mas infelizmente o erro persisti. Como meu windows 7 64 na instalação o as dll são copiadas para a pasta syswow64 ae copieo a libxml2 pra system32 mas também não resolveu. Bom não seu ela está ativada, pois só se ativa durante a instalação ou de alguma outra forma sem querer eu eu ativei, mas se saber pois nunca usei essa diretiva USE_MINGW pra ser sincero não sei pra que ela é usada. Por via das dúvidas copiei as dlls da pasta MinGW, mas não resolveu. Vou tentar desinstalar o ACBr e instalar novamente como última alternativa e torcer pra dar certo. Obrigado pela Ajuda!

Olá Boa Tarde BigWings Então não é usando o mesmo exe, o exe gerado na maquina virtual esse funciona la na maquina virtual onde ele foi criado quanto na maquina com problema. O exe gerado aqui nessa maquina com problema não funciona aqui e nem na máquina virtual. Ok vou reinstalar o ACBr seguindo essa configurações que você passou, e seguir as outras recomendações depois te falo se deu certo. As dlls capicom, msxml estão dentro pois como tive que atualizar alguns clientes, e com esse problema por hora estão usando a capicom. Obrigado pela Ajuda!

Olá Bom Dia BigWings fiz a pequena aplicação que você pediu, que abri um xml e tenta assinar. O windows está atualizado mas o erro persisti. Segue em anexo a aplicação feita no delphi 2010. Segue sem o executável pois mesmo compactado ultrapassa o tamanho de 2 mb. As dlls também não estão juntas e nem a pasta schemas pelo mesmo motivo de ultrapassar o limite do tamanho do arquivo para anexar. As dlls que está dentro da pasta dessa minha aplicação são: capicom,iconv,inpout32,libeay32,libxml2,libxmlsec,msvcr71,msvcr120,msxml5,msxml5r,ssleay32,swmfd,zlib1 Como disse antes em outro pc que tenho uma máquina virtual com o win 7 32 atualizado com o mesmo delphi e acbr atualizado nele não acontece o erro. Será que tem que atualizar ou colocar a lixml2.dll na pasta syswon64? Ou colocar na system32(ta sem)? Devo desinstalar o ACBr e instalar novamente? Desde já Muito Obrigado pela Ajuda e Atenção! NFE TESTE_exe.zip

Bom Dia a Todos Desculpa a demora por responder é que estava procurando saber se tinha mais alguma atualização do windows faltando, mas agora estão todas feitas e mesmo assim o erro persisti. Olá BigWings eu fiz dessa forma informando o caminho do certificado A1 no ArquivoPFX, e infelizmente também não solucionou o problema. O mais estranho que tenho uma o delphi 2010 instalado em uma máquina virtual com win 7 32 bits e lá fiz atualização do ACBr antes pra testar e lá também está com o windows atualizado e nele não da o erro. Pelo que lembro quando atualizei a versão do ACBr nele o windows já estava atualizado, e senão me falha a memória quando atualizei usando ACBrInstall ele já vem com as opções marcadas, como disse senão me engano nessa versão na máquina virtual acho que não selecionei as opções novas de componentes como por exemplo ACBR_ciot (não sei te haver com o problema que acontece ao assinar), já na versão que uso pra trabalhar que está no win 7 64 bits, eu atualizei o ACBr antes do windows estar atualizado e nele lembro que marquei todas as opções novas, e atualizo sem problemas. Será que pode ser isso? Vou desinstalar o ACBr e instalar novamente(quando eu atualizei não desinstalei ele não) pra ve se resolve. Quanto criar uma aplicação infelizmente estou sem tempo pra criar uma, mas se quiser poderia postar a minha aplicação e um banco de teste, mas não vou conseguir postar aqui devido ao tamanho do arquivo. Tem outra forma? Vou fazer isso desinstalar o ACBr usando o apagarACBr e instalar novamente e ve se resolve. Outra dúvida se resolver esse problema, todos os clientes vão ter que estar com o windows com todos os updates atualizados independente da versão do windows? Desde já Muito Obrigado pela Ajuda e Atenção!

Olá Boa Tarde a Todos! Depois de muita luta consegui terminar as atualizações do windows, agora está atualizado. Mas infelizmente não resolveu o problema, o mesmo erro persisti e no mesmo lugar: O erro ocorre function TDFeSSL.Assinar no trecho em negrito if not Assinado then begin XmlAss := FSSLXmlSignClass.Assinar( ConteudoXML, docElement, infElement, SignatureNode, SelectionNamespaces, IdSignature, IdAttr); Tenho a opção no sistema de mudar a config por de wincrypt para capicom por exemplo, e quando mudo pra capicom funciona valida,assina envia tudo certo sem problemas o problema está com o wincrypt. BigWings tentei todas as libxml2 que tem na pasta ACBr e até a anterior a atualização, mas também não deu certo. Testei sim com outro dois certificados A1 e também deu o mesmo erro, no mesmo lugar. Com relação ao certificado eu indico ele no ACBrNFe da seguinte forma: edtNumSerie.Text := Ini.ReadString( 'Certificado','NumSerie','') ; if (trim(edtNumSerie.text) <> '') then begin ACBrNFe1.Configuracoes.Certificados.NumeroSerie := edtNumSerie.Text; edtNumSerie.Text := ACBrNFe1.Configuracoes.Certificados.NumeroSerie; end; Faço dessa forma desde quando comecei usar o ACBrNFe pra tirar NF-e isso já a muito tempo. Não entendi a parte de carregar o A1 pelo PFX? Teria alguma coisa haver windows 7 64 ou 32? Muito Obrigado pela Ajuda e Atenção!

Bom Dia Juliomar Atualizei todas as dll para x86 e testei por exemplo a libxml2 de x86 de todas pastas do acbr, e todas elas estão na pasta do executável mas o erro persisti . Sobre a instalação do microsoft runtime bom a versão que está instalado aqui e a mesma que estava funcionando antes de eu atualizar o ACBr. O erro ocorre function TDFeSSL.Assinar no trecho em negrito if not Assinado then begin XmlAss := FSSLXmlSignClass.Assinar( ConteudoXML, docElement, infElement, SignatureNode, SelectionNamespaces, IdSignature, IdAttr); Mudando capicom funciona o problema está no wincrypt, pensei que fosse alguma atualização do windows pendente mas testei em outras duas maquinas com win 7 sp1 com todas as atualizações feitas e deu o mesmo erro. Pensei que fosse também aquelas configurações do internet explorer - avançadas - Usar SSL 3.0 que deixo selecionada e também deixo selecionada Usar TLS 1.2 até mudei aqui pra outras opções mas da o mesmo erro. Ainda no meu pc aqui falta 2 atualizações importantes, estou tentando fazer as duas, pois não sei dizer se ao gerar um executável com o windows faltando essas atualizações ele é gerado faltando algo e mesmo executando ele em um pc com o windows atualizado ele retorne o erro. Obrigado pela Atenção!

Boa Tarde BigWings Bom eu deixo todas dlls na pasta onde é gerado o executável. Eu testei atualizando lbxml2.dll da pasta C:\ACBr\DLLs\LibXml2 testei tanto da pasta x64 quanto x86 e ambos os casos ocorreu o mesmo erro no mesmo lugar. Meu executavel é 32 bits já que ainda uso o delphi 2010, e não lembro de ter nele alguma opção igual tem no Delphi Rio por exemplo que de a opção de gerar na versão pra 32 ou 64 bits. Não uso a diretiva USE_MINGW ativada no ACBr.inc. Atualizei as dlls libeay32 e ssleay32 também das pastas 186 e x64 mas ambas o erro persisti. Obrigado pela Ajuda!

Boa Tarde Juliomar ! Sim o certificado(A1) está instalado no Windows e sim quando instalei marquei ele como exportavel. Minha configuração é essa: SSLLIB: libwincrypt Cryptlib: crywinCrypt Httplib: httpWinHttp XMLSIGNLIB: xsLibxml2 SSLTYPE: LT_TLSv1_2 ae mudei para SSLLIB: libcapicom Cryptlib: cryCapicom Httplib: httpWinINet XMLSIGNLIB: xsMsXmlCapicom SSLTYPE: LT_TLSv1_2 Configurado usando o capicom não da o erro e enviou ae deu algumas rejeições, mas o que importa é que não deu o erro, mas só que recomendação que vi já no forum e de não usar a capicom. Porque será que usando winCRYpt da o erro? Muito Obrigado por me Ajudar!

Bom vamos lá eu atualizei na pasta do projeto as dlls: libxml2, libeay32, ssleay32 e testei mesmo erro. Tem que atualizar mais alguma? Minha configuração: SSLLIB: libwincrypt Cryptlib: crywinCrypt Httplib: httpWinHttp XMLSIGNLIB: xsLibxml2 SSLTYPE: LT_TLSv1_2 Sempre usei essa configuração tanto pra nota quanto pra manifesto e estava funcionando antes de atualizar a versão. Você sugere alguma outra? Debugando mais um pouco o erro acontece nessa função na parte em negrito: function TDFeSSL.Assinar(const ConteudoXML, docElement, infElement: String; const SignatureNode: String; const SelectionNamespaces: String; const IdSignature: String; const IdAttr: String String; Var XmlAss, DeclaracaoXMLAntes, DeclaracaoXMLDepois: String; Assinado: Boolean; begin // Nota: ConteudoXML, DEVE estar em UTF8 // // Lendo Header antes de assinar, Se Header não for UTF8 não usa... // if XmlEhUTF8(ConteudoXML) then DeclaracaoXMLAntes := ObtemDeclaracaoXML(ConteudoXML) else DeclaracaoXMLAntes := ''; Assinado := False; if Assigned(FAntesDeAssinar) then begin XmlAss := ConteudoXML; FAntesDeAssinar( XmlAss, docElement, infElement, SignatureNode, SelectionNamespaces, IdSignature); Assinado := (XmlAss <> ConteudoXML); end; if not Assinado then begin XmlAss := FSSLXmlSignClass.Assinar( ConteudoXML, docElement, infElement, SignatureNode, SelectionNamespaces, IdSignature, IdAttr); // Verificando se modificou o Header do XML assinado, e voltando para o anterior // if (DeclaracaoXMLAntes <> '') then begin DeclaracaoXMLDepois := ObtemDeclaracaoXML(XmlAss); if (DeclaracaoXMLDepois = '') then XmlAss := DeclaracaoXMLAntes + XmlAss else if (DeclaracaoXMLAntes <> DeclaracaoXMLDepois) then XmlAss := StringReplace(XmlAss, DeclaracaoXMLAntes, DeclaracaoXMLDepois, []); end; end; Result := XmlAss; end; Será que pode ser atualização do windows? Tem 3 principais que não consigo atualizar. Obrigado pela Ajuda!

Olá BigWings Testando mais um pouco, descobri que o erro ocorre depois de executar o ACBrMDFe1.Enviar, dentro da unit ACBMDFe quando executa a função : function TACBrMDFe.Enviar(const ALote: String; Imprimir:Boolean = True; ASincrono: Boolean = False): Boolean; o erro acontece ao executar o procedure Manifestos.Assinar que está na unit ACBrMDFeManifestos. procedure TManifestos.Assinar; var i: integer; begin for i := 0 to Self.Count - 1 do Self.Items[i].Assinar; end; O erro ocorre na linha Self.Items[i].Assinar; Ae dentro do procedure abaixo o erro ocorre exatamente na linha FXMLAssinado := SSL.Assinar(String(XMLUTF8), 'MDFe', 'infMDFe'); procedure Manifesto.Assinar; var XMLStr: String; XMLUTF8: AnsiString; Leitor: TLeitor; begin with TACBrMDFe(TManifestos(Collection).ACBrMDFe) do begin if not Assigned(SSL.AntesDeAssinar) then SSL.ValidarCNPJCertificado( MDFe.Emit.CNPJCPF ); end; // Gera novamente, para processar propriedades que podem ter sido modificadas XMLStr := GerarXML; // XML já deve estar em UTF8, para poder ser assinado // XMLUTF8 := ConverteXMLtoUTF8(XMLStr); with TACBrMDFe(TManifestos(Collection).ACBrMDFe) do begin FXMLAssinado := SSL.Assinar(String(XMLUTF8), 'MDFe', 'infMDFe'); // SSL.Assinar() sempre responde em UTF8... FXMLOriginal := FXMLAssinado; Leitor := TLeitor.Create; try leitor.Grupo := FXMLAssinado; MDFe.signature.URI := Leitor.rAtributo('Reference URI='); MDFe.signature.DigestValue := Leitor.rCampo(tcStr, 'DigestValue'); MDFe.signature.SignatureValue := Leitor.rCampo(tcStr, 'SignatureValue'); MDFe.signature.X509Certificate := Leitor.rCampo(tcStr, 'X509Certificate'); finally Leitor.Free; end; // Gera o QR-Code para adicionar no XML após ter a // assinatura, e antes de ser salvo. with TACBrMDFe(TManifestos(Collection).ACBrMDFe) do begin MDFe.infMDFeSupl.qrCodMDFe := GetURLQRCode(MDFe.Ide.cUF, MDFe.Ide.tpAmb, MDFe.ide.tpEmis, MDFe.infMDFe.ID, MDFe.infMDFe.Versao); GerarXML; end; if Configuracoes.Arquivos.Salvar and (not Configuracoes.Arquivos.SalvarApenasMDFeProcessados) then begin if NaoEstaVazio(NomeArq) then Gravar(NomeArq, FXMLAssinado) else Gravar(CalcularNomeArquivoCompleto(), FXMLAssinado); end; end; end; Desculpa replicar a mensagem e que não sei tem como excluir ou alterar uma resposta . Obrigado pela Ajuda!

Olá BigWings Testando mais um pouco, descobri que o erro ocorre depois de executar o ACBrMDFe1.Enviar, dentro da unit ACBMDFe quando executa a função : function TACBrMDFe.Enviar(const ALote: String; Imprimir:Boolean = True; ASincrono: Boolean = False): Boolean; o erro acontece ao executar o procedure Manifestos.Assinar que está na unit ACBrMDFeManifestos. procedure TManifestos.Assinar; var i: integer; begin for i := 0 to Self.Count - 1 do Self.Items[i].Assinar; end; O erro ocorre na linha Self.Items[i].Assinar; O que pode ser? Será que tenho desinstalar o ACBr e instalar novamente? Desde já Muito Obrigado pela ajuda!

Testando mais um pouco, descobri que o erro ocorre depois de executar o ACBrMDFe1.Enviar, dentro da unit ACBMDFe quando executa a função : function TACBrMDFe.Enviar(const ALote: String; Imprimir:Boolean = True; ASincrono: Boolean = False): Boolean; o erro acontece ao executar o procedure Manifestos.Assinar que está na unit ACBrMDFeManifestos. procedure TManifestos.Assinar; var i: integer; begin for i := 0 to Self.Count - 1 do Self.Items[i].Assinar; end; O erro ocorre na linha Self.Items[i].Assinar; O que pode ser? Será que tenho desinstalar o ACBr e instalar novamente? Desde já Muito Obrigado pela ajuda!

Bom dia Italo! Então essa parte de GerarMdfe e Gravarxml eu pus agora na tentativa meio no desespero já que o cliente está com caminhão já em trânsito ae fiz essa tentativa. Mas o problema o erro acontece no Enviar antes até desse trecho e antes da atualização não ocorria enviava normalmente. Tem alguma configuração nova no componente ACBrMDFe? Obrigado pela Ajuda!

Olá Bom Dia! Atualizei a versão do ACBr pois no manifesto agora está exigindo a informação do produto predominante, pois bem depois de feito a atualização e a mesma compilou normalmente no delphi, atualizei também a pasta schemas, mas ao tentar gerar e enviar o manifesto está ocorrendo um erro de Access Violation(segue em anexo a imagem do erro). Essa parte de enviar o manifesto funcionava antes de atualizar a versão, mas agora da esse erro o pode ser? Fiz a atualização do meu windows 7 64 bits sp1 só ficou 3 atualizações importantes mas que não atualiza será que pode ter haver com esse erro? No ACBrMDFe tem alguma opção de ativar para ele gerar arquivo de log? Segue o trecho do programa: LerConfiguracao; ACBrMDFe1.Manifestos.Clear; GerarMDFe(CEnummanif.text); ACBrMDFe1.Manifestos.Imprimir;//espelho if(Application.Messagebox(pchar(' Os Dados do Manifesto(MDF-e)) estão Corretos?'+chr(10)+chr(13)+' Clique em SIM para Gerar e Enviar!'+chr(10)+chr(13)+' Clique em NÃO para não Gerar e Enviar está MDF-e! '),'Aviso',MB_ICONQUESTION+ MB_DEFBUTTON2 +MB_YESNO+ MB_SYSTEMMODAL)=IDYES) then begin if (ACBrMDFe1.Enviar(0,false) = true) //O ERRO ACONTECE AQUI <----- then begin ACBrMDFe1.Manifestos.GerarMDFe; ACBrMDFe1.Manifestos.Items[0].GravarXML(); end; end; Já tentei atualizar dll e nada o que pode ser ? Desde já Muito Obrigado pela Ajuda!

Olá Tudo Bem! Obrigado Daniel pela Ajuda! Verdade tinha mascarado o erro pra fazer um teste uma vez e acabou ficando. Agora com o erro verdadeiro aparecendo era um InputOut, na hora de enviar pra impressora, estranho pois estava tudo certo, questionei o cliente se estava tudo certo com a impressora, cabo ele disse que sim, ae fui no cliente e pra minha surpresa eles trocaram de impressora de uma epson pra uma tal id control, e não me falaram nada simplesmente trocaram uma por outra, e acharam que estava tudo certo só que na verdade essa impressora nova não foi instalada corretamente, então fiz a instalação e configurei ela e tudo voltou ao normal na hora de finalizar o SAT. Muito Obrigado pela Ajuda de Todos! Problema resolvido.

Olá Tudo Bem! Obrigado por me ajudarem Juliomar e Antonio! Fiz e coloquei uma versão nova no cliente, vamos ver qual o problema. Obrigado pela informação, fiz a alteração do jeito que o Juliomar sugeriu e já coloquei uma versão nova no cliente, estou no aguardo assim que tiver uma pista do erro ou mesmo a resolução já posto aqui. Muito Obrigado pela Ajuda!

Olá Tudo Bem! Estou com um problema em um cliente no qual parou de gerar/imprimir o SAT, ao invés de imprimir ou mesmo mostrar na tela o SAT está exibindo a mensagem: Emitido com Sucesso + conteúdo notas. Retorno CF - e - SAT ao AC para contingência. Olhando o arquivo de log, não indica nenhum erro, o xml é gerado e o mais estranho fui no site da sefaz e a venda consta-la então baixei o xml da mesma e está exatamente igual ao que gerou na pasta ou seja a venda foi autorizada, mas não está imprimindo quando configurado pra ir direto pra impressora ou mesmo pra mostra na tela. Estava funcionando até dois dias atrás, não sei dizer o que aconteceu ou pode estar acontecendo. Será que algo com o aparelho? Fiz testes usando o emulador fazendo a mesma venda e a venda é autorizada corretamente e a impressão e feita sem problemas e só nesse cliente. Estou usando o ACBrSAT e ACBrSATExtratoFortes. trecho do meu código: try PrepararImpressao; dmvenda.ACBrSAT1.ImprimirExtrato; except msg:=MensagemCodigoRetorno(dmvenda.ACBrSAT1.Resposta.codigoDeRetorno); Application.Messagebox(pchar(msg),'Aviso!',mb_OK+MB_ICONWARNING+MB_SYSTEMMODAL); end; Em anexo está o arquivo de log, a imagem da mensagem e os dois arquivos xml o gerado na pasta de xml e o que eu fiz o download da sefaz da mesma venda. Por Favor alguém sabe o que significa essa mensagem? Desde já Muito Obrigado pela Atenção!! ACBrSAT.log 351200731003997934639.xml AD35200728088015000172590005855830001247964373.xml

Vou perguntar para o técnico que criou essas contas. Mas o engraçado é que, apenas neste PC do cliente, pelo "Testar Configuração" ele funciona, mas pelo meu Sistema não.

Não. O micro que funciona é win 7 64 bits.

Certo certo.... vou postar. LOG.TXT