[V$Pague] - Cielo Premia

[Marcos Gerene]

Boa tarde,

Uso o ACBrTEFD com VSPague a algum tempo, e sempre tive que comentar a linha da unit do VSPague que acrescentava o valor 1 de ajuste

para o Premmia para conseguir vender com 2 ou mais cartões (estourava o valor a pagar). Sem este valor da certo, com ele tenho este problema.

Estou migrando meus fontes para o Delphi 2010, então peguei o  ACBr "puro" e fui testar e lembrei desse erro, resolvi propor uma alteração.

Criei um parâmetro "CieloPremia" com valor default True no Create do componente seto para True novamente (para garantir que não vai afetar quem usa

este ajuste) e somente mando o ajuste se o este novo parâmetro estiver com valor true, logo no meu caso, seto-o para false e funciona.

 

Não sei se somente eu tenho este problema, então busquei "corrigir" sem que afete ouros usuários.

 

Segue a unit para análise e commit.

ACBrTEFDVeSPague.pas

[]'s

 

[Juliomar Marchetti]

Boa tarde

não sei como é sua atualização do svn mas isso eu corrigi semana passada relatada por outro usuário!

já está no svn

[Marcos Gerene]

Boa tarde @Juliomar Marchetti ,

Você tem razão, eu voltei a minha revisão para o dia 10/02 por causa do problema da NFe que relatei em outro post e

notei que continuava desta forma então propus a correção.

 

Pode descartar, obrigado, []'s