Juliano Otaviano Barreto

Te agradeço pela responde Breno, mas como eu disse já tinha lido vários tópicos do forum sobre este assunto, principalmente este que você citou e eu não entendi como devo proceder no meu caso, pois o que eu entendi que os exemplos mencionados tratam de gerar o xml com o acbrmonitor. Portanto, eu não entendi em qual parte do meu código eu terei que alterar, levando em conta que o número da chave até então é criado automaticamente pelo componente na hora de criar o arquivo XML. Pelo menos é assim que eu sei que acontece, se for diferente, gostaria de saber.

Saudações, Eu já li os outros tópicos que falam deste assunto mas eu tive a impressão que eles se referem apenas aos programadores que utilizam o ACBrMonitorPlus, no meu caso, até agora o meu sistema faz tudo, desde gerar, validar, até transmitir a nota fiscal e os seus eventos. Então eu não entendi o que eu preciso alterar no meu sistema para que resolva este problema. Se for possivel, alguem me explica como tratar a rotina que gera o arquivo XML para me adequar a esta realidade. Desde já agradeço.

Saudações; Estou tendo problemas com a função function StringToFloatDef(const NumString : String ; const DefaultValue : Double 7 ) : Double ; eu pude perceber que esta função está recebendo ao receber o valor da nota fiscal, como no exemplo abaixo: <ValorLiquidoNFSe>1.440,00</ValorLiquidoNFSe> esta função está recebendo 1,440,00 Gerando um erro nesta parte do código: try Result := StringToFloat(Retorno) ; except Result := DefaultValue ; end ; Alguma sugestão.. ?

Obrigado Juliana, Eu já verifiquei... Mas eu encontrei apenas como imprimir via RPS... Como eu ainda não consegui... apartir dai eu estou tentando pegar o xml e transformá-lo em RPS...

Saudações, É possivel imprimir a DANFSe de uma nota fiscal que eu tenha apenas o arquivo XML? Muita das vezes quando vou implantar o sistema em algumas empresas eles já possuem várias notas fiscais lançadas no site da prefeitura e temos o padrão de importar para o nosso sistema estas notas fiscais, até então, não conseguimos imprimir as DANFSe destas notas fiscais importadas. Para mim seria interessante se houvesse uma maneira de imprimir ou gerar uma RPS apenas com esta finalidade de imprimir a DANFSe. Desde já eu agradeço a atenção dos colegas.

Pode fechar este tópico. Eu tinha entendido errado alguns detalhes da Distribuição DFe e agora está tudo OK.

Saudações, Amigos eu já procurei no forum e não vi ninguem tocando neste assunto, eu já implantei em meu sistema e está funcionando bem na maioria das empresas, porém eu estou percebendo que algumas empresas não recebem informações de nenhum arquivo XML de notas fiscais, estão recebendo apenas os eventos de manifesto. Alguem sabe se existe alguma condição para que a empresa receba o manifesto de notas fiscais emitidas para o seu CNPJ? Acho muito estranho que na maioria das empresas funciona perfeitamente e em algumas o retorno é apenas dos eventos. Desde já agradeço a atenção de todos.

Saudações Italo. Eu experimentei de várias formas: 1401 14.01 1401 com o numero do código tributário na frente e 14.01 com o numero do código tributário na frente Eu até estou em contato com o pessoal do Ginfes mas eles respondem a cada 2 dias. Desde já agradeço a sua atenção.

Saudações. Já faz algum tempo que estou com problema para implementar a NFS-e de Contagem para o provedor Ginfes, gostaria de que alguém que saiba alguma coisa me desse uma ajudinha. Trata-se do seguinte: Acessando o site da prefeitura de contagem eu pude ver que o item da lista de serviço é 14.01; e o código de tributação do município é 331471001... Vejam como está o meu RPS: </ns4:Valores> <ns4:ItemListaServico>1401</ns4:ItemListaServico> <ns4:CodigoTributacaoMunicipio>331471001</ns4:CodigoTributacaoMunicipio> <ns4:Discriminacao>MANUTENCAO EM BALANCA;BOLETO VENCIMENTO 09/02/2019</ns4:Discriminacao> <ns4:CodigoMunicipio>3118601</ns4:CodigoMunicipio> Desde já agardeço.

Após gerar e assinar o arquivo XML o meu sistema tem uma aba onde o usuário pode visualizar o arquivo XML, acho que talvez o problema esteja na quebra de linha no "Nó da assinatura".

