Franklin

Apareceu as duas assinaturas depois de atualizar todo o repositório + as 2 units acima. NFSe autorizada com essa alteração. Obrigado pela solução.

O problema é que está sendo atribuído duas 2x , mesmo naquele fonte que você me enviou anteriormente.

Se clicar na foto ela amplia. Parece que está faltando uma assinatura na tag <LoteRPS> Vou enviar a parte final da imagem novamente abaixo, espero que fique vísivel. Referente a 1) TAG <ValorISS>, alterei a unit SimplISS.GravarXml para NrOcorrValorISS := 1; e a tag do ValorIss gerou conforme esperado. Depois que passar pela assinatura, efetuo o teste com e sem a tag e te aviso.

Com os novos arquivos enviado acima, confirmo, via Debug, que foram executadas as suas alterações, mas mesmo assim ainda ocorre o retorno de assinatura abaixo indicado. 2021-12-07 11:21:30 [2796] info Thread_3840 - Erro(s): 2021-12-07 11:21:30 [2796] info Thread_3840 - Código : E172 2021-12-07 11:21:30 [2796] info Thread_3840 - Mensagem: Arquivo enviado com erro na assinatura. 2021-12-07 11:21:30 [2796] info Thread_3840 - Correção: Acerte a assinatura do arquivo. 2021-12-07 11:21:30 [2796] info Thread_3840 - --------- 2021-12-07 11:21:33 [2796] info Thread_3840 - Ajuste no valor do retorno: NFS-e não foi confirmada: Arquivo enviado com erro na assinatura. Na comparação dos arquivos gerados, noticia boa, que reduziu as diferenças sendo : 1) TAG <ValorISS> <ValorIss>9.20</ValorIss> ---> no componente antigo = gerava essa tag. ---> no ACBrNFSeX não gera (talvez não seja relevante). 2) Na parte final do XML conforme a figura abaixo, me parece que a estrutura de assinatura está diferente.

Olá @Italo Giurizzato Junior Obrigado pela atenção. no arquivo do mês 11, da esquerda, gerado pelo ACBRNFSe, tem o xmlns e foi autorizado. no arquivo do mês 12, da direita, gerado pelo ACBRNFSeX, não aparece o xmlns e não autoriza, informando a mensagem de erro da assinatura. Após configurar o componente, adicionei o "NameSpaceURI" como indicado abaixo: ACBrNFSeX.SSL.NameSpaceURI := 'http://www.abrasf.org.br/nfse.xsd'; ACBrNFSeX.Emitir( IntToStr(NumLot), meAutomatico, False ); if ACBrNFSeX.WebService.Emite.Sucesso then begin // tratamento retorno.... end; Sem o "NameSpaceURI", está ocorrendo exception em

Complementando, notei também que existe mais uma diferença entre os arquivos, no xmlns do RPS Será que preciso setar mais alguma propriedade no componente?

Bom dia Pessoal, Efetuando a migração para o novo componente ACBrNFSeX, cidade Blumenau/SC, provedor SimplISS, estou recebendo seguinte retorno abaixo <EnviarLoteRpsResposta> <ListaMensagemRetorno> <MensagemRetorno> <Codigo>E172</Codigo> <Mensagem>Arquivo enviado com erro na assinatura.</Mensagem> <Correcao>Acerte a assinatura do arquivo.</Correcao> </MensagemRetorno> </ListaMensagemRetorno> </EnviarLoteRpsResposta> Comparando os arquivos gerados notei a seguinte diferença Para o envio está sendo utilizado o método ACBrNFSeX.Emitir( IntToStr(NumLot), meAutomatico, False ); Agradeço qualquer colaboração

Bom dia Alguma novidade na implementação da impressão do DANFE no formato ESC POS ?

Habilitada a diretiva {$DEFINE DFE_SEM_LIBXML2} em ACBr.inc e problema resolvido. Obrigado a todos envolvidos, favor encerrar tópico.

