unit ProScanMain;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, ActnList;

type
  TfmProScanHoofdscherm = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    fInitialen: string;
    fLoginCode: string;
    fHuidigScherm: TForm;
  public
  end;

var
  fmProScanHoofdscherm: TfmProScanHoofdscherm;

implementation

uses
  LoginScherm, GebruikerService;

{$R *.dfm}

procedure TfmProScanHoofdscherm.FormClose(Sender: TObject;
  var Action: TCloseAction);
var
  Service: GebruikerServiceSoap;
  Request: GebruikerAfmeldenRequest;
  Header: RequestHeader;
begin
  inherited;
  Service := GebruikerService.GetGebruikerServiceSoap();

  Request := GebruikerAfmeldenRequest.Create;
  Header := RequestHeader.Create;
  try
    Request.Initialen := fInitialen;
    Request.LoginCode := fLoginCode;
    Header.Initialen := fInitialen;
    Request.Header := Header;

    Service.GebruikerAfmelden(Request);
    ShowMessage(fInitialen+'afgemeld');
  finally
    Request.Free;
  end;
  Application.Terminate;
end;

procedure TfmProScanHoofdscherm.FormCreate(Sender: TObject);
var
  LoginScherm: TfmLoginScherm;
  fModalResult: TModalResult;
begin
  fHuidigScherm := TfmLoginScherm.Create(Self);
  fModalResult := fHuidigScherm.ShowModal;

  while fModalResult <> mrAbort do begin
    if fHuidigScherm.ClassType = TfmLoginScherm then begin
      if fHuidigScherm.ModalResult = mrRetry then begin
        fModalResult := fHuidigScherm.ShowModal;
      end;
      if fHuidigScherm.ModalResult = mrOk then begin
        ShowMessage('volgend scherm');
      end;
    end;
  end;

  Self.Close;
end;

end.