Index: PlanScan/Main.pas
===================================================================
diff -u -r294 -r299
--- PlanScan/Main.pas	(.../Main.pas)	(revision 294)
+++ PlanScan/Main.pas	(.../Main.pas)	(revision 299)
@@ -116,9 +116,6 @@
   fZoekViaDnaCodeResponse: ZoekViaDnaCodeResponse;
   DnaCodes: ArrayOfDnaCodeDnaCode;
 begin
-  UiContext := TUiContext.Create;
-  UiContext.LoginCode := '1513';
-  UiContext.Initialen := 'TSN';
   fZoekViaDnaCodeResponse := TAgent.Create(UiContext).ZoekViaDnaCode(edtZoekInput.Text);
   try
     if fZoekViaDnaCodeResponse.Header.Status = '200' then begin
@@ -139,9 +136,6 @@
   fZoekViaPalletResponse: ZoekViaPalletCodeResponse;
   DnaCodes: ArrayOfDnaCodeDnaCode;
 begin
-  UiContext := TUiContext.Create;
-  UiContext.LoginCode := '1513';
-  UiContext.Initialen := 'TSN';
   fZoekViaPalletResponse := TAgent.Create(UiContext).ZoekViaPalletCode(edtZoekInput.Text);
   try
     if fZoekViaPalletResponse.Header.Status = '200' then begin
@@ -162,9 +156,6 @@
   fZoekViaToeleveringResponse: ZoekViaToeleveringResponse;
   DnaCodes: ArrayOfDnaCodeDnaCode;
 begin
-  UiContext := TUiContext.Create;
-  UiContext.LoginCode := '1513';
-  UiContext.Initialen := 'TSN';
   fZoekViaToeleveringResponse := TAgent.Create(UiContext).ZoekViaToelevering(edtZoekInput.Text);
   try
     if fZoekViaToeleveringResponse.Header.Status = '200' then begin
@@ -182,6 +173,12 @@
 procedure TfmMain.FormCreate(Sender: TObject);
 begin
   UiContext := TUiContext.Create();
+  UiContext.LoginCode := '1513';
+  UiContext.Initialen := 'TSN';
+  if ParamStr(1) <> '' then
+    UiContext.ServerName := Copy(ParamStr(1),Pos('=',ParamStr(1))+1,length(ParamStr(1)))
+  else
+    UiContext.ServerName := 'tve-w10';
   pcMain.ActivePage := tsDnaCodes;
 end;
 
@@ -251,7 +248,6 @@
 
 procedure TfmMain.tsGebruikersShow(Sender: TObject);
 begin
-  UiContext := TUiContext.Create;
   UiContext.LoginCode := '1513';
   UiContext.Initialen := 'TSN';
   ZoekAlleGebruikers();