Self.Add "Database","TIBDatabase"
 with Database
   .Params.Add CStr("lc_ctype=WIN1251")
   .Params.Add CStr("user_name=sysdba")
   .Params.Add CStr("password=masterkey")
   .LoginPrompt=false
 end with
 Database.Databasename="D:\bank-client_crypto\source\client\CLIENT_2000.GDB"
 Database.Connected=true

 Self.Add "Trans","TIBTransaction"
 Trans.DefaultDatabase=Database
 Self.Add "Query", "TIBQuery"
  With Query
    .Database=DataBase
    .SQL.Clear
    .SQL.Add "select  * from platporuch "
    .active=true
  End With

  dim Word
 dim DocReport
 dim DocMaket
 dim DocTemp
 dim WndReport
 dim WndMaket
 dim WndTemp
 dim MaketTemp
 dim i,Pn
' if(!FileExists(MaketDoc))
'  {
'   AnsiString s=" "+MaketDoc+"  "
'   Application->MessageBox(s.c_str(),"",MB_OK|MB_ICONINFORMATION)
'   return
'  }

'  lab->Caption=" ..."
'  form->Show()
'  Application->ProcessMessages()
  dim s1


   MaketTemp="c:\plp55.doc"
 set  Word = CreateObject("Word.Application")
    Word.Documents.Add
    set DocReport = Word.ActiveDocument
    set WndReport = Word.ActiveWindow
    Word.ActiveWindow.View.Type=3
    Word.Documents.Open MaketTemp
    set DocMaket  = Word.ActiveDocument
    set WndMaket  = Word.ActiveWindow

    Word.Documents.Add
    set DocTemp   = Word.ActiveDocument
    set WndTemp   = Word.ActiveWindow

     '     
      WndMaket.Activate
      dim fontsize
      fontsize =Word.Selection.Font.Size
      Word.Selection.WholeStory
      Word.Selection.Font.Size= fontsize
      Word.Selection.Copy
      WndTemp.Activate
      Word.Selection.WholeStory
      Word.Selection.Paste

      dim s

      i=0
     count=Query.Count
      while i<count
        s="<"  & Query.FieldName(cstr(i)) & ">"
        Word.Selection.Find.ClearFormatting
        Word.Selection.Find.Replacement.ClearFormatting
        s1=query.fieldbynamestring(query.fieldname(cstr(i)))
        With word.Selection.Find
                .Execute s, false, false, false, false, false, true, 2, true,s1 , 2,false ,false,false,false
        End With
         i=i+1
        wend
'      if(list)
'       {
'      for (int i = 0 i<list->Counti++)
'       {
'        Word.Selection.Find.ClearFormatting
'        Word.Selection.Find.Replacement.ClearFormatting
'        s="<"+list->Names[i]+">"
'        Word.Selection.Find.Text",WideString(s))
'        Word.Selection.Find.Replacement.Text", WideString(list->Values[list->Names[i]]))
'        Word.Selection.Find.Forward",true)
'        Word.Selection.Find.Wrap", 1)
'        Word.Selection.Find.Format",false)
'        Word.Selection.Find.MatchCase",false)
'        Word.Selection.Find.MatchWholeWord", false)
'        Word.Selection.Find.MatchWildcards", false)
'        Word.Selection.Find.MatchSoundsLike", false)
'        Word.Selection.Find.MatchAllWordForms",false)
'        Procedure ExecuteRExecute
'        NamedParm ncReplace", 2)
'        Word.Selection.Find.Exec(ExecuteR <<nc)
'      }
'      }
'         
      WndTemp.Activate
      Word.Selection.WholeStory
      Word.Selection.Copy
      WndReport.Activate
      Word.Selection.Paste
     Word.Application.Browser.Previous
 '    Procedure HomeKeyHomeKey
'     NamedParm ucUnit", 6)
'//     Word.Selection.Exec(HomeKey<<uc)
    DocTemp.Saved= true
    DocTemp.Close
    DocMaket.Saved=true
    DocMaket.Close
   Word.Visible=true
   set DocMaket=nothing
  set DocTemp=nothing
  set DocReport=nothing
  set WndMaket=nothing
  set WndTemp=nothing
  set WndReport=nothing
  set Word=nothing
