${(1. ன )   
&INCOM(N,2,0)=0; // 0-   㬬 室; 1- 
&VIDFM(N,2,0)=2; //  : 0- 2015 ; 1-; 2- 2015 
&KOP(N,2,0)=0;   // 0-㬬  ; 1- 
$}(1. ன )   
#S002(N,14,2)=R_String();   
#S003(N,14,2)=R_String();   
//#S006(N,14,2)=R_String();   
//#S007(N,14,2)=R_String();   
#S008(N,14,2)=R_String();   
#S009(N,14,2)=R_String();   
//   
$(_EQ(2-VIDFM))   
  #NOMP(N,3,0)=_(UD_NAL);
$   
  #NOMP(N,3,0)=_(TAXUDALL);    
$_          
//
#S006(N,14,2)=_(NOMP,0);   
&S007(N,14,2)=S006;   
//
$(_EQ(S006))          
  #S006=R_String();          
$_          
$(_EQ(S007))          
  #S007=R_String();          
$_          
//   
$(_EQ(VIDFM))   
#=( , ,줮    . ਮ ,S002,᫥  ᥣ         ,S006, ..   ࣠樨 ,S007,줮    . ਮ ,S008,   ,S009);   
$   
#=( , ,줮    . ਮ ,S002,  . .. ,S003,᫥  ᥣ         ,S006, ⮬ ᫥    ,S007,줮    . ਮ ,S008,   ਮ ,S009);   
$_   
//#=( , ,줮    . ਮ ,S002,  . .. ,S003,줮    . ਮ ,S008,   ਮ ,S009);   
$(_EQ(27-))   
$   
$_   
$BEG_SCRIPT   

  int np = 9;
  var param[9];

  param[0] = atof(S002);
  param[1] = atof(S003);
  param[2] = atof(S006);
  param[3] = atof(S007);
  param[4] = atof(S008);
  param[5] = atof(S009);
  param[6] = INCOM;
  param[7] = VIDFM;
  param[8] = KOP;

  UnloadScriptModule("spravsum");   
  LoadScriptModule("spravsum");   
    spravsum_par(param,np);   
//  spravsum_DL(S002,S003,S006,S007,S008,S009,INCOM,VIDFM,KOP);
  UnloadScriptModule("spravsum");   

$END_SCRIPT   
$