Juliano Otaviano Barreto

Bom dia, Estou com problemas alguns dias para validar os arquivos gerados pelo componente ACBrConvenio115. Os arquivos são gerados aparentemente sem nenhum problema, mas quando vou utilizar o Validador 3.00e ele dá mensagem de erro (imagem em anexo). Segue abaixo o conteúdo do fonte para Delphi 7 que estou utilizando. with convenio115 do begin SalvarEm := qrconfig.fieldbyname('CN115_CAMINHO_ARQUIVOS').asstring; UF := qrconfig.fieldbyname('cn115_uf').AsString; Serie := qrnotafiscal.fieldbyname('c115_serie').asstring; Ano := NumeroInteiro(formatdatetime('yyyy',qrnotafiscal.fieldbyname('c115_emissao').AsDateTime)); Mes := NumeroInteiro(formatdatetime('mm',qrnotafiscal.fieldbyname('c115_emissao').AsDateTime)); CnpjEmitente := sonumero(qrconfig.fieldbyname('cn115_cnpj').AsString); Modelo := NumeroInteiro(qrnotafiscal.fieldbyname('c115_modelo').AsString); end; N:=0; while not qrnotafiscal.eof do begin if (qrnotafiscal.FieldByName('c115_emissao').AsDate>Periodo1) and (qrnotafiscal.FieldByName('c115_emissao').AsDate<Periodo2) then begin with Convenio115 do begin OMestre := TACBrConvenio115Mestre.Create; OMestre.Destinatario.CnpjCpf := EspacosDireita(sonumero(qrcliente.fieldbyname('doc1').AsString),14); OMestre.Destinatario.InscricaoEstadual := EspacosDireita(sonumero(qrcliente.fieldbyname('doc2').AsString),14); OMestre.Destinatario.RazaoSocial := EspacosDireita(qrcliente.fieldbyname('razaosocial').AsString,35); OMestre.Destinatario.Logradouro := EspacosDireita(qrcliente.fieldbyname('endereco').AsString,45); OMestre.Destinatario.Numero := EspacosDireita(qrcliente.fieldbyname('numero').AsString,5); OMestre.Destinatario.Complemento := EspacosDireita(qrcliente.fieldbyname('complemento').AsString,15); OMestre.Destinatario.CEP := EspacosDireita(qrcliente.fieldbyname('cep').AsString,8); OMestre.Destinatario.Bairro := EspacosDireita(qrcliente.fieldbyname('bairro').AsString,15); OMestre.Destinatario.Municipio := EspacosDireita(qrcliente.fieldbyname('cidade').AsString,30); OMestre.Destinatario.UF := EspacosDireita(qrcliente.fieldbyname('uf').AsString,2); OMestre.Destinatario.Telefone := EspacosDireita(qrcliente.fieldbyname('fone1').AsString,10); OMestre.Destinatario.CodigoConsumidor := IntToStr(qrcliente.fieldbyname('codigo').asinteger); if qrnotafiscal.FieldByName('C115_TIPO_ASSINANTE').AsString='A' then OMestre.TipoAssinante:=tac1182None; if qrnotafiscal.FieldByName('C115_TIPO_ASSINANTE').AsString='B' then OMestre.TipoAssinante:=tac11182Comercial; if qrnotafiscal.FieldByName('C115_TIPO_ASSINANTE').AsString='C' then OMestre.TipoAssinante:=tac11182Industrial; if qrnotafiscal.FieldByName('C115_TIPO_ASSINANTE').AsString='D' then OMestre.TipoAssinante:=tac11182PessoaFisicaResidencial;; if qrnotafiscal.FieldByName('C115_TIPO_ASSINANTE').AsString='E' then OMestre.TipoAssinante:=tac11182ProdutorRural; if qrnotafiscal.FieldByName('C115_TIPO_ASSINANTE').AsString='F' then OMestre.TipoAssinante:=tac11182AdmPublicaEstadualConvICMS107_95; if qrnotafiscal.FieldByName('C115_TIPO_ASSINANTE').AsString='G' then OMestre.TipoAssinante:=tac11182PrestServicoTelecomConvIcms17_13; if qrnotafiscal.FieldByName('C115_TIPO_ASSINANTE').AsString='H' then OMestre.TipoAssinante:=tac11182MissoesDiplomConvIcms158_94; if qrnotafiscal.FieldByName('C115_TIPO_ASSINANTE').AsString='I' then OMestre.TipoAssinante:=tac11182Igrejas; if qrnotafiscal.FieldByName('C115_TIPO_ASSINANTE').AsString='J' then OMestre.TipoAssinante:=tac11182Outros; if qrnotafiscal.FieldByName('C115_TIPO_UTILIZACAO').AsString='A' then OMestre.TipoUtilizacao:=pc112None; if qrnotafiscal.FieldByName('C115_TIPO_UTILIZACAO').AsString='B' then OMestre.TipoUtilizacao:=pc112Telefonia; if qrnotafiscal.FieldByName('C115_TIPO_UTILIZACAO').AsString='C' then OMestre.TipoUtilizacao:=pc112ComunicacaoDados; if qrnotafiscal.FieldByName('C115_TIPO_UTILIZACAO').AsString='D' then OMestre.TipoUtilizacao:=pc112TVAssinatura; if qrnotafiscal.FieldByName('C115_TIPO_UTILIZACAO').AsString='E' then OMestre.TipoUtilizacao:=pc112ProvimentoAcessoInternet; if qrnotafiscal.FieldByName('C115_TIPO_UTILIZACAO').AsString='F' then OMestre.TipoUtilizacao:=pc112Multimidia; if qrnotafiscal.FieldByName('C115_TIPO_UTILIZACAO').AsString='G' then OMestre.TipoUtilizacao:=pc112Outros; OMestre.DataEmissao := qrnotafiscal.fieldbyname('c115_emissao').AsDateTime; OMestre.Modelo := NumeroInteiro(qrnotafiscal.fieldbyname('c115_modelo').AsString); OMestre.Serie := qrnotafiscal.fieldbyname('c115_serie').AsString; OMestre.NumeroNF := NumeroInteiro(qrnotafiscal.fieldbyname('c115_numero').AsString); OMestre.ValorTotal := qrnotafiscal.fieldbyname('C115_VALOR_TOTAL').AsFloat; OMestre.ICMS_BaseCalculo := qrnotafiscal.fieldbyname('C115_BASE_CALCULO').AsFloat; OMestre.ICMS_Valor := qrnotafiscal.fieldbyname('C115_VALOR_ICMS').AsFloat; OMestre.IsentosNaoTributadas := qrnotafiscal.fieldbyname('C115_ISENTOS_ICMS').AsFloat; OMestre.OutrosValores := qrnotafiscal.fieldbyname('C115_OUTROS_ICMS').AsFloat; OMestre.AnoMesRefencia := FormatDateTime('yymm',qrnotafiscal.fieldbyname('c115_emissao').asdatetime); // AAMM qritens.Refresh; qritens.First; A:=0; While not qritens.Eof do begin A:=A+1; ODetalhe := TACBrConvenio115Item.Create; ODetalhe.CFOP := qritens.fieldbyname('C115D_CFOP').AsString; ODetalhe.Item := A; ODetalhe.CodigoServico := IntToStr(qrservico.fieldbyname('srcodigo').AsInteger); ODetalhe.DescricaoServico := qrservico.fieldbyname('srdescricao').AsString; ODetalhe.Unidade := qritens.fieldbyname('C115D_MEDIDA').AsString; ODetalhe.ClassificacaoItem := qritens.fieldbyname('C115D_CLASSIFICACAO').AsString; ODetalhe.QtdeContratada := qritens.fieldbyname('C115D_CONTRATADA').asfloat; ODetalhe.QtdePrestada := qritens.fieldbyname('C115D_PRESTADA').asfloat; ODetalhe.ValorTotal := qritens.fieldbyname('C115D_VALOR_TOTAL').asfloat; ODetalhe.Desconto := 0; ODetalhe.AcrescimosDespAcessorias := 0; ODetalhe.ICMSBaseCalculo := qritens.fieldbyname('C115D_BASE_CALCULO').AsFloat; ODetalhe.ICMSValor := qritens.fieldbyname('C115D_VALOR_ICMS').AsFloat; ODetalhe.ICMSAliquota := qritens.fieldbyname('C115D_ALIQUOTA').AsFloat; ODetalhe.IsentoNaoTributados := qritens.fieldbyname('C115D_ISENTOS_ICMS').AsFloat; ODetalhe.OutrosValores := qritens.fieldbyname('C115D_OUTROS_ICMS').AsFloat; ODetalhe.AnoMesApuracao := FormatDateTime('yymm',qrnotafiscal.fieldbyname('c115_emissao').asdatetime); // AAMM OMestre.Detalhes.Add(ODetalhe); qritens.Next; end; Mestre.Add(OMestre); if TamanhoString(qrnotafiscal.fieldbyname('c115_md5').AsString)=0 then begin chavemd5:=Convenio115.Mestre[0].AutenticacaoDocumentoFiscal; qrnotafiscal.Edit; qrnotafiscal.fieldbyname('c115_md5').AsString:=chavemd5; qrnotafiscal.Post; qrnotafiscal.CommitUpdates; end; N:=N+1; end; end; qrnotafiscal.Next; end; Convenio115.Gerar;

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, Estou necessitando atender uma demanda para imprimir no espaço "observações gerais" e já pesquisei que no RPS não existe esta informação, portanto pesquisei mais um pouco e vi alguém dizendo que é possivel acrescentar esta informação antes de imprimir a DANFSe. Eu tentei com um exemplo e não consegui... Existe mesmo esta possibilidade? Se sim, como que é feito isso?

