/[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 3073 by torben, Wed Jul 27 15:25:24 2016 UTC
# Line 56  type Line 56  type
56      radioStorPakke: TRadioButton;      radioStorPakke: TRadioButton;
57      radioLillePakke: TRadioButton;      radioLillePakke: TRadioButton;
58      N4: TMenuItem;      N4: TMenuItem;
59      Storepakker1: TMenuItem;      menuStorePakker: TMenuItem;
60      Smpakker1: TMenuItem;      menuSmaaPakker: TMenuItem;
61      Panel1: TPanel;      Panel1: TPanel;
62      Testlyd2: TMenuItem;      Testlyd2: TMenuItem;
63      Button1: TButton;      Button1: TButton;
# Line 85  type Line 85  type
85      Timer1: TTimer;      Timer1: TTimer;
86      chkScanTjekkode: TCheckBox;      chkScanTjekkode: TCheckBox;
87      Scanogstjekkoden1: TMenuItem;      Scanogstjekkoden1: TMenuItem;
88      Automatisktjekkodestyring1: TMenuItem;      menuAutomatiskTjekkodeStyring: TMenuItem;
89      menuAutomatiskvalg1: TMenuItem;      menuAutomatiskvalg1: TMenuItem;
90      PanelValgA: TPanel;      PanelValgA: TPanel;
91      PanelValg1: TPanel;      PanelValg1: TPanel;
# Line 107  type Line 107  type
107      chkForstorTilDirekte: TCheckBox;      chkForstorTilDirekte: TCheckBox;
108      chkEmballageRepareret: TCheckBox;      chkEmballageRepareret: TCheckBox;
109      KommentarST: TLabel;      KommentarST: TLabel;
110        chkUdenforSpecifikation: TCheckBox;
111    
112    
113    
# Line 136  type Line 137  type
137    procedure Sprgefterboghandlernummer1Click(Sender: TObject);    procedure Sprgefterboghandlernummer1Click(Sender: TObject);
138    procedure menuNatxpressReturDAO1Click(Sender: TObject);    procedure menuNatxpressReturDAO1Click(Sender: TObject);
139    procedure menuNatxpressReturfraKunde1Click(Sender: TObject);    procedure menuNatxpressReturfraKunde1Click(Sender: TObject);
140    procedure Storepakker1Click(Sender: TObject);    procedure menuStorePakkerClick(Sender: TObject);
141    procedure Smpakker1Click(Sender: TObject);    procedure menuSmaaPakkerClick(Sender: TObject);
142    procedure Testlyd1Click(Sender: TObject);    procedure Testlyd1Click(Sender: TObject);
143    procedure Testlyd2Click(Sender: TObject);    procedure Testlyd2Click(Sender: TObject);
144    procedure Button1Click(Sender: TObject);    procedure Button1Click(Sender: TObject);
# Line 173  type Line 174  type
174    procedure Timer1Timer(Sender: TObject);    procedure Timer1Timer(Sender: TObject);
175    procedure Scanogstjekkoden1Click(Sender: TObject);    procedure Scanogstjekkoden1Click(Sender: TObject);
176    procedure chkScanTjekkodeClick(Sender: TObject);    procedure chkScanTjekkodeClick(Sender: TObject);
177    procedure Automatisktjekkodestyring1Click(Sender: TObject);    procedure menuAutomatiskTjekkodeStyringClick(Sender: TObject);
178    procedure SendInfoTilServer(Sted, Scanningtype, Infotype, Info : String);    procedure SendInfoTilServer(Sted, Scanningtype, Infotype, Info : String);
179    procedure menuAutomatiskvalg1Click(Sender: TObject);    procedure menuAutomatiskvalg1Click(Sender: TObject);
180    procedure PanelValgAClick(Sender: TObject);    procedure PanelValgAClick(Sender: TObject);
# Line 431  begin Line 432  begin
432        end;        end;
433      end;      end;
434    
435      if Automatisktjekkodestyring1.Checked then      if menuAutomatiskTjekkodeStyring.Checked then
436      begin      begin
437        chkScanTjekkode.Enabled := false;        chkScanTjekkode.Enabled := false;
438        Scanogstjekkoden1.Enabled := false;        Scanogstjekkoden1.Enabled := false;
# Line 489  begin Line 490  begin
490    StregkodeST.Caption := Stregkode;    StregkodeST.Caption := Stregkode;
491  end;  end;
492    
493  procedure TMainForm.Automatisktjekkodestyring1Click(Sender: TObject);  procedure TMainForm.menuAutomatiskTjekkodeStyringClick(Sender: TObject);
494  begin  begin
495    if Automatisktjekkodestyring1.Checked then    if menuAutomatiskTjekkodeStyring.Checked then
496    begin    begin
497       chkScanTjekkode.Enabled := false;       chkScanTjekkode.Enabled := false;
498       Scanogstjekkoden1.Enabled := false;       Scanogstjekkoden1.Enabled := false;
# Line 707  begin Line 708  begin
708    
709      if ScanTjekkodeAutomatik = '1' then      if ScanTjekkodeAutomatik = '1' then
710      begin      begin
711        Automatisktjekkodestyring1.Checked := true;        menuAutomatiskTjekkodeStyring.Checked := true;
712        chkScanTjekkode.Enabled := false;        chkScanTjekkode.Enabled := false;
713        Scanogstjekkoden1.Enabled := false;        Scanogstjekkoden1.Enabled := false;
714      end;      end;
# Line 841  begin Line 842  begin
842    
843      if SpecialVersionSted = 'DBK' then      if SpecialVersionSted = 'DBK' then
844      begin      begin
       //FarveNormal := 'A9F5A9';  // her kan vi evt. overrule ini fil  
845        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;  
846      end;      end;
847    
848      if (SpecialVersionSted = '01')      if (SpecialVersionSted = '01')
# Line 1029  begin Line 1003  begin
1003    
1004      if Pakketype = '1' then      if Pakketype = '1' then
1005      begin      begin
1006        Storepakker1.Checked := true;        menuStorePakker.Checked := true;
1007        radioStorPakke.Checked := true;        radioStorPakke.Checked := true;
1008      end      end
1009      else      else
1010      begin      begin
1011        Smpakker1.Checked := true;        menuSmaaPakker.Checked := true;
1012        radioLillePakke.Checked := true;        radioLillePakke.Checked := true;
1013      end;      end;
1014    
# Line 1097  begin Line 1071  begin
1071        menuNatxpressReturDAO1.Visible := false;        menuNatxpressReturDAO1.Visible := false;
1072        menuNatxpressReturfraKunde1.Visible := false;        menuNatxpressReturfraKunde1.Visible := false;
1073        menuDaoDirekte1.Visible := false;        menuDaoDirekte1.Visible := false;
1074        Storepakker1.Visible := false;        menuStorePakker.Visible := false;
1075        Smpakker1.Visible := false;        menuSmaaPakker.Visible := false;
1076        Testprinter1.Visible := false;        Testprinter1.Visible := false;
1077        menuPakkeshop1.Visible := false;        menuPakkeshop1.Visible := false;
1078        menuPakkeshopRetur1.Visible := false;        menuPakkeshopRetur1.Visible := false;
# Line 1575  begin Line 1549  begin
1549    
1550    
1551    
1552      if (PakkeshopText1.Visible = true) and (PakkeshopText1.Caption = 'Stregkode') and Automatisktjekkodestyring1.Checked then      if (PakkeshopText1.Visible = true) and (PakkeshopText1.Caption = 'Stregkode') and menuAutomatiskTjekkodeStyring.Checked then
1553      begin      begin
1554        chkScanTjekkode.Checked := false;        chkScanTjekkode.Checked := false;
1555        for i := 0 to length(stregkoderMedTjekkodeArray)-1 do        for i := 0 to length(stregkoderMedTjekkodeArray)-1 do
# Line 1701  begin Line 1675  begin
1675            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
1676            begin            begin
1677              MainForm.Color := TUtils.HexToTColor(Farve);              MainForm.Color := TUtils.HexToTColor(Farve);
1678              if Storepakker1.Checked then              if menuStorePakker.Checked then
1679              begin              begin
1680                PlaySound(PWideChar(ScannetOkStorLyd));                PlaySound(PWideChar(ScannetOkStorLyd));
1681              end              end
# Line 1714  begin Line 1688  begin
1688            else if (menuNatxpressReturDAO1.Checked or menuNatxpressReturfraKunde1.Checked) then            else if (menuNatxpressReturDAO1.Checked or menuNatxpressReturfraKunde1.Checked) then
1689            begin            begin
1690              MainForm.Color := TUtils.HexToTColor(Farve);              MainForm.Color := TUtils.HexToTColor(Farve);
1691              if Storepakker1.Checked then              if menuStorePakker.Checked then
1692              begin              begin
1693                PlaySound(PWideChar(ScannetOkStorLyd));                PlaySound(PWideChar(ScannetOkStorLyd));
1694              end              end
# Line 1741  begin Line 1715  begin
1715    
1716              If (menuDaoDirekte1.Checked) then              If (menuDaoDirekte1.Checked) then
1717              begin              begin
1718                if Storepakker1.Checked then                if menuStorePakker.Checked then
1719                begin                begin
1720                  PlaySound(PWideChar(ScannetOkStorLyd));                  PlaySound(PWideChar(ScannetOkStorLyd));
1721                end                end
# Line 1840  begin Line 1814  begin
1814        for i := ListBox2.items.count-1 downto 0 do        for i := ListBox2.items.count-1 downto 0 do
1815          if pos(StregKode,ListBox2.items[i]) <> 0 then          if pos(StregKode,ListBox2.items[i]) <> 0 then
1816          begin          begin
1817              wrkAntalSenere := 0;//initial Value
1818    
1819            // Ajourføring af tæller for manglende pakker (scanninger)            // Ajourføring af tæller for manglende pakker (scanninger)
1820            wrkAntal := StaticTextManglendePakker.Caption;            wrkAntal := StaticTextManglendePakker.Caption;
# Line 2015  begin Line 1990  begin
1990      02 :      02 :
1991            begin;    // BK            begin;    // BK
1992              Testprinter1.Visible := true;              Testprinter1.Visible := true;
1993              Smpakker1.Enabled := true;              menuSmaaPakker.Enabled := true;
1994              Storepakker1.Enabled := true;              menuStorePakker.Enabled := true;
1995              radioStorPakke.Enabled := true;              radioStorPakke.Enabled := true;
1996              radioLillePakke.Enabled := true;              radioLillePakke.Enabled := true;
1997              BtnDownloadKontrolfil.Enabled := false;     // kontrolfil bruges ikke her              BtnDownloadKontrolfil.Enabled := false;     // kontrolfil bruges ikke her
# Line 2053  begin Line 2028  begin
2028            end;            end;
2029      04 :  begin;           // DBK      04 :  begin;           // DBK
2030              Testprinter1.Visible := true;              Testprinter1.Visible := true;
2031              Smpakker1.Enabled := true;              menuSmaaPakker.Enabled := true;
2032              Storepakker1.Enabled := true;              menuStorePakker.Enabled := true;
2033              radioStorPakke.Enabled := true;              radioStorPakke.Enabled := true;
2034              radioLillePakke.Enabled := true;              radioLillePakke.Enabled := true;
2035              BtnDownloadKontrolfil.Enabled := false;    // kontrolfil bruges ikke her              BtnDownloadKontrolfil.Enabled := false;    // kontrolfil bruges ikke her
# Line 2233  begin Line 2208  begin
2208      begin      begin
2209        if (Leveringssted <> BladhusStedKode[BladhusSted]) and (BladhusStedKode[BladhusSted] <> 'DBK') then        if (Leveringssted <> BladhusStedKode[BladhusSted]) and (BladhusStedKode[BladhusSted] <> 'DBK') then
2210        begin        begin
2211            Kommentar := Kommentar + ' Pakke burde være hos DAO Distribution';            Kommentar := Kommentar + 'Pakke burde være hos ' + Leveringssted;
2212            PrintNyLabel := False;            PrintNyLabel := False;
2213        end;        end;
2214      end      end
2215      else if (menuDaoDirekte1.Checked) and (Leveringssted <> Sted) then      else if (menuDaoDirekte1.Checked) and (Leveringssted <> Sted) And (Leveringssted <> '') then
2216      begin      begin
2217         if (Leveringssted = 'E') and (Sted = 'DBK') then         if (Leveringssted = 'E') and (Sted = 'DBK') then
2218         begin         begin
# Line 2245  begin Line 2220  begin
2220         end         end
2221         else         else
2222         begin         begin
2223            Kommentar := Kommentar + ' Pakke burde være hos DAO Distribution';            Kommentar := Kommentar + 'Pakke burde være hos ' + Leveringssted;
2224            PrintNyLabel := False;            PrintNyLabel := False;
2225         end;         end;
2226      end;      end;
# Line 2543  end; Line 2518  end;
2518    
2519  procedure TMainForm.radioStorPakkeClick(Sender: TObject);  procedure TMainForm.radioStorPakkeClick(Sender: TObject);
2520  begin  begin
2521      Storepakker1.Checked := true;      menuStorePakker.Checked := true;
2522      radioStorPakke.Checked := true;      radioStorPakke.Checked := true;
2523  end;  end;
2524    
2525  procedure TMainForm.radioLillePakkeClick(Sender: TObject);  procedure TMainForm.radioLillePakkeClick(Sender: TObject);
2526  begin  begin
2527      Smpakker1.Checked := true;      menuSmaaPakker.Checked := true;
2528      radioLillePakke.Checked := true;      radioLillePakke.Checked := true;
2529  end;  end;
2530    
# Line 3204  end; Line 3179  end;
3179    
3180  procedure TMainForm.InitNatxpresslevering();  procedure TMainForm.InitNatxpresslevering();
3181  begin  begin
3182        AutomatiskTjekkodeStyring1.Enabled := true;        menuAutomatiskTjekkodeStyring.Enabled := true;
3183        btnNulstil.Visible := false;        btnNulstil.Visible := false;
3184        menuNatXpress1.Checked := true;        menuNatXpress1.Checked := true;
3185        InitForm(FarveNormal,TitelNormal,UrlNormal);        InitForm(FarveNormal,TitelNormal,UrlNormal);
# Line 3218  begin Line 3193  begin
3193        Sprgefterboghandlernummer1.Checked := false;        Sprgefterboghandlernummer1.Checked := false;
3194        chkSporgEfterKunde.Checked := false;        chkSporgEfterKunde.Checked := false;
3195        Sprgefterboghandlernummer1.Enabled := true;        Sprgefterboghandlernummer1.Enabled := true;
3196        Smpakker1.Enabled := false;        menuSmaaPakker.Enabled := false;
3197        Storepakker1.Enabled := false;        menuStorePakker.Enabled := false;
3198        radioStorPakke.Enabled := false;        radioStorPakke.Enabled := false;
3199        radioLillePakke.Enabled := false;        radioLillePakke.Enabled := false;
3200        ListBox1.Visible := true;        ListBox1.Visible := true;
# Line 3240  end; Line 3215  end;
3215    
3216  procedure TMainForm.InitReturFraDao();  procedure TMainForm.InitReturFraDao();
3217  begin  begin
3218        AutomatiskTjekkodeStyring1.Enabled := false;        menuAutomatiskTjekkodeStyring.Enabled := false;
3219        menuNatxpressReturDAO1.Checked := true;        menuNatxpressReturDAO1.Checked := true;
3220        btnNulstil.Visible := false;        btnNulstil.Visible := false;
3221        InitForm(FarveReturDAO,TitelReturDAO,UrlReturDAO);        InitForm(FarveReturDAO,TitelReturDAO,UrlReturDAO);
# Line 3254  begin Line 3229  begin
3229        Sprgefterboghandlernummer1.Checked := false;        Sprgefterboghandlernummer1.Checked := false;
3230        chkSporgEfterKunde.Checked := false;        chkSporgEfterKunde.Checked := false;
3231        Sprgefterboghandlernummer1.Enabled := false;        Sprgefterboghandlernummer1.Enabled := false;
3232        Smpakker1.Enabled := true;        menuSmaaPakker.Enabled := true;
3233        Storepakker1.Enabled := true;        menuStorePakker.Enabled := true;
3234        radioStorPakke.Enabled := true;        radioStorPakke.Enabled := true;
3235        radioLillePakke.Enabled := true;        radioLillePakke.Enabled := true;
3236        ListBox1.Visible := true;        ListBox1.Visible := true;
# Line 3271  end; Line 3246  end;
3246    
3247  procedure TMainForm.InitReturFraKunde();  procedure TMainForm.InitReturFraKunde();
3248  begin  begin
3249        AutomatiskTjekkodeStyring1.Enabled := false;        menuAutomatiskTjekkodeStyring.Enabled := false;
3250        menuNatxpressReturfraKunde1.Checked := true;        menuNatxpressReturfraKunde1.Checked := true;
3251        btnNulstil.Visible := false;        btnNulstil.Visible := false;
3252        InitForm(FarveReturBoghandler,TitelReturBoghandler,UrlReturBoghandler);        InitForm(FarveReturBoghandler,TitelReturBoghandler,UrlReturBoghandler);
# Line 3284  begin Line 3259  begin
3259        Sprgefterboghandlernummer1.Checked := false;        Sprgefterboghandlernummer1.Checked := false;
3260        chkSporgEfterKunde.Checked := false;        chkSporgEfterKunde.Checked := false;
3261        Sprgefterboghandlernummer1.Enabled := false;        Sprgefterboghandlernummer1.Enabled := false;
3262        Smpakker1.Enabled := true;        menuSmaaPakker.Enabled := true;
3263        Storepakker1.Enabled := true;        menuStorePakker.Enabled := true;
3264        radioStorPakke.Enabled := true;        radioStorPakke.Enabled := true;
3265        radioLillePakke.Enabled := true;        radioLillePakke.Enabled := true;
3266        ListBox1.Visible := true;        ListBox1.Visible := true;
# Line 3301  end; Line 3276  end;
3276    
3277  procedure TMainForm.InitDirektelevering();  procedure TMainForm.InitDirektelevering();
3278  begin  begin
3279        AutomatiskTjekkodeStyring1.Enabled := false;        menuAutomatiskTjekkodeStyring.Enabled := false;
3280        menuDaoDirekte1.Checked := true;        menuDaoDirekte1.Checked := true;
3281        btnNulstil.Visible := false;        btnNulstil.Visible := false;
3282        InitForm(FarveBudlevering,TitelBudlevering,UrlBudlevering);        InitForm(FarveBudlevering,TitelBudlevering,UrlBudlevering);
# Line 3315  begin Line 3290  begin
3290        Sprgefterboghandlernummer1.Checked := false;        Sprgefterboghandlernummer1.Checked := false;
3291        chkSporgEfterKunde.Checked := false;        chkSporgEfterKunde.Checked := false;
3292        Sprgefterboghandlernummer1.Enabled := false;        Sprgefterboghandlernummer1.Enabled := false;
3293        Smpakker1.Enabled := true;        menuSmaaPakker.Enabled := true;
3294        Storepakker1.Enabled := true;        menuStorePakker.Enabled := true;
3295        radioStorPakke.Enabled := true;        radioStorPakke.Enabled := true;
3296        radioLillePakke.Enabled := true;        radioLillePakke.Enabled := true;
3297        ListBox1.Visible := true;        ListBox1.Visible := true;
# Line 3341  end; Line 3316  end;
3316    
3317  procedure TMainForm.InitPakkeshoplevering();  procedure TMainForm.InitPakkeshoplevering();
3318  begin  begin
3319        AutomatiskTjekkodeStyring1.Enabled := true;        menuAutomatiskTjekkodeStyring.Enabled := true;
3320        menuPakkeshop1.Checked := true;        menuPakkeshop1.Checked := true;
3321        btnNulstil.Visible := false;        btnNulstil.Visible := false;
3322        InitForm(FarvePakkeshoplevering,TitelPakkeshoplevering,UrlPakkeshoplevering);        InitForm(FarvePakkeshoplevering,TitelPakkeshoplevering,UrlPakkeshoplevering);
# Line 3355  begin Line 3330  begin
3330        Sprgefterboghandlernummer1.Checked := false;        Sprgefterboghandlernummer1.Checked := false;
3331        chkSporgEfterKunde.Checked := false;        chkSporgEfterKunde.Checked := false;
3332        Sprgefterboghandlernummer1.Enabled := false;        Sprgefterboghandlernummer1.Enabled := false;
3333        Smpakker1.Enabled := false;        menuSmaaPakker.Enabled := false;
3334        Storepakker1.Enabled := false;        menuStorePakker.Enabled := false;
3335        radioStorPakke.Enabled := false;        radioStorPakke.Enabled := false;
3336        radioLillePakke.Enabled := false;        radioLillePakke.Enabled := false;
3337        ListBox1.Visible := true;        ListBox1.Visible := true;
# Line 3381  end; Line 3356  end;
3356    
3357  procedure TMainForm.InitReturFraPakkeshop();  procedure TMainForm.InitReturFraPakkeshop();
3358  begin  begin
3359        AutomatiskTjekkodeStyring1.Enabled := false;        menuAutomatiskTjekkodeStyring.Enabled := false;
3360        menuPakkeshopRetur1.Checked := true;        menuPakkeshopRetur1.Checked := true;
3361        btnNulstil.Visible := false;        btnNulstil.Visible := false;
3362        InitForm(FarveReturPakkeshop,TitelReturPakkeshop,UrlReturPakkeshop);        InitForm(FarveReturPakkeshop,TitelReturPakkeshop,UrlReturPakkeshop);
# Line 3395  begin Line 3370  begin
3370        Sprgefterboghandlernummer1.Checked := false;        Sprgefterboghandlernummer1.Checked := false;
3371        chkSporgEfterKunde.Checked := false;        chkSporgEfterKunde.Checked := false;
3372        Sprgefterboghandlernummer1.Enabled := false;        Sprgefterboghandlernummer1.Enabled := false;
3373        Smpakker1.Enabled := false;        menuSmaaPakker.Enabled := false;
3374        Storepakker1.Enabled := false;        menuStorePakker.Enabled := false;
3375        radioStorPakke.Enabled := false;        radioStorPakke.Enabled := false;
3376        radioLillePakke.Enabled := false;        radioLillePakke.Enabled := false;
3377        ListBox1.Visible := true;        ListBox1.Visible := true;
# Line 3429  end; Line 3404  end;
3404  procedure TMainForm.InitIndleveringskode();  procedure TMainForm.InitIndleveringskode();
3405  begin  begin
3406        menuIndlevering.Checked := true;        menuIndlevering.Checked := true;
3407        AutomatiskTjekkodeStyring1.Enabled := false;        menuAutomatiskTjekkodeStyring.Enabled := false;
3408    
3409        btnNulstil.Visible := false;        btnNulstil.Visible := false;
3410        InitForm(FarveIndlevering, TitelIndlevering, UrlReturPakkeshop);        InitForm(FarveIndlevering, TitelIndlevering, UrlReturPakkeshop);
# Line 3446  begin Line 3421  begin
3421    
3422    
3423    
3424        Smpakker1.Enabled := false;        menuSmaaPakker.Enabled := false;
3425        Storepakker1.Enabled := false;        menuStorePakker.Enabled := false;
3426        radioStorPakke.Enabled := false;        radioStorPakke.Enabled := false;
3427        radioLillePakke.Enabled := false;        radioLillePakke.Enabled := false;
3428        ListBox1.Visible := true;        ListBox1.Visible := true;
# Line 3472  begin Line 3447  begin
3447  end;  end;
3448    
3449    
3450  procedure TMainForm.Storepakker1Click(Sender: TObject);  procedure TMainForm.menuStorePakkerClick(Sender: TObject);
3451  begin  begin
3452    InitStorPakke();    InitStorPakke();
3453  end;  end;
3454    
3455  procedure TMainForm.Smpakker1Click(Sender: TObject);  procedure TMainForm.menuSmaaPakkerClick(Sender: TObject);
3456  begin  begin
3457    InitLillePakke();    InitLillePakke();
3458  end;  end;
# Line 3485  end; Line 3460  end;
3460  procedure TMainForm.InitLillePakke();  procedure TMainForm.InitLillePakke();
3461  begin  begin
3462    radioLillePakke.Checked := true;    radioLillePakke.Checked := true;
3463    Smpakker1.Checked := true;    menuSmaaPakker.Checked := true;
3464  //  Stregkode := '';  //  Stregkode := '';
3465  end;  end;
3466    
3467  procedure TMainForm.InitStorPakke();  procedure TMainForm.InitStorPakke();
3468  begin  begin
3469    radioStorPakke.Checked := true;    radioStorPakke.Checked := true;
3470    Storepakker1.Checked := true;    menuStorePakker.Checked := true;
3471  // 20150310: start  // 20150310: start
3472  //  Stregkode := '';  //  Stregkode := '';
3473  // 20150310: slut  // 20150310: slut
# Line 3536  begin Line 3511  begin
3511       exit;       exit;
3512    end;    end;
3513    
3514    if Smpakker1.Checked then    if menuSmaaPakker.Checked then
3515       if ScannetOkLyd  <> '' then       if ScannetOkLyd  <> '' then
3516       begin       begin
3517         PlaySound(PWideChar(ScannetOkLyd));         PlaySound(PWideChar(ScannetOkLyd));
# Line 3545  begin Line 3520  begin
3520       begin       begin
3521         MessageBox(Handle, PWideChar('Lyd fil ikke fundet (ScannetOkLyd)'), 'Information', MB_OK);         MessageBox(Handle, PWideChar('Lyd fil ikke fundet (ScannetOkLyd)'), 'Information', MB_OK);
3522       end;       end;
3523    if Storepakker1.Checked then    if menuStorePakker.Checked then
3524       if ScannetOkStorLyd  <> '' then       if ScannetOkStorLyd  <> '' then
3525       begin       begin
3526         PlaySound(PWideChar(ScannetOkStorLyd));         PlaySound(PWideChar(ScannetOkStorLyd));
# Line 4203  var Line 4178  var
4178    I: Integer;    I: Integer;
4179    stregkode, modtagernavn, modtageradresse, kommentar : string;    stregkode, modtagernavn, modtageradresse, kommentar : string;
4180    pakketype, tjekkodestatus : String;    pakketype, tjekkodestatus : String;
4181    pakketypeix, antalLiniefelter, antalFelterFundet, linienr : Integer;    antalLiniefelter, antalFelterFundet, linienr : Integer;
4182    //pakketyper : TStrings;    //pakketyper : TStrings;
4183    pakketyper : TDictionary<String, Integer>;    pakketyper : TDictionary<String, Integer>;
4184    tmpAntal : Integer;    tmpAntal : Integer;
Legend:
Removed from v.3054  
changed lines
  Added in v.3073
  ViewVC Help
Powered by ViewVC 1.1.20