Re: управление строительством
Добавлено: 20 фев 2014, 08:25
Обсуждение различных вопросов, связанных с сопровождением, администрированием и программированием
https://ns1.tyumbit.ru/
Код: Выделить всё
Function CanEditKau(aiNum : word) : boolean;
{
CanEditKau := true;
case aiNum of
0 : CanEditKau := ((not IsValid(#KitKau )) and (not IsValid(#KitKau10)));
1 : CanEditKau := ((not IsValid(#KitKau1)) and (not IsValid(#KitKau11)));
2 : CanEditKau := ((not IsValid(#KitKau2)) and (not IsValid(#KitKau12)));
3 : CanEditKau := ((not IsValid(#KitKau3)) and (not IsValid(#KitKau13)));
4 : CanEditKau := ((not IsValid(#KitKau4)) and (not IsValid(#KitKau14)));
5 : CanEditKau := ((not IsValid(#KitKau5)) and (not IsValid(#KitKau15)));
6 : CanEditKau := ((not IsValid(#KitKau6)) and (not IsValid(#KitKau16)));
7 : CanEditKau := ((not IsValid(#KitKau7)) and (not IsValid(#KitKau17)));
8 : CanEditKau := ((not IsValid(#KitKau8)) and (not IsValid(#KitKau18)));
9 : CanEditKau := ((not IsValid(#KitKau9)) and (not IsValid(#KitKau19)));
end;
}
Код: Выделить всё
and SaldTune.nRec == KitKau.cSaldTune
and comp(1) <<= KitKau.cObj
and SaldTune.nRec == KitKau10.cSaldTune
and comp(-1) >>= KitKau10.cObj
and SaldTune.nRec == KitKau1.cSaldTune
and comp(1) <<= KitKau1.cKau[1]
and SaldTune.nRec == KitKau11.cSaldTune
and comp(-1) >>= KitKau11.cKau[1]
and SaldTune.nRec == KitKau2.cSaldTune
and comp(1) <<= KitKau2.cKau[2]
and SaldTune.nRec == KitKau12.cSaldTune
and comp(-1) >>= KitKau12.cKau[2]
and SaldTune.nRec == KitKau3.cSaldTune
and comp(1) <<= KitKau3.cKau[3]
and SaldTune.nRec == KitKau13.cSaldTune
and comp(-1) >>= KitKau13.cKau[3]
and SaldTune.nRec == KitKau4.cSaldTune
and comp(1) <<= KitKau4.cKau[4]
and SaldTune.nRec == KitKau14.cSaldTune
and comp(-1) >>= KitKau14.cKau[4]
and SaldTune.nRec == KitKau5.cSaldTune
and comp(1) <<= KitKau5.cKau[5]
and SaldTune.nRec == KitKau15.cSaldTune
and comp(-1) >>= KitKau15.cKau[5]
and SaldTune.nRec == KitKau6.cSaldTune
and comp(1) <<= KitKau6.cKau[6]
and SaldTune.nRec == KitKau16.cSaldTune
and comp(-1) >>= KitKau16.cKau[6]
and SaldTune.nRec == KitKau7.cSaldTune
and comp(1) <<= KitKau7.cKau[7]
and SaldTune.nRec == KitKau17.cSaldTune
and comp(-1) >>= KitKau17.cKau[7]
and SaldTune.nRec == KitKau8.cSaldTune
and comp(1) <<= KitKau8.cKau[8]
and SaldTune.nRec == KitKau18.cSaldTune
and comp(-1) >>= KitKau18.cKau[8]
and SaldTune.nRec == KitKau9.cSaldTune
and comp(1) <<= KitKau9.cKau[9]
and SaldTune.nRec == KitKau19.cSaldTune
and comp(-1) >>= KitKau19.cKau[9]
Упс.. перестаралсяedward_K писал(а):RRR. Я что зря прошу текстом? Зачем мне скрин? Просите помощи - выполните в точности, что просят.
Код: Выделить всё
(
vsLabel0
, vsLabel1
, vsLabel2
, vsLabel3
, vsLabel4
, vsLabel5
, vsLabel6
, vsLabel7
, vsLabel8
, vsLabel9
)
As select
'èÇô 1' (FieldName = vsLabel0)
, 'èÇô 2' (FieldName = vsLabel1)
, 'èÇô 3' (FieldName = vsLabel2)
, 'èÇô 4' (FieldName = vsLabel3)
, 'èÇô 5' (FieldName = vsLabel4)
, 'èÇô 6' (FieldName = vsLabel5)
, 'èÇô 7' (FieldName = vsLabel6)
, 'èÇô 8' (FieldName = vsLabel7)
, 'èÇô 9' (FieldName = vsLabel8)
, 'èÇô 10' (FieldName = vsLabel9)
, GetKauDef(0) (FieldName = fKauDefault0)
, GetKauDef(1) (FieldName = fKauDefault1)
, GetKauDef(2) (FieldName = fKauDefault2)
, GetKauDef(3) (FieldName = fKauDefault3)
, GetKauDef(4) (FieldName = fKauDefault4)
, GetKauDef(5) (FieldName = fKauDefault5)
, GetKauDef(6) (FieldName = fKauDefault6)
, GetKauDef(7) (FieldName = fKauDefault7)
, GetKauDef(8) (FieldName = fKauDefault8)
, GetKauDef(9) (FieldName = fKauDefault9)
, *
From
SaldTune(SaldTune03)
, SaldTune SaldTuneOld
, SaldTune SaldTune1(SaldTune03)
, SaldTune SaldTune2
, KatRole Role0
, KatRole Role1
, KatRole Role2
, KatRole Role3
, KatRole Role4
, KatRole Role5
, KatRole Role6
, KatRole Role7
, KatRole Role8
, KatRole Role9
, KatKau KatKau0
, KatKau KatKau1
, KatKau KatKau2
, KatKau KatKau3
, KatKau KatKau4
, KatKau KatKau5
, KatKau KatKau6
, KatKau KatKau7
, KatKau KatKau8
, KatKau KatKau9
, DocsKau
, SaldoRaz
, MtrAct
, MaskICN
, AddSumTune
, KitKau
, KitKau KitKau1
, KitKau KitKau2
, KitKau KitKau3
, KitKau KitKau4
, KitKau KitKau5
, KitKau KitKau6
, KitKau KitKau7
, KitKau KitKau8
, KitKau KitKau9
, KitKau KitKau10
, KitKau KitKau11
, KitKau KitKau12
, KitKau KitKau13
, KitKau KitKau14
, KitKau KitKau15
, KitKau KitKau16
, KitKau KitKau17
, KitKau KitKau18
, KitKau KitKau19
, SpecMTR
Where ((
SaldTune.cRoleObj == Role0.nRec
and SaldTune.cRole[1] == Role1.nRec
and SaldTune.cRole[2] == Role2.nRec
and SaldTune.cRole[3] == Role3.nRec
and SaldTune.cRole[4] == Role4.nRec
and SaldTune.cRole[5] == Role5.nRec
and SaldTune.cRole[6] == Role6.nRec
and SaldTune.cRole[7] == Role7.nRec
and SaldTune.cRole[8] == Role8.nRec
and SaldTune.cRole[9] == Role9.nRec
and SaldTune.wObj == KatKau0.KodGroup
and SaldTune.wKau[1] == KatKau1.KodGroup
and SaldTune.wKau[2] == KatKau2.KodGroup
and SaldTune.wKau[3] == KatKau3.KodGroup
and SaldTune.wKau[4] == KatKau4.KodGroup
and SaldTune.wKau[5] == KatKau5.KodGroup
and SaldTune.wKau[6] == KatKau6.KodGroup
and SaldTune.wKau[7] == KatKau7.KodGroup
and SaldTune.wKau[8] == KatKau8.KodGroup
and SaldTune.wKau[9] == KatKau9.KodGroup
and SaldTune.nRec == SaldTuneOld.nRec
and SaldTune.nRec == DocsKau.cSaldTune
and SaldTune.nRec == SaldoRaz.cSaldTune
and SaldTune.nRec == KitKau.cSaldTune
and comp(1) <<= KitKau.cObj
and SaldTune.nRec == KitKau10.cSaldTune
and comp(-1) >>= KitKau10.cObj
and SaldTune.nRec == KitKau1.cSaldTune
and comp(1) <<= KitKau1.cKau[1]
and SaldTune.nRec == KitKau11.cSaldTune
and comp(-1) >>= KitKau11.cKau[1]
and SaldTune.nRec == KitKau2.cSaldTune
and comp(1) <<= KitKau2.cKau[2]
and SaldTune.nRec == KitKau12.cSaldTune
and comp(-1) >>= KitKau12.cKau[2]
and SaldTune.nRec == KitKau3.cSaldTune
and comp(1) <<= KitKau3.cKau[3]
and SaldTune.nRec == KitKau13.cSaldTune
and comp(-1) >>= KitKau13.cKau[3]
and SaldTune.nRec == KitKau4.cSaldTune
and comp(1) <<= KitKau4.cKau[4]
and SaldTune.nRec == KitKau14.cSaldTune
and comp(-1) >>= KitKau14.cKau[4]
and SaldTune.nRec == KitKau5.cSaldTune
and comp(1) <<= KitKau5.cKau[5]
and SaldTune.nRec == KitKau15.cSaldTune
and comp(-1) >>= KitKau15.cKau[5]
and SaldTune.nRec == KitKau6.cSaldTune
and comp(1) <<= KitKau6.cKau[6]
and SaldTune.nRec == KitKau16.cSaldTune
and comp(-1) >>= KitKau16.cKau[6]
and SaldTune.nRec == KitKau7.cSaldTune
and comp(1) <<= KitKau7.cKau[7]
and SaldTune.nRec == KitKau17.cSaldTune
and comp(-1) >>= KitKau17.cKau[7]
and SaldTune.nRec == KitKau8.cSaldTune
and comp(1) <<= KitKau8.cKau[8]
and SaldTune.nRec == KitKau18.cSaldTune
and comp(-1) >>= KitKau18.cKau[8]
and SaldTune.nRec == KitKau9.cSaldTune
and comp(1) <<= KitKau9.cKau[9]
and SaldTune.nRec == KitKau19.cSaldTune
and comp(-1) >>= KitKau19.cKau[9]
and coSaldTune == SpecMTR.coTable
and SaldTune.nRec == SpecMTR.cSpec
));
В личку написалАлексей писал(а):спрашивайте, постараюсь ответить на Ваши вопросы.