/[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 2654 by torben, Sun Aug 23 11:00:22 2015 UTC revision 2659 by torben, Sun Aug 23 14:27:39 2015 UTC
# Line 36  type Line 36  type
36      Lukprogrammet1: TMenuItem;      Lukprogrammet1: TMenuItem;
37      N2: TMenuItem;      N2: TMenuItem;
38      N3: TMenuItem;      N3: TMenuItem;
39      RadioButton1: TRadioButton;      radioStorPakke: TRadioButton;
40      RadioButton2: TRadioButton;      radioLillePakke: TRadioButton;
41      N4: TMenuItem;      N4: TMenuItem;
42      Storepakker1: TMenuItem;      Storepakker1: TMenuItem;
43      Smpakker1: TMenuItem;      Smpakker1: TMenuItem;
# Line 77  type Line 77  type
77      PanelValg4: TPanel;      PanelValg4: TPanel;
78      PanelValg5: TPanel;      PanelValg5: TPanel;
79      PanelValg6: TPanel;      PanelValg6: TPanel;
80        PanelValg7: TPanel;
81      Manualgenerel1: TMenuItem;      Manualgenerel1: TMenuItem;
82      StaticTextManglendePakker: TStaticText;      StaticTextManglendePakker: TStaticText;
83      PanelManglendePakker1: TPanel;      PanelManglendePakker1: TPanel;
# Line 85  type Line 86  type
86      PanelManglendePakker4: TPanel;      PanelManglendePakker4: TPanel;
87      PanelManglendePakker5: TPanel;      PanelManglendePakker5: TPanel;
88      PanelManglendePakker6: TPanel;      PanelManglendePakker6: TPanel;
89      PanelValg7: TPanel;  
90    
91    function Explode(var a: TStrArray; Border, S: string): Integer;    function Explode(var a: TStrArray; Border, S: string): Integer;
92    function BarCodeValid (ACode: string): boolean;    function BarCodeValid (ACode: string): boolean;
# Line 113  type Line 114  type
114    procedure FormKeyPress(Sender: TObject; var Key: Char);    procedure FormKeyPress(Sender: TObject; var Key: Char);
115    procedure FormCreate(Sender: TObject);    procedure FormCreate(Sender: TObject);
116    procedure ApplicationEvents1Idle(Sender: TObject; var Done: Boolean);    procedure ApplicationEvents1Idle(Sender: TObject; var Done: Boolean);
117    procedure RadioButton1Click(Sender: TObject);    procedure radioStorPakkeClick(Sender: TObject);
118    procedure RadioButton2Click(Sender: TObject);    procedure radioLillePakkeClick(Sender: TObject);
119    procedure chkSporgEfterKundeClick(Sender: TObject);    procedure chkSporgEfterKundeClick(Sender: TObject);
120    procedure Pakkernormal1Click(Sender: TObject);    procedure Pakkernormal1Click(Sender: TObject);
121    procedure Testforbindelsen1Click(Sender: TObject);    procedure Testforbindelsen1Click(Sender: TObject);
# Line 172  type Line 173  type
173    procedure PanelValg4Click(Sender: TObject);    procedure PanelValg4Click(Sender: TObject);
174    procedure PanelValg5Click(Sender: TObject);    procedure PanelValg5Click(Sender: TObject);
175    procedure PanelValg6Click(Sender: TObject);    procedure PanelValg6Click(Sender: TObject);
176      procedure PanelValg7Click(Sender: TObject);
177    
178    procedure NulstilAutomatiskValg();    procedure NulstilAutomatiskValg();
179    procedure SletLogfiler(Path: string; FileList: TStrings);    procedure SletLogfiler(Path: string; FileList: TStrings);
180    procedure Manualgenerel1Click(Sender: TObject);    procedure Manualgenerel1Click(Sender: TObject);
# Line 179  type Line 182  type
182  // 20150310: start  // 20150310: start
183    procedure RoundCornerOf(Control: TWinControl);    procedure RoundCornerOf(Control: TWinControl);
184    
185      procedure PanelValg7Click(Sender: TObject);  
186  // 20150310: slut  // 20150310: slut
187    
188    private    private
# Line 196  type Line 199  type
199      Scanningtype, TestFunktionen, Pakketype, SporgEfterBoghandler : String;      Scanningtype, TestFunktionen, Pakketype, SporgEfterBoghandler : String;
200      ScanTjekkode : String;      ScanTjekkode : String;
201      ScanTjekkodeAutomatik : string;      ScanTjekkodeAutomatik : string;
202      Farve, FarveNormal, FarveReturDAO, FarveReturBoghandler, FarveBudlevering, FarvePakkeshoplevering, FarveReturPakkeshop : String;      Farve, FarveNormal, FarveReturDAO, FarveReturBoghandler, FarveBudlevering, FarvePakkeshoplevering, FarveReturPakkeshop, FarveIndlevering : String;
203      Titel, TitelNormal, TitelReturDAO, TitelReturBoghandler, TitelBudlevering, TitelPakkeshoplevering, TitelReturPakkeshop : String;      Titel, TitelNormal, TitelReturDAO, TitelReturBoghandler, TitelBudlevering, TitelPakkeshoplevering, TitelReturPakkeshop, TitelIndlevering : String;
204      LabelType : integer;      LabelType : integer;
205      AlarmLyd : String;      AlarmLyd : String;
206      ScannetOkLyd : String;      ScannetOkLyd : String;
# Line 255  type Line 258  type
258      procedure IndlesScanningLogFil();      procedure IndlesScanningLogFil();
259      procedure SkrivScanningLogFil(var tekst : string);      procedure SkrivScanningLogFil(var tekst : string);
260      function TjekKoreliste(var RuteNummer, Koreliste : string) : string;      function TjekKoreliste(var RuteNummer, Koreliste : string) : string;
261        procedure VisAlarmSkaerm(strMessage: string);
262    
263    public    public
264      { Public declarations }      { Public declarations }
# Line 542  begin Line 546  begin
546    Application.ShowHint := True;    Application.ShowHint := True;
547    PrinterstatusStaticText1.Caption := '';    PrinterstatusStaticText1.Caption := '';
548    PrinterstatusStaticText1.Color := MainForm.Color;    PrinterstatusStaticText1.Color := MainForm.Color;
549  // 20150306: start  
550    PakkeshopNulstil.BringToFront;    PakkeshopNulstil.BringToFront;
551  // 20150306: slut  
 // 20150310: start  
552    RoundCornerOf(PanelManglendePakker1);    RoundCornerOf(PanelManglendePakker1);
553    RoundCornerOf(PanelManglendePakker2);    RoundCornerOf(PanelManglendePakker2);
554    RoundCornerOf(PanelManglendePakker3);    RoundCornerOf(PanelManglendePakker3);
555    RoundCornerOf(PanelManglendePakker4);    RoundCornerOf(PanelManglendePakker4);
556    RoundCornerOf(PanelManglendePakker5);    RoundCornerOf(PanelManglendePakker5);
557    RoundCornerOf(PanelManglendePakker6);    RoundCornerOf(PanelManglendePakker6);
558  // 20150310: slut  
559    
560    // Hvis mappen Docs eksisterer kan vi vælge Manual i menuen Hjælp    // Hvis mappen Docs eksisterer kan vi vælge Manual i menuen Hjælp
561    if DirectoryExists('Docs') then    if DirectoryExists('Docs') then
# Line 579  begin Line 582  begin
582      UrlBudlevering := ReadString('Settings','UrlBudlevering','http://omdeling.info/webservices/bogpakkekontrol/bogpakkekontrol.php?sted=%s&pakkenummer=%s&leveringstype=%s&pakkestorrelse=%s');      UrlBudlevering := ReadString('Settings','UrlBudlevering','http://omdeling.info/webservices/bogpakkekontrol/bogpakkekontrol.php?sted=%s&pakkenummer=%s&leveringstype=%s&pakkestorrelse=%s');
583      UrlManglendeScanninger := ReadString('Settings','UrlManglendeScanninger','http://omdeling.info/webservices/bogpakkekontrol/bogpakkemanglendescanninger.php?sted=%s&type=%s');      UrlManglendeScanninger := ReadString('Settings','UrlManglendeScanninger','http://omdeling.info/webservices/bogpakkekontrol/bogpakkemanglendescanninger.php?sted=%s&type=%s');
584      UrlEKLoverforsel := ReadString('Settings','UrlEKLoverforsel','http://omdeling.info/webservices/bogpakkekontrol/bogpakkertilekl.php?sted=%s');      UrlEKLoverforsel := ReadString('Settings','UrlEKLoverforsel','http://omdeling.info/webservices/bogpakkekontrol/bogpakkertilekl.php?sted=%s');
585  // 20150330: start  
586      UrlEKLoverforselPakkeshop := ReadString('Settings','UrlEKLoverforselPakkeshop','http://omdeling.info/webservices/pakkeshop/pakkertilekl.php?sted=%s');      UrlEKLoverforselPakkeshop := ReadString('Settings','UrlEKLoverforselPakkeshop','http://omdeling.info/webservices/pakkeshop/pakkertilekl.php?sted=%s');
587  // 20150330: slut  
588      UrlPakkeshoplevering := ReadString('Settings','UrlPakkeshoplevering','http://omdeling.info/webservices/pakkeshop/pakkekontrol.php?sted=%s&stregkode=%s&tjekkode=%s');      UrlPakkeshoplevering := ReadString('Settings','UrlPakkeshoplevering','http://omdeling.info/webservices/pakkeshop/pakkekontrol.php?sted=%s&stregkode=%s&tjekkode=%s');
589      UrlReturPakkeshop := ReadString('Settings','UrlReturPakkeshop','http://omdeling.info/webservices/pakkeshop/returpakkekontrol.php?sted=%s&stregkode=%s');      UrlReturPakkeshop := ReadString('Settings','UrlReturPakkeshop','http://omdeling.info/webservices/pakkeshop/returpakkekontrol.php?sted=%s&stregkode=%s');
590      UrlPakkeshopManglendeScanninger := ReadString('Settings','UrlPakkeshopManglendeScanninger','http://omdeling.info/webservices/pakkeshop/pakkemanglendescanninger.php?sted=%s');      UrlPakkeshopManglendeScanninger := ReadString('Settings','UrlPakkeshopManglendeScanninger','http://omdeling.info/webservices/pakkeshop/pakkemanglendescanninger.php?sted=%s');
# Line 597  begin Line 600  begin
600      TitelBudlevering := ReadString('Settings','TitelBudlevering','Modtagelse af DAO DIREKTE pakker');      TitelBudlevering := ReadString('Settings','TitelBudlevering','Modtagelse af DAO DIREKTE pakker');
601      FarvePakkeshoplevering := ReadString('Settings','FarvePakkeshoplevering','99FFFF');      FarvePakkeshoplevering := ReadString('Settings','FarvePakkeshoplevering','99FFFF');
602      TitelPakkeshoplevering := ReadString('Settings','TitelPakkeshoplevering','Modtagelse af DAO PAKKESHOP pakker');      TitelPakkeshoplevering := ReadString('Settings','TitelPakkeshoplevering','Modtagelse af DAO PAKKESHOP pakker');
603    
604      FarveReturPakkeshop := ReadString('Settings','FarveReturPakkeshop','99FFCC');      FarveReturPakkeshop := ReadString('Settings','FarveReturPakkeshop','99FFCC');
605      TitelReturPakkeshop := ReadString('Settings','TitelReturPakkeshop','Returforsendelse fra pakkeshop');      TitelReturPakkeshop := ReadString('Settings','TitelReturPakkeshop','Returforsendelse fra pakkeshop');
606    
607        FarveIndlevering := ReadString('Settings', 'FarveIndlevering', 'E5B2CB');
608        TitelIndlevering := ReadString('Settings', 'TitelIndlevering', 'Indleveringskode');
609    
610    
611      SporgEfterBoghandler := ReadString('Settings','SporgEfterBoghandler','0');      SporgEfterBoghandler := ReadString('Settings','SporgEfterBoghandler','0');
612      ScanTjekkode := ReadString('Settings','ScanTjekkode','0');      ScanTjekkode := ReadString('Settings','ScanTjekkode','0');
613      ScanTjekkodeAutomatik := ReadString('Settings','ScanTjekkodeAutomatik','1');      ScanTjekkodeAutomatik := ReadString('Settings','ScanTjekkodeAutomatik','1');
# Line 608  begin Line 617  begin
617      AlarmLyd := ReadString('Settings','AlarmLyd','Sounds\Alarm.wav');      AlarmLyd := ReadString('Settings','AlarmLyd','Sounds\Alarm.wav');
618      ScannetOkLyd := ReadString('Settings','ScannetOkLyd','Sounds\Ok.wav');      ScannetOkLyd := ReadString('Settings','ScannetOkLyd','Sounds\Ok.wav');
619      ScannetOkStorLyd := ReadString('Settings','ScannetOkStorLyd','Sounds\Ok_stor.wav');      ScannetOkStorLyd := ReadString('Settings','ScannetOkStorLyd','Sounds\Ok_stor.wav');
620  // 20150317: start  
621      ScannetOkTilTjekkodeLyd := ReadString('Settings','ScannetOkTilTjekkodeLyd','Sounds\Ok_til_tjekkode.wav');      ScannetOkTilTjekkodeLyd := ReadString('Settings','ScannetOkTilTjekkodeLyd','Sounds\Ok_til_tjekkode.wav');
622  // 20150317: slut  
623      PrinterNavn := ReadString('Settings','PrinterNavn','');      PrinterNavn := ReadString('Settings','PrinterNavn','');
624      TjekPrinter := ReadString('Settings','TjekPrinter','1');      TjekPrinter := ReadString('Settings','TjekPrinter','1');
625      TjekUrls := ReadString('Settings','TjekUrls','2');      TjekUrls := ReadString('Settings','TjekUrls','2');
# Line 829  begin Line 838  begin
838       // her skal vi også disable de menupunkter DBK ikke kan bruge       // her skal vi også disable de menupunkter DBK ikke kan bruge
839        ReturpakkerfraDAO1.Enabled := false;        ReturpakkerfraDAO1.Enabled := false;
840        Returpakkerfraboghandler1.Enabled := false;        Returpakkerfraboghandler1.Enabled := false;
841  // 20150317: start  
842        Pakkeshoplevering1.Enabled := false;        Pakkeshoplevering1.Enabled := false;
843        Returpakkerfrapakkeshop1.Enabled := false;        Returpakkerfrapakkeshop1.Enabled := false;
844  // 20150317: slut  
845        if SpecialVersionScanningtype = 'A' then        if SpecialVersionScanningtype = 'A' then
846        begin        begin
847           Scanningtype := '1';           Scanningtype := '1';
# Line 863  begin Line 872  begin
872        PanelValg6.Enabled := false;        PanelValg6.Enabled := false;
873        PanelValg6.Font.Color := clInactiveCaption;        PanelValg6.Font.Color := clInactiveCaption;
874       // her skal vi også disable de menupunkter Bladhusene (01, 02, 03 og 04) ikke kan bruge       // her skal vi også disable de menupunkter Bladhusene (01, 02, 03 og 04) ikke kan bruge
875  // 20150317: start  
876        Automatiskvalg1.Enabled := false;        Automatiskvalg1.Enabled := false;
877  // 20150317: slut  
878        Pakkernormal1.Enabled := false;        Pakkernormal1.Enabled := false;
879        ReturpakkerfraDAO1.Enabled := false;        ReturpakkerfraDAO1.Enabled := false;
880        Returpakkerfraboghandler1.Enabled := false;        Returpakkerfraboghandler1.Enabled := false;
# Line 1000  begin Line 1009  begin
1009      if Pakketype = '1' then      if Pakketype = '1' then
1010      begin      begin
1011        Storepakker1.Checked := true;        Storepakker1.Checked := true;
1012        RadioButton1.Checked := true;        radioStorPakke.Checked := true;
1013      end      end
1014      else      else
1015      begin      begin
1016        Smpakker1.Checked := true;        Smpakker1.Checked := true;
1017        RadioButton2.Checked := true;        radioLillePakke.Checked := true;
1018      end;      end;
1019    
1020      if TestFunktionen = '1' then      if TestFunktionen = '1' then
# Line 1045  begin Line 1054  begin
1054        ScannetOkStorLyd := '';        ScannetOkStorLyd := '';
1055      end;      end;
1056    
1057  // 20150317: start  
1058      if not FileExists(ScannetOkTilTjekkodeLyd) then      if not FileExists(ScannetOkTilTjekkodeLyd) then
1059      begin      begin
1060        ScannetOkTilTjekkodeLyd := '';        ScannetOkTilTjekkodeLyd := '';
1061      end;      end;
1062  // 20150317: slut  
1063    
1064      if (PrinterNavn <> '') then      if (PrinterNavn <> '') then
1065      begin      begin
# Line 1083  begin Line 1092  begin
1092          InitBladhus();          InitBladhus();
1093        end;        end;
1094    
1095  // 20150310: start  
1096      // Opbygger PanelManglendePakker information      // Opbygger PanelManglendePakker information
1097      gemScanningtype := Scanningtype;      gemScanningtype := Scanningtype;
1098    
# Line 1124  begin Line 1133  begin
1133      end;      end;
1134    
1135      Scanningtype := gemScanningtype;      Scanningtype := gemScanningtype;
 // 20150310: slut  
1136    
1137      SendInfoTilServer(Sted, Scanningtype, 'Begin', '');      SendInfoTilServer(Sted, Scanningtype, 'Begin', '');
1138      SendInfoTilServer(Sted, Scanningtype, 'ProgramVersion', Sto_GetFmtFileVersion('',''));      SendInfoTilServer(Sted, Scanningtype, 'ProgramVersion', Sto_GetFmtFileVersion('',''));
# Line 1145  var Line 1153  var
1153    BoghandlerNavn : String;    BoghandlerNavn : String;
1154    Koreliste : String;    Koreliste : String;
1155    PrintNyLabel : Boolean;    PrintNyLabel : Boolean;
   List1msg : String;  
1156    pakkeErScannet : Integer;    pakkeErScannet : Integer;
1157    pakkeForkertSted : Integer;    pakkeForkertSted : Integer;
1158    tjekkodeMangler : Integer;    tjekkodeMangler : Integer;
# Line 1162  var Line 1169  var
1169    URLStr : String;    URLStr : String;
1170    Pakketype : String;    Pakketype : String;
1171    Pakkescanningtype : String;    Pakkescanningtype : String;
1172      //List1msg : String;
1173    
1174  begin  begin
1175    
# Line 1170  begin Line 1178  begin
1178      ClipboardData := Clipboard.AsText;      ClipboardData := Clipboard.AsText;
1179      numberString := ClipboardData;      numberString := ClipboardData;
1180      Val(numberString, float, errorPos);      Val(numberString, float, errorPos);
1181  // 20150311: start  
1182  //    if (ClipboardData <> '') and (errorPos = 0) then      //    if (ClipboardData <> '') and (errorPos = 0) then
1183      if (ClipboardData <> '') and (errorPos = 0)      if (ClipboardData <> '') and (errorPos = 0)
1184      or (NumberString = 'Nulstil')      or (NumberString = 'Nulstil')
1185      or (NumberString = 'Indtast kundenummer')      or (NumberString = 'Indtast kundenummer')
# Line 1186  begin Line 1194  begin
1194      or (NumberString = 'DAO DIREKTE')      or (NumberString = 'DAO DIREKTE')
1195      or (NumberString = 'DAO PAKKESHOP')      or (NumberString = 'DAO PAKKESHOP')
1196      or (NumberString = 'Retur fra pakkeshop') then      or (NumberString = 'Retur fra pakkeshop') then
1197  // 20150311: slut  
1198      begin      begin
1199        Stregkode := Stregkode + ClipboardData;        Stregkode := Stregkode + ClipboardData;
1200        StregkodeST.Caption := StregKode;        StregkodeST.Caption := StregKode;
# Line 1199  begin Line 1207  begin
1207    
1208    if Key = #13 then     // Enter    if Key = #13 then     // Enter
1209    begin    begin
 // 20150306: start  
1210      if (Length(Trim(Stregkode)) = 0) then      if (Length(Trim(Stregkode)) = 0) then
1211      begin      begin
1212        PlaySound(PWideChar(AlarmLyd));        VisAlarmSkaerm( 'Der skal scannes en stregkode...' );
1213        List1msg := 'Der skal scannes en stregkode...';  
       ListBox1.Items.Insert(0,List1Msg);  
       MainForm.Color := clRed;  
 // 20150316: start  
       RuteNummerST.Caption := '';  
       BoghandlerNavnST.Caption := '';  
 // 20150316: slut  
       KommentarST.Caption := List1msg;  
       PakkeshopNulstil.Visible := true;  
1214        exit;        exit;
1215      end;      end;
 // 20150306: slut  
1216    
 // 20150311: start  
1217      if StregKode = 'Nulstil' then      if StregKode = 'Nulstil' then
1218      begin      begin
1219         PakkeshopNulstil.Click();         PakkeshopNulstil.Click();
# Line 1225  begin Line 1222  begin
1222    
1223      if PakkeshopNulstil.Visible then      if PakkeshopNulstil.Visible then
1224      begin      begin
1225         PlaySound(PWideChar(AlarmLyd));        VisAlarmSkaerm( 'HUSK at klikke Nulstil før ny scanning...' );
1226  // 20150312: start  
 //       List1msg := 'HUSK at trykke Nulstil før ny scanning...';  
        List1msg := 'HUSK at klikke Nulstil før ny scanning...';  
 // 20150312: slut  
        ListBox1.Items.Insert(0,List1Msg);  
        MainForm.Color := clRed;  
        KommentarST.Caption := List1msg;  
 // 20150312: start  
        Stregkode := '';  
        StregkodeST.Caption := StregKode;  
 // 20150312: slut  
1227         exit;         exit;
1228      end;      end;
1229    
1230      if StregKode = 'Lille pakke' then      if StregKode = 'Lille pakke' then
1231      begin      begin
1232         if RadioButton2.Enabled = true then         if radioLillePakke.Enabled = true then
1233         begin         begin
1234            InitLillePakke();            InitLillePakke();
1235         end         end
1236         else         else
1237         begin         begin
1238          //ShowMessage('Ændring ikke tilladt');            VisAlarmSkaerm( Stregkode + ' kan ikke vælges på dette scanningsted' );
         // Her skal komme en 'rød skærm' alarm  
          PlaySound(PWideChar(AlarmLyd));  
          List1msg := Stregkode + ' kan ikke vælges på dette scanningsted';  
          ListBox1.Items.Insert(0,List1Msg);  
          MainForm.Color := clRed;  
 // 20150316: start  
          RuteNummerST.Caption := '';  
          BoghandlerNavnST.Caption := '';  
 // 20150316: slut  
          KommentarST.Caption := List1msg;  
          PakkeshopNulstil.Visible := true;  
1239         end;         end;
1240         Stregkode := '';         Stregkode := '';
1241         StregkodeST.Caption := StregKode;         StregkodeST.Caption := StregKode;
# Line 1268  begin Line 1244  begin
1244    
1245      if StregKode = 'Stor pakke' then      if StregKode = 'Stor pakke' then
1246      begin      begin
1247         if RadioButton1.Enabled = true then         if radioStorPakke.Enabled = true then
1248         begin         begin
1249            InitStorPakke();            InitStorPakke();
1250         end         end
1251         else         else
1252         begin         begin
1253          //ShowMessage('Ændring ikke tilladt');            VisAlarmSkaerm( Stregkode + ' kan ikke vælges på dette scanningsted' );
         // Her skal komme en 'rød skærm' alarm  
          PlaySound(PWideChar(AlarmLyd));  
          List1msg := Stregkode + ' kan ikke vælges på dette scanningsted';  
          ListBox1.Items.Insert(0,List1Msg);  
          MainForm.Color := clRed;  
 // 20150316: start  
          RuteNummerST.Caption := '';  
          BoghandlerNavnST.Caption := '';  
 // 20150316: slut  
          KommentarST.Caption := List1msg;  
          PakkeshopNulstil.Visible := true;  
1254         end;         end;
1255         Stregkode := '';         Stregkode := '';
1256         StregkodeST.Caption := StregKode;         StregkodeST.Caption := StregKode;
# Line 1307  begin Line 1272  begin
1272         end         end
1273         else         else
1274         begin         begin
1275          //ShowMessage('Ændring ikke tilladt');            VisAlarmSkaerm( Stregkode + ' kan ikke vælges på dette scanningsted' );
         // Her skal komme en 'rød skærm' alarm  
          PlaySound(PWideChar(AlarmLyd));  
          List1msg := Stregkode + ' kan ikke vælges på dette scanningsted';  
          ListBox1.Items.Insert(0,List1Msg);  
          MainForm.Color := clRed;  
 // 20150316: start  
          RuteNummerST.Caption := '';  
          BoghandlerNavnST.Caption := '';  
 // 20150316: slut  
          KommentarST.Caption := List1msg;  
          PakkeshopNulstil.Visible := true;  
1276         end;         end;
1277         Stregkode := '';         Stregkode := '';
1278         StregkodeST.Caption := StregKode;         StregkodeST.Caption := StregKode;
# Line 1340  begin Line 1294  begin
1294        end        end
1295        else        else
1296        begin        begin
1297          //ShowMessage('Ændring ikke tilladt');            VisAlarmSkaerm( Stregkode + ' kan ikke vælges på dette scanningsted' );
         // Her skal komme en 'rød skærm' alarm  
          PlaySound(PWideChar(AlarmLyd));  
          List1msg := Stregkode + ' kan ikke vælges på dette scanningsted';  
          ListBox1.Items.Insert(0,List1Msg);  
          MainForm.Color := clRed;  
 // 20150316: start  
          RuteNummerST.Caption := '';  
          BoghandlerNavnST.Caption := '';  
 // 20150316: slut  
          KommentarST.Caption := List1msg;  
          PakkeshopNulstil.Visible := true;  
1298        end;        end;
1299        Stregkode := '';        Stregkode := '';
1300        StregkodeST.Caption := StregKode;        StregkodeST.Caption := StregKode;
# Line 1366  begin Line 1309  begin
1309         end         end
1310         else         else
1311         begin         begin
1312          //ShowMessage('Ændring ikke tilladt');            VisAlarmSkaerm(Stregkode + ' kan ikke vælges på dette scanningsted');
         // Her skal komme en 'rød skærm' alarm  
          PlaySound(PWideChar(AlarmLyd));  
          List1msg := Stregkode + ' kan ikke vælges på dette scanningsted';  
          ListBox1.Items.Insert(0,List1Msg);  
          MainForm.Color := clRed;  
 // 20150316: start  
          RuteNummerST.Caption := '';  
          BoghandlerNavnST.Caption := '';  
 // 20150316: slut  
          KommentarST.Caption := List1msg;  
          PakkeshopNulstil.Visible := true;  
1313         end;         end;
1314         Stregkode := '';         Stregkode := '';
1315         StregkodeST.Caption := StregKode;         StregkodeST.Caption := StregKode;
1316         exit;         exit;
1317      end;      end;
1318    
1319  // 20150323: start  
 //    if StregKode = 'DAO NAT X-PRESS' then  
1320      if (StregKode = 'DAO NAT X-PRESS' ) or (StregKode = 'DAO NAT X+PRESS') then      if (StregKode = 'DAO NAT X-PRESS' ) or (StregKode = 'DAO NAT X+PRESS') then
 // 20150323: slut  
1321      begin      begin
1322         if (PanelValg1.Enabled = true) then         if (PanelValg1.Enabled = true) then
1323         begin         begin
# Line 1395  begin Line 1325  begin
1325         end         end
1326         else         else
1327         begin         begin
1328          //ShowMessage('Ændring ikke tilladt');          VisAlarmSkaerm(Stregkode + ' kan ikke vælges på dette scanningsted');
         // Her skal komme en 'rød skærm' alarm  
          PlaySound(PWideChar(AlarmLyd));  
          List1msg := Stregkode + ' kan ikke vælges på dette scanningsted';  
          ListBox1.Items.Insert(0,List1Msg);  
          MainForm.Color := clRed;  
 // 20150316: start  
          RuteNummerST.Caption := '';  
          BoghandlerNavnST.Caption := '';  
 // 20150316: slut  
          KommentarST.Caption := List1msg;  
          PakkeshopNulstil.Visible := true;  
1329         end;         end;
1330         Stregkode := '';         Stregkode := '';
1331         StregkodeST.Caption := StregKode;         StregkodeST.Caption := StregKode;
# Line 1421  begin Line 1340  begin
1340         end         end
1341         else         else
1342         begin         begin
1343          //ShowMessage('Ændring ikke tilladt');            VisAlarmSkaerm( Stregkode + ' kan ikke vælges på dette scanningsted' );
         // Her skal komme en 'rød skærm' alarm  
          PlaySound(PWideChar(AlarmLyd));  
          List1msg := Stregkode + ' kan ikke vælges på dette scanningsted';  
          ListBox1.Items.Insert(0,List1Msg);  
          MainForm.Color := clRed;  
 // 20150316: start  
          RuteNummerST.Caption := '';  
          BoghandlerNavnST.Caption := '';  
 // 20150316: slut  
          KommentarST.Caption := List1msg;  
          PakkeshopNulstil.Visible := true;  
1344         end;         end;
1345         Stregkode := '';         Stregkode := '';
1346         StregkodeST.Caption := StregKode;         StregkodeST.Caption := StregKode;
# Line 1447  begin Line 1355  begin
1355         end         end
1356         else         else
1357         begin         begin
1358          //ShowMessage('Ændring ikke tilladt');            VisAlarmSkaerm( Stregkode + ' kan ikke vælges på dette scanningsted' );
         // Her skal komme en 'rød skærm' alarm  
          PlaySound(PWideChar(AlarmLyd));  
          List1msg := Stregkode + ' kan ikke vælges på dette scanningsted';  
          ListBox1.Items.Insert(0,List1Msg);  
          MainForm.Color := clRed;  
 // 20150316: start  
          RuteNummerST.Caption := '';  
          BoghandlerNavnST.Caption := '';  
 // 20150316: slut  
          KommentarST.Caption := List1msg;  
          PakkeshopNulstil.Visible := true;  
1359         end;         end;
1360         Stregkode := '';         Stregkode := '';
1361         StregkodeST.Caption := StregKode;         StregkodeST.Caption := StregKode;
# Line 1473  begin Line 1370  begin
1370         end         end
1371         else         else
1372         begin         begin
1373          //ShowMessage('Ændring ikke tilladt');            VisAlarmSkaerm( Stregkode + ' kan ikke vælges på dette scanningsted' );
         // Her skal komme en 'rød skærm' alarm  
          PlaySound(PWideChar(AlarmLyd));  
          List1msg := Stregkode + ' kan ikke vælges på dette scanningsted';  
          ListBox1.Items.Insert(0,List1Msg);  
          MainForm.Color := clRed;  
 // 20150316: start  
          RuteNummerST.Caption := '';  
          BoghandlerNavnST.Caption := '';  
 // 20150316: slut  
          KommentarST.Caption := List1msg;  
          PakkeshopNulstil.Visible := true;  
1374         end;         end;
1375         Stregkode := '';         Stregkode := '';
1376         StregkodeST.Caption := StregKode;         StregkodeST.Caption := StregKode;
# Line 1499  begin Line 1385  begin
1385         end         end
1386         else         else
1387         begin         begin
1388          //ShowMessage('Ændring ikke tilladt');            VisAlarmSkaerm( Stregkode + ' kan ikke vælges på dette scanningsted' );
         // Her skal komme en 'rød skærm' alarm  
          PlaySound(PWideChar(AlarmLyd));  
          List1msg := Stregkode + ' kan ikke vælges på dette scanningsted';  
          ListBox1.Items.Insert(0,List1Msg);  
          MainForm.Color := clRed;  
 // 20150316: start  
          RuteNummerST.Caption := '';  
          BoghandlerNavnST.Caption := '';  
 // 20150316: slut  
          KommentarST.Caption := List1msg;  
          PakkeshopNulstil.Visible := true;  
1389         end;         end;
1390         Stregkode := '';         Stregkode := '';
1391         StregkodeST.Caption := StregKode;         StregkodeST.Caption := StregKode;
# Line 1525  begin Line 1400  begin
1400         end         end
1401         else         else
1402         begin         begin
1403          //ShowMessage('Ændring ikke tilladt');            VisAlarmSkaerm( Stregkode + ' kan ikke vælges på dette scanningsted' );
         // Her skal komme en 'rød skærm' alarm  
          PlaySound(PWideChar(AlarmLyd));  
          List1msg := Stregkode + ' kan ikke vælges på dette scanningsted';  
          ListBox1.Items.Insert(0,List1Msg);  
          MainForm.Color := clRed;  
 // 20150316: start  
          RuteNummerST.Caption := '';  
          BoghandlerNavnST.Caption := '';  
 // 20150316: slut  
          KommentarST.Caption := List1msg;  
          PakkeshopNulstil.Visible := true;  
1404         end;         end;
1405         Stregkode := '';         Stregkode := '';
1406         StregkodeST.Caption := StregKode;         StregkodeST.Caption := StregKode;
1407         exit;         exit;
1408      end;      end;
1409  // 20150311: slut  
1410    
1411      if (Length(Stregkode) > 8) then      if (Length(Stregkode) > 8) then
1412      begin      begin
# Line 1597  begin Line 1461  begin
1461          or (Pakkescanningtype = '5') and (PanelValg5.Enabled = false)          or (Pakkescanningtype = '5') and (PanelValg5.Enabled = false)
1462          or (Pakkescanningtype = '6') and (PanelValg6.Enabled = false)  ) then          or (Pakkescanningtype = '6') and (PanelValg6.Enabled = false)  ) then
1463      begin   // Her skal komme en alarm og rød skærm      begin   // Her skal komme en alarm og rød skærm
1464         PlaySound(PWideChar(AlarmLyd));          VisAlarmSkaerm( Stregkode + ' kan ikke vælges på dette scanningsted' );
1465         List1msg := 'Pakketype ' + Pakketype + ' kan ikke scannes på dette scanningsted';  
        ListBox1.Items.Insert(0,List1Msg);  
        MainForm.Color := clRed;  
 // 20150316: start  
        RuteNummerST.Caption := '';  
        BoghandlerNavnST.Caption := '';  
 // 20150316: slut  
        KommentarST.Caption := List1msg;  
        PakkeshopNulstil.Visible := true;  
 // 20150311: start  
        StregKode := '';  
        StregkodeST.Caption := StregKode;  
 // 20150311: slut  
