--- dao/DelphiScanner/Main.pas 2016/08/21 22:34:01 3097 +++ dao/DelphiScanner/Main.pas 2016/10/18 13:57:46 3123 @@ -203,6 +203,8 @@ procedure SetPrinterstatusText( txt: string; alert: boolean); function GetFormObject() : TForm; function GetXMLDocument() : TXMLDocument; + procedure chkEmballageRepareretClick(Sender: TObject); + procedure chkUdenforSpecifikationClick(Sender: TObject); @@ -1443,13 +1445,24 @@ if (chkUdenforSpecifikation.Checked = True) then begin URLStr := Format(Config.URLUdenforSpecifikation,[Sted,Stregkode]); - //ShowMessage( URLStr); + //InputBox( '1', '1', URLStr); - WebSvar := IdHTTP1.Get(Config.URLUdenforSpecifikation); - //ShowMessage( WebSvar ); + WebSvar := IdHTTP1.Get(URLStr); + //InputBox( '2', '2', WebSvar ); chkUdenforSpecifikation.Checked := False; LabelPrint.PrintLabel(Stregkode); + + StregkodeST.Caption := ''; + Stregkode := ''; + + RuteNummerST.Caption := ''; + BoghandlerNavnST.Caption := ''; + KommentarST.Caption := 'Retur til leverandør'; + + + + exit; //leave procedure end; @@ -2223,6 +2236,13 @@ kontrolKoreliste : string; nytRuteNummer, nyFarve : String; begin +// if (PrintNyLabel = True OR chkAltidPrintLabel.Checked = True) then +// begin +// LabelPrint.PrintLabel( Stregkode ); +// end; +// +// exit; + if menuDaoDirekte1.Checked then RuteNummerST.Color := TUtils.HexToTColor(Farve); @@ -2287,10 +2307,10 @@ logTekst := RightStr(List1Msg, Length(List1Msg)-10); SkrivScanningLogFil(logTekst); - if (Config.PrinterNavn = 'Ingen') then - begin - PrintNyLabel := false; - end; +// if (Config.PrinterNavn = 'Ingen') then +// begin +// PrintNyLabel := false; +// end; if (PrintNyLabel = false) then // Hvis vi ikke printer label skal vi vise en 'rød skærm' alarm begin @@ -2342,7 +2362,8 @@ if PrintNyLabel or (RuteNummer = 'Rutenr') then // 20150304: slut begin - LabelPrint.SendTilPrinter(kontrolKoreliste, RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted, PrintNyLabel, BoghandlerNummer); + //LabelPrint.SendTilPrinter(kontrolKoreliste, RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted, PrintNyLabel, BoghandlerNummer); + LabelPrint.PrintLabel( Stregkode ); end; end; 01 : begin; @@ -2350,13 +2371,15 @@ // Ovenstående test er lidt speciel fordi der i programmet nogle steder er byttet rundt på rute og køreliste // Meningen er at der kun skal printes hvis der er forskel i kørelisterne eller ruterne - eller vi kommer fra test funktionen (Rutenr = 'Rutenr') begin - LabelPrint.SendTilPrinter(kontrolKoreliste, RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted, PrintNyLabel, BoghandlerNummer); + //LabelPrint.SendTilPrinter(kontrolKoreliste, RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted, PrintNyLabel, BoghandlerNummer); + LabelPrint.PrintLabel( Stregkode ); end; end; 02 : begin; if PrintNyLabel or (RuteNummer = 'Rutenr') then // Hvis RuteNummer = 'Rutenr' er vi igang med en printer test begin - LabelPrint.SendTilPrinter(kontrolKoreliste, RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted, PrintNyLabel, BoghandlerNummer); + //LabelPrint.SendTilPrinter(kontrolKoreliste, RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted, PrintNyLabel, BoghandlerNummer); + LabelPrint.PrintLabel( Stregkode ); end; end; 03 : begin; @@ -2364,13 +2387,15 @@ // Ovenstående test er lidt speciel fordi der i programmet nogle steder er byttet rundt på rute og køreliste // Meningen er at der kun skal printes hvis der er forskel i kørelisterne eller ruterne - eller vi kommer fra test funktionen (Rutenr = 'Rutenr') begin - LabelPrint.SendTilPrinter(kontrolKoreliste, RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted, PrintNyLabel, BoghandlerNummer); + //LabelPrint.SendTilPrinter(kontrolKoreliste, RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted, PrintNyLabel, BoghandlerNummer); + LabelPrint.PrintLabel( Stregkode ); end; end; 04 : begin; if PrintNyLabel or (RuteNummer = 'Rutenr') then // Hvis RuteNummer = 'Rutenr' er vi igang med en printer test begin - LabelPrint.SendTilPrinter(kontrolKoreliste, RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted, PrintNyLabel, BoghandlerNummer); + //LabelPrint.SendTilPrinter(kontrolKoreliste, RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted, PrintNyLabel, BoghandlerNummer); + LabelPrint.PrintLabel( Stregkode ); end; end; else @@ -2407,8 +2432,9 @@ logTekst := logTekst + ' for '+BoghandlerNavn; SkrivScanningLogFil(logTekst); - LabelPrint.PrintDaodirekteLabel( RuteNummer, Kommentar, BoghandlerNavn) ; - + //LabelPrint.PrintDaodirekteLabel( RuteNummer, Kommentar, BoghandlerNavn) ; + LabelPrint.PrintLabel( Stregkode ); + end; end; @@ -2442,6 +2468,22 @@ end; +procedure TMainForm.chkUdenforSpecifikationClick(Sender: TObject); +begin + if (chkUdenforSpecifikation.Checked = true) then + begin + chkEmballageRepareret.Checked := false; + end; +end; + +procedure TMainForm.chkEmballageRepareretClick(Sender: TObject); +begin + if (chkEmballageRepareret.Checked = true) then + begin + chkUdenforSpecifikation.Checked := false; + end; +end; + procedure TMainForm.chkAltidPrintLabelClick(Sender: TObject); begin if chkAltidPrintLabel.Checked then @@ -2455,6 +2497,8 @@ end; + + procedure TMainForm.chkScanTjekkodeClick(Sender: TObject); begin if chkScanTjekkode.Checked then @@ -2839,6 +2883,8 @@ SmsKode := '999999'; DBKbane := '999'; Leveringssted := 'XXX'; + + PrintLabel(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted, Falsk); FocusControl(StregkodeST); end; @@ -2856,6 +2902,7 @@ SmsKode : String; DBKbane : String; Leveringssted : String; + LabelData : TLabelData; begin RuteNummer := 'Rutenr'; Kommentar := '***** Kommentar *****'; @@ -2867,18 +2914,30 @@ begin ShowMessage('Der er ikke installeret en printer på denne PC.'); end - else if Config.PrinterNavn = 'Ingen' then - begin - ShowMessage('Der er fravalgt printer i dette program.'); - end +// else if Config.PrinterNavn = 'Ingen' then //Det giver ikke længere mening at kunne fravælge printer +// begin +// ShowMessage('Der er fravalgt printer i dette program.'); +// end else begin UpdateScreen(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, ''); - SmsKode := '999999'; - DBKbane := '999'; - Leveringssted := 'XXX'; - PrintLabel(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted, Falsk); +// SmsKode := '999999'; +// DBKbane := '999'; +// Leveringssted := 'XXX'; +// PrintLabel(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted, Falsk); + + + LabelData := TLabelData.Create(nil); + LabelData.LabelType := 'simpel'; + LabelData.SimpelLinie1 := '999999'; + LabelData.SimpelLinie2 := '999'; + LabelData.SimpelLinie3 := 'xxx'; + LabelPrint.PrintLabelData(Labeldata); + LabelPrint.CheckPrintQue('Test', Config.PrinterNavn); + + LabelData.Free(); + end; FocusControl(StregkodeST); end; @@ -4232,6 +4291,7 @@ logTekst := logTekst + '.'; SkrivScanningLogFil(logTekst); + time.stop('Antal Linier2');//DEBUG for I:= 0 to XMLDocument1.DocumentElement.ChildNodes.Count - 1 do begin @@ -4292,13 +4352,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;