unit DnaCodeScherm;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, DrieKnoppenScherm, Vcl.ActnList,
  Vcl.StdCtrls, DnaCodeService, Vcl.ExtCtrls, Images, Vcl.Imaging.pngimage, System.StrUtils;

type
  TfmDnaCodeScherm = class(TfmDrieKnoppenScherm)
    lblToeleveringData: TLabel;
    lblScancode: TLabel;
    edtDnaCode: TEdit;
    lblHuidigePalletData: TLabel;
    lblLaatstGescandData: TLabel;
    lblAantalGescand: TLabel;
    lblTotaalAantal: TLabel;
    lblSlash: TLabel;
    imgDirecteLevering: TImage;
    lblScanPallet: TLabel;
    imgWegwerpPallet: TImage;
    btnInfo: TButton;
    imgToelevering: TImage;
    imgPallet: TImage;
    imgLaatstGescand: TImage;
    procedure FormShow(Sender: TObject);
    procedure actPalletExecute(Sender: TObject);
    procedure actHomeExecute(Sender: TObject);
    procedure actAfrondenExecute(Sender: TObject);
    procedure edtDnaCodeKeyPress(Sender: TObject; var Key: Char);
    procedure FormCreate(Sender: TObject);
    procedure btnInfoClick(Sender: TObject);
    procedure FormActivate(Sender: TObject);
  private
    fImagesScherm: TImagesScherm;
    procedure MeldDnaCodeAf();
    procedure ZetToeleveringStatus(Status: DnaCodeStatus; isDirecteLevering: boolean = false);
    procedure ToeleveringDataOphalen();
    procedure VerwerkMogelijkePopups(EersteDnaCode: DnaCode);
    function BepaalAantalLadesOpHuidigePallet: integer;
    function BepaalDirecteLevering: boolean;
    procedure PalletBijwerken(Status: DnaCodeStatus; IsDirecteLevering: boolean);
    procedure ZetIcoontjesBovenaan;
    procedure DrukProboxEtiketAfIndienNodig;
    procedure RondAfKaderdeurDag();
  public
  end;

var
  fmDnaCodeScherm: TfmDnaCodeScherm;

implementation

uses
  UiContext, Agent, CommonFunctions, ProScanMain, Datasnap.DBClient, Data.DB;

{$R *.dfm}

procedure TfmDnaCodeScherm.FormActivate(Sender: TObject);
begin
  inherited;
  ActiveControl := edtDnaCode;
end;

procedure TfmDnaCodeScherm.FormCreate(Sender: TObject);
begin
  inherited;
  fImagesScherm := TImagesScherm.Create(self);
end;

procedure TfmDnaCodeScherm.FormShow(Sender: TObject);
begin
  btnLinksOnder.Action := actPallet;
  btnCentraalOnder.Action := actHome;
  btnRechtsOnder.Action := actAfronden;
  edtDnaCode.Text := '';
  lblHuidigePalletData.Caption := UiContext.Pallet;
  lblToeleveringData.Caption := UiContext.Toelevering;
  lblAantalGescand.Caption := '';
  lblTotaalAantal.Caption := '';
  btnInfo.Visible := false;
  fImagesScherm.ilAlgemeen64.GetIcon(8, imgToelevering.Picture.Icon);
  fImagesScherm.ilAlgemeen64.GetIcon(9, imgPallet.Picture.Icon);
  fImagesScherm.ilAlgemeen64.GetIcon(10, imgLaatstGescand.Picture.Icon);
  fImagesScherm.ilAlgemeen32.GetIcon(4, imgWegwerpPallet.Picture.Icon);
  fImagesScherm.ilAlgemeen32.GetIcon(3, imgDirecteLevering.Picture.Icon);
  if not (UiContext.Toelevering = '') then
    ToeleveringDataOphalen()
  else begin
    imgDirecteLevering.Visible := false;
    imgWegwerpPallet.Visible := false;
  end;
  ZetIcoontjesBovenaan;
  edtDnaCode.SetFocus;
  inherited;
