journal

reports/journal.pas

@@ -0,0 +1,81 @@
+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.
+