//   ᫥ 㬬  樠쭮   室 ⮢
${(1. ன ⠡)    
&LINV(N,2,0)=0;    //    : 0 -    200x; 1 -   ⮢
&fContSum(N,2,0)=1;// 1 -  ஫ 㬬  ।  䠩; 0 - ஫쭠 㬬  㦭
&WARNING(N,2,0)=1; // 0 - ஢ ।०; 1 - 
&VARFO(N,2,0)=0;   // ਠ  ⭮: 1 -  ᫨ > 1; 0 -  
&NSUM(N,2,0)=0;    // 0-뢠 ⥫ 㬬; 1- 뢠
#TP(C,20,0)=R_String(21); //  祭  砥 ᫨ ⥫ 000010000100  21
&CHISA(N,8,0)=0;   // ᫥ ⮢ (祫.), 襤  㣨 ᪨ ࠧ
$}(1. ன ⠡)    
//
#PDF417(N,2,0)=0;
$BEG_SCRIPT    
   PDF417=IsPDF417_Exist(false,"");
$END_SCRIPT
$(_GT(PDF417))
   #EXCEL(N,2,0)=_(10,9,70,15,ଠ :,१ Excel,।  䠩, 㬥 -);  
 $    
   #EXCEL(N,2,0)=_(15,9,65,15,ଠ :,१ Excel,।  䠩);  
$_    
$(_EQ(EXCEL-27))    
  $BEG_SCRIPT    
    var CurFile=CreateObject("CurPrnFile");    
    CurFile.SetFlagBrowse(0);    
  $END_SCRIPT    
  $    
$_    
//
//$(_EQ(EXCEL-1))    
//$BEG_SCRIPT    
//  AmbaMessageBox("।  䠩   ॠ.","",0,0);
//  var CurFile=CreateObject("CurPrnFile");    
//  CurFile.SetFlagBrowse(0);    
//$END_SCRIPT    
//$    
//$_    
//    
#DRASCH(C,10,0)=R_String(          );    
$BEG_SCRIPT    
  sprintf(DRASCH,"%-10.10s",datatek);    
$END_SCRIPT    
#=( , ,  ⠢  , DRASCH);    
$(_EQ(27-))    
$BEG_SCRIPT    
  var CurFile=CreateObject("CurPrnFile");    
  CurFile.SetFlagBrowse(0);    
$END_SCRIPT    
$    
$_    
#NOMP(N,3,0)=_(FLGINVP); #FINV(N,6,0)=_(NOMP,0);    
//
$BEG_SCRIPT    
  char VarFOtch[20];    
  sprintf(VarFOtch,"  0");    

  char buf[20];
  sprintf(buf,"  1");    

  EXCEL++;

  if (EXCEL == 2 || EXCEL == 3)    
  {    
     if ( ESC == Panel_Zapros("","",  
                   "  䠩",               buf     , 3,          
                   " ਠ  ⭮ ", VarFOtch, 3))          
     {
        var CurFile=CreateObject("CurPrnFile");    
        CurFile.SetFlagBrowse(0);    
        return ESC;                                                 
     }
  }    

  int NomFile = atoi(buf);

  FreeSpaceString(VarFOtch,3,"");    
  FreeSpaceString(TP,3,"");    

  int np = 11;
  var param[np];
  
  param[0]  = EXCEL;
  param[1]  = NomFile;
  param[2]  = static_cast_to_string(VarFOtch);
  param[3]  = NSUM;
  param[4]  = fContSum;
  param[5]  = WARNING;
  param[6]  = VARFO;
  param[7]  = static_cast_to_string(DRASCH); 
  param[8]  = LINV;
  param[9]  = static_cast_to_string(TP);
  param[10] = CHISA;

  UnloadScriptModule("dmodules");
  LoadScriptModule("dmodules");
    UnloadDynamicModules();
  UnloadScriptModule("dmodules");

  LoadScriptModule("forms\\esnadv");    
    esnadv(param,np);
  UnloadScriptModule("forms\\esnadv");    

$END_SCRIPT    
$