--- dao/DelphiScanner/Main.pas 2016/10/18 13:57:46 3123 +++ dao/DelphiScanner/Main.pas 2016/10/19 06:59:57 3124 @@ -247,7 +247,8 @@ procedure HentPakkeInfoFraServer(const Sted, PakkeNr : String; var RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted : String; var PrintNyLabel: Boolean; BoghandlerNummer : String = ''); procedure CheckCode(); - procedure IndlesManglendeScanninger(); + procedure IndlesManglendeScanningerAntal(); + procedure IndlesManglendeScanningerListe(); procedure IndlesRuteskiftFil(var filnavn : string); procedure IndlesKontrolFil(var filnavn : string); procedure IndlesScanningLogFil(); @@ -972,41 +973,43 @@ // Opbygger PanelManglendePakker information gemScanningtype := Scanningtype; - if PanelValg6.Enabled then - 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; + IndlesManglendeScanningerAntal(); - if PanelValg1.Enabled then - begin - Scanningtype := '1'; - IndlesManglendeScanninger(); - end; +// if PanelValg6.Enabled then +// begin +// Scanningtype := '6'; +// IndlesManglendeScanningerAntal(); +// end; +// +// if PanelValg5.Enabled then +// begin +// Scanningtype := '5'; +// IndlesManglendeScanningerAntal(); +// end; +// +// if PanelValg4.Enabled then +// begin +// Scanningtype := '4'; +// IndlesManglendeScanningerAntal(); +// end; +// +// if PanelValg3.Enabled then +// begin +// Scanningtype := '3'; +// IndlesManglendeScanningerAntal(); +// end; +// +// if PanelValg2.Enabled then +// begin +// Scanningtype := '2'; +// IndlesManglendeScanningerAntal(); +// end; +// +// if PanelValg1.Enabled then +// begin +// Scanningtype := '1'; +// IndlesManglendeScanningerAntal(); +// end; Scanningtype := gemScanningtype; @@ -1905,7 +1908,7 @@ BladhusKontrolfil_server := 'franordjyske/RuteKontrol.txt'; BladhusKontrolfil_lokal := 'RuteKontrol.txt'; DownloadBladhusKontrolfil(); - IndlesManglendeScanninger(); + IndlesManglendeScanningerAntal(); end; 02 : begin; // BK @@ -1918,7 +1921,7 @@ BtnOpdaterListen.Enabled := true; IdFTP1.Passive := true; IdFTP1.PassiveUseControlHost := true; - IndlesManglendeScanninger(); + IndlesManglendeScanningerAntal(); end; 03 : begin; // FD @@ -1944,7 +1947,7 @@ BladhusKontrolfil_server := 'frafd/RuteKontrol.txt'; BladhusKontrolfil_lokal := 'RuteKontrol.txt'; DownloadBladhusKontrolfil(); - IndlesManglendeScanninger(); + IndlesManglendeScanningerAntal(); end; 04 : begin; // DBK Testprinter1.Visible := true; @@ -2083,8 +2086,10 @@ RuteNummer := PakkeshopLabel.Koreliste + ' -> ' + PakkeshopLabel.PakkeshopTurid; Stregkode := PakkeshopLabel.Stregkode; - LabelPrint.PrintFuldPakkeLabel( PakkeshopLabel ); - chkForstorTilDirekte.Checked := false; + LabelPrint.PrintLabel(PakkeshopLabel.Stregkode); + +// LabelPrint.PrintFuldPakkeLabel( PakkeshopLabel ); +// chkForstorTilDirekte.Checked := false; end; @@ -3168,7 +3173,7 @@ if BladhusSted = 0 then begin IndlesScanningLogFil(); - IndlesManglendeScanninger(); + IndlesManglendeScanningerAntal(); end; end; @@ -3268,7 +3273,7 @@ if (BladhusSted = 0) or (BladhusSted = 2) or (BladhusSted = 3) then begin IndlesScanningLogFil(); - IndlesManglendeScanninger(); + IndlesManglendeScanningerAntal(); end; end; @@ -3307,7 +3312,7 @@ IndlesScanningLogFil(); if BladhusSted = 0 then begin - IndlesManglendeScanninger(); + IndlesManglendeScanningerAntal(); end; IdFTP1.Passive := true; IdFTP1.PassiveUseControlHost := true; @@ -3347,7 +3352,7 @@ IndlesScanningLogFil(); if BladhusSted = 0 then begin - IndlesManglendeScanninger(); + IndlesManglendeScanningerAntal(); end; IdFTP1.Passive := true; IdFTP1.PassiveUseControlHost := true; @@ -3399,7 +3404,7 @@ IndlesScanningLogFil(); if BladhusSted = 0 then begin - IndlesManglendeScanninger(); + IndlesManglendeScanningerAntal(); end; IdFTP1.Passive := true; IdFTP1.PassiveUseControlHost := true; @@ -4113,7 +4118,7 @@ crlf = Chr(13) + Chr(10) ; // Carriage return & Linefeed begin - IndlesManglendeScanninger(); + IndlesManglendeScanningerListe(); ListBox1.SetFocus; // for at flytte fokus væk fra download knappen så denne ikke aktiveres ved scanning / indtastning af stregkode end; @@ -4127,8 +4132,118 @@ end; +procedure TMainForm.IndlesManglendeScanningerAntal(); +var + Node: IXMLNode; + + URLStr : String; + StedKode : String; + WebSvar : String; + + i : Integer; + + PakkeType : String; + TotalAntal : String; + AntalProdDato : String; + + CurrentPanel : TPanel; + +begin + ListBox2.Clear(); + + if (BladhusSted > 00) and (BladhusSted < Length(BladhusStedNavn)) then + begin + StedKode := BladhusStedKode[BladhusSted]; + end + else + begin + StedKode := Sted; + end; + + URLStr := Format(Config.UrlHentPakkeAntal, [StedKode]); + + + try + WebSvar := IdHTTP1.Get(URLStr); + except + on e:EIdConnClosedGracefully do + begin + // Her skal vi ikke gøre noget - men vi skal forespørge igen + WebSvar := IdHTTP1.Get(URLStr); + end; + on e:exception do + begin + ListBox1.Items.Insert(0,TimeToStr(now) + ': ' + 'Fejl i web forespørgsel: '+e.Message); + logTekst := 'Fejl i web forespørgsel: '+e.Message; + SkrivScanningLogFil(logTekst); + raise exception.CreateFmt('Fejl i web forespørgsel: %s',[e.Message]); + end; + end; + + + + try + + XMLDocument1.LoadFromXML(WebSvar); + + for i:= 0 to XMLDocument1.DocumentElement.ChildNodes.Count - 1 do begin + Node:= XMLDocument1.DocumentElement.ChildNodes[I]; + + PakkeType := Node.ChildValues['PakkeType']; + TotalAntal := Node.ChildValues['TotalAntal']; + AntalProdDato := Node.ChildValues['AntalProdDato']; + + + CurrentPanel := nil; + + if (PakkeType = 'natxpress') then + begin + CurrentPanel := PanelManglendePakker1; + end; + + if (PakkeType = 'daodirekte') then + begin + CurrentPanel := PanelManglendePakker4; + end; + + if (PakkeType = 'pakkeshop') then + begin + CurrentPanel := PanelManglendePakker5; + end; + + if (CurrentPanel <> nil) then + begin + CurrentPanel.Caption := TotalAntal; + if ( StrToInt(TotalAntal) > 0) then + begin + CurrentPanel.Visible := true; + end + else + begin + CurrentPanel.Visible := false; + end; + end; + + + end; + + + except on e:exception do + begin + ListBox1.Items.Insert(0,TimeToStr(now) + ': ' + 'Fejl i XML-format: '+e.Message); + logTekst := 'Fejl i XML-format: '+e.Message; + SkrivScanningLogFil(logTekst); + raise exception.CreateFmt('Fejl i XML-format: %s',[e.Message]); + end; + end; + + + + ListBox1.Items.Insert(0,'Pakkeantal indlæst - klar til scanning'); + +end; -procedure TMainForm.IndlesManglendeScanninger(); +procedure TMainForm.IndlesManglendeScanningerListe(); var WebSvar : String; URLStr : String; @@ -4352,13 +4467,13 @@ if antalFelterFundet = antalLiniefelter then begin if (ScanningType = '1') then - //ListBox2.Items.Add(pakketype+'; '+stregkode+'; '+modtagernavn+'; '+modtageradresse+'; '+kommentar+'; '+tjekkodestatus) + ListBox2.Items.Add(pakketype+'; '+stregkode+'; '+modtagernavn+'; '+modtageradresse+'; '+kommentar+'; '+tjekkodestatus) else if (ScanningType = '4') then - //ListBox2.Items.Add(pakketype+'; '+stregkode+'; '+modtagernavn+'; '+modtageradresse+'; '+kommentar) + ListBox2.Items.Add(pakketype+'; '+stregkode+'; '+modtagernavn+'; '+modtageradresse+'; '+kommentar) else if (ScanningType = '5') then - //ListBox2.Items.Add(stregkode+'; '+modtagernavn+'; '+modtageradresse+'; '+kommentar+'; '+tjekkodestatus) + ListBox2.Items.Add(stregkode+'; '+modtagernavn+'; '+modtageradresse+'; '+kommentar+'; '+tjekkodestatus) else - //ListBox2.Items.Add(stregkode+'; '+modtagernavn+'; '+modtageradresse+'; '+kommentar); + ListBox2.Items.Add(stregkode+'; '+modtagernavn+'; '+modtageradresse+'; '+kommentar); antalFelterFundet := 0; tjekkodestatus := ''; end;