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) |
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 |
|
|