'активируем его
 DocWord.Activate

'Заполняем реквизиты
Set TableWord = DocWord.Tables(1)

'TableWord.Cell(1, 3).Select
TableWord.Cell(1, 3).Range.Text = MainForm.NamePr

'TableWord.Cell(2, 1).Select
TableWord.Cell(2, 1).Range.Text = MainForm.Bank

'TableWord.Cell(2, 3).Select
TableWord.Cell(2, 3).Range.Text = MainForm.BIK

'TableWord.Cell(2, 5).Select
TableWord.Cell(2, 5).Range.Text = MainForm.KS

'TableWord.Cell(3, 5).Select
TableWord.Cell(3, 5).Range.Text = MainForm.RS

'TableWord.Cell(3, 3).Select
TableWord.Cell(3, 3).Range.Text = MainForm.INN

'Дата
TableWord.Cell(6, 1).Range.Text = "Расчетный период " + MainForm.Label8 + " г."

'*************************************

'MsgBox (Str(rsNum("Numer")) + "  -    " + rsNum("Oldnum"))

'лицевой счет
'TableWord.Cell(2, 7).Select
TableWord.Cell(2, 7).Range.Text = RsKvit("BanKN") + " / " + RsKvit("oldnum")
' Адрес
'TableWord.Cell(3, 7).Select
TableWord.Cell(3, 7).Range.Text = rsNum("NAIM_KLS") + " Кв №" + RsKvit("kv_num")

' ФИО
'TableWord.Cell(4, 2).Select
TableWord.Cell(4, 2).Range.Text = RsKvit("FAM") + " " + RsKvit("IM") + " " + RsKvit("OT")

'Площадь
TableWord.Cell(4, 4).Range.Text = RsKvit("COMSPACE")

'Прописано
TableWord.Cell(4, 6).Range.Text = RsKvit("NLODGERF")

'Оплата всего



OplataRS.Open ("SELECT Adding.Tip, Sum(Adding.SummaI) AS [Sum-SummaI], Adding.KodKv From Adding GROUP BY Adding.Tip, Adding.KodKv HAVING (((Adding.Tip)='-') AND ((Adding.KodKv)=" + Str(rsNum("Numer")) + "))")
If OplataRS.EOF = False Or OplataRS.BOF = False Then
TableWord.Cell(4, 8).Range.Text = OplataRS("Sum-SummaI")
Else
TableWord.Cell(4, 8).Range.Text = 0
End If
OplataRS.Close




                            'проверяем что рекордсет не пустой
                            If RsKvitK.EOF = False Or RsKvitK.BOF = False Then


