${(1. ன ⠡)
#DOP(C,10,0)=R_String(1111111111);  // 1- , 0-  (    )
&PRINT(N,2,0)=1;   // 1-ᥣ  ᦠ ⮬;              0-ᯮ짮 ன 
&AVCOUNT(N,2,0)=1; // 1-ᯮᮡ  । ᫥;            0-㣮 ᯮᮡ  । ᫥
&ORG(N,2,0)=0;     // ࣠: 0-ᨩ᪠ ࣠,
                   //              1-ᮡ ࠧ ࣠樨,
                   //              2-࠭ ࣠,
                   //              3-䨧᪮ ;
&ADR(N,2,0)=0;     // 0-䠪.  ।   ॣ樨 ᮢ,
                   // 1-;
&TYPORG(N,2,0)=0;  // ⨯ ࣠樨: 1-ᥫ. ࣠, 2-࣠ , 3-ᥫ. ࣠ ,0-࣠
&NL(N,2,0)=0;      // 1- 㬥 ⮢; 0-⪫ 㬥 ⮢
&FLIST(N,2,0)=1;   // 1-   ॢ ; 0- 
&EXCEL(N,2,0)=0;   // 0-筠 ; 1-  Excel
&Panel(N,2,0)=1;   // 뢮  ଠ: 1 - ,0 - 
&DOGP(N,2,0)=0;    // 0-  㬬  ࠬ 鸞   5
                   //   ப 1100
                   // 1-;
&NSUM(N,2,0)=0;    // 0-뢠 ⥫ 㬬; 1- 뢠
&TAXSTAV(N,2,0)=0; //   ⠢ ⠥   䥤ࠫ 
                   // 0 - ।塞  ஢ 
                   // 1 -   ⠢ (28%  ..)
                   // 2 -   ⠢ (14%  ..),  ࣠権   
                   // 3 -   ⠢ (14%  ..),  ࣠権    室
&FZAPRINV(N,2,0)=0; // 䫠 뢮     ࣠樨 
                   // ( ⠪ ࣠    䥤ࠫ쭮  
                   //  ᯮ짮   ⬮ 243) 
                   // 0 - 뢮 ; 1 -  뢮 
&FZAPRVMN(N,2,0)=0; // 䫠 뢮     ࣠樨  室
                   // ( ⠪ ࣠    䥤ࠫ쭮  
                   //  ᯮ짮   ⬮ 243) 
                   // 0 - 뢮 ; 1 -  뢮 
&IMNS(N,2,0)=1;    // 0-, 1-
&VMENDEK(N,2,0)=1; // 1 - ப 0400  0500  ࣠権   室   (  樨  )
                   // 0 - ப 0400  0500  ࣠権   室 
&fContSum(N,2,0)=1;// 1 -  ஫ 㬬  ।  䠩; 0 - ஫쭠 㬬  㦭
&WARNING(N,2,0)=1; // 0 - ஢ ।०; 1 - 
&BegDate(N,7,4)=0; //  砥 ᫨ ।⨥ 砫 ࠡ   砫   । ᫥ 㦭
                   //     ࠡ,   0 ᫥ 㪠  (.)
$}(1. ன ⠡)
&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;
//
&FB010G3(N,14,2)=0; &FB020G3(N,14,2)=0;
&FB010G4(N,14,2)=0; &FB020G4(N,14,2)=0;
&FB010G5(N,14,2)=0; &FB020G5(N,14,2)=0;
&FB010G6(N,14,2)=0; &FB020G6(N,14,2)=0;
&FB010G7(N,14,2)=0; &FB020G7(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))
    #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);
  $
    #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);
//
    #FB010G3=_(FB1G3,0);
    #FB010G4=_(FB1G4,0);
    #FB010G5=_(FB1G5,0);
    #FB010G6=_(FB1G6,0);
    #FB010G7=_(FB1G7,0);
