// ଠ -49 ⭮-⥦ 
${(1. ன )
&cs(N,2,0)=25; // ⢮ ப  
&zf(N,2,0)=1;  // ਧ  㫥 ⮫殢: 1-, 0- 
&tl(N,2,0)=1; // 1 - ᯮ짢  ; 0 -  ᯮ짮
&np(N,2,0)=0; // 1 -   ࠧ     ; 0 -  
$}(1. ன )
//
#(N,8,0)=_(1);         
#podr(C,30,0)=_();         
#noved(C,15,0)=_(PrintNumb);         
#dataf(C,10,0)=_(3);          
//#1(,7,0)=(7);         
//#2(,2,0)=(3);         
//#dn(C,10,0)=_(01.,1);         
//#dk(C,10,0)=_(2,.,1);         
#Month(,2,0)=(8); 
#Year(,4,0)=(9); 
#dn(C,10,0)=_(Month,.,Year); 
#Date(,2,0)=(6,D1); 
#dk(C,10,0)=R_String(          );         
// 
$BEG_SCRIPT 

  sprintf(dn,"01.%02d.%4d",atoi(Month),atoi(Year));
  sprintf(dk,"%02d.%02d.%4d",atoi(Date),atoi(Month),atoi(Year));

  var CurFile=CreateObject("CurPrnFile");    
  CurFile.SetFlagBrowse(0);    

  int npar = 9;
  var param[npar];

  param[0] = atoi(cs);
  param[1] = atoi(zf);
  param[2] = OemToAnsi(podr);
  param[3] = OemToAnsi(noved);
  param[4] = OemToAnsi(dataf);
  param[5] = OemToAnsi(dn);
  param[6] = OemToAnsi(dk);
  param[7] = atoi(tl);
  param[8] = atoi(np);

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

  LoadScriptModule("forms\\t49_01");
    t49(param,npar);
  UnloadScriptModule("forms\\t49_01");

$END_SCRIPT    
$