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

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

Screen ScrSpis;
Show At(,,,);
	Fields
     dfrom  : ['DD/MM/YYYY'],noprotect;
     dto    : ['DD/MM/YYYY'],noprotect;
     NameMVZ  (,,sci13Esc): pickbutton,protect;
     NameMOL  (,,sci13Esc): pickbutton,protect;
     Vyvod : noProtect;
	Buttons
	 cmOk;
<<

     `Период     с ` .@@@@@@@@@@ ` по ` .@@@@@@@@@@

     `МВЗ`           .@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
     `МОЛ`           .@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

    `Включать в отчет списание `
    [.] Спецодежды`
    [.] Инструмента и спецоснастки`

                                       <.  Печать  .>
>>
End;                 

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

cmInit :												 { 
    delete all pick;
   dfrom:=date(01,month(Sub_Months(cur_date,1)),year(Sub_Months(cur_date,1)));
   dto:=date(last_day(Sub_Months(cur_date,1)),month(Sub_Months(cur_date,1)),year(Sub_Months(cur_date,1)));
   NameMVZ:='По всем подразделениям';
   NameMol:='По всем МОЛам';
  };// cmInit 

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

cmPick:
{                                                               //пики
  StartNewVisual(vtRotateVisual,vfTimer,'Отбор по параметрам...',0);
  {
   var kol:integer; kol:=0;

   if (CurField= #NameMVZ)
   {
     Delete pickPodr where ((word(11)==PickPodr.wList));
     kol:=0;
     MarkPodr:=0;
     MarkPodr  := InitMarker('MarkPodr' ,  8, 100, 10);
     if (RunInterface('GetSomePodr')<>cmCancel)
     { Message('интерфейс выбора подразделения');
      if (ViewVed.getfirst pickPodr where ((word(11) ==PickPodr.wList))=tsok) do
       {
         kol:=kol+1;
         Message(kol);
         InsertMarker(MarkPodr,PickPodr.crec);
       }while (ViewVed.getnext pickPodr where ((word(11) ==PickPodr.wList))=tsok)
       if kol = 1 then {NameMVZ:=KatPodrP.Name;}
       else  NameMVZ:='Вы выбрали '+kol+' подразделений';
      } //if runinterface<>cmcancel
      else
      {
        NameMVZ:='По всем подразделениям';
      }
      ReScanPanel(ScrSpis);
    }//curfield
  }//startNewVisual
  stopvisual('',0);
}//cmPick
    

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

Screen ScrSpis;
noTableNavigation;
Show At(,,,);

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

set NameMVZ:=KatPodrP.Name;

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

 Screen ScrSpis;
  table katpodr; // или pickpodr

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

 StartNewVisual(vtRotateVisual,vfTimer,'Отбор по параметрам...',0);
  {
   var kol:integer; kol:=0;

   if (CurField= #NameMVZ)

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

  if (RunInterface('GETSOMEMOLMY' )<>cmCancel)
   

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

   CloseInterface(cmDefault);   

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

 delete all pick;