--- dao/DelphiScanner/Main.pas	2016/09/21 09:33:45	3116
+++ dao/DelphiScanner/Main.pas	2016/09/22 13:12:23	3117
@@ -203,6 +203,8 @@
   procedure SetPrinterstatusText( txt: string; alert: boolean);
   function GetFormObject() : TForm;
   function GetXMLDocument() : TXMLDocument;
+    procedure chkEmballageRepareretClick(Sender: TObject);
+    procedure chkUdenforSpecifikationClick(Sender: TObject);
 
 
 
@@ -2461,6 +2463,22 @@
 end;
 
 
+procedure TMainForm.chkUdenforSpecifikationClick(Sender: TObject);
+begin
+  if (chkUdenforSpecifikation.Checked = true) then
+  begin
+    chkEmballageRepareret.Checked := false;
+  end;
+end;
+
+procedure TMainForm.chkEmballageRepareretClick(Sender: TObject);
+begin
+  if (chkEmballageRepareret.Checked = true) then
+  begin
+    chkUdenforSpecifikation.Checked := false;
+  end;
+end;
+
 procedure TMainForm.chkAltidPrintLabelClick(Sender: TObject);
 begin
   if chkAltidPrintLabel.Checked then
@@ -2474,6 +2492,8 @@
 
 end;
 
+
+
 procedure TMainForm.chkScanTjekkodeClick(Sender: TObject);
 begin
   if chkScanTjekkode.Checked then