Retorno Destaxa

[Marco Moreira]

Boa Tarde,

Implantamos o Destaxa em cliente... Não estou recebendo algumas  informações... Fiz um comparativo com a Paygo e segue uma sugestão de alteração para análise;

Como está a PAYGO

PWINFO_REQNUM         = 50;     // Referência local da transação
        PWINFO_REQNUM:
        begin
          NumeroLoteTransacao := Linha.Informacao.AsInt64;
          NSU_TEF := LinStr;
        end;

PWINFO_AUTLOCREF      = 68;     // Referência da transação para a infraestrutura Pay&Go Web
        PWINFO_AUTLOCREF:
          Finalizacao := LinStr

    // Workaround, para situações onde a VERO / BANRICOMPRAS não retorna o CodigoAutorizacaoTransacao ou PWINFO_AUTHCODE (0x46)
    if (CodigoAutorizacaoTransacao = '') then
    begin
      if (UpperCase(Instituicao) = 'BANRICOMPRAS') and (UpperCase(Rede) = 'VERO') then
        CodigoAutorizacaoTransacao := NSU;
    end;
 

 

Alteração proposta para DESTAXA

  NSU_TEF := DestaxaResposta.transacao_codigo_vespague;

  Finalizacao := DestaxaResposta.transacao_nsu_rede;

  // Workaround, para situações onde a VERO / BANRICOMPRAS OU BANRISUL não retorna o CodigoAutorizacaoTransacao ou DestaxaResposta.transacao_autorizacao
  if (CodigoAutorizacaoTransacao = '') then
  begin
    if (Pos('BANRI', UpperCase(NomeAdministradora)) > 0) and (UpperCase(Rede) = 'VERO') then
       CodigoAutorizacaoTransacao := NSU;
  end;

Como ficou...

ACBrTEFDestaxaComum.pas ACBrTEFAPIDestaxa.pas

[Daniel Simoes]

Obrigado pela contribuição,

Deixei na minha fila de analise...

[Daniel Simoes]

@Marco Moreira,

Analisando a sua contribuição, fique na dúvida em relação a essa sugestão:

o código atual do ACBr atribui

NSU_TEF := DestaxaResposta.transacao_nsu_rede;

e a sua mudança propõem que seja:

NSU_TEF := DestaxaResposta.transacao_codigo_vespague;

mudar essa atribuição, pode quebrar as aplicações que já usam o código atual do ACBr...

Minha sugestão é que fique dessa maneira:

  NSU_TEF := DestaxaResposta.transacao_nsu_rede;
  Finalizacao := DestaxaResposta.transacao_codigo_vespague;

[Marco Moreira]

Bom dia,

Perfeito!

Tinha Comparado as informações em relação a PayGo me pareceu que a relação NSU_TEF := DestaxaResposta.transacao_codigo_vespague  seria mais coerente, mas o codigo_vespague tem  um tamanho maior do que a PayGo;

Analisando o dicionário de dados pode estourar mesmo...

 

Sendo assim, segue em anexo tua sugestão...

ACBrTEFAPIDestaxa.pas ACBrTEFDestaxaComum.pas

[Daniel Simoes]

@Marco Moreira,

Obrigado pela sua contribuição e testes... Commit [r41728]