//   客 ᠬ   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 -  
&VMEN(N,2,0)=0;    // 1 -   砥    室 ; 0 - ⠭ ਠ
$}(1. ன ⠡)            
&EXCEL(N,2,0)=0;
&S0108(N,14,2)=0; &S0107(N,14,2)=0; &S0106(N,14,2)=0; &S0105(N,14,2)=0; #S0104(N,14,2)=0;            
&S0128(N,14,2)=0; &S0127(N,14,2)=0; &S0126(N,14,2)=0; &S0125(N,14,2)=0; #S0124(N,14,2)=0;            
&S0138(N,14,2)=0; &S0137(N,14,2)=0; &S0136(N,14,2)=0; &S0135(N,14,2)=0; #S0134(N,14,2)=0;            
&S0148(N,14,2)=0; &S0147(N,14,2)=0; &S0146(N,14,2)=0; &S0145(N,14,2)=0; #S0144(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)=_(0300); #S0104=_(NOMP,0);            
      #NOMP(N,3,0)=_(0320); #S0124=_(NOMP,0);            
      #NOMP(N,3,0)=_(0330); #S0134=_(NOMP,0);            
      #NOMP(N,3,0)=_(0340); #S0144=_(NOMP,0);            
//            
      #NOMP(N,3,0)=_(0400); #S0105=_(NOMP,0);            
      #NOMP(N,3,0)=_(0420); #S0125=_(NOMP,0);            
      #NOMP(N,3,0)=_(0430); #S0135=_(NOMP,0);            
      #NOMP(N,3,0)=_(0440); #S0145=_(NOMP,0);            
//            
      #NOMP(N,3,0)=_(N0300); #S0106=_(NOMP,0);            
      #NOMP(N,3,0)=_(N0320); #S0126=_(NOMP,0);            
      #NOMP(N,3,0)=_(N0330); #S0136=_(NOMP,0);            
      #NOMP(N,3,0)=_(N0340); #S0146=_(NOMP,0);            
//
      #NOMP(N,3,0)=_(N0400); #S0107=_(NOMP,0);            
      #NOMP(N,3,0)=_(N0420); #S0127=_(NOMP,0);            
      #NOMP(N,3,0)=_(N0430); #S0137=_(NOMP,0);            
      #NOMP(N,3,0)=_(N0440); #S0147=_(NOMP,0);            
//            
      #=_(S104,0,S0104);            
      #=_(S124,0,S0124);            
      #=_(S134,0,S0134);            
      #=_(S144,0,S0144);            
//            
      #=_(S105,0,S0105);            
      #=_(S125,0,S0125);            
      #=_(S135,0,S0135);            
      #=_(S145,0,S0145);            
//            
      &S0108=S0106+S0107; #=_(S108,0,S0108);
      &S0128=S0126+S0127; #=_(S128,0,S0128);
      &S0138=S0136+S0137; #=_(S138,0,S0138);
      &S0148=S0146+S0147; #=_(S148,0,S0148);
    $_            
    #S0104=_(S104,0);            
    #S0124=_(S124,0);            
    #S0134=_(S134,0);            
    #S0144=_(S144,0);            
//            
    #S0105=_(S105,0);            
    #S0125=_(S125,0);            
    #S0135=_(S135,0);            
    #S0145=_(S145,0);            
//            
    #S0108=_(S108,0);            
    #S0128=_(S128,0);            
    #S0138=_(S138,0);            
    #S0148=_(S148,0);            
  $            
    #NOMP(N,3,0)=_(0300); #S0104=_(NOMP,0);            
    #NOMP(N,3,0)=_(0320); #S0124=_(NOMP,0);            
    #NOMP(N,3,0)=_(0330); #S0134=_(NOMP,0);            
    #NOMP(N,3,0)=_(0340); #S0144=_(NOMP,0);            
//            
    #NOMP(N,3,0)=_(0400); #S0105=_(NOMP,0);            
    #NOMP(N,3,0)=_(0420); #S0125=_(NOMP,0);            
    #NOMP(N,3,0)=_(0430); #S0135=_(NOMP,0);            
    #NOMP(N,3,0)=_(0440); #S0145=_(NOMP,0);            
//            
    #NOMP(N,3,0)=_(N0300); #S0106=_(NOMP,0);            
    #NOMP(N,3,0)=_(N0320); #S0126=_(NOMP,0);            
    #NOMP(N,3,0)=_(N0330); #S0136=_(NOMP,0);            
    #NOMP(N,3,0)=_(N0340); #S0146=_(NOMP,0);            
