--- dao/DelphiScanner/Main.pas 2016/08/16 21:06:46 3091 +++ dao/DelphiScanner/Main.pas 2016/08/19 12:23:37 3092 @@ -553,6 +553,9 @@ Sted := ReadString('Settings','Sted',''); StedNavn := ReadString('Settings','Stednavn',''); + Scanningtype := 'A'; //hardcoded + Pakketype := '0'; + @@ -2088,20 +2091,13 @@ if (Leveringssted <> BladhusStedKode[BladhusSted]) and (BladhusStedKode[BladhusSted] <> 'DBK') then begin Kommentar := Kommentar + 'Pakke burde være hos ' + Leveringssted; - PrintNyLabel := False; + //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]);