--- dao/DelphiScanner/Main.pas	2016/08/19 12:23:37	3092
+++ dao/DelphiScanner/Main.pas	2016/09/22 13:12:23	3117
@@ -20,7 +20,7 @@
   IdExplicitTLSClientServerBase, IdFTP, IdException,
   ShellApi, ClipBrd, Buttons, wininet,
   UITypes,
-  PakkeshopLabels,
+  LabelData,
   Utils,
   ParentForm,
   LabelPrint,
@@ -202,6 +202,9 @@
   procedure LogMessage( msg : string);
   procedure SetPrinterstatusText( txt: string; alert: boolean);
   function GetFormObject() : TForm;
+  function GetXMLDocument() : TXMLDocument;
+    procedure chkEmballageRepareretClick(Sender: TObject);
+    procedure chkUdenforSpecifikationClick(Sender: TObject);
 
 
 
@@ -538,7 +541,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 +1432,41 @@
       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]);
+      //InputBox( '1', '1', URLStr);
+
+      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;
+
+
 
 
     if (PakkeshopText1.Visible = true) and (PakkeshopText1.Caption = 'Stregkode') and menuAutomatiskTjekkodeStyring.Checked then
@@ -1932,7 +1970,7 @@
   pakkestorrelse : String;
   PrintNyLabelInteger : Integer;
 
-  PakkeshopLabel: TPakkeshopLabel;
+  PakkeshopLabel: TLabelData;
 begin
   if radioStorPakke.Checked then
   begin
@@ -2041,7 +2079,7 @@
      if (Kommentar = 'Ok') then
      begin
        PrintNyLabel := True; //Indleveringskode vil ALTID udskrive label
-       PakkeshopLabel := TPakkeshopLabel.Create( XMLDocument1 ); //Opret struct og parse xml doc
+       PakkeshopLabel := TLabelData.Create( XMLDocument1 ); //Opret struct og parse xml doc
        RuteNummer := PakkeshopLabel.Koreliste + '  ->  ' +  PakkeshopLabel.PakkeshopTurid;
        Stregkode := PakkeshopLabel.Stregkode;
 
@@ -2090,13 +2128,13 @@
     begin
       if (Leveringssted <> BladhusStedKode[BladhusSted]) and (BladhusStedKode[BladhusSted] <> 'DBK') then
       begin
-          Kommentar := Kommentar + 'Pakke burde være hos ' + Leveringssted;
+          Kommentar := Kommentar + ' Pakke burde være hos ' + Leveringssted;
           //PrintNyLabel := False; //ved fuld-daekning / X-ruter skal vi altid skrive label alligevel
       end;
     end
     else if (menuDaoDirekte1.Checked) and (Leveringssted <> Sted) And (Leveringssted <> '') then
     begin
-      Kommentar := Kommentar + 'Pakke burde være hos ' + Leveringssted;
+      Kommentar := Kommentar + ' Pakke burde være hos ' + Leveringssted;
       //PrintNyLabel := False;  //ved fuld-daekning / X-ruter skal vi altid skrive label alligevel
     end;
   except on e:exception do
@@ -2198,6 +2236,14 @@
   kontrolKoreliste : string;
   nytRuteNummer, nyFarve : String;
 begin
+  if (PrintNyLabel = True OR chkAltidPrintLabel.Checked = True) then
+  begin
+    LabelPrint.PrintLabel( Stregkode );
+  end;
+
+
+  exit;
+
   if menuDaoDirekte1.Checked then
      RuteNummerST.Color := TUtils.HexToTColor(Farve);
 
@@ -2262,10 +2308,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
@@ -2383,7 +2429,7 @@
       SkrivScanningLogFil(logTekst);
 
       LabelPrint.PrintDaodirekteLabel( RuteNummer, Kommentar, BoghandlerNavn) ;
-      
+
     end;
   end;
 
@@ -2417,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
@@ -2430,6 +2492,8 @@
 
 end;
 
+
+
 procedure TMainForm.chkScanTjekkodeClick(Sender: TObject);
 begin
   if chkScanTjekkode.Checked then
@@ -2814,6 +2878,8 @@
     SmsKode := '999999';
     DBKbane := '999';
     Leveringssted := 'XXX';
+
+
     PrintLabel(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted, Falsk);
     FocusControl(StregkodeST);
   end;
@@ -2831,6 +2897,7 @@
   SmsKode : String;
   DBKbane : String;
   Leveringssted : String;
+  LabelData : TLabelData;
 begin
   RuteNummer := 'Rutenr';
   Kommentar := '***** Kommentar *****';
@@ -2842,18 +2909,30 @@
   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, '');
-    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;
@@ -4857,5 +4936,12 @@
   Result := self;
 end;
 
+//Nedarvet fra IParentForm
+function TMainForm.GetXMLDocument() : TXMLDocument;
+begin
+  Result := XMLDocument1
+end;
+
+
 end.