//            
    #NOMP(N,3,0)=_(N0400); #S0107=_(NOMP,0);            
    #NOMP(N,3,0)=_(N0420); #S0127=_(NOMP,0);            
    #NOMP(N,3,0)=_(N0430); #S0137=_(NOMP,0);            
    #NOMP(N,3,0)=_(N0440); #S0147=_(NOMP,0);            
//
    &S0108=S0106+S0107;
    &S0128=S0126+S0127;
    &S0138=S0136+S0137;
    &S0148=S0146+S0147;
  $_            
$_            
//
#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(S0104))            
  #S0104=R_String();            
$_            
$(_EQ(S0124))            
  #S0124=R_String();            
$_            
$(_EQ(S0134))            
  #S0134=R_String();            
$_            
$(_EQ(S0144))            
  #S0144=R_String();            
$_            
//            
#=( ,祭 ᮢ ⥦ (客 ),ᥣ  ਮ          ,S0104, 1 . . ⠫ ,S0124, 2 . . ⠫ ,S0134, 3 . . ⠫ ,S0144);            
$(_EQ(27-))            
$BEG_SCRIPT            
  var CurFile=CreateObject("CurPrnFile");            
  CurFile.SetFlagBrowse(0);            
$END_SCRIPT            
$            
$_            
//            
$(_EQ(S0105))            
  #S0105=R_String();            
$_            
$(_EQ(S0125))            
  #S0125=R_String();            
$_            
$(_EQ(S0135))            
  #S0135=R_String();            
$_            
$(_EQ(S0145))            
  #S0145=R_String();            
$_            
//            
#=( ,祭 ᮢ ⥦ (⥫쭠 ),ᥣ  ਮ          ,S0105, 1 . . ⠫ ,S0125, 2 . . ⠫ ,S0135, 3 . . ⠫ ,S0145);            
//            
$(_EQ(S0108))            
  #S0108=R_String();            
$_            
$(_EQ(S0128))            
  #S0128=R_String();            
$_            
$(_EQ(S0138))            
  #S0138=R_String();            
$_            
$(_EQ(S0148))            
  #S0148=R_String();            
$_            
//            
//#NOMP(N,3,0)=_(FVMENINC); #FVMENEN(N,14,0)=_(NOMP,0);                
#NOMP(N,3,0)=_(N_VMEN); #FVMENEN(N,14,0)=_(NOMP,0);                
$(_NE(VMEN))
  &FVMENEN=1;
$_
$(_NE(FVMENEN))            
  #=( ,祭 ᮢ ⥦   室,ᥣ  ਮ          ,S0108, 1 . . ⠫ ,S0128, 2 . . ⠫ ,S0138, 3 . . ⠫ ,S0148);
  $(_EQ(27-))            
    $BEG_SCRIPT            
      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            
$            
$_            
#=_(S104,0,S0104);            
#=_(S124,0,S0124);            
#=_(S134,0,S0134);            
#=_(S144,0,S0144);            
//            
#=_(S105,0,S0105);            
#=_(S125,0,S0125);            
#=_(S135,0,S0135);            
#=_(S145,0,S0145);            
//            
#=_(S108,0,S0108);            
#=_(S128,0,S0128);            
#=_(S138,0,S0138);            
#=_(S148,0,S0148);            
//            
#=_(FFIRST,0,1);            
//            
$BEG_SCRIPT            

  int np = 19;
  var param[np];

  param[0]  = static_cast_to_string(DRASCH);
  param[1]  = atof(S0104);
  param[2]  = atof(S0124);
  param[3]  = atof(S0134);
  param[4]  = atof(S0144);
  param[5]  = atof(S0105);
  param[6]  = atof(S0125);
  param[7]  = atof(S0135);
  param[8]  = atof(S0145);
  param[9]  = atof(S0108);
  param[10] = atof(S0128);
  param[11] = atof(S0138);
  param[12] = atof(S0148);
  param[13] = atoi(EXCEL);
  param[14] = atoi(IMNS);
  param[15] = atoi(FVMENEN);
  param[16] = atoi(fContSum);
  param[17] = atoi(WARNING);
  param[18] = atoi(VARFO);
            
  UnloadScriptModule("dmodules");
  LoadScriptModule("dmodules");
  UnloadDynamicModules();
  UnloadScriptModule("dmodules");

  LoadScriptModule("forms\\dekpf05");
    AvansPF_par(param,np);

//  AvansPF_DL(DRASCH,            
//             S0104, S0124, S0134, S0144,            
//             S0105, S0125, S0135, S0145, 
//             S0108, S0128, S0138, S0148, 
//             EXCEL,            
//             IMNS, FVMENEN, fContSum, WARNING, VARFO);

  UnloadScriptModule("forms\\dekpf05");

$END_SCRIPT            
$