SISBLU Software

Bom dia, sempre usei essa consulta depois de enviar uma carta de correção. A consulta a esse evento me trazia o XML da carta, com a descrição da CORREÇÃO, etc... Essa semana , fui consultar e está trazendo CTE de transportadora... Não sei como fazer para trazer o XML da carta de correção para IMPRESSÂO. Alguém pode me ajudar? DMAcbr.ACBrNFe1.WebServices.Consulta.ExtrairEventos:=true; try DMAcbr.ACBrNFe1.WebServices.Consulta.Executar; if DMAcbr.ACBrNFe1.WebServices.Consulta.procEventoNFe.Count > 0 then begin TotalEventos:=IntToStr( DMAcbr.ACBrNFe1.WebServices.Consulta.procEventoNFe.Count); for i := 0 to DMAcbr.ACBrNFe1.WebServices.Consulta.procEventoNFe.Count - 1 do begin for j := 0 to DMAcbr.ACBrNFe1.WebServices.Consulta.procEventoNFe.Items[i].RetEventoNFe.retEvento.Count - 1 do begin if (i+1)=StrToInt(TotalEventos)then Begin vXMLDoc := TXMLDocument.Create(self); try vXMLDoc.Active := False; vXMLDoc.XML.Clear; //vXMLDoc.XML.Text:= UTF8Encode(DMAcbr.ACBrNFe1.WebServices.Consulta.RetWS); vXMLDoc.XML.Text:=DMAcbr.ACBrNFe1.WebServices.Consulta.procEventoNFe.Items[I].RetEventoNFe.XML; vXMLDoc.Active := True; vXMLDoc.Encoding := 'utf-8'; vXMLDoc.Version := '1.0'; Memo1.Clear; Memo1.Text:=vXMLDoc.XML.Text; Memo1.Text := StringReplace(Memo1Canc.Text, 'procEventoNFe versao="1.00"', 'procEventoNFe xmlns="http://www.portalfiscal.inf.br/nfe" versao="1.00"', [rfReplaceAll]); finally vXMLDoc.Free; end; End; end; end;

Bom dia, também acontece comigo... Cliente Jacareí, emite nota para outra cidade, coloco 5% e a nota volta com 3%... No ambiente nacional Outra pergunta, é, como faço para indicar a não retenção para fora da cidade? ou é algo padrão no ambiente nacional que não consigo alterar?

Bom dia... Pelo que vi na documentação do Bradesco, ao enviar a remessa aceita , na impressão do boleto sai também. Mas no retorno só tem 10 caracteres o campo NumeroDocumento. Será isso mesmo, essa incoerência do Banco?

Boa tarde pessoal, estou com problemas no retorno da remessa do Bradesco. NumeroDocumento:= 200140/1-10 ( 11 digitos ) mas pode chegar a mais. Quando eu trago o arquivo retorno ele me trás somente 10 digitos = Numero DOC :: 200140/1-1 Onde posso mudar no ACBR para aumentar e trazer corretamente? ACBrBoleto1.Banco.TamanhoNumeroDocumento ( tentei aqui mas não é possivel )

Perfeito. Obrigado pcnConversaoNFe

