Option Compare Database

Private Type DataPage
'Этот тип для массива накопления сумм
    DATA As Double
    Page As Integer
End Type

Private SUMDATA( 15 ,  1000 ) As DataPage 'Этот массивчик накапливает в себе значения суммируемых постранично полей в привязке к счетчику строк
Private Const FirstpageRecords =  25    'Эта константа определяет количество строк на первой странице после которой подтитог
Private Const NoFirstpageRecords =  40  'Эта константа определяет количество строк на остальных страницах после которой подтитог


Private Sub Report_Open(Cancel As Integer)

If КОДНАКЛАДНОЙ = "" Then
    MsgBox "Для открытия документа необходимо установить значение переменной КОДНАКЛАДНОЙ из вызывающей формы"
    Cancel = True
    Exit Sub
End If

sql = "SELECT  фирма.окпо as фирма_окпо,([Сумма]-[СуммаНалога]) AS СУММА_С_НДС ,([Сумма]-[СуммаНалога])/[Делитель]AS СУММА_НДС, ([Сумма]-[СуммаНалога])*[Множитель] AS СУММА_БЕЗ_НДС,  ПРОДАЖА.[Цена]*[Множитель] AS ФАКТ_ЦЕНА , Накладные.Накладная, Продажа.СуммаНалога, Товары.Размерность, Накладные.Наличные, Товары.Налог, Продажа.ПроцентНалога, Товары.Страна, Товары.Декларация, Товары.[Цена (опт)], Накладные.Дата, Накладные.Номер, Покупатели.[Полное название] AS Покупатель, Накладные.Предприятие, Покупатели.Город, Покупатели.Дотошность, Покупатели.Название, Покупатели.Адрес as ПокупателиАдрес , Покупатели.Телефон, " & _
" Покупатели.Счет, Покупатели.Банк, Покупатели.ИНН, Покупатели.ОКОНХ, Покупатели.ОКПО, Продажа.Товар, Товары.Наименование, Продажа.Количество, Товары.Разновидность, Продажа.Цена, Продажа.Сумма, [Группы товаров].Примечание AS НДС, [Группы товаров].Множитель, [Группы товаров].Делитель, Фирма.Примечание, Фирма.Район, Покупатели.Примечание AS Прим, Фирма.[Полное название], Фирма.Адрес, Фирма.ИНН " & _
" FROM Фирма INNER JOIN (Покупатели INNER JOIN ((Товары LEFT JOIN [Группы товаров] ON Товары.Группа = [Группы товаров].Код) INNER JOIN (Накладные INNER JOIN Продажа ON Накладные.Накладная = Продажа.Накладная) ON Товары.Товар = Продажа.Товар) ON Покупатели.Предприятие = Накладные.Предприятие) ON Фирма.Код = Накладные.Фирма WHERE (((Накладные.Накладная)=" & КОДНАКЛАДНОЙ & "));"
Me.RecordSource = sql

End Sub


Private Function PageSumVisible(visibility As Boolean)
'отображение и скрытие контролов постраничного подитога из области данных
Me.itog.Visible = visibility
Me.p8.Visible = visibility
Me.p9.Visible = visibility
Me.p10.Visible = visibility
Me.p11.Visible = visibility
Me.p12.Visible = visibility
Me.p13.Visible = visibility
Me.p14.Visible = visibility
Me.p15.Visible = visibility
Me.pb.Visible = visibility
End Function

Private Function SUMPAGE(ctn, spage)
Dim i
For i =  1  To  1000 
    If SUMDATA(ctn, i).Page = spage Then SUMPAGE = SUMPAGE + SUMDATA(ctn, i).DATA
Next i
End Function



Private Sub ОбластьДанных1_Format(Cancel As Integer, FormatCount As Integer)
'скрыть постраничный итог
PageSumVisible (False)

Dim ctls, ctl
'Список контролов которые суммируются
ctls = Array("10", "12", "14", "15")
'Запоминание сумм
For Each ctl In ctls
If Nz(Me.Section( 0 ).Controls("D" & ctl).value, "") <> "" Then
    SUMDATA(ctl, Me.tcount).DATA = Me.Section( 0 ).Controls("D" & ctl).value
    SUMDATA(ctl, Me.tcount).Page = Me.tpage
End If
Next ctl

'Если последняя строка страницы - отобразить итог
If (Me.tcount - FirstpageRecords) Mod NoFirstpageRecords =  0  Then Call PageSumVisible(True)


End Sub
Private Sub ПримечаниеГруппы1_Format(Cancel As Integer, FormatCount As Integer)
'Если последняя запись не вывела примечание итога страницы
If (Me.tcount - FirstpageRecords) Mod NoFirstpageRecords =  0  Then
ПримечаниеГруппы1.Visible = False
Else
ПримечаниеГруппы1.Visible = True
End If
End Sub