Option Compare Database
Option Explicit

Dim dblTotaal As Double, dblBDTotaal As Double
Dim dblBDRATotaal As Double, dblKPTotaal As Double
Dim dblSBTotaal As Double, dblBTotaal As Double
Dim dblWPTotaal As Double, dblWPRATotaal As Double
Dim dblETotaal As Double

Function fInitBD()
    'set total to zero when opening rptRekenblad
    dblTotaal = 0
    'set totals for bladdelen to zero when opening rsubBD
    dblBDTotaal = 0
    dblBDRATotaal = 0
End Function

Function fInitKP()
    'set total for kookplaat to zero when opening rsubKP
    dblKPTotaal = 0
End Function

Function fInitSB()
    'set total for spoelbak to zero when opening rsubSB
    dblSBTotaal = 0
End Function

Function fInitB()
    'set total for bewerking to zero when opening rsubB
    dblBTotaal = 0
End Function

Function fInitWP()
    'set totals for wandplaten to zero when opening rsubWP
    dblWPTotaal = 0
    dblWPRATotaal = 0
End Function

Function fInitE()
    'set total for extra bewerking to zero when opening rsubE
    dblETotaal = 0
End Function

Function fCalcBD(R As Report)
    'summing bladdelen
    Dim tmp As Double
    tmp = Nz(R!txtPBD, 0)
    dblBDTotaal = dblBDTotaal + tmp
    dblTotaal = dblTotaal + tmp
    fCalcBD = tmp
End Function

Function fCalcBDTotaal()
    'put sum bladdelen in reportfooter
    fCalcBDTotaal = dblBDTotaal
    dblBDTotaal = 0
End Function

Function fCalcRA(R As Report)
    'summing randafwerkingen
    Dim tmp As Double
    tmp = Nz(R!txtPBDRA, 0)
    dblBDRATotaal = dblBDRATotaal + tmp
    dblTotaal = dblTotaal + tmp
    fCalcRA = dblBDRATotaal
End Function

Function fCalcRATotaal()
    'put sum randafwerkingen in reportfooter
    fCalcRATotaal = dblBDRATotaal
    dblBDRATotaal = 0
End Function

Function fCalcKP(R As Report)
    'sum kookplaten
    Dim tmp As Double
    tmp = Nz(R!txtPKP, 0)
    dblKPTotaal = dblKPTotaal + tmp
    dblTotaal = dblTotaal + tmp
    fCalcKP = tmp
End Function

Function fCalcKPTotaal()
    'put sum kookplaten in reportfooter
    fCalcKPTotaal = dblKPTotaal
    dblKPTotaal = 0
End Function

Function fCalcSB(R As Report)
    'sum spoelbakken
    Dim tmp As Double
    tmp = Nz(R!txtPSB, 0)
    dblSBTotaal = dblSBTotaal + tmp
    dblTotaal = dblTotaal + tmp
    fCalcSB = tmp
End Function

Function fCalcSBTotaal()
    'put sum spoelbakken in reportfooter
    fCalcSBTotaal = dblSBTotaal
    dblSBTotaal = 0
End Function

Function fCalcB(R As Report)
    'sum bewerkingen
    Dim tmp As Double
    tmp = Nz(R!txtPB, 0)
    dblBTotaal = dblBTotaal + tmp
    dblTotaal = dblTotaal + tmp
    fCalcB = tmp
End Function

Function fCalcBTotaal()
    'put sum bewerkingen in reportfooter
    fCalcBTotaal = dblBTotaal
    dblBTotaal = 0
End Function

Function fCalcWP(R As Report)
    'sum wandplaten
    Dim tmp As Double
    tmp = Nz(R!txtPWP, 0)
    dblWPTotaal = dblWPTotaal + tmp
    dblTotaal = dblTotaal + tmp
    fCalcWP = tmp
End Function

Function fCalcWPTotaal()
    'put sum wandplaten in reportfooter
    fCalcWPTotaal = dblWPTotaal
    dblWPTotaal = 0
End Function

Function fCalcWPRA(R As Report)
    'sum randafwerkingen van wandplaten
    Dim tmp As Double
    tmp = Nz(R!txtPWPRA, 0)
    dblWPRATotaal = dblWPRATotaal + tmp
    dblTotaal = dblTotaal + tmp
    fCalcWPRA = dblWPRATotaal
End Function

Function fCalcWPRATotaal()
    'put sum randafwerkingen van wandplaten in reportfooter
    fCalcWPRATotaal = dblWPRATotaal
    dblWPRATotaal = 0
End Function

Function fCalcE(R As Report)
    'sum extra bewerkingen
    Dim tmp As Double
    tmp = Nz(R!txtPE, 0)
    dblETotaal = dblETotaal + tmp
    dblTotaal = dblTotaal + tmp
    fCalcE = tmp
End Function

Function fCalcETotaal()
    'put sum extra bewerkingen in reportfooter
    fCalcETotaal = dblETotaal
    dblETotaal = 0
End Function

Function fTotaal()
    'put total in reportfooter
    fTotaal = dblTotaal
End Function