Bom dia, estou atualizando meu ACBR, e eu tinha essa rotina para pegar a DESCRIÇÃO DA forma de pagamento. Mas não existe mais dentro do PCNConversão. O que encontrei foi CodigoMPToDescricao ( mas não consigo usar com .tpag) FormaPagamentoToDescricao(ACBrNFCe1.NotasFiscais[0].NFe.pag.Items[i].tPag); Pegava la do PCNConversão ///// aqui function FormaPagamentoToDescricao(const t: TpcnFormaPagamento): string; overload; begin Result := FormaPagamentoToDescricao(t, ''); end; function FormaPagamentoToDescricao(const t: TpcnFormaPagamento; const xPag: String): string; overload; begin if (t = fpOutro) and (xPag <> '') then result := xPag else result := EnumeradoToStr(t, ['Dinheiro', 'Cheque', 'Cartão de Crédito', 'Cartão de Débito', 'Cartão da Loja (Private Label)', 'Vale Alimentação', 'Vale Refeição', 'Vale Presente', 'Vale Combustível', 'Duplicata Mercantil', 'Boleto Bancário', 'Deposito Bancário', 'PIX - Dinâmico', 'Transferência Bancária', 'Programa Fidelidade', 'Sem Pagamento', 'Regime Especial NFF', 'Outro', 'PIX - Estático', 'Crédito em Loja', 'Falha de hardware do sistema emissor'], [fpDinheiro, fpCheque, fpCartaoCredito, fpCartaoDebito, fpCreditoLoja, fpValeAlimentacao, fpValeRefeicao, fpValePresente, fpValeCombustivel, fpDuplicataMercantil, fpBoletoBancario, fpDepositoBancario, fpPagamentoInstantaneo, fpTransfBancario, fpProgramaFidelidade, fpSemPagamento, fpRegimeEspecial, fpOutro, fpPagamentoInstantaneoEstatico, fpCreditoEmLojaPorDevolucao, fpFalhaHardware]); end; ////

Bom dia! Sim consulta DETALHADA. Ao consultar o boleto mesmo que ele tenha EMV gerado ( quando faço a inclusão ).. Na consulta não trás o EMV.

Boa tarde, tudo bem? Estou com o mesmo problema, mesmo ao ENVIAR e dar certo o BOLETO com QRCODE, quando clico em CONSULTAR, o boleto não traz o QRCODE na CONSULTA. Isso é um problema, pq as vezes o BOLETO é registrado, mas ná erro se tento enviar novamente. E se consulto não trás o QRCODE Ao consultar trás as informações que preciso: RetornoDetalhe.DadosRet.TituloRet.CodBarras RetornoDetalhe.DadosRet.TituloRet.LinhaDig RetornoDetalhe.DadosRet.IDBoleto.NossoNum Esse não retorna: RetornoDetalhe.DadosRet.TituloRet.EMV

Boa tarde, tudo bem?

Creio que seja aqui: ACBrNFeWebServices.pas procedure SalvarEventos(Retorno: string); var aEvento, aProcEvento, aIDEvento, sPathEvento, sCNPJ: string; Inicio, Fim: Integer; TipoEvento: TpcnTpEvento; Ok: Boolean; begin while Retorno <> '' do begin Inicio := Pos('<procEventoNFe', Retorno); Fim := Pos('</procEventoNFe>', Retorno) + 15; aEvento := Copy(Retorno, Inicio, Fim - Inicio + 1); Retorno := Copy(Retorno, Fim + 1, Length(Retorno)); aProcEvento := '<procEventoNFe versao="' + FVersao + '" xmlns="' + ACBRNFE_NAMESPACE + '">' + SeparaDados(aEvento, 'procEventoNFe') + '</procEventoNFe>';

Verifiquei aqui e no próprio manual da receita, diz para fazer desta maneira, agora temos que ver como fazer isso no ACBR <procEventoNFe xmlns="http://www.portalfiscal.inf.br/nfe" versao="1.00"> <evento xmlns="http://www.portalfiscal.inf.br/nfe" versao="1.00">

Mais faltou algo. O XML que a contabilidade importa começa assim, vem do sistema (OMIE) <procEventoNFe xmlns="http://www.portalfiscal.inf.br/nfe" versao="1.00"> <evento xmlns="http://www.portalfiscal.inf.br/nfe" versao="1.00"> e em nosso SISTEMA está gerando assim (ACBR) <procEventoNFe versao="1.00"> <evento xmlns="http://www.portalfiscal.inf.br/nfe" versao="1.00"> E somente por isso, dá erro de estrutura.

Perfeito, querido amigo, muito obrigado!

