--- dao/DelphiScanner/Main.pas	2016/05/30 20:26:56	3037
+++ dao/DelphiScanner/Main.pas	2016/05/31 11:50:42	3038
@@ -106,6 +106,7 @@
     PanelManglendePakker6: TPanel;
     menuIndlevering: TMenuItem;
     chkForstorTilDirekte: TCheckBox;
+    chkEmballageRepareret: TCheckBox;
 
 
 
@@ -195,6 +196,7 @@
 
 
   //Nedarvet fra IParentForm
+  procedure Msg( msg : string);
   procedure LogMessage( msg : string);
   procedure SetPrinterstatusText( txt: string; alert: boolean);
   function GetFormObject() : TForm;
@@ -2969,7 +2971,8 @@
     SmsKode := '999999';
     DBKbane := '999';
     Leveringssted := 'XXX';
-    PrintLabel(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted, Falsk);
+    LabelPrint.TestZpl();
+    //PrintLabel(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted, Falsk);
     LabelPrint.CheckPrintQue('Test', PrinterNavn);
   end;
   FocusControl(StregkodeST);
@@ -4911,6 +4914,11 @@
 end;
 
 
+//Nedarvet fra IParentForm
+procedure TMainForm.Msg( msg : string);
+begin
+  ShowMessage(msg);
+end;
 
 //Nedarvet fra IParentForm
 procedure TMainForm.LogMessage( msg : string);