Adriano Luiz de Souza

Boa Noite ! Tudo certo com vocês ? Estou tentando incluir a cidade de Gravataí RS no arquivo de cidades.ini. Inclui no final do cidades.ini mas para ler o XML e dar entrada na NFSe no sistema ao setar a propriedade ACBrNFSe.Configuracoes.Geral.CodigoMunicipio := 4309209 é retornado o erro: código do municipio 4309209 não encontrado. Depurando TGeralConfNFSe.SetConfigMunicipio; eu vi que ele está lendo o arquivo da pasta correta. Tem alguma coisa a ser feita além de inserir essa informações no cidades.ini ? Testando a atribuição com um código de municipio que já estava no ini, funciona corretamente. [4309209] Nome=Gravatai UF=RS Provedor=IPM Obrigado Atenciosamente Adriano

O usuário veio me relatar que a partir dessa terça-feira ( carnaval ) o erro parou de ocorrer. Deve ter rolado atualização Espero que tenha resolvido

Ainda não

Boa Tarde Ítalo ! Obrigado pelo contato. Imagino eu que não é a internet pelo seguinte: ontem eu tentei emitir em produção tanto na minha casa quanto no meu escritório o erro é o mesmo. Tentei até com 4G no meu note para não passar por Firewall e o resultado foi o mesmo. O problema já tem um certo tempo, desde meados de dezembro. O cliente não estava se incomodando mas depois que começou a ter um certo volume de notas começou a cobrar uma solução. O erro só acontece em ambiente de produção. Em homologação tudo normal. Em outros clientes todos emitem em produção normalmente. A única característica que é diferente é a cidade que ele está ( cocal do sul - sc ). Esse cliente tem 3 CNPJ's na base e todos os 3 dão o mesmo erro. OS CNPJ's ficam na mesma cidade. Temos um cliente que é uma MEI nessa cidade e a nota passa também normalmente sem erros. Conferi as URL's e são as mesmas tanto nos clientes que dá erro como nos que não dão erro FPURL https://e-gov.betha.com.br/e-nota-contribuinte-ws/recepcionarLoteRps?wsdl FPSoapAction http://www.betha.com.br/e-nota-contribuinte-ws/recepcionarLoteRps O pior de tudo é que segundo o cliente ( não vi ocorrendo ) que eventualmente uma ou outra não dá o erro. Mas ele citou que é muito raramente. O ACBr foi atualizado com a data de hoje. Então a situação é essa... Eu vou tentar fazer mais outros testes. Se nada der certo vou tentar abrir algum chamado na Betha pela prefeitura, pois até onde sei só os clientes da Betha podem abrir chamados. Não sei se continua assim dessa forma para abrir chamados na Betha Muito obrigado pela atenção Adriano

Bom Dia a Todos ! Tenho um cliente que ao consultar o retorno de lote no provedor betha Retorna o seguinte erro: Erro Interno: 0 Erro HTTP: 6 URL: https://e-gov.betha.com.br/e-nota-contribuinte-ws/recepcionarLoteRps?wsdl O identificador não está no estado correto para a operação solicitada - URL:https://e-gov.betha.com.br/e-nota-contribuinte-ws/recepcionarLoteRps?wsdl - SOAPAction:http://www.betha.com.br/e-nota-contribuinte-ws/recepcionarLoteRps Esse erro acaba não retornando o número do protocolo o que obriga o emissor a entrar no portal da Betha para pegar a informação do protocolo e poder processar a nota no sistema. O RPS não tem nenhum erro, tanto que a nota é gerada normalmente. O erro ocorre em todas as emissões desse cliente. Em outros clientes o erro não ocorre. Estou desconfiado que seja algum bloqueio na rede dele. Anti-virus não é pois tentei em uma máquina na rede deles que nao tem anti-virus e o problema permanece. Alguém já passou por isso ou faz ideia do que possa ser ? Obrigado pela atenção Att Adriano

Resolvido... Foi regra no webservice que já desfizeram Obrigado a todos pela atenção Att Adriano

