Transações utilizando cartões Banrisul

[antonio.carlos]

Olá pessoal, neste tópico vamos falar sobre o uso dos cartões Banrisul no TEF PayGo.

É importante lembrar que:

1. Banricompras à Vista = É uma transação de  Débito à Vista na Bandeira Banricompras.
2. Banricompras Pré-Datado = É uma transação de Débito Pré-Datado na Bandeira Banricompras. Não é um parcelamento e sim um único débito agendado para um prazo definido que pode variar entre 5 até 60 dias (parcela única).
3. Banricompras Parcelado = É uma transação de Débito em 2 ou mais parcelas, na Bandeira Banricompras. Normalmente é usado entre 2 a 12 parcelas com débito a cada 30 dias. É semelhante ao Pré-Datado, só que é mais de 1 débito agendado. Mas é importante lembrar que não é uma transação de Crédito.

Devido grande demanda dos pedidos de TEF no Estado Rio Grande do Sul... muitos estabelecimentos utilizam o cartão Banrisul e este tipo de cartão é bem especifico na região... 

Para que a automação possa utilizar este tipo de cartão nas transações TEF pela PayGo, precisamos seguir alguns passos, como por exemplo:

1 - Transacionar apenas na opção débito..
2 - Essa transação débito, ela pode ser à vista ou pré-datado.

E como vamos fazer isso utilizando os componentes ACBrTEFD e ACBrTEFAPI ? 

Começando pelo componente ACBrTEFD:

Exemplo Débito à vista:

procedure InformarParametrosCartaoDebito;
  begin
    // Instruindo CRT a apenas transações de Débito
    if (ACBrTEFD1.GPAtual = gpPayGoWeb) then
    begin
      ACBrTEFD1.TEFPayGoWeb.ParametrosAdicionais.ValueInfo[PWINFO_CARDTYPE]:='02'; //02: débito
      ACBrTEFD1.TEFPayGoWeb.ParametrosAdicionais.ValueInfo[PWINFO_FINTYPE]:='01'; //01: à vista
    end
    else if (ACBrTEFD1.GPAtual = gpCliSiTef) then
      ACBrTEFD1.TEFCliSiTef.OperacaoCRT := 2;
  end;

Exemplo Débito Pré-datado:

procedure InformarParametrosCartaoDebito;
  begin
    // Instruindo CRT a apenas transações de Débito
    if (ACBrTEFD1.GPAtual = gpPayGoWeb) then
    begin
      ACBrTEFD1.TEFPayGoWeb.ParametrosAdicionais.ValueInfo[PWINFO_CARDTYPE]:='02'; //02: débito
      ACBrTEFD1.TEFPayGoWeb.ParametrosAdicionais.ValueInfo[PWINFO_FINTYPE]:='08'; //08: pré-datado
    end
    else if (ACBrTEFD1.GPAtual = gpCliSiTef) then
      ACBrTEFD1.TEFCliSiTef.OperacaoCRT := 2;
  end;

Agora utilizando o componente ACBrTEFAPI, temos duas formas de informar os parâmetros, uma opção é usar a Function EfetuarPagamento:

Exemplo Débito à vista:

ACBrTEFAPI1.EfetuarPagamento( IntToStr(Venda.NumOperacao),
                                          AValor, tefmpCartao, teftcDebito,
                                          tefmfAVista);

Exemplo Débito Pré-datado:

ACBrTEFAPI1.EfetuarPagamento( IntToStr(Venda.NumOperacao),
                                          AValor, tefmpCartao, teftcDebito,
                                          tefmfPredatado);

Outra opção é usar um TypeCast e inserir as propriedades diretamente na classe de TEF:

Exemplo Débito à vista:

if ACBrTEFAPI1.TEF is TACBrTEFAPIClassPayGoWeb then
      begin
        with TACBrTEFAPIClassPayGoWeb(ACBrTEFAPI1.TEF) do
        begin
          TEFPayGoAPI.ParametrosAdicionais.ValueInfo[PWINFO_CARDTYPE] := '2';   // Tipo Cartão: Débito
          TEFPayGoAPI.ParametrosAdicionais.ValueInfo[PWINFO_FINTYPE] := '1';    // Modalidade de financiamento da transação: À vista
        end;
      end;

Exemplo Débito Pré-datado:

if ACBrTEFAPI1.TEF is TACBrTEFAPIClassPayGoWeb then
      begin
        with TACBrTEFAPIClassPayGoWeb(ACBrTEFAPI1.TEF) do
        begin
          TEFPayGoAPI.ParametrosAdicionais.ValueInfo[PWINFO_CARDTYPE] := '2';   // Tipo Cartão: Débito
          TEFPayGoAPI.ParametrosAdicionais.ValueInfo[PWINFO_FINTYPE] := '8';    // Modalidade de financiamento da transação: Pré-datado
        end;
      end;

Qualquer dúvida nos procure nos canais do Discord.. 

Até a próxima