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

Diff of /dao/DelphiScanner/Main.pas

Parent Directory | Revision Log | View Patch Patch

-revision 2791 by torben,
Fri Dec  4 15:39:20 2015 UTC
+revision 3048 by torben,
Mon Jun 13 09:12:26 2016 UTC
 Line 39 
 type
      XMLDocument1: TXMLDocument;
      ApplicationEvents1: TApplicationEvents;
      chkSporgEfterKunde: TCheckBox;
-     KommentarST: TStaticText;
      MainMenu1: TMainMenu;
      N1: TMenuItem;
      Pakkernormal1: TMenuItem;
-Line 106 
 type
+Line 105 
 type
      PanelManglendePakker6: TPanel;
      menuIndlevering: TMenuItem;
      chkForstorTilDirekte: TCheckBox;
+     chkEmballageRepareret: TCheckBox;
+     KommentarST: TLabel;
-Line 194 
 type
+Line 195 
 type
    //Nedarvet fra IParentForm
+   procedure Msg( msg : string);
    procedure LogMessage( msg : string);
    procedure SetPrinterstatusText( txt: string; alert: boolean);
    function GetFormObject() : TForm;
    private
      SpecialVersionSted, SpecialVersionScanningtype: String;    // Bruges når programmet skal bruges udenfor DAO scanningssteder
      Stregkode : String;
      SkrivLog : String;
      Sted : String;
      StedNavn : String;
-     Url, UrlNormal, UrlReturDAO, UrlReturBoghandler, UrlBudlevering, UrlManglendeScanninger, UrlPakkeshoplevering, UrlReturPakkeshop, UrlPakkeshopManglendeScanninger, UrlPakkeshopManglendeReturScanninger,UrlIndleveringsPakke,UrlIndleveringsPakkeManglendeScanninger,UrlEKLoverforsel : String;
+     Url, UrlNormal, UrlReturDAO, UrlReturBoghandler, UrlBudlevering, UrlManglendeScanninger, UrlPakkeshoplevering,
+             UrlReturPakkeshop, UrlPakkeshopManglendeScanninger, UrlPakkeshopManglendeReturScanninger,UrlIndleveringsPakke,
+             UrlIndleveringsPakkeManglendeScanninger,UrlEKLoverforsel, URLOmdirigerTilPakkeshop : String;
      UrlEKLoverforselPakkeshop : String;
-Line 215 
 type
+Line 219 
 type
      Scanningtype, TestFunktionen, Pakketype, SporgEfterBoghandler : String;
      ScanTjekkode : String;
      ScanTjekkodeAutomatik : string;
-     Farve, FarveNormal, FarveReturDAO, FarveReturBoghandler, FarveBudlevering, FarvePakkeshoplevering, FarveReturPakkeshop, FarveIndlevering : String;
-     Titel, TitelNormal, TitelReturDAO, TitelReturBoghandler, TitelBudlevering, TitelPakkeshoplevering, TitelReturPakkeshop, TitelIndlevering : String;
+     Farve, FarveNormal, FarveReturDAO, FarveReturBoghandler, FarveBudlevering, FarvePakkeshoplevering, FarveReturPakkeshop,
+           FarveIndlevering : String;
+     Titel, TitelNormal, TitelReturDAO, TitelReturBoghandler, TitelBudlevering, TitelPakkeshoplevering, TitelReturPakkeshop,
+           TitelIndlevering : String;
      AlarmLyd : String;
      ScannetOkLyd : String;
-Line 255 
 type
+Line 263 
 type
      procedure SkrivScanningLogFil(var tekst : string);
      function TjekKoreliste(var RuteNummer, Koreliste : string) : string;
      procedure VisAlarmSkaerm(strMessage: string);
+     function InjectURL(Url : String) : String;
    public
      { Public declarations }
-Line 280 
 implementation
+Line 289 
 implementation
  procedure TMainForm.InitForm(Farve,Titel,Url : String);
  begin
+     IdHTTP1.ConnectTimeout := 5000; // Vent max 5 sek på connect
+     IdHTTP1.ReadTimeout := 10000; // Vent max 10 sek på read
      StaticTextManglendePakker.Caption := '';
-Line 353 
 begin
