/[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 3123 by torben, Tue Oct 18 13:57:46 2016 UTC revision 3125 by torben, Wed Oct 19 08:39:31 2016 UTC
# Line 247  type Line 247  type
247    
248      procedure HentPakkeInfoFraServer(const Sted, PakkeNr : String; var RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted : String; var PrintNyLabel: Boolean; BoghandlerNummer : String = '');      procedure HentPakkeInfoFraServer(const Sted, PakkeNr : String; var RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted : String; var PrintNyLabel: Boolean; BoghandlerNummer : String = '');
249      procedure CheckCode();      procedure CheckCode();
250      procedure IndlesManglendeScanninger();      procedure IndlesManglendeScanningerAntal();
251        procedure IndlesManglendeScanningerListe();
252      procedure IndlesRuteskiftFil(var filnavn : string);      procedure IndlesRuteskiftFil(var filnavn : string);
253      procedure IndlesKontrolFil(var filnavn : string);      procedure IndlesKontrolFil(var filnavn : string);
254      procedure IndlesScanningLogFil();      procedure IndlesScanningLogFil();
# Line 972  begin Line 973  begin
973      // Opbygger PanelManglendePakker information      // Opbygger PanelManglendePakker information
974      gemScanningtype := Scanningtype;      gemScanningtype := Scanningtype;
975    
976      if PanelValg6.Enabled then      IndlesManglendeScanningerAntal();
     begin  
        Scanningtype := '6';  
        IndlesManglendeScanninger();  
     end;  
   
     if PanelValg5.Enabled then  
     begin  
        Scanningtype := '5';  
        IndlesManglendeScanninger();  
     end;  
   
     if PanelValg4.Enabled then  
     begin  
        Scanningtype := '4';  
        IndlesManglendeScanninger();  
     end;  
   
     if PanelValg3.Enabled then  
     begin  
        Scanningtype := '3';  
        IndlesManglendeScanninger();  
     end;  
   
     if PanelValg2.Enabled then  
     begin  
        Scanningtype := '2';  
        IndlesManglendeScanninger();  
     end;  
977    
978      if PanelValg1.Enabled then  //    if PanelValg6.Enabled then
979      begin  //    begin
980         Scanningtype := '1';  //       Scanningtype := '6';
981         IndlesManglendeScanninger();  //       IndlesManglendeScanningerAntal();
982      end;  //    end;
983    //
984    //    if PanelValg5.Enabled then
985    //    begin
986    //       Scanningtype := '5';
987    //       IndlesManglendeScanningerAntal();
988    //    end;
989    //
990    //    if PanelValg4.Enabled then
991    //    begin
992    //       Scanningtype := '4';
993    //       IndlesManglendeScanningerAntal();
994    //    end;
995    //
996    //    if PanelValg3.Enabled then
997    //    begin
998    //       Scanningtype := '3';
999    //       IndlesManglendeScanningerAntal();
1000    //    end;
1001    //
1002    //    if PanelValg2.Enabled then
1003    //    begin
1004    //       Scanningtype := '2';
1005    //       IndlesManglendeScanningerAntal();
1006    //    end;
1007    //
1008    //    if PanelValg1.Enabled then
1009    //    begin
1010    //       Scanningtype := '1';
1011    //       IndlesManglendeScanningerAntal();
1012    //    end;
1013    
1014      Scanningtype := gemScanningtype;      Scanningtype := gemScanningtype;
1015    
# Line 1905  begin Line 1908  begin
1908              BladhusKontrolfil_server := 'franordjyske/RuteKontrol.txt';              BladhusKontrolfil_server := 'franordjyske/RuteKontrol.txt';
1909              BladhusKontrolfil_lokal := 'RuteKontrol.txt';              BladhusKontrolfil_lokal := 'RuteKontrol.txt';
1910              DownloadBladhusKontrolfil();              DownloadBladhusKontrolfil();
1911              IndlesManglendeScanninger();              IndlesManglendeScanningerAntal();
1912            end;            end;
1913      02 :      02 :
1914            begin;    // BK            begin;    // BK
# Line 1918  begin Line 1921  begin
1921              BtnOpdaterListen.Enabled := true;              BtnOpdaterListen.Enabled := true;
1922              IdFTP1.Passive := true;              IdFTP1.Passive := true;
1923              IdFTP1.PassiveUseControlHost := true;              IdFTP1.PassiveUseControlHost := true;
1924              IndlesManglendeScanninger();              IndlesManglendeScanningerAntal();
1925            end;            end;
1926      03 :      03 :
1927            begin;          // FD            begin;          // FD
# Line 1944  begin Line 1947  begin
1947              BladhusKontrolfil_server := 'frafd/RuteKontrol.txt';              BladhusKontrolfil_server := 'frafd/RuteKontrol.txt';
1948              BladhusKontrolfil_lokal := 'RuteKontrol.txt';              BladhusKontrolfil_lokal := 'RuteKontrol.txt';
1949              DownloadBladhusKontrolfil();              DownloadBladhusKontrolfil();
1950              IndlesManglendeScanninger();              IndlesManglendeScanningerAntal();
1951            end;            end;
1952      04 :  begin;           // DBK      04 :  begin;           // DBK
1953              Testprinter1.Visible := true;              Testprinter1.Visible := true;
# Line 2083  begin Line 2086  begin
2086         RuteNummer := PakkeshopLabel.Koreliste + '  ->  ' +  PakkeshopLabel.PakkeshopTurid;         RuteNummer := PakkeshopLabel.Koreliste + '  ->  ' +  PakkeshopLabel.PakkeshopTurid;
2087         Stregkode := PakkeshopLabel.Stregkode;         Stregkode := PakkeshopLabel.Stregkode;
2088    
2089         LabelPrint.PrintFuldPakkeLabel( PakkeshopLabel );         LabelPrint.PrintLabel(PakkeshopLabel.Stregkode);
2090         chkForstorTilDirekte.Checked := false;  
2091    //       LabelPrint.PrintFuldPakkeLabel( PakkeshopLabel );
2092    //       chkForstorTilDirekte.Checked := false;
2093    
2094       end;       end;
2095    
# Line 2898  var Line 2903  var
2903    Kommentar : String;    Kommentar : String;
2904    BoghandlerNavn : String;    BoghandlerNavn : String;
2905    Koreliste : String;    Koreliste : String;
2906    Falsk : Boolean;  //  Falsk : Boolean;
2907    SmsKode : String;  //  SmsKode : String;
2908    DBKbane : String;  //  DBKbane : String;
2909    Leveringssted : String;  //  Leveringssted : String;
   LabelData : TLabelData;  
2910  begin  begin
2911    RuteNummer := 'Rutenr';    RuteNummer := 'Rutenr';
2912    Kommentar := '***** Kommentar *****';    Kommentar := '***** Kommentar *****';
2913    BoghandlerNavn := 'Modtagernavn';    BoghandlerNavn := 'Modtagernavn';
2914    Falsk := False;  //  Falsk := False;
2915    
2916    
2917    if (LabelPrint.GetPrinterCount() = 0) then    if (LabelPrint.GetPrinterCount() = 0) then
# Line 2927  begin Line 2931  begin
2931  //    PrintLabel(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted, Falsk);  //    PrintLabel(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted, Falsk);
2932    
2933    
     LabelData := TLabelData.Create(nil);  
     LabelData.LabelType := 'simpel';  
     LabelData.SimpelLinie1 := '999999';  
     LabelData.SimpelLinie2 := '999';  
     LabelData.SimpelLinie3 := 'xxx';  
     LabelPrint.PrintLabelData(Labeldata);  
2934    
2935      LabelPrint.CheckPrintQue('Test', Config.PrinterNavn);      LabelPrint.PrintTestLabel('999999', '999', 'xxx');
2936    
2937      LabelData.Free();      LabelPrint.CheckPrintQue('Test', Config.PrinterNavn);
2938    
2939    end;    end;
2940    FocusControl(StregkodeST);    FocusControl(StregkodeST);
# Line 3168  begin Line 3166  begin
3166        if BladhusSted = 0 then        if BladhusSted = 0 then
3167        begin        begin
3168          IndlesScanningLogFil();          IndlesScanningLogFil();
3169          IndlesManglendeScanninger();          IndlesManglendeScanningerAntal();
3170        end;        end;
3171  end;  end;
3172    
# Line 3268  begin Line 3266  begin
3266        if (BladhusSted = 0) or (BladhusSted = 2) or (BladhusSted = 3) then        if (BladhusSted = 0) or (BladhusSted = 2) or (BladhusSted = 3) then
3267        begin        begin
3268            IndlesScanningLogFil();            IndlesScanningLogFil();
3269            IndlesManglendeScanninger();            IndlesManglendeScanningerAntal();
3270        end;        end;
3271    
3272  end;  end;
# Line 3307  begin Line 3305  begin
3305        IndlesScanningLogFil();        IndlesScanningLogFil();
3306        if BladhusSted = 0 then        if BladhusSted = 0 then
3307        begin        begin
3308          IndlesManglendeScanninger();          IndlesManglendeScanningerAntal();
3309        end;        end;
3310        IdFTP1.Passive := true;        IdFTP1.Passive := true;
3311        IdFTP1.PassiveUseControlHost := true;        IdFTP1.PassiveUseControlHost := true;
# Line 3347  begin Line 3345  begin
3345        IndlesScanningLogFil();        IndlesScanningLogFil();
3346        if BladhusSted = 0 then        if BladhusSted = 0 then
3347        begin        begin
3348          IndlesManglendeScanninger();          IndlesManglendeScanningerAntal();
3349        end;        end;
3350        IdFTP1.Passive := true;        IdFTP1.Passive := true;
3351        IdFTP1.PassiveUseControlHost := true;        IdFTP1.PassiveUseControlHost := true;
# Line 3399  begin Line 3397  begin
3397        IndlesScanningLogFil();        IndlesScanningLogFil();
3398        if BladhusSted = 0 then        if BladhusSted = 0 then
3399        begin        begin
3400          IndlesManglendeScanninger();          IndlesManglendeScanningerAntal();
3401        end;        end;
3402        IdFTP1.Passive := true;        IdFTP1.Passive := true;
3403        IdFTP1.PassiveUseControlHost := true;        IdFTP1.PassiveUseControlHost := true;
# Line 4113  const Line 4111  const
4111    crlf = Chr(13) + Chr(10) ;  // Carriage return & Linefeed    crlf = Chr(13) + Chr(10) ;  // Carriage return & Linefeed
4112    
4113  begin  begin
4114      IndlesManglendeScanninger();      IndlesManglendeScanningerListe();
4115      ListBox1.SetFocus;  // for at flytte fokus væk fra download knappen så denne ikke aktiveres ved scanning / indtastning af stregkode      ListBox1.SetFocus;  // for at flytte fokus væk fra download knappen så denne ikke aktiveres ved scanning / indtastning af stregkode
4116  end;  end;
4117    
# Line 4127  begin Line 4125  begin
4125  end;  end;
4126    
4127    
4128    procedure TMainForm.IndlesManglendeScanningerAntal();
4129    var
4130      Node: IXMLNode;
4131    
4132      URLStr : String;
4133      StedKode : String;
4134      WebSvar : String;
4135    
4136      i : Integer;
4137    
4138      PakkeType : String;
4139      TotalAntal : String;
4140      AntalProdDato : String;
4141    
4142      CurrentPanel : TPanel;
4143    
4144    begin
4145      ListBox2.Clear();
4146    
4147      if (BladhusSted > 00) and (BladhusSted < Length(BladhusStedNavn)) then
4148        begin
4149          StedKode := BladhusStedKode[BladhusSted];
4150        end
4151      else
4152        begin
4153          StedKode := Sted;
4154        end;
4155    
4156      URLStr := Format(Config.UrlHentPakkeAntal, [StedKode]);
4157    
4158    
4159      try
4160        WebSvar := IdHTTP1.Get(URLStr);
4161        except
4162          on e:EIdConnClosedGracefully do
4163          begin
4164            // Her skal vi ikke gøre noget - men vi skal forespørge igen
4165            WebSvar := IdHTTP1.Get(URLStr);
4166          end;
4167          on e:exception do
4168          begin
4169            ListBox1.Items.Insert(0,TimeToStr(now) + ': ' + 'Fejl i web forespørgsel: '+e.Message);
4170            logTekst := 'Fejl i web forespørgsel: '+e.Message;
4171            SkrivScanningLogFil(logTekst);
4172            raise exception.CreateFmt('Fejl i web forespørgsel: %s',[e.Message]);
4173          end;
4174        end;
4175    
4176    
4177    
4178         try
4179    
4180          XMLDocument1.LoadFromXML(WebSvar);
4181    
4182          for i:= 0 to XMLDocument1.DocumentElement.ChildNodes.Count - 1 do begin
4183              Node:= XMLDocument1.DocumentElement.ChildNodes[I];
4184    
4185              PakkeType := Node.ChildValues['PakkeType'];
4186              TotalAntal := Node.ChildValues['TotalAntal'];
4187              AntalProdDato := Node.ChildValues['AntalProdDato'];
4188    
4189    
4190              CurrentPanel := nil;
4191    
4192              if (PakkeType = 'natxpress') then
4193              begin
4194                 CurrentPanel := PanelManglendePakker1;
4195              end;
4196    
4197              if (PakkeType = 'daodirekte') then
4198              begin
4199                 CurrentPanel := PanelManglendePakker4;
4200              end;
4201    
4202              if (PakkeType = 'pakkeshop') then
4203              begin
4204                 CurrentPanel := PanelManglendePakker5;
4205              end;
4206    
4207              if (CurrentPanel <> nil) then
4208              begin
4209                CurrentPanel.Caption := TotalAntal;
4210                if ( StrToInt(TotalAntal) > 0) then
4211                begin
4212                  CurrentPanel.Visible := true;
4213                end
4214                else
4215                begin
4216                  CurrentPanel.Visible := false;
4217                end;
4218              end;
4219    
4220    
4221          end;
4222    
4223    
4224     except on e:exception do
4225          begin
4226            ListBox1.Items.Insert(0,TimeToStr(now) + ': ' + 'Fejl i XML-format: '+e.Message);
4227            logTekst := 'Fejl i XML-format: '+e.Message;
4228            SkrivScanningLogFil(logTekst);
4229            raise exception.CreateFmt('Fejl i XML-format: %s',[e.Message]);
4230          end;
4231        end;
4232    
4233    
4234    
4235      ListBox1.Items.Insert(0,'Pakkeantal indlæst - klar til scanning');
4236    
4237    end;
4238    
4239  procedure TMainForm.IndlesManglendeScanninger();  procedure TMainForm.IndlesManglendeScanningerListe();
4240  var  var
4241    WebSvar : String;    WebSvar : String;
4242    URLStr : String;    URLStr : String;
# Line 4352  var Line 4460  var
4460              if antalFelterFundet = antalLiniefelter then              if antalFelterFundet = antalLiniefelter then
4461              begin              begin
4462                if (ScanningType = '1') then                if (ScanningType = '1') then
4463                  //ListBox2.Items.Add(pakketype+'; '+stregkode+'; '+modtagernavn+'; '+modtageradresse+'; '+kommentar+'; '+tjekkodestatus)                   ListBox2.Items.Add(pakketype+'; '+stregkode+'; '+modtagernavn+'; '+modtageradresse+'; '+kommentar+'; '+tjekkodestatus)
4464                else if (ScanningType = '4') then                else if (ScanningType = '4') then
4465                  //ListBox2.Items.Add(pakketype+'; '+stregkode+'; '+modtagernavn+'; '+modtageradresse+'; '+kommentar)                  ListBox2.Items.Add(pakketype+'; '+stregkode+'; '+modtagernavn+'; '+modtageradresse+'; '+kommentar)
4466                else if (ScanningType = '5') then                else if (ScanningType = '5') then
4467                  //ListBox2.Items.Add(stregkode+'; '+modtagernavn+'; '+modtageradresse+'; '+kommentar+'; '+tjekkodestatus)                  ListBox2.Items.Add(stregkode+'; '+modtagernavn+'; '+modtageradresse+'; '+kommentar+'; '+tjekkodestatus)
4468                else                else
4469                  //ListBox2.Items.Add(stregkode+'; '+modtagernavn+'; '+modtageradresse+'; '+kommentar);                  ListBox2.Items.Add(stregkode+'; '+modtagernavn+'; '+modtageradresse+'; '+kommentar);
4470                antalFelterFundet := 0;                antalFelterFundet := 0;
4471                tjekkodestatus := '';                tjekkodestatus := '';
4472              end;              end;
Legend:
Removed from v.3123  
changed lines
  Added in v.3125
  ViewVC Help
Powered by ViewVC 1.1.20