Jump to content

dev botao

Transações utilizando cartões Banrisul


  • Este tópico foi criado há 263 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

  • Consultores

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 😉
 

  • Like 4
Link to comment
Share on other sites

×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.