Não deu certo... erro: Argument out of range

Eu coloquei para salvar em DISCO e realmente salvou da maneira que preciso. (conforme anexo ) Mas como não salvo em disco por ser sistema WEB, existe alguma solução pra isso? 1101113525061114670800017155001000054775188602336701-procEventoNFe.xml

Certo, mas como eu uso sistema WEB, então não gravo nada em DISCO. Eu pego o retorno do XML e gravo no banco de dados. Você disse: Por exemplo, se no retorno tivermos o evento de cancelamento, será salvo na pasta: ...\Evento\Cancelamento o arquivo *-procEventoNFe.xml (caso estejamos consultando uma NF-e). Existe possibilidade de salvar somente o XML no banco de dados? DMAcbr.ACBrNFe1.NotasFiscais.Clear; DMAcbr.ACBrNFe1.WebServices.Consulta.NFeChave := UniMainModule.IBQNFEId.Value; DMAcbr.ACBrNFe1.WebServices.Consulta.ExtrairEventos:=true; try DMAcbr.ACBrNFe1.WebServices.Consulta.Executar; vXMLDoc := TXMLDocument.Create(self); try vXMLDoc.Active := False; vXMLDoc.XML.Clear; vXMLDoc.XML.Text:= UTF8Encode(DMAcbr.ACBrNFe1.WebServices.Consulta.RetWS); vXMLDoc.Active := True; vXMLDoc.Encoding := 'utf-8'; vXMLDoc.Version := '1.0'; UniMainModule.IBQXML.Close; UniMainModule.IBQXML.SQL.Clear; UniMainModule.IBQXML.SQL.Add('insert into [xml](IDXML,[XML],DATA,IDNF,TIPO)'); UniMainModule.IBQXML.SQL.Add('values (:P1,:P2,:P3,:P4,:P5)'); UniMainModule.IBQXML.Parameters.ParamByName('P1').Value:=UniMainModule.IBQNFEId.Value; UniMainModule.IBQXML.Parameters.ParamByName('P2').Value :=vXMLDoc.XML.Text; UniMainModule.IBQXML.Parameters.ParamByName('P3').Value:=date+time; UniMainModule.IBQXML.Parameters.ParamByName('P4').Value:=UniMainModule.IBQNFECODIGO.Value; UniMainModule.IBQXML.Parameters.ParamByName('P5').Value:='Evento'; UniMainModule.IBQXML.ExecSQL;

