ActiveDelphi

[lbeckerf]

Boa noite a todos, me chamo Lauro Becker.
Estou trabalhando em um sistema de recibos sendo que preciso calcular o INSS o procedimento abaixo recebe o valor e teoricamente deveria identificar a faixa de percentual e calcular e alimentar a variavel inss, o procedimento esta calculando corretamente com as procentagens de 9 e 11%, mas na de 8% ele não calcula... Peço perdão pela minha falta de experiência tenho uns 2 meses que estou estudando pela net, isso quando esta esta funcionando... Desde já agradeço a compreensão de todos... Obrigado.
Segue código:
procedure Tfrm_principal.CalculaINSS;
begin
if (CB_INSS_SIM.Checked = true) and (DB_Vlr_Bruto.Field.Value > 0) then
begin
if (DB_Vlr_Bruto.Field.Value > 100) and (DB_Vlr_Bruto.Field.Value <= frm_config.DBE_inss_fx01.Field.Value)
then
inss := (DB_Vlr_Bruto.Field.Value * /100;
lb_idc_inss.Caption := '8,00';

if (DB_Vlr_Bruto.Field.Value >= frm_config.DBE_inss_fx02.Field.Value) and (DB_Vlr_Bruto.Field.Value <= frm_config.DBE_inss_fx03.Field.Value)
then
inss := (DB_Vlr_Bruto.Field.Value * 9)/100;
lb_idc_inss.Caption := '9,00';
if (DB_Vlr_Bruto.Field.Value >= frm_config.DBE_inss_fx04.Field.Value) and (DB_Vlr_Bruto.Field.Value <= frm_config.DBE_inss_fx05.Field.Value)
then
inss := (DB_Vlr_Bruto.Field.Value * 11)/100;
lb_idc_inss.Caption := '11,00';
if (DB_Vlr_Bruto.Field.Value > frm_config.DBE_inss_fx05.Field.Value)
then
inss := (frm_config.DBE_inss_fx05.Field.Value * 11)/100;
lb_idc_inss.Caption := '11,00';
end
else
inss := 0;
end;

[felipekk]

Bom dia e seja bem vindo ao fórum.
Vc verificou se essas condições estão sendo satisfeitas?

[imex]

Bom dia,

Para executar mais de um comando dentro de um If é necessário delimitar os comandos dentro de um bloco Begin / End mais ou menos como segue:

[lbeckerf]

[lbeckerf]

[imex]

Desculpe mas não entendi o que você quis dizer.
Acho que você vai conseguir resolver essa questão se colocar os comandos a serem executas para cada condição dentro de um bloco Begin / End.

Qualquer coisa volte a postar.

[lbeckerf]

Imex, boa noite! quando falei "essa não saia mais da minha cabeça" estava falando da sua orientação sobre a organização do codigo...
Sobre o problema: este codigo é para cacular o valor do inss que incide sobre o valor nas faixas de 8%, 9% e 11% e o teto maximo é de R$ 457,27:
valor ate 1247,11 desconta 8%, valor de 1247,12 ate 2078,52 desconta 9%, valor de 2078,53 ate 4157,05 desconta 11%, valor acima de 4157,05 desconta teto maximo de 11%, ou seja 457,27. O sistema esta calculando corretamente todas as faixas, o erro esta quando o valor bruto é menor que 1000, dae ele calcula direto o teto maximo, como se o valor bruto fosse maior que 4157,05..... Ja mudei o codigo veja:

procedure Tfrm_principal.CalculaINSS;
begin
if (DB_Vlr_Bruto.Field.Value > 100) and (DB_Vlr_Bruto.Field.Value <= frm_config.DBE_inss_fx01.Field.Value)
then
begin
inss := (DB_Vlr_Bruto.Field.Value * /100;
lb_idc_inss.Caption := '8,00';
end
else
if (DB_Vlr_Bruto.Field.Value >= frm_config.DBE_inss_fx02.Field.Value) and (DB_Vlr_Bruto.Field.Value <= frm_config.DBE_inss_fx03.Field.Value)
then
begin
inss := (DB_Vlr_Bruto.Field.Value * 9)/100;
lb_idc_inss.Caption := '9,00';
end
else
if (DB_Vlr_Bruto.Field.Value >= frm_config.DBE_inss_fx04.Field.Value) and (DB_Vlr_Bruto.Field.Value <= frm_config.DBE_inss_fx05.Field.Value)
then
begin
inss := (DB_Vlr_Bruto.Field.Value * 11)/100;
lb_idc_inss.Caption := '11,00';
end
else
if (DB_Vlr_Bruto.Field.Value > frm_config.DBE_inss_fx05.Field.Value)
then
begin
inss := (frm_config.DBE_inss_fx05.Field.Value * 11)/100;
lb_idc_inss.Caption := '11,00';
end
else
inss := 0;
end;

Desde ja agradeço a ajuda e boa noite a todos!!!!!

[imex]

Boa tarde,

Confirma uma coisa... o erro está ocorendo quando o valor bruto é menor ou igual a 100 ou 1000?
Acho que você teria que verificar e/ou postar os valores que estão em frm_config.DBE_inss_fx01 a frm_config.DBE_inss_fx05 para analisarmos melhor o seu código.
Acho também que seria melhor ter um campo para a aliquota de cada faixa (ex: frm_config.DBE_inss_aliq01 a frm_config.DBE_inss_aliq05) e outro para o teto do valor bruto, pois dessa forma esses valores não ficariam fixos no código.

Qualquer coisa volte a postar.

Espero que ajude.

[lbeckerf]

[imex]

Boa noite,

Fiz algumas alterações no seu código (substitui DB_Vlr_Bruto.Field.Value pela variável vVlr_Bruto, e frm_config.DBE_inss_fx01.Field.Value a frm_config.DBE_inss_fx05.Field.Value pelas constantes cFx01 a cFx05) apenas para testa-lo em relação ao problema que você relatou quando o valor bruto é menor que 1000 (não testei outros valores) e o problema não ocorreu. Segue o código:

[lbeckerf]