--- dao/DelphiScanner/Main.pas	2016/08/22 21:46:10	3100
+++ 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);
 
 
 
@@ -1443,13 +1445,24 @@
     if (chkUdenforSpecifikation.Checked = True) then
     begin
       URLStr := Format(Config.URLUdenforSpecifikation,[Sted,Stregkode]);
-      //ShowMessage( URLStr);
+      //InputBox( '1', '1', URLStr);
 
-      WebSvar := IdHTTP1.Get(Config.URLUdenforSpecifikation);
-      //ShowMessage( WebSvar );
+      WebSvar := IdHTTP1.Get(URLStr);
+      //InputBox( '2', '2', WebSvar );
 
       chkUdenforSpecifikation.Checked := False;
       LabelPrint.PrintLabel(Stregkode);
+
+      StregkodeST.Caption := '';
+      Stregkode := '';
+
+      RuteNummerST.Caption := '';
+      BoghandlerNavnST.Caption := '';
+      KommentarST.Caption := 'Retur til leverandør';
+
+
+
+
       exit;   //leave procedure
     end;
 
@@ -2450,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
@@ -2463,6 +2492,8 @@
 
 end;
 
+
+
 procedure TMainForm.chkScanTjekkodeClick(Sender: TObject);
 begin
   if chkScanTjekkode.Checked then
@@ -2847,6 +2878,8 @@
     SmsKode := '999999';
     DBKbane := '999';
     Leveringssted := 'XXX';
+
+
     PrintLabel(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted, Falsk);
     FocusControl(StregkodeST);
   end;
@@ -2864,6 +2897,7 @@
   SmsKode : String;
   DBKbane : String;
   Leveringssted : String;
+  LabelData : TLabelData;
 begin
   RuteNummer := 'Rutenr';
   Kommentar := '***** Kommentar *****';
@@ -2882,11 +2916,23 @@
   else
   begin
     UpdateScreen(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, '');
-    SmsKode := '999999';
-    DBKbane := '999';
-    Leveringssted := 'XXX';
-    PrintLabel(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted, Falsk);
+//    SmsKode := '999999';
+//    DBKbane := '999';
+//    Leveringssted := 'XXX';
+//    PrintLabel(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted, Falsk);
+
+
+    LabelData := TLabelData.Create(nil);
+    LabelData.LabelType := 'simpel';
+    LabelData.SimpelLinie1 := '999999';
+    LabelData.SimpelLinie2 := '999';
+    LabelData.SimpelLinie3 := 'xxx';
+    LabelPrint.PrintLabelData(Labeldata);
+
     LabelPrint.CheckPrintQue('Test', Config.PrinterNavn);
+
+    LabelData.Free();
+
   end;
   FocusControl(StregkodeST);
 end;