Me ajudem!!!
Olá...
Estou tentando chamar uma procedure que esta dentro de uma package, onde ´PKG_SFI_GERA_INF_FECHA é a package e GERA_INFORMACOES é a procedure,
eu consigo fazer isso?
se consigo qual é o erro, pois quando executo ocorre a mensagem parâmetro not found...
Obrigado....
segue o trecho do programa...
valeu!
**********************************************************
with TStoredProc.Create(nil) do
try
Screen.Cursor := crSQLWait;
DatabaseName := ´FAT´;
StoredProcName := ´PKG_SFI_GERA_INF_FECHA.GERA_INFORMACOES´;
//envia parametros para a procedure
try
parambyname(´pcodemis´).AsInteger := StrtoInt(cod1);
parambyname(´pdtvencim´).AsDate := StrtoDate(EdtVenc.Text);
parambyname(´panomes´).AsString := anomes;
parambyname(´pfechamento´).AsInteger := auxfec;
Prepare;
ExecProc;
except
end;
finally
Screen.Cursor := crDefault;
Free;
end;
**********************************************************
Estou tentando chamar uma procedure que esta dentro de uma package, onde ´PKG_SFI_GERA_INF_FECHA é a package e GERA_INFORMACOES é a procedure,
eu consigo fazer isso?
se consigo qual é o erro, pois quando executo ocorre a mensagem parâmetro not found...
Obrigado....
segue o trecho do programa...
valeu!
**********************************************************
with TStoredProc.Create(nil) do
try
Screen.Cursor := crSQLWait;
DatabaseName := ´FAT´;
StoredProcName := ´PKG_SFI_GERA_INF_FECHA.GERA_INFORMACOES´;
//envia parametros para a procedure
try
parambyname(´pcodemis´).AsInteger := StrtoInt(cod1);
parambyname(´pdtvencim´).AsDate := StrtoDate(EdtVenc.Text);
parambyname(´panomes´).AsString := anomes;
parambyname(´pfechamento´).AsInteger := auxfec;
Prepare;
ExecProc;
except
end;
finally
Screen.Cursor := crDefault;
Free;
end;
**********************************************************
Anonymous
Curtidas 0