Bom dia! preciso de uma ajuda na consulta de xml de cancelamento Preciso enviar XML de cancelamento para contabilidade de um cliente. Eu uso a função CONSULTA : DMAcbr.ACBrNFe1.WebServices.Consulta.NFeChave Mas traz o XML de cancelamento com tags que o programa deles não aceitam Eu tenho que remover a tag do cabeçalho para ficar igual. Como posso fazer isso Segue o que preciso remover: <retConsSitNFe xmlns="http://www.portalfiscal.inf.br/nfe" versao="4.00"> <tpAmb>1</tpAmb> <verAplic>SP_NFE_PL009_V4</verAplic> <cStat>101</cStat> <xMotivo>Cancelamento de NF-e homologado</xMotivo> <cUF>35</cUF> <dhRecbto>2025-07-01T09:46:50-03:00</dhRecbto> <chNFe>35250611146708000171550010000547751886023367</chNFe> <protNFe versao="4.00"> <infProt> <tpAmb>1</tpAmb> <verAplic>SP_NFE_PL009_V4</verAplic> <chNFe>35250611146708000171550010000547751886023367</chNFe> <dhRecbto>2025-06-26T16:35:49-03:00</dhRecbto> <nProt>135251741574616</nProt> <digVal>cbkrdUuNXhJ/pmTdjzz4TpJpI+k=</digVal> <cStat>100</cStat> <xMotivo>Autorizado o uso da NF-e</xMotivo> </infProt> </protNFe> <retCancNFe versao="3.10"> <infCanc> <tpAmb>1</tpAmb> <verAplic>SP_NFE_PL009_V4</verAplic> <cStat>101</cStat> <xMotivo>Cancelamento de NF-e homologado</xMotivo> <cUF>35</cUF> <chNFe>35250611146708000171550010000547751886023367</chNFe> <dhRecbto>2025-06-26T16:35:49-03:00</dhRecbto> <nProt>135251741574616</nProt> </infCanc> </retCancNFe> ------------- tenho que deixar somente <procEventoNFe xmlns="http://www.portalfiscal.inf.br/nfe" versao="1.00"> <evento versao="1.00"> <infEvento Id="ID1101113525061114670800017155001000054775188602336701"> <cOrgao>35</cOrgao> <tpAmb>1</tpAmb> <CNPJ>11146708000171</CNPJ> <chNFe>35250611146708000171550010000547751886023367</chNFe> <dhEvento>2025-06-27T10:58:54-03:00</dhEvento> <tpEvento>110111</tpEvento> <nSeqEvento>1</nSeqEvento> <verEvento>1.00</verEvento> <detEvento versao="1.00"> <descEvento>Cancelamento</descEvento> <nProt>135251741574616</nProt> <xJust>Dados incorretos</xJust> </detEvento> </infEvento> <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="#ID1101113525061114670800017155001000054775188602336701"> <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>+f5ctvps+VJdiFeT8ksf84Ba1+c=</DigestValue> </Reference> </SignedInfo> <SignatureValue>MR5MR3G2Ptn+VJYFgNqm553N1NZT6yaXUBU5AzXq8bvD3mR3oRW6go/8003yCglyvSicb8i/Ypaoro6GeA3rlAvfeAySjhudRAp6rzHHJFtAOEh/XZeTqYqqXIykns778afH8xpS/G6sfVmvRDZUDOKcrdlTvVTpi/sHcgCHEYnLJDsL/tH9VYgj1NWgFt5YmCPzBFt367PnATkDwQLd8O9xdqhrn7G3N3ISarQqLzZUygO91OneQNthTCu9QQoarE5MaV3i7UCgaYDnshQHo8/IKQrn6pCNaYakMCPV4JxEGtG0hu+6AF/xwdn/a13GX08l1a2UwaHmDT0hP+1FAw==</SignatureValue> <KeyInfo> <X509Data> <X509Certificate>MIIH5jCCBc6gAwIBAgIIQxNtl5kWJPkwDQYJKoZIhvcNAQELBQAwezELMAkGA1UEBhMCQlIxEzARBgNVBAoTCklDUC1CcmFzaWwxNjA0BgNVBAsTLVNlY3JldGFyaWEgZGEgUmVjZWl0YSBGZWRlcmFsIGRvIEJyYXNpbCAtIFJGQjEfMB0GA1UEAxMWQUMgQ09OU1VMVEkgQlJBU0lMIFJGQjAeFw0yNDEyMDQxMTE5NTdaFw0yNTEyMDQxMTE5NTdaMIH5MQswCQYDVQQGEwJCUjETMBEGA1UEChMKSUNQLUJyYXNpbDELMAkGA1UECBMCU1AxEDAOBgNVBAcTB0pBQ0FSRUkxFzAVBgNVBAsTDjQwODI5MDg5MDAwMTE4MTYwNAYDVQQLEy1TZWNyZXRhcmlhIGRhIFJlY2VpdGEgRmVkZXJhbCBkbyBCcmFzaWwgLSBSRkIxFjAUBgNVBAsTDVJGQiBlLUNOUEogQTExEzARBgNVBAsTCnByZXNlbmNpYWwxODA2BgNVBAMTL0RPRyBWQUxFIENPTUVSQ0lPIERFIFJBQ09FUyBMVERBOjExMTQ2NzA4MDAwMTcxMIIBIjANBgkqhkiG9w0BAQEFAAOCAQ8AMIIBCgKCAQEAwOU59jDHf+4U766/JJgQPsFgPmHrDI4BiMncPnyLHRgKJ84iP2/abCQRrn36RFXgwPVZ+4hILSSlcaSjiT9YC+QxEU766JZhpeeYXlWRvdCk8RAwHlJrHjkNLgxUoSoPb7Z1+ZvLu7RtQL4IshlpRr2X8ZeWTeHjfy+mv+txTOwvg93EfemewazwxicS0fvjs2dsalFzRO7kNdCRT8OncUI9A6Xrohptdeh1yPfoeOCK6DZDsy5nVxbOl2W92m9Eei3FL0DoA1S4LdjjxyaKHL518TixFvSoadutt6sC8rkKTLlG27tlHYJ//qd3I6s0hH7677P8iqOSDWzUpm+diQIDAQABo4IC7TCCAukwHwYDVR0jBBgwFoAUrvGhcHYTavvnlHecMixXyxQ4Wd8wDgYDVR0PAQH/BAQDAgXgMIGABgNVHSAEeTB3MHUGBmBMAQIBQTBrMGkGCCsGAQUFBwIBFl1odHRwOi8vcmVwb3NpdG9yaW8uYWNjb25zdWx0aWJyYXNpbC5jb20uYnIvYWMtYWNjb25zdWx0aWJyYXNpbHJmYi9kcGMtYWNjb25zdWx0aWJyYXNpbHJmYi5wZGYwgeAGA1UdHwSB2DCB1TBooGagZIZiaHR0cDovL3JlcG9zaXRvcmlvLmFjY29uc3VsdGlicmFzaWwuY29tLmJyL2FjLWFjY29uc3VsdGlicmFzaWxyZmIvbGNyLWFjLWFjY29uc3VsdGlicmFzaWxyZmJ2NC5jcmwwaaBnoGWGY2h0dHA6Ly9yZXBvc2l0b3JpbzIuYWNjb25zdWx0aWJyYXNpbC5jb20uYnIvYWMtYWNjb25zdWx0aWJyYXNpbHJmYi9sY3ItYWMtYWNjb25zdWx0aWJyYXNpbHJmYnY0LmNybDB6BggrBgEFBQcBAQRuMGwwagYIKwYBBQUHMAKGXmh0dHA6Ly9yZXBvc2l0b3Jpby5hY2NvbnN1bHRpYnJhc2lsLmNvbS5ici9hYy1hY2NvbnN1bHRpYnJhc2lscmZiL2FjLWFjY29uc3VsdGlicmFzaWxyZmJ2NC5wN2IwgbQGA1UdEQSBrDCBqYEURE9HLlZBTEVASE9UTUFJTC5DT02gIwYFYEwBAwKgGhMYVElBR08gREUgQUxNRUlEQSBGT05TRUNBoBkGBWBMAQMDoBATDjExMTQ2NzA4MDAwMTcxoDgGBWBMAQMEoC8TLTI1MTAxOTg0MzA5OTU0MTU4MzgwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMKAXBgVgTAEDB6AOEwwwMDAwMDAwMDAwMDAwHQYDVR0lBBYwFAYIKwYBBQUHAwIGCCsGAQUFBwMEMA0GCSqGSIb3DQEBCwUAA4ICAQCImQKPqd9tNwOX2rCiMIF1BhJcwlvw0uBIJMmCHZoXmW4NLpTYXNnTj2gIWKJbOvJyZetw6ZRyKuw/iu4ukwvaVH0rvh/0zQVxA7w7kkcqE2+VDOgGKz1Cvin9gYBcWyb5AQOD2qqtGeUAc+qKcIXOx7bPF+mRhIqWChvczCybszvOZCyG4RMXq/3EkyawW2BB7wJeRGaXpEvkoh8pTf4JQzHl2T1Tc+lgg62K9ajPIbnxyW5PnolQ3fRwSDPnc59hRbZl3zcxOSm5A+lQNeC2RSEzB4p7I6iUOZen3/P5xOuJ31n0Y/gr0LHSNtKP9v4QpAnUJYzAVPVBSBkEzq/YmnktM2Yb6+SDF02xI7vMAkJpDFQvLMdwGwWnNrkIlwqTNQeVP3hLq/KOiG2ki6rDebgceuPasiKGTZu+jJtu9726H2qMgNyQuZEIag6Kol1ubzjyVVwsGYQbvC9NKaWfzA93dAh0g0dxDvnaVuhR0Pdnu4WdjC7KWh1SQZcw41+k9nTyI9EMZmxabjpReGEkYFcYyn26fVqz/zIBfFLIu7bXCgNg2nWBevSEmyl7XxWt5pdLmAGg9eP8L8LZtVQXaVEMSpcwMM1CWOH0WSXnNWa6gre7Zd4Ye9tWPS6HVALE/zlotMFRI4h8R76N0UbP7R1awbvICkY6CYvgdY+fWg==</X509Certificate> </X509Data> </KeyInfo> </Signature> </evento> <retEvento versao="1.00"> <infEvento> <tpAmb>1</tpAmb> <verAplic>SP_EVENTOS_PL_100</verAplic> <cOrgao>35</cOrgao> <cStat>135</cStat> <xMotivo>Evento registrado e vinculado a NF-e</xMotivo> <chNFe>35250611146708000171550010000547751886023367</chNFe> <tpEvento>110111</tpEvento> <xEvento>Cancelamento registrado</xEvento> <nSeqEvento>1</nSeqEvento> <CNPJDest>03907590000129</CNPJDest> <dhRegEvento>2025-06-27T10:58:55-03:00</dhRegEvento> <nProt>135251749357545</nProt> </infEvento> </retEvento> </procEventoNFe> XML_REF_NFe 54775 Gerado do ACBR.xml 35250611146708000171550010000547001601535754_110111-procEventoNFe.xml

