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

Diff of /dao/DelphiScanner/Main.pas

Parent Directory | Revision Log | View Patch Patch

-revision 2793 by torben,
Sun Dec  6 15:23:50 2015 UTC
+revision 2794 by torben,
Thu Dec 17 19:04:09 2015 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 565 
 begin
+Line 570 
 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 1118 
 begin
+Line 1125 
 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 (NumberString = 'Retur fra pakkeshop') then
      begin
-Line 1128 
 begin
+Line 1137 
 begin
      begin
        ShowMessage('Inds�t et gyldigt pakkenummer - uden linieskift');
      end;
-   end;
+   end;  // Slut ctrl-v
    if Key = #13 then     // Enter
    begin
-Line 1182 
 begin
+Line 1191 
 begin
         exit;
      end;
+     if LowerCase(StregKode) = 'for stor hjemmelevering' 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 1687 
 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 2025 
 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 2052 
 begin
          end;
      end;
    end;
    XMLDocument1.LoadFromXML(WebSvar);
    try
      if Pakkeshoplevering1.Checked or Returpakkerfrapakkeshop1.Checked then
-Line 2037 
 begin
+Line 2076 
 begin
          end;
        end;
       end
-     else if menuIndlevering.Checked then
+     else if menuIndlevering.Checked or chkForstorTilDirekte.Checked then
      begin
-Line 2052 
 begin
+Line 2091 
 begin
         Stregkode := PakkeshopLabel.Stregkode;
         LabelPrint.PrintPakkeshopLabel( PakkeshopLabel );
+        chkForstorTilDirekte.Checked := false;
       end;
-Line 4202 
 var
+Line 4242 
 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 4251 
 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 4278 
 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 4297 
 var
                    linienr := linienr + 1;
                  end;
              end;
              if antalFelterFundet = antalLiniefelter then
              begin
                if (ScanningType = '1') then
-Line 4271 
 var
+Line 4315 
 var
            end;
        end;
        Application.Processmessages; //Ugly Hack to improve User Experience when switching modes

 Legend:



Removed from v.2793
 


changed lines


 
Added in v.2794
 Legend:



Removed from v.2793
 


changed lines


 
Added in v.2794
-Removed from v.2793
+Added in v.2794

	ViewVC Help
Powered by ViewVC 1.1.20