+Line 368 
 begin
        else if (Sted = 'BR') then
          begin StedNavn := 'Brøndby: '; end
        else if (Sted = 'BK') then
-         begin StedNavn := 'Bladkompagniet: '; end
+         begin StedNavn := 'Bladkompagniet/ISV: '; end
+       else if (Sted = 'TK') then
+         begin StedNavn := 'BK/Trykkompagniet: '; end
        else if (Sted = 'DBK') then
-         begin StedNavn := 'DBK Køge: '; end
+         begin StedNavn := 'DBK/Køge: '; end
        else if (Sted = '1') then
          begin StedNavn := 'Ålborg: '; end
        else if (Sted = '2') then
-Line 496 
 begin
+Line 513 
 begin
       PanelValgA.Font.Color := clWhite;
  end;
+ function TMainForm.InjectURL(Url : String) : String;
+ begin
+   Url := Url + '&ver=' + TUtils.URLEncode( TUtils.Sto_GetFmtFileVersion(''));
+   Url := Url + '&host=' + TUtils.URLEncode( TUtils.GetComputerNameHelper());
+   Url := Url + '&user=' + TUtils.URLEncode( TUtils.GetCurrentUserName());
+   Result := Url;
+ end;
  //InitForm kaldes før FormCreate
  procedure TMainForm.FormCreate(Sender: TObject);
-Line 546 
 begin
+Line 572 
 begin
      SkrivLog := ReadString('Settings','SkrivLog','0');
      Sted := ReadString('Settings','Sted','');
      StedNavn := ReadString('Settings','Stednavn','');
      UrlFindPakketype := ReadString('Settings','UrlFindPakketype','http://omdeling.info/webservices/bogpakkekontrol/FindPakketype.php?stregkode=%s');
+     UrlFindPakketype := InjectURL(UrlFindPakketype);
      UrlSendPrograminfo := ReadString('Settings','UrlSendPrograminfo','http://omdeling.info/webservices/bogpakkekontrol/SendPrograminfo.php?programnavn=%s&sted=%s&scanningtype=%s&infotype=%s&info=%s');
+     UrlSendPrograminfo := InjectURL(UrlSendPrograminfo);
      UrlNormal := ReadString('Settings','UrlNormal','http://omdeling.info/webservices/bogpakkekontrol/bogpakkekontrol.php?sted=%s&pakkenummer=%s&boghandlernummer=%s&tjekkode=%s');
+     UrlNormal := InjectURL(UrlNormal);
      UrlReturDAO := ReadString('Settings','UrlReturDAO','http://omdeling.info/webservices/bogpakkekontrol/bogpakkekontrol.php?sted=%s&pakkenummer=%s&boghandlernummer=%s&returpakketype=%s&pakkestorrelse=%s');
+     UrlReturDAO := InjectURL(UrlReturDAO);
      UrlReturBoghandler := ReadString('Settings','UrlReturBoghandler','http://omdeling.info/webservices/bogpakkekontrol/bogpakkekontrol.php?sted=%s&pakkenummer=%s&boghandlernummer=%s&returpakketype=%s&pakkestorrelse=%s');
+     UrlReturBoghandler := InjectURL(UrlReturBoghandler);
      UrlBudlevering := ReadString('Settings','UrlBudlevering','http://omdeling.info/webservices/bogpakkekontrol/bogpakkekontrol.php?sted=%s&pakkenummer=%s&leveringstype=%s&pakkestorrelse=%s');
+     UrlBudlevering := InjectURL(UrlBudlevering);
      UrlManglendeScanninger := ReadString('Settings','UrlManglendeScanninger','http://omdeling.info/webservices/bogpakkekontrol/bogpakkemanglendescanninger.php?sted=%s&type=%s');
+     UrlManglendeScanninger := InjectURL(UrlManglendeScanninger);
      UrlEKLoverforsel := ReadString('Settings','UrlEKLoverforsel','http://omdeling.info/webservices/bogpakkekontrol/bogpakkertilekl.php?sted=%s');
+     UrlEKLoverforsel := InjectURL(UrlEKLoverforsel);
      UrlEKLoverforselPakkeshop := ReadString('Settings','UrlEKLoverforselPakkeshop','http://omdeling.info/webservices/pakkeshop/pakkertilekl.php?sted=%s');
