// -
&TCOD(N,2,0)=1; // 0-஢ ANSI (1251); 1-஢ UTF-8 (65001)
#FLV(N,2,0)=(Import,szvm,0);  // 1 - ਥ   XML-䠩 祭; 0 - ⪫祭
&flImport(N,2,0)=FLV;
&NewRegim(N,2,0)=0;
&Format(N,2,0)=0;
&retCode(N,2,0)=0;
&regim(N,2,0)=0;  
&fFramework(N,2,0)=0;
$BEG_SCRIPT

   if ( IsDotNetExists() == 1 ) fFramework = 1;
                           else fFramework = 0;

   if ( atoi(fFramework) == 1 )
   {
      try
      {
         int retRegim = 0;
         var Tabl = CreateObject("CurPrnTbl");  // ꥪ   ࠡ  ⥪饩 ⠡楩        
         var ReportParams; // ࠬ     ࠡ   ० ⭮
         NewRegim = IsNewPFReportInterfaceT(Tabl,ReportParams);
     
         int cntExcluded = 0;
         if (Tabl.Find_Name_Fld("FlagPrint"))
            cntExcluded = atoi(Tabl.Get_Bottom_Text(Tabl.Find_Name_Fld("FlagPrint")));

         if ( NewRegim && !cntExcluded )
         {
            retCode = 1;
            Format = 0;               
         }
         else
         {
            retCode = NetDialogs().WpFormSzvm(atoi(NewRegim),retRegim,cntExcluded,atoi(flImport));      
            Format = retRegim;               
         }
      }
      catch(...)
      {
         retCode = 27;
      }
   }

$END_SCRIPT
//
$(_EQ(retCode-27))  
  $BEG_SCRIPT  
    var CurFile=CreateObject("CurPrnFile");  
    CurFile.SetFlagBrowse(0);  
    CurFile.SetFlag_Print(0);  
  $END_SCRIPT  
  $  
$_  
//
$(_EQ(fFramework))  
  $(_NE(NewRegim))
     &Format=0;
  $
     $(_EQ(FLV))
       #Format=_(15,9,70,15,롥 ०,   , ।  䠩 );
     $
       #Format=_(6,9,80,15, ,   , ।  䠩 , ਥ  xml-䠩 );
     $_
  $_
$_  
//
$BEG_SCRIPT

  var File = CreateObject("CurPrnFile");
  File.SetFlagBrowse(0);
  File.SetFlag_Print(0); //  

  int np = 3;
  var param[np];

  param[0] = atoi(Format);
  param[1] = atoi(TCOD);
  param[2] = 0;

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

  UnloadScriptModule("forms\\szv_m");
  LoadScriptModule("forms\\szv_m");
    main(param,np);
  UnloadScriptModule("forms\\szv_m");

$END_SCRIPT
$