Adriano Luiz de Souza

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