//   客 ᠬ   2002 .          
${(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-ᨩ᪠ ࣠,
                   //              1-ᮡ ࠧ ࣠樨,
                   //              2-࠭ ࣠,
                   //              3-䨧᪮ ;
&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 -  
$}(1. ன ⠡)            
&S0105(N,14,2)=0; #S0104(N,14,2)=0;            
&S0125(N,14,2)=0; #S0124(N,14,2)=0;            
&S0135(N,14,2)=0; #S0134(N,14,2)=0;            
&S0145(N,14,2)=0; #S0144(N,14,2)=0;            
//#REGIM(N,2,0)=_(12,9,66,15,  ᮢ ⥦  , ⮣    , 뢠);            
#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);            
//            
      #=_(S104,0,S0104);            
      #=_(S124,0,S0124);            
      #=_(S134,0,S0134);            
      #=_(S144,0,S0144);            
//            
      #=_(S105,0,S0105);            
      #=_(S125,0,S0125);            
      #=_(S135,0,S0135);            
      #=_(S145,0,S0145);            
    $_            
    #S0104=_(S104,0);            
    #S0124=_(S124,0);            
    #S0134=_(S134,0);            
    #S0144=_(S144,0);            
//            
    #S0105=_(S105,0);            
    #S0125=_(S125,0);            
    #S0135=_(S135,0);            
    #S0145=_(S145,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);            
  $_            
$_            
$(_NE(Panel))            
   #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(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);            
//            
#=_(FFIRST,0,1);            
//            
#NOMP(N,3,0)=_(FVMENINC); #FVMENEN(N,14,0)=_(NOMP,0);                
//            
$BEG_SCRIPT            

  int np = 23;
  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] = atoi(ORG);
  param[15] = atoi(ADR);
  param[16] = atoi(EXCEL);
  param[17] = atoi(IMNS);
  param[18] = atoi(FVMENEN);
  param[19] = atoi(AVCOUNT);
  param[20] = atoi(fContSum);
  param[21] = atoi(WARNING);
  param[22] = atoi(VARFO);

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

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

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

  UnloadScriptModule("forms\\dekpf03");

$END_SCRIPT            
$