AutoTEF Stone

[Dangelo2010]

Boa noite!

Alguém já implantou esse recurso da Stone chamado AutoTEF ?

O PDV envia o valor para maquinha da Stone e o cliente faz o pagamento com cartão de crédito e/ou débito, igual PIX e ja confirma o pagamento no PDV

https://microtefdocs.stone.com.br/docs?_ga=2.244507653.1603350657.1684275177-299224044.1684275177&_gl=1*1erxqx2*_ga*Mjk5MjI0MDQ0LjE2ODQyNzUxNzc.*_ga_9CZMEZM0V5*MTY4NDI3NTMyOC4xLjEuMTY4NDI3NTU0Mi42MC4wLjA.

[Daniel Simoes]

Parece ser parecido com o ControlPay, da PayGo...  https://devpaygo.readme.io/v4/docs/o-controlpay

Mas creio que nesse caso da Stone, você só possa usar eles como adquirência...

[Dangelo2010]

@Daniel Simoes Obrigado!

[consultecdatasistemas]

Boa noite

Estou fazendo a integração do TEF,usando o componente ACBRTEFD, com a configurando para tefStoneAutoTEF.

Ao fazer fazer uma venda no Credito Parcelada, estou passando no Financiamento:  tefmfParceladoEmissor, então aparece um erro de dados, 

invalid InstallmentType

como poderia resolver?

 

Editado Segunda as 23:07 por consultecdatasistemas

[Daniel Simoes]

O Stone Auto TEF só está disponível no ACBrTEFAPI

[consultecdatasistemas]

É por ele que estou desenvolvendo.

Inclusive, nao estava conseguindo fazer venda no cartão a prazo, por conta de um detalhe no comando que envia o pagamento.

Eu tive que alterar o componente para dá certo.

  if CartoesAceitos = [] then
    CartoesAceitos := [teftcCredito];

  if (teftcCredito in CartoesAceitos) then
    saccountType := CACCTYP_CREDIT
  else if (teftcDebito in CartoesAceitos) then
    saccountType := CACCTYP_DEBIT
  else
    saccountType := CACCTYP_UNDEF;

if saccountType = CACCTYP_CREDIT then
    iType := 0
  else
  begin
    case Financiamento of
      tefmfParceladoEmissor: iType := 3;
      tefmfParceladoEstabelecimento: iType := 2;
    else
      iType := 1
    end;
  end;
 

da forma que esta desenvolvido acima, nunca dá certo passar o financiamento na opção 3,2,1... so passa com 0.

então tive que alterar

Editado Terça as 17:49 por consultecdatasistemas

[Juliomar Marchetti]

28 minutos atrás, consultecdatasistemas disse:

É por ele que estou desenvolvendo.

Inclusive, nao estava conseguindo fazer venda no cartão a prazo, por conta de um detalhe no comando que envia o pagamento.

Eu tive que alterar o componente para dá certo.

  if CartoesAceitos = [] then
    CartoesAceitos := [teftcCredito];

  if (teftcCredito in CartoesAceitos) then
    saccountType := CACCTYP_CREDIT
  else if (teftcDebito in CartoesAceitos) then
    saccountType := CACCTYP_DEBIT
  else
    saccountType := CACCTYP_UNDEF;

if saccountType = CACCTYP_CREDIT then
    iType := 0
  else
  begin
    case Financiamento of
      tefmfParceladoEmissor: iType := 3;
      tefmfParceladoEstabelecimento: iType := 2;
    else
      iType := 1
    end;
  end;
 

da forma que esta desenvolvido acima, nunca dá certo passar o financiamento na opção 3,2,1... so passa com 0.

então tive que alterar

anexe sua unit modificada para que possamos validar

[consultecdatasistemas]

53 minutos atrás, Juliomar Marchetti disse:

anexe sua unit modificada para que possamos validar

 

ACBrTEFAPIStoneAutoTEF.pas

[Juliomar Marchetti]

lsó pra confirmar. tu comentou um if e deixou o else

[Daniel Simoes]

Pelo que compreendi, o iType precisa ser sempre 1, quando for Compra a Crédito... seria isso ?

[consultecdatasistemas]

o IType, se for a vista sera 1, e se for parcelado, dependendo do parcelamento, devera receber 2 ou 3

e da forma como estáva, ele so recebia 0 e então dava erro

21 horas atrás, Daniel Simoes disse:

Pelo que compreendi, o iType precisa ser sempre 1, quando for Compra a Crédito... seria isso ?

o IType, se for a vista sera 1, e se for parcelado, dependendo do parcelamento, devera receber 2 ou 3

e da forma como estáva, ele so recebia 0 e então dava erro

[Daniel Simoes]

Revisei a documentação e os fontes, e apliquei alguns ajustes...

Commit [r36159]