Код: Выделить всё
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
  );