+     UrlEKLoverforselPakkeshop := InjectURL(UrlEKLoverforselPakkeshop);
      UrlPakkeshoplevering := ReadString('Settings','UrlPakkeshoplevering','http://omdeling.info/webservices/pakkeshop/pakkekontrol.php?sted=%s&stregkode=%s&tjekkode=%s');
+     UrlPakkeshoplevering := InjectURL(UrlPakkeshoplevering);
      UrlReturPakkeshop := ReadString('Settings','UrlReturPakkeshop','http://omdeling.info/webservices/pakkeshop/returpakkekontrol.php?sted=%s&stregkode=%s');
+     UrlReturPakkeshop := InjectURL(UrlReturPakkeshop);
      UrlPakkeshopManglendeScanninger := ReadString('Settings','UrlPakkeshopManglendeScanninger','http://omdeling.info/webservices/pakkeshop/pakkemanglendescanninger.php?sted=%s');
-     UrlPakkeshopManglendeReturScanninger := ReadString('Settings','UrlPakkeshopManglendeReturScanninger','http://omdeling.info/webservices/pakkeshop/pakkemanglendereturscanninger.php?sted=%s');
+     UrlPakkeshopManglendeScanninger := InjectURL(UrlPakkeshopManglendeScanninger);
+     UrlPakkeshopManglendeReturScanninger := ReadString('Settings','UrlPakkeshopManglendeReturScanninger','http://omdeling.info/webservices/pakkeshop/pakkemanglendereturscanninger.php?sted=%s');
+     UrlPakkeshopManglendeReturScanninger := InjectURL(UrlPakkeshopManglendeReturScanninger);
      UrlIndleveringsPakke := ReadString('Settings','UrlIndleveringsPakke','http://omdeling.info/webservices/pakkeshop/PakkekontrolIndleveringskode.php?sted=%s&pakkekode=%s');
+     UrlIndleveringsPakke := InjectURL(UrlIndleveringsPakke);
      UrlIndleveringsPakkeManglendeScanninger := ReadString('Settings', 'UrlIndleveringsPakkeManglendeScanninger','http://omdeling.info/webservices/pakkeshop/IndleveringsPakkeManglendeScanninger.php?sted=%s');
+     UrlIndleveringsPakkeManglendeScanninger := InjectURL(UrlIndleveringsPakkeManglendeScanninger);
+     URLOmdirigerTilPakkeshop := ReadString('Settings', 'URLOmdirigerTilPakkeshop','http://omdeling.info/webservices/pakkeshop/PakkeKontrolOmdirigerTilPakkeshop.php?sted=%s&stregkode=%s');
+     URLOmdirigerTilPakkeshop := InjectURL(URLOmdirigerTilPakkeshop);
-Line 682 
 begin
+Line 737 
 begin
  {$IfDef STED_BK}
      SpecialVersionSted := 'BK';
  {$EndIf}
+ {$IfDef STED_TK}
+     SpecialVersionSted := 'TK';// BK-Trykkompagniet
+ {$EndIf}
  {$IfDef STED_DBK}
      SpecialVersionSted := 'DBK';
  {$EndIf}
-Line 692 
 begin
+Line 750 
 begin
      SpecialVersionSted := 'NS';
  {$EndIf}
      //SpecialVersionSted := '01';  // NS - bruges sammen med nedenstående SpecialVersionScanningtype DIREKTE)
      //SpecialVersionSted := '02';  // BK - BRUGES IKKE (brug i stedet ovenstående SpecialVersionSted BK)
      //SpecialVersionSted := '03';  // FD - (bruges sammen med nedenstående SpecialVersionScanningtype DIREKTE)
-Line 710 
 begin
+Line 767 
 begin
      if SpecialVersionSted = 'NS' then
      begin
