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

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

fsCreateObject('screen', 'GETANYPODR', 'scrArh', FALSE, scrArh);
...
cfsCreateObject ('PanelCheckBox','scrArh','LSeeNew', false, LSeeNew);
...
cfsCreateObject('ClusterItem','LSeeNew','Arh_Dop',false, Arh_Dop);

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

cmCheckField:
{
  case CurField of
    #LSeeNew: message(LSeeNew)
  end;
}

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

#component "Z_KATPODR"

Alter interface GetAnyPodr;

OverloadFormats scrPick1;

 var l : word;

screen scrPick1;
show at (,,,2);
 fields
   l : noprotect;
<<
   Пометьте необходимые записи и нажмите Enter           (.) - one`
   Для просмотра инфраструктуры склада нажмите Alt+I     (.) - two`
>>
end;

end.

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

alter interface GETANYPODR

OverloadFormats SCRCHOOSE;

var wArh : word;

screen SCRCHOOSE;
show at (,,,2);
fields
   wArh : noprotect, noFrame;
<<
   Пометьте необходимые записи и нажмите Enter
   Для просмотра инфраструктуры склада нажмите Alt+I
   [.] Не показывать архивные подразделения/склады `
>>
end;
...

HandleEvent  //События главного окна
cmInit: { 
    cfsSetProp('SCRCHOOSE', cfpRectB_Y,   word(3));   //увеличим первое окно
    cfsSetProp('DEPARTMENTTREE', cfpRectA_Y, word(4)); // у списка подразделений  опустим верхнюю границу на 1  
}

cmCheckField:
{ inherited::handleEvent(cmCheckField) 
  if Curfield=#wArh then
  case wArh of
    1: ...
    0: ...
  end;
}
end;
end.