Eu consegui resolver o problema com a mensagem : Acesso nao permitido, verifique os dados e certifique-se de possuir permissao para a operacao. Preenchendo estes campos do componente ACBrNFSe: NFSe.Configuracoes.Geral.Emitente.WebChaveAcesso := NFSe.Configuracoes.Geral.Emitente.WebUser := NFSe.Configuracoes.Geral.Emitente.WebSenha := NFSe.Configuracoes.Geral.Emitente.WebFraseSecr := Agora o problema que estou enfrentando é que depois de transmitir o NFSe o webservice da NFSeBrasil está retornando para mim o arquivo XML da nota fiscal de serviços com o mesmo número do RPS, ou seja, uma nota fiscal muito antiga.

Talvez seja alguma coisa relacionada com o Hash do usuário ou frase secreta de acesso ao Webservice

Bom dia, Sim Italo... estou testando com o ACBr que atualizei ontém. Lembrando que a NFSe está sendo emitido em Curvelo-MG; como o provedor NFSeBrasil não possui esquemas eu estou deixando o mesmo vazio. Consegui passar por este problema atualizando os arquivos INI dos provedores no computador do cliente, agora estou com uma mensagem indicando: Acesso nao permitido, verifique os dados e certifique-se de possuir permissao para a operacao. Eu entrei no site da NFSeBrasil e fiz um e-mail de contato informando o CNPJ e a mensagem que apareceu para ver se eles me dão alguma solução. Se alguem quiser dizer alguma coisa, estou a disposição.

