--- dao/DelphiScanner/Main.pas	2016/08/21 20:51:45	3095
+++ dao/DelphiScanner/Main.pas	2016/08/22 18:27:30	3099
@@ -539,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
@@ -1430,6 +1430,30 @@
       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);
+
+      chkEmballageRepareret.Checked := False;
+    end;
+
+    if (chkUdenforSpecifikation.Checked = True) then
+    begin
+      URLStr := Format(Config.URLUdenforSpecifikation,[Sted,Stregkode]);
+      //ShowMessage( URLStr);
+
+      WebSvar := IdHTTP1.Get(Config.URLUdenforSpecifikation);
+      //ShowMessage( WebSvar );
+
+      chkUdenforSpecifikation.Checked := False;
+      LabelPrint.PrintLabel(Stregkode);
+      exit;   //leave procedure
+    end;
+
+
 
 
     if (PakkeshopText1.Visible = true) and (PakkeshopText1.Caption = 'Stregkode') and menuAutomatiskTjekkodeStyring.Checked then
@@ -2263,10 +2287,10 @@
           logTekst := RightStr(List1Msg, Length(List1Msg)-10);
           SkrivScanningLogFil(logTekst);
 
-          if (Config.PrinterNavn = 'Ingen') then
-          begin
-             PrintNyLabel := false;
-          end;
+//          if (Config.PrinterNavn = 'Ingen') then
+//          begin
+//             PrintNyLabel := false;
+//          end;
 
           if (PrintNyLabel = false) then  // Hvis vi ikke printer label skal vi vise en 'rød skærm' alarm
           begin
@@ -2384,7 +2408,7 @@
       SkrivScanningLogFil(logTekst);
 
       LabelPrint.PrintDaodirekteLabel( RuteNummer, Kommentar, BoghandlerNavn) ;
-      
+
     end;
   end;
 
@@ -2843,10 +2867,10 @@
   begin
     ShowMessage('Der er ikke installeret en printer på denne PC.');
   end
-  else if Config.PrinterNavn = 'Ingen' then
-  begin
-    ShowMessage('Der er fravalgt printer i dette program.');
-  end
+//  else if Config.PrinterNavn = 'Ingen' then //Det giver ikke længere mening at kunne fravælge printer
+//  begin
+//    ShowMessage('Der er fravalgt printer i dette program.');
+//  end
   else
   begin
     UpdateScreen(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, '');