class= " lineNumbers " de
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 :
36 :
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 :
|
class= de
fonction >Public " de l'id= " codeSnippet958125 de de Nz (groupe, "") alors
'Rapport individuel fonctionnant
Placer les rs = le db.OpenRecordset (« CHOISIS tblStudents.Segment, tblStudents.Location, tblStudents.ROLE, » et _
« tblStudents.Group_FileNo, tblStudents.LastName, tblStudents.FirstName, tblStudents.SSO, tblStudents.Email, tblStudents. [ProcessReport oui/non] » et _
« Des tblStudents » et du _
« OÙ (((tblStudents. [ProcessReport oui/non]) =True)) et tblStudents.Group_FileNo = » et groupe)
Autrement
'Le rapport fonctionnant pour tous les tblStudents avec l'indicateur de ProcessReport s'est allumé.
Placer les rs = le db.OpenRecordset (« CHOISIS tblStudents.Segment, tblStudents.Location, tblStudents.ROLE, » et _
« tblStudents.Group_FileNo, tblStudents.LastName, tblStudents.FirstName, tblStudents.SSO, tblStudents.Email, tblStudents. [ProcessReport oui/non] » et _
« Des tblStudents » et du _
« OÙ (((tblStudents. [ProcessReport oui/non]) =True))")
Finir si
rs.MoveFirst
'Voir si nous courons des rapports de fin d'année
Si le fin d'année = rectifient alors
'Fin d'année fonctionnant - vérifier pour voir si nous courons les calculs de fin d'année
Si MsgBox (« les calculs de fin d'année doivent courir une fois, mais il n'est pas nécessaire de courir chaque fois si les changements ne se sont pas produits. » et vbCrLf et « voulez-vous courir des calculs de fin d'année ? », vbYesNo) = vbYes alors
Appel RunYearEndEarned (de fin d'année)
Finir si
Faire jusqu'à rs.EOF
Choisir les rs de cas ! Rôle
Cas « intermédiaire »
Appel YearEndReportLoop (rs ! Group_FileNo, « intermédiaire », de fin d'année)
Appel RunYearEndOutput (rs ! LastName, rs ! FirstName, « intermédiaire », mensuelles)
Le cas « a avancé »
Appel YearEndReportLoop (rs ! Group_FileNo, « a avancé », des rs ! Endroit, vrai, de fin d'année)
Appel RunYearEndOutput (rs ! LastName, rs ! FirstName, « a avancé », revue mensuelle)
Extrémité choisie
rs.MoveNext
Boucle
Autrement
'Courant des rapports mensuels ou trimestriels
'Examiner le rôle pour assurer chaque personne dans le recordset acquis
Faire jusqu'à rs.EOF
Choisir les rs de cas ! Rôle
Cas « intermédiaire »
Appel ReportLoop (rs ! Group_FileNo, « intermédiaire »)
Appel RunOutput (rs ! LastName, rs ! FirstName, « intermédiaire », mensuelles)
Le cas « a avancé »
Appel ReportLoop (rs ! Group_FileNo, « a avancé », des rs ! Endroit, vrais)
Appel RunOutput (rs ! LastName, rs ! FirstName, « a avancé », revue mensuelle)
Extrémité choisie
rs.MoveNext
Boucle
Finir si
Finir si
Placer les rs = rien
Placer DB = rien
Si Err.Number = 0 puis StudentLoop = rectifient
acSysCmdSetStatus de SysCmd, un "prêt"
Fonction de fin
Fonction publique YearEndReportLoop (groupe comme corde, strType comme corde, LocationRegion facultatif comme corde, LocationInd facultatif aussi booléen, fin d'année facultatif que booléen) comme booléen
'Ceci place les rapports qui sont traités pour chacun individuel pour le fin d'année.
Appel RunYearEndPayrollSummary (groupe, strType, LocationRegion, LocationInd)
Appel RunYearEndCustomerSummaryIntermediate (groupe, strType, LocationRegion, LocationInd)
Appel RunYearEndSummaryIndividual (groupe, strType, LocationRegion, LocationInd)
Appel RunGridAssignments (groupe, strType, LocationRegion, LocationInd)
Appel RunNewSignings (groupe, strType, LocationRegion, LocationInd)
Appel RunMiscReport (groupe, strType, LocationRegion, LocationInd, de fin d'année)
Fonction de fin
|
