/[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 3054 by torben, Mon Jun 27 11:53:04 2016 UTC revision 3076 by torben, Thu Jul 28 20:03:18 2016 UTC
# Line 26  uses Line 26  uses
26    LabelPrint,    LabelPrint,
27    Configuration,    Configuration,
28    Vcl.Imaging.pngimage,    Vcl.Imaging.pngimage,
29    Generics.Collections    Generics.Collections,
30      TimingHelper
31    
32    ;    ;
33    
# Line 56  type Line 57  type
57      radioStorPakke: TRadioButton;      radioStorPakke: TRadioButton;
58      radioLillePakke: TRadioButton;      radioLillePakke: TRadioButton;
59      N4: TMenuItem;      N4: TMenuItem;
60      Storepakker1: TMenuItem;      menuStorePakker: TMenuItem;
61      Smpakker1: TMenuItem;      menuSmaaPakker: TMenuItem;
62      Panel1: TPanel;      Panel1: TPanel;
63      Testlyd2: TMenuItem;      Testlyd2: TMenuItem;
64      Button1: TButton;      Button1: TButton;
# Line 85  type Line 86  type
86      Timer1: TTimer;      Timer1: TTimer;
87      chkScanTjekkode: TCheckBox;      chkScanTjekkode: TCheckBox;
88      Scanogstjekkoden1: TMenuItem;      Scanogstjekkoden1: TMenuItem;
89      Automatisktjekkodestyring1: TMenuItem;      menuAutomatiskTjekkodeStyring: TMenuItem;
90      menuAutomatiskvalg1: TMenuItem;      menuAutomatiskvalg1: TMenuItem;
91      PanelValgA: TPanel;      PanelValgA: TPanel;
92      PanelValg1: TPanel;      PanelValg1: TPanel;
# Line 107  type Line 108  type
108      chkForstorTilDirekte: TCheckBox;      chkForstorTilDirekte: TCheckBox;
109      chkEmballageRepareret: TCheckBox;      chkEmballageRepareret: TCheckBox;
110      KommentarST: TLabel;      KommentarST: TLabel;
111        chkUdenforSpecifikation: TCheckBox;
112    
113    
114    
# Line 136  type Line 138  type
138    procedure Sprgefterboghandlernummer1Click(Sender: TObject);    procedure Sprgefterboghandlernummer1Click(Sender: TObject);
139    procedure menuNatxpressReturDAO1Click(Sender: TObject);    procedure menuNatxpressReturDAO1Click(Sender: TObject);
140    procedure menuNatxpressReturfraKunde1Click(Sender: TObject);    procedure menuNatxpressReturfraKunde1Click(Sender: TObject);
141    procedure Storepakker1Click(Sender: TObject);    procedure menuStorePakkerClick(Sender: TObject);
142    procedure Smpakker1Click(Sender: TObject);    procedure menuSmaaPakkerClick(Sender: TObject);
143    procedure Testlyd1Click(Sender: TObject);    procedure Testlyd1Click(Sender: TObject);
144    procedure Testlyd2Click(Sender: TObject);    procedure Testlyd2Click(Sender: TObject);
145    procedure Button1Click(Sender: TObject);    procedure Button1Click(Sender: TObject);
# Line 173  type Line 175  type
175    procedure Timer1Timer(Sender: TObject);    procedure Timer1Timer(Sender: TObject);
176    procedure Scanogstjekkoden1Click(Sender: TObject);    procedure Scanogstjekkoden1Click(Sender: TObject);
177    procedure chkScanTjekkodeClick(Sender: TObject);    procedure chkScanTjekkodeClick(Sender: TObject);
178    procedure Automatisktjekkodestyring1Click(Sender: TObject);    procedure menuAutomatiskTjekkodeStyringClick(Sender: TObject);
179    procedure SendInfoTilServer(Sted, Scanningtype, Infotype, Info : String);    procedure SendInfoTilServer(Sted, Scanningtype, Infotype, Info : String);
180    procedure menuAutomatiskvalg1Click(Sender: TObject);    procedure menuAutomatiskvalg1Click(Sender: TObject);
181    procedure PanelValgAClick(Sender: TObject);    procedure PanelValgAClick(Sender: TObject);
# Line 431  begin Line 433  begin
433        end;        end;
434      end;      end;
435    
436      if Automatisktjekkodestyring1.Checked then      if menuAutomatiskTjekkodeStyring.Checked then
437      begin      begin
438        chkScanTjekkode.Enabled := false;        chkScanTjekkode.Enabled := false;
439        Scanogstjekkoden1.Enabled := false;        Scanogstjekkoden1.Enabled := false;
# Line 489  begin Line 491  begin
491    StregkodeST.Caption := Stregkode;    StregkodeST.Caption := Stregkode;
492  end;  end;
493    
494  procedure TMainForm.Automatisktjekkodestyring1Click(Sender: TObject);  procedure TMainForm.menuAutomatiskTjekkodeStyringClick(Sender: TObject);
495  begin  begin
496    if Automatisktjekkodestyring1.Checked then    if menuAutomatiskTjekkodeStyring.Checked then
497    begin    begin
498       chkScanTjekkode.Enabled := false;       chkScanTjekkode.Enabled := false;
499       Scanogstjekkoden1.Enabled := false;       Scanogstjekkoden1.Enabled := false;
# Line 558  begin Line 560  begin
560    
561  // Sætter lige en default panel størrelse  // Sætter lige en default panel størrelse
562    MainForm.ClientWidth := 1000;    MainForm.ClientWidth := 1000;
563    MainForm.ClientHeight := 750;    MainForm.ClientHeight := 820;
564    
565    Config := TConfiguration.Create();    Config := TConfiguration.Create();
566    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 707  begin Line 709  begin
709    
710      if ScanTjekkodeAutomatik = '1' then      if ScanTjekkodeAutomatik = '1' then
711      begin      begin
712        Automatisktjekkodestyring1.Checked := true;        menuAutomatiskTjekkodeStyring.Checked := true;
713        chkScanTjekkode.Enabled := false;        chkScanTjekkode.Enabled := false;
714        Scanogstjekkoden1.Enabled := false;        Scanogstjekkoden1.Enabled := false;
715      end;      end;
# Line 841  begin Line 843  begin
843    
844      if SpecialVersionSted = 'DBK' then      if SpecialVersionSted = 'DBK' then
845      begin      begin
       //FarveNormal := 'A9F5A9';  // her kan vi evt. overrule ini fil  
846        Sted := SpecialVersionSted;        Sted := SpecialVersionSted;
       // her skal vi også disable de knapper DBK ikke kan bruge  
       PanelValg2.Enabled := false;  
       PanelValg2.Font.Color := clInactiveCaption;  
       PanelValg3.Enabled := false;  
       PanelValg3.Font.Color := clInactiveCaption;  
       PanelValg5.Enabled := false;  
       PanelValg5.Font.Color := clInactiveCaption;  
       PanelValg6.Enabled := false;  
       PanelValg6.Font.Color := clInactiveCaption;  
   
   
      // her skal vi også disable de menupunkter DBK ikke kan bruge  
       menuNatxpressReturDAO1.Enabled := false;  
       menuNatxpressReturfraKunde1.Enabled := false;  
   
       menuPakkeshop1.Enabled := false;  
       menuPakkeshopRetur1.Enabled := false;  
   
       if SpecialVersionScanningtype = 'A' then  
       begin  
          Scanningtype := '1';  
       end  
       else  
       begin  
         Scanningtype := SpecialVersionScanningtype;  
       end;  
847      end;      end;
848    
849      if (SpecialVersionSted = '01')      if (SpecialVersionSted = '01')
# Line 1029  begin Line 1004  begin
1004    
1005      if Pakketype = '1' then      if Pakketype = '1' then
1006      begin      begin
1007        Storepakker1.Checked := true;        menuStorePakker.Checked := true;
1008        radioStorPakke.Checked := true;        radioStorPakke.Checked := true;
1009      end      end
1010      else      else
1011      begin      begin
1012        Smpakker1.Checked := true;        menuSmaaPakker.Checked := true;
1013        radioLillePakke.Checked := true;        radioLillePakke.Checked := true;
1014      end;      end;
1015    
# Line 1097  begin Line 1072  begin
1072        menuNatxpressReturDAO1.Visible := false;        menuNatxpressReturDAO1.Visible := false;
1073        menuNatxpressReturfraKunde1.Visible := false;        menuNatxpressReturfraKunde1.Visible := false;
1074        menuDaoDirekte1.Visible := false;        menuDaoDirekte1.Visible := false;
1075        Storepakker1.Visible := false;        menuStorePakker.Visible := false;
1076        Smpakker1.Visible := false;        menuSmaaPakker.Visible := false;
1077        Testprinter1.Visible := false;        Testprinter1.Visible := false;
1078        menuPakkeshop1.Visible := false;        menuPakkeshop1.Visible := false;
1079        menuPakkeshopRetur1.Visible := false;        menuPakkeshopRetur1.Visible := false;
# Line 1575  begin Line 1550  begin
1550    
1551    
1552    
1553      if (PakkeshopText1.Visible = true) and (PakkeshopText1.Caption = 'Stregkode') and Automatisktjekkodestyring1.Checked then      if (PakkeshopText1.Visible = true) and (PakkeshopText1.Caption = 'Stregkode') and menuAutomatiskTjekkodeStyring.Checked then
1554      begin      begin
1555        chkScanTjekkode.Checked := false;        chkScanTjekkode.Checked := false;
1556        for i := 0 to length(stregkoderMedTjekkodeArray)-1 do        for i := 0 to length(stregkoderMedTjekkodeArray)-1 do
# Line 1701  begin Line 1676  begin
1676            if ( menuNatXpress1.Checked and (pakkeErScannet = 0) and (pakkeForkertSted = 0) and (tjekkodemangler = 0) and (RuteNummerST.Caption <> 'Ukendt') ) or (Copy(Kommentar,1,2) = 'Ok') then            if ( menuNatXpress1.Checked and (pakkeErScannet = 0) and (pakkeForkertSted = 0) and (tjekkodemangler = 0) and (RuteNummerST.Caption <> 'Ukendt') ) or (Copy(Kommentar,1,2) = 'Ok') then
1677            begin            begin
1678              MainForm.Color := TUtils.HexToTColor(Farve);              MainForm.Color := TUtils.HexToTColor(Farve);
1679              if Storepakker1.Checked then              if menuStorePakker.Checked then
1680              begin              begin
1681                PlaySound(PWideChar(ScannetOkStorLyd));                PlaySound(PWideChar(ScannetOkStorLyd));
1682              end              end
# Line 1714  begin Line 1689  begin
1689            else if (menuNatxpressReturDAO1.Checked or menuNatxpressReturfraKunde1.Checked) then            else if (menuNatxpressReturDAO1.Checked or menuNatxpressReturfraKunde1.Checked) then
1690            begin            begin
1691              MainForm.Color := TUtils.HexToTColor(Farve);              MainForm.Color := TUtils.HexToTColor(Farve);
1692              if Storepakker1.Checked then              if menuStorePakker.Checked then
1693              begin              begin
1694                PlaySound(PWideChar(ScannetOkStorLyd));                PlaySound(PWideChar(ScannetOkStorLyd));
1695              end              end
# Line 1741  begin Line 1716  begin
1716    
1717              If (menuDaoDirekte1.Checked) then              If (menuDaoDirekte1.Checked) then
1718              begin              begin
1719                if Storepakker1.Checked then                if menuStorePakker.Checked then
1720                begin                begin
1721                  PlaySound(PWideChar(ScannetOkStorLyd));                  PlaySound(PWideChar(ScannetOkStorLyd));
1722                end                end
# Line 1840  begin Line 1815  begin
1815        for i := ListBox2.items.count-1 downto 0 do        for i := ListBox2.items.count-1 downto 0 do
1816          if pos(StregKode,ListBox2.items[i]) <> 0 then          if pos(StregKode,ListBox2.items[i]) <> 0 then
1817          begin          begin
1818              wrkAntalSenere := 0;//initial Value
1819    
1820            // Ajourføring af tæller for manglende pakker (scanninger)            // Ajourføring af tæller for manglende pakker (scanninger)
1821            wrkAntal := StaticTextManglendePakker.Caption;            wrkAntal := StaticTextManglendePakker.Caption;
# Line 2015  begin Line 1991  begin
1991      02 :      02 :
1992            begin;    // BK            begin;    // BK
1993              Testprinter1.Visible := true;              Testprinter1.Visible := true;
1994              Smpakker1.Enabled := true;              menuSmaaPakker.Enabled := true;
1995              Storepakker1.Enabled := true;              menuStorePakker.Enabled := true;
1996              radioStorPakke.Enabled := true;              radioStorPakke.Enabled := true;
1997              radioLillePakke.Enabled := true;              radioLillePakke.Enabled := true;
1998              BtnDownloadKontrolfil.Enabled := false;     // kontrolfil bruges ikke her              BtnDownloadKontrolfil.Enabled := false;     // kontrolfil bruges ikke her
# Line 2053  begin Line 2029  begin
2029            end;            end;
2030      04 :  begin;           // DBK      04 :  begin;           // DBK
2031              Testprinter1.Visible := true;              Testprinter1.Visible := true;
2032              Smpakker1.Enabled := true;              menuSmaaPakker.Enabled := true;
2033              Storepakker1.Enabled := true;              menuStorePakker.Enabled := true;
2034              radioStorPakke.Enabled := true;              radioStorPakke.Enabled := true;
2035              radioLillePakke.Enabled := true;              radioLillePakke.Enabled := true;
2036              BtnDownloadKontrolfil.Enabled := false;    // kontrolfil bruges ikke her              BtnDownloadKontrolfil.Enabled := false;    // kontrolfil bruges ikke her
# Line 2233  begin Line 2209  begin
2209      begin      begin
2210        if (Leveringssted <> BladhusStedKode[BladhusSted]) and (BladhusStedKode[BladhusSted] <> 'DBK') then        if (Leveringssted <> BladhusStedKode[BladhusSted]) and (BladhusStedKode[BladhusSted] <> 'DBK') then
2211        begin        begin
2212            Kommentar := Kommentar + ' Pakke burde være hos DAO Distribution';            Kommentar := Kommentar + 'Pakke burde være hos ' + Leveringssted;
2213            PrintNyLabel := False;            PrintNyLabel := False;
2214        end;        end;
2215      end      end
2216      else if (menuDaoDirekte1.Checked) and (Leveringssted <> Sted) then      else if (menuDaoDirekte1.Checked) and (Leveringssted <> Sted) And (Leveringssted <> '') then
2217      begin      begin
2218         if (Leveringssted = 'E') and (Sted = 'DBK') then         if (Leveringssted = 'E') and (Sted = 'DBK') then
2219         begin         begin
# Line 2245  begin Line 2221  begin
2221         end         end
2222         else         else
2223         begin         begin
2224            Kommentar := Kommentar + ' Pakke burde være hos DAO Distribution';            Kommentar := Kommentar + 'Pakke burde være hos ' + Leveringssted;
2225            PrintNyLabel := False;            PrintNyLabel := False;
2226         end;         end;
2227      end;      end;
# Line 2543  end; Line 2519  end;
2519    
2520  procedure TMainForm.radioStorPakkeClick(Sender: TObject);  procedure TMainForm.radioStorPakkeClick(Sender: TObject);
2521  begin  begin
2522      Storepakker1.Checked := true;      menuStorePakker.Checked := true;
2523      radioStorPakke.Checked := true;      radioStorPakke.Checked := true;
2524  end;  end;
2525    
2526  procedure TMainForm.radioLillePakkeClick(Sender: TObject);  procedure TMainForm.radioLillePakkeClick(Sender: TObject);
2527  begin  begin
2528      Smpakker1.Checked := true;      menuSmaaPakker.Checked := true;
2529      radioLillePakke.Checked := true;      radioLillePakke.Checked := true;
2530  end;  end;
2531    
# Line 3204  end; Line 3180  end;
3180    
3181  procedure TMainForm.InitNatxpresslevering();  procedure TMainForm.InitNatxpresslevering();
3182  begin  begin
3183        AutomatiskTjekkodeStyring1.Enabled := true;        menuAutomatiskTjekkodeStyring.Enabled := true;
3184        btnNulstil.Visible := false;        btnNulstil.Visible := false;
3185        menuNatXpress1.Checked := true;        menuNatXpress1.Checked := true;
3186        InitForm(FarveNormal,TitelNormal,UrlNormal);        InitForm(FarveNormal,TitelNormal,UrlNormal);
# Line 3218  begin Line 3194  begin
3194        Sprgefterboghandlernummer1.Checked := false;        Sprgefterboghandlernummer1.Checked := false;
3195        chkSporgEfterKunde.Checked := false;        chkSporgEfterKunde.Checked := false;
3196        Sprgefterboghandlernummer1.Enabled := true;        Sprgefterboghandlernummer1.Enabled := true;
3197        Smpakker1.Enabled := false;        menuSmaaPakker.Enabled := false;
3198        Storepakker1.Enabled := false;        menuStorePakker.Enabled := false;
3199        radioStorPakke.Enabled := false;        radioStorPakke.Enabled := false;
3200        radioLillePakke.Enabled := false;        radioLillePakke.Enabled := false;
3201        ListBox1.Visible := true;        ListBox1.Visible := true;
# Line 3240  end; Line 3216  end;
3216    
3217  procedure TMainForm.InitReturFraDao();  procedure TMainForm.InitReturFraDao();
3218  begin  begin
3219        AutomatiskTjekkodeStyring1.Enabled := false;        menuAutomatiskTjekkodeStyring.Enabled := false;
3220        menuNatxpressReturDAO1.Checked := true;        menuNatxpressReturDAO1.Checked := true;
3221        btnNulstil.Visible := false;        btnNulstil.Visible := false;
3222        InitForm(FarveReturDAO,TitelReturDAO,UrlReturDAO);        InitForm(FarveReturDAO,TitelReturDAO,UrlReturDAO);
# Line 3254  begin Line 3230  begin
3230        Sprgefterboghandlernummer1.Checked := false;        Sprgefterboghandlernummer1.Checked := false;
3231        chkSporgEfterKunde.Checked := false;        chkSporgEfterKunde.Checked := false;
3232        Sprgefterboghandlernummer1.Enabled := false;        Sprgefterboghandlernummer1.Enabled := false;
3233        Smpakker1.Enabled := true;        menuSmaaPakker.Enabled := true;
3234        Storepakker1.Enabled := true;        menuStorePakker.Enabled := true;
3235        radioStorPakke.Enabled := true;        radioStorPakke.Enabled := true;
3236        radioLillePakke.Enabled := true;        radioLillePakke.Enabled := true;
3237        ListBox1.Visible := true;        ListBox1.Visible := true;
# Line 3271  end; Line 3247  end;
3247    
3248  procedure TMainForm.InitReturFraKunde();  procedure TMainForm.InitReturFraKunde();
3249  begin  begin
3250        AutomatiskTjekkodeStyring1.Enabled := false;        menuAutomatiskTjekkodeStyring.Enabled := false;
3251        menuNatxpressReturfraKunde1.Checked := true;        menuNatxpressReturfraKunde1.Checked := true;
3252        btnNulstil.Visible := false;        btnNulstil.Visible := false;
3253        InitForm(FarveReturBoghandler,TitelReturBoghandler,UrlReturBoghandler);        InitForm(FarveReturBoghandler,TitelReturBoghandler,UrlReturBoghandler);
# Line 3284  begin Line 3260  begin
3260        Sprgefterboghandlernummer1.Checked := false;        Sprgefterboghandlernummer1.Checked := false;
3261        chkSporgEfterKunde.Checked := false;        chkSporgEfterKunde.Checked := false;
3262        Sprgefterboghandlernummer1.Enabled := false;        Sprgefterboghandlernummer1.Enabled := false;
3263        Smpakker1.Enabled := true;        menuSmaaPakker.Enabled := true;
3264        Storepakker1.Enabled := true;        menuStorePakker.Enabled := true;
3265        radioStorPakke.Enabled := true;        radioStorPakke.Enabled := true;
3266        radioLillePakke.Enabled := true;        radioLillePakke.Enabled := true;
3267        ListBox1.Visible := true;        ListBox1.Visible := true;
# Line 3301  end; Line 3277  end;
3277    
3278  procedure TMainForm.InitDirektelevering();  procedure TMainForm.InitDirektelevering();
3279  begin  begin
3280        AutomatiskTjekkodeStyring1.Enabled := false;        menuAutomatiskTjekkodeStyring.Enabled := false;
3281        menuDaoDirekte1.Checked := true;        menuDaoDirekte1.Checked := true;
3282        btnNulstil.Visible := false;        btnNulstil.Visible := false;
3283        InitForm(FarveBudlevering,TitelBudlevering,UrlBudlevering);        InitForm(FarveBudlevering,TitelBudlevering,UrlBudlevering);
# Line 3315  begin Line 3291  begin
3291        Sprgefterboghandlernummer1.Checked := false;        Sprgefterboghandlernummer1.Checked := false;
3292        chkSporgEfterKunde.Checked := false;        chkSporgEfterKunde.Checked := false;
3293        Sprgefterboghandlernummer1.Enabled := false;        Sprgefterboghandlernummer1.Enabled := false;
3294        Smpakker1.Enabled := true;        menuSmaaPakker.Enabled := true;
3295        Storepakker1.Enabled := true;        menuStorePakker.Enabled := true;
3296        radioStorPakke.Enabled := true;        radioStorPakke.Enabled := true;
3297        radioLillePakke.Enabled := true;        radioLillePakke.Enabled := true;
3298        ListBox1.Visible := true;        ListBox1.Visible := true;
# Line 3341  end; Line 3317  end;
3317    
3318  procedure TMainForm.InitPakkeshoplevering();  procedure TMainForm.InitPakkeshoplevering();
3319  begin  begin
3320        AutomatiskTjekkodeStyring1.Enabled := true;        menuAutomatiskTjekkodeStyring.Enabled := true;
3321        menuPakkeshop1.Checked := true;        menuPakkeshop1.Checked := true;
3322        btnNulstil.Visible := false;        btnNulstil.Visible := false;
3323        InitForm(FarvePakkeshoplevering,TitelPakkeshoplevering,UrlPakkeshoplevering);        InitForm(FarvePakkeshoplevering,TitelPakkeshoplevering,UrlPakkeshoplevering);
# Line 3355  begin Line 3331  begin
3331        Sprgefterboghandlernummer1.Checked := false;        Sprgefterboghandlernummer1.Checked := false;
3332        chkSporgEfterKunde.Checked := false;        chkSporgEfterKunde.Checked := false;
3333        Sprgefterboghandlernummer1.Enabled := false;        Sprgefterboghandlernummer1.Enabled := false;
3334        Smpakker1.Enabled := false;        menuSmaaPakker.Enabled := false;
3335        Storepakker1.Enabled := false;        menuStorePakker.Enabled := false;
3336        radioStorPakke.Enabled := false;        radioStorPakke.Enabled := false;
3337        radioLillePakke.Enabled := false;        radioLillePakke.Enabled := false;
3338        ListBox1.Visible := true;        ListBox1.Visible := true;
# Line 3381  end; Line 3357  end;
3357    
3358  procedure TMainForm.InitReturFraPakkeshop();  procedure TMainForm.InitReturFraPakkeshop();
3359  begin  begin
3360        AutomatiskTjekkodeStyring1.Enabled := false;        menuAutomatiskTjekkodeStyring.Enabled := false;
3361        menuPakkeshopRetur1.Checked := true;        menuPakkeshopRetur1.Checked := true;
3362        btnNulstil.Visible := false;        btnNulstil.Visible := false;
3363        InitForm(FarveReturPakkeshop,TitelReturPakkeshop,UrlReturPakkeshop);        InitForm(FarveReturPakkeshop,TitelReturPakkeshop,UrlReturPakkeshop);
# Line 3395  begin Line 3371  begin
3371        Sprgefterboghandlernummer1.Checked := false;        Sprgefterboghandlernummer1.Checked := false;
3372        chkSporgEfterKunde.Checked := false;        chkSporgEfterKunde.Checked := false;
3373        Sprgefterboghandlernummer1.Enabled := false;        Sprgefterboghandlernummer1.Enabled := false;
3374        Smpakker1.Enabled := false;        menuSmaaPakker.Enabled := false;
3375        Storepakker1.Enabled := false;        menuStorePakker.Enabled := false;
3376        radioStorPakke.Enabled := false;        radioStorPakke.Enabled := false;
3377        radioLillePakke.Enabled := false;        radioLillePakke.Enabled := false;
3378        ListBox1.Visible := true;        ListBox1.Visible := true;
# Line 3429  end; Line 3405  end;
3405  procedure TMainForm.InitIndleveringskode();  procedure TMainForm.InitIndleveringskode();
3406  begin  begin
3407        menuIndlevering.Checked := true;        menuIndlevering.Checked := true;
3408        AutomatiskTjekkodeStyring1.Enabled := false;        menuAutomatiskTjekkodeStyring.Enabled := false;
3409    
3410        btnNulstil.Visible := false;        btnNulstil.Visible := false;
3411        InitForm(FarveIndlevering, TitelIndlevering, UrlReturPakkeshop);        InitForm(FarveIndlevering, TitelIndlevering, UrlReturPakkeshop);
# Line 3446  begin Line 3422  begin
3422    
3423    
3424    
3425        Smpakker1.Enabled := false;        menuSmaaPakker.Enabled := false;
3426        Storepakker1.Enabled := false;        menuStorePakker.Enabled := false;
3427        radioStorPakke.Enabled := false;        radioStorPakke.Enabled := false;
3428        radioLillePakke.Enabled := false;        radioLillePakke.Enabled := false;
3429        ListBox1.Visible := true;        ListBox1.Visible := true;
# Line 3472  begin Line 3448  begin
3448  end;  end;
3449    
3450    
3451  procedure TMainForm.Storepakker1Click(Sender: TObject);  procedure TMainForm.menuStorePakkerClick(Sender: TObject);
3452  begin  begin
3453    InitStorPakke();    InitStorPakke();
3454  end;  end;
3455    
3456  procedure TMainForm.Smpakker1Click(Sender: TObject);  procedure TMainForm.menuSmaaPakkerClick(Sender: TObject);
3457  begin  begin
3458    InitLillePakke();    InitLillePakke();
3459  end;  end;
# Line 3485  end; Line 3461  end;
3461  procedure TMainForm.InitLillePakke();  procedure TMainForm.InitLillePakke();
3462  begin  begin
3463    radioLillePakke.Checked := true;    radioLillePakke.Checked := true;
3464    Smpakker1.Checked := true;    menuSmaaPakker.Checked := true;
3465  //  Stregkode := '';  //  Stregkode := '';
3466  end;  end;
3467    
3468  procedure TMainForm.InitStorPakke();  procedure TMainForm.InitStorPakke();
3469  begin  begin
3470    radioStorPakke.Checked := true;    radioStorPakke.Checked := true;
3471    Storepakker1.Checked := true;    menuStorePakker.Checked := true;
3472  // 20150310: start  // 20150310: start
3473  //  Stregkode := '';  //  Stregkode := '';
3474  // 20150310: slut  // 20150310: slut
# Line 3536  begin Line 3512  begin
3512       exit;       exit;
3513    end;    end;
3514    
3515    if Smpakker1.Checked then    if menuSmaaPakker.Checked then
3516       if ScannetOkLyd  <> '' then       if ScannetOkLyd  <> '' then
3517       begin       begin
3518         PlaySound(PWideChar(ScannetOkLyd));         PlaySound(PWideChar(ScannetOkLyd));
# Line 3545  begin Line 3521  begin
3521       begin       begin
3522         MessageBox(Handle, PWideChar('Lyd fil ikke fundet (ScannetOkLyd)'), 'Information', MB_OK);         MessageBox(Handle, PWideChar('Lyd fil ikke fundet (ScannetOkLyd)'), 'Information', MB_OK);
3523       end;       end;
3524    if Storepakker1.Checked then    if menuStorePakker.Checked then
3525       if ScannetOkStorLyd  <> '' then       if ScannetOkStorLyd  <> '' then
3526       begin       begin
3527         PlaySound(PWideChar(ScannetOkStorLyd));         PlaySound(PWideChar(ScannetOkStorLyd));
# Line 4203  var Line 4179  var
4179    I: Integer;    I: Integer;
4180    stregkode, modtagernavn, modtageradresse, kommentar : string;    stregkode, modtagernavn, modtageradresse, kommentar : string;
4181    pakketype, tjekkodestatus : String;    pakketype, tjekkodestatus : String;
4182    pakketypeix, antalLiniefelter, antalFelterFundet, linienr : Integer;    antalLiniefelter, antalFelterFundet, linienr : Integer;
4183    //pakketyper : TStrings;    //pakketyper : TStrings;
4184    pakketyper : TDictionary<String, Integer>;    pakketyper : TDictionary<String, Integer>;
4185    tmpAntal : Integer;    tmpAntal : Integer;
4186    
4187     time, timeSamlet : TTimingHelper;
4188    
4189    
4190    antlin : Integer;    antlin : Integer;
# Line 4267  var Line 4244  var
4244       end;       end;
4245  // 20150310: slut  // 20150310: slut
4246    
4247        time := TTimingHelper.create();        //DEBUG
4248        timeSamlet := TTimingHelper.create();        //DEBUG
4249    
4250      try      try
4251      //raise EIdConnClosedGracefully.Create('test');   // KUN TIL TEST      //raise EIdConnClosedGracefully.Create('test');   // KUN TIL TEST
4252  //    URLStr := string(Utf8Encode(URLStr));  //    URLStr := string(Utf8Encode(URLStr));
# Line 4289  var Line 4269  var
4269        end;        end;
4270      end;      end;
4271      try      try
4272          time.stop('HTTP Load');     //DEBUG
4273    
4274        XMLDocument1.LoadFromXML(WebSvar);        XMLDocument1.LoadFromXML(WebSvar);
4275    
4276          time.stop('XML Load');     //DEBUG
4277    
4278    
4279    
4280    
4281    
4282    
4283        antlin := 0;        antlin := 0;
4284        antlinIdag := 0;        antlinIdag := 0;
# Line 4333  var Line 4321  var
4321        SetLength(stregkoderMedTjekkodeArray, 0);    // reset fra tidligere brug        SetLength(stregkoderMedTjekkodeArray, 0);    // reset fra tidligere brug
4322        SetLength(stregkoderMedTjekkodeArray, antlin);  // sæt antal elementer i array        SetLength(stregkoderMedTjekkodeArray, antlin);  // sæt antal elementer i array
4323    
4324          time.stop('Antal Linier');//DEBUG
4325    
4326        Application.Processmessages; //Ugly Hack to improve User Experience when switching modes        Application.Processmessages; //Ugly Hack to improve User Experience when switching modes
4327    
# Line 4418  var Line 4407  var
4407        end;        end;
4408    
4409    
4410          time.stop('Fyld Listbox2');//DEBUG
4411    
4412    
4413        Application.Processmessages; //Ugly Hack to improve User Experience when switching modes        Application.Processmessages; //Ugly Hack to improve User Experience when switching modes
4414    
4415    
# Line 4537  var Line 4529  var
4529        end;        end;
4530      end;      end;
4531    
4532        time.stop('Done');//DEBUG
4533        timeSamlet.stop('SamletTid');//DEBUG
4534    
4535    
4536  end;  end;
4537    
4538  procedure TMainForm.IndlesScanningLogFil();  procedure TMainForm.IndlesScanningLogFil();
Legend:
Removed from v.3054  
changed lines
  Added in v.3076
  ViewVC Help
Powered by ViewVC 1.1.20