//
    #FB020G3=_(FB2G3,0);
    #FB020G4=_(FB2G4,0);
    #FB020G5=_(FB2G5,0);
    #FB020G6=_(FB2G6,0);
    #FB020G7=_(FB2G7,0);
  $_
$_
$(_NE(Panel))
   #EXCEL=_(15,9,65,15,ଠ :,,१ Excel,।  䠩);
   $(_EQ(EXCEL-27))
     $BEG_SCRIPT
       var CurFile=CreateObject("CurPrnFile");
       CurFile.SetFlagBrowse(0);
     $END_SCRIPT
     $
   $_
$_
#=_(600_5_1,0,0);
#=_(605_5_1,0,0);
#=_(610_5_1,0,0);
#=_(611_5_1,0,0);
#=_(620_5_1,0,0);
#=_(621_5_1,0,0);
#=_(700_3_1,0,0);
#=_(700_7_1,0,0);
#=_(710_3_1,0,0);
#=_(710_7_1,0,0);
#=_(700_5_1,0,0);
#=_(700_9_1,0,0);
#=_(710_5_1,0,0);
#=_(710_9_1,0,0);
//
$(_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();
$_
//
$(_EQ(FB010G3))
  #FB010G3=R_String();
$_
$(_EQ(FB010G4))
  #FB010G4=R_String();
$_
$(_EQ(FB010G5))
  #FB010G5=R_String();
$_
$(_EQ(FB010G6))
  #FB010G6=R_String();
$_
$(_EQ(FB010G7))
  #FB010G7=R_String();
$_
//
$(_EQ(FB020G3))
  #FB020G3=R_String();
$_
$(_EQ(FB020G4))
  #FB020G4=R_String();
$_
$(_EQ(FB020G5))
  #FB020G5=R_String();
$_
$(_EQ(FB020G6))
  #FB020G6=R_String();
$_
$(_EQ(FB020G7))
  #FB020G7=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
$
$_
#=( ,祭 . .  䥤. ,  ਮ             ,FB010G3, ᫥ ⠫           ,FB010G4, 1 . . ⠫       ,FB010G5, 2 . . ⠫       ,FB010G6, 3 . . ⠫       ,FB010G7);
$(_EQ(27-))
$BEG_SCRIPT
  var CurFile=CreateObject("CurPrnFile");
  CurFile.SetFlagBrowse(0);
$END_SCRIPT
$
$_
#=( ,祭 客 ᮢ  ,  ਮ             ,FB020G3, ᫥ ⠫           ,FB020G4, 1 . . ⠫       ,FB020G5, 2 . . ⠫       ,FB020G6, 3 . . ⠫       ,FB020G7);
$(_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);
//
#=_(FB1G3,0,FB010G3);
#=_(FB1G4,0,FB010G4);
#=_(FB1G5,0,FB010G5);
#=_(FB1G6,0,FB010G6);
#=_(FB1G7,0,FB010G7);
//
#=_(FB2G3,0,FB020G3);
#=_(FB2G4,0,FB020G4);
#=_(FB2G5,0,FB020G5);
#=_(FB2G6,0,FB020G6);
#=_(FB2G7,0,FB020G7);
//
#=_(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);
//
$(_EQ(TAXSTAV-1))
  &FINV=0;
  &FVMENEN=0;
$_    
//
$(_EQ(TAXSTAV-2))
  &FINV=1;
$_    
//
$(_EQ(TAXSTAV-3))
  &FINV=1;
  &FVMENEN=1;
$_    
//
$(_EQ(FZAPRINV))
  #REGIM=_(12,9,64,15,  ࣠樨  ? ,  ,  );
  $(_EQ(REGIM-27))    
    $BEG_SCRIPT    
      var CurFile=CreateObject("CurPrnFile");    
      CurFile.SetFlagBrowse(0);    
    $END_SCRIPT    
    $    
  $    
    &FINV=REGIM;    
  $_    
$_    
//
$(_EQ(FZAPRVMN))
  #REGIM=_(12,9,64,15,  ࣠樨   室? ,  ,  );
  $(_EQ(REGIM-27))    
    $BEG_SCRIPT    
      var CurFile=CreateObject("CurPrnFile");    
      CurFile.SetFlagBrowse(0);    
    $END_SCRIPT    
    $    
  $    
    &FVMENEN=REGIM;
  $_    
$_    
//
$BEG_SCRIPT

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

  double aSumm[19];             int aParams[17];             
                                                             
  aSumm[0]  = atof(FB010G3);    aParams[0]  = atoi(UDOPS);   
  aSumm[1]  = atof(FB010G4);    aParams[1]  = atoi(SUMVMEN); 
  aSumm[2]  = atof(FB010G5);    aParams[2]  = atoi(NL);      
  aSumm[3]  = atof(FB010G6);    aParams[3]  = atoi(PRINT);   
  aSumm[4]  = atof(FB010G7);    aParams[4]  = atoi(AVCOUNT); 
  aSumm[5]  = atof(FB020G3);    aParams[5]  = atoi(TYPORG);  
  aSumm[6]  = atof(FB020G4);    aParams[6]  = atoi(FLIST);   
  aSumm[7]  = atof(FB020G5);    aParams[7]  = atoi(ORG);     
  aSumm[8]  = atof(FB020G6);    aParams[8]  = atoi(ADR);     
  aSumm[9]  = atof(FB020G7);    aParams[9]  = atoi(EXCEL);   
  aSumm[10] = atof(FSS0700);    aParams[10] = atoi(DOGP);    
  aSumm[11] = atof(FSS0720);    aParams[11] = atoi(IMNS);    
  aSumm[12] = atof(FSS0730);    aParams[12] = atoi(NSUM);    
  aSumm[13] = atof(FSS0740);    aParams[13] = atoi(FINV);    
  aSumm[14] = atof(FSS0800);    aParams[14] = atoi(VMENDEK); 
  aSumm[15] = atof(FSS0820);    aParams[15] = atoi(fContSum);
  aSumm[16] = atof(FSS0830);    aParams[16] = atoi(WARNING);
  aSumm[17] = atof(FSS0840);
  aSumm[18] = atof(BegDate);

  int np = 39;
  var param[np];
                                        
  param[0]  = atof(FB010G3); param[19] = atoi(UDOPS);   
  param[1]  = atof(FB010G4); param[20] = atoi(SUMVMEN); 
  param[2]  = atof(FB010G5); param[21] = atoi(NL);      
  param[3]  = atof(FB010G6); param[22] = atoi(PRINT);   
  param[4]  = atof(FB010G7); param[23] = atoi(AVCOUNT); 
  param[5]  = atof(FB020G3); param[24] = atoi(TYPORG);  
  param[6]  = atof(FB020G4); param[25] = atoi(FLIST);   
  param[7]  = atof(FB020G5); param[26] = atoi(ORG);     
  param[8]  = atof(FB020G6); param[27] = atoi(ADR);     
  param[9]  = atof(FB020G7); param[28] = atoi(EXCEL);   
  param[10] = atof(FSS0700); param[29] = atoi(DOGP);    
  param[11] = atof(FSS0720); param[30] = atoi(IMNS);    
  param[12] = atof(FSS0730); param[31] = atoi(NSUM);    
  param[13] = atof(FSS0740); param[32] = atoi(FINV);    
  param[14] = atof(FSS0800); param[33] = atoi(VMENDEK); 
  param[15] = atof(FSS0820); param[34] = atoi(fContSum);
  param[16] = atof(FSS0830); param[35] = atoi(WARNING); 
  param[17] = atof(FSS0840);
  param[18] = atof(BegDate);

  param[36] = static_cast_to_string(DOP);
  param[37] = static_cast_to_string(DRASCH);
  param[38] = atof(FVMENEN);

  LoadScriptModule("forms\\rasesn03");

    Avans_par(param,np);
//  AvansPL_DL(aSumm, aParams, DOP, DRASCH, FVMENEN);

  UnloadScriptModule("forms\\rasesn03");

$END_SCRIPT
$