Coluna de Aliquotas
ae galera...tudo ok?
O meu problema é o seguinte:
tenho uma tabela de faturamento onde os campos principais sao: EMPRESA, CNPJ, MES, VENDAS, SERVICOS, TOTAL, ACUMULADO...
emcima disto, criei um Quick Report onde serao listados todos os meses do ano de 2004, por exemplo, e pra cada acumulado uma aliquota...
exemplo:
a charada ta aqui! Tipo q se o acumulado do mes for menor que R$ 60.000,00, entao a liquota é igual a 3, mas se o acumulado do mes for maior que R$ 60.000,00 e menor que R$ 300.000,00 a aliquota é de 5,4...e assim por adiante...
Essa aliquota, nao é um campo e sim um QRLabel...tipo se o QRDBLabel do acumulado for maior ou menor que x, o QRLabel é Y...
como posso fazer isso?
consegui expo a duvida?
Desde ja agradeço
Abraço
Joe Ventrue
O meu problema é o seguinte:
tenho uma tabela de faturamento onde os campos principais sao: EMPRESA, CNPJ, MES, VENDAS, SERVICOS, TOTAL, ACUMULADO...
emcima disto, criei um Quick Report onde serao listados todos os meses do ano de 2004, por exemplo, e pra cada acumulado uma aliquota...
exemplo:
MARIA BENEDITA LTDA
025.215.648/0001-25
MES VENDAS SERVICOS TOTAL ACUMULADO ALIQUOTA
JAN R$ 100,00 R$ 200,00 R$ 300,00 R$ 300,00 3
a charada ta aqui! Tipo q se o acumulado do mes for menor que R$ 60.000,00, entao a liquota é igual a 3, mas se o acumulado do mes for maior que R$ 60.000,00 e menor que R$ 300.000,00 a aliquota é de 5,4...e assim por adiante...
Essa aliquota, nao é um campo e sim um QRLabel...tipo se o QRDBLabel do acumulado for maior ou menor que x, o QRLabel é Y...
como posso fazer isso?
consegui expo a duvida?
Desde ja agradeço
Abraço
Joe Ventrue
Joe Ventrue
Curtidas 0
Respostas
Joe Ventrue
10/02/2004
sobe...
GOSTEI 0
Joe Ventrue
10/02/2004
sobe...
GOSTEI 0
Adilsond
10/02/2004
Crie um campo calculado para a aliquota e no evento oncalcfields voce faz a atribuição conforme o valor.
procedure .....
begin
if tabelacampo.Value < 60000 then
TabelaCampoCalculado.Value := 3
else
if tabelacampo.Value < 300000 then
TabelaCampoCalculado.Value := 4.5
else
......
end;
procedure .....
begin
if tabelacampo.Value < 60000 then
TabelaCampoCalculado.Value := 3
else
if tabelacampo.Value < 300000 then
TabelaCampoCalculado.Value := 4.5
else
......
end;
GOSTEI 0
Joe Ventrue
10/02/2004
soh kra...mas os campos sao monetarios ($), sera q tem algum problema?
eu vou faze o teste e retorno.....
valew kra...
eu vou faze o teste e retorno.....
valew kra...
GOSTEI 0
Joe Ventrue
10/02/2004
o kra...so tem um problema...
tipo que nao existe esse campo de acumulado....o acumulado eu calculo por uma Query dentro do QuickReport....bicho q problemao....
sera q eu to complicando as coisas??
tipo que nao existe esse campo de acumulado....o acumulado eu calculo por uma Query dentro do QuickReport....bicho q problemao....
sera q eu to complicando as coisas??
GOSTEI 0