TSpr Клас

Реалізує довідник.

Член	Тип	Параметри	Опис
Choice	ID		Повертає ID обраного запису з об'екту ISpr, якщо його создано для обирання запису (MD - класу TSpr): loSpr = CreateObject('iSpr','SDZPShem','ID='+lcShem) If VarType(loSpr) = 'O' loSpr.DlgBar.RemoveButton('Parent') loSpr.MD.UsedParent = loSpr.MD.Record.Mod loSpr.MD.ValueParent = 'LAZY' loSpr.Show() If VarType(loSpr)='O' And !Empty(loSpr.MD.Choice) MessageBox('Обрана схема '+ScatterToObj(loSpr.MD.Choice) EndIf EndIf
GetHist(cFld,[dEnd],[cCrsRet],[dBeg],[lPer])	С	cFld-реквізит; dEnd-кінцева дата; сCrsRet-бажана назва курсору ; dBeg-початкова дата; lPer-ознака періоду	Повертає назву курсору з історією періодичного реквізиту cFld. &&---Вар 1 : Повертае в курсор lcCrs (ID,_DATE,_VAL) && значення реквізиту Kol на дату ldDateEnd; && На дату _DATE значення _VAL lcCrs = loSprOsr.GetHist('Kol', ldDateEnd) &&---Вар 2 : Повертае в курсор lcCrs (ID,_DATE,_VAL) && історію значень реквізиту Kol за період {ldDateBeg,ldDateEnd}; && _DATE - з якої дати встановдено значення _VAL lcCrs = loSprOsr.GetHist('Kol', ldDateEnd,,ldDateBeg) &&---Вар 3 : Повертае в курсор lcCrs (ID,_VAL, DATEBEGIN, DATEEND, DAY) && історію значень реквізиту Kol за період {ldDateBeg,dDateEnd}; && В періоді з DATEBEGIN по DATEEND діяло DAY дней значення _VAL lcCrs = loSprOsr.GetHist('Kol', ldDateEnd,,ldDateBeg, .T.)
GenGKod(cPar)	VAR		Встановлює значення реквізитів GKod та GLevel на основі значення реквізиту PID. Зазвичай метод використовується з параметром ALL для перегенерації всіх значень довідника, в цьому випадку повертається значення .T.. Метод також неявно використовується при генерації нового елементу в методі TSpr.GenGKod() - тоді параметр приймає значення CURRENT та додатково повертається значення реквізиту GKod.
Take()	.T.		Завантажує значення з поточного рядка таблиці довідника в колекцію RF. Також дивись функцію ScatterToObj().
_Filter	C		Фільтр, який не не перетинається з фільтрами які працюють для реалізації інтерфейсу в класі ISpr. Т.т. працює в доповнення до фільтрів інтерфейсів.
IsSelect	L		Повертає .T. - якщо поточний запис в довіднику спозиціоновано. (В наведеному прикладі The - об'єкт класу ISpr) If !(The.MD.isSelect And Upper(The.MD.FPName)='_TARHR') Return EndIf The.MD.Take() lcNodeID = Iif(The.MD.RF.Isfolder='1', The.MD.RF.ID, The.MD.RF.Pid)
is_NewPlus	L		Дорівнює .T. - коли елемент довідника додається по шаблону.
RF	Empty		Колекція реквізитів отримана за допомогою метода Take() з поточного рядка таблиці.
HistDate	D8		Якщо в довіднику існують періодичні значення, то ця властивість задає дату, на яку будуть повертатися значення по замовчуванню. Також клас ISpr відображає значення на цю дату, та відображає саму дату в правому нижньому кутку форми (в кінці рядка статусу). По замовчуванню в довідниках встановлюється поточна календарна дата, якщо вона входить в діапазон {Sys.BeginDate…Sys.EndDate}, інакше дорівнює Sys.BeginDate.

Smartfox

TSpr Клас

Налаштування сторінки