//  - ଠ "1-T()"  
${(1. ன)
// 0 -  뢠 ᮮ饭  ⢨  ஢  cod_okz; 1 - 뢠
&PrintMsg(N,2,0)=1;
//
//  ⮣ ⮡ ନ஢  㦭:
//
// 1) ன - ன ஢  - ன 塞 ஢ 
//     塞 ஢    (믮  ࠧ)
//     -  
//    ⨯ - T (⨭᪠ 㪢)
//     - 4
//    ᥢ - cod_okz
//
//    ᫨      , , ,   㦭   cod_okz
//    ன PrintMsg ( 室   ⥪),  ⮬ 砥, ⠭  0
//
//     砥 ᫨   㪠       cod_okz,  祭 㤥  
//     cod_okz
//
//     ࠢ筨,  祭   cod_okz, ᮤঠ ⮫쪮  
//     뢠  .
//     ࠢ筨     襥 ⢮  祬 뢠  .
//
//     - ᨩ᪨ 䨪 ⨩
//
// 2) ᫥ ⮣     ஢ ,  㦭  
//    ᮮ⢥騬 祭ﬨ 
//
// 3) ⭠  - 31  ⭮ 
//
// 4)   ਭ ᭮ ࠡ⭨, 
//    ..   ஢  " ࠡ  ।ᯨ筮 ᫥"
//      ࠡ⭨      0, 1, 2, 3, 8
//
//     ਭ   㢮 ࠭ ⭮   ਭ  ࠡ  ⭮ 
//
// 5)  2 ⠡ (⢮  ࠡ ) 㦭   ᫥ ⮣
//      㤥 ନ஢   ࠭  Excel-ଠ .
//    ४஢ Excel-  㦭 ࠭ (Ctrl+S)
//     ।  XML-䠩,    ନ஢ (  室) 
//    ࠭ Excel-.
//
// 6)  ⠡,   "饭" (ErrorMsg),  ᬮ
//    祬 -     .
//
//
//
//
$}(1. ன)
&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); 
  string FN = GetFormXlsName(FN1,FN2);
  if ( access(FN,0) ) FF1 = 0; 
$END_SCRIPT 
//
$(_GE(GOD-YEAR)) 
$(_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(PrintMsg); 

   UnloadScriptModule("dmodules");
   LoadScriptModule("dmodules");
     UnloadDynamicModules();
   UnloadScriptModule("dmodules");
   
   UnloadScriptModule("forms\\t1prof");
   LoadScriptModule("forms\\t1prof");

   t1prof(param,np);

   UnloadScriptModule("forms\\t1prof");
 
$END_SCRIPT 
$