1466         exit;         exit;
1467      end;      end;
1468    
# Line 1626  begin Line 1478  begin
1478              end;              end;
1479            end            end
1480        // Retur kan ikke scannes med 'Automatisk valg'        // Retur kan ikke scannes med 'Automatisk valg'
1481  (*  
       else if Pakketype = 'NatXpressReturDAO' then  
           begin  
             if Scanningtype <> '2' then  
             begin  
               Scanningtype := '2';  
               InitReturFraDao();  
             end;  
           end  
       else if Pakketype = 'NatXpressReturKunde' then  
           begin  
             if Scanningtype <> '3' then  
             begin  
               Scanningtype := '3';  
               InitReturFraKunde();  
             end;  
           end  
 *)  
1482        else if Pakketype = 'Direkte' then        else if Pakketype = 'Direkte' then
1483            begin            begin
1484              if Scanningtype <> '4' then              if Scanningtype <> '4' then
# Line 1661  begin Line 1496  begin
1496              end;              end;
1497            end            end
1498        // Retur kan ikke scannes med 'Automatisk valg'        // Retur kan ikke scannes med 'Automatisk valg'
1499  (*  
       else if Pakketype = 'PakkeshopRetur' then  
           begin  
             if Scanningtype <> '6' then  
             begin  
               Scanningtype := '6';  
               InitReturFraPakkeshop();  
             end;  
           end  
 *)  