Bom Dia a Todos ! Recebi alguns chamados de clientes que emitem pelo provedor Betha que ao transmitir retorna o seguinte erro: Erro de validação de Script: Não foi encontrado o relacionamento [0,00] entre as tabelas "Notas Fiscais de Servicos" e "CNAE" para a coluna "Codigo do CNAE"! Nunca vi esse erro e também não encontrei nenhum tópico em fóruns então acredito que deve ser uma nova validação. Entramos em contato com a prefeitura aqui da minha cidade e já receberam outras notificações do erro. Alguém também está passando por essa situação ? obrigado a todos Att Adriano

Tudo Ok ! Muito obrigado pelo empenho, Ítalo

A cidade aqui dos testes é Cocal do Sul - SC. Vou fazer os testes que você sugeriu

Muito obrigado Ítalo. Conte com meu apoio se precisar testar algo ou passar algum outro parametro

Desculpe, não tinha me atentado que o conteúdo dessa String passada como parâmetro nesse método era o conteúdo inteiro do XML

Bom Dia a Todos ! Fiz a atualização do ACBr ontem e desde então não consigo mais transmitir NFSe. Ao fazer a chamada GerarNFSe é gerado o erro Expected token 'EOF' found ':'. .//ns3:ns3-->:<--EnviarLoteRpsEnvio/ds:Signature. Depurando eu cheguei na chamada onde o erro ocorre: ACBrNFSeWebServices.pas procedure DefinirDadosMsg FPDadosMsg := FNotasFiscais.AssinarLote(FPDadosMsg, FTagGrupo, TagElemento, FPConfiguracoesNFSe.Geral.ConfigAssinar.Lote, xSignatureNode, xDSIGNSLote, xIdSignature); Aqui é onde acontece o erro. Não foi mudado nada nas configurações do componente ACBrNFSe em relação ao certificado. Uso o provedor Betha. Peço ajuda ao pessoal aqui do fórum para me dar uma luz pois estou empacado nessa situação. Abaixo o conteúdo de cada um dos parâmetros. Me chamou a atenção o xIdSignature estar vazio FPDadosMsg '<ns3:EnviarLoteRpsEnvio xmlns:ns3="http://www.betha.com.br/e-nota-contribuinte-ws"><LoteRps Id="30454"><NumeroLote>30454</NumeroLote><Cnpj>04351814000121</Cnpj><InscricaoMunicipal>3375</InscricaoMunicipal><QuantidadeRps>1</QuantidadeRps><ListaRps><Rps><InfRps Id="9333UNICA"><IdentificacaoRps><Numero>9333</Numero><Serie>UNICA</Serie><Tipo>1</Tipo></IdentificacaoRps><DataEmissao>2019-02-05T21:33:37</DataEmissao><NaturezaOperacao>1</NaturezaOperacao><OptanteSimplesNacional>2</OptanteSimplesNacional><IncentivadorCultural>2</IncentivadorCultural><Status>1</Status><OutrasInformacoes>ENQUADRAMENTO: / PORTE;OS: ;Vencimentos: Vencimento: 06/04/19 R$ 312,41;Pedido Cliente:</OutrasInformacoes><Servico><Valores><ValorServicos>379.37</ValorServicos><ValorPis>2.47</ValorPis><ValorCofins>11.38</ValorCofins><ValorInss>41.73</ValorInss><ValorCsll>3.79</ValorCsll><IssRetido>3</IssRetido><ValorIss>7.59</ValorIss><BaseCalculo>379.37</BaseCalculo><Aliquota>2.0000</Aliquota><ValorLiquidoNfse>312.41</ValorLiquidoNfse><ValorIssRetido>7.59</ValorIssRetido></Valores><ItemListaServico>1401</ItemListaServico><CodigoCnae>3312102</CodigoCnae><Discriminacao>{[[Descricao=CONTRATO DE CALIBRACAO][Quantidade=1.0000][ValorUnitario=379.3700]]}</Discriminacao><CodigoMunicipio>4204251</CodigoMunicipio></Servico><Prestador><Cnpj>04351814000121</Cnpj><InscricaoMunicipal>3375</InscricaoMunicipal></Prestador><Tomador><IdentificacaoTomador><CpfCnpj><Cnpj>86532538003269</Cnpj></CpfCnpj></IdentificacaoTomador><RazaoSocial>ELIANE REVESTIMENTOS CERAMICOS S.A. - ARTISTICA</RazaoSocial><Endereco><Endereco>RUA MAXIMILIANO GAIDZINSKI</Endereco><Numero>245</Numero><Bairro>CENTRO</Bairro><CodigoMunicipio>4204251</CodigoMunicipio><Uf>SC</Uf><Cep>88845000</Cep></Endereco><Contato><Telefone>4834477777</Telefone></Contato></Tomador><CondicaoPagamento><Condicao>A_PRAZO</Condicao><QtdParcela>1</QtdParcela><Parcelas><Parcela>1</Parcela><DataVencimento>06/04/2019</DataVencimento><Valor>312.41</Valor></Parcelas></CondicaoPagamento></InfRps><Signature xmlns="http://www.w3.org/2000/09/xmldsig#"><SignedInfo><CanonicalizationMethod Algorithm="http://www.w3.org/TR/2001/REC-xml-c14n-20010315"/><SignatureMethod Algorithm="http://www.w3.org/2000/09/xmldsig#rsa-sha1"/><Reference URI="#9333UNICA"><Transforms><Transform Algorithm="http://www.w3.org/2000/09/xmldsig#enveloped-signature"/><Transform Algorithm="http://www.w3.org/TR/2001/REC-xml-c14n-20010315"/></Transforms><DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha1"/><DigestValue>5sSOCjOvHYZy5hMYk8xYcI+wkog=</DigestValue></Reference></SignedInfo><SignatureValue>vN3r+IDAVi8o26T5MmeRZcLCytfNyuITGJtRoL1mX4JTcJPoN5hOQNajJC6CKsw9Q0YZFTBlzKzSNVeqN1fiWNkBF8bl36f6iiXQoUB/UrTcdjkbLfR3EvLDOpu1lpF2UwbBqw2PSCMWQSDNN3IsIZPo7SwFfjzYVsMZ8hRZHD1+zoGApGPNVBG1sNGZh1iFZLtRgNMGi4x56Ircs5eNXHiQQpIk8itpDkBQJkyP7wJD2oQ2M39bpTrXCDlI9xMeKpqPuJBE7ldtOw3rt1vUi9o0p5Jt55DVzDQJPEPrJudvczlpdvgamqp9M3n9pEgc1jyjL2s7IKzFKsnb4bYG5A==</SignatureValue><KeyInfo><X509Data><X509Certificate>MIIHsTCCBZmgAwIBAgIIb/YrikaHlTIwDQYJKoZIhvcNAQELBQAwdTELMAkGA1UEBhMCQlIxEzARBgNVBAoMCklDUC1CcmFzaWwxNjA0BgNVBAsMLVNlY3JldGFyaWEgZGEgUmVjZWl0YSBGZWRlcmFsIGRvIEJyYXNpbCAtIFJGQjEZMBcGA1UEAwwQQUMgU0VSQVNBIFJGQiB2NTAeFw0xODEyMDQxNzUzMDBaFw0xOTEyMDQxNzUzMDBaMIH1MQswCQYDVQQGEwJCUjELMAkGA1UECAwCU0MxFTATBgNVBAcMDENPQ0FMIERPIFNVTDETMBEGA1UECgwKSUNQLUJyYXNpbDE2MDQGA1UECwwtU2VjcmV0YXJpYSBkYSBSZWNlaXRhIEZlZGVyYWwgZG8gQnJhc2lsIC0gUkZCMRYwFAYDVQQLDA1SRkIgZS1DTlBKIEExMRIwEAYDVQQLDAlBUiBTRVJBU0ExSTBHBgNVBAMMQEVTVEFUSUNBIElOU1RSVU1FTlRBQ0FPIEUgVEVDTk9MT0dJQSBJTkRVU1RSSUFMIEw6MDQzNTE4MTQwMDAxMjEwggEiMA0GCSqGSIb3DQEBAQUAA4IBDwAwggEKAoIBAQC+vEjKeVV2KUI6C6yWwmFahtZGJU1NpQ2selyfUOewCxBVG5BZgvhCDt40yKYbjB4SRhYsXdjsj/xHA9NOD3uE75ZisT7noQOUhD59R4UUZGE2GWAVDk74cRGX4O2CfZLjHQKf4yS8xjdZt8mz3hzuOb2mSn4hO4AO++wnvDD6RdiMH9pRW8g6kNWmyAr7cBpd0MKXiiHLkvX4Fbj2YcD3u5suWNKH0jqTV58K0Yzs8yNKYtcQ5hG5pmLJ2csmyvcaPqf5JOU/Z+q7don14SuNCZOaXPqXvG+RwuQxTSPOnRkN0F3MjKrP4kZgX9eSMfW7sHcD1zQPzUnBP+gPr8nlAgMBAAGjggLCMIICvjAJBgNVHRMEAjAAMB8GA1UdIwQYMBaAFOzxQVFXqOY66V6zoCL5CIq1OoePMIGZBggrBgEFBQcBAQSBjDCBiTBIBggrBgEFBQcwAoY8aHR0cDovL3d3dy5jZXJ0aWZpY2Fkb2RpZ2l0YWwuY29tLmJyL2NhZGVpYXMvc2VyYXNhcmZidjUucDdiMD0GCCsGAQUFBzABhjFodHRwOi8vb2NzcC5jZXJ0aWZpY2Fkb2RpZ2l0YWwuY29tLmJyL3NlcmFzYXJmYnY1MIGxBgNVHREEgakwgaaBEENFU0FSQExTWS5DT00uQlKgHwYFYEwBAwKgFhMUQ0VTQVIgTVVSSUxPIFNBTlRBTkGgGQYFYEwBAwOgEBMOMDQzNTE4MTQwMDAxMjGgPQYFYEwBAwSgNBMyMjcwNTE5Njg1OTE2MjA2NjkwMDAwMDAwMDAwMDAwMDAwMDAwMDAxODE2NDUyU1NQU0OgFwYFYEwBAwegDhMMMDAwMDAwMDAwMDAwMHEGA1UdIARqMGgwZgYGYEwBAgENMFwwWgYIKwYBBQUHAgEWTmh0dHA6Ly9wdWJsaWNhY2FvLmNlcnRpZmljYWRvZGlnaXRhbC5jb20uYnIvcmVwb3NpdG9yaW8vZHBjL2RlY2xhcmFjYW8tcmZiLnBkZjAdBgNVHSUEFjAUBggrBgEFBQcDAgYIKwYBBQUHAwQwgZ0GA1UdHwSBlTCBkjBKoEigRoZEaHR0cDovL3d3dy5jZXJ0aWZpY2Fkb2RpZ2l0YWwuY29tLmJyL3JlcG9zaXRvcmlvL2xjci9zZXJhc2FyZmJ2NS5jcmwwRKBCoECGPmh0dHA6Ly9sY3IuY2VydGlmaWNhZG9zLmNvbS5ici9yZXBvc2l0b3Jpby9sY3Ivc2VyYXNhcmZidjUuY3JsMA4GA1UdDwEB/wQEAwIF4DANBgkqhkiG9w0BAQsFAAOCAgEAfl8fsaJ4jOTDEVMXj48xn+ZPz+UjFyowbEHuWBe5nGZoq0ScQDvvDDOWpJp7Hgu2UW4RaYxcTSJ2qglF5dIBBTLMsmZ3veNlLy7FAiEhD3mGr+AmUZ5BDQM7kZcw9i3ZEvXOY/jfrwN7r4T3CaRLX9sUzYQPRCCy8NJ5Cckubc6E3lX8O/SgLUWVHELpWzGtdvLa8PTTtOk0ZYaBq75T7twyw9AjWmqDPR8i5fS8tR/Aagi+EzmJqicvOoYYkqQ7CtOBH6K02q0saZUbFOGDJoni3eeeqP0lWFUwBh6aJ31XolF+6HmIdCA/1v26hjnGyA9S05SOENf13Ba8tVgvOAwL1Eew70vi/KxEomwHqv2IbeZrfab4qQf7TKRQc1bdb8BfjyiNjChPBzRsc1jW7RkEu0OJKsOkVAknQEXXRxR2ALlzztc0VzwtRXpXEDiCmzC/aPA8sLegTXfPpqgaoylFym1o33YGLkWHhutkK3m027gB90wf+YRy6pkfY8J6334NT3wNJ3jZxwjnFsLD566gNqGUQsUoWtj86FSzPosREup0nFDCBsmXpENYODLG9I2ezFoiT3TN9e9b/tZhN5hXTsuowe51huhD8jG0m7Zk4dU7btlezTLDtQ8la+OggzJWDOwHJZnnt+os7PgeqL6Wr4ljeIXnib/A3LvyY7k=</X509Certificate></X509Data></KeyInfo></Signature></Rps></ListaRps></LoteRps></ns3:EnviarLoteRpsEnvio>' FTagGrupo 'ns3:EnviarLoteRpsEnvio' TagElemento 'LoteRps' FPConfiguracoesNFSe.Geral.ConfigAssinar.Lote true xSignatureNode './/ns3:ns3:EnviarLoteRpsEnvio/ds:Signature' xDSIGNSLote 'xmlns:ns3="http://www.betha.com.br/e-nota-contribuinte-ws"' xIdSignature '' No componente estou usando SSLCryptLib cryCapicom SSLHttpLib httpIndy SSLib libCapicomDelphiSoap SSLXmlSignLib xsMsXmlCapicom Muito obrigado pela atenção Sucesso a todos Adriano

