sub TemplateToPLSQL
  Query.SQL.Text = "select BXLS from V_BLRPFRMTEMPLATES where NRN = :DOCUMENT and dbms_lob.getlength(BXLS) > 0"
  Query.ParamByName("DOCUMENT").Value = Document
  Query.Open
  if Query.Eof then
    MsgBox "Шаблон трафарета не найден.", vbSystemModal or vbInformation, "Конвертация трафарета"
    exit sub
  end if

  set Cnv = CreateObject("ParusTemplateToPLSQLConverter.Converter")
  'Cnv.UseMillOfficeExcel = True 'по умолчанию определяется по наличию MS Excel на хосте

  On Error Resume Next
    SourceFile = Cnv.CreateTempFileName
    DestFile = Cnv.CreateTempFileName
    Query.FieldByName("BXLS").SavetoFile SourceFile

    Cnv.Convert SourceFile, DestFile
    if Err.Number <> 0 then
      MsgBox Err.Description, vbSystemModal or vbCritical, "Конвертация трафарета"
    else
      Query.SQL.LoadFromFile DestFile
      Query.ParamByName("TEMPLATE").Value = Document
      Query.ParamByName("MESSAGE").Value = String(2000, " ")

      Query.Execute
      if Err.Number <> 0 then
        MsgBox Err.Description, vbSystemModal or vbCritical, "Конвертация трафарета"
      else
        MsgBox Query.ParamByName("MESSAGE").Value, vbSystemModal or vbInformation, "Конвертация трафарета"
      end if
    end if
  On Error Goto 0

  set Cnv = Nothing
end sub