1500        else        else
1501            begin   // Her skal komme en alarm og rød skærm            begin
1502               PlaySound(PWideChar(AlarmLyd));            // Her skal komme en alarm og rød skærm
1503               List1msg := 'Pakken kan ikke scannes med automatisk valg';              VisAlarmSkaerm( Stregkode + ' kan ikke vælges på dette scanningsted' );
1504               ListBox1.Items.Insert(0,List1Msg);  
              MainForm.Color := clRed;  
 // 20150316: start  
              RuteNummerST.Caption := '';  
              BoghandlerNavnST.Caption := '';  
 // 20150316: slut  
              KommentarST.Caption := List1msg;  
              PakkeshopNulstil.Visible := true;  
 // 20150311: start  
              StregKode := '';  
              StregkodeST.Caption := StregKode;  
 // 20150311: slut  
1505               exit;               exit;
1506            end;            end;
1507        Stregkode := GemStregkode;        Stregkode := GemStregkode;
1508      end      end
1509      else if Automatiskvalg1.Checked and (PakkeshopText1.Caption = 'Stregkode') then      else if Automatiskvalg1.Checked and (PakkeshopText1.Caption = 'Stregkode') then
1510      begin      begin
1511        PlaySound(PWideChar(AlarmLyd));        VisAlarmSkaerm( 'Pakkenummer ikke gyldigt (for kort)' );
1512        List1msg := 'Pakkenummer ikke gyldigt (for kort)';  
       ListBox1.Items.Insert(0,List1Msg);  
       MainForm.Color := clRed;  
 // 20150316: start  
       RuteNummerST.Caption := '';  
       BoghandlerNavnST.Caption := '';  
 // 20150316: slut  
       KommentarST.Caption := List1msg;  
       PakkeshopNulstil.Visible := true;  
 // 20150312: start  
       StregKode := '';  
       StregkodeST.Caption := StregKode;  
 // 20150312: slut  
