/[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 3057 by torben, Tue Jun 28 12:39:35 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 136  type Line 136  type
136    procedure Sprgefterboghandlernummer1Click(Sender: TObject);    procedure Sprgefterboghandlernummer1Click(Sender: TObject);
137    procedure menuNatxpressReturDAO1Click(Sender: TObject);    procedure menuNatxpressReturDAO1Click(Sender: TObject);
138    procedure menuNatxpressReturfraKunde1Click(Sender: TObject);    procedure menuNatxpressReturfraKunde1Click(Sender: TObject);
139    procedure Storepakker1Click(Sender: TObject);    procedure menuStorePakkerClick(Sender: TObject);
140    procedure Smpakker1Click(Sender: TObject);    procedure menuSmaaPakkerClick(Sender: TObject);
141    procedure Testlyd1Click(Sender: TObject);    procedure Testlyd1Click(Sender: TObject);
142    procedure Testlyd2Click(Sender: TObject);    procedure Testlyd2Click(Sender: TObject);
143    procedure Button1Click(Sender: TObject);    procedure Button1Click(Sender: TObject);
# Line 173  type Line 173  type
173    procedure Timer1Timer(Sender: TObject);    procedure Timer1Timer(Sender: TObject);
174    procedure Scanogstjekkoden1Click(Sender: TObject);    procedure Scanogstjekkoden1Click(Sender: TObject);
175    procedure chkScanTjekkodeClick(Sender: TObject);    procedure chkScanTjekkodeClick(Sender: TObject);
176    procedure Automatisktjekkodestyring1Click(Sender: TObject);    procedure menuAutomatiskTjekkodeStyringClick(Sender: TObject);
177    procedure SendInfoTilServer(Sted, Scanningtype, Infotype, Info : String);    procedure SendInfoTilServer(Sted, Scanningtype, Infotype, Info : String);
178    procedure menuAutomatiskvalg1Click(Sender: TObject);    procedure menuAutomatiskvalg1Click(Sender: TObject);
179    procedure PanelValgAClick(Sender: TObject);    procedure PanelValgAClick(Sender: TObject);
# Line 431  begin Line 431  begin
431        end;        end;
432      end;      end;
433    
434      if Automatisktjekkodestyring1.Checked then      if menuAutomatiskTjekkodeStyring.Checked then
435      begin      begin
436        chkScanTjekkode.Enabled := false;        chkScanTjekkode.Enabled := false;
437        Scanogstjekkoden1.Enabled := false;        Scanogstjekkoden1.Enabled := false;
# Line 489  begin Line 489  begin
489    StregkodeST.Caption := Stregkode;    StregkodeST.Caption := Stregkode;
490  end;  end;
491    
492  procedure TMainForm.Automatisktjekkodestyring1Click(Sender: TObject);  procedure TMainForm.menuAutomatiskTjekkodeStyringClick(Sender: TObject);
493  begin  begin
494    if Automatisktjekkodestyring1.Checked then    if menuAutomatiskTjekkodeStyring.Checked then
495    begin    begin
496       chkScanTjekkode.Enabled := false;       chkScanTjekkode.Enabled := false;
497       Scanogstjekkoden1.Enabled := false;       Scanogstjekkoden1.Enabled := false;
# Line 707  begin Line 707  begin
707    
708      if ScanTjekkodeAutomatik = '1' then      if ScanTjekkodeAutomatik = '1' then
709      begin      begin
710        Automatisktjekkodestyring1.Checked := true;        menuAutomatiskTjekkodeStyring.Checked := true;
711        chkScanTjekkode.Enabled := false;        chkScanTjekkode.Enabled := false;
712        Scanogstjekkoden1.Enabled := false;        Scanogstjekkoden1.Enabled := false;
713      end;      end;
# Line 841  begin Line 841  begin
841    
842      if SpecialVersionSted = 'DBK' then      if SpecialVersionSted = 'DBK' then
843      begin      begin
       //FarveNormal := 'A9F5A9';  // her kan vi evt. overrule ini fil  
844        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;  
845      end;      end;
846    
847      if (SpecialVersionSted = '01')      if (SpecialVersionSted = '01')
# Line 1029  begin Line 1002  begin
1002    
1003      if Pakketype = '1' then      if Pakketype = '1' then
1004      begin      begin
1005        Storepakker1.Checked := true;        menuStorePakker.Checked := true;
1006        radioStorPakke.Checked := true;        radioStorPakke.Checked := true;
1007      end      end
1008      else      else
1009      begin      begin
1010        Smpakker1.Checked := true;        menuSmaaPakker.Checked := true;
1011        radioLillePakke.Checked := true;        radioLillePakke.Checked := true;
1012      end;      end;
1013    
# Line 1097  begin Line 1070  begin
1070        menuNatxpressReturDAO1.Visible := false;        menuNatxpressReturDAO1.Visible := false;
1071        menuNatxpressReturfraKunde1.Visible := false;        menuNatxpressReturfraKunde1.Visible := false;
1072        menuDaoDirekte1.Visible := false;        menuDaoDirekte1.Visible := false;
1073        Storepakker1.Visible := false;        menuStorePakker.Visible := false;
1074        Smpakker1.Visible := false;        menuSmaaPakker.Visible := false;
1075        Testprinter1.Visible := false;        Testprinter1.Visible := false;
1076        menuPakkeshop1.Visible := false;        menuPakkeshop1.Visible := false;
1077        menuPakkeshopRetur1.Visible := false;        menuPakkeshopRetur1.Visible := false;
# Line 1575  begin Line 1548  begin
1548    
1549    
1550    
1551      if (PakkeshopText1.Visible = true) and (PakkeshopText1.Caption = 'Stregkode') and Automatisktjekkodestyring1.Checked then      if (PakkeshopText1.Visible = true) and (PakkeshopText1.Caption = 'Stregkode') and menuAutomatiskTjekkodeStyring.Checked then
1552      begin      begin
1553        chkScanTjekkode.Checked := false;        chkScanTjekkode.Checked := false;
1554        for i := 0 to length(stregkoderMedTjekkodeArray)-1 do        for i := 0 to length(stregkoderMedTjekkodeArray)-1 do
# Line 1701  begin Line 1674  begin
1674            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
1675            begin            begin
1676              MainForm.Color := TUtils.HexToTColor(Farve);              MainForm.Color := TUtils.HexToTColor(Farve);
1677              if Storepakker1.Checked then              if menuStorePakker.Checked then
1678              begin              begin
1679                PlaySound(PWideChar(ScannetOkStorLyd));                PlaySound(PWideChar(ScannetOkStorLyd));
1680              end              end
# Line 1714  begin Line 1687  begin
1687            else if (menuNatxpressReturDAO1.Checked or menuNatxpressReturfraKunde1.Checked) then            else if (menuNatxpressReturDAO1.Checked or menuNatxpressReturfraKunde1.Checked) then
1688            begin            begin
1689              MainForm.Color := TUtils.HexToTColor(Farve);              MainForm.Color := TUtils.HexToTColor(Farve);
1690              if Storepakker1.Checked then              if menuStorePakker.Checked then
1691              begin              begin
1692                PlaySound(PWideChar(ScannetOkStorLyd));                PlaySound(PWideChar(ScannetOkStorLyd));
1693              end              end
# Line 1741  begin Line 1714  begin
1714    
1715              If (menuDaoDirekte1.Checked) then              If (menuDaoDirekte1.Checked) then
1716              begin              begin
1717                if Storepakker1.Checked then                if menuStorePakker.Checked then
1718                begin                begin
1719                  PlaySound(PWideChar(ScannetOkStorLyd));                  PlaySound(PWideChar(ScannetOkStorLyd));
1720                end                end
# Line 1840  begin Line 1813  begin
1813        for i := ListBox2.items.count-1 downto 0 do        for i := ListBox2.items.count-1 downto 0 do
1814          if pos(StregKode,ListBox2.items[i]) <> 0 then          if pos(StregKode,ListBox2.items[i]) <> 0 then
1815          begin          begin
1816              wrkAntalSenere := 0;//initial Value
1817    
1818            // Ajourføring af tæller for manglende pakker (scanninger)            // Ajourføring af tæller for manglende pakker (scanninger)
1819            wrkAntal := StaticTextManglendePakker.Caption;            wrkAntal := StaticTextManglendePakker.Caption;
# Line 2015  begin Line 1989  begin
1989      02 :      02 :
1990            begin;    // BK            begin;    // BK
1991              Testprinter1.Visible := true;              Testprinter1.Visible := true;
1992              Smpakker1.Enabled := true;              menuSmaaPakker.Enabled := true;
1993              Storepakker1.Enabled := true;              menuStorePakker.Enabled := true;
1994              radioStorPakke.Enabled := true;              radioStorPakke.Enabled := true;
1995              radioLillePakke.Enabled := true;              radioLillePakke.Enabled := true;
1996              BtnDownloadKontrolfil.Enabled := false;     // kontrolfil bruges ikke her              BtnDownloadKontrolfil.Enabled := false;     // kontrolfil bruges ikke her
# Line 2053  begin Line 2027  begin
2027            end;            end;
2028      04 :  begin;           // DBK      04 :  begin;           // DBK
2029              Testprinter1.Visible := true;              Testprinter1.Visible := true;
2030              Smpakker1.Enabled := true;              menuSmaaPakker.Enabled := true;
2031              Storepakker1.Enabled := true;              menuStorePakker.Enabled := true;
2032              radioStorPakke.Enabled := true;              radioStorPakke.Enabled := true;
2033              radioLillePakke.Enabled := true;              radioLillePakke.Enabled := true;
2034              BtnDownloadKontrolfil.Enabled := false;    // kontrolfil bruges ikke her              BtnDownloadKontrolfil.Enabled := false;    // kontrolfil bruges ikke her
# Line 2543  end; Line 2517  end;
2517    
2518  procedure TMainForm.radioStorPakkeClick(Sender: TObject);  procedure TMainForm.radioStorPakkeClick(Sender: TObject);
2519  begin  begin
2520      Storepakker1.Checked := true;      menuStorePakker.Checked := true;
2521      radioStorPakke.Checked := true;      radioStorPakke.Checked := true;
2522  end;  end;
2523    
2524  procedure TMainForm.radioLillePakkeClick(Sender: TObject);  procedure TMainForm.radioLillePakkeClick(Sender: TObject);
2525  begin  begin
2526      Smpakker1.Checked := true;      menuSmaaPakker.Checked := true;
2527      radioLillePakke.Checked := true;      radioLillePakke.Checked := true;
2528  end;  end;
2529    
# Line 3204  end; Line 3178  end;
3178    
3179  procedure TMainForm.InitNatxpresslevering();  procedure TMainForm.InitNatxpresslevering();
3180  begin  begin
3181        AutomatiskTjekkodeStyring1.Enabled := true;        menuAutomatiskTjekkodeStyring.Enabled := true;
3182        btnNulstil.Visible := false;        btnNulstil.Visible := false;
3183        menuNatXpress1.Checked := true;        menuNatXpress1.Checked := true;
3184        InitForm(FarveNormal,TitelNormal,UrlNormal);        InitForm(FarveNormal,TitelNormal,UrlNormal);
# Line 3218  begin Line 3192  begin
3192        Sprgefterboghandlernummer1.Checked := false;        Sprgefterboghandlernummer1.Checked := false;
3193        chkSporgEfterKunde.Checked := false;        chkSporgEfterKunde.Checked := false;
3194        Sprgefterboghandlernummer1.Enabled := true;        Sprgefterboghandlernummer1.Enabled := true;
3195        Smpakker1.Enabled := false;        menuSmaaPakker.Enabled := false;
3196        Storepakker1.Enabled := false;        menuStorePakker.Enabled := false;
3197        radioStorPakke.Enabled := false;        radioStorPakke.Enabled := false;
3198        radioLillePakke.Enabled := false;        radioLillePakke.Enabled := false;
3199        ListBox1.Visible := true;        ListBox1.Visible := true;
# Line 3240  end; Line 3214  end;
3214    
3215  procedure TMainForm.InitReturFraDao();  procedure TMainForm.InitReturFraDao();
3216  begin  begin
3217        AutomatiskTjekkodeStyring1.Enabled := false;        menuAutomatiskTjekkodeStyring.Enabled := false;
3218        menuNatxpressReturDAO1.Checked := true;        menuNatxpressReturDAO1.Checked := true;
3219        btnNulstil.Visible := false;        btnNulstil.Visible := false;
3220        InitForm(FarveReturDAO,TitelReturDAO,UrlReturDAO);        InitForm(FarveReturDAO,TitelReturDAO,UrlReturDAO);
# Line 3254  begin Line 3228  begin
3228        Sprgefterboghandlernummer1.Checked := false;        Sprgefterboghandlernummer1.Checked := false;
3229        chkSporgEfterKunde.Checked := false;        chkSporgEfterKunde.Checked := false;
3230        Sprgefterboghandlernummer1.Enabled := false;        Sprgefterboghandlernummer1.Enabled := false;
3231        Smpakker1.Enabled := true;        menuSmaaPakker.Enabled := true;
3232        Storepakker1.Enabled := true;        menuStorePakker.Enabled := true;
3233        radioStorPakke.Enabled := true;        radioStorPakke.Enabled := true;
3234        radioLillePakke.Enabled := true;        radioLillePakke.Enabled := true;
3235        ListBox1.Visible := true;        ListBox1.Visible := true;
# Line 3271  end; Line 3245  end;
3245    
3246  procedure TMainForm.InitReturFraKunde();  procedure TMainForm.InitReturFraKunde();
3247  begin  begin
3248        AutomatiskTjekkodeStyring1.Enabled := false;        menuAutomatiskTjekkodeStyring.Enabled := false;
3249        menuNatxpressReturfraKunde1.Checked := true;        menuNatxpressReturfraKunde1.Checked := true;
3250        btnNulstil.Visible := false;        btnNulstil.Visible := false;
3251        InitForm(FarveReturBoghandler,TitelReturBoghandler,UrlReturBoghandler);        InitForm(FarveReturBoghandler,TitelReturBoghandler,UrlReturBoghandler);
# Line 3284  begin Line 3258  begin
3258        Sprgefterboghandlernummer1.Checked := false;        Sprgefterboghandlernummer1.Checked := false;
3259        chkSporgEfterKunde.Checked := false;        chkSporgEfterKunde.Checked := false;
3260        Sprgefterboghandlernummer1.Enabled := false;        Sprgefterboghandlernummer1.Enabled := false;
3261        Smpakker1.Enabled := true;        menuSmaaPakker.Enabled := true;
3262        Storepakker1.Enabled := true;        menuStorePakker.Enabled := true;
3263        radioStorPakke.Enabled := true;        radioStorPakke.Enabled := true;
3264        radioLillePakke.Enabled := true;        radioLillePakke.Enabled := true;
3265        ListBox1.Visible := true;        ListBox1.Visible := true;
# Line 3301  end; Line 3275  end;
3275    
3276  procedure TMainForm.InitDirektelevering();  procedure TMainForm.InitDirektelevering();
3277  begin  begin
3278        AutomatiskTjekkodeStyring1.Enabled := false;        menuAutomatiskTjekkodeStyring.Enabled := false;
3279        menuDaoDirekte1.Checked := true;        menuDaoDirekte1.Checked := true;
3280        btnNulstil.Visible := false;        btnNulstil.Visible := false;
3281        InitForm(FarveBudlevering,TitelBudlevering,UrlBudlevering);        InitForm(FarveBudlevering,TitelBudlevering,UrlBudlevering);
# Line 3315  begin Line 3289  begin
3289        Sprgefterboghandlernummer1.Checked := false;        Sprgefterboghandlernummer1.Checked := false;
3290        chkSporgEfterKunde.Checked := false;        chkSporgEfterKunde.Checked := false;
3291        Sprgefterboghandlernummer1.Enabled := false;        Sprgefterboghandlernummer1.Enabled := false;
3292        Smpakker1.Enabled := true;        menuSmaaPakker.Enabled := true;
3293        Storepakker1.Enabled := true;        menuStorePakker.Enabled := true;
3294        radioStorPakke.Enabled := true;        radioStorPakke.Enabled := true;
3295        radioLillePakke.Enabled := true;        radioLillePakke.Enabled := true;
3296        ListBox1.Visible := true;        ListBox1.Visible := true;
# Line 3341  end; Line 3315  end;
3315    
3316  procedure TMainForm.InitPakkeshoplevering();  procedure TMainForm.InitPakkeshoplevering();
3317  begin  begin
3318        AutomatiskTjekkodeStyring1.Enabled := true;        menuAutomatiskTjekkodeStyring.Enabled := true;
3319        menuPakkeshop1.Checked := true;        menuPakkeshop1.Checked := true;
3320        btnNulstil.Visible := false;        btnNulstil.Visible := false;
3321        InitForm(FarvePakkeshoplevering,TitelPakkeshoplevering,UrlPakkeshoplevering);        InitForm(FarvePakkeshoplevering,TitelPakkeshoplevering,UrlPakkeshoplevering);
# Line 3355  begin Line 3329  begin
3329        Sprgefterboghandlernummer1.Checked := false;        Sprgefterboghandlernummer1.Checked := false;
3330        chkSporgEfterKunde.Checked := false;        chkSporgEfterKunde.Checked := false;
3331        Sprgefterboghandlernummer1.Enabled := false;        Sprgefterboghandlernummer1.Enabled := false;
3332        Smpakker1.Enabled := false;        menuSmaaPakker.Enabled := false;
3333        Storepakker1.Enabled := false;        menuStorePakker.Enabled := false;
3334        radioStorPakke.Enabled := false;        radioStorPakke.Enabled := false;
3335        radioLillePakke.Enabled := false;        radioLillePakke.Enabled := false;
3336        ListBox1.Visible := true;        ListBox1.Visible := true;
# Line 3381  end; Line 3355  end;
3355    
3356  procedure TMainForm.InitReturFraPakkeshop();  procedure TMainForm.InitReturFraPakkeshop();
3357  begin  begin
3358        AutomatiskTjekkodeStyring1.Enabled := false;        menuAutomatiskTjekkodeStyring.Enabled := false;
3359        menuPakkeshopRetur1.Checked := true;        menuPakkeshopRetur1.Checked := true;
3360        btnNulstil.Visible := false;        btnNulstil.Visible := false;
3361        InitForm(FarveReturPakkeshop,TitelReturPakkeshop,UrlReturPakkeshop);        InitForm(FarveReturPakkeshop,TitelReturPakkeshop,UrlReturPakkeshop);
# Line 3395  begin Line 3369  begin
3369        Sprgefterboghandlernummer1.Checked := false;        Sprgefterboghandlernummer1.Checked := false;
3370        chkSporgEfterKunde.Checked := false;        chkSporgEfterKunde.Checked := false;
3371        Sprgefterboghandlernummer1.Enabled := false;        Sprgefterboghandlernummer1.Enabled := false;
3372        Smpakker1.Enabled := false;        menuSmaaPakker.Enabled := false;
3373        Storepakker1.Enabled := false;        menuStorePakker.Enabled := false;
3374        radioStorPakke.Enabled := false;        radioStorPakke.Enabled := false;
3375        radioLillePakke.Enabled := false;        radioLillePakke.Enabled := false;
3376        ListBox1.Visible := true;        ListBox1.Visible := true;
# Line 3429  end; Line 3403  end;
3403  procedure TMainForm.InitIndleveringskode();  procedure TMainForm.InitIndleveringskode();
3404  begin  begin
3405        menuIndlevering.Checked := true;        menuIndlevering.Checked := true;
3406        AutomatiskTjekkodeStyring1.Enabled := false;        menuAutomatiskTjekkodeStyring.Enabled := false;
3407    
3408        btnNulstil.Visible := false;        btnNulstil.Visible := false;
3409        InitForm(FarveIndlevering, TitelIndlevering, UrlReturPakkeshop);        InitForm(FarveIndlevering, TitelIndlevering, UrlReturPakkeshop);
# Line 3446  begin Line 3420  begin
3420    
3421    
3422    
3423        Smpakker1.Enabled := false;        menuSmaaPakker.Enabled := false;
3424        Storepakker1.Enabled := false;        menuStorePakker.Enabled := false;
3425        radioStorPakke.Enabled := false;        radioStorPakke.Enabled := false;
3426        radioLillePakke.Enabled := false;        radioLillePakke.Enabled := false;
3427        ListBox1.Visible := true;        ListBox1.Visible := true;
# Line 3472  begin Line 3446  begin
3446  end;  end;
3447    
3448    
3449  procedure TMainForm.Storepakker1Click(Sender: TObject);  procedure TMainForm.menuStorePakkerClick(Sender: TObject);
3450  begin  begin
3451    InitStorPakke();    InitStorPakke();
3452  end;  end;
3453    
3454  procedure TMainForm.Smpakker1Click(Sender: TObject);  procedure TMainForm.menuSmaaPakkerClick(Sender: TObject);
3455  begin  begin
3456    InitLillePakke();    InitLillePakke();
3457  end;  end;
# Line 3485  end; Line 3459  end;
3459  procedure TMainForm.InitLillePakke();  procedure TMainForm.InitLillePakke();
3460  begin  begin
3461    radioLillePakke.Checked := true;    radioLillePakke.Checked := true;
3462    Smpakker1.Checked := true;    menuSmaaPakker.Checked := true;
3463  //  Stregkode := '';  //  Stregkode := '';
3464  end;  end;
3465    
3466  procedure TMainForm.InitStorPakke();  procedure TMainForm.InitStorPakke();
3467  begin  begin
3468    radioStorPakke.Checked := true;    radioStorPakke.Checked := true;
3469    Storepakker1.Checked := true;    menuStorePakker.Checked := true;
3470  // 20150310: start  // 20150310: start
3471  //  Stregkode := '';  //  Stregkode := '';
3472  // 20150310: slut  // 20150310: slut
# Line 3536  begin Line 3510  begin
3510       exit;       exit;
3511    end;    end;
3512    
3513    if Smpakker1.Checked then    if menuSmaaPakker.Checked then
3514       if ScannetOkLyd  <> '' then       if ScannetOkLyd  <> '' then
3515       begin       begin
3516         PlaySound(PWideChar(ScannetOkLyd));         PlaySound(PWideChar(ScannetOkLyd));
# Line 3545  begin Line 3519  begin
3519       begin       begin
3520         MessageBox(Handle, PWideChar('Lyd fil ikke fundet (ScannetOkLyd)'), 'Information', MB_OK);         MessageBox(Handle, PWideChar('Lyd fil ikke fundet (ScannetOkLyd)'), 'Information', MB_OK);
3521       end;       end;
3522    if Storepakker1.Checked then    if menuStorePakker.Checked then
3523       if ScannetOkStorLyd  <> '' then       if ScannetOkStorLyd  <> '' then
3524       begin       begin
3525         PlaySound(PWideChar(ScannetOkStorLyd));         PlaySound(PWideChar(ScannetOkStorLyd));
# Line 4203  var Line 4177  var
4177    I: Integer;    I: Integer;
4178    stregkode, modtagernavn, modtageradresse, kommentar : string;    stregkode, modtagernavn, modtageradresse, kommentar : string;
4179    pakketype, tjekkodestatus : String;    pakketype, tjekkodestatus : String;
4180    pakketypeix, antalLiniefelter, antalFelterFundet, linienr : Integer;    antalLiniefelter, antalFelterFundet, linienr : Integer;
4181    //pakketyper : TStrings;    //pakketyper : TStrings;
4182    pakketyper : TDictionary<String, Integer>;    pakketyper : TDictionary<String, Integer>;
4183    tmpAntal : Integer;    tmpAntal : Integer;
Legend:
Removed from v.3054  
changed lines
  Added in v.3057
  ViewVC Help
Powered by ViewVC 1.1.20