Arredondamento e Truncamento

[Augusto]

Boa tarde,

Sou novo no forum e estou com uma duvida:

Realize o tratamento de tuncamento e arredondamento apos o comando 'VendeItem'

como está abaixo:

Currency currValorTotal = 00;

if(!DataModule2->ACBrECF1->Arredonda)

currValorTotal = TruncFix(IBQuery_VendasDadosCUP_QUANTIDADE->AsCurrency *

IBQuery_VendasDadosCUP_UNITARIO_ITEM->AsCurrency);

else

currValorTotal = RoundTo(IBQuery_VendasDadosCUP_QUANTIDADE->AsCurrency *

IBQuery_VendasDadosCUP_UNITARIO_ITEM->AsCurrency, 02);

Minha duvidade é a seguinte:

Preciso alem do tratamento acima setar a propriedade ArredondaPorQtd para true, para que o truncamento ou Arredondamento

no ACBrECF ocorra?

[Daniel Simoes]

Quem faz arredondamento ou Truncamento é o próprio ECF, e não o ACBr... Leia a propriedade boleana, ACBRECF1.Arrendonda para saber se o ECF é capaz de realizar o arredondamento ou se ele trunca..

ArredondamentoPorQtd é uma POG para conseguir compatibilizar as balanças (que sempre arredondam) com os ECFs MFD (que sempre truncam)

P.O.G. - Programação Orientada a Gambiarra

[Augusto]

Obrigado Daniel,

Então vc aconselha que a propriedade 'ArredondamentoPorQtd' esteja TRUE para que os ECFs MFD fiquem compativeis com as balanças?

[Daniel Simoes]

Eu deixo ela parametrizável no meu programa... mas primeiro, analise o código e veja como ela trabalha...

Basicamente ela adiciona 0.001 a QTD até o Total Truncado ficar igual ao Total Arredondado desejado