Como alimentar tipo cartão, número de parcelas, ... no TEF via AC?

[Valdir Dill]

Bom dia,

Estou usando ACBrTEFD e gostaria de saber se é possível o AC enviar as informações de tipo de cartão, tipo de parcelamento e número de parcelas ao TEF? 

Quando executo um ACBrTEFD1.CRT, só posso enviar os parâmetros Valor, IndiceFPG_ECF, DocumentoVinculado e Moeda, certo?

Como posso alimentar o tipo de cartão (800-001), o tipo de operação (800-002), tipo de parcelamento (800-003) e quantidade de parcelas (800-004)?

Segundo o manual de integração, se eu enviar ao TEF esses dados, o operador não precisará informá-los lá no TEF.
Como eu já tenho essas informações no meu aplicativo, gostaria de alimentál-los. É possível.

Obrigado!

[Juliomar Marchetti]

bom dia

Sitef e VSPague é possível os demais não sei informar

[Valdir Dill]

31 minutos atrás, Juliomar Marchetti disse:

bom dia

Sitef e VSPague é possível os demais não sei informar

Bom dia,

Certo, mas como eu alimento essa informação no acbrTEFD? Tem alguma propriedade já implementada no componente?

Obrigado.

[Juliomar Marchetti]

Veja os eventos do componente, eles é quem irão lhe ajudar com isso, ao invés de chamar a tela para preencher tu passará direto no evento.

[Valdir Dill]

Legal. Acho que entendi.

Seria algo mais ou menos assim?

procedure TForm2.ACBrTEFD1AntesFinalizarRequisicao(Req: TACBrTEFDReq);
begin
 if Req.Header = 'CRT' then
  begin
   Req.GravaInformacao(800, 1, VMeuTipoCartao.toString); //0=crédito; 1=débito.
   Case VMeuTipoCartao of
    0 : begin
         if VMinhaQtdeParc = 0 then Req.GravaInformacao(800, 2, '0') //0=à vista; 1=parcelado.
         else
          begin
           Req.GravaInformacao(800, 2, '1'); //parcelado
           Req.GravaInformacao(800, 3, VMeuTipoParcelado); //0=ADM (juros por conta do dono do cartão); 1=Loja (juros por conta da loja).
           Req.GravaInformacao(800, 4, VMinhaQtdeParc.ToString);
          end;
        end;
    1 : Req.GravaInformacao(800, 2, '0'); //Se for C.D., só à vista.
   end;
  end;
end;

 

Obrigado!

[giulianon]

Para iniciar direto no débito

ACBrTEFD.TEFCliSiTef.OperacaoCRT := 2;

Para iniciar direto no crédito

ACBrTEFD.TEFCliSiTef.OperacaoCRT := 3;

Na documentação do clisitef tem todos os códigos de todas as operações que você pode utilizar.

Qualquer dúvida estamos a disposição.