1513        exit;        exit;
1514      end;      end;
1515    
# Line 1714  begin Line 1517  begin
1517      begin      begin
1518        if ( (Pakkescanningtype <> Scanningtype) and (Scanningtype <> '2') and (Scanningtype <> '3') ) then        if ( (Pakkescanningtype <> Scanningtype) and (Scanningtype <> '2') and (Scanningtype <> '3') ) then
1519        begin        begin
         PlaySound(PWideChar(AlarmLyd));  
         List1msg := 'Pakke findes som pakketype: ' + Pakketype;  
         ListBox1.Items.Insert(0,List1Msg);  
         MainForm.Color := clRed;  
 // 20150316: start  
          RuteNummerST.Caption := '';  
          BoghandlerNavnST.Caption := '';  
 // 20150316: slut  
         KommentarST.Caption := List1msg;  
         PakkeshopNulstil.Visible := true;  
 // 20150312: start  
         StregKode := '';  
         StregkodeST.Caption := StregKode;  
 // 20150312: slut  
         exit;  
       end;  
     end;  
   
 // 20150311: start  
 (*  
     if StregKode = 'Nulstil' then  
     begin  
        PakkeshopNulstil.Click();  
        exit;  
     end;  
   
     if PakkeshopNulstil.Visible then  
     begin  
        PlaySound(PWideChar(AlarmLyd));  
        List1msg := 'HUSK at trykke Nulstil før ny scanning...';  
        ListBox1.Items.Insert(0,List1Msg);  
        MainForm.Color := clRed;  
        KommentarST.Caption := List1msg;  
        exit;  
     end;  
   
     if StregKode = 'Lille pakke' then  
     begin  
        InitLillePakke();  
        exit;  
     end;  
1520    
1521      if StregKode = 'Stor pakke' then          VisAlarmSkaerm( 'Pakke findes som pakketype: ' + Pakketype );
     begin  
        InitStorPakke();  
        exit;  
     end;  
1522    
1523      if StregKode = 'Indtast kundenummer' then          exit;
1524      begin        end;
        if (CheckBox1.State = cbChecked) then  
        begin  
         CheckBox1.State := cbUnchecked;  
        end  
        else  
        begin  
         CheckBox1.State := cbChecked;  
        end;  
        Stregkode := '';  
        exit;  
1525      end;      end;
1526    
     if (Stregkode = 'Scan tjekkode') or (PakkeshopStregkode = 'Scan tjekkode') or (BoghandlerStregkode = 'Scan tjekkode') then  
     begin  
        if (CheckBox3.State = cbChecked) then  
        begin  
         CheckBox3.State := cbUnchecked;  
        end  
        else  
        begin  
         CheckBox3.State := cbChecked;  
        end;  
        Stregkode := '';  
        exit;  
     end;  
 *)  
 // 20150311: slut  
