//   客 ᠬ   2004 .
${(1. ன ⠡)            
#DOP(C,10,0)=R_String(11111111);  // 1- , 0-  (    )
&PRINT(N,2,0)=1;   // 1-ᥣ  ᦠ ⮬; 0-ᯮ짮 ன 
&TYPORG(N,2,0)=0;  // ⨯ ࣠樨: 1-ᥫ. ࣠, 0-࣠
&NL(N,2,0)=0;      // 1- 㬥 ⮢; 0-⪫ 㬥 ⮢
&FLIST(N,2,0)=1;   // 1-   ॢ ; 0- 
&ORG(N,2,0)=0;     // ࣠: 0-ᨩ᪠ ࣠,                                        0
                   //              1-ᮡ ࠧ ࣠樨,                        1
                   //              2-䨧.   ਧ 㠫 ।ਭ⥫    3
                   //              3-㠫 ।ਭ⥫                                 3
                   //              4-⤥ ࠭ ࣠樨,                             2
                   //              5-.. ⢫ ⥫쭮 १  ࣠ 2
                   //              6-.. ⢫ ⥫쭮 १ 䨧᪮   2
&ADR(N,2,0)=0;     // 0-䠪.  ।   ॣ樨 ᮢ,
                   // 1-;
&AVCOUNT(N,2,0)=1; // 1-ᯮᮡ  । ᫥; 0-㣮 ᯮᮡ  । ᫥
&EXCEL(N,2,0)=0;   // 0-筠 ; 1-  Excel
&Panel(N,2,0)=1;   // 뢮  ଠ: 1 - ,0 - 
&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. ன ⠡)            
&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;
  $_            
$_            
$(_NE(Panel))            
//   #EXCEL=_(15,9,65,15,ଠ :,,१ Excel,।  䠩);            
   #EXCEL=_(15,9,65,15,ଠ :,१ Excel,।  䠩);            
   $(_EQ(EXCEL-27))            
     $BEG_SCRIPT            
       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 = 27;
  var param[np];

  param[0]  = static_cast_to_string(DOP);
  param[1]  = atoi(PRINT);
  param[2]  = atoi(TYPORG);
  param[3]  = atoi(NL);
  param[4]  = atoi(FLIST);
  param[5]  = static_cast_to_string(DRASCH);
  param[6]  = atof(S0104);
  param[7]  = atof(S0124);
  param[8]  = atof(S0134);
  param[9]  = atof(S0144);
  param[10] = atof(S0105);
  param[11] = atof(S0125);
  param[12] = atof(S0135);
  param[13] = atof(S0145);
  param[14] = atof(S0108);
  param[15] = atof(S0128);
  param[16] = atof(S0138);
  param[17] = atof(S0148);
  param[18] = atoi(ORG);
  param[19] = atoi(ADR);
  param[20] = atoi(EXCEL);
  param[21] = atoi(IMNS);
  param[22] = atoi(FVMENEN);
  param[23] = atoi(AVCOUNT);
  param[24] = atoi(fContSum);
  param[25] = atoi(WARNING);
  param[26] = atoi(VARFO);

  UnloadScriptModule("dmodules");
  LoadScriptModule("dmodules");
  UnloadDynamicModules();
  UnloadScriptModule("dmodules");
  LoadScriptModule("forms\\dekpf04");
    AvansPF_par(param,np);

//  AvansPF_DL(DOP, PRINT, TYPORG, NL, FLIST, DRASCH,            
//             S0104, S0124, S0134, S0144,            
//             S0105, S0125, S0135, S0145, 
//             S0108, S0128, S0138, S0148, 
//             ORG, ADR, EXCEL,            
//             IMNS, FVMENEN, AVCOUNT, fContSum, WARNING, VARFO);

  UnloadScriptModule("forms\\dekpf04");

$END_SCRIPT            
$