Como capturar e imprimir o Saldo Disponível do Vale Alimentação/Sodexo no comprovante pagamento do TEF

[Datacaixa]

Olá pessoal, tudo bem?

Gostaria de saber como imprimir o Saldo Disponível do VR/Sodexo no comprovante do TEF, já verificamos e o saldo está vindo no log (anexo), porém, não está saindo na impressão.

De modo resumido a minha rotina é a seguinte:

//basicamente a cada transação verifico se o GP está iniciado
if not (ACBrTEFD1.Inicializado(TACBrTEFDTipo(gpPayGoWeb))) then
begin
  MessageBox(Handle, 'O TEF não foi inicializado corretamente!', 'TEF', MB_OK + MB_ICONWARNING);
  AbortaOperacao;
end;

//por ser transação com voucher passo o parâmetro 04
ACBrTEFD1.TEFPayGoWeb.ParametrosAdicionais.ValueInfo[PWINFO_CARDTYPE] := '04';

//realizo a transação com CRT
Status := ACBrTEFD1.CRT(50.00, '04', '123456');

//capturo e armazeno no BD o retorno em ACBrTEFD1.Resp
//aqui é possível ver que salvo os campos ImagemComprovante1aVia.Text e ImagemComprovante2aVia.Text
Qry.FieldByName('NSU').AsString := ACBrTEFD1.Resp.NSU;
Qry.FieldByName('NSU_HOST').AsString := ACBrTEFD1.Resp.NSU;
Qry.FieldByName('DATA').AsDateTime := ACBrTEFD1.Resp.DataHoraTransacaoLocal;
Qry.FieldByName('VALOR').AsFloat := ACBrTEFD1.Resp.ValorTotal;
Qry.FieldByName('COMPROVANTE1VIA').AsString := ACBrTEFD1.Resp.ImagemComprovante1aVia.Text;
Qry.FieldByName('COMPROVANTE2VIA').AsString := ACBrTEFD1.Resp.ImagemComprovante2aVia.Text;

//faço validações finais
if ValorRecebido >= ValorTotal then
  ACBrTEFD1.ConfirmarTransacoesPendentes(True); 
  
GerarVenda;  
ImprimirVenda;
  
//e por fim, imprimo as transações na finalização da venda dessa maneira
if TransacaoTefOk then
begin
  ImprimirComprovante(Qry.FieldByName('COMPROVANTE1VIA').AsString);
  ImprimirComprovante(Qry.FieldByName('COMPROVANTE2VIA').AsString);
end;

Pelo que observei no log, parece que são gerados 3 comprovantes: 1 - via cliente, 2 - via estabelecimento, 3 - via só com saldo.  Será que o problema é esse?
Eu queria poder ativar a função de VR ou Sodexo no meu PDC de teste para conseguir simular e entender melhor, entretanto, foi me passado que infelizmente essa ativação não é possível.

 

comms.rar

[Daniel Simoes]

Pelo que notei no Log, está no registrador 0x55... que é a via Resumida...

O ACBr é programado para Exibir a Via reduzida, apenas se a propriedade estiver marcada no componente...

10:40:02:624 0x53=

TIANO SUPERMERCADO                      
     CNPJ/CPF: 38.197.012/0001-20     
             R SAO MIGUEL            
               IPOJUCA                
                SODEXO                
                CIELO                 
       SODEXO ALIMENTACAO PASS        
           ************8803           

2 VIA-ESTABELECIMENTO       AUT=704574

027790508820001/POS=41231917

DOC=645031    02/01/24 10:39     ONL-C

VENDA A VOUCHER
VALOR:                   R$      68,58

    TRANSACAO AUTORIZADA COM SENHA    
        ROSANGELA SANTOS LEITE        
   A0000005372010-72EB0720A756E54F    
                 ALI                  
----------------------------------------

6202014 EC:0000749060 REF:0000645031

10:40:02:624 0x54=
TIANO SUPERMERCADO                      
     CNPJ/CPF: 38.197.012/0001-20     
             R SAO MIGUEL             
               IPOJUCA                
                SODEXO                
                CIELO                 
       SODEXO ALIMENTACAO PASS        
           ************8803           

1 VIA-CLIENTE               AUT=704574

DOC=645031    02/01/24 10:39     ONL-C

VENDA A VOUCHER
VALOR:                   R$      68,58
SALDO DISP:              R$     131,62

----------------------------------------

6202014 EC:0000749060 REF:0000645031

10:40:02:624 0x55=                SODEXO                
                CIELO                 
       SODEXO ALIMENTACAO PASS        

           ************8803           

POS=41231917   DOC=645031   AUT=704574
VALOR:     68,58 SALDO DISP:    131,62

https://devpaygo.readme.io/docs/10dicionário-de-dados

 

Você pode ler o registrador, diretamente, usando o Objeto "RespostaTEF"

  ViaReduzida := RespostaTEF.LeInformacao(PWINFO_RCPTCHSHORT,0).AsString ;