--- dao/DelphiScanner/Main.pas 2016/08/15 19:26:48 3090 +++ dao/DelphiScanner/Main.pas 2016/08/19 12:28:21 3093 @@ -553,6 +553,9 @@ Sted := ReadString('Settings','Sted',''); StedNavn := ReadString('Settings','Stednavn',''); + Scanningtype := 'A'; //hardcoded + Pakketype := '0'; + @@ -2087,21 +2090,14 @@ begin if (Leveringssted <> BladhusStedKode[BladhusSted]) and (BladhusStedKode[BladhusSted] <> 'DBK') then begin - Kommentar := Kommentar + 'Pakke burde være hos ' + Leveringssted; - PrintNyLabel := False; + 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 - if (Leveringssted = 'E') and (Sted = 'DBK') then - begin - // Det er ok at DBK scanner pakker til E (Schenker) - end - else - begin - Kommentar := Kommentar + 'Pakke burde være hos ' + Leveringssted; - PrintNyLabel := False; - end; + 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 raise exception.CreateFmt('Fejl i XML-format: %s',[e.Message]);