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

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

// Процедура получения нужного КАУ (для windoww GetKAU)
Procedure GetNeedKAU ;
{
  Var KolKAU : longint ; // кол-во выбранных КАУ
  KolKAU := 0;
  KolKAU := iGetKau.GetCodeKau(cgiMulti, GrKAU, cKAU) ;

  Case KolKAU of
    0: { // если пользователь НЕ выбрал никакой КАУ
         // сделаем видимым поле "Филиал"
         SetFieldOption( #Filial , ofSelectable ) ;
         // снимем защиту от редактирования с поля "Имя КАУ"
         ClearFieldOption( #NameKAU , ofProtected ) ;
         cKAU        := 0 ;
         Set NameKAU := '';
         // получим название группы аналитики
         Set NameGrKAU := GetNameGrKAU (0);
         // получим название кода КАУ  (фразу "Код филиала")
         Set NameField_KodKAU := GetNameField_KodKAU (0) ;
       }
    1: { // если пользователь выбрал только один КАУ
         // сделаем видимым поле "Филиал"
         ClearFieldOption( #Filial , ofSelectable ) ;
         // сделаем поле "Имя КАУ" защищенным от редактирования
         SetFieldOption( #NameKAU , ofProtected ) ;
         // получим название группы аналитики
         Set NameGrKAU := GetNameGrKAU (GrKAU) ;
         // получим наименование КАУ
         case GrKAU of
            1 : // если пользователь хочет использовать КАУ по организациям
                IF (GetFirst KatOrg where (( cKAU == KatOrg.nRec )) = tsOk)
                  { Set NameKAU := KatOrg.Name ;
                    Set KodKAU  := KatOrg.UNN  ;
                  }
            3 : // если пользователь хочет использовать КАУ по сотрудникам
                IF (GetFirst Persons where (( cKAU == Persons.nRec )) = tsOk)
                  { Set NameKAU := Persons.FIO    ;
                    Set KodKAU  := string(Persons.TabNmb) ;
                  }
         end;
         // получим название кода КАУ
         Set NameField_KodKAU := GetNameField_KodKAU (GrKAU) ;
       }
  End;
}