/[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 3096 by torben, Sun Aug 21 21:56:01 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 538  begin Line 539  begin
539    
540  // Sætter lige en default panel størrelse  // Sætter lige en default panel størrelse
541    MainForm.ClientWidth := 1000;    MainForm.ClientWidth := 1000;
542    MainForm.ClientHeight := 820;    MainForm.ClientHeight := 920;
543    
544    Config := TConfiguration.Create();    Config := TConfiguration.Create();
545    Config.ReadFromInifile( TIniFile.Create(ChangeFileExt(Application.ExeName,'.ini')) );    //ToDo: clean up duplicate ini ref    Config.ReadFromInifile( TIniFile.Create(ChangeFileExt(Application.ExeName,'.ini')) );    //ToDo: clean up duplicate ini ref
# Line 1429  begin Line 1430  begin
1430        end;        end;
1431      end;      end;
1432    
1433        // EmballageRepareret skal bare sætte reklamationkoden,
1434        // og så ellers fortsætte med scanning som normalt
1435        if (chkEmballageRepareret.Checked = True) then
1436        begin
1437          URLStr := Format(Config.UrlEmballageRepareret,[Sted,Stregkode]);
1438          WebSvar := IdHTTP1.Get(URLStr);
1439          ShowMessage( WebSvar );
1440    
1441          chkEmballageRepareret.Checked := False;
1442        end;
1443    
1444    
1445    
1446      if (PakkeshopText1.Visible = true) and (PakkeshopText1.Caption = 'Stregkode') and menuAutomatiskTjekkodeStyring.Checked then      if (PakkeshopText1.Visible = true) and (PakkeshopText1.Caption = 'Stregkode') and menuAutomatiskTjekkodeStyring.Checked then
# Line 1932  var Line 1944  var
1944    pakkestorrelse : String;    pakkestorrelse : String;
1945    PrintNyLabelInteger : Integer;    PrintNyLabelInteger : Integer;
1946    
1947    PakkeshopLabel: TPakkeshopLabel;    PakkeshopLabel: TLabelData;
1948  begin  begin
1949    if radioStorPakke.Checked then    if radioStorPakke.Checked then
1950    begin    begin
# Line 2041  begin Line 2053  begin
2053       if (Kommentar = 'Ok') then       if (Kommentar = 'Ok') then
2054       begin       begin
2055         PrintNyLabel := True; //Indleveringskode vil ALTID udskrive label         PrintNyLabel := True; //Indleveringskode vil ALTID udskrive label
2056         PakkeshopLabel := TPakkeshopLabel.Create( XMLDocument1 ); //Opret struct og parse xml doc         PakkeshopLabel := TLabelData.Create( XMLDocument1 ); //Opret struct og parse xml doc
2057         RuteNummer := PakkeshopLabel.Koreliste + '  ->  ' +  PakkeshopLabel.PakkeshopTurid;         RuteNummer := PakkeshopLabel.Koreliste + '  ->  ' +  PakkeshopLabel.PakkeshopTurid;
2058         Stregkode := PakkeshopLabel.Stregkode;         Stregkode := PakkeshopLabel.Stregkode;
2059    
# Line 4857  begin Line 4869  begin
4869    Result := self;    Result := self;
4870  end;  end;
4871    
4872    //Nedarvet fra IParentForm
4873    function TMainForm.GetXMLDocument() : TXMLDocument;
4874    begin
4875      Result := XMLDocument1
4876    end;
4877    
4878    
4879  end.  end.
4880    
Legend:
Removed from v.3093  
changed lines
  Added in v.3096
  ViewVC Help
Powered by ViewVC 1.1.20