Isto acontece na minha aplicação, apenas em uma empresa, tenho clientes que utilizam vários tipos de certificados, mas neste especificamente está acontecendo isto quando vai assinar o arquivo XML da nota fiscal. Meu ACBr está atualizado.

Boa tarde, Eu estou pesquisando o porque está dando este erro no certificado digital de uma empresa, ele é do tipo A1 e começou de uma hora pra outra. Copiei para outro computador e fiz a instalação e acontece a mesma coisa. Tentei no Google mas não encontrei nenhuma informação. Será que algum nobre colega tem o conhecimento do que possa estar acontecendo? Estou pesquisando o máximo possível antes de dizer para o cliente que o certificado está danificado. Em algumas ocasiões eu recebo esta mensagem; Falha ao localizar o nó de assinatura

Post concluido!

Saudações amigos, desculpe a simplicidade do meu tópico mas eu já procurei por toda parte e não estou conseguindo solução. A questão é que um dos clientes da minha empresa deseja testar a NFe por algumas semanas, ou seja, emitir as notas fiscais em ambiente de homologação. Em nosso sistema existe a configuração do ambiente, da mesma maneira que o "Monitor" mas toda vez que gera o arquivo XML ele está sendo gerado com 'Tpamb=1', mesmo com a configuração de homologação. Sei que hoje em dia é muito raro as empresas desejarem usar a NFe em homologação mas acontece, né? Fiz os testes tanto com a versão 3.10 e 4.00... acontece sempre o mesmo. Espero que alguem possa ter uma ideia do que pode ser. Att. Juliano

Obrigado pela atenção pessoal. Deixei desta forma o trecho que vcs pediram para retirar: //{$IFDEF ACBrCTeOpenSSL} //CTe.Configuracoes.Certificados.Certificado:=dm.qrempresa.fieldbyname('CERTIFICADO_CAMINHO').asstring; CTe.Configuracoes.Certificados.ArquivoPFX:=dm.qrempresa.fieldbyname('CERTIFICADO_CAMINHO').asstring; CTe.Configuracoes.Certificados.Senha:=dm.qrempresa.fieldbyname('CERTIFICADO_SENHA').AsString; //{$ELSE} // CTe.Configuracoes.Certificados.NumeroSerie:=dm.qrempresa.fieldbyname('CERTIFICADO_NUMERO_SERIE').asstring; // CTe.Configuracoes.Certificados.Senha:=dm.qrempresa.fieldbyname('CERTIFICADO_SENHA').AsString; //{$ENDIF} Mas durante a execução estão aparecendo: Erro ao ler informações do certificado. Provavelmente a senha está errada.

