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