// ଠ 줮-⭠ ⭠  2004 .
${(1. ன ⠡)
// ਧ  㫥 ⮫殢
&PrintZeroFld(N,2,0)=0; // 1-, 0- 
&tl(N,2,0)=1; // 1 - ᯮ짢  ; 0 -  ᯮ짮
&np(N,2,0)=0; // 1 -   ࠧ     ; 0 -  
$}(1. ன ⠡)
//
#NumDep(C,8,0)=_(1);
#PODR(N,8,0)=_(1);
#podr(C,30,0)=_(PODR);
#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));

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

  int npar = 10;
  var param[npar];

  param[0] = npar;
  param[1] = podr;
  param[2] = noved;
  param[3] = dataf;
  param[4] = dn;
  param[5] = dk;
  param[6] = PrintZeroFld;
  param[7] = atoi(tl);
  param[8] = atoi(np);
  param[9] = NumDep;

  LoadScriptModule("forms\\obor_ved");
    SOborVed(param);
    //PrintSOborVed(podr,noved,dataf,dn,dk,PrintZeroFld);
  UnloadScriptModule("forms\\obor_ved");

$END_SCRIPT
$