Кто -то сталкивался с таким:
Ошибка при компиляции интерфейса:
" Экранная длина поля у кластера должна быть 0"
Код, где показывает:
Код: Выделить всё
interface MySoprOstatki 'Настройка фильтров ' doAccept, EscClose, gray ;
show at (5,5,65,25);
var szGetOrgOst, szGetSkladOst: string ;
....
// Параметры интерфейса
var dtBegDate, dtFinDate : date ;
var wMarkFilters : word ; // маска активированных фильтров
parameters dtBegDate, dtFinDate, wMarkFilters;
//********************************************************************
create view
as
select * from Pick
bounds byOrg = word(6) == Pick.wList
!XXX and Pick.cRec == KatOrg.nrec
bounds bySklad = word(11) == Pick.wList
!XXX and Pick.cRec == KatPodr.nrec
;
//********************************************************************
Panel pnlMySoprDocFilters_1
Show at (1,1,59,19);
Table Pick
Screen scrMySoprDocFilters_1;
Fields
dtFinDate ('Конец периода' ,,sci1Esc) : [14, 'DD/MM/YYYY'], NoProtect ;
wMarkFilters ('',,) : NoProtect ;
szGetOrgOst ('Выбор контрагентов',,sci13Esc) : [20], Protect, PickButton,
{ font = { color = if( (wMarkFilters AND _Org ) = _Org, ColorSysBlack, ColorSysGray ) } };
szGetSkladOst ('Выбор складов' ,,sci13Esc) : [20], Protect, PickButton,
{ font = { color = if( (wMarkFilters AND _Sklad ) = _Sklad, ColorSysBlack, ColorSysGray ) } };
Buttons
cmOK,default,,'OK';
cmCancel,,,'Выход';
<<
Сопроводительные документы на дату .@@@@@@@@@@
Контрагент: [.] ` .@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
Склад: [.] ` .@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
<. OK .> <. ВЫХОД .>
>> // Вот здесь указывает!
end; // Screen scrMySoprDocFilters_1
end; // Panel pnlMySoprDocFilters_1