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

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

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

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

[.] Контрагент`
[.] Склад`