não consigo pegar a call stack, por isso que disponibilizei o aplicativo teste no primeiro post para simulação, lembrando que até a revisão 17740 não exibe o AV.

Olá @Juliomar Marchetti a mensagem de erro ocorre em 3 ambientes que testei que foram WindowsXP, Windows 10 e Windows 2008 R2.

Complementando informações, utilizando no Delphi 2009: até a revisão 17740 não ocorre erro revisão 17741 foi adicionado o leitor de xml usando LibXml2 na revisão 17745 e 17750 estão com a compilação quebrada a partir da revisão 17754 ocorre erro.

Fiz novos testes e compilando o projeto pelo Delphi versão 10.3.2 não ocorre erro em nenhum ambiente. Ou seja, é algo relacionado ao Delphi 2009

Olá pessoal, Estou com um problema de AV ao fechar a aplicação quando utilizado o componente ACBrNFe. Segue imagem da mensagem: Ambiente de desenvolvimento: * Delphi 2009 32bits executado em WindowsXP 32bits * Revisão ACbr 17963 de 18/10/2019 13:57 * ACBr.inc com a diretiva do MinGW ativa {$DEFINE USE_MINGW} utilizando como base o tópico https://www.projetoacbr.com.br/forum/topic/34177-acbrdfe-openssl-e-tls12/ * Todas as DLLs da lista abaixo presentes na pasta do executável: acbr_trunk2\DLLs\XMLSec\MinGW\32 acbr_trunk2\DLLs\OpenSSL\1.0.2.19\x86 acbr_trunk2\DLLs\LibXml2\x86 acbr_trunk2\DLLs\Diversos\x86 Anexo um aplicativo teste que simula a mensagem. Notas: * sempre ocorre ao fechar o aplicativo, sendo executado pelo delphi ou mesmo por fora(explorer) * não consigo depurar pelo delphi, suspeito que é quando o executável começa a descarregar as DLLs * recompilando o mesmo projeto em uma revisão mais antiga do ACBr (rev 17566) o problema não ocorre *Fiz testes em outros PCs com Win10 e também é exibo a mensagem de erro. Obrigado pela atenção. TesteDFe.7z

@Marcelo Reisdörfer2 quando você diz "Fui no site da receita e enviei o arquivo pra teste." Qual site que você está usando ?

Aqui Já tentei e não vaí...

Bom dia Rafael, Vou começar a remar neste barco também, só não consigo entender, por que não fizeram a "copia" do webservice, que "acredito" que já funciona em outras cidades.

Usando a ultima revisão SVN, transmiti algumas Notas usando o WS de migração (nota-blu), resultado: Está bem instável, enviei 12, destas 2 NFSe retornaram com o numero da NFS-e, nas demais o recebi erro internal server error 500 e time out de requisição.

Olá brafelinfo Seus arquivos de schemas (XSD) estão desatualizados. Atualize com os novos arquivos disponibilizados no repositorio.

Obrigado EMBarbosa, favor marcar o tópido como resolvido/encerrado.

Verdade bigwings , fontes atualizados. Segue anexo patch. Obrigado ACBrUtil.pas.patch

