Код: Выделить всё
for (i := 1; i <= 9; Inc(i))
{
if (SaldTune.WKau[i] = 22)
....
}
Модераторы: m0p3e, edward_K, Модераторы
Код: Выделить всё
for (i := 1; i <= 9; Inc(i))
{
if (SaldTune.WKau[i] = 22)
....
}
Код: Выделить всё
Create table D_GAL.SALDTUNE "Настр.объектов учта целевого назначения"
Using "SaldTune.dat"
With Table_Code = 1176
With replace With TableOptions Corpo, Branched
(
NREC : Comp "Номер записи",
ATL_LASTDATE : Date "Дата последней модификации",
ATL_LASTTIME : Time "Время последней модификации",
ATL_LASTUSER : ref(X$USERS) "Код пользователя",
ATL_ORIGINOFFICE : Word "Номер офиса, в котором занесена запись",
ATL_OWNER : Comp "Код владельца записи",
ATL_BRANCH : Comp "Филиал",
WATTR : Word "Атрибуты",
WTYPE : Word "Тип настройки",
CODE : String[20] "Код настройки",
NAME : String[80] "Наименование настройки",
WOBJ : Word "Общесистемный код для объекта учета",
WKAU : Array [1..9] of Word "Общесистемный код аналитики",
CROLEOBJ : Comp "Ссылка на роль объекта учета",
CROLE : Array [1..9] of Comp "Ссылка на роль аналитики"
)
with index
(
SALDTUNE01 = NREC(Unique,Surrogate,Journal),
SALDTUNE02 = WATTR+WTYPE,
SALDTUNE03 = WTYPE+NAME,
SALDTUNE04 = WTYPE+CODE,
SALDTUNE05 = WOBJ+WTYPE,
SALDTUNELM = ATL_LASTDATE+ATL_LASTTIME,
SALDTUNELU = ATL_LASTUSER
);