FUniStoredProc.Connection := FUniConnection_MS;
FUniStoredProc.StoredProcName:= ‘IO_GetSheetID’;
FUniStoredProc.PrepareSQL;
FUniStoredProc.ParamByName (‘aSheetType’).AsString:= ‘101’;
FUniStoredProc.ParamByName (‘aSDate’).AsDateTime:= Now;
FUniStoredProc.ParamByName (‘Update’).AsInteger:= 0;
FUniStoredProc.ParamByName (‘aOrderNo’).AsString:= ‘’;
FUniStoredProc.Execute;
FOrderNo := FUniStoredProc.ParamByName(‘aOrderNo’).AsString;