Pessoal, Alguns XML de NFS-e do provedor NotaBlu estão sendo transmitidos e exibido corretamente no site, porem o XML é salvo na pasta é incompleto EX: <?xml version="1.0" encoding="UTF-8"?><CompNfse xmlns="http://www.blumenau.sc.gov.br/nfse"><Assinatura>svY/9lLmb+Ayd9lulIrJVgFBGPkMwqww+uipMNwD6IDPvRhb48GsauLxFN93kQJaAsNnWdFUFdmyR4/ReyyJcbGsL8B0+1okOzrB5nU9DRbQuctWVWXxeZtneZ//QajjxCdbpm3cpW7TF7gribtNHN5dXZ3MkWaRMehatD1Mji0HWS0wg1l</CompNfse> Apos depurar localizei o problema, na Tag <Assinatura> contem o texto /nfE, isso mesmo, por coincidencia o texto /nfE está lá... o XML Completo é: (algumas tags com dados da nota foram alteradas) <?xml version="1.0" encoding="UTF-8"?><CompNfse xmlns="http://www.blumenau.sc.gov.br/nfse"><Assinatura>QckcgbXdY0ywBXVkvem3NH7+TyStNWuFnpSZ/6Wz/G+gc/639IiEn7niy7npa2BGFcC7l+JroAJtfG1E/xl+fM+Vm6y82PDk5e+eGNEFTx4zYHjwPOzGrlZdomNdUUTInVTGjVN+DP1/QiIF1B5xyJ15L1eHS9N4CTBAz4cYlDbvhSoZGk04JMurmtHTvB/GwA1eUefSl7apfM1BMIfbC9aof3kcrKRn1WK9z2k9RtF97V+ee/nfENxbI55JJIzYnCUiI4Tq+YWfodG3UrPszG/U15m72F4RmGNZE6/pbFWaMx0BqvlJYqdwdtqb4MzPAH4Hh/ix6UD37ob344ItaA==</Assinatura><ChaveNFe><InscricaoPrestador>99999</InscricaoPrestador><NumeroNFe>9999</NumeroNFe><CodigoVerificacao>BQRVFXZB</CodigoVerificacao></ChaveNFe><DataEmissaoNFe>2019-04-01T16:05:14</DataEmissaoNFe><NumeroLote>14756924</NumeroLote><ChaveRPS><InscricaoPrestador>99999</InscricaoPrestador><SerieRPS>1</SerieRPS><NumeroRPS>3612</NumeroRPS></ChaveRPS><TipoRPS>RPS</TipoRPS><DataEmissaoRPS>2019-04-01</DataEmissaoRPS><CPFCNPJPrestador><CNPJ>999999999999999</CNPJ></CPFCNPJPrestador><RazaoSocialPrestador>ZZZZ LTDA EPP</RazaoSocialPrestador><EnderecoPrestador><TipoLogradouro>RUA</TipoLogradouro><Logradouro>XXXXX</Logradouro><NumeroEndereco>111</NumeroEndereco><ComplementoEndereco>SALA A</ComplementoEndereco><Bairro>ZZZZZZ</Bairro><Cidade>4202404</Cidade><UF>SC</UF><CEP>89052000</CEP></EnderecoPrestador><StatusNFe>N</StatusNFe><TributacaoNFe>T</TributacaoNFe><OpcaoSimples>4</OpcaoSimples><ValorServicos>1.1</ValorServicos><CodigoServico>105</CodigoServico><AliquotaServicos>0.02</AliquotaServicos><ValorISS>0.01</ValorISS><ValorCredito>0</ValorCredito><ISSRetido>false</ISSRetido><CPFCNPJTomador><CNPJ>99999999999999</CNPJ></CPFCNPJTomador><InscricaoEstadualTomador>99999999</InscricaoEstadualTomador><RazaoSocialTomador>AAAAA LTDA</RazaoSocialTomador><EnderecoTomador><Logradouro>RUA </Logradouro><NumeroEndereco>9</NumeroEndereco><Bairro>AAA</Bairro><Cidade>4218202</Cidade><UF>SC</UF><CEP>89120000</CEP></EnderecoTomador><Discriminacao>NOME SERVICO</Discriminacao></CompNfse> com este XML no arquivo ACBr\Fontes\ACBrDFe\ACBrNFSe\PCNNFSe\pnfsLerListaNFSe.pas no método function TRetornoNFSe.LerXml: Boolean; linha 494 temos if NFSe.XML = '' then FNFSe.XML := SeparaDados(Leitor.Grupo, 'NFe'); Para corrigir foi preciso refatorar a função SeparaDados na unit ACBrUtil function SeparaDados(const AString: String; const Chave: String; const MantemChave: Boolean): String; var PosIni, PosFim : Integer; UTexto, UChave :String; begin UTexto := AnsiUpperCase(AString); UChave := AnsiUpperCase(Chave); PosFim := 0; if MantemChave then begin PosIni := Pos('<' + UChave, UTexto); if PosIni > 0 then PosFim := Pos('/' + UChave, UTexto) + length(UChave) + 3; if (PosFim = 0) then begin PosIni := Pos('NS2:' + UChave, UTexto) - 1; if PosIni > 0 then PosFim := Pos('/NS2:' + UChave, UTexto) + length(UChave) + 3; end; end else begin PosIni := Pos('<' + UChave, UTexto) ; if PosIni > 0 then begin PosIni := PosIni + Pos('>', copy(UTexto, PosIni, length(UTexto))); // PosFim := Pos('/' + UChave, UTexto); ////////////////// com erro ////////////////////////////////// PosFim := Pos('/' + UChave + '>', UTexto); // sem erro end; if (PosFim = 0) then begin PosIni := Pos('NS2:' + UChave, UTexto) ; if PosIni > 0 then begin PosIni := PosIni + Pos('>', copy(UTexto, PosIni, length(UTexto))); PosFim := Pos('/NS2:' + UChave, UTexto); end ; end; end; Result := copy(AString, PosIni, PosFim - (PosIni + 1)); end;

