--- dao/DelphiScanner/Main.pas 2016/05/23 13:03:49 3036 +++ dao/DelphiScanner/Main.pas 2016/06/01 13:25:34 3039 @@ -39,7 +39,6 @@ XMLDocument1: TXMLDocument; ApplicationEvents1: TApplicationEvents; chkSporgEfterKunde: TCheckBox; - KommentarST: TStaticText; MainMenu1: TMainMenu; N1: TMenuItem; Pakkernormal1: TMenuItem; @@ -106,6 +105,8 @@ PanelManglendePakker6: TPanel; menuIndlevering: TMenuItem; chkForstorTilDirekte: TCheckBox; + chkEmballageRepareret: TCheckBox; + KommentarST: TLabel; @@ -195,11 +196,13 @@ //Nedarvet fra IParentForm + procedure Msg( msg : string); procedure LogMessage( msg : string); procedure SetPrinterstatusText( txt: string; alert: boolean); function GetFormObject() : TForm; + private SpecialVersionSted, SpecialVersionScanningtype: String; // Bruges når programmet skal bruges udenfor DAO scanningssteder Stregkode : String; @@ -1510,7 +1513,16 @@ InitPakkeshoplevering(); end; end - // Retur kan ikke scannes med 'Automatisk valg' + else if Pakketype = 'PakkeshopRetur' then + begin + if Scanningtype <> '6' then + begin + VisAlarmSkaerm( Stregkode + ' Pakkeshop retur,'#13#10' kan ikke bruges med automatisk valg' ); + + exit; + end; + end + else begin @@ -2969,7 +2981,8 @@ SmsKode := '999999'; DBKbane := '999'; Leveringssted := 'XXX'; - PrintLabel(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted, Falsk); + LabelPrint.TestZpl(); + //PrintLabel(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted, Falsk); LabelPrint.CheckPrintQue('Test', PrinterNavn); end; FocusControl(StregkodeST); @@ -3040,6 +3053,7 @@ end; + procedure TMainForm.ListBox1DrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState); var @@ -4911,6 +4925,11 @@ end; +//Nedarvet fra IParentForm +procedure TMainForm.Msg( msg : string); +begin + ShowMessage(msg); +end; //Nedarvet fra IParentForm procedure TMainForm.LogMessage( msg : string);