//    2005 .    
${(1. ன ⠡)    
&LINV(N,2,0)=0;    //    : 0 -    2005; 1 -   ⮢
&IMNS(N,2,0)=1;    // 0-, 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- 뢠
$}(1. ன ⠡)    
&EXCEL(N,2,0)=0;
&UDOPS(N,2,0)=0;   // 1-뢠 . 㬬,              0-    
&SUMVMEN(N,2,0)=0; // 1-  ࠢ 㬬  室     0-    
//    
&FSS0700(N,14,2)=0; &FSS0800(N,14,2)=0;    
&FSS0740(N,14,2)=0; &FSS0840(N,14,2)=0;    
&FSS0730(N,14,2)=0; &FSS0830(N,14,2)=0;    
&FSS0720(N,14,2)=0; &FSS0820(N,14,2)=0;    
//
#REGIM(N,2,0)=_(12,9,66,15,  , 뢠, ⮣    );    
//
$(_EQ(REGIM-27))    
  $BEG_SCRIPT    
    var CurFile=CreateObject("CurPrnFile");    
    CurFile.SetFlagBrowse(0);    
  $END_SCRIPT    
  $    
$    
  $(_EQ(REGIM))    
    #FF1(N,3,0)=_(FFIRST,0);    
    $(_EQ(FF1))    
      #NOMP(N,3,0)=_(600_5); #FSS0700=_(NOMP,0);    
      #NOMP(N,3,0)=_(605_5); #FSS0740=_(NOMP,0);    
      #NOMP(N,3,0)=_(625_5); #FSS0730=_(NOMP,0);    
      #NOMP(N,3,0)=_(635_5); #FSS0720=_(NOMP,0);    
//    
      #=_(FSSNVSE,0,FSS0700);    
      #=_(FSSNKV1,0,FSS0720);    
      #=_(FSSNKV2,0,FSS0730);    
      #=_(FSSNKV3,0,FSS0740);    
    $_    
    #FSS0700=_(FSSNVSE,0);    
    #FSS0720=_(FSSNKV1,0);    
    #FSS0730=_(FSSNKV2,0);    
    #FSS0740=_(FSSNKV3,0);    
//    
    #FSS0800=_(FSSPVSE,0);    
    #FSS0820=_(FSSPKV1,0);    
    #FSS0830=_(FSSPKV2,0);    
    #FSS0840=_(FSSPKV3,0);    
  $    
    #NOMP(N,3,0)=_(600_5); #FSS0700=_(NOMP,0);    
    #NOMP(N,3,0)=_(605_5); #FSS0740=_(NOMP,0);    
    #NOMP(N,3,0)=_(625_5); #FSS0730=_(NOMP,0);    
    #NOMP(N,3,0)=_(635_5); #FSS0720=_(NOMP,0);    
  $_    
$_    
//
#PDF417(N,2,0)=0;
$BEG_SCRIPT    
   PDF417=IsPDF417_Exist(false,"");
$END_SCRIPT
$(_GT(PDF417))
   #EXCEL=_(10,9,70,15,ଠ :,१ Excel,।  䠩, 㬥 -);  
 $    
   #EXCEL=_(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    
//$    
//$_    
//    
$(_EQ(FSS0700))    
  #FSS0700=R_String();    
$_    
$(_EQ(FSS0740))    
  #FSS0740=R_String();    
$_    
$(_EQ(FSS0730))    
  #FSS0730=R_String();    
$_    
$(_EQ(FSS0720))    
  #FSS0720=R_String();    
$_    
$(_EQ(FSS0800))    
  #FSS0800=R_String();    
$_    
$(_EQ(FSS0820))    
  #FSS0820=R_String();    
$_    
$(_EQ(FSS0830))    
  #FSS0830=R_String();    
$_    
$(_EQ(FSS0840))    
  #FSS0840=R_String();    
