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

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

alter interface RecWin04 (fix 'Место работы и должность');

Create View
as Select *
from
 AttrNam PsnLinkPostN
,AttrVal PsnLinkPostV
,AttrNam PsnLinkDeptN
,AttrVal PsnLinkDeptV
Where ((
         'Место работы/учебы'  == PsnLinkDeptN.name
     and 25005                 == PsnLinkDeptN.wTable
     and PsnLinkDeptN.wTable   == PsnLinkDeptV.wTable
     and PsnLinks.nrec         == PsnLinkDeptV.cRec
     and PsnLinkDeptN.nrec     == PsnLinkDeptV.cAttrNam
     and 'Должность/профессия' == PsnLinkPostN.name
     and 25005                 == PsnLinkPostN.wTable
     and PsnLinkPostN.wTable   == PsnLinkPostV.wTable
     and PsnLinks.nrec         == PsnLinkPostV.cRec
     and PsnLinkPostN.nrec     == PsnLinkPostV.cAttrNam
      ))
;

hideFormats scrLinkedPsn;

screen scrLinkedPsn_my;
show at (,3,,19);
table PsnLinks;
Fields
  PsnLinks.SeqNmb      ('N п/п');
  PsnLinksTypeCat.Name ('Степень родства. Выбор из каталога по F3.',
          , scStaffReceptionT2ComPick) : pickbutton, protect;
  PsnLinks.RBornDate   ('Дата рождения', ,
          scStaffReceptionT2SLEditPick) : [10,'DD/MM/YYYY'], noProtect;
  PsnLinks.RFIO        ('Фамилия, Имя, Отчество') : noProtect;
  LPLivName ('Место проживания. F3-Выбор.',
          , scStaffReceptionT2ComPick) : pickbutton, protect;
  PsnLinkDeptV.vString ('Место работы/учебы родственника (Для редактирования нажмите Alt+A)') : Protect;
  PsnLinkPostV.vString ('Должность/профессия родственника (Для редактирования нажмите Alt+A)') : Protect;
  PsnLinks.LType      ('Кто родственник...') : noProtect;
  PsnLinks.KolLgota   ('Количество ММОТ в льготе') : noProtect;
  PsnLinks.DatOk      ('Дата окончания действия льготы') : noProtect;
  DateBegDocInv   ('', hcStaffijd,
         scStaffReceptionT2SLEditPick) : [10,'DD/MM/YYYY'], noProtect;
  DateEndDocInv   ('', hcStaffijd,
         scStaffReceptionT2SLEditPick) : [10,'DD/MM/YYYY'], noProtect;

Buttons
  cmPasteFromBuf,,,'Скопировать адрес сотрудника',
        hcStaffGetPersonPasspAddr;

<<   'Персональные данные родственника'
                          Р О Д С Т В Е Н Н И К И
      № п/п.@@@@  Степень родства.@@@@@@@@@@@@@@@@@@@@@@@@@   Дата рождения.@@@@@@@@@@
      Фамилия,Имя,Отчество .@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
      Место прописки:      .@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
                          <.Скопировать адрес сотрудника.>
      Место работы .@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ Должность .@@@@@@@@@@@@@@@@@@@@@

      [.] Иждивенец (не имеет самостоятельных доходов)`
      [.] Студент или учащийся дневного отделения     `
      [.] Инвалид                                     `
      [.] Ребенок вдовы/вдовца/одинокого опекуна      `
      Кол-во ММОТ в льготе .@@@              Дата окончания действия льготы.@@@@@@@@@@
     `Дата начала действия льготы на инвалида`   .@@@@@@@@@@
     `Дата окончания действия льготы на инвалида`.@@@@@@@@@@
>>
end; // scrLinkedPsn

HandleEvent
 cmPickAttr:
  {
   inherited::handleEvent (cmPickAttr);
   RescanPanel(#PsnLinks);
  };

End;

end.