Не могу спозиционироваться на скрине интерфейса GETANYPODR

[edd]

Пытаюсь допилить фейс GETANYPODR
Добавил чекбокс в скрине SCRCHOOSE
Но изменить его не могу
Даже если просто добавляю в конфигураторе поле, то на него тоже не могу встать, даже мышкой.

Подскажите, что может мешать? Свойства cfpSkip нет у скрина.

[Den]

cpfProtect еще есть..
А так можно сравнить все property стандартного какого нить PanelCheckBox (в существующем функционале) с проперти добавленного.

[edd]

cfpProtect у скрина SCRCHOOSE тоже нет

И дело не в PanelCheckBox, я её сразу сравнил с PanelCheckBox в katmc, всё одинаково.
Я специально добавил через конфигуратор (конфигурировать окно - добавить поле) поле в скрин SCRCHOOSE из корневой таблицы и к нему тоже доступа нет. Протект полю не выставлял.

Значит доступом к элементам управляет что то ещё.

[Den]

попробовал , навскидку, добавить в каталог подразделений, в окно редактирования (WKATPODR) в скрин нечто подобное.
PanelRadioButton создался и доступно переключатели выставлять его

[edd]

В форме редактирования нет проблем, мне надо в форме выбора

[Den]

Там верхние скрины в этом интерфейсе выбора без полей со статиктекстом только.
Я думаю с этим эффект связан , который вы описываете (у меня тоже самое) . И, не суть, добавлять в него контрол выбора или просто статичное поле текстовое - оно так же не будет доступно к редактированию.
Придется придумывать какой то финт другой, чтобы сделать то, что вы хотите (одним встроенным конфигуратором сие не подделать, боюсь)

[edd]

Пока никто не помог, я добавил свой скрин и разместил там чекбокс.

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

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;
}

Но возвращаются какие то "штрашные" цифры типа 317277148. Чем дальше в лес, тем толще партизаны. Или я просто туплю?

[Den]

Можно перегрузить формат (но не расширить - с ExtendFormats будет тот же баг !)

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

#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.

тогда заработает то, что интересует..

[edd]

Не знал про OverloadFormats

Вы решили обе моих проблемы.

Плюсик в репутацию.

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

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. 

[Den]

По существу, это баг , который, конечно, лучше бы заПИРить , чтобы решили.
Получается, что Атлантис автоматом делает недоступным скрин, в котором нет контролов с возможностью фокусировки.