Carregar campos na leitura do retorno do SiTEF para Carteiras Digitais

[Ana Borsoi]

Olá! Tudo bem?

Estamos realizando algumas alterações em nossa implementação de Carteiras Digitais e verificamos que existem alguns campos que precisam ser lidos no retorno do SiTEF, sendo eles:

• 133: NSU_SITEF
• 135: CodigoAutorizacaoTransacao
• 157: Estabelecimento
• 158: CodigoRedeAutorizada
• 4077: NSU_FEPAS
• 4153: CodigoPSP

Estes foram adicionados no fonte ACBrTEFCliSiTefComum.pas.

Destes campos, foi necessário adicionar os fields abaixo no fonte ACBrTEFComum.pas, as demais já existiam:

• fpCodigoPSP
• fpNSU_SITEF
• fpNSU_FEPAS

 

Além disso, foram encontradas também alguns fields que não estavam presentes no método TACBrTEFResp.Clear, sendo eles:

• fpIdCarteiraDigital
• fpNomeCarteiraDigital
• fpCodigoPSP
• fpNSU_SITEF
• fpNSU_FEPAS
• fpDataVencimento
• fpInstituicao
• fpModalidadePagto
• fpModalidadePagtoDescrita
• fpModalidadePagtoExtenso
• fpCodigoRedeAutorizada

Foram utilizados os manuais recebidos da equipe de suporte do SiTEF para basear as alterações informadas. Os fontes alterados seguem em anexo.

Observação: os manuais não foram anexados, pois excedem o tamanho permitido, mesmo zipando-os.

Peço que, por gentileza, sejam avaliadas e, se aprovadas, disponibilizadas as alterações no repositório do ACBr.

Obrigada!

ACBrTEFCliSiTefComum.pas ACBrTEFComum.pas

[Juliomar Marchetti]

Já está na lista para ser validado.

@Edmilson Santin é da mesma empresa correto?

[Daniel Simoes]

Olá @Ana Borsoi, muito obrigado pela contribuição...

Sabe me dizer, se esses campos poderiam ser renomeados, para algo mais genérico, e compatível com outros TEFs ?

fpNSU_SITEF:  Esse creio que poderíamos chamar de NSU_TEF

fpNSU_FEPAS:  O que seria FEPAS ??

 

[Ana Borsoi]

2 horas atrás, Juliomar Marchetti disse:

Já está na lista para ser validado.

@Edmilson Santin é da mesma empresa correto?

OK, obrigada.

É sim, o @Edmilson Santin é da minha equipe.

[Juliomar Marchetti]

2 horas atrás, Daniel Simoes disse:

fpNSU_FEPAS:  O que seria FEPAS ??

acho que faltou dizer o que seria esse campo ? e se o outro poderia seguir a ideia

19 minutos atrás, Ana Borsoi disse:

OK, obrigada.

 

[Ana Borsoi]

2 horas atrás, Daniel Simoes disse:

Olá @Ana Borsoi, muito obrigado pela contribuição...

Sabe me dizer, se esses campos poderiam ser renomeados, para algo mais genérico, e compatível com outros TEFs ?

fpNSU_SITEF:  Esse creio que poderíamos chamar de NSU_TEF

fpNSU_FEPAS:  O que seria FEPAS ??

 

Olá @Daniel Simoes, imagina!

Sobre o fpNSU_SITEF se tornar fpNSU_TEF, acredito que possa ser dessa forma sim.

Pelo que me foi passado, o FEPAS é a plataforma da Software Express que faz a interligação dos produtos vinculados a SiTEF, é responsável pelo gerenciamento das transações entrantes com as adquirentes, sub-adquirentes, bancos, etc. Ela é o hub de transação, basicamente tudo cai nela e tudo volta dela. Em resumo, seria algo bem específico da SiTEF.

2 horas atrás, Juliomar Marchetti disse:

acho que faltou dizer o que seria esse campo ? e se o outro poderia seguir a ideia

 

Respondido no comentário anterior para o @Daniel Simoes.

[Daniel Simoes]

Obrigado pelas explicações @Ana Borsoi...

Humm.. em relação ao FEPAS, eu fico pouco a vontade de inserir na Classe Base, algo que seja tão específico de um TEF apenas...

Por favor verifique se vocês não poderiam capturar essa informação, do lado da aplicação, usando o método LeInformacao.. Veja o Exemplo abaixo...

procedure TFormPrincipal.ACBrTEFD1DepoisConfirmarTransacoes(
  RespostasPendentes: TACBrTEFDRespostasPendentes);
var
  i: Integer;
  NSU_FEPAS: String;
begin
  for i := 0 to RespostasPendentes.Count-1  do
  begin
    with RespostasPendentes[i] do
    begin
      // Lendo os campos mapeados //
      AdicionarLinhaLog('- Rede: '  + Rede + ', NSU: '  + NSU );
      NSU_FEPAS := LeInformacao(4077).AsString;  // <------- AQUI ---------
    end;
  end;
end;   

 

[Ana Borsoi]

19 horas atrás, Daniel Simoes disse:

Obrigado pelas explicações @Ana Borsoi...

Humm.. em relação ao FEPAS, eu fico pouco a vontade de inserir na Classe Base, algo que seja tão específico de um TEF apenas...

Por favor verifique se vocês não poderiam capturar essa informação, do lado da aplicação, usando o método LeInformacao.. Veja o Exemplo abaixo...

procedure TFormPrincipal.ACBrTEFD1DepoisConfirmarTransacoes(
  RespostasPendentes: TACBrTEFDRespostasPendentes);
var
  i: Integer;
  NSU_FEPAS: String;
begin
  for i := 0 to RespostasPendentes.Count-1  do
  begin
    with RespostasPendentes[i] do
    begin
      // Lendo os campos mapeados //
      AdicionarLinhaLog('- Rede: '  + Rede + ', NSU: '  + NSU );
      NSU_FEPAS := LeInformacao(4077).AsString;  // <------- AQUI ---------
    end;
  end;
end;   

 

Entendi @Daniel Simoes, sem problemas.

Consegui utilizar seu exemplo para NSU_FEPAS e buscou as informações corretamente.

Obrigada pela dica!

Editado 7 Maio, 2021 por Ana Borsoi

[Daniel Simoes]

@Ana Borsoi, enviado ao SVN, com as modificações sugeridas...

https://sourceforge.net/p/acbr/code/21822/

[Ana Borsoi]

Em 10/05/2021 at 10:32, Daniel Simoes disse:

@Ana Borsoi, enviado ao SVN, com as modificações sugeridas...

https://sourceforge.net/p/acbr/code/21822/

Bom dia @Daniel Simoes.

Ficou tudo certinho após a liberação das alterações, muito obrigada!

Editado 13 Maio, 2021 por Ana Borsoi

[Juliana Tamizou]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.