Changeset 9 for trunk/SpotPrice.pas

Timestamp:

Apr 14, 2026, 12:57:08 PM (2 weeks ago)

Author:

chronos

Message:

• Modified: Loading of spot prices and calculation prices for each EAN.

File:

• trunk/SpotPrice.pas (modified) (10 diffs)

trunk/SpotPrice.pas

@@ -4 +4 @@
 
 uses
-  Classes, SysUtils, Generics.Collections, XML, fphttpclient, opensslsockets,
-  DOM;
+  Classes, SysUtils, Generics.Collections, Generics.Defaults, XML,
+  fphttpclient, opensslsockets, DOM, Common, DateUtils, CsvDocument;
 
 type
@@ -12 +12 @@
   TSpotPrice = record
     Time: TDateTime;
-    Value: Double;
-    class function Create(Time: TDateTime; Value: Double): TSpotPrice; static;
+    Value: Currency;
+    class function Create(Time: TDateTime; Value: Currency): TSpotPrice; static;
     procedure LoadFromXmlNode(Node: TDOMNode);
     procedure SaveToXmlNode(Node: TDOMNode);
@@ -21 +21 @@
 
   TSpotPrices = class(TList<TSpotPrice>)
+  private
+    function FileNameFilter(FileName: string): Boolean;
+    function Comparer(constref Left, Right: TSpotPrice): Integer;
+    procedure LoadSpotReport(FileName: string);
   public
     function GetBlock(var Text: string; StartText, EndText: string): string;
-    procedure LoadSpotPrices(Date: TDate);
+    procedure LoadSpotPricesFromWeb(Date: TDate);
+    procedure Import(Directory: string);
     procedure LoadFromXmlNode(Node: TDOMNode);
     procedure SaveToXmlNode(Node: TDOMNode);
+    function SearchByTime(Time: TDateTime): TSpotPrice;
   end;
 
@@ -31 +37 @@
   SpotPriceName = 'SpotPrice';
   SpotPricesName = 'SpotPrices';
+  DPH = 1.21;
+
 
 implementation
@@ -36 +44 @@
 { TSpotPrice }
 
-class function TSpotPrice.Create(Time: TDateTime; Value: Double): TSpotPrice;
+class function TSpotPrice.Create(Time: TDateTime; Value: Currency): TSpotPrice;
 begin
   Result.Time := Time;
@@ -54 +62 @@
 end;
 
-procedure TSpotPrices.LoadSpotPrices(Date: TDate);
+procedure TSpotPrices.LoadSpotPricesFromWeb(Date: TDate);
 var
   URL: string;
@@ -82 +90 @@
             ValueText := StringReplace(ValueText, 'Kč', '', [rfReplaceAll]).Trim;
             ValueText := StringReplace(ValueText, Chr($c2) + Chr($a0), '', [rfReplaceAll]);
-            Value := StrToInt(ValueText) / 1000;
+            Value := StrToInt(ValueText) / 1000 * DPH;
           end;
 
@@ -94 +102 @@
 end;
 
+function TSpotPrices.FileNameFilter(FileName: string): Boolean;
+begin
+  Result := ExtractFileExt(FileName) = '.csv';
+end;
+
+function TSpotPrices.Comparer(constref Left, Right: TSpotPrice): Integer;
+begin
+  Result := CompareDateTime(Left.Time, Right.Time);
+end;
+
+procedure TSpotPrices.LoadSpotReport(FileName: string);
+var
+  CSVDoc: TCSVDocument;
+  R: Integer;
+  Date, Time: TDateTime;
+  Value: Currency;
+begin
+  CSVDoc := TCSVDocument.Create;
+  try
+    CSVDoc.LoadFromFile(FileName);
+
+    for R := 1 to CSVDoc.RowCount - 1 do begin
+      Date := StrToDate(CSVDoc.Cells[0, R]);
+      Time := Date + StrToTime(Copy(CSVDoc.Cells[1, R], 1, Pos(' ', CSVDoc.Cells[1, R]) - 1));
+      Value := StrToCurr(CSVDoc.Cells[3, R]) / 1000;
+      Add(TSpotPrice.Create(Time, Value));
+    end;
+  finally
+    CSVDoc.Free;
+  end;
+end;
+
+procedure TSpotPrices.Import(Directory: string);
+var
+  Reports: TStringList;
+  I: Integer;
+begin
+  Clear;
+
+  Reports := TStringList.Create;
+  try
+    SearchFiles(Reports, Directory, FileNameFilter);
+    for I := 0 to Reports.Count - 1 do
+      LoadSpotReport(Reports[I]);
+  finally
+    Reports.Free;
+  end;
+
+  Sort(TComparer<TSpotPrice>.Construct(Comparer));
+end;
+
 procedure TSpotPrices.LoadFromXmlNode(Node: TDOMNode);
 var
@@ -117 +176 @@
     Node.AppendChild(Node2);
   end;
+end;
+
+function TSpotPrices.SearchByTime(Time: TDateTime): TSpotPrice;
+var
+  I: Integer;
+begin
+  I := 0;
+  while (I < Count) and (Items[I].Time <> Time) do Inc(I);
+  if I < Count then Result := Items[I]
+    else Result := TSpotPrice.Create(0, 0);
 end;
 
@@ -136 +205 @@
 end;
 
-
 end.