ActiveDelphi

[claudioforteski]

Ola pessoal,
utilizando o firebird, preciso fazer um calculo conforme abaixo:

xValorcomreducao := (xvalo_uni/100)*xredu_base_icms ;
xvalorICMS := (xValorcomreducao/100)*xaliq_icm;
xValorPis := (xvalo_uni/100)*xaliq_pis);
xValorCofins := (xvalo_uni/100)*xAliq_cof);
xPrecoCus := (xvalo_uni-xvalorICMS-xvalorPis-xvalorCofins);

Alguém poderia me ajudar?

Grato

Claudio

[joemil]

testa assim:

[claudioforteski]

Obrigado pela colaboração

Mas acho que desta maneira não funcionaria,

pq sempre o resultado deste calculo, eu teria que ir acumulando,
tipo usando o SUM, teria que ir calculando linha a linha e totalizando
o xPrecoCus

Seria mais ou menos o resultado assim:
Lançaria varias notas fiscais, após iria gerar um relatório onde aparece:

Produto 1
total de entradas
total de saidas
Preço de custo

onde esse preço de custo, seria o total do item de todas as notas,
deduzindo os impostos, cfe passei abaixo, pode notar que no caso do ICMS,
ainda tem a redução na base de calculo,
após esse cálculo, eu dividira o total do preço de custo, pelo total de entradas, para me dar o preço médio, mas isso dai eu faço pelo oncalcfiels
do componente


xValorcomreducao := (xvalo_uni/100)*xredu_base_icms ;
xvalorICMS := (xValorcomreducao/100)*xaliq_icm;
xValorPis := (xvalo_uni/100)*xaliq_pis);
xValorCofins := (xvalo_uni/100)*xAliq_cof);
xPrecoCus := (xvalo_uni-xvalorICMS-xvalorPis-xvalorCofins);

Grato

Claudio

[joemil]

tvz se vc usar CTE consiga resolver
_________________
<b>SEMPRE COLOQUE [RESOLVIDO] NO SEU POST</b>
Enviar imagens: http://tinypic.com/