end;

procedure TfmDnaCodeScherm.actHomeExecute(Sender: TObject);
begin
  inherited;
  PostMessage(Self.Handle,WM_Close,0,0);
  (Self.Parent.Parent As TfmProScanHoofdscherm).NavigeerNaar(mrHome);
end;

procedure TfmDnaCodeScherm.actPalletExecute(Sender: TObject);
var
  fAantalLadesOpHuidigePallet: integer;
  fIsDirecteLevering: boolean;
begin
  inherited;
  fAantalLadesOpHuidigePallet := BepaalAantalLadesOpHuidigePallet;
  if fAantalLadesOpHuidigePallet > 0 then begin
     if (UiContext.Modus = modusKAD) or
        ((UiContext.Modus = modusDefault) and (ToonPopupScherm(lblHuidigePalletData.Caption+' volledig?'+#13#10+inttostr(fAantalLadesOpHuidigePallet)+' lades','Ja','Annuleren',14,6,7) = mrYes)) then begin
      fIsDirecteLevering := (UiContext.Modus = modusDefault) and BepaalDirecteLevering;
      if fIsDirecteLevering then begin
        ToonPopupScherm('Directe levering', 'OK','',15,-1,-1,clBlue);
        imgDirecteLevering.Visible := true;
      end;
      PalletBijwerken(DnaCodeStatus.InBuffer,fIsDirecteLevering);
      UiContext.Toelevering := '';
      UiContext.Pallet := '';
      Self.ModalResult := mrPallet;
    end else begin
      Self.ModalResult := mrDnaCode;
    end;
  end;
  PostMessage(Self.Handle,WM_Close,0,0);
  (Self.Parent.Parent As TfmProScanHoofdscherm).NavigeerNaar(Self.ModalResult);
end;

procedure TfmDnaCodeScherm.actAfrondenExecute(Sender: TObject);
var
  fWaarschuwingModalResult: TModalResult;
begin
  inherited;
  if UiContext.Toelevering = '' then
    exit;

  if UiContext.Modus = modusKAD then begin
    RondAfKaderdeurDag();
    UiContext.Toelevering := '';
    UiContext.Pallet := '';
  end else begin
    if lblAantalGescand.Caption = lblTotaalAantal.Caption then begin
      if BepaalDirecteLevering then begin
        ToonPopupScherm('Directe levering', 'OK','',15,-1,-1,clBlue);
        imgDirecteLevering.Visible := true;
      end;
      ZetToeleveringStatus(DnaCodeStatus.InBuffer, BepaalDirecteLevering);
      if Self.ModalResult = mrPallet then begin
        ToonPopupScherm('Toelevering succesvol afgerond','OK','',19,-1,-1,clGreen);
        UiContext.Toelevering := '';
        if System.StrUtils.LeftStr(UiContext.Pallet,3) = 'TBP' then
          DrukProboxEtiketAfIndienNodig;
      end;
    end else begin
      fWaarschuwingModalResult := ToonPopupScherm('Onvolledige toelevering','Scan code','Nieuw',18,11,12);
      if fWaarschuwingModalResult = mrYes then begin
        Self.ModalResult := mrDnaCode;
      end else begin
        fWaarschuwingModalResult := ToonPopupScherm('Nieuwe toelevering starten?','Ja','Nee',14,6,7);
        if fWaarschuwingModalResult = mrYes then begin
          ZetToeleveringStatus(DnaCodeStatus.OnHold);
          Self.ModalResult := mrPallet;
        end;
      end;
    end;
  end;
  PostMessage(Self.Handle,WM_Close,0,0);
  (Self.Parent.Parent As TfmProScanHoofdscherm).NavigeerNaar(Self.ModalResult);
end;

function TfmDnaCodeScherm.BepaalAantalLadesOpHuidigePallet: integer;
var
  fZoekViaPalletCodeResponse: ZoekViaPalletCodeResponse;
begin
  result := 0;

  fZoekViaPalletCodeResponse := TAgent.Create(UiContext).ZoekViaPalletCode(UiContext.Pallet);  //todo: enkel recente dingen
  try
    if fZoekViaPalletCodeResponse.Header.Status = '200' then begin
      result := length(fZoekViaPalletCodeResponse.DnaCodes);
    end else begin
      ToonPopupScherm(fZoekViaPalletCodeResponse.Header.Omschrijving, 'Probeer opnieuw');
      result := 0
    end;
  finally
    fZoekViaPalletCodeResponse.Free;
  end;
end;

function TfmDnaCodeScherm.BepaalDirecteLevering: boolean;
var
  fDirecteLeveringResponse: DirecteLeveringResponse;
begin
  result := false;
  fDirecteLeveringResponse := TAgent.Create(UiContext).IsDirecteLevering(UiContext.Toelevering);
  try
    if fDirecteLeveringResponse.Header.Status = '200' then begin
      result := fDirecteLeveringResponse.IsDirecteLevering;
    end else begin
      ToonPopupScherm(fDirecteLeveringResponse.Header.Omschrijving, 'Probeer opnieuw');
      result := false;
    end;
  finally
    fDirecteLeveringResponse.Free;
  end;
end;

procedure TfmDnaCodeScherm.btnInfoClick(Sender: TObject);
begin
  inherited;
  if UiContext.Toelevering = '' then
    Self.ModalResult := mrDnaCode
  else begin
    UiContext.InfoLogSchermToonGescand := true;
    Self.ModalResult := mrInfoLog;
  end;
  PostMessage(Self.Handle,WM_Close,0,0);
  (Self.Parent.Parent As TfmProScanHoofdscherm).NavigeerNaar(Self.ModalResult);
end;

procedure TfmDnaCodeScherm.edtDnaCodeKeyPress(Sender: TObject; var Key: Char);
begin
  inherited;
  if ord(Key) = VK_RETURN then
  begin
    Key := #0;
    MeldDnaCodeAf;
  end;
end;

procedure TfmDnaCodeScherm.MeldDnaCodeAf;
var
  Response: DnaCodeAfmeldenResponse;
  List: TStrings;
  Locatie: string;
begin
  UiContext.LaatsteDnaCode := edtDnaCode.Text;
  lblLaatstGescandData.Caption := edtDnaCode.Text;

  if UiContext.Modus = modusKAD then begin
    Locatie := UiContext.Pallet;
  end else begin
    Locatie := ''
  end;

  Response := TAgent.Create(UiContext).DnaCodeAfmelden(edtDnaCode.Text,UiContext.Toelevering,UiContext.Pallet,1,Locatie);
  try
    List := TStringList.Create;
    ExtractStrings([':'], [], PChar(Response.Header.Status), List);
    case strtoint(List[0]) of
       200:  begin
               UiContext.Toelevering := Response.DnaCodes[0].Toelevering;
               lblAantalGescand.Caption := IntToStr(Response.AantalReedsGescand);
               lblTotaalAantal.Caption := IntToStr(Response.AantalInToelevering);
               if not UiContext.Modus = modusKAD then
                 btnInfo.Visible := true;
               ZetIcoontjesBovenaan;
               VerwerkMogelijkePopups(Response.DnaCodes[0]);
               Self.ModalResult := mrDnaCode;
             end;
       1005: begin //reeds gescand
               Self.ModalResult := mrDnaCodeReedsGescand;
             end;
       else begin
              Self.ModalResult := mrDnaCode;
              ToonPopupScherm(Response.Header.Omschrijving, 'Probeer opnieuw')
            end;
    end;
  finally
    Response.Free;
  end;
  PostMessage(Self.Handle,WM_Close,0,0);
  (Self.Parent.Parent As TfmProScanHoofdscherm).NavigeerNaar(Self.ModalResult);
end;

procedure TfmDnaCodeScherm.PalletBijwerken(Status: DnaCodeStatus;
  IsDirecteLevering: boolean);
var
  Response: PalletBijwerkenResponse;
begin
  Response := TAgent.Create(UiContext).PalletBijwerken(UiContext.Pallet,Status,IsDirecteLevering);
  try
    if Response.Header.Status <> '200' then begin
      ToonPopupScherm(Response.Header.Omschrijving, 'Probeer opnieuw');
      Self.ModalResult := mrPallet;
    end else begin
      if not (UiContext.Modus = modusKAD) then
        ToonPopupScherm('Pallet '+UiContext.Pallet+' volledig verwerkt','OK','',19,-1,-1,clGreen);
      Self.ModalResult := mrPallet;
    end;
  finally
    Response.Free;
  end;
  PostMessage(Self.Handle,WM_Close,0,0);
  (Self.Parent.Parent As TfmProScanHoofdscherm).NavigeerNaar(Self.ModalResult);
end;

procedure TfmDnaCodeScherm.ToeleveringDataOphalen;
var
  Response: ZoekViaToeleveringResponse;
begin
  Response := TAgent.Create(UiContext).ZoekViaToelevering(UiContext.Toelevering);
  try
    if Response.Header.Status <> '200' then begin
      ToonPopupScherm(Response.Header.Omschrijving, 'Probeer opnieuw')
    end else begin
      UiContext.Toelevering := Response.DnaCodes[0].Toelevering;
      lblAantalGescand.Caption := IntToStr(Response.AantalReedsGescand);
      lblTotaalAantal.Caption := IntToStr(Response.AantalInToelevering);
      if not UiContext.Modus = modusKAD then
         btnInfo.Visible := true;
      ZetIcoontjesBovenaan;
      VerwerkMogelijkePopups(Response.DnaCodes[0]);
      Self.ModalResult := mrDnaCode;
    end;
  finally
    Response.Free;
  end;
end;

procedure TfmDnaCodeScherm.VerwerkMogelijkePopups(EersteDnaCode: DnaCode);
begin
  if EersteDnaCode.IsDirecteLevering then begin
    if not UiContext.IsDirecteLeveringPopupGetoond then begin
      ToonPopupScherm('Directe levering', 'OK','',15,-1,-1,clBlue);
      UiContext.IsDirecteLeveringPopupGetoond := true;
    end;
  end;
  imgDirecteLevering.Visible := EersteDnaCode.IsDirecteLevering;

  if EersteDnaCode.IsWegwerpPallet then begin
    if not UiContext.IsWegwerpPalletPopupGetoond then begin
      ToonPopupScherm('Wegwerppallet', 'OK','',16,-1,-1,clYellow);
      UiContext.IsWegwerpPalletPopupGetoond := true;
    end;
  end;
  imgWegwerpPallet.Visible := EersteDnaCode.IsWegwerpPallet;
  Repaint;
end;

procedure TfmDnaCodeScherm.ZetIcoontjesBovenaan;
begin
  if UiContext.Pallet = '' then begin
     lblHuidigePalletData.Caption := '';
     imgPallet.Visible := false;
  end else begin
     lblHuidigePalletData.Caption := UiContext.Pallet;
     imgPallet.Visible := true;
  end;
  if UiContext.Toelevering = '' then begin
     lblToeleveringData.Caption := '';
     imgToelevering.Visible := false;
  end else begin
     lblToeleveringData.Caption := UiContext.Toelevering;
     imgToelevering.Visible := true;
  end;
  if UiContext.LaatsteDnaCode = '' then begin
     lblLaatstGescandData.Caption := '';
     imgLaatstGescand.Visible := false;
  end else begin
     lblLaatstGescandData.Caption := TCommonFunctions.VerkorteDnaCode(UiContext.LaatsteDnaCode);
     imgLaatstGescand.Visible := true;
  end;
end;

procedure TfmDnaCodeScherm.RondAfKaderdeurDag;
var
  Response: RondAfKaderdeurDagResponse;
  cdsRondAfKaderdeurDag: TClientDataset;
  antwoordlijnTeller: integer;
begin
  Response := TAgent.Create(UiContext).RondAfKaderdeurDag(UiContext.LaatsteDnaCode);
  cdsRondAfKaderdeurDag := TClientDataset.Create(self);
  cdsRondAfKaderdeurDag.FieldDefs.Add('Toelevering',ftString,20);
  cdsRondAfKaderdeurDag.FieldDefs.Add('Nog te scannen',ftInteger);
  try
    cdsRondAfKaderdeurDag.CreateDataSet;
    if Response.Header.Status = '200' then begin
      for antwoordlijnTeller := 0 to System.Length(Response.ToeleveringMetAantallen) -1 do begin
        cdsRondAfKaderdeurDag.InsertRecord([Response.ToeleveringMetAantallen[antwoordlijnTeller].ToeleveringID,
                                            strtoint(Response.ToeleveringMetAantallen[antwoordlijnTeller].AantalKaderdeuren)-strtoint(Response.ToeleveringMetAantallen[antwoordlijnTeller].AantalKaderdeurenGescand)
                                            ]);
      end;
      if System.Length(Response.ToeleveringMetAantallen) > 0 then
        ToonPopupScherm('Onvolledige toelevering(en)','Ok','',0,6,0,$001717CD,cdsRondAfKaderdeurDag);
    end else begin
      ToonPopupScherm(Response.Header.Omschrijving, 'Probeer opnieuw');
    end;
    Self.ModalResult := mrPallet;
  finally
    Response.Free;
  end;
end;

procedure TfmDnaCodeScherm.ZetToeleveringStatus(Status: DnaCodeStatus; isDirecteLevering: boolean = false);
var
  Response: ToeleveringBijwerkenResponse;
begin
  Response := TAgent.Create(UiContext).ToeleveringBijwerken(UiContext.Toelevering,Status,isDirecteLevering);
  try
    if Response.Header.Status <> '200' then begin
      Self.ModalResult := mrDnaCode;
      ToonPopupScherm(Response.Header.Omschrijving, 'Probeer opnieuw')
    end else begin
      Self.ModalResult := mrPallet;
    end;
  finally
    Response.Free;
  end;
end;

procedure TfmDnaCodeScherm.DrukProboxEtiketAfIndienNodig;
var
  fProboxAfdrukkenResponse: ProboxEtiketAfdrukkenResponse;
  fZoekViaPalletCodeResponse: ZoekViaPalletCodeResponse;
  DnaCodesStringList: TStringList;
  DnaCodes: ArrayOfDnaCodeDnaCode;
  ii: integer;
begin
  fZoekViaPalletCodeResponse := TAgent.Create(UiContext).ZoekViaPalletCode(UiContext.Pallet);
  try
    if fZoekViaPalletCodeResponse.Header.Status = '200' then begin
      DnaCodes := fZoekViaPalletCodeResponse.DnaCodes;
    end else begin
      ToonPopupScherm(fZoekViaPalletCodeResponse.Header.Omschrijving, 'Bel planning');
    end;
  finally
    fZoekViaPalletCodeResponse.Free;
  end;

  DnaCodesStringList := TStringList.Create();
  ii := 0;
  while ii < length(DnaCodes)-1 do begin
    DnaCodesStringList.Add(DnaCodes[ii].DnaCode)
  end;

  fProboxAfdrukkenResponse := TAgent.Create(UiContext).ProboxEtiketAfdrukken(DnaCodesStringList);
  try
    if fProboxAfdrukkenResponse.Header.Status <> '200' then begin
      Self.ModalResult := mrDnaCode;
      ToonPopupScherm(fProboxAfdrukkenResponse.Header.Omschrijving, 'Bel planning')
    end else begin
      Self.ModalResult := mrPallet;
    end;
  finally
    fProboxAfdrukkenResponse.Free;
  end;
end;

end.