1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
6:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
|
Public Funktion StudentLoop (Monatszeitschrift als Boolesch, wahlweise freigestellte Gruppe als Schnur, wahlweise freigestelltes Jahresende, wie Boolesch) wie Boolesch
DoCmd.SetWarnings falsch
Wenn Lookforfolder = dann ausrichten
Schwaches DB als Datenbank
Schwache rs als Recordset
Schwaches strGroup als Schnur
Schwaches strRole als Schnur
Schwaches strLocationRegion als Schnur
Schwaches blnLocationInd, wie Boolesch
Schwaches Q als Schnur
Schwaches blnYearEnd, wie Boolesch
Einstellen DB = CurrentDb
Q = DLookup („CurrentQuarter“, „DatabaseParameters“)
'Überprüft, um zu sehen, wenn wir laufende Reports für alle Kommissionsempfänger sind, oder gerade spezifizierte Einzelperson (wie durch die Anwesenheit der Gruppe festgestellt)
Wenn Nz (Gruppe, "") <> "" dann
'Laufender einzelner Report
Rs = db.OpenRecordset einstellen („AUSERWÄHLTES tblStudents.Segment, tblStudents.Location, tblStudents.ROLE,“ u. _
„tblStudents.Group_FileNo, tblStudents.LastName, tblStudents.FirstName, tblStudents.SSO, tblStudents.Email, tblStudents. [ProcessReport ja/nein]“ u. _
„Von den tblStudents“ u. vom _
„WO (((tblStudents. [ProcessReport ja/nein]) =True)) und tblStudents.Group_FileNo =“ u. Gruppe)
Sonst
'Laufender Report für alle tblStudents mit ProcessReport Anzeige schielt ein.
Rs = db.OpenRecordset einstellen („AUSERWÄHLTES tblStudents.Segment, tblStudents.Location, tblStudents.ROLE,“ u. _
„tblStudents.Group_FileNo, tblStudents.LastName, tblStudents.FirstName, tblStudents.SSO, tblStudents.Email, tblStudents. [ProcessReport ja/nein]“ u. _
„Von den tblStudents“ u. vom _
„WO (((tblStudents. [ProcessReport ja/nein]) =True))")
Beenden wenn
rs.MoveFirst
'Sehen, wenn wir Jahresabschluss- Reports laufen lassen
Wenn Jahresende = dann ausrichten
'Laufendes Jahresende - überprüfen, um zu sehen, wenn wir die Jahresabschluss- Berechnungen laufen lassen
Wenn MsgBox („Jahresabschluss- Berechnungen müssen einmal laufen lassen, aber jedes Mal zu laufen ist nicht notwendig, wenn Änderungen sind nicht eingetreten.“ u. vbCrLf u. „möchten Sie Jahresabschluss- Berechnungen laufen lassen? “, vbYesNo) = vbYes dann
Anruf RunYearEndEarned (Jahresabschluss-)
Beenden wenn
Bis rs.EOF tun
Fall rs vorwählen! Rolle
Fall „Vermittler“
Anruf YearEndReportLoop (rs! Group_FileNo, „Vermittler“, Jahresabschluss-)
Anruf RunYearEndOutput (rs! LastName, rs! FirstName, „Vermittler“, Monats)
Fall „brachte“ voran
Anruf YearEndReportLoop (rs! Group_FileNo, „brachte“, rs voran! Position, zutreffendes, Jahresabschluss-)
Anruf RunYearEndOutput (rs! LastName, rs! FirstName, „brachte“, Monatszeitschrift) voran
Ende auserwählt
rs.MoveNext
Schleife
Sonst
', die Monats- oder vierteljährlichen Reports laufen lassend
'Die Rolle auf jeder Person überprüfen im erworbenen recordset
Bis rs.EOF tun
Fall rs vorwählen! Rolle
Fall „Vermittler“
Anruf ReportLoop (rs! Group_FileNo, „Vermittler“)
Anruf RunOutput (rs! LastName, rs! FirstName, „Vermittler“, Monats)
Fall „brachte“ voran
Anruf ReportLoop (rs! Group_FileNo, „brachte“, rs voran! Position, zutreffend)
Anruf RunOutput (rs! LastName, rs! FirstName, „brachte“, Monatszeitschrift) voran
Ende auserwählt
rs.MoveNext
Schleife
Beenden wenn
Beenden wenn
Rs einstellen = nichts
Einstellen DB = nichts
Wenn Err.Number = 0 dann StudentLoop = ausrichten
SysCmd acSysCmdSetStatus, „bereiten“ vor
Enden-Funktion
Allgemeine Funktion YearEndReportLoop (Gruppe als Schnur, strType als Schnur, wahlweise freigestelltes LocationRegion als Schnur, wahlweise freigestelltes LocationInd so Boolesch, wahlweise freigestelltes Jahresende wie Boolesch) wie Boolesch
'Dieses stellt die Reports ein, die für jedes verarbeitet werden, das für Jahresende einzeln ist.
Anruf RunYearEndPayrollSummary (Gruppe, strType, LocationRegion, LocationInd)
Anruf RunYearEndCustomerSummaryIntermediate (Gruppe, strType, LocationRegion, LocationInd)
Anruf RunYearEndSummaryIndividual (Gruppe, strType, LocationRegion, LocationInd)
Anruf RunGridAssignments (Gruppe, strType, LocationRegion, LocationInd)
Anruf RunNewSignings (Gruppe, strType, LocationRegion, LocationInd)
Anruf RunMiscReport (Gruppe, strType, LocationRegion, LocationInd, Jahresabschluss-)
Enden-Funktion
|