Boa tarde amigos, Por estar aparecendo diversos problemas para enviar conhecimentos de transporte para a SEFAZ/MG estou optando em converter o meu sistema de CAPICOM para DLL, poré estou tendo dificuldades, conto com a ajuda daqueles que tem o conhecimento necessário para me ajudar. Vejam: 1) Eu fui no componente ACBrCTe e configurei : CONFIGURAÇÕES / GERAL / SSLIB para libOpenSSL 2) Para configurar o compenente ACBrCTe estou usando a seguinte rotina: {$IFDEF ACBrCTeOpenSSL} CTe.Configuracoes.Certificados.Certificado:=dm.qrempresa.fieldbyname('CERTIFICADO_CAMINHO').asstring; CTe.Configuracoes.Certificados.ArquivoPFX:=dm.qrempresa.fieldbyname('CERTIFICADO_CAMINHO').asstring; CTe.Configuracoes.Certificados.Senha:=dm.qrempresa.fieldbyname('CERTIFICADO_SENHA').AsString; {$ELSE} CTe.Configuracoes.Certificados.NumeroSerie:=dm.qrempresa.fieldbyname('CERTIFICADO_NUMERO_SERIE').asstring; CTe.Configuracoes.Certificados.Senha:=dm.qrempresa.fieldbyname('CERTIFICADO_SENHA').AsString; {$ENDIF} Cte.Configuracoes.Geral.Salvar:=True; Cte.Configuracoes.Arquivos.PathSchemas:=ExtractFilePath(Application.ExeName)+'Schemas\Cte\V200'; Cte.Configuracoes.Arquivos.PathSalvar:=dm.qrempresa.fieldbyname('CTE_PATH_CTE').asstring; Cte.Configuracoes.Arquivos.PathCTe:=dm.qrempresa.fieldbyname('cte_path_cte').asstring; Cte.Configuracoes.Arquivos.PathEvento:=dm.qrempresa.fieldbyname('cte_path_can').asstring; Cte.Configuracoes.Arquivos.PathInu:=dm.qrempresa.fieldbyname('cte_path_inu').asstring; CTe.Configuracoes.Geral.FormaEmissao:=StrToTpEmis(OK,dm.qrempresa.fieldbyname('webservice_ambiente').asstring); CTe.Configuracoes.WebServices.UF:=UpperCase(dm.qrempresa.fieldbyname('webservice_uf').AsString); CTe.Configuracoes.WebServices.Ambiente:=StrToTpAmb(Ok,dm.qrempresa.fieldbyname('webservice_ambiente').asstring); if dm.qrempresa.fieldbyname('webservice_visualizar').asstring='S' then CTe.Configuracoes.WebServices.Visualizar := true else CTe.Configuracoes.WebServices.Visualizar := false; {$IFDEF ACBrCTeOpenSSL} CTe.Configuracoes.WebServices.ProxyHost := dm.qrempresa.fieldbyname('webservice_host').asstring; CTe.Configuracoes.WebServices.ProxyPort := dm.qrempresa.fieldbyname('webservice_porta').asstring; CTe.Configuracoes.WebServices.ProxyUser := dm.qrempresa.fieldbyname('webservice_usuario').asstring; CTe.Configuracoes.WebServices.ProxyPass := dm.qrempresa.fieldbyname('webservice_senha').asstring; {$ELSE} {$ENDIF} O que pude perceber é nos IFs ({$IFDEF ACBrCTeOpenSSL}) o fluxo do programa sempre vai para após o ELSE... 3) Ao executar o sistema aparece o seguinte problema quando tento executar qual comando com o ACBrCTe: Erro ao ler as informações do certificado. Provavelmente a senha está incorreta. Já verifiquei o caminho do certificado e a senha e ambos estão corretos.

Muito obrigado Jaques... Para resolver no meu caso eu fiz vários testes do sistema e quando aparece um erro por sorte o Delphi me apresenta a unit do ACBr onde o erro se originou, dai neste local eu chamo um form especifico para exibir e.message. Assim tá funcionando, porém terei que lembrar de refazer este processo toda vez que atualizar o ACBr. RESOLVIDO

Saudações, Antes de atualizar o meu sistema para Trunk2 no meu sistema existia uma rotina que captava as exceções (erros do sistema) gerados pelo AcbrNFe, desta forma eu ajudava ao usuário como solucionar o problema que ocasionou a exceção, porém após a atualização esta rotina não funciona mais pois o AcbrNFe não está mais dando retornos como antigamente. O que mudou neste ponto? Tem alguma dica de como eu retorno esta função que para mim é muito importante. Desde já, agradeço.

Obrigado Cleber.

Bom dia Italo, Fiz a mudança e o problema alterou, agora a mensagem é: Erro desconhecido ao enviar o lote! Unit : ACBrNFSeWebServices function TWebServices.Envia(ALote: String): Boolean; begin self.Enviar.FNumeroLote := ALote; Result := Self.Enviar.Executar; if not (Result) then begin if Assigned(TACBrNFSe( FACBrNFSe ).OnGerarLog) then TACBrNFSe( FACBrNFSe ).OnGerarLog(Self.Enviar.Msg); if Self.Enviar.Msg <> '' then raise Exception.Create(Self.Enviar.Msg) else raise Exception.Create('Erro Desconhecido ao Enviar o Lote!') end; Ao invés de enviar todos os arquivos de retorno do GovDigital separadamente, vou compacta-los. Desde já agradeço pela ajuda. 201501.rar

Oi Cleber, estou com este mesmo problema, você conseguiu resolvê-lo?

Bom dia Italo, muitissimo obrigado pela atenção. Fiz a atualização do ACBr, recompilei o sistema e inclusive usei a opção de compilação "Build" no Delphi 7 mas o problema permanece. Ainda estou em busca de uma solução.

