//-----------------   -----------------
${(1. ன)
// ன  ७ᥭ  "ன ⠡   "
$}(1. ன)
&ObSt(N,2,0)=0; // 0-뤥  "ᮡ"  ,  室; 1- 뤥
&ItogPoSt(N,2,0)=0; 
// 0 -  뢮 ⮣  ⮫栬
// 1 - 뢮
//     ᫥  㤥ঠ
#NBL01(C,90,0)=R_String(᫥);
#NBL02(C,90,0)=R_String(ঠ  ⥭);
#NBL03(C,90,0)=R_String(믫祭);
#NBL04(C,90,0)=R_String();
${(2. )
//    ᮡ  ᫥   ன.
//
// 1.  ᫥: 
//       㤠 ⮫  ﬨ SN1  TN98. 
//       稭  SN, ਬ, SN29.
//       ⮫殢  ᨬ 祭  ⮫ .
//    ⮫ ᮡ " ६ 㤮ᯮᮡ"  " 室  ॡ" 䨪஢, 
//    ..   ᥣ ᨬ  ⮣    㬬  .
//     ⠫ ⮫殢   ⮣     㬬, ᫨ 㬬 , ⮫  ⠥.
//
// 2. ᫥ ६ ⮫栬 㤥ঠ  "ᥣ 㤥ঠ", "  ࣠樥", "  ࠡ⭨".
//     ⮫  㤠, ६, ᫥  ⮫殢      ⮫.
//      砥    ࣠樥 ࠧ㬥 室騩  ᫥騩  ⮪,  101.
//       ࠡ⭨ ࠧ㬥  ᫥饣 ,  300.
//     㬮砭  ⮫   ⪠   ⬥祭 ᨬ "",  , ᨬ "".
//
// 3. ঠ ࠧ   : "ঠ  ⥭"  "믫祭".
//     ⮫殬  "믫祭"   ⮫  ண 稭  SV.
//    ⮫,   稭  SU, 騥 ।  ⮫殬 
//    ⭮   "ঠ  ⥭".
$}(2. )
#dep(N,8,0)=_(NumDep);         
#podr(C,30,0)=_(dep);         
#noved(C,15,0)=_(PrintNumb);         
#dataf(C,10,0)=_(3);          
$BEG_SCRIPT    

    var array_param[10];
    array_param[0]=9; //⢮ ࠬ஢
    array_param[1]=podr;
    array_param[2]=noved;
    array_param[3]=dataf;
    array_param[4]=ObSt;
    array_param[5]=ItogPoSt;

    array_param[6]=static_cast_to_string(NBL01);
    array_param[7]=static_cast_to_string(NBL02);
    array_param[8]=static_cast_to_string(NBL03);
    array_param[9]=static_cast_to_string(NBL04);

    var CurFile=CreateObject("CurPrnFile");    
    CurFile.SetFlagBrowse(0);    

    UnloadScriptModule("forms\\rasplved");
    UnloadScriptModule("forms\\rpv401_15");
    LoadScriptModule("forms\\rpv401_15");
    RasPlatVed2(array_param);
    UnloadScriptModule("forms\\rpv401_15");

$END_SCRIPT   
$    