-        SpecialVersionSted := '01';
+        //SpecialVersionSted := '01'; // Fra før NS overtog scanning løssalg
-        SpecialVersionScanningtype := '4';
+        //SpecialVersionScanningtype := '4';
+       //FarveNormal := 'A9F5A9';  // her kan vi evt. overrule ini fil
+       Sted := SpecialVersionSted;
+      // her skal vi også disable de knapper BK ikke kan bruge
+       PanelValg2.Enabled := false;
+       PanelValg2.Font.Color := clInactiveCaption;
+       PanelValg3.Enabled := false;
+       PanelValg3.Font.Color := clInactiveCaption;
+       //PanelValg6.Enabled := false;
+       //PanelValg6.Font.Color := clInactiveCaption;
+      // her skal vi også disable de menupunkter FD ikke kan bruge
+       ReturpakkerfraDAO1.Enabled := false;
+       Returpakkerfraboghandler1.Enabled := false;
+       //Returpakkerfrapakkeshop1.Enabled := false;
      end;
      if SpecialVersionSted = 'FD' then
      begin
-        SpecialVersionSted := '03';
+        //SpecialVersionSted := '03'; //fra før at FD overtog scanning
-        SpecialVersionScanningtype := '4';
+        //SpecialVersionScanningtype := '4';
+       //FarveNormal := 'A9F5A9';  // her kan vi evt. overrule ini fil
+       Sted := SpecialVersionSted;
+      // her skal vi også disable de knapper BK ikke kan bruge
+       PanelValg2.Enabled := false;
+       PanelValg2.Font.Color := clInactiveCaption;
+       PanelValg3.Enabled := false;
+       PanelValg3.Font.Color := clInactiveCaption;
+       //PanelValg6.Enabled := false;
+       //PanelValg6.Font.Color := clInactiveCaption;
+      // her skal vi også disable de menupunkter FD ikke kan bruge
+       ReturpakkerfraDAO1.Enabled := false;
+       Returpakkerfraboghandler1.Enabled := false;
+       //Returpakkerfrapakkeshop1.Enabled := false;
      end;
-     if SpecialVersionSted = 'BK' then
+     if (SpecialVersionSted = 'BK') OR (SpecialVersionSted = 'TK') then
      begin
        //FarveNormal := 'A9F5A9';  // her kan vi evt. overrule ini fil
        Sted := SpecialVersionSted;
-Line 760 
 begin
+Line 852 
 begin
        PanelValg5.Font.Color := clInactiveCaption;
        PanelValg6.Enabled := false;
        PanelValg6.Font.Color := clInactiveCaption;
-       PanelValg7.Enabled := false;
-       PanelValg7.Font.Color := clInactiveCaption;
       // her skal vi også disable de menupunkter DBK ikke kan bruge
        ReturpakkerfraDAO1.Enabled := false;
-Line 1118 
 begin
+Line 1209 
 begin
      or (NumberString = 'Retur fra kunde')
      or (NumberString = 'DAO DIREKTE')
      or (NumberString = 'DAO PAKKESHOP')
+     or (NumberString = 'DAO PAKKESHOP')
+     or (LowerCase(NumberString) = 'for stor hjemmelevering' )
+         or (LowerCase(NumberString) = 'for stor daodirekte' )
      or (NumberString = 'Retur fra pakkeshop') then
      begin
-Line 1128 
 begin
+Line 1222 
 begin
      begin
        ShowMessage('Indsæt et gyldigt pakkenummer - uden linieskift');
      end;
-   end;
+   end;  // Slut ctrl-v
    if Key = #13 then     // Enter
    begin
-     if (Length(Trim(Stregkode)) = 0) then
+     // Sikre at den er trimmet inden vi går videre - DBK kan finde på at encode et space i enden af deres barcodes
+     Stregkode := Trim(Stregkode);
+     if (Length(Stregkode) = 0) then
      begin
        VisAlarmSkaerm( 'Der skal scannes en stregkode...' );
-Line 1182 
 begin
+Line 1280 
 begin
         exit;
      end;
+     if (LowerCase(StregKode) = 'for stor hjemmelevering') OR (LowerCase(StregKode) = 'for stor daodirekte') then
+     begin
+       if chkForstorTilDirekte.Enabled then
+       begin
+         chkForstorTilDirekte.Checked := true;
+       end
+       else
+       begin
+          VisAlarmSkaerm( Stregkode + ' kan ikke vælges på denne scannings tilstand' );
+       end;
+       Stregkode := '';
+       StregkodeST.Caption := StregKode;
+       exit;
+     end;
      if StregKode = 'Indtast kundenummer' then
      begin
         if chkSporgEfterKunde.Enabled = true then
-Line 1420 
 begin