Utilizei a opção ENVIAR e retornou esta mensagem: ERRO: URL não definida para: TNFSeEnviarLoteRPS Lembrando que eu estou tentando transmitir para NFSeBrasil de Curvelo... abaixo segue trecho do arquivo INI da NFSeBrasil: ; Curvelo/MG RecepcaoLoteRPS_3120904=

Italo, Eu não consegui entender o que fazer a seguir, pois se a NFSeBrasil não possui o GerarNFSe qual outra alternativa eu tenho?

Saudações amigos, Estou já alguns dias implantando a NFSe na cidade de Curvelo e tenho tido bastante dificuldade... sei que o provedor desta cidade é o NFSeBrasil e que o mesmo não fornece os arquivos de Schemas para validação. Atualmente estou com o seguinte erro de retorno: ERRO: URL não definida para: TNFSeGerarNFSe A unica diferença do meu componente ACBrNFSe deste provedor para outros é que estou deixando a pasta de schemas vazia, já que estes não existem. Eu tenho a impressão que o componente não está entendendo que eu estou utilizando o NFSeBrasil, mesmo que esteja informando para ele o código do município do cliente. Se eu não estou informando qual o arquivo de Schema para o provedor, como o componente saberá qual o provedor estarei utilizando e assim puxar os endereços?

Saudações amigos, Estou já alguns dias implantando a NFSe na cidade de Curvelo e tenho tido bastante dificuldade... sei que o provedor desta cidade é o NFSeBrasil e que o mesmo não fornece os arquivos de Schemas para validação. Atualmente estou com o seguinte erro de retorno:

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.