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

Diff of /dao/DelphiScanner/Main.pas

Parent Directory | Revision Log | View Patch Patch

-revision 2792 by torben,
Sun Dec  6 15:23:50 2015 UTC
+revision 2977 by torben,
Tue Mar 15 13:44:38 2016 UTC
 Line 194 
 type
    //Nedarvet fra IParentForm
    procedure LogMessage( msg : string);
    procedure SetPrinterstatusText( txt: string; alert: boolean);
-Line 207 
 type
+Line 206 
 type
      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 216 
 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 353 
 begin
+Line 358 
 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 565 
 begin
+Line 572 
 begin
      UrlIndleveringsPakke := ReadString('Settings','UrlIndleveringsPakke','http://omdeling.info/webservices/pakkeshop/PakkekontrolIndleveringskode.php?sted=%s&pakkekode=%s');
      UrlIndleveringsPakkeManglendeScanninger := ReadString('Settings', 'UrlIndleveringsPakkeManglendeScanninger','http://omdeling.info/webservices/pakkeshop/IndleveringsPakkeManglendeScanninger.php?sted=%s');
+     URLOmdirigerTilPakkeshop := ReadString('Settings', 'URLOmdirigerTilPakkeshop','http://omdeling.info/webservices/pakkeshop/PakkeKontrolOmdirigerTilPakkeshop.php?sted=%s&stregkode=%s');
-Line 682 
 begin
+Line 691 
 begin
  {$IfDef STED_BK}
      SpecialVersionSted := 'BK';
  {$EndIf}
+ {$IfDef STED_TK}
+     SpecialVersionSted := 'TK';// BK-Trykkompagniet
+ {$EndIf}
  {$IfDef STED_DBK}
      SpecialVersionSted := 'DBK';
  {$EndIf}
-Line 719 
 begin
+Line 731 
 begin
         SpecialVersionScanningtype := '4';
      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 772 
 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 1129 
 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 1142 
 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 1200 
 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 1662 
 begin
+Line 1696 
 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 2034 
 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 2061 
 begin
          end;
      end;
    end;
    XMLDocument1.LoadFromXML(WebSvar);
    try
      if Pakkeshoplevering1.Checked or Returpakkerfrapakkeshop1.Checked then
-Line 2037 
 begin
+Line 2085 
 begin
          end;
        end;
       end
-     else if menuIndlevering.Checked then
+     else if menuIndlevering.Checked or chkForstorTilDirekte.Checked then
      begin
-Line 2052 
 begin
+Line 2100 
 begin
         Stregkode := PakkeshopLabel.Stregkode;
         LabelPrint.PrintPakkeshopLabel( PakkeshopLabel );
+        chkForstorTilDirekte.Checked := false;
       end;
-Line 4202 
 var
+Line 4251 
 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 4209 
 var
+Line 4260 
 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 4236 
 var
+Line 4287 
 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 4255 
 var
+Line 4306 
 var
                    linienr := linienr + 1;
                  end;
              end;
              if antalFelterFundet = antalLiniefelter then
              begin
                if (ScanningType = '1') then
-Line 4271 
 var
+Line 4324 
 var
            end;
        end;
        Application.Processmessages; //Ugly Hack to improve User Experience when switching modes

 Legend:



Removed from v.2792
 


changed lines


 
Added in v.2977
 Legend:



Removed from v.2792
 


changed lines


 
Added in v.2977
-Removed from v.2792
+Added in v.2977

	ViewVC Help
Powered by ViewVC 1.1.20