/[projects]/dao/DelphiScanner/Main.pas
ViewVC logotype

Diff of /dao/DelphiScanner/Main.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 3092 by torben, Fri Aug 19 12:23:37 2016 UTC revision 3093 by torben, Fri Aug 19 12:28:21 2016 UTC
# Line 2090  begin Line 2090  begin
2090      begin      begin
2091        if (Leveringssted <> BladhusStedKode[BladhusSted]) and (BladhusStedKode[BladhusSted] <> 'DBK') then        if (Leveringssted <> BladhusStedKode[BladhusSted]) and (BladhusStedKode[BladhusSted] <> 'DBK') then
2092        begin        begin
2093            Kommentar := Kommentar + 'Pakke burde være hos ' + Leveringssted;            Kommentar := Kommentar + ' Pakke burde være hos ' + Leveringssted;
2094            //PrintNyLabel := False; //ved fuld-daekning / X-ruter skal vi altid skrive label alligevel            //PrintNyLabel := False; //ved fuld-daekning / X-ruter skal vi altid skrive label alligevel
2095        end;        end;
2096      end      end
2097      else if (menuDaoDirekte1.Checked) and (Leveringssted <> Sted) And (Leveringssted <> '') then      else if (menuDaoDirekte1.Checked) and (Leveringssted <> Sted) And (Leveringssted <> '') then
2098      begin      begin
2099        Kommentar := Kommentar + 'Pakke burde være hos ' + Leveringssted;        Kommentar := Kommentar + ' Pakke burde være hos ' + Leveringssted;
2100        //PrintNyLabel := False;  //ved fuld-daekning / X-ruter skal vi altid skrive label alligevel        //PrintNyLabel := False;  //ved fuld-daekning / X-ruter skal vi altid skrive label alligevel
2101      end;      end;
2102    except on e:exception do    except on e:exception do
Legend:
Removed from v.3092  
changed lines
  Added in v.3093
  ViewVC Help
Powered by ViewVC 1.1.20