/[projects]/dao/DelphiScanner/Main.pas
ViewVC logotype

Diff of /dao/DelphiScanner/Main.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 2677 by torben, Wed Aug 26 13:09:38 2015 UTC revision 2680 by torben, Wed Aug 26 18:53:11 2015 UTC
# Line 256  type Line 256  type
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 = '');
# Line 787  begin Line 785  begin
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)
# Line 2078  var Line 2090  var
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
# Line 2180  begin Line 2194  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    
Legend:
Removed from v.2677  
changed lines
  Added in v.2680
  ViewVC Help
Powered by ViewVC 1.1.20