82 lines
2.2 KiB
ObjectPascal
82 lines
2.2 KiB
ObjectPascal
unit journal;
|
|
|
|
{$mode ObjFPC}{$H+}
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes, SysUtils,cgiReport,xpMemParamManagerUnit;
|
|
type
|
|
|
|
{ TRepJournal }
|
|
|
|
TRepJournal=class(TReportCommand)
|
|
private
|
|
public
|
|
class function CommandSubClass: string; override;
|
|
procedure Prepare; override;
|
|
procedure OnFillVariables(AVariables: TxpMemParamManager); override;
|
|
end;
|
|
implementation
|
|
uses
|
|
journalscripts,commandcol;
|
|
{ TRepJournal }
|
|
|
|
class function TRepJournal.CommandSubClass: string;
|
|
begin
|
|
Result:='journal';
|
|
end;
|
|
|
|
procedure TRepJournal.Prepare;
|
|
var
|
|
ReportSQL: TSQLScripts48;
|
|
TempStr : string;
|
|
|
|
begin
|
|
inherited;
|
|
|
|
|
|
ReportSQL := TSQLScripts48.Create(self.Processor, GetInt('schoolyear'),
|
|
GetInt('class'),
|
|
GetInt('course'),
|
|
true);
|
|
try
|
|
ReportSQL.OneGroup := '26';
|
|
ReportSQL.TwoGroup := '12';
|
|
ReportSQL.ThreeGroup := '8';
|
|
ReportSQL.FourGroup := '6';
|
|
ReportSQL.PageStart := '1';
|
|
ReportSQL.PageContinue := '';
|
|
|
|
if not (ReportSQL.CreateReport) then
|
|
begin
|
|
//Raise Exception.Create('Ошибка!!!!');;
|
|
Exit;
|
|
end;
|
|
|
|
finally
|
|
ReportSQL.Free;
|
|
end;
|
|
|
|
end;
|
|
|
|
procedure TRepJournal.OnFillVariables(AVariables: TxpMemParamManager);
|
|
begin
|
|
AVariables['ClassName'] := processor.QueryValue(format('select name from group_histrory where gid=%d and school_year=%d',[getInt('class'),getInt('schoolyear')]));
|
|
AVariables['School_Year'] := 'на ' + processor.QueryValue(format('select name from school_year where xp_key=%d',[getInt('schoolyear')]))+' учебный год' + #13#10;
|
|
AVariables['ClassTeacher'] := '';
|
|
AVariables['EmptyReport'] := true;
|
|
AVariables['TermCount'] := Processor.QueryValue('SELECT COUNT(*) FROM tmp_report_journal_SheduleTerms_terms;');
|
|
|
|
AVariables['StartPage'] := 0;
|
|
AVariables['ContinuePage'] := 0;
|
|
AVariables['GOU_Address'] := Processor.QueryValue('select xp_fclear_parasites(CAST(`value` AS CHAR(1000))) as a from options where `name` = ''ResidingTown'';');;
|
|
AVariables['GOU_NAME_Full'] := Processor.QueryValue('SELECT value from options WHERE name like ''GOU_FullName''') + #13#10;
|
|
|
|
end;
|
|
Initialization
|
|
TCommandCollection.Register(TRepJournal);
|
|
|
|
end.
|
|
|