${(1.  )  
// ଠ  3-ࠧ  
//           
//     
//  
// ਪ   30.10.2012  574  
//  
// ⠫쭠  
//      ⠫ 2013   
// ப ।⠢ -  10  ᫥ ⭮ ਮ  
$}(1.  )  
${(2. )  
// 롮ઠ 㬬 믮   ⮫ ⠡ 室, 
//  ⮫ 㦭 㪠   ⠡ ST,  㬮砭 ⠬ 25 ⮫, 
//  室  25 㪠  ࠭  ⮫. 
//
//  ᫥   祭 ᨬ 1 ( 鸞 ᨬ )  ⮬ ⮫.
//
//  㬮砭 㬬 롨   ᫥, ᫨ 㦭 ⮡ 㬬 롨ࠫ
//   ਭ,   㭪樨 ਥ  FL 㦭 return 1; ࠢ  return 0;
//  
//   4 (७ ᮢ⥫⢮) 㬬 롨  ᮢ⥫ᢠ  
//  ࠢ筨 ᮢ⥫  ⮫ "饭 " ⮨ 뫪  ᭮  ࠡ.
//    㬬  ࠬ 鸞  ᭮  ࠡ. 
//  
//  ᫥   । ⮢  ஢ ᯮ  ⠡ SUM01. 
//  ⮫ 㭪 ਥ ஥筮 ⠡  ⮣  㪠: 
// return p3sum("",ST,FL,__W,__A); 
// ..  㬮砭 㬬 롨  筨 䨭஢  譨  .
//  砥 ᫨ ᯮ 㣨   筨 ᪮쪮,  㦭 ᫨ १
//   ࢮ ࠬ, ਬ:    ᫥  뢠   
// 筨   , ,  -  ⮬ 砥   㭪樨 ਥ 㤥 룫拉 ⠪:
// return p3sum(",,",ST,FL,__W,__A);  
//   ᠥ  ।    -  ⠡ SUM02 
//  ।  ਭ饩 室 ⥫쭮 -  ⠡ SUM03 
//
//  ।  ப   ᨬ   ⥣ਨ  
//  ⭮ ࣠樨 㦭 믮 ன ᮮ⢥⢨  ⥣ਨ ப .
//   ᤥ ᪠  㭪 "3.  ⥣ਨ - ப "
//
$}(2. )  
${(3.  ⥣ਨ - ப )  
//  ⮣ ⮡   ।묨  ⥣ਨ   ᮮ⢥騥 ப 
// 室 믮 ᫥騥 ⢨:
//
//  㭪樨 稭  SysP3obr101(kod)  SysP3obr103(kod) ⥫쭮
// (室  㫥 statfn.s ⠫ SCRIPT\FORMS)
//     㫥 ⠫ SCRIPT\USER, ਬ  usinit.s
//  २  ᮮ⢥⢥  UserP3obr101(kod) ... UserP3obr103(kod)
// ..    㭪樨 ᨬ "Sys"  "User"
//
//   㭪樨 ( ⠢ User) 㦭 㤥 ᪮४஢, ਬ
// ᫨ 㦭 ⮡  ப 101      ⥣ਨ 5, 7  12
// 㭪 UserP3obr101(kod) 㤥 룫拉 ⠪:
//
// UserP3obr101(kod){ if ( 5 == kod || 7 == kod || 12 == kod ) return 1; else return 0;}
//
//  砥 ᫨  ப 251      ⥣ਨ 9
// 㭪 UserP3obr251(kod) 㤥 룫拉 ⠪:
//
// UserP3obr251(kod){ if ( 9 == kod ) return 1; else return 0;}
//
//  ⠪    ப
//
//  砥 ᫨  ࣠樨      ⭥ᥭ  - ப 
//  ᮮ⢥ 㭪   0 ()
// ਬ ᫨  ࣠樨   ⭮  ப 631
// ᮮ⢥ ⮩ ப 㭪 㤥 룫拉 ⠪:
//
// UserP3obr631(kod){ return 0;}
//
// :
//  ப 212   ப 211
//  ப 232  233   ப 231
//  ப 242  243   ப 241
//  ப 252  253   ப 251
//  ப 311   ப 301
// .., ਬ, ᫨ ⥣     ப 211   ப 212
//  㦭 㪠 ⮫쪮  UserP3obr212(kod)
$}(3.  ⥣ਨ - ப )  
//  
${(4. ன)  
//  ⮡ࠦ ᫥ 譨 ᮢ⥫
&CHVS(N,2,0)=0;// 0- 楫 ᫠; 1-   
$}(4. ன)  
//  
&Format(N,2,0)=0;   
&FPRINT(N,2,0)=1;   
#FF1(N,3,0)=_(FFIRST,0);   
#FN1(C,256,0)=_(FNAME1,0);   
#FN2(C,256,0)=_(FNAME2,0);   
$BEG_SCRIPT   
  var CurFile=CreateObject("CurPrnFile");   
  CurFile.SetFlagBrowse(0);   
  FreeSpaceString(FN1,3,""); FreeSpaceString(FN2,3,"");   
  string FN = FN1 + FN2;   
  if ( access(FN,0) ) FF1 = 0;   
$END_SCRIPT   
$(_EQ(FF1-1))   
//   
  #Format=_(15,9,70,15,롥 ०,   , ।  䠩 );   
//   
  $(_EQ(Format-27))   
    $   
  $_   
//   
  $(_EQ(Format))   
    #FPRINT=_(15,9,70,15, ,  ନ஢ ,   );   
    $(_EQ(FPRINT-27))   
      $   
    $_   
  $_   
//   
$_   
//  
$BEG_SCRIPT  
  
  int np = 3;  
  var param[np];  
  
  param[0]  = atoi(Format);   
  param[1]  = atoi(FPRINT);   
  param[2]  = atoi(CHVS);
  
  UnloadScriptModule("dmodules");  
  LoadScriptModule("dmodules");  
    UnloadDynamicModules();  
  UnloadScriptModule("dmodules");  
  
  UnloadScriptModule("forms\\p3obr_13");  
  LoadScriptModule("forms\\p3obr_13");  
    p3obr(param,np);  
  UnloadScriptModule("forms\\p3obr_13");  
  
$END_SCRIPT  
$