//   ࠤᯨ筮 ᫥ ࠡ⭨  ।騩  
#PDF417(N,2,0)=0;
$BEG_SCRIPT    
   PDF417=IsPDF417_Exist(false,"");
$END_SCRIPT
&NewRegim(N,2,0)=0;
$BEG_SCRIPT
{
  var Tabl = CreateObject("CurPrnTbl");;
  // ࠬ     ࠡ   ० ⭮
  var ReportParams;
  int VersionParams = NewRegim = IsNewPFReportInterfaceT(Tabl,ReportParams);
}
$END_SCRIPT
&Format(N,2,0)=0;
$(_NE(NewRegim))
      &Format=0;
   $
   $(_GT(PDF417))
      #Format=_(10,9,70,15,롥 ०,   , ।  䠩 , 㬥 - );  
    $    
      #Format=_(15,9,70,15,롥 ०,   , ।  䠩 );
   $_    
$_    
$(_EQ(Format-27))
  $BEG_SCRIPT
    var CurFile=CreateObject("CurPrnFile");
    CurFile.SetFlagBrowse(0);
    CurFile.SetFlag_Print(0);
  $END_SCRIPT
  $
$_
$BEG_SCRIPT

  if ( atoi(NewRegim) && atoi(Format) == 0  && atoi(PDF417) )
  { //   䥩 ᬮਬ  ன   PDF   Excel
     if ( GetCommonCnfInt("Format","6ndfl") == 1 ) Format = 2;
  }

  int np = 1;
  var param[np];
  if ( Format==2 && !IsPDF417_Exist(true,"1110018_4.01000_06.tif") )
     Format=0;

  param[0] = atoi(Format);

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

  LoadScriptModule("forms\\ssch");
    mfunc(param,np);
  UnloadScriptModule("forms\\ssch");

$END_SCRIPT
$