Desenvolvendo uma aplicação com banco de dados firebird criei essa procedure
CREATE PROCEDURE “REL_PAGAMENTO_02”
(
“VDATA1” DATE,
“VDATA2” DATE
)
RETURNS
(
“COD_LAV” INTEGER,
“CPF_LAV” VARCHAR(40),
“NOME_LAV” VARCHAR(60),
“LAVADOR_MESTRE_LAV” VARCHAR(3),
“COMISSAO” FLOAT,
“VALE” FLOAT,
“RECEBER” FLOAT
)
AS
declare variable valor1 float;
declare variable valor2 float;
begin
for select cod, cpf, nome, LAVADOR_MESTRE from lavadores into cod_lav, cpf_lav, nome_lav,LAVADOR_MESTRE_LAV
do begin
select sum(m.vlr_lav1) from movimento m
where m.cod_lav1=:cod_lav and m.data between :vdata1 and :vdata2 into valor1;
if (valor1 is null) then valor1 = 0;
select sum(m.vlr_lav2) from movimento m
where m.cod_lav2=:cod_lav and m.data between :vdata1 and :vdata2 into valor2;
if (valor2 is null) then valor2 = 0;
COMISSAO = :valor1 + :valor2;
select sum(v.valor) from vale v where v.cod_lav=:cod_lav and v.dt_vale between :vdata1 and :vdata2 into vale;
if (vale is null) then vale = 0;
receber = COMISSAO - VALE;
suspend;
end
end
^
SET TERM ; ^
COMMIT WORK;
SET AUTODDL ON;
Esta funcionando quando rodo ela no interbase
( select * from “REL_PAGAMENTO_02”(‘2021-04-01’,‘2021-04-01’) WHERE LAVADOR_MESTRE_LAV=‘NÃO’
Como eu faço para gerar um relatório ou uma consulta por meio desta procedure no scriptcase passando os parâmetros data_ini e data_fim.