|
Доброго дня!
Эта ф-ия отвечает за названия столбцов –дат в матричной форме ( кодюнит PeriodFormManagement).
Заинтересовал меня выделенный кусок. Выполняется не засереный код.
А тут идет присвоение, а потом поиск. Засеренный код не выполняется.
и работает и без Calendar.SETRANGE("Period Type",PeriodType);
FindDate(SearchString : Text[3];VAR Calendar : Record Date;PeriodType : 'Day,Week,Month,Quarter,Year,Accounting Period') : Boolean
Calendar.SETRANGE("Period Type",PeriodType);
// вот здесь! >>
Calendar."Period Type" := PeriodType;
IF Calendar."Period Start" = 0D THEN
Calendar."Period Start" := WORKDATE;
// вот здесь! <<
IF SearchString IN ['','=><'] THEN
SearchString := '=<>';
IF PeriodType = PeriodType::"Accounting Period" THEN BEGIN
SetAccountingPeriodFilter(Calendar);
Found := AccountingPeriod.FIND(SearchString);
IF Found THEN
CopyAccountingPeriod(Calendar);END ELSE BEGIN
Found := Calendar.FIND(SearchString);
IF Found THEN
Calendar."Period End" := NORMALDATE(Calendar."Period End");
END;
EXIT(Found);
Я не понимаю его логику.
Предположительно выполняется присвоение ключевых полей делается для поиска FIND('=><').
Подскажите, пжл, кто глубже понимает Нав, в чем фишка?
|