Bom Dia a Todos ! Estou fazendo uma consulta de uma NFe pela chave mas no retorno das informações não consegui obter a informação da TAG descEvento localizada no nó procEventoNFe, evento, InfEvento, detEvento. Pelas propriedades do componente ACBrNFe só consegui acesso a RetEvento na qual não retorna a informação que eu preciso. Gostaria de saber se tem alguma forma de recuperar essa informação que está dentro de DescEvento em DetEvento que diz "Registro Passagem NFe". Em anexo o XML do retorno da consulta e abaixo a maneira que eu faço a recuperação dos dados. Muito obrigado pela atenção Adriano NFe.WebServices.Consulta.NFeChave := chaveEdit.Text; NFe.WebServices.Consulta.Executar; MemoResp.Lines.Text := UTF8Encode(NFe.WebServices.Consulta.RetWS); LoadXML(MemoResp, WBResposta, path_tmp ); cstatEdit.Text := IntToStr( NFe.WebServices.Consulta.protNFe.cStat ); ds_situacaoEdit.Text := NFe.WebServices.Consulta.protNFe.xMotivo; eventoCDS.Append; eventoCDScstat.AsInteger := NFe.WebServices.Consulta.protNFe.cStat; eventoCDSdt_evento.AsDateTime := NFe.WebServices.Consulta.protNFe.dhRecbto; eventoCDSds_evento.AsString := NFe.WebServices.Consulta.protNFe.xMotivo; eventoCDStp_evento.AsString := ''; eventoCDS.Post; if NFe.WebServices.Consulta.retCancNFe.cStat = 101 then begin msgInformacao( 'NFe cancelada'); cstatEdit.Text := IntToStr( NFe.WebServices.Consulta.retCancNFe.cStat ); ds_situacaoEdit.Text := NFe.WebServices.Consulta.retCancNFe.xMotivo; end; for i := 0 to NFe.WebServices.Consulta.procEventoNFe.Count-1 do begin if NFe.WebServices.Consulta.procEventoNFe.Items.RetEventoNFe.InfEvento.tpEvento = teCancelamento then begin cstatEdit.Text := IntToStr( NFe.WebServices.Consulta.procEventoNFe.Items.RetEventoNFe.cStat ); ds_situacaoEdit.Text := NFe.WebServices.Consulta.procEventoNFe.Items.RetEventoNFe.InfEvento.DescEvento; msgInformacao( 'NFe cancelada'); end; eventoCDS.Append; eventoCDScstat.AsInteger := NFe.WebServices.Consulta.procEventoNFe.Items.RetEventoNFe.cStat; eventoCDSdt_evento.AsDateTime := NFe.WebServices.Consulta.procEventoNFe.Items.RetEventoNFe.InfEvento.dhEvento; eventoCDStp_evento.AsString := NFe.WebServices.Consulta.procEventoNFe.Items.RetEventoNFe.InfEvento.TipoEvento; eventoCDSds_evento.AsString := NFe.WebServices.Consulta.procEventoNFe.Items.RetEventoNFe.InfEvento.DescEvento; eventoCDS.Post; end; eventoCDS.First; tmp.xml

