Anadilson Marx

Não está permitindo ou respeitado salvar o xml no diretório especificado: ACBrNFe1.Configuracoes.Arquivos.PathInu; Use essa rotina para exportar o xml: LoadXMLX(ACBrNFe1.InutNFe.XML, MyWebBrowser, DataSource.DataSet.FieldByName('protocolo').AsString + '.xml', 0); Se tento fazer assim: LoadXMLX(ACBrNFe1.InutNFe.XML, MyWebBrowser, ACBrNFe1.Configuracoes.Arquivos.PathInu + '\' + DataSource.DataSet.FieldByName('protocolo').AsString + '.xml', 0); Apresenta erro no path contento o path do diretório do executável mais o path do PathInu

Resumindo. Para o banco Inter preciso só disso: if Titulo.NossoNumeroCorrespondente <> '' then begin dm.Boleto.Configuracoes.WebService.Operacao := tpConsultaDetalhe; dm.Boleto.Enviar; if dm.Boleto.ListaRetornoWeb[0].HTTPResultCode = 200 then begin Titulo.QrCode.emv := dm.Boleto.ListaRetornoWeb[0].DadosRet.TituloRet.EMV; end; end; E funciona perfeitamente. "Para o Banco Inter" que o retorno é em: dm.Boleto.ListaRetornoWeb[0].Dados.Ret.TituloRet.EMV considerando um título apenas na lista

Bem, consegui @Filippe Maymone O erro estava na linha comentada: if ACBrBoletoPIXQRCode = Nil then ACBrBoletoPIXQRCode := TACBrBoletoPIXQRCode.Create; ACBrBoletoPIXQRCode.url := lUrlPix; ACBrBoletoPIXQRCode.txId := lTxPix; ACBrBoletoPIXQRCode.emv := lCodigoSolicitacao; ACBrBoletoPIXQRCode.PIXQRCodeDinamico(lCodigoSolicitacao, lTxPIX, Titulo); Titulo.NossoNumero := lNossoNumeroFormatado; //Titulo.QrCode := ACBrBoletoPixQRCode; Titulo.QrCode.emv := lUrlPix;

Para eu gerar o QrCode no boleto: BoletoPIX.fr3 do FastReport

Sim, ele gera semelhante a isso, mas ao lêr o QrCdode para pagar dá como inválido

Dessa forma: if ACBrBoletoPIXQRCode = Nil then ACBrBoletoPIXQRCode := TACBrBoletoPIXQRCode.Create; ACBrBoletoPIXQRCode.url := lUrlPix; ACBrBoletoPIXQRCode.txId := lTxPix; ACBrBoletoPIXQRCode.emv := lCodigoSolicitacao; ACBrBoletoPIXQRCode.PIXQRCodeDinamico(lCodigoSolicitacao, lTxPIX, Titulo); Titulo.NossoNumero := lNossoNumeroFormatado; Titulo.QrCode := ACBrBoletoPixQRCode; Gera Inválido

Não consigo gerar um QrCode válido no boleto do Inter: if Titulo.NossoNumeroCorrespondente <> '' then begin dm.Boleto.Configuracoes.WebService.Operacao := tpConsultaDetalhe; dm.Boleto.Enviar; if dm.Boleto.ListaRetornoWeb[0].HTTPResultCode = 200 then begin if Trim(dm.Boleto.ListaRetornoWeb[0].DadosRet.TituloRet.NossoNumeroCorrespondente) <> '' then begin lSituacao := dm.Boleto.ListaRetornoWeb[0].DadosRet.TituloRet.CodigoEstadoTituloCobranca; if dm.Boleto.ListaRetornoWeb[0].DadosRet.IDBoleto.IDBoleto <> '' then lCodigoSolicitacao := dm.Boleto.ListaRetornoWeb[0].DadosRet.IDBoleto.IDBoleto; lNossoNumeroFormatado := dm.Boleto.ListaRetornoWeb[0].DadosRet.IDBoleto.NossoNum; lCodigoBarras := dm.Boleto.ListaRetornoWeb[0].DadosRet.IDBoleto.CodBarras; lLinhaDigitavel := dm.Boleto.ListaRetornoWeb[0].DadosRet.IDBoleto.LinhaDig; lUrl := dm.Boleto.ListaRetornoWeb[0].DadosRet.TituloRet.URL; lTxPIX := dm.Boleto.ListaRetornoWeb[0].DadosRet.TituloRet.TxId; lUrlPIX := dm.Boleto.ListaRetornoWeb[0].DadosRet.TituloRet.EMV; if lUrlPIX = '' then lUrlPIX := dm.Boleto.ListaRetornoWeb[0].DadosRet.TituloRet.UrlPIX; if lCodigoSolicitacao = '' then lCodigoSolicitacao := dm.Boleto.ListaRetornoWeb[0].DadosRet.TituloRet.NossoNumeroCorrespondente; // e na hora de imprimir, atribui no titulo, se tiver pix - gravado no seu receber a url, claro if ACBrBoletoPIXQRCode = Nil then ACBrBoletoPIXQRCode := TACBrBoletoPIXQRCode.Create; ACBrBoletoPIXQRCode.url := lUrlPix; ACBrBoletoPIXQRCode.txId := lTxPix; ACBrBoletoPIXQRCode.emv := ''; //lCodigoSolicitacao; ACBrBoletoPIXQRCode.PIXQRCodeDinamico(lUrlPIX, lTxPIX, Titulo); Titulo.NossoNumero := lNossoNumeroFormatado; Titulo.QrCode := ACBrBoletoPixQRCode; end; end; end; Levando em consideração que para o banco Inter a UrlPix vem dm.Boleto.ListaRetornoWeb[0].DadosRet.TituloRet.EMV dá erro: raised exception class EACBrPixException with message 'O tamanho máximo para conteúdo EMV é 99'. Se fizer assim: ACBrBoletoPIXQRCode.url := lCodigoSolicitacao; // NossoNumeroCorrespondente ACBrBoletoPIXQRCode.txId := lTxPix; ACBrBoletoPIXQRCode.emv := lCodigoSolicitacao; // NossoNumeroCorrespondente ACBrBoletoPIXQRCode.PIXQRCodeDinamico(lUrlPIX, lTxPIX, Titulo); Gera um QrCode Inválido Alguém pode me mostrar o erro?

Obrigado Antonio Gomes, vou estudar aqui sua postagem com exemplo. Grato

Como consultar o título usando o NossoCodigoCorrespondente? Quando gero o boleto ele vem com o QrCode PIX porém quando vou pagar ele exibe: "chave PIX Identificada" e ao tentar pagar ele reporta: "Chave não cadastrada no PIX" Seria o mesmo problema o meu retorno exibem "EM_PROCESSAMENTO"

Muito Obrigado Ítalo, Como sempre. Você é "oh Cara" Grato

Boa tarde, Favor atualizar o arquivo: ACBrNFSeXServicos.ini com provedor para Caeté MG. Testes feitos em regime de produção com resultado positivo. [3110004] ; Atualizado em 04/06/2025 Nome=Caete UF=MG Provedor=Pronim Versao=2.02 ProRecepcionar=http://caete.govbr.cloud/nfse.portal.integracao/services.svc Grato,

Testado e certinho. Muito obrigado.

Boa tarde, Erro na Unit ACBrEPCBloco_C_Class.pas linhas: 876 e 896 Subistituir: if DT_INI >= StrToDate('01/05/2015') then Por: if DT_INI >= EncodeDate(2015,05,01) then Agir igual na linha 971 "if DT_INI >= EncodeDate(2012,07,01) then" Grato

Achei aquí. é -> Registro1.Servico.FormaLancamento := flPagamentoContas;

PagFor como definir Forma de Lançamento 11 - Código de barras?

Olá, Alguém conseguiu gerar um boleto Dinâmico para o Banco Inter? Ou no exemplo de Homologação do Banco do Brasil?

Boa tarde Ítalo, Referente a sua sugestão, teria que colocar dois componentes ACBrNFSeX, ACBrMail e teria que passar as configurações de um para o outro tipo: ACBrNFSeXPdf.Configuracoes := ACBrNFSeX.Configuracoes; antes de limpar e carregar para gerar o pdf, pois visto que estou enviando em lote várias notas de vários clientes e não posso limpar o componente do: "for i := 0 to ACBrNFSeX.NotasFiscais.Count -1 do" para gerar o pdf de nota única para o envio do e-mail: ACBrNFSeX.NotasFiscais.Items[i].EnviarEmail(ACBrNFSeX.NotasFiscais[i].NFSe.Tomador.Contato.Email, 'Nota Fiscal Eletronica de Serviço', mensagem, True, nil, nil ); Dessa forma de envio não pode ser usada então. Ahhh, notei que somente: ACBrNFSeXPdf.Configuracoes := ACBrNFSeX.Configuracoes; não é suficiente e tenho que preparar todas as configurações também para o componente espelhado somente para carregar a NFSe gerada e gerar o pdf exclusivo da nota para o envio do e-mail.

Boa tarde, À Juliana Tamizou e ao Juliomar Marchetti. Primeiramente e acima de tudo desculpas pela forma que me referi ao Consultor, ao qual peço desculpas. Infelizmente ao ocorrer fato como o citado acima, outro que poderia me conduzir a uma solução do problema, acaba por não participar e fica sem uma solução. Esclareço ainda que busco a ajuda pelos consultores, mas que a empresa tem adesão ao plano citado. Mais uma vez peço desculpas.

Bom dia, Teria como essa solicitação passar pela avaliação do ÍTALO? No caso gostaria que se possível ELE apontasse alguém. Pois já é a segunda solicitação ficando sem solução quando passa pelas mãos desse JULIOMAR MARCHETTI

Obrigado Ítalo.

Não entendi bem a resposta. Bem... as linhas referente impressão, estão comentadas, foram testes Usando somente: ACBrNFSeX.NotasFiscais.Items[i].EnviarEmail(ACBrNFSeX.NotasFiscais[i].NFSe.Tomador.Contato.Email, 'Nota Fiscal Eletronica de Serviço', // Assunto mensagem, // Mensagem True, // Enviar PDF junto nil, // Lista com emails que serão enviado com cópias - TStrings nil // Lista de anexos - TStrings ); Imprime tudo e de forma errada, oque pode ser visto ao para em um break point, verá que na primeira vez são gerados dois PDFs sendo um errado.

Bom dia Ítalo, Poderia me ajudar com uma situação? Eu faço e envio em LOTE, porém ao pedir para gerar o PDF de uma única NFSe, É gerado de TODAS, e acontece da última ficar com nome de arquivo errado, não batendo com o conteúdo do arquivo. Usei formas diferentes de gear o PDF e o resultado foi o mesmo. for i := 0 to ACBrNFSeX.NotasFiscais.Count -1 do begin //ACBrNFSeX.NotasFiscais.ImprimirPDF; //ACBrNFSeX.DANFSE.ImprimirDANFSEPDF(ACBrNFSeX.NotasFiscais.Items[i].NFSe); //ACBrNFSeX.NotasFiscais.Items[i].ImprimirPDF; ACBrNFSeX.NotasFiscais.Items[i].EnviarEmail(ACBrNFSeX.NotasFiscais[i].NFSe.Tomador.Contato.Email, 'Nota Fiscal Eletronica de Serviço', // Assunto mensagem, // Mensagem True, // Enviar PDF junto nil, // Lista com emails que serão enviado com cópias - TStrings nil // Lista de anexos - TStrings ); end; Grato,

Boa tarde Ítalo, Houve mudança em Ribeirão das Neves - MG -> NFSe Ribeirão das Neves [3154606] Segue alteração, testada e funcionando perfeitamente. Favor atualizar o arquivo "ACBrNFSeXServicos.ini" Grato, [3154606] ; Atualizado em 23/06/2021 Nome=Ribeirao das Neves UF=MG Provedor=ISSDigital Versao=2.00 ; Atualizado em 19/09/2022 ProRecepcionar=http://ribeirao.supernova.com.br:8093/nfe/snissdigitalsvc ProRecepcionar=https://issqn.ribeiraodasneves.quasar.srv.br/nfe/snissdigitalsvc HomRecepcionar=

Boa tarde Ítalo, Envio, Consulta e Cancelamento tudo funcionando perfeitamente para o provedor Abaco em regime de produção.

Bom dia Ítalo, Muito obrigado, Fiz a atualização agora: 01/09/2022 e refiz teste de Monitoramento, Envio e Cancela em regime de produção. Tudo funcionando perfeitamente agora. Grato,