+Line 1534 
 begin
                InitPakkeshoplevering();
              end;
            end
-       // Retur kan ikke scannes med 'Automatisk valg'
+      else if Pakketype = 'PakkeshopRetur' then
+           begin
+             if Scanningtype <> '6' then
+             begin
+              VisAlarmSkaerm( Stregkode + ' Pakkeshop retur,'#13#10' kan ikke bruges med automatisk valg' );
+              exit;
+             end;
+           end
        else
            begin
-Line 1662 
 begin
+Line 1785 
 begin
    Key := #0;
  end; //End of OnKeyPress
  procedure TMainForm.SendInfoTilServer(Sted, Scanningtype, Infotype, Info : String);
  const
    crlf = Chr(13) + Chr(10) ;  // Carriage return & Linefeed
-Line 1993 
 begin
+Line 2123 
 begin
    begin
      exit;
    end;
+   if chkForstorTilDirekte.Checked then  // Denne skal være efter if/else kæden da den overrider de øvrige URL'er
+   begin
+     URLStr := Format(URLOmdirigerTilPakkeshop,[Sted, PakkeNr]);
+   end;
    try
      //raise EIdConnClosedGracefully.Create('test');   // KUN TIL TEST
      WebSvar := IdHTTP1.Get(URLStr);
-Line 2014 
 begin
+Line 2150 
 begin
          end;
      end;
    end;
    XMLDocument1.LoadFromXML(WebSvar);
    try
      if Pakkeshoplevering1.Checked or Returpakkerfrapakkeshop1.Checked then
-Line 2037 
 begin
+Line 2174 
 begin
          end;
        end;
       end
-     else if menuIndlevering.Checked then
+     else if menuIndlevering.Checked or chkForstorTilDirekte.Checked then
      begin
-Line 2052 
 begin
+Line 2189 
 begin
         Stregkode := PakkeshopLabel.Stregkode;
         LabelPrint.PrintPakkeshopLabel( PakkeshopLabel );
+        chkForstorTilDirekte.Checked := false;
       end;
-Line 2864 
 begin
+Line 3002 
 begin
      SmsKode := '999999';
      DBKbane := '999';
      Leveringssted := 'XXX';
-     PrintLabel(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted, Falsk);
+     LabelPrint.TestZpl();
+     //PrintLabel(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted, Falsk);
      LabelPrint.CheckPrintQue('Test', PrinterNavn);
    end;
    FocusControl(StregkodeST);
-Line 2935 
 begin
+Line 3074 
 begin
  end;
  procedure TMainForm.ListBox1DrawItem(Control: TWinControl; Index: Integer;
    Rect: TRect; State: TOwnerDrawState);
  var
-Line 4075 
 var
+Line 4215 
 var
    antlinIdag, antlinSenere : Integer;
-   XmlFelter : TStrings;
+   //XmlFelter : TStrings;
+   XmlFelter : TDictionary<String, Integer>;
   begin
-     XmlFelter := TStringList.Create;
+     XmlFelter := TDictionary<String, Integer>.Create;
      pakketyper := TDictionary<String, Integer>.Create;
      linienr := 0;
      ListBox2.Clear;
      ListBox1.Items.Insert(0,TimeToStr(now) + ': ' + 'Henter oversigt over pakker der endnu ikke er modtaget');
-Line 4135 
 var
+Line 4277 
 var
        begin
          // Her skal vi ikke gøre noget - men vi skal forespørge igen
          WebSvar := IdHTTP1.Get(URLStr);
        end;
        on e:exception do
        begin
-Line 4157 
 var
+Line 4302 
 var
            if Node.NodeType = ntElement then begin
              if Node.NodeName = 'Stregkode' then
              begin
-                antlin := antlin + 1;
+                Inc(antlin);
                 // 20150306: start
                if not VarIsNull(Node.NodeValue) then
                begin
                   if (pos('(', Node.NodeValue) = 0) then
                   begin
-                    antlinIdag := antlinIdag + 1;
+                    Inc(antlinIdag);
                   end
                   else
                   begin
-                    antlinSenere := antlinSenere + 1;
+                    Inc(antlinSenere);
                   end;
                end;
                 // 20150306: slut
              end;
            end;
-           if (XmlFelter.values[Node.NodeName] <> '') then
+           if ( XmlFelter.ContainsKey(Node.NodeName) ) then
-                 XmlFelter.values[Node.NodeName] := IntToStr(StrToInt(XmlFelter.values[Node.NodeName]) + 1)
+               begin
+                 XmlFelter.TryGetValue(Node.NodeName, tmpAntal);
+                 XmlFelter.AddOrSetValue(Node.NodeName, tmpAntal + 1);
+               end
                else
-                 XmlFelter.values[Node.NodeName] := '1';
+               begin
+                 XmlFelter.Add(Node.NodeName, 1);
+               end;
        end;
        antalLiniefelter := XmlFelter.Count;
-Line 4195 
 var
+Line 4345 
 var
        logTekst := logTekst + '.';
        SkrivScanningLogFil(logTekst);
        for I:= 0 to XMLDocument1.DocumentElement.ChildNodes.Count - 1 do begin
            Node:= XMLDocument1.DocumentElement.ChildNodes[I];
            if Node.NodeType = ntElement then begin
-Line 4202 
 var
+Line 4354 
 var
                if not VarIsNull(Node.NodeValue) then
                  stregkode := Node.NodeValue;
                  antalFelterFundet := antalFelterFundet + 1;
-             end;
+             end
-             if Node.NodeName = 'ModtagerNavn' then begin
+             else if Node.NodeName = 'ModtagerNavn' then begin
                if not VarIsNull(Node.NodeValue) then
                  modtagernavn := Node.NodeValue;
                  antalFelterFundet := antalFelterFundet + 1;
-             end;
+             end
-             if Node.NodeName = 'ModtagerAdresse' then begin
+             else if Node.NodeName = 'ModtagerAdresse' then begin
                if not VarIsNull(Node.NodeValue) then
                  modtageradresse := Node.NodeValue;
                  antalFelterFundet := antalFelterFundet + 1;
-             end;
+             end
-             if Node.NodeName = 'Kommentar' then begin
+             else if Node.NodeName = 'Kommentar' then begin
                if not VarIsNull(Node.NodeValue) then
                  kommentar := Node.NodeValue;
                  antalFelterFundet := antalFelterFundet + 1;
-             end;
+             end
-             if Node.NodeName = 'PakkeType' then begin
+             else if Node.NodeName = 'PakkeType' then begin
                if not VarIsNull(Node.NodeValue) then
                  pakketype := Node.NodeValue;
                  antalFelterFundet := antalFelterFundet + 1;
-Line 4229 
 var
+Line 4381 
 var
                end
                else
                  pakketyper.Add(pakketype, 1);
-             end;
+             end
-             if Node.NodeName = 'TjekkodeStatus' then begin
+             else if Node.NodeName = 'TjekkodeStatus' then begin
                if not VarIsNull(Node.NodeValue) then
                  tjekkodestatus := Node.NodeValue;
                  antalFelterFundet := antalFelterFundet + 1;
-Line 4248 
 var
+Line 4400 
 var
                    linienr := linienr + 1;
                  end;
              end;
              if antalFelterFundet = antalLiniefelter then
              begin
                if (ScanningType = '1') then
-Line 4265 
 var
+Line 4419 
 var
        end;
+       Application.Processmessages; //Ugly Hack to improve User Experience when switching modes
        for pakketype in pakketyper.Keys do
        begin
          pakketyper.TryGetValue(pakketype, tmpAntal);
-Line 4717 
 begin
+Line 4874 
 begin
      KommentarST.Caption := strMessage;
    end;
+   Stregkode := ''; //Nulstil stregkode feltet efter at fejl er vist
  end;
  function TMainForm.getProddato() : TDate;
-Line 4790 
 begin
+Line 4949 
 begin
  end;
+ //Nedarvet fra IParentForm
+ procedure TMainForm.Msg( msg : string);
+ begin
+   ShowMessage(msg);
+ end;
  //Nedarvet fra IParentForm
  procedure TMainForm.LogMessage( msg : string);

 Legend:



Removed from v.2791
 


changed lines


 
Added in v.3048
 Legend:



Removed from v.2791
 


changed lines


 
Added in v.3048
-Removed from v.2791
+Added in v.3048

	ViewVC Help
Powered by ViewVC 1.1.20