$_    
//    
#DRASCH(C,10,0)=R_String(          );    
$BEG_SCRIPT    
  sprintf(DRASCH,"%-10.10s",datatek);    
$END_SCRIPT    
#=( ,室 ந  楫 . . 客,ᥣ  ਮ          (0700),FSS0700, 1 . . ⠫ (0720),FSS0720, 2 . . ⠫ (0730),FSS0730, 3 . . ⠫ (0730),FSS0740);    
$(_EQ(27-))    
$BEG_SCRIPT    
  var CurFile=CreateObject("CurPrnFile");    
  CurFile.SetFlagBrowse(0);    
$END_SCRIPT    
$    
$_    
#=( ,饭 ᯮ⥫ ࣠  ,ᥣ  ਮ          (0800),FSS0800, 1 . . ⠫ (0820),FSS0820, 2 . . ⠫ (0830),FSS0830, 3 . . ⠫ (0830),FSS0840);    
$(_EQ(27-))    
$BEG_SCRIPT    
  var CurFile=CreateObject("CurPrnFile");    
  CurFile.SetFlagBrowse(0);    
$END_SCRIPT    
$    
$_    
//
$(_EQ(27-))    
$BEG_SCRIPT    
  var CurFile=CreateObject("CurPrnFile");    
  CurFile.SetFlagBrowse(0);    
$END_SCRIPT    
$    
$_    
//
$(_EQ(27-))    
$BEG_SCRIPT    
  var CurFile=CreateObject("CurPrnFile");    
  CurFile.SetFlagBrowse(0);    
$END_SCRIPT    
$    
$_    
#=( , ,  ⠢  , DRASCH);    
$(_EQ(27-))    
$BEG_SCRIPT    
  var CurFile=CreateObject("CurPrnFile");    
  CurFile.SetFlagBrowse(0);    
$END_SCRIPT    
$    
$_    
#=_(FSSNVSE,0,FSS0700);    
#=_(FSSNKV1,0,FSS0720);    
#=_(FSSNKV2,0,FSS0730);    
#=_(FSSNKV3,0,FSS0740);    
//    
#=_(FSSPVSE,0,FSS0800);    
#=_(FSSPKV1,0,FSS0820);    
#=_(FSSPKV2,0,FSS0830);    
#=_(FSSPKV3,0,FSS0840);    
//    
#=_(FFIRST,0,1);    
//    
#NOMP(N,3,0)=_(V1003); #FVMENEN(N,14,2)=_(NOMP,0);    
#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,"");    

  int np = 22;
  var param[np];
  
  param[0]  = atof(FSS0700);                 param[11] = EXCEL;
  param[1]  = atof(FSS0720);                 param[12] = IMNS;
  param[2]  = atof(FSS0730);                 param[13] = NomFile;
  param[3]  = atof(FSS0740);                 param[14] = static_cast_to_string(VarFOtch);
  param[4]  = atof(FSS0800);                 param[15] = NSUM;
  param[5]  = atof(FSS0820);                 param[16] = FINV;
  param[6]  = atof(FSS0830);                 param[17] = atof(FVMENEN);
  param[7]  = atof(FSS0840);                 param[18] = fContSum;
  param[8]  = UDOPS;                         param[19] = WARNING;
  param[9]  = SUMVMEN;                       param[20] = VARFO;
  param[10] = static_cast_to_string(DRASCH); param[21] = LINV;

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

  LoadScriptModule("forms\\dekesn05");    
   DeklESN_par(param,np);

// DeklESN_DL(FSS0700, FSS0720, FSS0730, FSS0740, FSS0800,    
//            FSS0820, FSS0830, FSS0840,    
//            UDOPS, SUMVMEN, DRASCH,
//            EXCEL,
//            IMNS, NomFile, VarFOtch, NSUM, FINV, FVMENEN,
//            fContSum, WARNING, VARFO, LINV);    
  UnloadScriptModule("forms\\dekesn05");    

$END_SCRIPT    
$