1527    
1528    
1529      if (PakkeshopText1.Visible = true) and (PakkeshopText1.Caption = 'Stregkode') and Automatisktjekkodestyring1.Checked then      if (PakkeshopText1.Visible = true) and (PakkeshopText1.Caption = 'Stregkode') and Automatisktjekkodestyring1.Checked then
# Line 1836  begin Line 1569  begin
1569              PakkeshopStregkode := Stregkode;              PakkeshopStregkode := Stregkode;
1570              BoghandlerStregkode := Stregkode;              BoghandlerStregkode := Stregkode;
1571              PakkeshopText1.Caption := 'Tjekkode';              PakkeshopText1.Caption := 'Tjekkode';
1572  // 20150317: start  
1573              PlaySound(PWideChar(ScannetOkTilTjekkodeLyd));              PlaySound(PWideChar(ScannetOkTilTjekkodeLyd));
1574  // 20150317: slut  
1575             end             end
1576            else            else
1577             begin             begin
1578                List1msg := 'Du skal scanne en stregkode';                VisAlarmSkaerm( 'Du skal scanne en stregkode' );
               ListBox1.Items.Insert(0,List1Msg);  
               //logTekst := RightStr(List1Msg, Length(List1Msg)-10);  
               //SkrivScanningLogFil(logTekst);  
               PlaySound(PWideChar(AlarmLyd));  
               PakkeshopNulstil.Visible := true;  
               MainForm.Color := clRed;  
1579             end;             end;
1580            Stregkode := '';            Stregkode := '';
1581            InitScreen();            InitScreen();
# Line 1869  begin Line 1596  begin
1596          else          else
1597           begin           begin
1598                if (PakkeshopLevering1.Checked) then                if (PakkeshopLevering1.Checked) then
1599                  List1msg := 'Du skal scanne en tjekkode til stregkode ' + PakkeshopStregkode;                  VisAlarmSkaerm('Du skal scanne en tjekkode til stregkode ' + PakkeshopStregkode);
1600                if (Pakkernormal1.Checked) then                if (Pakkernormal1.Checked) then
1601                  List1msg := 'Du skal scanne en tjekkode til stregkode ' + BoghandlerStregkode;                  VisAlarmSkaerm('Du skal scanne en tjekkode til stregkode ' + BoghandlerStregkode);
1602                KommentarST.Caption := List1msg;                  
               ListBox1.Items.Insert(0,List1Msg);  
               //logTekst := RightStr(List1Msg, Length(List1Msg)-10);  
               //SkrivScanningLogFil(logTekst);  
               PlaySound(PWideChar(AlarmLyd));  
               PakkeshopNulstil.Visible := true;  
               MainForm.Color := clRed;  
 // 20150323: start  
1603                StregKode := '';                StregKode := '';
1604                StregkodeST.Caption := StregKode;                StregkodeST.Caption := StregKode;
 // 20150323: slut  
1605                exit;                exit;
1606           end;           end;
1607          Stregkode := '';          Stregkode := '';
# Line 1960  begin Line 1679  begin
1679            end            end
1680            else if Copy(Kommentar,1,8) = 'OPRETTET' then            else if Copy(Kommentar,1,8) = 'OPRETTET' then
1681            begin            begin
1682              List1msg := 'Pakke ' + PakkeshopStregkode + ' skal gemmes på lager indtil data modtages';              VisAlarmSkaerm( 'Pakke ' + PakkeshopStregkode + ' skal gemmes på lager indtil data modtages' );
             ListBox1.Items.Insert(0,List1Msg);  
             MainForm.Color := clRed;  
             PlaySound(PWideChar(AlarmLyd));  
             PakkeshopNulstil.Visible := true;  
1683            end            end
1684            else if Kommentar = StregKode then    // budlevering  til 'Ukendt tur'            else if Kommentar = StregKode then    // budlevering  til 'Ukendt tur'
1685            begin            begin
# Line 1977  begin Line 1692  begin
1692            end;            end;
1693           if not PakkeshopNulstil.Visible then           if not PakkeshopNulstil.Visible then
1694            begin            begin
1695  // 20150310: start  
 //            SletStregkodelinieFraListboks2(StregKode);  
 // 20150310: slut  
1696              If (Budlevering1.Checked) then              If (Budlevering1.Checked) then
1697              begin              begin
1698                if Storepakker1.Checked then                if Storepakker1.Checked then
# Line 1993  begin Line 1706  begin
1706                InitLillePakke();                InitLillePakke();
1707              end;              end;
1708            end;            end;
1709  // 20150310: start  
1710            SletStregkodelinieFraListboks2(StregKode);            SletStregkodelinieFraListboks2(StregKode);
1711  // 20150310: slut  
1712            PakkeshopStregkode := '';            PakkeshopStregkode := '';
1713            PakkeshopTjekkode := '';            PakkeshopTjekkode := '';
1714            BoghandlerStregkode := '';            BoghandlerStregkode := '';
# Line 2026  begin Line 1739  begin
1739    
1740    Key := #0;    Key := #0;
1741    
1742  end;  end; //End of OnKeyPress
1743    
1744  procedure TMainForm.SendInfoTilServer(Sted, Scanningtype, Infotype, Info : String);  procedure TMainForm.SendInfoTilServer(Sted, Scanningtype, Infotype, Info : String);
1745  const  const
# Line 2063  end; Line 1776  end;
1776    
1777  procedure TMainForm.SletStregkodelinieFraListboks2(StregKode : String);  procedure TMainForm.SletStregkodelinieFraListboks2(StregKode : String);
1778  var  var
 // 20150309: start  
 //  i:integer;  
1779    i : Integer;    i : Integer;
1780    wrkAntal : String;    wrkAntal : String;
1781    wrkAntalIdag, wrkAntalSenere : Integer;    wrkAntalIdag, wrkAntalSenere : Integer;
1782  // 20150309: slut  
1783    
1784  begin  begin
1785      if Budlevering1.Checked or Pakkeshoplevering1.Checked or Returpakkerfrapakkeshop1.Checked or Pakkernormal1.Checked then      if Budlevering1.Checked or Pakkeshoplevering1.Checked or Returpakkerfrapakkeshop1.Checked or Pakkernormal1.Checked then
# Line 2076  begin Line 1787  begin
1787        for i := ListBox2.items.count-1 downto 0 do        for i := ListBox2.items.count-1 downto 0 do
1788          if pos(StregKode,ListBox2.items[i]) <> 0 then          if pos(StregKode,ListBox2.items[i]) <> 0 then
1789          begin          begin
1790  // 20150309: start  
1791            // Ajourføring af tæller for manglende pakker (scanninger)            // Ajourføring af tæller for manglende pakker (scanninger)
1792            wrkAntal := StaticTextManglendePakker.Caption;            wrkAntal := StaticTextManglendePakker.Caption;
1793            if (pos('/', wrkAntal) > 0) then  // både pakker idag og senere            if (pos('/', wrkAntal) > 0) then  // både pakker idag og senere
# Line 2112  begin Line 1823  begin
1823            begin            begin
1824              StaticTextManglendePakker.Caption := IntToStr(wrkAntalIdag);              StaticTextManglendePakker.Caption := IntToStr(wrkAntalIdag);
1825            end;            end;
 // 20150309: slut  
1826    
 // 20150310: start  
1827            if (Scanningtype = '1') then            if (Scanningtype = '1') then
1828            begin            begin
1829              PanelManglendePakker1.Caption := IntToStr(wrkAntalIdag + wrkAntalSenere);              PanelManglendePakker1.Caption := IntToStr(wrkAntalIdag + wrkAntalSenere);
# Line 2297  begin Line 2006  begin
2006              Testprinter1.Visible := true;              Testprinter1.Visible := true;
2007              Smpakker1.Enabled := true;              Smpakker1.Enabled := true;
2008              Storepakker1.Enabled := true;              Storepakker1.Enabled := true;
2009              RadioButton1.Enabled := true;              radioStorPakke.Enabled := true;
2010              RadioButton2.Enabled := true;              radioLillePakke.Enabled := true;
2011              DownloadButton01.Enabled := false;     // kontrolfil bruges ikke her              DownloadButton01.Enabled := false;     // kontrolfil bruges ikke her
2012              OpdaterListenButton01.Enabled := true;              OpdaterListenButton01.Enabled := true;
2013              IdFTP1.Passive := true;              IdFTP1.Passive := true;
# Line 2335  begin Line 2044  begin
2044              Testprinter1.Visible := true;              Testprinter1.Visible := true;
2045              Smpakker1.Enabled := true;              Smpakker1.Enabled := true;
2046              Storepakker1.Enabled := true;              Storepakker1.Enabled := true;
2047              RadioButton1.Enabled := true;              radioStorPakke.Enabled := true;
2048              RadioButton2.Enabled := true;              radioLillePakke.Enabled := true;
2049              DownloadButton01.Enabled := false;    // kontrolfil bruges ikke her              DownloadButton01.Enabled := false;    // kontrolfil bruges ikke her
2050              OpdaterListenButton01.Enabled := true;              OpdaterListenButton01.Enabled := true;
2051              IdFTP1.Passive := true;              IdFTP1.Passive := true;
# Line 2355  var Line 2064  var
2064    pakkestorrelse : String;    pakkestorrelse : String;
2065    PrintNyLabelInteger : Integer;    PrintNyLabelInteger : Integer;
2066  begin  begin
2067    if RadioButton1.Checked then    if radioStorPakke.Checked then
2068    begin    begin
2069      pakkestorrelse := 'Stor';      pakkestorrelse := 'Stor';
2070    end;    end;
2071    if RadioButton2.Checked then    if radioLillePakke.Checked then
2072    begin    begin
2073      pakkestorrelse := 'Lille';      pakkestorrelse := 'Lille';
2074    end;    end;
# Line 2425  begin Line 2134  begin
2134        BoghandlerNavn := XMLDocument1.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('PakkeshopNr').Text;        BoghandlerNavn := XMLDocument1.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('PakkeshopNr').Text;
2135        BoghandlerNavn := BoghandlerNavn + ' ' + XMLDocument1.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('PakkeshopNavn').Text;        BoghandlerNavn := BoghandlerNavn + ' ' + XMLDocument1.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('PakkeshopNavn').Text;
2136        PrintNyLabel := False;        PrintNyLabel := False;
2137  // 20150310: start  
2138        if Pakkeshoplevering1.Checked then        if Pakkeshoplevering1.Checked then
2139        begin        begin
 // 20150310: slut  
