/[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 2664 by torben, Sun Aug 23 16:17:56 2015 UTC
# Line 8  uses Line 8  uses
8    IdTCPClient, IdHTTP, xmldom, XMLIntf, msxmldom, XMLDoc, IniFiles, AppEvnts,    IdTCPClient, IdHTTP, xmldom, XMLIntf, msxmldom, XMLDoc, IniFiles, AppEvnts,
9    Menus, ExtCtrls, ComCtrls, StrUtils, MMSystem, DateUtils,    Menus, ExtCtrls, ComCtrls, StrUtils, MMSystem, DateUtils,
10    IdExplicitTLSClientServerBase, IdFTP, pngimage, GIFImg, IdException,    IdExplicitTLSClientServerBase, IdFTP, pngimage, GIFImg, IdException,
11    Winspool, Registry, ShellApi, ClipBrd, Buttons, wininet    Winspool, Registry, ShellApi, ClipBrd, Buttons, wininet,
12      UITypes
13    
14    ;    ;
15    
16  type  type
# Line 36  type Line 38  type
38      Lukprogrammet1: TMenuItem;      Lukprogrammet1: TMenuItem;
39      N2: TMenuItem;      N2: TMenuItem;
40      N3: TMenuItem;      N3: TMenuItem;
41      RadioButton1: TRadioButton;      radioStorPakke: TRadioButton;
42      RadioButton2: TRadioButton;      radioLillePakke: TRadioButton;
43      N4: TMenuItem;      N4: TMenuItem;
44      Storepakker1: TMenuItem;      Storepakker1: TMenuItem;
45      Smpakker1: TMenuItem;      Smpakker1: TMenuItem;
# Line 77  type Line 79  type
79      PanelValg4: TPanel;      PanelValg4: TPanel;
80      PanelValg5: TPanel;      PanelValg5: TPanel;
81      PanelValg6: TPanel;      PanelValg6: TPanel;
82        PanelValg7: TPanel;
83      Manualgenerel1: TMenuItem;      Manualgenerel1: TMenuItem;
84      StaticTextManglendePakker: TStaticText;      StaticTextManglendePakker: TStaticText;
85      PanelManglendePakker1: TPanel;      PanelManglendePakker1: TPanel;
# Line 85  type Line 88  type
88      PanelManglendePakker4: TPanel;      PanelManglendePakker4: TPanel;
89      PanelManglendePakker5: TPanel;      PanelManglendePakker5: TPanel;
90      PanelManglendePakker6: TPanel;      PanelManglendePakker6: TPanel;
91      PanelValg7: TPanel;      menuIndlevering: TMenuItem;
92    
93    
94    function Explode(var a: TStrArray; Border, S: string): Integer;    function Explode(var a: TStrArray; Border, S: string): Integer;
95    function BarCodeValid (ACode: string): boolean;    function BarCodeValid (ACode: string): boolean;
# Line 113  type Line 117  type
117    procedure FormKeyPress(Sender: TObject; var Key: Char);    procedure FormKeyPress(Sender: TObject; var Key: Char);
118    procedure FormCreate(Sender: TObject);    procedure FormCreate(Sender: TObject);
119    procedure ApplicationEvents1Idle(Sender: TObject; var Done: Boolean);    procedure ApplicationEvents1Idle(Sender: TObject; var Done: Boolean);
120    procedure RadioButton1Click(Sender: TObject);    procedure radioStorPakkeClick(Sender: TObject);
121    procedure RadioButton2Click(Sender: TObject);    procedure radioLillePakkeClick(Sender: TObject);
122    procedure chkSporgEfterKundeClick(Sender: TObject);    procedure chkSporgEfterKundeClick(Sender: TObject);
123    procedure Pakkernormal1Click(Sender: TObject);    procedure Pakkernormal1Click(Sender: TObject);
124    procedure Testforbindelsen1Click(Sender: TObject);    procedure Testforbindelsen1Click(Sender: TObject);
# Line 172  type Line 176  type
176    procedure PanelValg4Click(Sender: TObject);    procedure PanelValg4Click(Sender: TObject);
177    procedure PanelValg5Click(Sender: TObject);    procedure PanelValg5Click(Sender: TObject);
178    procedure PanelValg6Click(Sender: TObject);    procedure PanelValg6Click(Sender: TObject);
179      procedure PanelValg7Click(Sender: TObject);
180    
181    procedure NulstilAutomatiskValg();    procedure NulstilAutomatiskValg();
182    procedure SletLogfiler(Path: string; FileList: TStrings);    procedure SletLogfiler(Path: string; FileList: TStrings);
183    procedure Manualgenerel1Click(Sender: TObject);    procedure Manualgenerel1Click(Sender: TObject);
184    procedure TjekkerUrls();    procedure TjekkerUrls();
185  // 20150310: start  // 20150310: start
186    procedure RoundCornerOf(Control: TWinControl);    procedure RoundCornerOf(Control: TWinControl);
187        procedure menuIndleveringClick(Sender: TObject);
188    
189    
     procedure PanelValg7Click(Sender: TObject);  
190  // 20150310: slut  // 20150310: slut
191    
192    private    private
# Line 196  type Line 203  type
203      Scanningtype, TestFunktionen, Pakketype, SporgEfterBoghandler : String;      Scanningtype, TestFunktionen, Pakketype, SporgEfterBoghandler : String;
204      ScanTjekkode : String;      ScanTjekkode : String;
205      ScanTjekkodeAutomatik : string;      ScanTjekkodeAutomatik : string;
206      Farve, FarveNormal, FarveReturDAO, FarveReturBoghandler, FarveBudlevering, FarvePakkeshoplevering, FarveReturPakkeshop : String;      Farve, FarveNormal, FarveReturDAO, FarveReturBoghandler, FarveBudlevering, FarvePakkeshoplevering, FarveReturPakkeshop, FarveIndlevering : String;
207      Titel, TitelNormal, TitelReturDAO, TitelReturBoghandler, TitelBudlevering, TitelPakkeshoplevering, TitelReturPakkeshop : String;      Titel, TitelNormal, TitelReturDAO, TitelReturBoghandler, TitelBudlevering, TitelPakkeshoplevering, TitelReturPakkeshop, TitelIndlevering : String;
208      LabelType : integer;      LabelType : integer;
209      AlarmLyd : String;      AlarmLyd : String;
210      ScannetOkLyd : String;      ScannetOkLyd : String;
# Line 255  type Line 262  type
262      procedure IndlesScanningLogFil();      procedure IndlesScanningLogFil();
263      procedure SkrivScanningLogFil(var tekst : string);      procedure SkrivScanningLogFil(var tekst : string);
264      function TjekKoreliste(var RuteNummer, Koreliste : string) : string;      function TjekKoreliste(var RuteNummer, Koreliste : string) : string;
265        procedure VisAlarmSkaerm(strMessage: string);
266    
267    public    public
268      { Public declarations }      { Public declarations }
# Line 531  const Line 539  const
539    crlf = Chr(13) + Chr(10) ;  // Carriage return & Linefeed    crlf = Chr(13) + Chr(10) ;  // Carriage return & Linefeed
540  var  var
541    printerInd : integer;    printerInd : integer;
   i : Integer;  
 // 20150310: start  
542    gemScanningtype : String;    gemScanningtype : String;
 // 20150310: slut  
543    
544  begin  begin
545    // Initierer nogle variabler    // Initierer nogle variabler
# Line 542  begin Line 547  begin
547    Application.ShowHint := True;    Application.ShowHint := True;
548    PrinterstatusStaticText1.Caption := '';    PrinterstatusStaticText1.Caption := '';
549    PrinterstatusStaticText1.Color := MainForm.Color;    PrinterstatusStaticText1.Color := MainForm.Color;
550  // 20150306: start  
551    PakkeshopNulstil.BringToFront;    PakkeshopNulstil.BringToFront;
552  // 20150306: slut  
 // 20150310: start  
553    RoundCornerOf(PanelManglendePakker1);    RoundCornerOf(PanelManglendePakker1);
554    RoundCornerOf(PanelManglendePakker2);    RoundCornerOf(PanelManglendePakker2);
555    RoundCornerOf(PanelManglendePakker3);    RoundCornerOf(PanelManglendePakker3);
556    RoundCornerOf(PanelManglendePakker4);    RoundCornerOf(PanelManglendePakker4);
557    RoundCornerOf(PanelManglendePakker5);    RoundCornerOf(PanelManglendePakker5);
558    RoundCornerOf(PanelManglendePakker6);    RoundCornerOf(PanelManglendePakker6);
559  // 20150310: slut  
560    
561    // 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
562    if DirectoryExists('Docs') then    if DirectoryExists('Docs') then
# Line 579  begin Line 583  begin
583      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');
584      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');
585      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');
586  // 20150330: start  
587      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');
588  // 20150330: slut  
589      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');
590      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');
591      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 601  begin
601      TitelBudlevering := ReadString('Settings','TitelBudlevering','Modtagelse af DAO DIREKTE pakker');      TitelBudlevering := ReadString('Settings','TitelBudlevering','Modtagelse af DAO DIREKTE pakker');
602      FarvePakkeshoplevering := ReadString('Settings','FarvePakkeshoplevering','99FFFF');      FarvePakkeshoplevering := ReadString('Settings','FarvePakkeshoplevering','99FFFF');
603      TitelPakkeshoplevering := ReadString('Settings','TitelPakkeshoplevering','Modtagelse af DAO PAKKESHOP pakker');      TitelPakkeshoplevering := ReadString('Settings','TitelPakkeshoplevering','Modtagelse af DAO PAKKESHOP pakker');
604    
605      FarveReturPakkeshop := ReadString('Settings','FarveReturPakkeshop','99FFCC');      FarveReturPakkeshop := ReadString('Settings','FarveReturPakkeshop','99FFCC');
606      TitelReturPakkeshop := ReadString('Settings','TitelReturPakkeshop','Returforsendelse fra pakkeshop');      TitelReturPakkeshop := ReadString('Settings','TitelReturPakkeshop','Returforsendelse fra pakkeshop');
607    
608        FarveIndlevering := ReadString('Settings', 'FarveIndlevering', 'E5B2CB');
609        TitelIndlevering := ReadString('Settings', 'TitelIndlevering', 'Indleveringskode');
610    
611    
612      SporgEfterBoghandler := ReadString('Settings','SporgEfterBoghandler','0');      SporgEfterBoghandler := ReadString('Settings','SporgEfterBoghandler','0');
613      ScanTjekkode := ReadString('Settings','ScanTjekkode','0');      ScanTjekkode := ReadString('Settings','ScanTjekkode','0');
614      ScanTjekkodeAutomatik := ReadString('Settings','ScanTjekkodeAutomatik','1');      ScanTjekkodeAutomatik := ReadString('Settings','ScanTjekkodeAutomatik','1');
# Line 608  begin Line 618  begin
618      AlarmLyd := ReadString('Settings','AlarmLyd','Sounds\Alarm.wav');      AlarmLyd := ReadString('Settings','AlarmLyd','Sounds\Alarm.wav');
619      ScannetOkLyd := ReadString('Settings','ScannetOkLyd','Sounds\Ok.wav');      ScannetOkLyd := ReadString('Settings','ScannetOkLyd','Sounds\Ok.wav');
620      ScannetOkStorLyd := ReadString('Settings','ScannetOkStorLyd','Sounds\Ok_stor.wav');      ScannetOkStorLyd := ReadString('Settings','ScannetOkStorLyd','Sounds\Ok_stor.wav');
621  // 20150317: start  
622      ScannetOkTilTjekkodeLyd := ReadString('Settings','ScannetOkTilTjekkodeLyd','Sounds\Ok_til_tjekkode.wav');      ScannetOkTilTjekkodeLyd := ReadString('Settings','ScannetOkTilTjekkodeLyd','Sounds\Ok_til_tjekkode.wav');
623  // 20150317: slut  
624      PrinterNavn := ReadString('Settings','PrinterNavn','');      PrinterNavn := ReadString('Settings','PrinterNavn','');
625      TjekPrinter := ReadString('Settings','TjekPrinter','1');      TjekPrinter := ReadString('Settings','TjekPrinter','1');
626      TjekUrls := ReadString('Settings','TjekUrls','2');      TjekUrls := ReadString('Settings','TjekUrls','2');
# Line 829  begin Line 839  begin
839       // her skal vi også disable de menupunkter DBK ikke kan bruge       // her skal vi også disable de menupunkter DBK ikke kan bruge
840        ReturpakkerfraDAO1.Enabled := false;        ReturpakkerfraDAO1.Enabled := false;
841        Returpakkerfraboghandler1.Enabled := false;        Returpakkerfraboghandler1.Enabled := false;
842  // 20150317: start  
843        Pakkeshoplevering1.Enabled := false;        Pakkeshoplevering1.Enabled := false;
844        Returpakkerfrapakkeshop1.Enabled := false;        Returpakkerfrapakkeshop1.Enabled := false;
845  // 20150317: slut  
846        if SpecialVersionScanningtype = 'A' then        if SpecialVersionScanningtype = 'A' then
847        begin        begin
848           Scanningtype := '1';           Scanningtype := '1';
# Line 863  begin Line 873  begin
873        PanelValg6.Enabled := false;        PanelValg6.Enabled := false;
874        PanelValg6.Font.Color := clInactiveCaption;        PanelValg6.Font.Color := clInactiveCaption;
875       // 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
876  // 20150317: start  
877        Automatiskvalg1.Enabled := false;        Automatiskvalg1.Enabled := false;
878  // 20150317: slut  
879        Pakkernormal1.Enabled := false;        Pakkernormal1.Enabled := false;
880        ReturpakkerfraDAO1.Enabled := false;        ReturpakkerfraDAO1.Enabled := false;
881        Returpakkerfraboghandler1.Enabled := false;        Returpakkerfraboghandler1.Enabled := false;
# Line 1000  begin Line 1010  begin
1010      if Pakketype = '1' then      if Pakketype = '1' then
1011      begin      begin
1012        Storepakker1.Checked := true;        Storepakker1.Checked := true;
1013        RadioButton1.Checked := true;        radioStorPakke.Checked := true;
1014      end      end
1015      else      else
1016      begin      begin
1017        Smpakker1.Checked := true;        Smpakker1.Checked := true;
1018        RadioButton2.Checked := true;        radioLillePakke.Checked := true;
1019      end;      end;
1020    
1021      if TestFunktionen = '1' then      if TestFunktionen = '1' then
# Line 1045  begin Line 1055  begin
1055        ScannetOkStorLyd := '';        ScannetOkStorLyd := '';
1056      end;      end;
1057    
1058  // 20150317: start  
1059      if not FileExists(ScannetOkTilTjekkodeLyd) then      if not FileExists(ScannetOkTilTjekkodeLyd) then
1060      begin      begin
1061        ScannetOkTilTjekkodeLyd := '';        ScannetOkTilTjekkodeLyd := '';
1062      end;      end;
1063  // 20150317: slut  
1064    
1065      if (PrinterNavn <> '') then      if (PrinterNavn <> '') then
1066      begin      begin
# Line 1083  begin Line 1093  begin
1093          InitBladhus();          InitBladhus();
1094        end;        end;
1095    
1096  // 20150310: start  
1097      // Opbygger PanelManglendePakker information      // Opbygger PanelManglendePakker information
1098      gemScanningtype := Scanningtype;      gemScanningtype := Scanningtype;
1099    
# Line 1124  begin Line 1134  begin
1134      end;      end;
1135    
1136      Scanningtype := gemScanningtype;      Scanningtype := gemScanningtype;
 // 20150310: slut  
1137    
1138      SendInfoTilServer(Sted, Scanningtype, 'Begin', '');      SendInfoTilServer(Sted, Scanningtype, 'Begin', '');
1139      SendInfoTilServer(Sted, Scanningtype, 'ProgramVersion', Sto_GetFmtFileVersion('',''));      SendInfoTilServer(Sted, Scanningtype, 'ProgramVersion', Sto_GetFmtFileVersion('',''));
# Line 1145  var Line 1154  var
1154    BoghandlerNavn : String;    BoghandlerNavn : String;
1155    Koreliste : String;    Koreliste : String;
1156    PrintNyLabel : Boolean;    PrintNyLabel : Boolean;
   List1msg : String;  
1157    pakkeErScannet : Integer;    pakkeErScannet : Integer;
1158    pakkeForkertSted : Integer;    pakkeForkertSted : Integer;
1159    tjekkodeMangler : Integer;    tjekkodeMangler : Integer;
# 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;  
1520    
1521  // 20150311: start          VisAlarmSkaerm( 'Pakke findes som pakketype: ' + Pakketype );
 (*  
     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;  
1522    
1523      if StregKode = 'Lille pakke' then          exit;
1524      begin        end;
        InitLillePakke();  
        exit;  
     end;  
   
     if StregKode = 'Stor pakke' then  
     begin  
        InitStorPakke();  
        exit;  
     end;  
   
     if StregKode = 'Indtast kundenummer' then  
     begin  
        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;
1605  // 20150323: slut  
1606                exit;                exit;
1607           end;           end;
1608          Stregkode := '';          Stregkode := '';
# Line 1903  begin Line 1623  begin
1623            // Hvis der var sql fejl i opdateringen skal dette fejlmeldes her            // Hvis der var sql fejl i opdateringen skal dette fejlmeldes her
1624            if Rutenummer = 'sql fejl' then            if Rutenummer = 'sql fejl' then
1625            begin   // Her skal komme en alarm og rød skærm            begin   // Her skal komme en alarm og rød skærm
1626               PlaySound(PWideChar(AlarmLyd));               VisAlarmSkaerm( 'SQL fejl: ' + Kommentar );
1627               //List1msg := 'SQL fejl: ' + Kommentar;  
              //ListBox1.Items.Insert(0,List1Msg);  
              MainForm.Color := clRed;  
              //KommentarST.Caption := List1msg;  
              PakkeshopNulstil.Visible := true;  
1628              exit;              exit;
1629            end;            end;
1630            if (Pakkernormal1.Checked or Budlevering1.Checked or PakkeshopLevering1.Checked) then            if (Pakkernormal1.Checked or Budlevering1.Checked or PakkeshopLevering1.Checked) then
# Line 1960  begin Line 1676  begin
1676            end            end
1677            else if Copy(Kommentar,1,8) = 'OPRETTET' then            else if Copy(Kommentar,1,8) = 'OPRETTET' then
1678            begin            begin
1679              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;  
1680            end            end
1681            else if Kommentar = StregKode then    // budlevering  til 'Ukendt tur'            else if Kommentar = StregKode then    // budlevering  til 'Ukendt tur'
1682            begin            begin
1683            end            end
1684            else            else
1685            begin            begin
1686              MainForm.Color := clRed;              VisAlarmSkaerm('');
             PlaySound(PWideChar(AlarmLyd));  
             PakkeshopNulstil.Visible := true;  
1687            end;            end;
1688           if not PakkeshopNulstil.Visible then           if not PakkeshopNulstil.Visible then
1689            begin            begin
1690  // 20150310: start  
 //            SletStregkodelinieFraListboks2(StregKode);  
 // 20150310: slut  
1691              If (Budlevering1.Checked) then              If (Budlevering1.Checked) then
1692              begin              begin
1693                if Storepakker1.Checked then                if Storepakker1.Checked then
# Line 1993  begin Line 1701  begin
1701                InitLillePakke();                InitLillePakke();
1702              end;              end;
1703            end;            end;
1704  // 20150310: start  
1705            SletStregkodelinieFraListboks2(StregKode);            SletStregkodelinieFraListboks2(StregKode);
1706  // 20150310: slut  
1707            PakkeshopStregkode := '';            PakkeshopStregkode := '';
1708            PakkeshopTjekkode := '';            PakkeshopTjekkode := '';
1709            BoghandlerStregkode := '';            BoghandlerStregkode := '';
# Line 2026  begin Line 1734  begin
1734    
1735    Key := #0;    Key := #0;
1736    
1737  end;  end; //End of OnKeyPress
1738    
1739  procedure TMainForm.SendInfoTilServer(Sted, Scanningtype, Infotype, Info : String);  procedure TMainForm.SendInfoTilServer(Sted, Scanningtype, Infotype, Info : String);
1740  const  const
# Line 2063  end; Line 1771  end;
1771    
1772  procedure TMainForm.SletStregkodelinieFraListboks2(StregKode : String);  procedure TMainForm.SletStregkodelinieFraListboks2(StregKode : String);
1773  var  var
 // 20150309: start  
 //  i:integer;  
1774    i : Integer;    i : Integer;
1775    wrkAntal : String;    wrkAntal : String;
1776    wrkAntalIdag, wrkAntalSenere : Integer;    wrkAntalIdag, wrkAntalSenere : Integer;
1777  // 20150309: slut  
1778    
1779  begin  begin
1780      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 1782  begin
1782        for i := ListBox2.items.count-1 downto 0 do        for i := ListBox2.items.count-1 downto 0 do
1783          if pos(StregKode,ListBox2.items[i]) <> 0 then          if pos(StregKode,ListBox2.items[i]) <> 0 then
1784          begin          begin
1785  // 20150309: start  
1786            // Ajourføring af tæller for manglende pakker (scanninger)            // Ajourføring af tæller for manglende pakker (scanninger)
1787            wrkAntal := StaticTextManglendePakker.Caption;            wrkAntal := StaticTextManglendePakker.Caption;
1788            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 1818  begin
1818            begin            begin
1819              StaticTextManglendePakker.Caption := IntToStr(wrkAntalIdag);              StaticTextManglendePakker.Caption := IntToStr(wrkAntalIdag);
1820            end;            end;
 // 20150309: slut  
1821    
 // 20150310: start  
1822            if (Scanningtype = '1') then            if (Scanningtype = '1') then
1823            begin            begin
1824              PanelManglendePakker1.Caption := IntToStr(wrkAntalIdag + wrkAntalSenere);              PanelManglendePakker1.Caption := IntToStr(wrkAntalIdag + wrkAntalSenere);
# Line 2219  begin Line 1923  begin
1923  end;  end;
1924    
1925  procedure TMainForm.InitBladhus();  procedure TMainForm.InitBladhus();
 var  
   LogFilnavn : string;  
1926    
1927  begin  begin
1928    Altidprintepakkelabel1.Enabled := false;    Altidprintepakkelabel1.Enabled := false;
# Line 2297  begin Line 1999  begin
1999              Testprinter1.Visible := true;              Testprinter1.Visible := true;
2000              Smpakker1.Enabled := true;              Smpakker1.Enabled := true;
2001              Storepakker1.Enabled := true;              Storepakker1.Enabled := true;
2002              RadioButton1.Enabled := true;              radioStorPakke.Enabled := true;
2003              RadioButton2.Enabled := true;              radioLillePakke.Enabled := true;
2004              DownloadButton01.Enabled := false;     // kontrolfil bruges ikke her              DownloadButton01.Enabled := false;     // kontrolfil bruges ikke her
2005              OpdaterListenButton01.Enabled := true;              OpdaterListenButton01.Enabled := true;
2006              IdFTP1.Passive := true;              IdFTP1.Passive := true;
# Line 2335  begin Line 2037  begin
2037              Testprinter1.Visible := true;              Testprinter1.Visible := true;
2038              Smpakker1.Enabled := true;              Smpakker1.Enabled := true;
2039              Storepakker1.Enabled := true;              Storepakker1.Enabled := true;
2040              RadioButton1.Enabled := true;              radioStorPakke.Enabled := true;
2041              RadioButton2.Enabled := true;              radioLillePakke.Enabled := true;
2042              DownloadButton01.Enabled := false;    // kontrolfil bruges ikke her              DownloadButton01.Enabled := false;    // kontrolfil bruges ikke her
2043              OpdaterListenButton01.Enabled := true;              OpdaterListenButton01.Enabled := true;
2044              IdFTP1.Passive := true;              IdFTP1.Passive := true;
# Line 2355  var Line 2057  var
2057    pakkestorrelse : String;    pakkestorrelse : String;
2058    PrintNyLabelInteger : Integer;    PrintNyLabelInteger : Integer;
2059  begin  begin
2060    if RadioButton1.Checked then    if radioStorPakke.Checked then
2061    begin    begin
2062      pakkestorrelse := 'Stor';      pakkestorrelse := 'Stor';
2063    end;    end;
2064    if RadioButton2.Checked then    if radioLillePakke.Checked then
2065    begin    begin
2066      pakkestorrelse := 'Lille';      pakkestorrelse := 'Lille';
2067    end;    end;
# Line 2425  begin Line 2127  begin
2127        BoghandlerNavn := XMLDocument1.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('PakkeshopNr').Text;        BoghandlerNavn := XMLDocument1.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('PakkeshopNr').Text;
2128        BoghandlerNavn := BoghandlerNavn + ' ' + XMLDocument1.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('PakkeshopNavn').Text;        BoghandlerNavn := BoghandlerNavn + ' ' + XMLDocument1.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('PakkeshopNavn').Text;
2129        PrintNyLabel := False;        PrintNyLabel := False;
2130  // 20150310: start  
2131        if Pakkeshoplevering1.Checked then        if Pakkeshoplevering1.Checked then
2132        begin        begin
 // 20150310: slut  
2133          try          try
2134            PrintNyLabelInteger := StrToInt(XMLDocument1.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('PakkeshopPrintPakkeLabel').Text);            PrintNyLabelInteger := StrToInt(XMLDocument1.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('PakkeshopPrintPakkeLabel').Text);
2135          except on e:exception do          except on e:exception do
# Line 2514  begin Line 2215  begin
2215    if Pakkeshoplevering1.Checked then    if Pakkeshoplevering1.Checked then
2216      List1msg := List1msg + PakkeshopStregkode + ' ' + PakkeshopTjekkode + '; ' + KommentarST.Caption + '; ';      List1msg := List1msg + PakkeshopStregkode + ' ' + PakkeshopTjekkode + '; ' + KommentarST.Caption + '; ';
2217    List1Pakkestorrelse := '';    List1Pakkestorrelse := '';
2218    if RadioButton1.Checked then    if radioStorPakke.Checked then
2219    begin    begin
2220      List1Pakkestorrelse := 'Stor pakke';      List1Pakkestorrelse := 'Stor pakke';
2221    end;    end;
2222    if RadioButton2.Checked then    if radioLillePakke.Checked then
2223    begin    begin
2224      List1Pakkestorrelse := 'Lille pakke';      List1Pakkestorrelse := 'Lille pakke';
2225    end;    end;
# Line 2540  begin Line 2241  begin
2241    if Budlevering1.Checked then    if Budlevering1.Checked then
2242    begin    begin
2243       List1msg := TimeToStr(now) + '; ' + Kommentar + '; ' + BoghandlerNavn;       List1msg := TimeToStr(now) + '; ' + Kommentar + '; ' + BoghandlerNavn;
2244        if (RadioButton1.Checked) then        if (radioStorPakke.Checked) then
2245        begin        begin
2246          List1msg := List1msg + '; Stor pakke';          List1msg := List1msg + '; Stor pakke';
2247        end;        end;
2248        if (RadioButton2.Checked) then        if (radioLillePakke.Checked) then
2249        begin        begin
2250          List1msg := List1msg + '; Lille pakke';          List1msg := List1msg + '; Lille pakke';
2251        end;        end;
# Line 2601  begin Line 2302  begin
2302    end;    end;
2303    pakkeForkertSted := pos('burde være hos', Kommentar);    pakkeForkertSted := pos('burde være hos', Kommentar);
2304    
2305  // 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  
2306    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
2307  // 20150306: slut  
2308    begin    begin
2309        if (RuteNummer = 'Ukendt') then        if (RuteNummer = 'Ukendt') then
2310        begin        begin
# Line 2631  begin Line 2331  begin
2331       if (BoghandlerNavn = 'Ukendt pakke') then       if (BoghandlerNavn = 'Ukendt pakke') then
2332       begin       begin
2333          PrintNyLabel := false;          PrintNyLabel := false;
2334  // 20150306: start  
 //        PlaySound(PWideChar(AlarmLyd));  
2335          PlaySound(PWideChar(AlarmLyd));          PlaySound(PWideChar(AlarmLyd));
2336          MainForm.Color := clRed;          MainForm.Color := clRed;
2337          PakkeshopNulstil.Visible := true;          PakkeshopNulstil.Visible := true;
2338  // 20150306: slut  
2339       end       end
2340       else       else
2341       begin       begin
# Line 2652  begin Line 2351  begin
2351            ListBox1.Items.Insert(0,List1Msg);            ListBox1.Items.Insert(0,List1Msg);
2352            logTekst := RightStr(List1Msg, Length(List1Msg)-10);            logTekst := RightStr(List1Msg, Length(List1Msg)-10);
2353            SkrivScanningLogFil(logTekst);            SkrivScanningLogFil(logTekst);
2354  // 20150213: start  
2355            if (PrinterNavn = 'Ingen') then            if (PrinterNavn = 'Ingen') then
2356            begin            begin
2357               PrintNyLabel := false;               PrintNyLabel := false;
2358            end;            end;
2359  // 20150313: slut  
 // 20150306: start  
 //          PlaySound(PWideChar(AlarmLyd));  
2360            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
2361            begin            begin
2362              PlaySound(PWideChar(AlarmLyd));              PlaySound(PWideChar(AlarmLyd));
2363              MainForm.Color := clRed;              MainForm.Color := clRed;
2364              PakkeshopNulstil.Visible := true;              PakkeshopNulstil.Visible := true;
2365            end;            end;
2366  // 20150306: slut  
2367         end;         end;
2368         kontrolKoreliste := TjekKoreliste(RuteNummer, Koreliste);         kontrolKoreliste := TjekKoreliste(RuteNummer, Koreliste);
2369         if (kontrolKoreliste <> RuteNummer) then         if (kontrolKoreliste <> RuteNummer) then
# Line 2685  begin Line 2382  begin
2382            ListBox1.Items.Insert(0,List1Msg);            ListBox1.Items.Insert(0,List1Msg);
2383            logTekst := RightStr(List1Msg, Length(List1Msg)-10);            logTekst := RightStr(List1Msg, Length(List1Msg)-10);
2384            SkrivScanningLogFil(logTekst);            SkrivScanningLogFil(logTekst);
2385  // 20150306: start  
 //          PlaySound(PWideChar(AlarmLyd));  
2386            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
2387            begin            begin
2388              PlaySound(PWideChar(AlarmLyd));              PlaySound(PWideChar(AlarmLyd));
2389              MainForm.Color := clRed;              MainForm.Color := clRed;
2390              PakkeshopNulstil.Visible := true;              PakkeshopNulstil.Visible := true;
2391            end;            end;
2392  // 20150306: slut  
 // 20150306: start  
 //       end  
 //       else  
 //       begin  
2393         end;         end;
2394       end;       end;
2395    
# Line 2719  begin Line 2411  begin
2411                end;                end;
2412              end;              end;
2413        01 :  begin;        01 :  begin;
2414               if PrintNyLabel and ( (kontrolKoreliste <> '') and (kontrolKoreliste <> RuteNummer) ) or (RuteNummer = 'Rutenr') then               if PrintNyLabel or ( (kontrolKoreliste <> '') and (kontrolKoreliste <> RuteNummer) ) or (RuteNummer = 'Rutenr') then
2415                    // Ovenstående test er lidt speciel fordi der i programmet nogle steder er byttet rundt på rute og køreliste                    // Ovenstående test er lidt speciel fordi der i programmet nogle steder er byttet rundt på rute og køreliste
2416                    // Meningen er at der kun skal printes hvis der er forskel i kørelisterne eller ruterne - eller vi kommer fra test funktionen (Rutenr = 'Rutenr')                    // Meningen er at der kun skal printes hvis der er forskel i kørelisterne eller ruterne - eller vi kommer fra test funktionen (Rutenr = 'Rutenr')
2417                begin                begin
# Line 2733  begin Line 2425  begin
2425                end;                end;
2426              end;              end;
2427        03 :  begin;        03 :  begin;
2428               if PrintNyLabel and ( (kontrolKoreliste <> '') and (kontrolKoreliste <> RuteNummer) ) or (RuteNummer = 'Rutenr') then               if PrintNyLabel or ( (kontrolKoreliste <> '') and (kontrolKoreliste <> RuteNummer) ) or (RuteNummer = 'Rutenr') then
2429                    // Ovenstående test er lidt speciel fordi der i programmet nogle steder er byttet rundt på rute og køreliste                    // Ovenstående test er lidt speciel fordi der i programmet nogle steder er byttet rundt på rute og køreliste
2430                    // Meningen er at der kun skal printes hvis der er forskel i kørelisterne eller ruterne - eller vi kommer fra test funktionen (Rutenr = 'Rutenr')                    // Meningen er at der kun skal printes hvis der er forskel i kørelisterne eller ruterne - eller vi kommer fra test funktionen (Rutenr = 'Rutenr')
2431               begin               begin
# Line 2832  begin Line 2524  begin
2524          Canvas.TextOut(XPosSorteringsfelt2,YPosSorteringsfelt2, Leveringssted);   // sorteringsoplysning 2          Canvas.TextOut(XPosSorteringsfelt2,YPosSorteringsfelt2, Leveringssted);   // sorteringsoplysning 2
2525        end;        end;
2526        Canvas.Font.Size := FontSizeKommentar;        Canvas.Font.Size := FontSizeKommentar;
2527    
2528        Kommentar := StringReplace(Kommentar, #$A, ' - ', [rfReplaceAll, rfIgnoreCase]);        Kommentar := StringReplace(Kommentar, #$A, ' - ', [rfReplaceAll, rfIgnoreCase]);
 // 20150304: start  
2529        Kommentar := StringReplace(Kommentar, 'PAKKE ER SCANNET', '', [rfReplaceAll, rfIgnoreCase]);        Kommentar := StringReplace(Kommentar, 'PAKKE ER SCANNET', '', [rfReplaceAll, rfIgnoreCase]);
2530  // 20150304: slut  
2531        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)
2532        if SmsKode <> '' then        if SmsKode <> '' then
2533        begin        begin
# Line 2849  begin Line 2541  begin
2541  end;  end;
2542    
2543    
2544  procedure TMainForm.RadioButton1Click(Sender: TObject);  procedure TMainForm.radioStorPakkeClick(Sender: TObject);
2545  begin  begin
2546      Storepakker1.Checked := true;      Storepakker1.Checked := true;
2547      RadioButton1.Checked := true;      radioStorPakke.Checked := true;
2548  end;  end;
2549    
2550  procedure TMainForm.RadioButton2Click(Sender: TObject);  procedure TMainForm.radioLillePakkeClick(Sender: TObject);
2551  begin  begin
2552      Smpakker1.Checked := true;      Smpakker1.Checked := true;
2553      RadioButton2.Checked := true;      radioLillePakke.Checked := true;
2554  end;  end;
2555    
2556    
# Line 2912  begin Line 2604  begin
2604      Automatiskvalg1.Checked := false;      Automatiskvalg1.Checked := false;
2605      PanelValgA.Color := clBtnFace;      PanelValgA.Color := clBtnFace;
2606      PanelValgA.Font.Color := clWindowText;      PanelValgA.Font.Color := clWindowText;
2607  // 20150317: start  
2608      if (SpecialVersionSted = '01')      if (SpecialVersionSted = '01')
2609      or (SpecialVersionSted = '02')        or (SpecialVersionSted = '02')
2610      or (SpecialVersionSted = '03')        or (SpecialVersionSted = '03')
2611      or (SpecialVersionSted = '04') then        or (SpecialVersionSted = '04') then
2612      begin      begin
2613        // 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)
2614        PanelValgA.Enabled := false;        PanelValgA.Enabled := false;
# Line 3223  begin Line 2915  begin
2915            end;            end;
2916          end;          end;
2917    
2918  // 20150330: start  
2919          // Tjekker UrlEKLoverforselPakkeshop          // Tjekker UrlEKLoverforselPakkeshop
2920          if PanelValg5.Enabled = true then          if PanelValg5.Enabled = true then
2921          begin          begin
# Line 3251  begin Line 2943  begin
2943              end;              end;
2944            end;            end;
2945          end;          end;
2946  // 20150330: slut  
2947    
2948          // Tjekker UrlFindPakketype          // Tjekker UrlFindPakketype
2949          if CheckUrl(UrlFindPakketype) then          if CheckUrl(UrlFindPakketype) then
# Line 3514  var Line 3206  var
3206    BoghandlerNavn : String;    BoghandlerNavn : String;
3207    Koreliste : String;    Koreliste : String;
3208    Falsk : Boolean;    Falsk : Boolean;
   Sand : Boolean;  
3209    SmsKode : String;    SmsKode : String;
3210    DBKbane : String;    DBKbane : String;
3211    Leveringssted : String;    Leveringssted : String;
# Line 3541  begin Line 3232  begin
3232    else    else
3233    begin    begin
3234      Falsk := False;      Falsk := False;
3235      Sand := True;  
3236      HentPakkeInfoFraServer(Sted,'111111111100000', RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted, Falsk, '');      HentPakkeInfoFraServer(Sted,'111111111100000', RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted, Falsk, '');
3237      UpdateScreen(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, '');      UpdateScreen(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, '');
3238      SmsKode := '999999';      SmsKode := '999999';
# Line 3561  var Line 3252  var
3252    BoghandlerNavn : String;    BoghandlerNavn : String;
3253    Koreliste : String;    Koreliste : String;
3254    Falsk : Boolean;    Falsk : Boolean;
   Sand : Boolean;  
3255    SmsKode : String;    SmsKode : String;
3256    DBKbane : String;    DBKbane : String;
3257    Leveringssted : String;    Leveringssted : String;
# Line 3570  begin Line 3260  begin
3260    Kommentar := '***** Kommentar *****';    Kommentar := '***** Kommentar *****';
3261    BoghandlerNavn := 'Modtagernavn';    BoghandlerNavn := 'Modtagernavn';
3262    Falsk := False;    Falsk := False;
3263    Sand := True;  
3264    
3265    if (Printer.Printers.Count = 0) then    if (Printer.Printers.Count = 0) then
3266    begin    begin
# Line 3778  begin Line 3468  begin
3468    end;    end;
3469  end;  end;
3470    
3471    procedure TMainForm.menuIndleveringClick(Sender: TObject);
3472    begin
3473      Scanningtype := '7';
3474      NulstilAutomatiskValg();
3475      InitIndleveringskode();
3476    end;
3477    
3478  procedure TMainForm.Sprgefterboghandlernummer1Click(Sender: TObject);  procedure TMainForm.Sprgefterboghandlernummer1Click(Sender: TObject);
3479  begin  begin
3480    
# Line 3825  begin Line 3522  begin
3522        Sprgefterboghandlernummer1.Enabled := true;        Sprgefterboghandlernummer1.Enabled := true;
3523        Smpakker1.Enabled := false;        Smpakker1.Enabled := false;
3524        Storepakker1.Enabled := false;        Storepakker1.Enabled := false;
3525        RadioButton1.Enabled := false;        radioStorPakke.Enabled := false;
3526        RadioButton2.Enabled := false;        radioLillePakke.Enabled := false;
3527        ListBox1.Visible := true;        ListBox1.Visible := true;
3528        OpdaterListenButton01.Enabled := true;        OpdaterListenButton01.Enabled := true;
3529        EKLoverforsel.Enabled := true;        EKLoverforsel.Enabled := true;
# Line 3857  begin Line 3554  begin
3554        Sprgefterboghandlernummer1.Enabled := false;        Sprgefterboghandlernummer1.Enabled := false;
3555        Smpakker1.Enabled := true;        Smpakker1.Enabled := true;
3556        Storepakker1.Enabled := true;        Storepakker1.Enabled := true;
3557        RadioButton1.Enabled := true;        radioStorPakke.Enabled := true;
3558        RadioButton2.Enabled := true;        radioLillePakke.Enabled := true;
3559        ListBox1.Visible := true;        ListBox1.Visible := true;
3560        ListBox1.Items.Clear;        ListBox1.Items.Clear;
3561        ListBox2.Items.Clear;        ListBox2.Items.Clear;
# Line 3883  begin Line 3580  begin
3580        Sprgefterboghandlernummer1.Enabled := false;        Sprgefterboghandlernummer1.Enabled := false;
3581        Smpakker1.Enabled := true;        Smpakker1.Enabled := true;
3582        Storepakker1.Enabled := true;        Storepakker1.Enabled := true;
3583        RadioButton1.Enabled := true;        radioStorPakke.Enabled := true;
3584        RadioButton2.Enabled := true;        radioLillePakke.Enabled := true;
3585        ListBox1.Visible := true;        ListBox1.Visible := true;
3586        ListBox1.Items.Clear;        ListBox1.Items.Clear;
3587        ListBox2.Items.Clear;        ListBox2.Items.Clear;
# Line 3910  begin Line 3607  begin
3607        Sprgefterboghandlernummer1.Enabled := false;        Sprgefterboghandlernummer1.Enabled := false;
3608        Smpakker1.Enabled := true;        Smpakker1.Enabled := true;
3609        Storepakker1.Enabled := true;        Storepakker1.Enabled := true;
3610        RadioButton1.Enabled := true;        radioStorPakke.Enabled := true;
3611        RadioButton2.Enabled := true;        radioLillePakke.Enabled := true;
3612        ListBox1.Visible := true;        ListBox1.Visible := true;
3613        ListBox1.Items.Clear;        ListBox1.Items.Clear;
3614        DownloadButton01.Enabled := false;        DownloadButton01.Enabled := false;
# Line 3946  begin Line 3643  begin
3643        Sprgefterboghandlernummer1.Enabled := false;        Sprgefterboghandlernummer1.Enabled := false;
3644        Smpakker1.Enabled := false;        Smpakker1.Enabled := false;
3645        Storepakker1.Enabled := false;        Storepakker1.Enabled := false;
3646        RadioButton1.Enabled := false;        radioStorPakke.Enabled := false;
3647        RadioButton2.Enabled := false;        radioLillePakke.Enabled := false;
3648        ListBox1.Visible := true;        ListBox1.Visible := true;
3649        ListBox1.Items.Clear;        ListBox1.Items.Clear;
3650        DownloadButton01.Enabled := false;        DownloadButton01.Enabled := false;
3651        OpdaterListenButton01.Enabled := true;        OpdaterListenButton01.Enabled := true;
3652  // 20150330: start  
 //      EKLoverforsel.Enabled := false;  
3653        EKLoverforsel.Enabled := true;        EKLoverforsel.Enabled := true;
3654  // 20150330: slut  
3655        InitLillePakke();        InitLillePakke();
3656        IndlesScanningLogFil();        IndlesScanningLogFil();
3657        if BladhusSted = 0 then        if BladhusSted = 0 then
# Line 3984  begin Line 3680  begin
3680        Sprgefterboghandlernummer1.Enabled := false;        Sprgefterboghandlernummer1.Enabled := false;
3681        Smpakker1.Enabled := false;        Smpakker1.Enabled := false;
3682        Storepakker1.Enabled := false;        Storepakker1.Enabled := false;
3683        RadioButton1.Enabled := false;        radioStorPakke.Enabled := false;
3684        RadioButton2.Enabled := false;        radioLillePakke.Enabled := false;
3685        ListBox1.Visible := true;        ListBox1.Visible := true;
3686        ListBox1.Items.Clear;        ListBox1.Items.Clear;
3687        DownloadButton01.Enabled := false;        DownloadButton01.Enabled := false;
# Line 4010  end; Line 3706  end;
3706    
3707  procedure TMainForm.InitIndleveringskode();  procedure TMainForm.InitIndleveringskode();
3708  begin  begin
3709          menuIndlevering.Checked := true;
3710        AutomatiskTjekkodeStyring1.Enabled := false;        AutomatiskTjekkodeStyring1.Enabled := false;
3711        Returpakkerfrapakkeshop1.Checked := true;  
3712        PakkeshopNulstil.Visible := false;        PakkeshopNulstil.Visible := false;
3713        InitForm(FarveReturPakkeshop,TitelReturPakkeshop,UrlReturPakkeshop);        InitForm(FarveIndlevering, TitelIndlevering, UrlReturPakkeshop);
3714        PanelValg7.Color := clGreen;        PanelValg7.Color := clGreen;
3715        PanelValg7.Font.Color := clWhite;        PanelValg7.Font.Color := clWhite;
3716    
# Line 4022  begin Line 3719  begin
3719    
3720        Altidprintepakkelabel1.Checked := false;        Altidprintepakkelabel1.Checked := false;
3721        Sprgefterboghandlernummer1.Checked := false;        Sprgefterboghandlernummer1.Checked := false;
       chkSporgEfterKunde.Checked := false;  
3722        Sprgefterboghandlernummer1.Enabled := false;        Sprgefterboghandlernummer1.Enabled := false;
3723          chkSporgEfterKunde.Checked := false;
3724    
3725    
3726    
3727        Smpakker1.Enabled := false;        Smpakker1.Enabled := false;
3728        Storepakker1.Enabled := false;        Storepakker1.Enabled := false;
3729        RadioButton1.Enabled := false;        radioStorPakke.Enabled := false;
3730        RadioButton2.Enabled := false;        radioLillePakke.Enabled := false;
3731        ListBox1.Visible := true;        ListBox1.Visible := true;
3732        ListBox1.Items.Clear;        ListBox1.Items.Clear();
3733    
3734        DownloadButton01.Enabled := false;        DownloadButton01.Enabled := false;
3735        OpdaterListenButton01.Enabled := true;        OpdaterListenButton01.Enabled := true;
3736        EKLoverforsel.Enabled := false;        EKLoverforsel.Enabled := false;
# Line 4056  end; Line 3757  end;
3757    
3758  procedure TMainForm.InitLillePakke();  procedure TMainForm.InitLillePakke();
3759  begin  begin
3760    RadioButton2.Checked := true;    radioLillePakke.Checked := true;
3761    Smpakker1.Checked := true;    Smpakker1.Checked := true;
 // 20150310: start  
3762  //  Stregkode := '';  //  Stregkode := '';
 // 20150310: slut  
3763  end;  end;
3764    
3765  procedure TMainForm.InitStorPakke();  procedure TMainForm.InitStorPakke();
3766  begin  begin
3767    RadioButton1.Checked := true;    radioStorPakke.Checked := true;
3768    Storepakker1.Checked := true;    Storepakker1.Checked := true;
3769  // 20150310: start  // 20150310: start
3770  //  Stregkode := '';  //  Stregkode := '';
# Line 4127  begin Line 3826  begin
3826    
3827      // Hvorfor virker ovenstående ikke ???      // Hvorfor virker ovenstående ikke ???
3828      S := '';      S := '';
3829      Str(iVer[1],Result);      Str(iVer[1], Result);
3830      S := S+Result+'.';      S := S+Result+'.';
3831      Str(iVer[2],Result);      Str(iVer[2], Result);
3832      S := S+Result+'.';      S := S+Result+'.';
3833      Str(iVer[3],Result);      Str(iVer[3], Result);
3834      S := S+Result+'.';      S := S+Result+'.';
3835      Str(iVer[4],Result);      Str(iVer[4], Result);
3836      S := S+Result+'';      S := S+Result+'';
3837      Result := S;      Result := S;
3838    end;    end;
# Line 4162  end; Line 3861  end;
3861    
3862  procedure TMainForm.Testlyd2Click(Sender: TObject);  procedure TMainForm.Testlyd2Click(Sender: TObject);
3863  begin  begin
 // 20150317: start  
3864    if (PakkeshopText1.Caption = 'Tjekkode') then    if (PakkeshopText1.Caption = 'Tjekkode') then
3865    begin    begin
3866       if ScannetOkTilTjekkodeLyd  <> '' then       if ScannetOkTilTjekkodeLyd  <> '' then
# Line 4175  begin Line 3873  begin
3873       end;       end;
3874       exit;       exit;
3875    end;    end;
 // 20150317: slut  
3876    
3877    if Smpakker1.Checked then    if Smpakker1.Checked then
3878       if ScannetOkLyd  <> '' then       if ScannetOkLyd  <> '' then
# Line 4184  begin Line 3881  begin
3881       end       end
3882       else       else
3883       begin       begin
 // 20150317: start  
 //       MessageBox(Handle, PWideChar('Lyd fil ikke fundet (scannet)'), 'Information', MB_OK);  
3884         MessageBox(Handle, PWideChar('Lyd fil ikke fundet (ScannetOkLyd)'), 'Information', MB_OK);         MessageBox(Handle, PWideChar('Lyd fil ikke fundet (ScannetOkLyd)'), 'Information', MB_OK);
 // 20150317: slut  
3885       end;       end;
3886    if Storepakker1.Checked then    if Storepakker1.Checked then
3887       if ScannetOkStorLyd  <> '' then       if ScannetOkStorLyd  <> '' then
# Line 4196  begin Line 3890  begin
3890       end       end
3891       else       else
3892       begin       begin
 // 20150317: start  
 //       MessageBox(Handle, PWideChar('Lyd fil ikke fundet (scannet stor)'), 'Information', MB_OK);  
3893         MessageBox(Handle, PWideChar('Lyd fil ikke fundet (ScannetOkStorLyd)'), 'Information', MB_OK);         MessageBox(Handle, PWideChar('Lyd fil ikke fundet (ScannetOkStorLyd)'), 'Information', MB_OK);
 // 20150317: slut  
3894       end;       end;
3895  end;  end;
3896    
# Line 4904  var Line 4595  var
4595    pakketypeix, antalLiniefelter, antalFelterFundet, linienr : Integer;    pakketypeix, antalLiniefelter, antalFelterFundet, linienr : Integer;
4596    pakketyper : TStrings;    pakketyper : TStrings;
4597    antlin : Integer;    antlin : Integer;
4598  // 20150306: start  
4599    antlinIdag, antlinSenere : Integer;    antlinIdag, antlinSenere : Integer;
4600  // 20150306: slut  
4601    XmlFelter : TStrings;    XmlFelter : TStrings;
4602    
4603   begin   begin
# Line 4926  var Line 4617  var
4617          StedKode := Sted;          StedKode := Sted;
4618        end;        end;
4619    
4620  // 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;  
 *)  
4621      if (Scanningtype = '6') then      if (Scanningtype = '6') then
4622       begin       begin
4623        URLStr := Format(UrlPakkeshopManglendeReturScanninger,[StedKode]);        URLStr := Format(UrlPakkeshopManglendeReturScanninger,[StedKode]);
# Line 4988  var Line 4661  var
4661      try      try
4662        XMLDocument1.LoadFromXML(WebSvar);        XMLDocument1.LoadFromXML(WebSvar);
4663    
4664  // 20150206: start  
4665        antlin := 0;        antlin := 0;
4666        antlinIdag := 0;        antlinIdag := 0;
4667        antlinSenere := 0;        antlinSenere := 0;
4668  // 20150306: slut  
       antalFelterFundet := 0;  
4669        for I:= 0 to XMLDocument1.DocumentElement.ChildNodes.Count - 1 do begin        for I:= 0 to XMLDocument1.DocumentElement.ChildNodes.Count - 1 do begin
4670            Node:= XMLDocument1.DocumentElement.ChildNodes[I];            Node:= XMLDocument1.DocumentElement.ChildNodes[I];
4671            if Node.NodeType = ntElement then begin            if Node.NodeType = ntElement then begin
# Line 5025  var Line 4697  var
4697        antalFelterFundet := 0;        antalFelterFundet := 0;
4698        SetLength(stregkoderMedTjekkodeArray, 0);    // reset fra tidligere brug        SetLength(stregkoderMedTjekkodeArray, 0);    // reset fra tidligere brug
4699        SetLength(stregkoderMedTjekkodeArray, antlin);  // sæt antal elementer i array        SetLength(stregkoderMedTjekkodeArray, antlin);  // sæt antal elementer i array
4700  // 20150206: start  
 //      logTekst := 'Der er '+IntToStr(antlin)+' pakker, der endnu ikke er modtaget.';  
4701        logTekst := 'Der er ' + IntToStr(antlin) + ' pakker, der endnu ikke er modtaget';        logTekst := 'Der er ' + IntToStr(antlin) + ' pakker, der endnu ikke er modtaget';
4702        if (antlinSenere > 0) then        if (antlinSenere > 0) then
4703        begin        begin
4704          logTekst := logTekst + ' (' + IntToStr(antlinIdag) + ' til i dag og ' + IntToStr(antlinSenere) + ' til senere)';          logTekst := logTekst + ' (' + IntToStr(antlinIdag) + ' til i dag og ' + IntToStr(antlinSenere) + ' til senere)';
4705        end;        end;
4706        logTekst := logTekst + '.';        logTekst := logTekst + '.';
4707  // 20150306: slut  
4708        SkrivScanningLogFil(logTekst);        SkrivScanningLogFil(logTekst);
4709        for I:= 0 to XMLDocument1.DocumentElement.ChildNodes.Count - 1 do begin        for I:= 0 to XMLDocument1.DocumentElement.ChildNodes.Count - 1 do begin
4710            Node:= XMLDocument1.DocumentElement.ChildNodes[I];            Node:= XMLDocument1.DocumentElement.ChildNodes[I];
# Line 5083  var Line 4754  var
4754                    begin                    begin
4755                      stregkoderMedTjekkodeArray[linienr] := stregkode;                      stregkoderMedTjekkodeArray[linienr] := stregkode;
4756                    end;                    end;
4757  // 20150306: slut                    linienr := linienr + 1;
                     linienr := linienr + 1;  
4758                  end;                  end;
4759              end;              end;
4760              if antalFelterFundet = antalLiniefelter then              if antalFelterFundet = antalLiniefelter then
# Line 5109  var Line 4779  var
4779    
4780          // Free up the list object          // Free up the list object
4781        pakketyper.Free;        pakketyper.Free;
 // 20150306: start  
4782  //      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.');
4783        logTekst := 'Der er ' + IntToStr(antlin) + ' pakker, der endnu ikke er modtaget';        logTekst := 'Der er ' + IntToStr(antlin) + ' pakker, der endnu ikke er modtaget';
4784        if (antlinSenere > 0) then        if (antlinSenere > 0) then
# Line 5118  var Line 4787  var
4787        end;        end;
4788        logTekst := logTekst + '.';        logTekst := logTekst + '.';
4789        ListBox1.Items.Insert(0,TimeToStr(now) + ': ' + logTekst);        ListBox1.Items.Insert(0,TimeToStr(now) + ': ' + logTekst);
 // 20150306: slut  
 // 20150309: start  
4790        if (antlinSenere > 0) then        if (antlinSenere > 0) then
4791        begin        begin
4792          StaticTextManglendePakker.Caption := IntToStr(antlinIdag) + '/' + IntToStr(antlinSenere);          StaticTextManglendePakker.Caption := IntToStr(antlinIdag) + '/' + IntToStr(antlinSenere);
# Line 5128  var Line 4795  var
4795        begin        begin
4796          StaticTextManglendePakker.Caption := IntToStr(antlinIdag);          StaticTextManglendePakker.Caption := IntToStr(antlinIdag);
4797        end;        end;
 // 20150309: slut  
4798    
 // 20150310: start  
4799        if (Scanningtype = '1') then        if (Scanningtype = '1') then
4800        begin        begin
4801          //antlinIdag := 9876;  // til test af boksens udseende ved stort tal          //antlinIdag := 9876;  // til test af boksens udseende ved stort tal
# Line 5209  var Line 4874  var
4874            PanelManglendePakker6.Visible := false;            PanelManglendePakker6.Visible := false;
4875          end;          end;
4876        end;        end;
 // 20150310: slut  
4877    
4878      except on e:exception do      except on e:exception do
4879        begin        begin
# Line 5271  end; Line 4935  end;
4935  procedure TMainForm.SkrivScanningLogFil(var tekst : string);  procedure TMainForm.SkrivScanningLogFil(var tekst : string);
4936  var  var
4937     SomeTxtFile : TextFile;     SomeTxtFile : TextFile;
    buffer : string;  
    S: string;  
4938     idag, imorgen : TDateTime;     idag, imorgen : TDateTime;
4939     imorgenYmd : string;     imorgenYmd : string;
4940     logFilnavn : string;     logFilnavn : string;
# Line 5540  begin Line 5202  begin
5202    result := svar;    result := svar;
5203  end;  end;
5204    
5205    procedure TMainForm.VisAlarmSkaerm(strMessage: string);
5206    begin
5207      //ShowMessage('Ændring ikke tilladt');
5208      // Her skal komme en 'rød skærm' alarm
5209      PlaySound(PWideChar(AlarmLyd));
5210      MainForm.Color := clRed;
5211    
5212    
5213      RuteNummerST.Caption := '';
5214      BoghandlerNavnST.Caption := '';
5215      PakkeshopNulstil.Visible := true;
5216    
5217      if (strMessage <> '') then
5218      begin
5219        ListBox1.Items.Insert(0, strMessage);
5220        KommentarST.Caption := strMessage;
5221      end;
5222    
5223    end;
5224    
5225  function TMainForm.getProddato() : TDate;  function TMainForm.getProddato() : TDate;
5226  var  var
5227     idag, imorgen : TDateTime;     idag, imorgen : TDateTime;
Legend:
Removed from v.2654  
changed lines
  Added in v.2664
  ViewVC Help
Powered by ViewVC 1.1.20