--- dao/DelphiScanner/Main.pas	2016/08/19 14:35:39	3094
+++ dao/DelphiScanner/Main.pas	2016/08/21 21:56:01	3096
@@ -202,6 +202,7 @@
   procedure LogMessage( msg : string);
   procedure SetPrinterstatusText( txt: string; alert: boolean);
   function GetFormObject() : TForm;
+  function GetXMLDocument() : TXMLDocument;
 
 
 
@@ -538,7 +539,7 @@
 
 // Sætter lige en default panel størrelse
   MainForm.ClientWidth := 1000;
-  MainForm.ClientHeight := 820;
+  MainForm.ClientHeight := 920;
 
   Config := TConfiguration.Create();
   Config.ReadFromInifile( TIniFile.Create(ChangeFileExt(Application.ExeName,'.ini')) );    //ToDo: clean up duplicate ini ref
@@ -1429,6 +1430,17 @@
       end;
     end;
 
+    // EmballageRepareret skal bare sætte reklamationkoden,
+    // og så ellers fortsætte med scanning som normalt
+    if (chkEmballageRepareret.Checked = True) then
+    begin
+      URLStr := Format(Config.UrlEmballageRepareret,[Sted,Stregkode]);
+      WebSvar := IdHTTP1.Get(URLStr);
+      ShowMessage( WebSvar );
+
+      chkEmballageRepareret.Checked := False;
+    end;
+
 
 
     if (PakkeshopText1.Visible = true) and (PakkeshopText1.Caption = 'Stregkode') and menuAutomatiskTjekkodeStyring.Checked then
@@ -4857,5 +4869,12 @@
   Result := self;
 end;
 
+//Nedarvet fra IParentForm
+function TMainForm.GetXMLDocument() : TXMLDocument;
+begin
+  Result := XMLDocument1
+end;
+
+
 end.