2140          try          try
2141            PrintNyLabelInteger := StrToInt(XMLDocument1.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('PakkeshopPrintPakkeLabel').Text);            PrintNyLabelInteger := StrToInt(XMLDocument1.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('PakkeshopPrintPakkeLabel').Text);
2142          except on e:exception do          except on e:exception do
# Line 2514  begin Line 2222  begin
2222    if Pakkeshoplevering1.Checked then    if Pakkeshoplevering1.Checked then
2223      List1msg := List1msg + PakkeshopStregkode + ' ' + PakkeshopTjekkode + '; ' + KommentarST.Caption + '; ';      List1msg := List1msg + PakkeshopStregkode + ' ' + PakkeshopTjekkode + '; ' + KommentarST.Caption + '; ';
2224    List1Pakkestorrelse := '';    List1Pakkestorrelse := '';
2225    if RadioButton1.Checked then    if radioStorPakke.Checked then
2226    begin    begin
2227      List1Pakkestorrelse := 'Stor pakke';      List1Pakkestorrelse := 'Stor pakke';
2228    end;    end;
2229    if RadioButton2.Checked then    if radioLillePakke.Checked then
2230    begin    begin
2231      List1Pakkestorrelse := 'Lille pakke';      List1Pakkestorrelse := 'Lille pakke';
2232    end;    end;
# Line 2540  begin Line 2248  begin
2248    if Budlevering1.Checked then    if Budlevering1.Checked then
2249    begin    begin
2250       List1msg := TimeToStr(now) + '; ' + Kommentar + '; ' + BoghandlerNavn;       List1msg := TimeToStr(now) + '; ' + Kommentar + '; ' + BoghandlerNavn;
2251        if (RadioButton1.Checked) then        if (radioStorPakke.Checked) then
2252        begin        begin
2253          List1msg := List1msg + '; Stor pakke';          List1msg := List1msg + '; Stor pakke';
2254        end;        end;
2255        if (RadioButton2.Checked) then        if (radioLillePakke.Checked) then
2256        begin        begin
2257          List1msg := List1msg + '; Lille pakke';          List1msg := List1msg + '; Lille pakke';
2258        end;        end;
# Line 2601  begin Line 2309  begin
2309    end;    end;
2310    pakkeForkertSted := pos('burde være hos', Kommentar);    pakkeForkertSted := pos('burde være hos', Kommentar);
2311    
2312  // 20150306: start  
 //  if Sprgefterboghandlernummer1.Enabled and CheckBox1.Checked and (RuteNummer = 'Ukendt') or (RuteNummer = 'Ukendt tur') or (RuteNummer = 'Retur ukendt') or (pakkeErScannet > 0) or (pakkeForkertSted > 0) then  
2313    if Sprgefterboghandlernummer1.Enabled and chkSporgEfterKunde.Checked and ( (RuteNummer = 'Ukendt') or (RuteNummer = 'Ukendt tur') or (RuteNummer = 'Retur ukendt') or (pakkeErScannet > 0) or (pakkeForkertSted > 0) ) then    if Sprgefterboghandlernummer1.Enabled and chkSporgEfterKunde.Checked and ( (RuteNummer = 'Ukendt') or (RuteNummer = 'Ukendt tur') or (RuteNummer = 'Retur ukendt') or (pakkeErScannet > 0) or (pakkeForkertSted > 0) ) then
2314  // 20150306: slut  
2315    begin    begin
2316        if (RuteNummer = 'Ukendt') then        if (RuteNummer = 'Ukendt') then
2317        begin        begin
# Line 2631  begin Line 2338  begin
2338       if (BoghandlerNavn = 'Ukendt pakke') then       if (BoghandlerNavn = 'Ukendt pakke') then
2339       begin       begin
2340          PrintNyLabel := false;          PrintNyLabel := false;
2341  // 20150306: start  
 //        PlaySound(PWideChar(AlarmLyd));  
2342          PlaySound(PWideChar(AlarmLyd));          PlaySound(PWideChar(AlarmLyd));
2343          MainForm.Color := clRed;          MainForm.Color := clRed;
2344          PakkeshopNulstil.Visible := true;          PakkeshopNulstil.Visible := true;
2345  // 20150306: slut  
2346       end       end
2347       else       else
2348       begin       begin
# Line 2652  begin Line 2358  begin
2358            ListBox1.Items.Insert(0,List1Msg);            ListBox1.Items.Insert(0,List1Msg);
2359            logTekst := RightStr(List1Msg, Length(List1Msg)-10);            logTekst := RightStr(List1Msg, Length(List1Msg)-10);
2360            SkrivScanningLogFil(logTekst);            SkrivScanningLogFil(logTekst);
2361  // 20150213: start  
2362            if (PrinterNavn = 'Ingen') then            if (PrinterNavn = 'Ingen') then
2363            begin            begin
2364               PrintNyLabel := false;               PrintNyLabel := false;
2365            end;            end;
2366  // 20150313: slut  
 // 20150306: start  
 //          PlaySound(PWideChar(AlarmLyd));  
2367            if (PrintNyLabel = false) then  // Hvis vi ikke printer label skal vi vise en 'rød skærm' alarm            if (PrintNyLabel = false) then  // Hvis vi ikke printer label skal vi vise en 'rød skærm' alarm
2368            begin            begin
2369              PlaySound(PWideChar(AlarmLyd));              PlaySound(PWideChar(AlarmLyd));
2370              MainForm.Color := clRed;              MainForm.Color := clRed;
2371              PakkeshopNulstil.Visible := true;              PakkeshopNulstil.Visible := true;
2372            end;            end;
2373  // 20150306: slut  
2374         end;         end;
2375         kontrolKoreliste := TjekKoreliste(RuteNummer, Koreliste);         kontrolKoreliste := TjekKoreliste(RuteNummer, Koreliste);
2376         if (kontrolKoreliste <> RuteNummer) then         if (kontrolKoreliste <> RuteNummer) then
# Line 2685  begin Line 2389  begin
2389            ListBox1.Items.Insert(0,List1Msg);            ListBox1.Items.Insert(0,List1Msg);
2390            logTekst := RightStr(List1Msg, Length(List1Msg)-10);            logTekst := RightStr(List1Msg, Length(List1Msg)-10);
2391            SkrivScanningLogFil(logTekst);            SkrivScanningLogFil(logTekst);
2392  // 20150306: start  
 //          PlaySound(PWideChar(AlarmLyd));  
2393            if (PrintNyLabel = false) then  // Hvis vi ikke printer label skal vi vise en 'rød skærm' alarm            if (PrintNyLabel = false) then  // Hvis vi ikke printer label skal vi vise en 'rød skærm' alarm
2394            begin            begin
2395              PlaySound(PWideChar(AlarmLyd));              PlaySound(PWideChar(AlarmLyd));
2396              MainForm.Color := clRed;              MainForm.Color := clRed;
2397              PakkeshopNulstil.Visible := true;              PakkeshopNulstil.Visible := true;
2398            end;            end;
2399  // 20150306: slut  
 // 20150306: start  
 //       end  
 //       else  
 //       begin  