i = 13
'Цикл по начислениям одного лиц счета
        RsKvitK.MoveFirst
        Do While Not RsKvitK.EOF
        
       'MsgBox (RsKvit("NameKat") + "  " + RsKvit("NameN") + " " + RsKvit("SchetZ"))
       
       
        'Объеденяем ячейки
        'DocWord.Tables(1).Rows(1).Cells(5).Select
        'DocWord.Tables(1).Range.Cells.Merge
        
                                    '****** Проставляем начисления
  If RsKvitK("Tip") = "+" Then
  
  
   'Добавляем строку в таблицу
        DocWord.Tables(1).Rows.Add
        
    'TableWord.Cell(i, 11).Select
    'TableWord.Cell(i, 1).Range.Text = RsKvitK("NameKat")
    TableWord.Cell(i, 1).Range.Text = RsKvitK("NameN")
    
    If RsKvitK("SchetZ") <> "Пер" Then
    TableWord.Cell(i, 2).Range.Text = RsKvitK("edizm")
    Else
    TableWord.Cell(i, 2).Range.Text = "X"
    End If
    
    
    ' Объем услуг
    ' Если Parametr="прописано" то ставим прописано
    
    If RsKvitK("Parametr") = "прописано" And RsKvitK("SchetZ") <> "Пер" Then
    TableWord.Cell(i, 3).Range.Text = RsKvitK("Propis")
    End If
    
    ' Если Parametr="прочие" то ставим прописано иначе *
    If RsKvitK("Parametr") = "прочие" Or RsKvitK("SchetZ") = "Пер" Then
    TableWord.Cell(i, 3).Range.Text = "X"
    End If
    
    ' Если Parametr="счетчик" или "площадь" то ставим прописано иначе площадь
    If (RsKvitK("Parametr") = "площадь" Or RsKvitK("Parametr") = "счетчик") And RsKvitK("SchetZ") <> "Пер" Then
    TableWord.Cell(i, 3).Range.Text = RsKvitK("ObPl")
    End If
    
    'Тариф
    
    'If InStr(1, RsKvitK("NameN"), "найм") = 0 Then
    TableWord.Cell(i, 4).Range.Text = Format$(RsKvitK("Tarif"), 0#)
    'End If
    
    'Теаерь плата за найм
    
    'If InStr(1, RsKvitK("NameN"), "найм") <> 0 Then
    'TableWord.Cell(i, 4).Range.Text = RsKvitK("TarifI")
    'End If
    
    
      
   'Блок для общих начислений
        
    'S для подсчета сумы долка по строке
    s = 0
        
        If RsKvitK("SchetZ") = "Общие" Then
       'TableWord.Cell(i, 5).Range.Text = RsKvitK("SaldoN")
        TableWord.Cell(i, 5).Range.Text = Format(RsKvitK("SummaI"), "#.##")
     s = s + RsKvitK("SummaI")
        End If
        
    'Блок для ОДН начислений"
     If RsKvitK("SchetZ") = "ОДН" Then
     TableWord.Cell(i, 5).Range.Text = RsKvitK("SummaI")
     s = s + RsKvitK("SummaI")
     End If
     
     'Блок для ПЕРЕРАСЧЕТА начислений"
     If RsKvitK("SchetZ") = "Пер" Then
     TableWord.Cell(i, 6).Range.Text = RsKvitK("SummaI")
     s = s + RsKvitK("SummaI")
     End If
     
     TableWord.Cell(i, 7).Range.Text = s
     
  End If
  
  
  'Нормативы потребления коммунальных услуг
  
     If RsKvitK("norm") <> 0 Then
     TableWord.Cell(i, 8).Range.Text = Str(RsKvitK("norm")) + "(" + RsKvitK("edizm") + ")"
     Else
     TableWord.Cell(i, 8).Range.Text = "Х"
     End If
  
  
  'Показания приборов учета
     If RsKvitK("Sch") = "Да" Then
     TableWord.Cell(i, 9).Range.Text = Str(RsKvitK("Shc_new") - RsKvitK("Shc_old")) + "(" + RsKvitK("edizm") + ")"
     Else
     TableWord.Cell(i, 9).Range.Text = "Х"
     End If
  
  
  'Расчеты по оплате на конец
  
  If RsKvitK("saldok") >= 0 Then
     TableWord.Cell(i, 10).Range.Text = RsKvitK("saldok")
     
     If TableWord.Cell(i, 10).Range.Text = TableWord.Cell(i - 1, 10).Range.Text Then
              
     TableWord.Cell(i, 10).Merge MergeTo:=TableWord.Cell(i - 1, 10)
          
     End If
     
  End If
  
  If RsKvitK("saldok") <= 0 Then
     TableWord.Cell(i, 11).Range.Text = (RsKvitK("saldok") * -1)
     
  End If
  
'OplataRS.Open ("SELECT Adding.Tip, Sum(Adding.SummaI) AS [Sum-SummaI], Adding.KodKv From Adding GROUP BY Adding.Tip, Adding.KodKv HAVING (((Adding.Tip)='+') AND ((Adding.KodKv)=" + Str(rsNum("Numer")) + "))")
  
  
           RsKvitK.MoveNext
        
  
  
  
  
  'Tables(1).Rows.Add
        
        
  i = i + 1
        Loop
        
        
                                   'ИТОГО
                                   
Set TableWord = DocWord.Tables(2)


'итого начислено
OplataRS.Open ("SELECT Adding.Tip, Sum(Adding.SummaI) AS [Sum-SummaI], Adding.KodKv From Adding GROUP BY Adding.Tip, Adding.KodKv HAVING (((Adding.Tip)='+') AND ((Adding.KodKv)=" + Str(rsNum("Numer")) + "))")

 If OplataRS.EOF = False Or OplataRS.BOF = False Then
 
' DocWord.Tables(2).Rows.Add
 TableWord.Cell(1, 2).Range.Text = OplataRS("Sum-SummaI")
 End If
 OplataRS.Close
 
 
 
 'Задолженность/переплата
OplataRS.Open ("SELECT Saldo.KodKV, Sum(IIf([Saldo]![SK]>0,[Saldo]![SK],0)) AS plus, Sum(IIf([Saldo]![SK]<0,[Saldo]![SK],0)) AS minus From Saldo GROUP BY Saldo.KodKV HAVING (((Saldo.KodKV)=" + Str(rsNum("Numer")) + "))")

 If OplataRS.EOF = False Or OplataRS.BOF = False Then

 TableWord.Cell(1, 5).Range.Text = OplataRS("plus")
 TableWord.Cell(1, 6).Range.Text = OplataRS("minus")
 End If
 OplataRS.Close
 
 
 
 ' итого к оплате
OplataRS.Open ("SELECT Saldo.KodKV, Sum(Saldo.SK) AS [Sum-SK] From Saldo GROUP BY Saldo.KodKV HAVING (((Saldo.KodKV)=" + Str(rsNum("Numer")) + "))")

 If OplataRS.EOF = False Or OplataRS.BOF = False Then
 

 TableWord.Cell(2, 2).Range.Text = OplataRS("Sum-SK")
 End If
 OplataRS.Close
        
        
        
             'проверяем что рекордсет не пустой
                 End If
        
        RsKvitK.Close
        RsKvit.Close
 
       
       
       
       
'Сохраняем файл

DocWord.Save
 
DocWord.Close

WordApp.Quit

'определяем видимость Word-a по True - видимый,
'по False - не видимый (работает только ядро)
'WordApp.Visible = True


rsNum.MoveNext
Loop