456 lines
20 KiB
ObjectPascal
456 lines
20 KiB
ObjectPascal
unit applicantresult;
|
||
|
||
{$mode ObjFPC}{$H+}
|
||
|
||
interface
|
||
|
||
uses
|
||
Classes, SysUtils, cgiReport,xpMemParamManagerUnit;
|
||
const
|
||
ApplicantExtraParamCnt=4;
|
||
ApplicantExtraFields: array[1..ApplicantExtraParamCnt] of string = ('tabel_mode','olympic_mode','portfolio_mode','techno_mode');
|
||
type
|
||
|
||
{ TRepApplicantList }
|
||
|
||
{ TRepApplicantResult }
|
||
|
||
TRepApplicantResult=class(TReportCommand)
|
||
private
|
||
edtMode: integer;
|
||
cbStream: integer;
|
||
idYear: integer;
|
||
ColNames: array[1..12] of string;
|
||
ColCount: integer;
|
||
function MakeCols(): string;
|
||
function UpdateEnrollStatus(): integer;
|
||
public
|
||
class function CommandSubClass: string; override;
|
||
procedure Prepare; override;
|
||
procedure OnFillVariables(AVariables: TxpMemParamManager); override;
|
||
end;
|
||
|
||
implementation
|
||
uses
|
||
cgiDM,dateutils,commandcol;
|
||
|
||
{ TRepApplicantResult }
|
||
|
||
function TRepApplicantResult.MakeCols: string;
|
||
var
|
||
SQL: string;
|
||
i,j: integer;
|
||
exams: string;
|
||
l: TStrings;
|
||
begin
|
||
exams := '';
|
||
for i := 1 to 6 do
|
||
exams := exams + format(
|
||
'UNION SELECT COALESCE(NULLIF(Exam%0:dColName,''''),EnterExam%0:dName) as ExamName, coalesce(d.sorting, %0:d) as sorting '+
|
||
'FROM applicant_group g '+
|
||
' LEFT JOIN (SELECT d.school_year, COALESCE(d.stream,0) as stream, l.name as exam_name, d.sorting,d.kurs '+
|
||
' FROM enroll_disciplines d '+
|
||
' JOIN lessons l ON l.lid=d.lid '+
|
||
' WHERE d.school_year=%1:d AND COALESCE(d.stream,0)=%2:d '+
|
||
' ) d ON d.school_year=g.school_year AND d.stream=COALESCE(g.stream) AND d.exam_name=g.EnterExam%0:dName '+
|
||
'WHERE g.school_year=%1:d AND (%2:d=COALESCE(g.stream,0)) '+
|
||
'AND NULLIF(EnterExam%0:dName,'''') IS NOT NULL '+
|
||
'AND EXISTS (SELECT 1 FROM xp_applicant a WHERE a.applicant_group=g.id AND a.Child_Class=coalesce(d.kurs,a.Child_Class) ) ',
|
||
[i,idYear,cbStream]);
|
||
SQL := format(
|
||
'DROP TABLE IF EXISTS tmpExams; '+
|
||
'CREATE TEMPORARY TABLE tmpExams AS '+
|
||
'SELECT trim(t.ExamName) as ExamName, COALESCE(NULLIF(FIND_IN_SET(trim(t.ExamName),''Русский язык,Математика,Иностранный язык''),0),min(t.sorting)+6 ) as sorting FROM ( '+
|
||
' SELECT '''' as ExamName, 0 as sorting '+
|
||
' %2:s '+
|
||
' ) t '+
|
||
'WHERE t.sorting>0 '+
|
||
'GROUP BY t.ExamName; ',
|
||
[idYear,cbStream,Exams]);
|
||
connect.processor.ExecuteSQL(SQL);
|
||
|
||
ColCount := 0;
|
||
with connect.processor.getData('SELECT ExamName,sorting FROM tmpExams ORDER BY sorting,ExamName ') do
|
||
try
|
||
while not eof and (ColCount<8) do
|
||
begin
|
||
if (pos('физ',AnsiLowerCase(FieldByName('ExamName').AsString))=0) or (pos('физика',AnsiLowerCase(FieldByName('ExamName').AsString))>0) then
|
||
begin
|
||
inc(ColCount);
|
||
ColNames[ColCount] := FieldByName('ExamName').AsString;
|
||
end;
|
||
Next;
|
||
end;
|
||
finally
|
||
Free;
|
||
end;
|
||
result := '';
|
||
for I := 1 to ColCount do
|
||
begin
|
||
result := result + 'CASE ';
|
||
for j := 1 to 6 do
|
||
result := result + format(
|
||
' WHEN a1.Col%0:d = %1:s THEN a1.Grade%0:d ',
|
||
[j,TNIDBDM.StringAsSQL(ColNames[i])]);
|
||
result := result + format(' ELSE NULL END AS Exam%d, ',[i]);
|
||
end;
|
||
for I := ColCount+1 to 12 do
|
||
begin
|
||
result := result+ Format('NULL AS Exam%d, ',[i]);
|
||
end;
|
||
end;
|
||
|
||
|
||
function TRepApplicantResult.UpdateEnrollStatus: integer;
|
||
var
|
||
SQL: string;
|
||
separate_enroll: boolean;
|
||
Z2: string;
|
||
ColSorter: string;
|
||
I,j: Integer;
|
||
SParts: array[1..10] of string;
|
||
DateFilter: string;
|
||
FS:TStrings;
|
||
begin
|
||
DateFilter := '';
|
||
if cbStream > 0 then
|
||
DateFilter := ' AND cast(a1.Date as DATE) BETWEEN %10:s AND %11:s ';
|
||
|
||
for i := 1 to 10 do
|
||
sParts[i] := '';
|
||
for i := 1 to 8 do
|
||
begin
|
||
sParts[1] := sParts[1] + format(
|
||
'+IF(COALESCE(ep.psycho_mode%0:d,0)>=0,gradevalue((COALESCE(ep.psycho_mode%0:d,0)+1)*a1.EnterTest%0:dGrade,0),0)',[i]);
|
||
sParts[6] := sParts[6] + format(' and case coalesce(ep.psycho_mode%0:d,0) '+
|
||
'when -3 then true '+
|
||
'when -2 then coalesce(a1.EnterTest%0:dGrade,'''')=''да'' '+
|
||
'when -1 then coalesce(a1.EnterTest%0:dGrade,'''')=''нет'' '+
|
||
'else ROUND(10000*coalesce(a1.EnterTest%0:dGrade,0))>=ROUND(10000*coalesce(ep.psycho_pass%0:d,ep.psycho_min%0:d,-10)) '+
|
||
'end ',
|
||
[i]);
|
||
sParts[8] := sParts[8] + format(
|
||
', IF( ep.psycho_mode%0:d=-1 AND coalesce(a1.EnterTest%0:dGrade,'''')<>''нет'',ep.psycho_name%0:d,null) ',[i]);
|
||
sParts[8] := sParts[8] + format(
|
||
', IF( ep.psycho_mode%0:d=-2 AND coalesce(a1.EnterTest%0:dGrade,'''')<>''да'',concat(''не пройден тест: ('',ep.psycho_name%0:d,'')''),null) ',[i]);
|
||
sParts[8] := sParts[8] + format(
|
||
', IF( ep.psycho_mode%0:d in (0,1,2,3,4,5,6,7) '+
|
||
' AND ROUND(10000*coalesce(a1.EnterTest%0:dGrade,0))<ROUND(10000*coalesce(ep.psycho_pass%0:d,ep.psycho_min%0:d,-10)),concat(''не пройден тест: ('',ep.psycho_name%0:d,'')''),null) ',[i]);
|
||
if i <= 6 then
|
||
begin
|
||
sParts[2] := sParts[2] + format(
|
||
' COALESCE(NULLIF(g.Exam%0:dColName,''''),g.EnterExam%0:dName,a1.EnterExam%0:dName) as Col%0:d, ',[i]);
|
||
sParts[3] := sParts[3] + format(
|
||
' a1.EnterExam%0:dGrade as Grade%0:d, ',[i]);
|
||
sParts[4] := sParts[4] + format(
|
||
' and (coalesce(gradevalue(a1.EnterExam%0:dGrade,1)>= coalesce(g.Pass%0:dGrade,0),false) or NULLIF(a1.EnterExam%0:dName,'''') IS NULL) ',[i]);
|
||
sParts[5] := sParts[5] + format(
|
||
' and coalesce(a1.EnterExam%0:dGrade NOT LIKE ''н%%'',true) ',[i]);
|
||
|
||
sParts[7] := sParts[7] + format(
|
||
', IF (NULLIF(a1.EnterExam%0:dName,'''') IS NOT NULL '+
|
||
' AND (coalesce(gradevalue(a1.EnterExam%0:dGrade,1)< coalesce(g.Pass%0:dGrade,0),false) '+
|
||
' OR coalesce(a1.EnterExam%0:dGrade LIKE ''незачет%%'',false)),a1.EnterExam%0:dName,null) ',[i]);
|
||
|
||
end;
|
||
end;
|
||
|
||
SParts[9] := 'true and (coalesce(gradevalue(a1.EnterExam1Grade,1)>=coalesce(g.Pass1Grade,0),false) '+
|
||
'or coalesce(gradevalue(a1.EnterExam2Grade,1)>=coalesce(g.Pass2Grade,0),false) '+
|
||
'or coalesce(gradevalue(a1.EnterExam3Grade,1)>=coalesce(g.Pass3Grade,0),false) '+
|
||
'or coalesce(gradevalue(a1.EnterExam4Grade,1)>=coalesce(g.Pass4Grade,0),false) '+
|
||
'or coalesce(gradevalue(a1.EnterExam5Grade,1)>=coalesce(g.Pass5Grade,0),false) '+
|
||
'or coalesce(gradevalue(a1.EnterExam6Grade,1)>=coalesce(g.Pass6Grade,0),false)) ';
|
||
|
||
SQL := format(
|
||
'DROP TABLE IF EXISTS tmp_rpt_applicant_us; '+
|
||
'CREATE TEMPORARY TABLE tmp_rpt_applicant_us AS '+
|
||
'SELECT '+
|
||
' a.xp_key, '+
|
||
' a.s_year_id, '+
|
||
' a.trajectory, '+
|
||
' subj.Subject, '+
|
||
' CONCAT_WS('' '',UPPER(a.Child_LastName),a.Child_FirstName,a.Child_MidName) AS FIO, '+
|
||
' a.Child_Birth, '+
|
||
' a.Child_Class, '+
|
||
' CASE WHEN a.testready<>0 and coalesce(a.scr_fail,0) = 0 THEN ''годен'' ELSE ''не годен'' END AS isready, '+
|
||
' COALESCE(a.coeff,1) as coeff, '+
|
||
' a.sex, '+
|
||
' COALESCE(NULLIF(a2.Privilege,''''),''нет'') as Privilege , '+
|
||
' a2.Priv_Count, a2.priv_super, a2.Priv_M > 0 and priv_with_exam and a2.TestPassed and a.testready as priv_m, '+
|
||
' a.scr_fail, '+
|
||
' a2.Grade_RUS, '+
|
||
' a2.Grade_MATH, '+
|
||
' a2.Grade_INO, '+
|
||
' a2.Grade_PHYS, '+
|
||
' CASE WHEN COALESCE(ep.psychomode,0)=0 THEN '+
|
||
' ROUND(a2.psycho_grade,2) '+
|
||
' ELSE CASE WHEN a.Psychologist<>0 THEN ''Зачет'' ELSE ''Незачет'' END '+
|
||
' END as Psycho, '+
|
||
|
||
' a.applicant_status_id NOT IN (5,8) '+
|
||
' AND COALESCE(a.scr_fail,0)=0 '+
|
||
' AND ( a2.ExamPassed AND a2.TestPassed '+
|
||
' AND (COALESCE(ep.psychomode,0)=0 AND ROUND(10000*a2.Psycho_grade)>=ROUND(10000*coalesce(ep.psycho_pass,0)) OR a.Psychologist<>0 AND ep.psychomode<>0) '+
|
||
' OR a2.Priv_super<>0 OR (a2.priv_m > 0 and priv_with_exam AND a2.TestPassed and a.testready)) '+
|
||
'as ExamOK, '+
|
||
' calc_applicant_ball(a.xp_key) AS Ball, '+
|
||
' calc_applicant_ball_priv_m(a.xp_key) as Ball_m, '+
|
||
' CASE '+
|
||
' WHEN a.absent <> 0 THEN CASE a.Sex WHEN ''женский'' THEN ''не явилась'' ELSE ''не явился'' END '+
|
||
' WHEN a.scr_fail <> 0 THEN a.screening '+
|
||
' WHEN a.applicant_status_id = 5 THEN ''Отказано'' '+
|
||
' WHEN a.applicant_status_id = 8 THEN ''Отказ от обучения'' '+
|
||
' WHEN a2.priv_super>0 THEN '''' '+
|
||
' WHEN a2.priv_m > 0 THEN TRIM(CONCAT(IF(COALESCE(ep.psychomode,0)=0 AND ROUND(10000*a2.Psycho_grade)<ROUND(10000*coalesce(ep.psycho_pass,0)) ' +
|
||
' OR coalesce(a.Psychologist,0)=0 AND ep.psychomode<>0,''Не рекомендуется к обучению по результатам психологического отбора'', ''''), ' +
|
||
' CASE WHEN LOCATE(''физическая культура'', a2.FailedExams) > 0 THEN '' Не сданы: физическая культура'' ELSE '''' END)) '+
|
||
' WHEN nd.errors<>'''' THEN nd.errors '+
|
||
' WHEN NOT a2.TestPassed or NOT a2.ExamPassed '+
|
||
' or COALESCE(ep.psychomode,0)=0 AND ROUND(10000*a2.Psycho_grade)<ROUND(10000*coalesce(ep.psycho_pass,0)) OR coalesce(a.Psychologist,0)=0 AND ep.psychomode<>0 '+
|
||
' THEN CONCAT_WS('',\n '','+
|
||
' IF (COALESCE(ep.psychomode,0)=0 AND ROUND(10000*a2.Psycho_grade)<ROUND(10000*coalesce(ep.psycho_pass,0)) OR coalesce(a.Psychologist,0)=0 AND ep.psychomode<>0,''Не рекомендуется к обучению по результатам психологического отбора'',NULL), '+
|
||
' IF(NOT a2.TestPassed AND a2.Priv_super=0, a2.FailedTests,NULL), '+
|
||
' IF(NOT a2.ExamPassed AND a2.Priv_super=0, CONCAT(''Не сданы: \n'',a2.FailedExams),NULL)'+
|
||
' ) '+
|
||
' END AS Prim, '+
|
||
' a2.FailedExams, a2.FailedTests, a2.ExamPassed,a2.TestPassed, '+
|
||
' CASE WHEN a.absent<>0 THEN 1 ELSE 0 END as absent, '+
|
||
' a2.col1,a2.col2,a2.col3,a2.col4,a2.col5,a2.col6, '+
|
||
' a2.grade1,a2.grade2,a2.grade3,a2.grade4,a2.grade5,a2.grade6 '+
|
||
'FROM ( '+
|
||
' SELECT a1.xp_key, '+
|
||
' GROUP_CONCAT(distinct CASE '+
|
||
' WHEN np.code = ''Л'' THEN ''Указ Президента РФ от 09.05.2022 г. №268 п.3/ч.1.'' '+
|
||
' WHEN np.code = ''Л1'' THEN ''Указ Президента РФ от 09.05.2022 г. №268 п.3/ч.2.'' '+
|
||
' WHEN np.code = ''М'' THEN ''Федеральный закон от 29 декабря 2022 года «641-ФЗ, статья 86, часть 6.1'' '+
|
||
' WHEN np.code IS NOT NULL THEN priv.PrivilegeCode '+
|
||
' ELSE priv.PrivilegeName END order by priv.PrivilegeCode SEPARATOR '', '') AS Privilege, '+
|
||
' COUNT(priv.PrivilegeCode) AS Priv_Count, '+
|
||
' SUM(if(np.code in ( ''Л''),1, 0) ) AS Priv_super, '+
|
||
' SUM(if(np.code in (''М''),1,0)) as Priv_M, '+
|
||
' get_applicant_grade(a1.xp_key,''%%русский%%'','''') AS Grade_RUS, '+
|
||
' get_applicant_grade(a1.xp_key,''%%математика%%'','''') AS Grade_MATH, '+
|
||
' get_applicant_grade(a1.xp_key,''%%язык%%'',''%%русский%%'') AS Grade_INO, '+
|
||
' get_applicant_grade(a1.xp_key,''%%физ%%'',''физика'') AS Grade_PHYS, '+
|
||
' %3:s '+
|
||
' %4:s '+
|
||
' (0.0 %2:s )/COALESCE(ep.psycho_denom,5) as Psycho_grade, '+
|
||
' (TRUE %5:s %6:s) as ExamPassed, '+
|
||
' (TRUE %7:s ) as TestPassed, '+
|
||
' %12:s as priv_with_exam, '+
|
||
|
||
' CONCAT_WS('', '' %8:s ) as FailedExams, '+
|
||
' CONCAT_WS('', '' %9:s ) as FailedTests '+
|
||
' FROM xp_applicant a1 '+
|
||
' LEFT JOIN xp_applicant_file_privilege priv ON priv.mid=a1.xp_key AND priv.PrivilegeCode <> ''-'' '+
|
||
' LEFT JOIN c_privilege np ON np.code=priv.PrivilegeCode '+
|
||
' JOIN applicant_group g ON g.id=a1.applicant_group '+
|
||
' LEFT JOIN enroll_params ep ON ep.school_year=a1.s_year_id '+
|
||
' WHERE a1.s_year_id=%0:d AND a1.Child_Class>0 AND a1.testready <> 0 AND applicant_status_id <> 4 '+
|
||
' AND (%1:d=COALESCE(a1.stream,0)) '+
|
||
DateFilter +
|
||
' GROUP BY a1.xp_key '+
|
||
') a2 '+
|
||
' JOIN xp_applicant a ON a.xp_key = a2.xp_key '+
|
||
' LEFT JOIN enroll_params ep ON ep.school_year=a.s_year_id '+
|
||
' LEFT JOIN tmp_rpt_problems nd ON nd.xp_key=a.xp_key '+
|
||
' LEFT JOIN xp_subjects subj ON subj.Subject = a.Subject; ',
|
||
[idyear,cbStream,
|
||
sParts[1],
|
||
sParts[2],
|
||
sParts[3],
|
||
sParts[4],
|
||
sParts[5],
|
||
sParts[6],
|
||
sParts[7],
|
||
sParts[8],
|
||
TNIDBDM.StringAsSQL(Arguments.Keys.Values['fromdate']),
|
||
TNIDBDM.StringAsSQL(Arguments.Keys.Values['todate']),
|
||
sParts[9]]);
|
||
// FS:= TstringList.create;
|
||
// fs.Add(sql);
|
||
// fs.SaveToFile('sqlappldebug.sql');
|
||
//xpInformation(sql);
|
||
connect.processor.ExecuteSQL(SQL);
|
||
|
||
colSorter := MakeCols();
|
||
SQL := format(
|
||
'DROP TABLE IF EXISTS tmp_rpt_applicant; '+
|
||
'CREATE TEMPORARY TABLE tmp_rpt_applicant AS '+
|
||
' SELECT a1.*, e.places, e.places_male, e.places_female, '+
|
||
ColSorter+
|
||
'CASE '+
|
||
' WHEN COALESCE(a1.absent,0)=0 THEN ' +
|
||
' CASE ' +
|
||
' WHEN a1.undefined<>'''' THEN 5 '+
|
||
' WHEN NOT ExamOK AND priv_super=0 THEN 3 '+
|
||
' WHEN (a1.row<=a1.place_limit) THEN 0 '+
|
||
|
||
' ELSE 3 ' +
|
||
' END ' +
|
||
' ELSE 4 ' +
|
||
'END as GroupID ' +
|
||
' FROM ( '+
|
||
' SELECT t.*, '+
|
||
' CASE '+
|
||
' WHEN @kurs=t.Child_Class AND @gender=t.gender AND @track=t.track THEN @row := @row+1 '+
|
||
' ELSE @row := 1 '+
|
||
' END as row, '+
|
||
' @kurs := t.Child_Class, @gender := t.gender, @track := t.track '+
|
||
' FROM '+
|
||
' (SELECT @row:=-1 as row, @kurs:=-1 as i_kurs, @gender:=-1 as i_gender, @track:=-1 as i_track ) init, '+
|
||
' (SELECT '+
|
||
' CASE '+
|
||
' WHEN et.places>0 THEN et.places '+
|
||
' WHEN e.places_female>0 AND a.Sex=''женский'' THEN e.places_female '+
|
||
' WHEN e.places_male>0 AND a.Sex=''мужской'' THEN e.places_male '+
|
||
' ELSE e.places '+
|
||
' END as place_limit, '+
|
||
' CASE '+
|
||
' WHEN a.sex=''женский'' AND e.places_female>0 THEN 2 '+
|
||
' WHEN a.Sex=''мужской'' AND e.places_male>0 THEN 1 '+
|
||
' ELSE 0 '+
|
||
' END as gender, '+
|
||
' CASE '+
|
||
' WHEN et.trajectory>0 THEN a.trajectory '+
|
||
' ELSE 0 '+
|
||
' END as track, '+
|
||
' a.*,nd.errors as undefined '+
|
||
' from tmp_rpt_applicant_us a '+
|
||
' join xp_enroll e ON e.school_year=%0:d and e.kurs=a.child_class AND e.trajectory=0 AND e.places>0 '+
|
||
' and (e.places_female>0 and a.Sex=''женский'' OR e.places_male>0 and a.Sex=''мужской'' OR e.places_female IS NULL AND e.places_male IS NULL) '+
|
||
' LEFT JOIN xp_enroll et ON et.school_year=%0:d AND et.kurs=a.Child_Class AND et.trajectory=a.trajectory '+
|
||
' LEFT JOIN tmp_rpt_problems nd ON nd.xp_key=a.xp_key '+
|
||
' WHERE 1=1 '+
|
||
' AND (et.trajectory>0 OR NOT EXISTS (SELECT 1 FROM xp_enroll WHERE school_year=a.s_year_id AND kurs=a.Child_Class AND trajectory>0)) '+
|
||
' ORDER BY a.Child_Class,COALESCE(a.scr_fail,0), absent,IF(nd.errors<>'''',1,0),gender,'+
|
||
' track,priv_super desc,a.priv_m desc, case when a.priv_m > 0 then a.Ball_m else 0 end desc,ExamOK DESC, ball desc ,case a.Priv_Count when 0 then 1 else 0 end, a.fio '+
|
||
' ) t '+
|
||
{
|
||
' SELECT IF(Child_Class<>@class OR use_sex AND sex <> @sex,@i:=1,@i:=@i+1) as Row, '+
|
||
' (@class:=Child_Class) as ClassCopy,(@sex:=sex) as SexCopy, a.* '+
|
||
' FROM (SELECT u.*,(e.places_male IS NOT NULL OR e.places_female IS NOT NULL) as use_sex,nd.errors as undefined '+
|
||
' FROM tmp_rpt_applicant_us u '+
|
||
' LEFT JOIN xp_enroll e ON e.kurs=u.Child_Class AND e.school_year=u.s_year_id '+
|
||
' LEFT JOIN tmp_rpt_problems nd ON nd.xp_key=u.xp_key '+
|
||
' ORDER BY Child_Class,absent,ExamOK DESC,IF(nd.errors<>'''',1,0), '+
|
||
' CASE WHEN e.places_male IS NOT NULL OR e.places_female IS NOT NULL THEN Sex ELSE 0 END, '+
|
||
' coalesce(Ball,0) DESC, CASE COALESCE(Priv_Count,0) WHEN 0 THEN 0 ELSE 1 END DESC, fio) a, '+
|
||
' (select @i:=0,@class:=null,@sex:=null) as z '+ }
|
||
' ) a1 '+
|
||
//' LEFT JOIN tmp_rpt_problems nd ON nd.xp_key=a1.xp_key '+
|
||
' LEFT JOIN xp_enroll e ON e.kurs=a1.Child_Class AND e.school_year=%0:d AND e.trajectory=0; '{+
|
||
' LEFT JOIN tmpExams e1 ON e1.ExamName = a1.Col1 '+
|
||
' LEFT JOIN tmpExams e2 ON e2.ExamName = a1.Col2 '+
|
||
' LEFT JOIN tmpExams e3 ON e3.ExamName = a1.Col3 '+
|
||
' LEFT JOIN tmpExams e4 ON e4.ExamName = a1.Col4 '+
|
||
' LEFT JOIN tmpExams e5 ON e5.ExamName = a1.Col5 '+
|
||
' LEFT JOIN tmpExams e6 ON e6.ExamName = a1.Col6 '},
|
||
[idYear]);
|
||
//xpInformation(sql);
|
||
connect.processor.ExecuteSQL(SQL);
|
||
|
||
SQL :=
|
||
'UPDATE xp_applicant a '+
|
||
' JOIN tmp_rpt_applicant r ON r.xp_key = a.xp_key '+
|
||
'SET a.passed = null, a.ball = null; ';
|
||
connect.processor.ExecuteSQL(SQL);
|
||
SQL :=
|
||
'UPDATE xp_applicant a '+
|
||
' JOIN tmp_rpt_applicant r ON r.xp_key = a.xp_key '+
|
||
'SET a.passed = r.GroupID IN (0,1,2), a.ball = r.ball; ';
|
||
connect.processor.ExecuteSQL(SQL);
|
||
|
||
result := colcount;
|
||
end;
|
||
|
||
|
||
class function TRepApplicantResult.CommandSubClass: string;
|
||
begin
|
||
Result:='applicant_results';
|
||
end;
|
||
|
||
procedure TRepApplicantResult.Prepare;
|
||
var
|
||
SQL: string;
|
||
begin
|
||
inherited Prepare;
|
||
idYear := getInt('year');
|
||
cbStream := getInt('stream');
|
||
UpdateEnrollStatus();
|
||
SQL := format(
|
||
'DROP TABLE IF EXISTS tmp_members; '+
|
||
'CREATE TEMPORARY TABLE tmp_members AS '+
|
||
' SELECT xp_f_get_mid_fio(m.mid,0) as member FROM enroll_comitet c '+
|
||
' JOIN enroll_comitet_members m ON m.enroll_comitet = c.id '+
|
||
'WHERE c.school_year=%0:d AND coalesce(c.stream,0)=%1:d ORDER BY 1; ' ,
|
||
[idYear,cbStream]);
|
||
connect.processor.ExecuteSQL(SQL);
|
||
end;
|
||
|
||
procedure TRepApplicantResult.OnFillVariables(AVariables: TxpMemParamManager);
|
||
var
|
||
i: integer;
|
||
ColSorter: string;
|
||
SQL: string;
|
||
extra_params: array [1..ApplicantExtraParamCnt] of boolean;
|
||
Z2: string;
|
||
separate_enroll: boolean;
|
||
|
||
begin
|
||
ColSorter:='';
|
||
for I := 1 to ColCount do
|
||
AVariables['Grade'+inttostr(i)] := (ColNames[i]);
|
||
for I := ColCount+1 to 12 do
|
||
begin
|
||
ColSorter := ColSorter+ Format('NULL AS Exam%d, ',[i]);
|
||
AVariables['Grade'+inttostr(i)] := ('');
|
||
end;
|
||
for i := 1 to ApplicantExtraParamCnt do
|
||
begin
|
||
extra_params[i] := connect.processor.QueryIntValue(format('SELECT coalesce(%s,0) FROM enroll_params WHERE school_year=%d',[ApplicantExtraFields[i], idYear]))=1;
|
||
if extra_params[i] then
|
||
AVariables['ball_extra_'+inttostr(i)] := 1
|
||
else
|
||
AVariables['ball_extra_'+inttostr(i)] := 0;
|
||
end;
|
||
if (connect.processor.QueryIntValue('SELECT COUNT(*) as cnt FROM tmp_rpt_problems')>0) then
|
||
AVariables['rpt_ready'] := 'ПРЕДВАРИТЕЛЬНЫЕ'#13#10'результаты'
|
||
else
|
||
AVariables['rpt_ready'] := ('Результаты');
|
||
SQL := format(
|
||
'SELECT xp_f_get_mid_fio(c.chairman,0) as chairman , xp_f_get_mid_fio(c.deputy,0) as deputy, xp_f_get_mid_fio(c.deputy2,0) as deputy2, xp_f_get_mid_fio(c.secretary,0) as secretary '+
|
||
'FROM enroll_comitet c WHERE c.school_year = %0:d AND coalesce(c.stream,0)=%1:d; ',
|
||
[idYear,cbStream]);
|
||
with connect.Processor.getData(SQL) do
|
||
try
|
||
if Not eof then
|
||
begin
|
||
AVariables['Председатель'] := (FieldByName('Chairman').AsString);
|
||
AVariables['Заместитель'] := (FieldByName('Deputy').AsString);
|
||
Z2 := FieldByName('Deputy2').AsString;
|
||
AVariables['Секретарь'] := (FieldByName('Secretary').AsString);
|
||
end
|
||
else
|
||
begin
|
||
AVariables['Председатель'] := ('');
|
||
AVariables['Заместитель'] := ('');
|
||
Z2 := '';
|
||
AVariables['Секретарь'] := ('');
|
||
end;
|
||
AVariables['Заместитель2'] := (Z2);
|
||
if Z2<>'' then AVariables['zam2'] := 1 else AVariables['zam2'] := 0;
|
||
finally
|
||
Free;
|
||
end;
|
||
//Variables['Year'] := YearOf(Date);
|
||
AVariables['Year'] := connect.processor.QueryValue('SELECT YEAR(begdate) FROM school_year WHERE xp_key = ' + inttostr(idyear));
|
||
|
||
end;
|
||
Initialization
|
||
TCommandCollection.Register(TRepApplicantResult);
|
||
|
||
end.
|
||
|