Wanderson Robert
-
Total de ítens
42 -
Registro em
-
Última visita
Community Answers
-
Wanderson Robert's post in Pagfor - Retorno - Itaú - Código autenticação PIX was marked as the answer
Bom dia, Sim Alexandre, já está em produção aqui.
PagFor.Itau.LerTxtRetorno.pas
-
Wanderson Robert's post in ACBRPAGFOR - Retorno Pagamento PIX Bradesco was marked as the answer
Olá Pessoal.
O processamento do Retorno de Pagamentos PAGFOR/Multipag - Bradesco no Segmento A existe o Segmento Z opcional, é necessário ativar para que conseguir a autenticação do pagamento, abaixo alterações realizadas:
Units atualizadas em anexo.
AcbrPagForClass.Pas
PagFor.Bradesco.LerTxtRetorno.Pas
PagFor.Bradesco.LerTxtRetorno.pas ACBrPagForClass.pas
-
Wanderson Robert's post in ACBRPagFor - Autenticação de Pagamento was marked as the answer
Solução proposta:
Habilitando estas linhas será possível obter o código de autorização de pagamento.
A LerSegmentoJ99 faz a leitura da autenticação somente de RegSegOpc ='3J99'
A LerSegmento Z considera RegSeg='3Z' entendo que o correto é habilitar todas as chamadas e declarações para o Segmemento J
Arquivo: CNAB240.lerTxtRetorno
Ação necessária: Linha 896, retirar comentário de LerSegmentoZ(PagFor.Lote.Last.SegmentoJ.Last.SegmentoZ, I);
Arquivo: ACBRPagforClass
Ações necessárias :CNAB240.LerTxtRetorno.pas
Linha 1034 Retirar comentário de FSegmentoZ: TSegmentoZList;
Linha 1042 Retirar comentário de procedure SetSegmentoZ(const Value: TSegmentoZList);
Linha 1069 Retirar comentário de property SegmentoZ: TSegmentoZList read FSegmentoZ write SetSegmentoZ;
Linha 2055 Retirar comentário de FSegmentoZ := TSegmentoZList.Create;
Linha 2064 Retirar comentário de FSegmentoZ.Free;
Linha 2111 a 2114 Retirar comentário de procedure TSegmentoJ.SetSegmentoZ(const Value: TSegmentoZList);
Arquivos com as alterações em anexo.
Exemplo do resultado obtido da leitura o retorno obtido.
ACBrPagForClass.pas
-
Wanderson Robert's post in Problema ao Compita Pagfor Delphi XE2 was marked as the answer
Segue correção para quem tiver o mesmo Problema. arquivos em anexo.
ACBrPagForConversao.pas ACBrPagForLerTxt.pas
-
Wanderson Robert's post in 1871 - Element '{http://www.portalfiscal.inf.br/nfe}vICMSSubstituto': This element is not expected. Expected is ( {http://www.portalfiscal.inf.br/nfe}pST ). was marked as the answer
Obrigado Juliana, já havia feito essa configuração também, e o erro persistia. Mais já resolveu.
-
Wanderson Robert's post in XML CCE was marked as the answer
resolvido.
vStatus := NFe.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.cStat;
vProtocolo_nr:= NFe.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.nProt;
vProtocolo_dt:= NFe.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.DhRegEvento;
vXml := NFe.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.xml;
vArqXML := NFE.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.nomearquivo;