Mauricio Elias

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

Bom dia pessoal. Estou começando a enviar emails de xml pelo Sistema, tem funcionado certinho até então. Mas estou com um caso, usando SMTP dessa mail.sysbrasil.com.br , que funciona em um PC, e em outro não. O detalhe é que no teste de envio do Acbr, botão "Testar Configuração" ele envia corretamente. Mas pelo Sistema dá o erro, no SAI.TXT, descrito abaixo: ERRO: SMTP Error: Unable to send MailTo. 550 without authentication. Segue as configurações no AcbrMPlus 1.3.0.305, no win 7 32 bits: Host SMTP: mail.sysbrasil.com.br Codificação: UTF-8 Porta: 25 (porta 587 nem o teste funciona) SSL: Nao TLS: Sim Obrigado. Maurício.

Deu certinho. Perfeito. Muito obrigado pessoal. Dá pra inserir junto, uma logo do cliente ? Certamente alguém vai pedir isso, aff.

Ótimo, deu certo. Se eu quiser mais de uma linha, repito o comando várias vezes? Ou separo com ; ?

Sim sim, usei todos os parâmetros corretamente. Neste caso usei: EMAIL.UsarHTML(False) O email foi enviado e recebido corretamente, mas sem o Texto de Assunto.

Olá boa tarde. Utilizo o AcbrMonitorPlus 1.3.0.305 x86, windows 7. Estou iniciando o envio automático de XML por email, utilizando os comandos abaixo: EMAIL.Novo EMAIL.AdicionaPara EMAIL.Assunto EMAIL.TextoMensagem("Segue em anexo o arquivo XML da Nota Fiscal") OK: (Sai.txt) EMAIL.UsarHTML EMAIL.TentativasEnvio(3) EMAIL.ConfirmarLeitura EMAIL.SetPrioridade EMAIL.SetCodificacao EMAIL.AdicionaAnexo EMAIL.Enviar Funcionou muito bem, entretanto, o Texto da Mensagem não aparece no email recebido. O que poderia tá acontecendo ? Abraços.

Olá Italo Boa Tarde Segue o xml. E o print da rejeição. Obrigado pela Ajuda e Atenção! 50200616416627000168580010000000161000000166-mdfe.xml