Parabéns a todos envolvidos, Alem do tema, com a ampliação do servidor ficou mais rápido acessar as páginas. Fica uma sugestão para adicionar a linguagem pascal ao inserir comentários de código.

Olá Juliana Segue anexo o arquivo a ser alterado na pasta "ACBr\Exemplos\ACBrSAT\Delphi\" unit1.pas

Alguém que tenha permissão de commit pode realizar a correção no Demo do SAT que irá corrigir e fechar este tópico. Arquivo "ACBr\Exemplos\ACBrSAT\Delphi\unit1.pas" na linha 424 procedure TForm1.AjustaACBrSAT ; begin with ACBrSAT1 do begin if TACBrSATModelo( cbxModelo.ItemIndex ) = mfe_Integrador_XML then begin ACBrIntegrador1.PastaInput := edMFEInput.Text; ACBrIntegrador1.PastaOutput := edMFEOutput.Text; ACBrIntegrador1.Timeout := seMFETimeout.Value; Integrador := ACBrIntegrador1; end; Modelo := TACBrSATModelo( cbxModelo.ItemIndex ) ; ArqLOG := edLog.Text; NomeDLL := edNomeDLL.Text; Config.ide_numeroCaixa := seNumeroCaixa.Value; Config.ide_tpAmb := TpcnTipoAmbiente( cbxAmbiente.ItemIndex ); Config.ide_CNPJ := edtSwHCNPJ.Text; Config.emit_CNPJ := edtEmitCNPJ.Text; Config.emit_IE := edtEmitIE.Text; Config.emit_IM := edtEmitIM.Text; Config.emit_cRegTrib := TpcnRegTrib( cbxRegTributario.ItemIndex ) ; Config.emit_cRegTribISSQN := TpcnRegTribISSQN( cbxRegTribISSQN.ItemIndex ) ; Config.emit_indRatISSQN := TpcnindRatISSQN( cbxIndRatISSQN.ItemIndex ) ; Config.PaginaDeCodigo := sePagCod.Value; Config.EhUTF8 := cbxUTF8.Checked; Config.infCFe_versaoDadosEnt := StringToFloatDef( sfeVersaoEnt.Text, cversaoDadosEnt); ConfigArquivos.SalvarCFe := cbxSalvarCFe.Checked; ConfigArquivos.SalvarCFeCanc := cbxSalvarCFeCanc.Checked; ConfigArquivos.SalvarEnvio := cbxSalvarEnvio.Checked; ConfigArquivos.SepararPorCNPJ := cbxSepararPorCNPJ.Checked; ConfigArquivos.SepararPorModelo := cbxSepararPorModelo.Checked; ConfigArquivos.SepararPorDia := cbxSepararPorDia.Checked; ConfigArquivos.SepararPorMes := cbxSepararPorMes.Checked; ConfigArquivos.SepararPorAno := cbxSepararPorAno.Checked; end; end;