Até posso fazer isso, só não sei quanto tempo vou levar para disponibilizar devido a minha agenda estar bem lotada. Mas assim que tiver algo posso postar alguma coisa. Só não vai ter prazo. Atenciosamente Adriano

Bom Dia a Todos ! Li hoje no fórum do sped brasil um Post sobre o CCC para consulta de cadastros centralizados de contribuintes. Hoje apesar do componente de busca por CNPJ na receita do ACBr ser muito bom, ele não traz a informação da inscrição estadual forçando a buscar a informação por outra fonte. Neste Post do sped brasil mostra uma série de webservices para a consulta das informações por estado. Seria interessante talvez que fosse complementado o componente ACBrConsultaCNPJ para que também trouxesse as informações desses webservices dos estados de forma que complementasse as informações da receita. O link do forum do sped é esse: http://www.spedbrasil.net/forum/topics/nf-e-3-10-terceira-geracao-corrigindo-o-processo-vallidacao-de-ca Agradeço a atenção Adriano

Boa Tarde ! Tive uma necessidade em um cliente na qual ele não tem a quantidade inteira em algumas notas. Por exemplo ele presta serviços e envia a nota em horas, que eventualmente não são horas "cheias", no caso 1,5 horas equivalem a 1:30. Eu alterei o fonte pnfsNFSe.pas para os tipos quantidade serem do tipo currency ao invés de integer. Se tiverem interesse em incluir essa alteração, segue o fonte um abraço e agradeço a todos pelo excelente trabalho Adriano pnfsNFSe.pas

