Prvni verze

_custom/Kdynium/uSvcCustom.pas

@@ -0,0 +1,87 @@
+unit uSvcCustom;
+
+interface
+
+uses
+  System.Generics.Collections,
+  System.SysUtils,
+  JsonDataObjects,
+  uSvc_Base,
+  uCommons,
+  uHeoObj_Base,
+  uHeOObj_Custom;
+
+type
+
+  TKDYPlanLisuService = class(TServiceBase)
+   public
+    function GetAll: TObjectList<TKDYPlanLisu>;
+    function GetByParams(params: TDictionary<string, string>): TObjectList<TKDYPlanLisu>;
+    function GetByID (const AID: integer): TKDYPlanLisu;
+    function GetMeta: TJSONObject;
+  end;
+
+implementation
+
+uses
+  System.StrUtils,
+  FireDAC.Stan.Option,
+  FireDAC.Comp.Client,
+  FireDAC.Stan.Param,
+  MVCFramework.FireDAC.Utils,
+  MVCFramework.DataSet.Utils,
+  MVCFramework.Serializer.Commons,
+  helTabsBIDs;
+
+
+{ TKDYPlanLisuService }
+
+ function TKDYPlanLisuService.GetAll:TObjectList<TKDYPlanLisu>;
+  var lSQL: string;
+  begin
+   lSQL:= 'SELECT ' + GetTabCols('dbo', tblPlanNasazLisu) + ' FROM ' + tblPlanNasazLisu + ' ORDER BY ID';
+   FDM.sqlQry1.Open(lSQL, []);
+   result:= FDM.sqlQry1.AsObjectList<TKDYPlanLisu>;
+   FDM.sqlQry1.Close;
+  end;
+
+
+
+ function TKDYPlanLisuService.GetByParams(params: TDictionary<string, string>): TObjectList<TKDYPlanLisu>;
+  begin
+
+  end;
+
+
+
+ function TKDYPlanLisuService.GetByID (const AID: integer): TKDYPlanLisu;
+  var lSQL: string;
+  begin
+   lSQL:= 'SELECT ' + GetTabCols('dbo', tblPlanNasazLisu) + ' FROM ' + tblPlanNasazLisu + ' WHERE ID=:ID';
+   FDM.sqlQry1.Open(lSQL, [AID]);
+   try
+     if not(FDM.sqlQry1.EOF) then
+       result:= FDM.sqlQry1.AsObject<TKDYPlanLisu>
+     else
+       raise EServiceException.Create('Plán s ID ' + AID.ToString + ' nebyl nalezen.');
+   finally
+    FDM.sqlQry1.Close;
+   end;
+  end;
+
+
+
+ function TKDYPlanLisuService.GetMeta: TJSONObject;
+  var lSQL: string;
+  begin
+   try
+   lSQL:= 'SELECT ' + GetTabCols('dbo', tblPlanNasazLisu) + ' FROM ' + tblPlanNasazLisu + ' WHERE 1=0';
+     FDM.sqlQry1.Open(lSQL);
+     Result := FDM.sqlQry1.MetadataAsJSONObject();
+    finally
+     FDM.sqlQry1.Close;
+   end;
+  end;
+
+
+end.