2400         end;         end;
2401       end;       end;
2402    
# Line 2832  begin Line 2531  begin
2531          Canvas.TextOut(XPosSorteringsfelt2,YPosSorteringsfelt2, Leveringssted);   // sorteringsoplysning 2          Canvas.TextOut(XPosSorteringsfelt2,YPosSorteringsfelt2, Leveringssted);   // sorteringsoplysning 2
2532        end;        end;
2533        Canvas.Font.Size := FontSizeKommentar;        Canvas.Font.Size := FontSizeKommentar;
2534    
2535        Kommentar := StringReplace(Kommentar, #$A, ' - ', [rfReplaceAll, rfIgnoreCase]);        Kommentar := StringReplace(Kommentar, #$A, ' - ', [rfReplaceAll, rfIgnoreCase]);
 // 20150304: start  
2536        Kommentar := StringReplace(Kommentar, 'PAKKE ER SCANNET', '', [rfReplaceAll, rfIgnoreCase]);        Kommentar := StringReplace(Kommentar, 'PAKKE ER SCANNET', '', [rfReplaceAll, rfIgnoreCase]);
2537  // 20150304: slut  
2538        Canvas.TextOut(XPosKommentar,YPosKommentar, Kommentar);  // Kan ikke lave linieskift (se tidligere kommentar om samme)        Canvas.TextOut(XPosKommentar,YPosKommentar, Kommentar);  // Kan ikke lave linieskift (se tidligere kommentar om samme)
2539        if SmsKode <> '' then        if SmsKode <> '' then
2540        begin        begin
# Line 2849  begin Line 2548  begin
2548  end;  end;
2549    
2550    
2551  procedure TMainForm.RadioButton1Click(Sender: TObject);  procedure TMainForm.radioStorPakkeClick(Sender: TObject);
2552  begin  begin
2553      Storepakker1.Checked := true;      Storepakker1.Checked := true;
2554      RadioButton1.Checked := true;      radioStorPakke.Checked := true;
2555  end;  end;
2556    
2557  procedure TMainForm.RadioButton2Click(Sender: TObject);  procedure TMainForm.radioLillePakkeClick(Sender: TObject);
2558  begin  begin
2559      Smpakker1.Checked := true;      Smpakker1.Checked := true;
2560      RadioButton2.Checked := true;      radioLillePakke.Checked := true;
2561  end;  end;
2562    
2563    
# Line 2912  begin Line 2611  begin
2611      Automatiskvalg1.Checked := false;      Automatiskvalg1.Checked := false;
2612      PanelValgA.Color := clBtnFace;      PanelValgA.Color := clBtnFace;
2613      PanelValgA.Font.Color := clWindowText;      PanelValgA.Font.Color := clWindowText;
2614  // 20150317: start  
2615      if (SpecialVersionSted = '01')      if (SpecialVersionSted = '01')
2616      or (SpecialVersionSted = '02')        or (SpecialVersionSted = '02')
2617      or (SpecialVersionSted = '03')        or (SpecialVersionSted = '03')
2618      or (SpecialVersionSted = '04') then        or (SpecialVersionSted = '04') then
2619      begin      begin
2620        // her skal vi også disable knappen for 01, 02, 03 og 04 (NS, BK, FD og DBK)        // her skal vi også disable knappen for 01, 02, 03 og 04 (NS, BK, FD og DBK)
2621        PanelValgA.Enabled := false;        PanelValgA.Enabled := false;
# Line 3223  begin Line 2922  begin
2922            end;            end;
2923          end;          end;
2924    
2925  // 20150330: start  
2926          // Tjekker UrlEKLoverforselPakkeshop          // Tjekker UrlEKLoverforselPakkeshop
2927          if PanelValg5.Enabled = true then          if PanelValg5.Enabled = true then
2928          begin          begin
# Line 3251  begin Line 2950  begin
2950              end;              end;
2951            end;            end;
2952          end;          end;
2953  // 20150330: slut  
2954    
2955          // Tjekker UrlFindPakketype          // Tjekker UrlFindPakketype
2956          if CheckUrl(UrlFindPakketype) then          if CheckUrl(UrlFindPakketype) then
# Line 3825  begin Line 3524  begin
3524        Sprgefterboghandlernummer1.Enabled := true;        Sprgefterboghandlernummer1.Enabled := true;
3525        Smpakker1.Enabled := false;        Smpakker1.Enabled := false;
3526        Storepakker1.Enabled := false;        Storepakker1.Enabled := false;
3527        RadioButton1.Enabled := false;        radioStorPakke.Enabled := false;
3528        RadioButton2.Enabled := false;        radioLillePakke.Enabled := false;
3529        ListBox1.Visible := true;        ListBox1.Visible := true;
3530        OpdaterListenButton01.Enabled := true;        OpdaterListenButton01.Enabled := true;
3531        EKLoverforsel.Enabled := true;        EKLoverforsel.Enabled := true;
# Line 3857  begin Line 3556  begin
3556        Sprgefterboghandlernummer1.Enabled := false;        Sprgefterboghandlernummer1.Enabled := false;
3557        Smpakker1.Enabled := true;        Smpakker1.Enabled := true;
3558        Storepakker1.Enabled := true;        Storepakker1.Enabled := true;
3559        RadioButton1.Enabled := true;        radioStorPakke.Enabled := true;
3560        RadioButton2.Enabled := true;        radioLillePakke.Enabled := true;
3561        ListBox1.Visible := true;        ListBox1.Visible := true;
3562        ListBox1.Items.Clear;        ListBox1.Items.Clear;
3563        ListBox2.Items.Clear;        ListBox2.Items.Clear;
# Line 3883  begin Line 3582  begin
3582        Sprgefterboghandlernummer1.Enabled := false;        Sprgefterboghandlernummer1.Enabled := false;
3583        Smpakker1.Enabled := true;        Smpakker1.Enabled := true;
3584        Storepakker1.Enabled := true;        Storepakker1.Enabled := true;
3585        RadioButton1.Enabled := true;        radioStorPakke.Enabled := true;
3586        RadioButton2.Enabled := true;        radioLillePakke.Enabled := true;
3587        ListBox1.Visible := true;        ListBox1.Visible := true;
3588        ListBox1.Items.Clear;        ListBox1.Items.Clear;
3589        ListBox2.Items.Clear;        ListBox2.Items.Clear;
# Line 3910  begin Line 3609  begin
3609        Sprgefterboghandlernummer1.Enabled := false;        Sprgefterboghandlernummer1.Enabled := false;
3610        Smpakker1.Enabled := true;        Smpakker1.Enabled := true;
3611        Storepakker1.Enabled := true;        Storepakker1.Enabled := true;
3612        RadioButton1.Enabled := true;        radioStorPakke.Enabled := true;
3613        RadioButton2.Enabled := true;        radioLillePakke.Enabled := true;
3614        ListBox1.Visible := true;        ListBox1.Visible := true;
3615        ListBox1.Items.Clear;        ListBox1.Items.Clear;
3616        DownloadButton01.Enabled := false;        DownloadButton01.Enabled := false;
# Line 3946  begin Line 3645  begin
3645        Sprgefterboghandlernummer1.Enabled := false;        Sprgefterboghandlernummer1.Enabled := false;
3646        Smpakker1.Enabled := false;        Smpakker1.Enabled := false;
3647        Storepakker1.Enabled := false;        Storepakker1.Enabled := false;
3648        RadioButton1.Enabled := false;        radioStorPakke.Enabled := false;
3649        RadioButton2.Enabled := false;        radioLillePakke.Enabled := false;
3650        ListBox1.Visible := true;        ListBox1.Visible := true;
3651        ListBox1.Items.Clear;        ListBox1.Items.Clear;
3652        DownloadButton01.Enabled := false;        DownloadButton01.Enabled := false;
3653        OpdaterListenButton01.Enabled := true;        OpdaterListenButton01.Enabled := true;
3654  // 20150330: start  
 //      EKLoverforsel.Enabled := false;  
3655        EKLoverforsel.Enabled := true;        EKLoverforsel.Enabled := true;
3656  // 20150330: slut  
3657        InitLillePakke();        InitLillePakke();
3658        IndlesScanningLogFil();        IndlesScanningLogFil();
3659        if BladhusSted = 0 then        if BladhusSted = 0 then
# Line 3984  begin Line 3682  begin
3682        Sprgefterboghandlernummer1.Enabled := false;        Sprgefterboghandlernummer1.Enabled := false;
3683        Smpakker1.Enabled := false;        Smpakker1.Enabled := false;
3684        Storepakker1.Enabled := false;        Storepakker1.Enabled := false;
3685        RadioButton1.Enabled := false;        radioStorPakke.Enabled := false;
3686        RadioButton2.Enabled := false;        radioLillePakke.Enabled := false;
3687        ListBox1.Visible := true;        ListBox1.Visible := true;
3688        ListBox1.Items.Clear;        ListBox1.Items.Clear;
3689        DownloadButton01.Enabled := false;        DownloadButton01.Enabled := false;
# Line 4013  begin Line 3711  begin
3711        AutomatiskTjekkodeStyring1.Enabled := false;        AutomatiskTjekkodeStyring1.Enabled := false;
3712        Returpakkerfrapakkeshop1.Checked := true;        Returpakkerfrapakkeshop1.Checked := true;
3713        PakkeshopNulstil.Visible := false;        PakkeshopNulstil.Visible := false;
3714        InitForm(FarveReturPakkeshop,TitelReturPakkeshop,UrlReturPakkeshop);        InitForm(FarveIndlevering, TitelIndlevering, UrlReturPakkeshop);
3715        PanelValg7.Color := clGreen;        PanelValg7.Color := clGreen;
3716        PanelValg7.Font.Color := clWhite;        PanelValg7.Font.Color := clWhite;
3717    
# Line 4022  begin Line 3720  begin
3720    
3721        Altidprintepakkelabel1.Checked := false;        Altidprintepakkelabel1.Checked := false;
3722        Sprgefterboghandlernummer1.Checked := false;        Sprgefterboghandlernummer1.Checked := false;
       chkSporgEfterKunde.Checked := false;  
3723        Sprgefterboghandlernummer1.Enabled := false;        Sprgefterboghandlernummer1.Enabled := false;
3724          chkSporgEfterKunde.Checked := false;
3725    
3726    
3727    
3728        Smpakker1.Enabled := false;        Smpakker1.Enabled := false;
3729        Storepakker1.Enabled := false;        Storepakker1.Enabled := false;
3730        RadioButton1.Enabled := false;        radioStorPakke.Enabled := false;
3731        RadioButton2.Enabled := false;        radioLillePakke.Enabled := false;
3732        ListBox1.Visible := true;        ListBox1.Visible := true;
3733        ListBox1.Items.Clear;        ListBox1.Items.Clear();
3734    
3735        DownloadButton01.Enabled := false;        DownloadButton01.Enabled := false;
3736        OpdaterListenButton01.Enabled := true;        OpdaterListenButton01.Enabled := true;
3737        EKLoverforsel.Enabled := false;        EKLoverforsel.Enabled := false;
# Line 4056  end; Line 3758  end;
3758    
3759  procedure TMainForm.InitLillePakke();  procedure TMainForm.InitLillePakke();
3760  begin  begin
3761    RadioButton2.Checked := true;    radioLillePakke.Checked := true;
3762    Smpakker1.Checked := true;    Smpakker1.Checked := true;
 // 20150310: start  
3763  //  Stregkode := '';  //  Stregkode := '';
 // 20150310: slut  
3764  end;  end;
3765    
3766  procedure TMainForm.InitStorPakke();  procedure TMainForm.InitStorPakke();
3767  begin  begin
3768    RadioButton1.Checked := true;    radioStorPakke.Checked := true;
3769    Storepakker1.Checked := true;    Storepakker1.Checked := true;
3770  // 20150310: start  // 20150310: start
3771  //  Stregkode := '';  //  Stregkode := '';
# Line 4162  end; Line 3862  end;
3862    
3863  procedure TMainForm.Testlyd2Click(Sender: TObject);  procedure TMainForm.Testlyd2Click(Sender: TObject);
3864  begin  begin
 // 20150317: start  
3865    if (PakkeshopText1.Caption = 'Tjekkode') then    if (PakkeshopText1.Caption = 'Tjekkode') then
3866    begin    begin
3867       if ScannetOkTilTjekkodeLyd  <> '' then       if ScannetOkTilTjekkodeLyd  <> '' then
# Line 4175  begin Line 3874  begin
3874       end;       end;
3875       exit;       exit;
3876    end;    end;
 // 20150317: slut  
3877    
3878    if Smpakker1.Checked then    if Smpakker1.Checked then
3879       if ScannetOkLyd  <> '' then       if ScannetOkLyd  <> '' then
# Line 4184  begin Line 3882  begin
3882       end       end
3883       else       else
3884       begin       begin
 // 20150317: start  
 //       MessageBox(Handle, PWideChar('Lyd fil ikke fundet (scannet)'), 'Information', MB_OK);  
3885         MessageBox(Handle, PWideChar('Lyd fil ikke fundet (ScannetOkLyd)'), 'Information', MB_OK);         MessageBox(Handle, PWideChar('Lyd fil ikke fundet (ScannetOkLyd)'), 'Information', MB_OK);
 // 20150317: slut  
3886       end;       end;
3887    if Storepakker1.Checked then    if Storepakker1.Checked then
3888       if ScannetOkStorLyd  <> '' then       if ScannetOkStorLyd  <> '' then
# Line 4196  begin Line 3891  begin
3891       end       end
3892       else       else
3893       begin       begin
 // 20150317: start  
 //       MessageBox(Handle, PWideChar('Lyd fil ikke fundet (scannet stor)'), 'Information', MB_OK);  
3894         MessageBox(Handle, PWideChar('Lyd fil ikke fundet (ScannetOkStorLyd)'), 'Information', MB_OK);         MessageBox(Handle, PWideChar('Lyd fil ikke fundet (ScannetOkStorLyd)'), 'Information', MB_OK);
 // 20150317: slut  
3895       end;       end;
3896  end;  end;
3897    
# Line 4904  var Line 4596  var
4596    pakketypeix, antalLiniefelter, antalFelterFundet, linienr : Integer;    pakketypeix, antalLiniefelter, antalFelterFundet, linienr : Integer;
4597    pakketyper : TStrings;    pakketyper : TStrings;
4598    antlin : Integer;    antlin : Integer;
4599  // 20150306: start  
4600    antlinIdag, antlinSenere : Integer;    antlinIdag, antlinSenere : Integer;
4601  // 20150306: slut  
4602    XmlFelter : TStrings;    XmlFelter : TStrings;
4603    
4604   begin   begin
# Line 4926  var Line 4618  var
4618          StedKode := Sted;          StedKode := Sted;
4619        end;        end;
4620    
4621  // 20150310: start  
 (*  
     if Returpakkerfrapakkeshop1.Checked then  
      begin  
       URLStr := Format(UrlPakkeshopManglendeReturScanninger,[StedKode]);  
      end  
     else if Pakkeshoplevering1.Checked then  
      begin  
       URLStr := Format(UrlPakkeshopManglendeScanninger,[StedKode]);  
      end  
     else if Pakkernormal1.Checked then  
      begin  
       URLStr := Format(UrlManglendeScanninger,[StedKode,'B2']);  
      end  
     else  
      begin  
       URLStr := Format(UrlManglendeScanninger,[StedKode,'A2']);    // Budleveringer  
      end;  
 *)  
4622      if (Scanningtype = '6') then      if (Scanningtype = '6') then
4623       begin       begin
4624        URLStr := Format(UrlPakkeshopManglendeReturScanninger,[StedKode]);        URLStr := Format(UrlPakkeshopManglendeReturScanninger,[StedKode]);
# Line 4988  var Line 4662  var
4662      try      try
4663        XMLDocument1.LoadFromXML(WebSvar);        XMLDocument1.LoadFromXML(WebSvar);
4664    
4665  // 20150206: start  
4666        antlin := 0;        antlin := 0;
4667        antlinIdag := 0;        antlinIdag := 0;
4668        antlinSenere := 0;        antlinSenere := 0;
4669  // 20150306: slut  
4670        antalFelterFundet := 0;        antalFelterFundet := 0;
4671        for I:= 0 to XMLDocument1.DocumentElement.ChildNodes.Count - 1 do begin        for I:= 0 to XMLDocument1.DocumentElement.ChildNodes.Count - 1 do begin
4672            Node:= XMLDocument1.DocumentElement.ChildNodes[I];            Node:= XMLDocument1.DocumentElement.ChildNodes[I];
# Line 5025  var Line 4699  var
4699        antalFelterFundet := 0;        antalFelterFundet := 0;
4700        SetLength(stregkoderMedTjekkodeArray, 0);    // reset fra tidligere brug        SetLength(stregkoderMedTjekkodeArray, 0);    // reset fra tidligere brug
4701        SetLength(stregkoderMedTjekkodeArray, antlin);  // sæt antal elementer i array        SetLength(stregkoderMedTjekkodeArray, antlin);  // sæt antal elementer i array
4702  // 20150206: start  
 //      logTekst := 'Der er '+IntToStr(antlin)+' pakker, der endnu ikke er modtaget.';  
4703        logTekst := 'Der er ' + IntToStr(antlin) + ' pakker, der endnu ikke er modtaget';        logTekst := 'Der er ' + IntToStr(antlin) + ' pakker, der endnu ikke er modtaget';
4704        if (antlinSenere > 0) then        if (antlinSenere > 0) then
4705        begin        begin
4706          logTekst := logTekst + ' (' + IntToStr(antlinIdag) + ' til i dag og ' + IntToStr(antlinSenere) + ' til senere)';          logTekst := logTekst + ' (' + IntToStr(antlinIdag) + ' til i dag og ' + IntToStr(antlinSenere) + ' til senere)';
4707        end;        end;
4708        logTekst := logTekst + '.';        logTekst := logTekst + '.';
4709  // 20150306: slut  
4710        SkrivScanningLogFil(logTekst);        SkrivScanningLogFil(logTekst);
4711        for I:= 0 to XMLDocument1.DocumentElement.ChildNodes.Count - 1 do begin        for I:= 0 to XMLDocument1.DocumentElement.ChildNodes.Count - 1 do begin
4712            Node:= XMLDocument1.DocumentElement.ChildNodes[I];            Node:= XMLDocument1.DocumentElement.ChildNodes[I];
# Line 5083  var Line 4756  var
4756                    begin                    begin
4757                      stregkoderMedTjekkodeArray[linienr] := stregkode;                      stregkoderMedTjekkodeArray[linienr] := stregkode;
4758                    end;                    end;
4759  // 20150306: slut                    linienr := linienr + 1;
                     linienr := linienr + 1;  
4760                  end;                  end;
4761              end;              end;
4762              if antalFelterFundet = antalLiniefelter then              if antalFelterFundet = antalLiniefelter then
# Line 5109  var Line 4781  var
4781    
4782          // Free up the list object          // Free up the list object
4783        pakketyper.Free;        pakketyper.Free;
 // 20150306: start  
4784  //      ListBox1.Items.Insert(0,TimeToStr(now) + ': ' + 'Der er '+IntToStr(antlin)+' pakker, der endnu ikke er modtaget.');  //      ListBox1.Items.Insert(0,TimeToStr(now) + ': ' + 'Der er '+IntToStr(antlin)+' pakker, der endnu ikke er modtaget.');
4785        logTekst := 'Der er ' + IntToStr(antlin) + ' pakker, der endnu ikke er modtaget';        logTekst := 'Der er ' + IntToStr(antlin) + ' pakker, der endnu ikke er modtaget';
4786        if (antlinSenere > 0) then        if (antlinSenere > 0) then
# Line 5118  var Line 4789  var
4789        end;        end;
4790        logTekst := logTekst + '.';        logTekst := logTekst + '.';
4791        ListBox1.Items.Insert(0,TimeToStr(now) + ': ' + logTekst);        ListBox1.Items.Insert(0,TimeToStr(now) + ': ' + logTekst);
 // 20150306: slut  
 // 20150309: start  
4792        if (antlinSenere > 0) then        if (antlinSenere > 0) then
4793        begin        begin
4794          StaticTextManglendePakker.Caption := IntToStr(antlinIdag) + '/' + IntToStr(antlinSenere);          StaticTextManglendePakker.Caption := IntToStr(antlinIdag) + '/' + IntToStr(antlinSenere);
# Line 5128  var Line 4797  var
4797        begin        begin
4798          StaticTextManglendePakker.Caption := IntToStr(antlinIdag);          StaticTextManglendePakker.Caption := IntToStr(antlinIdag);
4799        end;        end;
 // 20150309: slut  
4800    
 // 20150310: start  
4801        if (Scanningtype = '1') then        if (Scanningtype = '1') then
4802        begin        begin
4803          //antlinIdag := 9876;  // til test af boksens udseende ved stort tal          //antlinIdag := 9876;  // til test af boksens udseende ved stort tal
# Line 5209  var Line 4876  var
4876            PanelManglendePakker6.Visible := false;            PanelManglendePakker6.Visible := false;
4877          end;          end;
4878        end;        end;
 // 20150310: slut  
4879    
4880      except on e:exception do      except on e:exception do
4881        begin        begin
# Line 5540  begin Line 5206  begin
5206    result := svar;    result := svar;
5207  end;  end;
5208    
5209    procedure TMainForm.VisAlarmSkaerm(strMessage: string);
5210    begin
5211      //ShowMessage('Ændring ikke tilladt');
5212      // Her skal komme en 'rød skærm' alarm
5213      PlaySound(PWideChar(AlarmLyd));
5214    
5215      ListBox1.Items.Insert(0, strMessage);
5216      MainForm.Color := clRed;
5217      RuteNummerST.Caption := '';
5218      BoghandlerNavnST.Caption := '';
5219      KommentarST.Caption := strMessage;
5220      PakkeshopNulstil.Visible := true;
5221    end;
5222    
5223  function TMainForm.getProddato() : TDate;  function TMainForm.getProddato() : TDate;
5224  var  var
5225     idag, imorgen : TDateTime;     idag, imorgen : TDateTime;
Legend:
Removed from v.2654  
changed lines
  Added in v.2659
  ViewVC Help
Powered by ViewVC 1.1.20