Store Procedure (Obter Valor Parametro Saída)
Enviado: Outubro 24th, 2016, 3:05 pm
Estou avaliando o XMaker e estou com dificuldade de pegar o valor de um parametro output de uma procedure que roda no bd firebird.
Criei a SP "SP_ExecutaCrono" em Tabelas:
BEGIN
SELECT OP_RETURN
FROM SP_GERARCRONOGRAMA(16115, 1, '1-AUG-2016', '26-JUN-2017', 10, 10, 15, 15, 1.3, '0848')
INTO :OP_RETURN;
END
Em um formulário avulso estou excutando no OnClick de um botão conforme abaixo.
try
TabGlobal.STSP_ExecutaCrono.Prepare;
//TabGlobal.STSP_ExecutaCrono.Parametro_Valor('NrOrcamento', edNrOrcamento.Value);
TabGlobal.STSP_ExecutaCrono.ExecProc;
Acontece que não consigo pegar o valor do parâmetro de saída. Dá erro.
ShowMessage(TabGlobal.STSP_ExecutaCrono.Params.ParamByName('OP_RETURN').AsString);
ShowMessage(VarToStr(TabGlobal.STSP_ExecutaCrono.Params.ParamValues['OP_RETURN']));
Também gostaria de saber o seguinte:
Como aguardar o termino da execução da procedure para obter o valor do parâmetro de saída.
Por favor, não encontrei exemplo no forum, teria como postar um exemplo:
Obrigado
Criei a SP "SP_ExecutaCrono" em Tabelas:
BEGIN
SELECT OP_RETURN
FROM SP_GERARCRONOGRAMA(16115, 1, '1-AUG-2016', '26-JUN-2017', 10, 10, 15, 15, 1.3, '0848')
INTO :OP_RETURN;
END
Em um formulário avulso estou excutando no OnClick de um botão conforme abaixo.
try
TabGlobal.STSP_ExecutaCrono.Prepare;
//TabGlobal.STSP_ExecutaCrono.Parametro_Valor('NrOrcamento', edNrOrcamento.Value);
TabGlobal.STSP_ExecutaCrono.ExecProc;
Acontece que não consigo pegar o valor do parâmetro de saída. Dá erro.
ShowMessage(TabGlobal.STSP_ExecutaCrono.Params.ParamByName('OP_RETURN').AsString);
ShowMessage(VarToStr(TabGlobal.STSP_ExecutaCrono.Params.ParamValues['OP_RETURN']));
Também gostaria de saber o seguinte:
Como aguardar o termino da execução da procedure para obter o valor do parâmetro de saída.
Por favor, não encontrei exemplo no forum, teria como postar um exemplo:
Obrigado