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

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

Parameters 
 _vcParam1
// ссылка на документ
, _vwParam2
// 1 - заявка акты вып. ремонтов.
// 2 - ДО
// 5 - заявка акты на списание
// 100:
// все ремонтные акты
// 200:
// все ремонтные акты на ОР
 , wIntMode     // cgiNo = просмотр, cgiPick = одно, cgiMulti = несколько
, pr_KillPick  // признак обнуления ранее выбранных позиций в групповом выборе
, _vcParam2    // возвращаемая ссылка на документ

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

, _vwParam2
// 1 - заявка акты вып. ремонтов.
// 2 - ДО
// 5 - заявка акты на списание
// 100:
// все ремонтные акты
// 200:
// все ремонтные акты на ОР

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

#include GetKau.vih
...
#include GetKau.var
....
 cmPick: iGetKau.getCodeKau(cgiPick, cgKau_KatSopr, cNakl)
....

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

#define ComponentVersion
#component "L_REMONT"
alter interface INREMONT;
create view from sklorder sklorder_, sporder sporder_, basedoc basedoc_, basedocrem basedocrem_, sposrem sposrem_, stepdoc stepdoc_
where((
    katsopr.nrec  == sklorder_.csopr
and 2             == sklorder_.sp(noindex)
and sklorder_.nrec == sporder_.csklorder

and katsopr.cstepdoc  == stepdoc_.nrec
and stepdoc_.cbasedoc == basedoc_.nrec

and 0                    == basedocrem_.tipdoc
and basedoc_.nrec        == basedocrem_.cbasedoc
and basedocrem_.csposrem == sposrem_.nrec
));
Window EDITSOPR;
Panel HEADER;
end;
HandleEvent
cmMakeOrder:
{
  if (inherited :: handleevent(cmMakeOrder)=heOK) then 
  {
   if sposrem_.abbr = 'ХС' then
   {
     delete all sporder_;
     delete current sklorder_;
   }
  }
}
end;
end;
end.