/[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 3093 by torben, Fri Aug 19 12:28:21 2016 UTC revision 3095 by torben, Sun Aug 21 20:51:45 2016 UTC
# Line 20  uses Line 20  uses
20    IdExplicitTLSClientServerBase, IdFTP, IdException,    IdExplicitTLSClientServerBase, IdFTP, IdException,
21    ShellApi, ClipBrd, Buttons, wininet,    ShellApi, ClipBrd, Buttons, wininet,
22    UITypes,    UITypes,
23    PakkeshopLabels,    LabelData,
24    Utils,    Utils,
25    ParentForm,    ParentForm,
26    LabelPrint,    LabelPrint,
# Line 202  type Line 202  type
202    procedure LogMessage( msg : string);    procedure LogMessage( msg : string);
203    procedure SetPrinterstatusText( txt: string; alert: boolean);    procedure SetPrinterstatusText( txt: string; alert: boolean);
204    function GetFormObject() : TForm;    function GetFormObject() : TForm;
205      function GetXMLDocument() : TXMLDocument;
206    
207    
208    
# Line 1932  var Line 1933  var
1933    pakkestorrelse : String;    pakkestorrelse : String;
1934    PrintNyLabelInteger : Integer;    PrintNyLabelInteger : Integer;
1935    
1936    PakkeshopLabel: TPakkeshopLabel;    PakkeshopLabel: TLabelData;
1937  begin  begin
1938    if radioStorPakke.Checked then    if radioStorPakke.Checked then
1939    begin    begin
# Line 2041  begin Line 2042  begin
2042       if (Kommentar = 'Ok') then       if (Kommentar = 'Ok') then
2043       begin       begin
2044         PrintNyLabel := True; //Indleveringskode vil ALTID udskrive label         PrintNyLabel := True; //Indleveringskode vil ALTID udskrive label
2045         PakkeshopLabel := TPakkeshopLabel.Create( XMLDocument1 ); //Opret struct og parse xml doc         PakkeshopLabel := TLabelData.Create( XMLDocument1 ); //Opret struct og parse xml doc
2046         RuteNummer := PakkeshopLabel.Koreliste + '  ->  ' +  PakkeshopLabel.PakkeshopTurid;         RuteNummer := PakkeshopLabel.Koreliste + '  ->  ' +  PakkeshopLabel.PakkeshopTurid;
2047         Stregkode := PakkeshopLabel.Stregkode;         Stregkode := PakkeshopLabel.Stregkode;
2048    
# Line 4857  begin Line 4858  begin
4858    Result := self;    Result := self;
4859  end;  end;
4860    
4861    //Nedarvet fra IParentForm
4862    function TMainForm.GetXMLDocument() : TXMLDocument;
4863    begin
4864      Result := XMLDocument1
4865    end;
4866    
4867    
4868  end.  end.
4869    
Legend:
Removed from v.3093  
changed lines
  Added in v.3095
  ViewVC Help
Powered by ViewVC 1.1.20