Somar valor de uma formula? Firebird 2.0

CREATE PROCEDURE ESSQLFUNC (
    id_empresa integer,
    b_calculo varchar(80),
    valor numeric(15,2),
    salario numeric(15,2),
    marcar varchar(10),
    quantidade varchar(10),
    vl_informado numeric(15,2),
    id_gerarformula integer,
    id_sal integer)
returns (
    salcontratformulas numeric(15,2),
    salgovformulas numeric(15,2),
    salariofixo numeric(15,2),
    salvlinformado numeric(15,2))
as
declare variable sqles varchar(1050) character set win1252;
begin
   SQLES = ´select A.id_empresa, A.salario, A.id_sal, B.id_formula, B.descricao, A.id_func, A.nome, B.id_gerarformula,
    case
      when B.marcar = ´´True´´ and B.B_Calculo = ´´Fixo´´ and B.valor = ´´False´´ Then
          A.salario
      when B.marcar = ´´True´´ and B.B_Calculo = ´´Salario_Contratado´´ and B.quantidade = ´´True´´ and B.valor = ´´False´´  then
          cast(A.salario as varchar(10))||B.formula||´´*´´||B.quantia
      when B.marcar = ´´True´´ and B.B_Calculo = ´´Salario_Contratado´´ and B.quantidade = ´´False´´ and B.valor = ´´False´´  then
          cast(A.salario as varchar (10))||B.formula
      when B.marcar = ´´True´´ and B.B_Calculo = ´´Salario_Contratado´´ and B.quantidade = ´´False´´ and B.valor = ´´True´´  then
          B.vl_Informado
      when B.marcar = ´´True´´ and B.B_Calculo = ´´Salario_Governo´´ and B.quantidade = ´´True´´ and B.valor = ´´False´´  then
          cast(A.salario as varchar(10))||B.formula||´´*´´||B.quantia
      when B.marcar = ´´True´´ and B.B_Calculo = ´´Salario_Governo´´ and B.quantidade = ´´False´´ and B.valor = ´´False´´  then
          cast(A.salario as varchar (10))||B.formula
      when B.marcar = ´´True´´ and B.B_Calculo = ´´Salario_Governo´´ and B.quantidade = ´´False´´ and B.valor = ´´True´´  then
          B.vl_informado
    end as CamposM_N
    from salario_m A left join formulas B on B.id_gerarformula = A.id_sal
    WHERE (B.marcar = ´´True´´)order by 1,6´;
    for execute statement
    SQLES
    into

    do
    begin
       SELECT COALESCE(SUM(A.Salario),0) FROM salario_m A INTO :SalarioFixo;
      suspend;
end^

begin
with dm.qRestrFolha do
  begin
    Sql.Text:=´select ´+dm.qRestrFolha.FieldByName(´CamposM_N´).asString+´ from rdb$database´;
    open;
  end;
end;

{$R *.dfm}
function ResultFormulas(Id_GerarFormula: Integer):Variant;
var
  sql: String;
begin
   dm.qRestrFolha.sql.clear;
   dm.qRestrFolha.sql.text:=´ select A.id_empresa, A.salario, A.id_sal, B.id_formula, B.descricao, A.id_func, A.nome, B.id_gerarformula, ´+
   ´ case ´+
     ´ when B.marcar = ´´True´´ and B.B_Calculo = ´´Fixo´´ and B.valor = ´´False´´ Then ´+
         ´ A.salario ´+
     ´ when B.marcar = ´´True´´ and B.B_Calculo = ´´Salario_Contratado´´ and B.quantidade = ´´True´´ and B.valor = ´´False´´  then ´+
         ´ cast(A.salario as varchar(10))||B.formula||´´*´´||B.quantia ´+
     ´ when B.marcar = ´´True´´ and B.B_Calculo = ´´Salario_Contratado´´ and B.quantidade = ´´False´´ and B.valor = ´´False´´  then ´+
         ´ cast(A.salario as varchar (10))||B.formula ´+
     ´ when B.marcar = ´´True´´ and B.B_Calculo = ´´Salario_Contratado´´ and B.quantidade = ´´False´´ and B.valor = ´´True´´  then ´+
         ´ B.vl_Informado ´+
     ´ when B.marcar = ´´True´´ and B.B_Calculo = ´´Salario_Governo´´ and B.quantidade = ´´True´´ and B.valor = ´´False´´  then ´+
         ´ cast(A.salario as varchar(10))||B.formula||´´*´´||B.quantia ´+
     ´ when B.marcar = ´´True´´ and B.B_Calculo = ´´Salario_Governo´´ and B.quantidade = ´´False´´ and B.valor = ´´False´´  then ´+
         ´ cast(A.salario as varchar (10))||B.formula ´+
     ´ when B.marcar = ´´True´´ and B.B_Calculo = ´´Salario_Governo´´ and B.quantidade = ´´False´´ and B.valor = ´´True´´  then ´+
         ´ B.vl_informado ´+
   ´ end as CamposM_N ´+
   ´ from salario_m A left join formulas B on B.id_gerarformula = A.id_sal ´+
   ´ WHERE (A.id_empresa between :pEini and :pEfin) and (A.id_func between :pFini and :pFfin) and (B.marcar = ´´True´´)order by 1,6 ´; //--condiçao se nao tiver marcado gera restricao
   //--passando os parametros dos edits
   dm.qRestrFolha.parambyname(´pEini´).asInteger := EIni;
   dm.qRestrFolha.parambyname(´pEfin´).asInteger := EFin;
   dm.qRestrFolha.parambyname(´pFini´).asInteger := FIni;
   dm.qRestrFolha.parambyname(´pFfin´).asInteger := FFin;
   dm.qRestrFolha.open;
   if dm.qRestrFolha.RecordCount = 0 then begin
      Showmessage(´Formula Não Encontrada!´);
      dm.qRestrFolha.Close;
      dm.qRestrFolha.Free;
      Result := ´´;
      Exit;
   end;
   Sql :=´select (´+dm.qRestrFolha.FieldByName(´CamposM_N´).asString+´)as resultado from rdb$database´;

   dm.qRestrFolha.Close;
   dm.qRestrFolha.SQL.Text := sql;
   dm.qRestrFolha.Open;
   Result := dm.qRestrFolha.FieldByName(´RESULTADO´).Value;
   dm.qRestrFolha.Close;
   dm.qRestrFolha.Free;