Bom dia pessoal, é possível trazer o TELEFONE através da CONSULTA? ACBrNFe1.WebServices.ConsultaCadastro.RetConsCad.InfCad[0].FONE;

Coloquei UTF8ToString para importar CONVERTIDO para minha tabela e deu certo. ClientDataSet1DESCRICAO.Value := UTF8ToString( aListaNCM[I].DescricaoNcm);

Não, estou com DELPHI 10.3.3 Windows 11

Bom dia, como posso importar a tabela com a descrição com acento correto?

Sim a mesma coisa pra mim. Eu implantei em meu sistema o https://cnpja.com/.. Fiz a rotina para BUSCAR primeiro no site CCC , se não encontra busca no CNPJA... ficou OTIMO, não tive mais problemas.. Muito bom. Fiz plano anual (Basic 2.500 consultas mês) cerca de R$ 324,00 por ano.... Fiz isso pq não sabia quanto ia consumir, mas para ter ideia no máximo 400 consultas mês, isso pq tenho cliente que usa muito. Então super indico, acabou meus problemas e suporte... Na próxima renovação farei a de (Basic 1000 consultas mês) cerca de R$ 216,00 por ano

Boa tarde, estou tentando importar arquivo do SICRED - 400 , mas creio que está fazendo a leitura correta. Não está pegando o valor correto, nem juros e data de pagamento... algumas faturas pega o valor recebido, outros não Segue arquivo 28355605.ret

Vou fazer isso... Italo, para o envio de JACAREI para outra CIDADE está ok de JACAREI PARA JACAREI está dando esse erro: O código de serviço prestado não permite retenção de ISSQN Porém no XML que é Autorizado pelo site da prefeitura tem o iss retido etc... XML Autorizado: Meu RPS

Sem em anexo XML_REF_NFSe 634.xml