/[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 3092 by torben, Fri Aug 19 12:23:37 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 2090  begin Line 2091  begin
2091      begin      begin
2092        if (Leveringssted <> BladhusStedKode[BladhusSted]) and (BladhusStedKode[BladhusSted] <> 'DBK') then        if (Leveringssted <> BladhusStedKode[BladhusSted]) and (BladhusStedKode[BladhusSted] <> 'DBK') then
2093        begin        begin
2094            Kommentar := Kommentar + 'Pakke burde være hos ' + Leveringssted;            Kommentar := Kommentar + ' Pakke burde være hos ' + Leveringssted;
2095            //PrintNyLabel := False; //ved fuld-daekning / X-ruter skal vi altid skrive label alligevel            //PrintNyLabel := False; //ved fuld-daekning / X-ruter skal vi altid skrive label alligevel
2096        end;        end;
2097      end      end
2098      else if (menuDaoDirekte1.Checked) and (Leveringssted <> Sted) And (Leveringssted <> '') then      else if (menuDaoDirekte1.Checked) and (Leveringssted <> Sted) And (Leveringssted <> '') then
2099      begin      begin
2100        Kommentar := Kommentar + 'Pakke burde være hos ' + Leveringssted;        Kommentar := Kommentar + ' Pakke burde være hos ' + Leveringssted;
2101        //PrintNyLabel := False;  //ved fuld-daekning / X-ruter skal vi altid skrive label alligevel        //PrintNyLabel := False;  //ved fuld-daekning / X-ruter skal vi altid skrive label alligevel
2102      end;      end;
2103    except on e:exception do    except on e:exception do
# 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.3092  
changed lines
  Added in v.3095
  ViewVC Help
Powered by ViewVC 1.1.20