Fórum SP funciona no IBExpert mas não no delphi !!!!! #57034

06/10/2006

0

Firebird

Colegas, a seguinte SP roda no IBexpert, mas quando tento roadr ela via delphi, ela não funciona..

CREATE PROCEDURE CRIA_RELATORIO_OS_EM_ABERTO(
    I_DATA_PREVISAO DATE)
AS
DECLARE VARIABLE V_COD_OS CHAR(15);
begin
    delete from TE0300;
    for select distinct C_COD_OS 
        from CM0100 
        where C_DATA_PREVISAO <= :I_DATA_PREVISAO and C_DATA_EXECUCAO is null
        into :V_COD_OS
    do
    begin
        insert into TE0300(C_COD_OS) values (:V_COD_OS);
    end
end


O que estou fazendo errado??


Cabelo

Cabelo

Responder

Posts

06/10/2006

Gandalf.nho

Como você está tentando rodá-la?


Responder

Gostei + 0

06/10/2006

Cabelo

segue o código no botão..

procedure TfrmMA.btnmanutencaoClick(Sender: TObject);
var v_desc : TTransactionDesc;
begin
if timMA.Enabled then
begin
v_desc.TransactionID := 1;
v_desc.IsolationLevel := xilREADCOMMITTED;
MD.sqlEngestrauss.StartTransaction(v_desc);
sqlStoredProcedure.StoredProcName := ´CRIA_RELATORIO_OS_EM_ABERTO´;
sqlStoredProcedure.ParamByName(´I_DATA_PREVISAO´).AsDateTime := g_now;
sqlStoredProcedure.ExecProc;
MD.sqlEngestrauss.Commit(v_desc);
Application.CreateForm(TfrmMA21100, frmMA21100);
frmMA21100.s_order := ´OS0100.C_TIPO_OS, CM0100.C_DATA_PREVISAO, OS0100.C_COD_OS´;
frmMA21100.s_inicio := ´Tudo´;
frmMA21100.s_fim := FormatDateTime(´dd/mm/yyyy´, g_now);
frmMA21100.rlCalendario.PreviewModal;
frmMA21100.Release;
end
else
begin
MessageDlg(´Não há manutenções hoje!´, mtError, [mbOk], 0);
end;
end;


Mas dá erro.. não está inserindo os registros na base...

Tem idéia do que pode ser??


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar