class= " lineNumbers "
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=
функция StudentLoop " class= " id= " codeSnippet958125 Public (ежемесячность как булевско, опционная группа как шнур, опционный YearEnd как булевско) как булевско
DoCmd.SetWarnings ложное
Если Lookforfolder = True после этого
Тусклый db как база данных
Тусклые rs как Recordset
Тусклое strGroup как шнур
Тусклое strRole как шнур
Тусклое strLocationRegion как шнур
Тусклое blnLocationInd как булевско
Тусклый q как шнур
Тусклое blnYearEnd как булевско
Установите db = CurrentDb
Q = DLookup («CurrentQuarter», «DatabaseParameters»)
'Проверяет для того чтобы увидеть если мы будем идущими рапортами для всех получателей комиссии, или как раз определенный индивидуал, то (как определено присутсвием группы)
Если "" <> Nz (группы, "") после этого
'Индивидуальный рапорт
Установите rs = db.OpenRecordset («ОТБОРНЫЕ tblStudents.Segment, tblStudents.Location, tblStudents.ROLE,» & _
«tblStudents.Group_FileNo, tblStudents.LastName, tblStudents.FirstName, tblStudents.SSO, tblStudents.Email, tblStudents. [ProcessReport Yes/No]» & _
«ОТ tblStudents» & _
«ГДЕ (((tblStudents. [ProcessReport Yes/No]) =True)) и tblStudents.Group_FileNo =» & группа)
Еще
'Рапорт для всех tblStudents с индикатором ProcessReport повернул дальше.
Установите rs = db.OpenRecordset («ОТБОРНЫЕ tblStudents.Segment, tblStudents.Location, tblStudents.ROLE,» & _
«tblStudents.Group_FileNo, tblStudents.LastName, tblStudents.FirstName, tblStudents.SSO, tblStudents.Email, tblStudents. [ProcessReport Yes/No]» & _
«ОТ tblStudents» & _
«ГДЕ (((tblStudents. [ProcessReport Yes/No]) =True))")
Закончитесь если
rs.MoveFirst
'См. если мы бежим рапорты в конце года
Если YearEnd = True после этого
'Year end - проверите для того чтобы увидеть если мы должны бежим вычисления в конце года
Если MsgBox, то («вычисления в конце года должны побежать одно время, но не обязательно бежать each time если бедный человек изменений произошел.», то & vbCrLf & «вы хотите побежать вычисления в конце года? », vbYesNo) = vbYes после этого
Звонок RunYearEndEarned (в конце года)
Закончитесь если
Не сделать до rs.EOF
Выберите rs случая! Роль
Случай «промежуточное звено»
Звонок YearEndReportLoop (rs! Group_FileNo, «промежуточное звено», в конце года)
Звонок RunYearEndOutput (rs! LastName, rs! FirstName, «промежуточное звено», ежемесячные)
Случай «выдвинулся»
Звонок YearEndReportLoop (rs! Group_FileNo, «выдвинулось», rs! Положение, поистине, в конце года)
Звонок RunYearEndOutput (rs! LastName, rs! FirstName, «выдвинулось», ежемесячность)
Конец отборный
rs.MoveNext
Петля
Еще
'Ежемесячность или отчеты за квартал
'Проверите роль для каждой персоны в приобретенном recordset
Не сделать до rs.EOF
Выберите rs случая! Роль
Случай «промежуточное звено»
Звонок ReportLoop (rs! Group_FileNo, «промежуточное звено»)
Звонок RunOutput (rs! LastName, rs! FirstName, «промежуточное звено», ежемесячные)
Случай «выдвинулся»
Звонок ReportLoop (rs! Group_FileNo, «выдвинулось», rs! Положение, поистине)
Звонок RunOutput (rs! LastName, rs! FirstName, «выдвинулось», ежемесячность)
Конец отборный
rs.MoveNext
Петля
Закончитесь если
Закончитесь если
Установите rs = ничего
Установите db = ничего
Если Err.Number = 0 после этого StudentLoop = True
acSysCmdSetStatus SysCmd, «подготавливает»
Функция конца
Общественная функция YearEndReportLoop (группа как шнур, strType как шнур, опционное LocationRegion как шнур, опционное LocationInd как булевское, опционный YearEnd как булевско) как булевско
'Это устанавливает рапорты обработаны для каждого индивидуального для year end.
Звонок RunYearEndPayrollSummary (группа, strType, LocationRegion, LocationInd)
Звонок RunYearEndCustomerSummaryIntermediate (группа, strType, LocationRegion, LocationInd)
Звонок RunYearEndSummaryIndividual (группа, strType, LocationRegion, LocationInd)
Звонок RunGridAssignments (группа, strType, LocationRegion, LocationInd)
Звонок RunNewSignings (группа, strType, LocationRegion, LocationInd)
Звонок RunMiscReport (группа, strType, LocationRegion, LocationInd, в конце года)
Функция конца
|