Na ocasião eu usei uma dll da própria balança, que no caso acho que era da filizola. Tem um dll chamada pcscale.dll que tu fazes as chamadas da balança por ela, verificava se a balança está estável, retorna o peso, etc... Era bem fácil seu uso. Na toledo não sei te dizer se disponibilizam uma dll ou outra forma de acesso.

Normalmente essas balanças rodoviárias possuem um token para ser conectado no computador que permite a leitura da informação. Uma vez perdi um certo tempo nisso até descobrir esse detalhe do token, que no caso era ligado na serial.

Perfeito ! ACBr atualizado e problema solucionado Muito obrigado pela atenção Adriano

Boa Tarde a Todos ! Já utilizo a muito tempo o ACBr e parabenizo a todos aos que mantém estes excelentes componentes e seus fóruns. No entanto estou com um problema na importação de um XML. Esse tempo todo nunca tive um erro semelhante e procurei e testei bastante antes de postar este tópico. Um cliente possui um arquivo XML de seu fornecedor e ao tentar importar só retorna o primeiro item de 9 que tem na nota, sem qualquer mensagem de erro. Uso a propriedade ACBrNFe.NotasFiscais.LoadFromFile( OpenDialog.FileName ) para carregar o XML e ao tentar verificar o numero de itens (ACBrNFe.NotasFiscais.Items[0].NFe.Det.Count ) retorna 1 ao invés de 9. Alguém pode me ajudar nesta questão O XML está em anexo Agradeço antecipadamente a todos Adriano 2_132646.xml