Галактика в вопросах и ответах

Код: Выделить всё

Create View
Var
 cWorkObjRem
 : Comp;
As Select
 if(KurRem.cKatPodr  > 0, KatPodr.Name,
  if(KurRem.cKatOrg  > 0, KatOrg.Name,
  if(KurRem.cPersons > 0, Persons.FIO,
                          KurRem.Name)))
 (FieldName = ObjRemOsnKuratorName),

 if(KurRem.cKatPodr  > 0, cgKau_KatPodr,
  if(KurRem.cKatOrg  > 0, cgKau_KatOrg,
  if(KurRem.cPersons > 0, cgKau_Persons,
                          4)))
 (FieldName = ObjRemOsnKuratorType),

 if(KurRem.cKatPodr  > 0, KatPodr.NRec,
  if(KurRem.cKatOrg  > 0, KatOrg.NRec,
  if(KurRem.cPersons > 0, Persons.NRec,
                          KurRem.NRec)))
 (FieldName = ObjRemOsnKuratorNRec),

 if (ObjRemAttrNam.AttrType = 1, DoubleToStr(ObjRemAttrVal.vDouble, '[|-]3666666666666666.888'),
  if (ObjRemAttrNam.AttrType = 2, DateToStr(ObjRemAttrVal.vDate,'DD/MM/YYYY'),
   if (ObjRemAttrNam.AttrType = 3, TimeToStr(ObjRemAttrVal.vTime,'HH:MM'),
                                    ObjRemAttrVal.vString)))
 (FieldName = ObjRemAttribute)
From
 ObjRem                     (ReadOnly),
 TipObj                     (ReadOnly),
 KurRem                     (ReadOnly),
 KatPodr                    (ReadOnly),
 KatOrg                     (ReadOnly),
 Persons                    (ReadOnly),
 ObjRemAttrVal              (ReadOnly),
 ObjRemAttrNam              (ReadOnly)
Where ((
         cWorkObjRem             == ObjRem.NRec                and

         //'тип
         ObjRem.cTipObj          == TipObj.NRec                and

         //'основной куратор
         ObjRem.cNrec1           == KurRem.Nrec                and
         KurRem.cKatPodr         == KatPodr.Nrec               and
         KurRem.cKatOrg          == KatOrg.Nrec                and
         KurRem.cPersons         == Persons.Nrec               and

         //'атрибуты
         comp(999999999999999)   == ObjRemAttrVal.wTable       and
         ObjRem.Nrec             == ObjRemAttrVal.cRec         and
         ObjRemAttrVal.cAttrNam  == ObjRemAttrNam.NRec
      ))
;