256 |
|
|
257 |
Barcode : TStBarcode; |
Barcode : TStBarcode; |
258 |
|
|
|
PakkeshopLabel: TPakkeshopLabel; |
|
|
|
|
259 |
function CheckSumModulo10(const data:string):string; { used for EAN 8/13 } |
function CheckSumModulo10(const data:string):string; { used for EAN 8/13 } |
260 |
|
|
261 |
procedure PrintLabel(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted : String; var PrintNyLabel : Boolean; BoghandlerNummer : String = ''); |
procedure PrintLabel(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted : String; var PrintNyLabel : Boolean; BoghandlerNummer : String = ''); |
785 |
//SpecialVersionSted := 'FD'; // FD - sætter automatisk nedenstående SpecialVersionScanningtype til DIREKTE) |
//SpecialVersionSted := 'FD'; // FD - sætter automatisk nedenstående SpecialVersionScanningtype til DIREKTE) |
786 |
// *************************** // |
// *************************** // |
787 |
|
|
788 |
|
{$IfDef STED_BK} |
789 |
|
SpecialVersionSted := 'BK'; |
790 |
|
{$EndIf} |
791 |
|
{$IfDef STED_DBK} |
792 |
|
SpecialVersionSted := 'DBK'; |
793 |
|
{$EndIf} |
794 |
|
{$IfDef STED_FD} |
795 |
|
SpecialVersionSted := 'FD'; |
796 |
|
{$EndIf} |
797 |
|
{$IfDef STED_NS} |
798 |
|
SpecialVersionSted := 'NS'; |
799 |
|
{$EndIf} |
800 |
|
|
801 |
|
|
802 |
//SpecialVersionSted := '01'; // NS - bruges sammen med nedenstående SpecialVersionScanningtype DIREKTE) |
//SpecialVersionSted := '01'; // NS - bruges sammen med nedenstående SpecialVersionScanningtype DIREKTE) |
803 |
//SpecialVersionSted := '02'; // BK - BRUGES IKKE (brug i stedet ovenstående SpecialVersionSted BK) |
//SpecialVersionSted := '02'; // BK - BRUGES IKKE (brug i stedet ovenstående SpecialVersionSted BK) |
804 |
//SpecialVersionSted := '03'; // FD - (bruges sammen med nedenstående SpecialVersionScanningtype DIREKTE) |
//SpecialVersionSted := '03'; // FD - (bruges sammen med nedenstående SpecialVersionScanningtype DIREKTE) |
2090 |
URLStr : String; |
URLStr : String; |
2091 |
pakkestorrelse : String; |
pakkestorrelse : String; |
2092 |
PrintNyLabelInteger : Integer; |
PrintNyLabelInteger : Integer; |
2093 |
|
|
2094 |
|
PakkeshopLabel: TPakkeshopLabel; |
2095 |
begin |
begin |
2096 |
if radioStorPakke.Checked then |
if radioStorPakke.Checked then |
2097 |
begin |
begin |
2194 |
begin |
begin |
2195 |
PrintNyLabel := True; //Indleveringskode vil ALTID udskrive label |
PrintNyLabel := True; //Indleveringskode vil ALTID udskrive label |
2196 |
PakkeshopLabel := TPakkeshopLabel.Create( XMLDocument1 ); //Opret struct og parse xml doc |
PakkeshopLabel := TPakkeshopLabel.Create( XMLDocument1 ); //Opret struct og parse xml doc |
2197 |
|
RuteNummer := PakkeshopLabel.Koreliste; |
2198 |
|
|
2199 |
PrintPakkeshopLabel( PakkeshopLabel ); |
PrintPakkeshopLabel( PakkeshopLabel ); |
2200 |
|
|