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 = ''); |
2076 |
URLStr : String; |
URLStr : String; |
2077 |
pakkestorrelse : String; |
pakkestorrelse : String; |
2078 |
PrintNyLabelInteger : Integer; |
PrintNyLabelInteger : Integer; |
2079 |
|
|
2080 |
|
PakkeshopLabel: TPakkeshopLabel; |
2081 |
begin |
begin |
2082 |
if radioStorPakke.Checked then |
if radioStorPakke.Checked then |
2083 |
begin |
begin |
2180 |
begin |
begin |
2181 |
PrintNyLabel := True; //Indleveringskode vil ALTID udskrive label |
PrintNyLabel := True; //Indleveringskode vil ALTID udskrive label |
2182 |
PakkeshopLabel := TPakkeshopLabel.Create( XMLDocument1 ); //Opret struct og parse xml doc |
PakkeshopLabel := TPakkeshopLabel.Create( XMLDocument1 ); //Opret struct og parse xml doc |
2183 |
|
RuteNummer := PakkeshopLabel.Koreliste; |
2184 |
|
|
2185 |
PrintPakkeshopLabel( PakkeshopLabel ); |
PrintPakkeshopLabel( PakkeshopLabel ); |
2186 |
|
|