harmOpt/DyspozytorskaRegulaHarmonogramowaniaSOPN.pas at master · dariuszseweryn/harmOpt · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
unit DyspozytorskaRegulaHarmonogramowaniaSOPN;

interface

uses
  DyspozytorskaRegulaHarmonogramowania, Etapy, ZlecenieEtap;

type
  TDyspozytorskaRegulaHarmonogramowaniaSOPN = class(TDyspozytorskaRegulaHarmonogramowania)
  public
    function WybierzZEtapy(etapy : TEtapy) : TZlecenieEtap; override;
    function NazwaReguly() : String; override;
  end;

implementation

  function TDyspozytorskaRegulaHarmonogramowaniaSOPN.WybierzZEtapy(etapy: TEtapy) : TZlecenieEtap;
  var
    etapZlecenia : TZlecenieEtap;
    resultSOPN, etapSOPN : TDateTime;
  begin
    Result := nil;
    etapZlecenia := nil;
    for etapZlecenia in etapy do
    begin
      if Result = nil then
      begin
        Result := etapZlecenia;
      end
      else
      begin
        resultSOPN := (Result.daneZlecenia.PLAN_TERMIN_REALIZACJI - CzasHelper.DataCzasZakonczeniaDlaDatyCzasuStartuICzasuTrwania(Result.DataProponowana, Result.CzasWykonaniaNetto)) / IloscPozostalychOperacji(Result);
        etapSOPN := (etapZlecenia.daneZlecenia.PLAN_TERMIN_REALIZACJI - CzasHelper.DataCzasZakonczeniaDlaDatyCzasuStartuICzasuTrwania(etapZlecenia.DataProponowana, etapZlecenia.CzasWykonaniaNetto)) / IloscPozostalychOperacji(etapZlecenia);
        if (resultSOPN > etapSOPN) then
          Result := etapZlecenia;
      end;
    end;
  end;

  function TDyspozytorskaRegulaHarmonogramowaniaSOPN.NazwaReguly;
  begin
    Result := 'S/OPN';
  end;

end.