end;

{$R *.dfm}
function Calcular(SMyExpression: string; digits: Byte): string;
  // Funçao para calcular uma simples operação matematica
var
  z: Char;
  ipos: Integer;

  function StrToReal(chaine: string): Real;
  var
    r: Real;
    Pos: Integer;
  begin
    Val(chaine, r, Pos);
    if Pos > 0 then Val(Copy(chaine, 1, Pos - 1), r, Pos);
    Result := r;
  end;

  function RealToStr(inreal: Extended; digits: Byte): string;
  var
    S: string;
  begin
    Str(inreal: 0: digits, S);
    realToStr := S;
  end;

  procedure NextChar;
  var
    s: string;
  begin
    if ipos > Length(SMyExpression) then
    begin
      z := #9;
      Exit;
    end
    else
    begin
      s := Copy(SMyExpression, ipos, 1);
      z := s[1];
      Inc(ipos);
    end;
    if z = ´ ´ then nextchar;
  end;

  function Expression: Real;
  var
    w: Real;

    function Factor: Real;
    var
      ws: string;
    begin
      Nextchar;
      if z in [´0´..´9´] then
      begin
        ws := ´´;
        repeat
          ws := ws + z;
          nextchar
        until not (z in [´0´..´9´, ´.´]);
        Factor := StrToReal(ws);
      end
      else if z = ´(´ then
      begin
        Factor := Expression;
        nextchar
      end
      else if z = ´+´ then Factor := +Factor
      else if Z = ´-´ then Factor := -Factor;
    end;

    function Term: Real;
    var
      W: Real;
    begin
      W := Factor;
      while Z in [´*´, ´/´] do
        if z = ´*´ then w := w * Factor
      else
        w := w / Factor;
      Term := w;
    end;
  begin
    w := term;
    while z in [´+´, ´-´] do
      if z = ´+´ then w := w + term
    else
      w := w - term;
    Expression := w;
  end;
begin
  ipos   := 1;
  Result := RealToStr(Expression, digits);
end;

Procedure TFAutoCalc.SQLFormulas; // A procedure
begin
FIni:=StrToInt(e3.text); //-variavel recebendo valor do edit FUNCIONARIOS
FFin:=StrToInt(e4.text); //-variavel recebendo valor do edit FUNCIONARIOS
dm.qRestrFolha.sql.clear;
dm.qRestrFolha.sql.text:=´ select A.id_empresa, A.salario, A.id_sal, B.id_formula, B.descricao, A.id_func, A.nome, B.id_gerarformula, ´+
´ case ´+
´ when B.marcar = ´´True´´ and B.B_Calculo = ´´Fixo´´ and B.valor = ´´False´´ Then ´+
´ A.salario ´+
´ when B.marcar = ´´True´´ and B.B_Calculo = ´´Salario_Contratado´´ and B.quantidade = ´´True´´ and B.valor = ´´False´´ then ´+
´ cast(A.salario as varchar(10))||B.formula||´´*´´||B.quantia ´+
´ when B.marcar = ´´True´´ and B.B_Calculo = ´´Salario_Contratado´´ and B.quantidade = ´´False´´ and B.valor = ´´False´´ then ´+
´ cast(A.salario as varchar (10))||B.formula ´+
´ when B.marcar = ´´True´´ and B.B_Calculo = ´´Salario_Contratado´´ and B.quantidade = ´´False´´ and B.valor = ´´True´´ then ´+
´ B.vl_Informado ´+
´ when B.marcar = ´´True´´ and B.B_Calculo = ´´Salario_Governo´´ and B.quantidade = ´´True´´ and B.valor = ´´False´´ then ´+
´ cast(A.salario as varchar(10))||B.formula||´´*´´||B.quantia ´+
´ when B.marcar = ´´True´´ and B.B_Calculo = ´´Salario_Governo´´ and B.quantidade = ´´False´´ and B.valor = ´´False´´ then ´+
´ cast(A.salario as varchar (10))||B.formula ´+
´ when B.marcar = ´´True´´ and B.B_Calculo = ´´Salario_Governo´´ and B.quantidade = ´´False´´ and B.valor = ´´True´´ then ´+
´ B.vl_informado ´+
´ end as CamposM_N ´+
´ from salario_m A left join formulas B on B.id_gerarformula = A.id_sal ´+
´ WHERE (A.id_func between :pFini and :pFfin) and (B.marcar = ´´True´´)order by 1,6 ´; //--condiçao se nao tiver marcado gera restricao
//--passando os parametros dos edits
dm.qRestrFolha.parambyname(´pFini´).asInteger := FIni;
dm.qRestrFolha.parambyname(´pFfin´).asInteger := FFin;
dm.qRestrFolha.open;
if dm.qRestrFolha.RecordCount = 0 then begin
Showmessage(´Formula Não Encontrada!´);
dm.qRestrFolha.Close;
dm.qRestrFolha.Free;
Exit;
end;
end;

procedure TFAutoCalc.Button1Click(Sender: TObject);
var
vresultado : String;
begin
SQLFormulas; // Procedure da SQL Formulas
listbox1.clear;
dm.qRestrFolha.DisableControls;
dm.qRestrFolha.First;
while not dm.qRestrFolha.Eof do
begin
//passa para o listbox o valor do dbgrid
vResultado := dm.qRestrFolha.FieldByName(´camposM_N´).AsString; //pegando o resultado da formula
vResultado := Calcular(VResultado, 2); //variavel global que recebe o resultado da função
Listbox1.Items.Add(dm.qRestrFolha.FieldByName(´camposM_N´).AsString+´  -  ´+vResultado); //passando o calculo da formula no listbox na segunda linha
dm.qRestrFolha.Next;
end;
dm.qRestrFolha.enablecontrols;

end;

CREATE PROCEDURE ESSQLFUNC 
returns (
    id_empresa integer,
    salario numeric(15,2),
    id_sal integer,
    id_formula integer,
    descricao varchar(100),
    id_func integer,
    nome varchar(50),
    id_gerarformula integer,
    calculo varchar(100),
    resultado numeric(15,2))
as
declare variable b_calculo varchar(50);
declare variable valor varchar(50);
declare variable quantidade varchar(50);
declare variable formula varchar(50);
declare variable quantia varchar(50);
declare variable vl_informado varchar(50);
begin
    for  
        select
            A.id_empresa, A.salario, A.id_sal, B.id_formula, B.descricao,
            A.id_func, A.nome, B.id_gerarformula, b.b_calculo, b.valor,
            b.quantidade, b.formula, b.quantia, b.vl_informado
        from
            salario_m A
        left join
            formulas B on B.id_gerarformula = A.id_sal
        where
            (B.marcar = ´True´)
        order by
            a.id_empresa, a.id_func
    into :id_empresa, :salario, :id_sal, :id_formula, :descricao,
         :id_func, :nome, :id_gerarformula, :b_calculo, :valor,
         :quantidade, :formula, :quantia, :vl_informado
    do
    begin
        if (b_calculo = ´Fixo´) then
            calculo = salario;
        else
        begin
            if (quantidade = ´True´) then
               calculo = cast(salario as varchar(10)) || formula || ´*´ || quantia;
            else
            begin
                if (valor = ´True´) then
                    calculo = vl_informado;
                else
                    calculo = cast(salario as varchar (10)) || formula;
            end
        end

        --- *** Aqui será executada a fórmula ***
        execute statement ´select ´ || calculo || ´ from rdb$database´ into resultado;

        suspend;
    end
end

CREATE PROCEDURE ESSQLFUNC
returns (
    id_empresa integer,
    salario numeric(15,2),
    id_sal integer,
    id_formula integer,
    descricao varchar(100),
    id_func integer,
    nome varchar(50),
    id_gerarformula integer,
    calculo varchar(100),
    proventos numeric(15,2),
    descontos numeric(15,2))
as
declare variable b_calculo varchar(50);
declare variable valor varchar(50);
declare variable quantidade varchar(50);
declare variable formula varchar(50);
declare variable quantia varchar(50);
declare variable vl_informado varchar(50);
declare variable prov_desc char(1);
begin
    for  
        select
            A.id_empresa, A.salario, A.id_sal, B.id_formula, B.descricao,
            A.id_func, A.nome, B.id_gerarformula, b.b_calculo, b.valor,
            b.quantidade, b.formula, b.quantia, b.vl_informado, b.p_d
        from
            salario_m A
        left join
            formulas B on B.id_gerarformula = A.id_sal
        where
            (B.marcar = ´True´)
        order by
            a.id_empresa, a.id_func
    into :id_empresa, :salario, :id_sal, :id_formula, :descricao,
         :id_func, :nome, :id_gerarformula, :b_calculo, :valor,
         :quantidade, :formula, :quantia, :vl_informado, :prov_desc
    do
    begin
        if (b_calculo = ´Fixo´) then
            calculo = salario;
        else
        begin
            if (quantidade = ´True´) then
               calculo = cast(salario as varchar(10)) || formula || ´*´ || quantia;
            else
            begin
                if (valor = ´True´) then
                    calculo = vl_informado;
                else
                    calculo = cast(salario as varchar (10)) || formula;
            end
        end

        proventos = 0;
        descontos = 0;

        --- Aqui será executada a fórmula
        if (prov_desc = ´P´) then
           execute statement ´select ´ || calculo || ´ from rdb$database´ into proventos;
        else
           execute statement ´select ´ || calculo || ´ from rdb$database´ into descontos;

        suspend;
    end
end

select c1.*,(select sum(c2.proventos - c2.descontos) 
from essqlfunc c2 
where c2.id_empresa = c1.id_empresa and c2.id_func = c1.id_func)saldo 
from essqlfunc c1

select c1.*,(select sum(c2.proventos)TotProv, sum(c2.descontos)TotDesc, sum(c2.proventos - c2.descontos)as Total 
from essqlfunc c2 
where c2.id_empresa = c1.id_empresa and c2.id_func = c1.id_func) 
from essqlfunc c1

select c1.*,
(select sum(c2.proventos)
from essqlfunc c2
where c2.id_empresa = c1.id_empresa and c2.id_func = c1.id_func)TotoProv

(select sum(c2.descontos)
from essqlfunc c2
where c2.id_empresa = c1.id_empresa and c2.id_func = c1.id_func)TotDesc

(select sum(c2.proventos - c2.descontos)
from essqlfunc c2
where c4.id_empresa = c1.id_empresa and c4.id_func = c1.id_func)Saldo

from essqlfunc c1

select c1.*,
  (select sum(c2.proventos)
   from essqlfunc c2
   where c2.id_empresa = c1.id_empresa
      and c2.id_func = c1.id_func) TotoProv,

  (select sum(c2.descontos)
   from essqlfunc c2
   where c2.id_empresa = c1.id_empresa
      and c2.id_func = c1.id_func) TotDesc,

  (select sum(c2.proventos - c2.descontos)
   from essqlfunc c2
   where c2.id_empresa = c1.id_empresa
      and c2.id_func = c1.id_func) Saldo
 from essqlfunc c1

CREATE PROCEDURE ESSQLFUNC 
returns (
    id_empresa integer,
    salario numeric(16,2),
    salgoverno numeric(15,2),
    id_sal integer,
    id_formula integer,
    descricao varchar(100),
    id_func integer,
    nome varchar(50),
    id_gerarformula integer,
    inss varchar(10),
    calculo varchar(100),
    proventos numeric(15,2),
    descontos numeric(15,2))
as
declare variable b_calculo varchar(50);
declare variable valor varchar(50);
declare variable quantidade varchar(50);
declare variable formula varchar(50);
declare variable quantia varchar(50);
declare variable vl_informado varchar(50);
declare variable prov_desc char(1);
--Essa Stored Procedure soh funciona se na tabela Formulas o campo marcar
--estiver como True - caso contrario retorna os valores em branco ou null
begin 
    for  
        select 
            A.id_empresa, A.salario, A.salgoverno, A.id_sal, B.id_formula, B.descricao,
            A.id_func, A.nome, B.id_gerarformula, b.b_calculo, b.valor, 
            b.quantidade, b.formula, b.quantia, b.vl_informado, b.inss, b.p_d
        from 
            salario_m A 
        left join 
            formulas B on B.id_gerarformula = A.id_sal 
        where 
            (B.marcar = ´True´) 
        order by 
            a.id_empresa, a.id_func, b.p_d desc
    into :id_empresa, :salario, :salgoverno, :id_sal, :id_formula, :descricao,
         :id_func, :nome, :id_gerarformula, :b_calculo, :valor, 
         :quantidade, :formula, :quantia, :vl_informado, :inss, :prov_desc
    do 
    begin 
        --Passando as condiçoes se for Salario Contratado
        if ((b_calculo = ´Fixo´)) then
            calculo = salario; 
        else 
        begin 

        if ((B_Calculo = ´Salario_Contratado´) and (quantidade = ´True´)) then
           calculo = cast(salario as varchar(10)) || formula || ´*´ || quantia;
        else
        begin

        if ((B_Calculo = ´Salario_Contratado´) and (valor = ´False´)) then
           calculo = cast(salario as varchar (10)) || formula;
        else
        begin
        if ((B_Calculo = ´Salario_Contratado´) and (valor = ´True´)) then
           calculo = vl_informado;
        else
        begin
        ---passando as condiçoes se for salario do governo

        if ((B_Calculo = ´Salario_Governo´) and (quantidade = ´True´)) then
           calculo = cast(salgoverno as varchar(10)) || formula || ´*´ || quantia;
        else
        begin

        if ((B_Calculo = ´Salario_Governo´) and (quantidade = ´False´))  then
           calculo = cast(salgoverno as varchar (10))||formula;
        else
        begin

        if ((B_Calculo = ´Salario_Governo´) and (valor = ´False´)) then
           calculo = cast(salgoverno as varchar (10)) || formula;
        else
        begin
        if ((B_Calculo = ´Salario_Governo´) and (valor = ´True´)) then
           calculo = vl_informado;

        end
        end
        end
        end
        end
        end

      end

      proventos = 0;
      descontos = 0;
      --- Aqui será executada a fórmula
      if (prov_desc = ´P´) then
         execute statement ´select ´ || calculo || ´ from rdb$database´ into proventos;
      else
         execute statement ´select ´ || calculo || ´ from rdb$database´ into descontos;

      suspend;
   end
end

select c1.*, 
  (select sum(c2.proventos) 
   from essqlfunc c2 
   where c2.id_empresa = c1.id_empresa 
      and c2.id_func = c1.id_func and c2.inss = ´True´) TotoProv,

  (select sum(c2.descontos) 
   from essqlfunc c2 
   where c2.id_empresa = c1.id_empresa 
      and c2.id_func = c1.id_func) TotDesc,

  (select sum(c2.proventos - c2.descontos) 
   from essqlfunc c2 
   where c2.id_empresa = c1.id_empresa 
      and c2.id_func = c1.id_func) Saldo,

  --compara com o indice da tabela do inss 7.65¬ 8.65¬ 9.0¬ e 11.0¬
  case
     when ((select sum(c2.proventos) 
            from essqlfunc c2
     where c2.id_empresa = c1.id_empresa
     and c2.id_func = c1.id_func and c2.inss = ´True´) <= 868.29) Then
          (select sum(c2.proventos * 7.65/100.000000)
          from essqlfunc c2
          where c2.id_empresa = c1.id_empresa
          and c2.id_func = c1.id_func and c2.inss = ´True´)
     when ((select sum(c2.proventos) 
           from essqlfunc c2
     where c2.id_empresa = c1.id_empresa
     and c2.id_func = c1.id_func and c2.inss = ´True´) >= 868.30)  then
          (select sum(c2.proventos * 8.65/100.000000)
          from essqlfunc c2
          where c2.id_empresa = c1.id_empresa
          and c2.id_func = c1.id_func and c2.inss = ´True´)
  end as TotINSS

 from essqlfunc c1

create procedure ESSQLFUNC
returns (
    id_empresa integer,
    salario numeric(16,2),
    salgoverno numeric(15,2),
    id_sal integer,
    id_formula integer,
    descricao varchar(100),
    id_func integer,
    nome varchar(50),
    id_gerarformula integer,
    inss varchar(10),
    calculo varchar(100),
    proventos numeric(15,2),
    descontos numeric(15,2))
as
declare variable b_calculo varchar(50);
declare variable valor varchar(50);
declare variable quantidade varchar(50);
declare variable formula varchar(50);
declare variable quantia varchar(50);
declare variable vl_informado varchar(50);
declare variable prov_desc char(1);
declare salario_calc numeric(15,2);
-- Esta Stored Procedure só funciona se na tabela Formulas o campo marcar
-- estiver como True, caso contrario retorna os valores em branco ou null
begin
    for
        select
            a.id_empresa, a.salario, a.salgoverno, a.id_sal, b.id_formula, B.descricao,
            a.id_func, a.nome, b.id_gerarformula, b.b_calculo, b.valor,
            b.quantidade, b.formula, b.quantia, b.vl_informado, b.inss, b.p_d
        from
            salario_m a
        left join
            formulas b on b.id_gerarformula = a.id_sal
        where
            (b.marcar = ´True´)
        order by
            a.id_empresa, a.id_func, b.p_d desc
    into :id_empresa, :salario, :salgoverno, :id_sal, :id_formula, :descricao,
         :id_func, :nome, :id_gerarformula, :b_calculo, :valor,
         :quantidade, :formula, :quantia, :vl_informado, :inss, :prov_desc
    do
    begin
        -- passando as condiçoes de cálculo
        if (b_calculo = ´Fixo´) then
            calculo = salario;
        else
        begin
            -- verificando QUAL salário será manipulado
            if (b_calculo = ´Salario_Contratado´) then
               salario_calc = salario;
            else
               salario_calc = salgoverno;

            -- montando a fórmula
            if (quantidade = ´True´) then
                calculo = cast(salario_calc as varchar(10)) || formula || ´*´ || quantia;
            else
            if (quantidade = ´False´) then
                calculo = cast(salario_calc as varchar (10)) || formula;
            else
            if (valor = ´False´) then
                calculo = cast(salario_calc as varchar (10)) || formula;
            else
            if (valor = ´True´) then
                calculo = vl_informado;
        end

        proventos = 0;
        descontos = 0;

        -- executando a fórmula
        if (prov_desc = ´P´) then
           execute statement ´select ´ || calculo || ´ from rdb$database´ into proventos;
        else
           execute statement ´select ´ || calculo || ´ from rdb$database´ into descontos;

        suspend;
    end
end

select c1.*,
  (select sum(c2.proventos)
   from essqlfunc c2
   where c2.id_empresa = c1.id_empresa
      and c2.id_func = c1.id_func) TotoProv,

  (select sum(c2.descontos)
   from essqlfunc c2
   where c2.id_empresa = c1.id_empresa
      and c2.id_func = c1.id_func) TotDesc,

  (select sum(c2.proventos - c2.descontos)
   from essqlfunc c2
   where c2.id_empresa = c1.id_empresa
      and c2.id_func = c1.id_func) Saldo,

  -- compara o valor dos proventos (?) com a faixa de inss
  -- e traz a alíquota correta - 7.65¬, 8.65¬, 9.0¬ ou 11.0¬
  (select first 1 taxa from tabela_inss inss where inss.valor >=
     (select sum(c2.proventos)
      from essqlfunc c2
      where c2.id_empresa = c1.id_empresa
        and c2.id_func = c1.id_func)
   order by inss.valor) Aliquota_INSS,

  -- calcula o valor do inss, em função do valor dos proventos (?)
  -- (para melhorar a performance essa parte poderia ser calculada
  -- no aplicativo, e não na instrução)
  (select sum(c2.proventos)
   from essqlfunc c2
   where c2.id_empresa = c1.id_empresa
     and c2.id_func = c1.id_func) *
  (select first 1 taxa from tabela_inss inss where inss.valor >=
     (select sum(c2.proventos)
      from essqlfunc c2
      where c2.id_empresa = c1.id_empresa
        and c2.id_func = c1.id_func)
   order by inss.valor) / 100.00 Valor_INSS
from
  essqlfunc c1

select c1.*,
  (select sum(c2.proventos)
   from essqlfunc c2
   where c2.id_empresa = c1.id_empresa
      and c2.id_func = c1.id_func) TotoProv,

  (select sum(c2.descontos)
   from essqlfunc c2
   where c2.id_empresa = c1.id_empresa
      and c2.id_func = c1.id_func) TotDesc,

  (select sum(c2.proventos - c2.descontos)
   from essqlfunc c2
   where c2.id_empresa = c1.id_empresa
      and c2.id_func = c1.id_func) Saldo,

  -- compara o valor dos proventos (?) com a faixa de inss
  -- e traz a alíquota correta - 7.65¬, 8.65¬, 9.0¬ ou 11.0¬
  (select first 1 taxa from tabela_inss inss where inss.valor >=
     (select sum(c2.proventos - c2.descontos) -- alterei aqui
      from essqlfunc c2
      where c2.id_empresa = c1.id_empresa
        and c2.id_func = c1.id_func
        and c2.inss = ´True´) -- e adicionei esta condição
   order by inss.valor) Aliquota_INSS,

  -- calcula o valor do inss, em função do valor dos proventos (?)
  -- (para melhorar a performance essa parte poderia ser calculada
  -- no aplicativo, e não na instrução)
  (select sum(c2.proventos - c2.descontos) -- alterei aqui
   from essqlfunc c2
   where c2.id_empresa = c1.id_empresa
     and c2.id_func = c1.id_func
     and c2.inss = ´True´) * -- adicionei esta condição
  (select first 1 taxa from tabela_inss inss where inss.valor >=
     (select sum(c2.proventos - c2.descontos) -- alterei aqui
      from essqlfunc c2
      where c2.id_empresa = c1.id_empresa
        and c2.id_func = c1.id_func
        and c2.inss = ´True´) -- adicionei esta condição
   order by inss.valor) / 100.00 Valor_INSS
from
  essqlfunc c1

procedure TFSuperCalculo.DBGradeFuncCellClick(Column: TColumn);
begin
//é a unica coluna que deve ser marcada e desmarcada (Se tiver mais coluna tem que mostrar aqui)
if Column.FieldName = ´MARCAR´ then
  begin
    DM.zspSomaFunc.Edit;
    if dm.zspSomaFunc.FindField(´MARCAR´).AsString = ´True´ then
       dm.zspSomaFunc.FindField(´MARCAR´).AsString := ´False´
    else
      DM.zspSomaFunc.FindField(´MARCAR´).AsString := ´True´;
      DM.zspSomaFunc.Post;
      DBGradeFunc.Refresh;
  end;
end;

CREATE PROCEDURE ALTSQLFUNC (
    id_empresa integer,
    id_sal integer,
    id_func integer,
    nome varchar(50),
    id_formula integer,
    descricao varchar(100),
    id_gerarformula integer,
    marcar varchar(10))
as
begin 
  if (exists(
      select a.id_empresa, a.id_sal, a.id_func,
             a.nome, b.id_formula, b.descricao,
             b.id_gerarformula, b.marcar
      from
             salario_m a
      left join
             formulas b on b.id_gerarformula = a.id_sal
      where (id_empresa = :id_empresa and id_sal = :id_sal
             and id_func = :id_func and nome = :nome and
             id_formula = :id_formula and descricao = :descricao
             and id_gerarformula = :id_gerarformula and marcar = :marcar))) then
    --modalidade update da stored procedure conforme o select acima
     update formulas
     set    marcar = :marcar,
            descricao = :descricao,
            id_formula = :id_formula,
            id_gerarformula = :id_gerarformula
     where (id_formula = :id_formula and id_gerarformula = :id_gerarformula);
end

if trim(edit2.Text)<>´´ then
  begin
    dm.zspSomaFunc.Close;
    dm.zspSomaFunc.SQL.Clear;
    dm.zspSomaFunc.SQL.Add(´select * from essqlfunc where upper(NOME)like :Busca´);
    dm.zspSomaFunc.ParamByName(´Busca´).AsString:=AnsiUpperCase(trim(edit2.Text))+´¬´;
    dm.zspSomaFunc.Open;
  end;

{Procedure para mostrar o select da tabela na grid}
Procedure TFSuperCalculo.ChamaSP;
begin
dm.zspSomaFunc.Close;
dm.zspSomaFunc.sql.Clear;
dm.zspSomaFunc.sql.Text:=´ select c1.*, ´
  +´ (select sum(c2.proventos) ´
  +´ from essqlfunc c2 ´
  +´ where c2.id_empresa = c1.id_empresa ´
  +´ and c2.id_func = c1.id_func) TotoProv, ´
  +´ (select sum(c2.descontos) ´
  +´ from essqlfunc c2 ´
  +´ where c2.id_empresa = c1.id_empresa ´
  +´ and c2.id_func = c1.id_func) TotDesc, ´
  +´ (select sum(c2.proventos - c2.descontos) ´
  +´ from essqlfunc c2 ´
  +´ where c2.id_empresa = c1.id_empresa ´
  +´ and c2.id_func = c1.id_func) Saldo, ´
  +´ (select first 1 indice from indiceinss inss where inss.ate >= ´
  +´ (select sum(c2.proventos - c2.descontos) ´
  +´ from essqlfunc c2 ´
  +´ where c2.id_empresa = c1.id_empresa ´
  +´ and c2.id_func = c1.id_func and c1.Inss = ´´True´´) ´
  +´ order by inss.ate) Aliquota_INSS, ´
  +´ (select sum(c2.proventos - c2.descontos) ´
  +´ from essqlfunc c2 ´
  +´ where c2.id_empresa = c1.id_empresa ´
  +´ and c2.id_func = c1.id_func and c1.Inss = ´´True´´) * ´
  +´ (select first 1 indice from indiceinss inss where inss.ate >= ´
  +´ (select sum(c2.proventos - c2.descontos ) ´
  +´ from essqlfunc c2 ´
  +´ where c2.id_empresa = c1.id_empresa ´
  +´ and c2.id_func = c1.id_func and c1.Inss = ´´True´´ ) ´
  +´ order by inss.ate) / 100.00 Valor_INSS ´
  +´ from essqlfunc c1 ´;
  dm.zspSomaFunc.Open;
end;

if trim(edit2.Text)<>´´ then
  begin
    dm.zspSomaFunc.Close;
    dm.zspSomaFunc.SQL.Clear;
    dm.zspSomaFunc.SQL.Text:=´select id_empresa, salario, salgoverno, id_sal,´
                            +´id_formula, descricao, id_func, nome, id_gerarformula,´
                            +´b_calculo, valor, quantidade, formula, quantia,´
                            +´vl_informado, inss, prov_desc, descinss, marcar´
                            +´from essqlfunc where upper(NOME)like :Busca´;
    dm.zspSomaFunc.ParamByName(´Busca´).AsString:=AnsiUpperCase(trim(edit2.Text))+´¬´;
    dm.zspSomaFunc.Open;
  end;

var
  sql, texto: string;
begin
  //--primeiro passo os dados para serem filtrados no edit com mais de um nome e com espaços
  //-serve para filtrar tipo assim ADR SERV, JOS DE S....
  if Trim(edtConsulta.text) = ´´ then
    exit;

  texto := AnsiUpperCase(StringReplace(TrimRight(edtConsulta.text),´ ´,´¬ ´,[rfReplaceAll]))+´¬´;

  sql := ´select id_empresa, salario, salgoverno, id_sal,´
        +´id_formula, descricao, id_func, nome, id_gerarformula,´
        +´b_calculo, valor, quantidade, formula, quantia,´
        +´vl_informado, inss, prov_desc, descinss, marcar ´
        +´from essqlfunc where upper(NOME)like :Busca´;

  sql := UpperCase(sql);

  //--CHAMANDO A QUERY PARA FILTAR (DEPOIS QUE CHAMO O FILTRO ABRO A QUERY)
  dm.zspSomaFunc.Close;
  dm.zspSomaFunc.SQL.Clear;
  dm.zspSomaFunc.SQL.Add(sql);
  dm.zspSomaFunc.ParamByName(´Busca´).AsString := texto;
  dm.zspSomaFunc.Open;

procedure TFSuperCalculo.Button6Click(Sender: TObject);
var
Func, Empresa, vInss, TotProv, TotDesc, vSaldo, vSalario, vProventos, VDescontos : String;
I  : Integer;
begin
  {Chama o Select}
  ChamaSP;
  //Limpa o ListBox
  listbox2.clear;
  try
    dm.zspSomaFunc.DisableControls;
    dm.zspSomaFunc.First;
    Empresa := #121415;
    while not dm.zspSomaFunc.Eof do
    begin
    if Empresa <> dm.zspSomaFunc.fieldbyname(´id_EMPRESA´).AsString then
    begin
      if Empresa <> 121415 then
         ListBox2.Items.Add(´´);
         Empresa := dm.zspSomaFunc.fieldbyname(´id_EMPRESA´).AsString ;
         dm.qEmpresa.Open; //abre a tabela qEmpresa
         if dm.qEmpresa.Locate(´id_EMPRESA´, Empresa, []) then
            Func := dm.qEmpresa.fieldbyname(´empresa´).AsString
         else Func := ´Empresa não cadastrada´;
            ListBox2.Items.Add(´================================================================================´);
            ListBox2.Items.Add(´Data que foi gerada a Folha : ´ + ´ - ´ + DateToStr(now) + ´ - ´ + TimeToStr(now));
            ListBox2.Items.Add(´================================================================================´);
            ListBox2.Items.Add(Empresa + ´ - ´ + Func);
            ListBox2.Items.Add(´================================================================================´);
            Func := 121415;
            vINSS   := 121415;
            TotProv := 121415;
            TotDesc := 121415;
            vSaldo  := 121415;
         end;
         if Func <> dm.zspSomaFunc.fieldbyname(´id_func´).AsString then
         begin
         if Func <> #121415 then
            ListBox2.Items.Add(´********************************************************************************´);
            Func := dm.zspSomaFunc.fieldbyname(´id_func´).AsString;
            ListBox2.Items.Add(Func + ´ - ´ + dm.zspSomaFunc.fieldbyname(´nome´).AsString);
            vSalario:=FormatFloat(´,0.00;(,0.00)´,StrToFloat(dm.zspSomaFunc.fieldbyname(´salario´).AsString));
            ListBox2.Items.Add(´Salario Base para Calculos: ´  + vSalario);
            ListBox2.Items.Add(´Proventos/Descontos Ativos:´);
            ListBox2.Items.Add(´================================================================================´);

         end;
            vProventos:=FormatFloat(´,0.00;(,0.00)´,StrToFloat(dm.zspSomaFunc.fieldbyname(´Proventos´).asString));
            vDescontos:=FormatFloat(´#,0.00;(,0.00)´,StrToFloat(dm.zspSomaFunc.fieldbyname(´Descontos´).asString));
            //passa para o listbox o valor do dbgrid
            ListBox2.Items.Add(dm.zspSomaFunc.fieldbyname(´id_formula´).AsString +´ - ´
                               +dm.zspSomaFunc.fieldbyname(´descricao´).AsString +´  ´
                               +dm.zspSomaFunc.fieldbyname(´calculo´).asString +´  ´
                               +vProventos+´  ´
                               +vDescontos);

            if vINSS <> dm.zspSomaFunc.fieldbyname(´valor_inss´).AsString then
            begin
            if vINSS <> 121415 then
               ListBox2.Items.Add(´500 - Desconto do INSS´ +´  ´+dm.zspSomaFunc.fieldbyname(´aliquota_inss´).asString+´  ´+dm.zspSomaFunc.fieldbyname(´valor_inss´).asString);
               ListBox2.Items.Add(´================================================================================´);
            end;
            if TotProv <> dm.zspSomaFunc.fieldbyname(´totoprov´).AsString then
            begin
            if TotProv <> #121415 then
               ListBox2.Items.Add(´Total dos Proventos   ´ +´  ´+dm.zspSomaFunc.fieldbyname(´totoprov´).asString);
            end;
            if TotDesc <> dm.zspSomaFunc.fieldbyname(´totdesc´).AsString then
            begin
            if TotDesc <> 121415 then
               ListBox2.Items.Add(´Total dos Desconto    ´ +´  ´+dm.zspSomaFunc.fieldbyname(´totdesc´).asString);
            end;
            if vsaldo <> dm.zspSomaFunc.fieldbyname(´saldo´).AsString then
            begin
            if vsaldo <> 121415 then
               ListBox2.Items.Add(´Total Liquido da Folha´ +´  ´+dm.zspSomaFunc.fieldbyname(´saldo´).asString);
            end;
            dm.zspSomaFunc.Next;
      end;
  finally
     dm.zspSomaFunc.enablecontrols;
  end;
    ListBox2.Items.Add(´*****************************FIM DO RELATORIO***********************************´);
end;

procedure TFSuperCalculo.Button8Click(Sender: TObject);
begin
dm.zspSomaFunc.Close;
dm.zspSomaFunc.SQL.Clear;
dm.zspSomaFunc.SQL.Add(´select id_empresa, salario, salgoverno, id_sal,´
                      +´id_formula, descricao, id_func, nome, id_gerarformula,´
                      +´b_calculo, valor, quantidade, formula, quantia,´
                      +´vl_informado, inss, prov_desc, descinss, marcar ´//--utilizando um espaço para nao ficar junto com o from
                      +´from essqlfunc where ID_EMPRESA between :pEmprIni and :pEmprFin´);
dm.zspSomaFunc.ParamByName(´pEmprIni´).asInteger :=StrToInt(EdtE1.Text);
dm.zspSomaFunc.ParamByName(´pEmprFin´).asInteger :=StrToInt(EdtE2.Text);
dm.zspSomaFunc.Open;
end;

procedure TFSuperCalculo.Button8Click(Sender: TObject);
begin
  with dm.zspSomaFunc do
  begin
    Close;
    SQL.Text :=
      ´select id_empresa, salario, salgoverno, id_sal, ´+
      ´id_formula, descricao, id_func, nome, id_gerarformula, ´+
      ´calculo, inss, proventos, descontos ´+
      ´from essqlfunc ´+
      ´where ID_EMPRESA between :pEmprIni and :pEmprFin´;
    ParamByName(´pEmprIni´).asInteger :=StrToInt(EdtE1.Text);
    ParamByName(´pEmprFin´).asInteger :=StrToInt(EdtE2.Text);
    Open;
  end;
end;

{codigo para formatar o dbgrid - tem que ter DB no uses da unit}
(dm.zspSomaFunc.fieldbyname (´salario´) as tfloatfield).displayformat := ´#,0.00´;
(dm.zspSomaFunc.fieldbyname (´salgoverno´) as tfloatfield).displayformat := ´,0.00´;
(dm.zspSomaFunc.fieldbyname (´proventos´) as tfloatfield).displayformat := ´,0.00´;
(dm.zspSomaFunc.fieldbyname (´descontos´) as tfloatfield).displayformat := ´,0.00´;
(dm.zspSomaFunc.fieldbyname (´TOTOPROV´) as tfloatfield).displayformat := ´,0.00´;
(dm.zspSomaFunc.fieldbyname (´TOTDESC´) as tfloatfield).displayformat := ´,0.00´;
(dm.zspSomaFunc.fieldbyname (´SALDO´) as tfloatfield).displayformat := ´,0.00´;
(dm.zspSomaFunc.fieldbyname (´ALIQUOTA_INSS´) as tfloatfield).displayformat := ´,0.00´;
(dm.zspSomaFunc.fieldbyname (´VALOR_INSS´) as tfloatfield).displayformat := ´#,0.00´;