Saudações, Estou implementando a NFSe para Divinópolis/MG que utiliza o provedor GovDigital, endereços: Produção > https://ws.govdigital.com.br/ws/div Homologação > https://homolog.govdigital.com.br/ws/div O RPS está sendo gerado e aparentemente assinado, mas quando executa a unit 'ACBrNFEsWebServices' na function: function TWebServices.Gera(ARps:Integer): Boolean; begin self.GerarNfse.FNumeroRps := ARps; Result := Self.GerarNfse.Executar; if not (Result) then begin if Assigned(TACBrNFSe( FACBrNFSe ).OnGerarLog) then TACBrNFSe( FACBrNFSe ).OnGerarLog(Self.GerarNfse.Msg); if Self.GerarNfse.Msg <> '' then raise Exception.Create(Self.GerarNfse.Msg) else raise Exception.Create('Erro Desconhecido ao Gerar NFS-e!') end; end; Ocorre o erro List Index Out Of Bounds na linha : Result := Self.GerarNfse.Executar; enfim, passei muitas horas tentando resolver esta questão mas não estou conseguindo, se alguém puder me dar a sua opinião eu ficaria muito agradecido. Vou anexar o arquivo XML da RPS em questão para ajudar na analise. 6A-Rps.xml 6A-Rps2.xml 6-ger-nfse.xml 6-ger-nfse-soap.xml 6-lista-nfse.xml 6-lista-nfse-soap.xml

Boa tarde colegas, Hoje efetuei a atualização do componente e imediatamente surgiu este problema na compilação, meu fonte está da seguinte forma: case strtoint(qrnotasfiscais.Fieldbyname('ncnftipo').asstring) of 0: // Nota fiscal modelo 01 begin // Nota Fiscal {$IFDEF PL_200} with infCTeNorm.infDoc.infNF.Add do {$ELSE} with Rem.InfNF.Add do (ERRO ESTÁ NESTA LINHA) {$ENDIF} begin serie :=qrnotasfiscais.Fieldbyname('ncnfserie').asstring; nDoc :=qrnotasfiscais.Fieldbyname('ncnumeronf').asstring; dEmi :=qrnotasfiscais.Fieldbyname('ncnfemissaonf').asdatetime; vBC :=qrnotasfiscais.Fieldbyname('ncnfbcicms').asfloat; vICMS :=qrnotasfiscais.Fieldbyname('ncnfvricms').asfloat; vBCST :=qrnotasfiscais.Fieldbyname('ncnfbcicmsst').asfloat; vST :=qrnotasfiscais.Fieldbyname('ncnficmsst').asfloat; vProd :=qrnotasfiscais.Fieldbyname('ncnfvrmercadoria').asfloat; vNF :=qrnotasfiscais.Fieldbyname('ncnfvalor').asfloat; if length(sonumeros(qrnotasfiscais.Fieldbyname('ncnfcfop').asstring))>0 then nCFOP :=strtoint(sonumeros(qrnotasfiscais.Fieldbyname('ncnfcfop').asstring)); nPeso :=qrnotasfiscais.Fieldbyname('ncnfpeso').asfloat; //PIN :=''; {$IFNDEF PL_200} // Local de Retirada if length(sonumeros(qrretirada.fieldbyname('doc1').asstring))>13 then locret.CNPJCPF :=sonumeros(qrretirada.fieldbyname('doc1').asstring) else locret.CNPJCPF :=sonumeros(qrretirada.fieldbyname('doc1').asstring); locRet.xnome:=qrretirada.fieldbyname('razaosocial').asstring; locRet.xLgr:=qrretirada.fieldbyname('endereco').asstring; locRet.nro:=qrretirada.fieldbyname('numero').asstring; locRet.xCpl:=qrretirada.fieldbyname('complemento').asstring; locRet.xBairro:=qrretirada.fieldbyname('bairro').asstring; if (qrretirada.fieldbyname('codmunicipio').value<>null) and (length(sonumeros(qrretirada.fieldbyname('codmunicipio').AsString))>0) then locRet.cMun:=strtoint(sonumeros(qrretirada.fieldbyname('codmunicipio').asstring)); locRet.xMun:=qrretirada.fieldbyname('cidade').asstring; locRet.UF:=qrretirada.fieldbyname('uf').asstring; end; {$ENDIF} end; Eu já estou procurando solução para isto mas como vocês todos sabem que nós programadores temos a responsabilidade de manter nossos sistemas rodando entao eu preciso adiantar ao máximo a solução, quem sabe alguem nao passou por esta fase e possa me mostrar o que eu não estou conseguindo ver. Desde já agradeço a quem possa se interessar. Abs.