// Индивидуальная карточка по ЕСН 2004 г.
${ЗОНА(1. Настройки таблицы)
&pbar(N,2,0)=1; // 0-отключить "progress-bar"; 1-не отключать
$}ЗОНА(1. Настройки таблицы)
//
#regim(N,2,0)=ДВЕ_КНОПКИ(12,9,66,15,Печатать сводную карточку?,Нет,Да);    
//
$ЕСЛИ(_EQ(regim-27))    
  $BEG_SCRIPT    
    var CurFile=CreateObject("CurPrnFile");    
    CurFile.SetFlagBrowse(0);    
  $END_SCRIPT    
  $ВЫХОД    
$КОНЕЦ_ЕСЛИ    
//
$BEG_SCRIPT

  int np = 2;
  var param[np];

  param[0] = atoi(pbar);
  param[1] = atoi(regim);

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

  LoadScriptModule("forms\\krtesn14");
    krtesn_par(param,np);

//  krtesn(pbar,regim);

  UnloadScriptModule("forms\\krtesn14");

$END_SCRIPT
$ВЫХОД