/[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 3056 by torben, Mon Jun 27 12:21:43 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 1029  begin Line 1029  begin
1029    
1030      if Pakketype = '1' then      if Pakketype = '1' then
1031      begin      begin
1032        Storepakker1.Checked := true;        menuStorePakker.Checked := true;
1033        radioStorPakke.Checked := true;        radioStorPakke.Checked := true;
1034      end      end
1035      else      else
1036      begin      begin
1037        Smpakker1.Checked := true;        menuSmaaPakker.Checked := true;
1038        radioLillePakke.Checked := true;        radioLillePakke.Checked := true;
1039      end;      end;
1040    
# Line 1097  begin Line 1097  begin
1097        menuNatxpressReturDAO1.Visible := false;        menuNatxpressReturDAO1.Visible := false;
1098        menuNatxpressReturfraKunde1.Visible := false;        menuNatxpressReturfraKunde1.Visible := false;
1099        menuDaoDirekte1.Visible := false;        menuDaoDirekte1.Visible := false;
1100        Storepakker1.Visible := false;        menuStorePakker.Visible := false;
1101        Smpakker1.Visible := false;        menuSmaaPakker.Visible := false;
1102        Testprinter1.Visible := false;        Testprinter1.Visible := false;
1103        menuPakkeshop1.Visible := false;        menuPakkeshop1.Visible := false;
1104        menuPakkeshopRetur1.Visible := false;        menuPakkeshopRetur1.Visible := false;
# Line 1575  begin Line 1575  begin
1575    
1576    
1577    
1578      if (PakkeshopText1.Visible = true) and (PakkeshopText1.Caption = 'Stregkode') and Automatisktjekkodestyring1.Checked then      if (PakkeshopText1.Visible = true) and (PakkeshopText1.Caption = 'Stregkode') and menuAutomatiskTjekkodeStyring.Checked then
1579      begin      begin
1580        chkScanTjekkode.Checked := false;        chkScanTjekkode.Checked := false;
1581        for i := 0 to length(stregkoderMedTjekkodeArray)-1 do        for i := 0 to length(stregkoderMedTjekkodeArray)-1 do
# Line 1701  begin Line 1701  begin
1701            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
1702            begin            begin
1703              MainForm.Color := TUtils.HexToTColor(Farve);              MainForm.Color := TUtils.HexToTColor(Farve);
1704              if Storepakker1.Checked then              if menuStorePakker.Checked then
1705              begin              begin
1706                PlaySound(PWideChar(ScannetOkStorLyd));                PlaySound(PWideChar(ScannetOkStorLyd));
1707              end              end
# Line 1714  begin Line 1714  begin
1714            else if (menuNatxpressReturDAO1.Checked or menuNatxpressReturfraKunde1.Checked) then            else if (menuNatxpressReturDAO1.Checked or menuNatxpressReturfraKunde1.Checked) then
1715            begin            begin
1716              MainForm.Color := TUtils.HexToTColor(Farve);              MainForm.Color := TUtils.HexToTColor(Farve);
1717              if Storepakker1.Checked then              if menuStorePakker.Checked then
1718              begin              begin
1719                PlaySound(PWideChar(ScannetOkStorLyd));                PlaySound(PWideChar(ScannetOkStorLyd));
1720              end              end
# Line 1741  begin Line 1741  begin
1741    
1742              If (menuDaoDirekte1.Checked) then              If (menuDaoDirekte1.Checked) then
1743              begin              begin
1744                if Storepakker1.Checked then                if menuStorePakker.Checked then
1745                begin                begin
1746                  PlaySound(PWideChar(ScannetOkStorLyd));                  PlaySound(PWideChar(ScannetOkStorLyd));
1747                end                end
# Line 1840  begin Line 1840  begin
1840        for i := ListBox2.items.count-1 downto 0 do        for i := ListBox2.items.count-1 downto 0 do
1841          if pos(StregKode,ListBox2.items[i]) <> 0 then          if pos(StregKode,ListBox2.items[i]) <> 0 then
1842          begin          begin
1843              wrkAntalSenere := 0;//initial Value
1844    
1845            // Ajourføring af tæller for manglende pakker (scanninger)            // Ajourføring af tæller for manglende pakker (scanninger)
1846            wrkAntal := StaticTextManglendePakker.Caption;            wrkAntal := StaticTextManglendePakker.Caption;
# Line 2015  begin Line 2016  begin
2016      02 :      02 :
2017            begin;    // BK            begin;    // BK
2018              Testprinter1.Visible := true;              Testprinter1.Visible := true;
2019              Smpakker1.Enabled := true;              menuSmaaPakker.Enabled := true;
2020              Storepakker1.Enabled := true;              menuStorePakker.Enabled := true;
2021              radioStorPakke.Enabled := true;              radioStorPakke.Enabled := true;
2022              radioLillePakke.Enabled := true;              radioLillePakke.Enabled := true;
2023              BtnDownloadKontrolfil.Enabled := false;     // kontrolfil bruges ikke her              BtnDownloadKontrolfil.Enabled := false;     // kontrolfil bruges ikke her
# Line 2053  begin Line 2054  begin
2054            end;            end;
2055      04 :  begin;           // DBK      04 :  begin;           // DBK
2056              Testprinter1.Visible := true;              Testprinter1.Visible := true;
2057              Smpakker1.Enabled := true;              menuSmaaPakker.Enabled := true;
2058              Storepakker1.Enabled := true;              menuStorePakker.Enabled := true;
2059              radioStorPakke.Enabled := true;              radioStorPakke.Enabled := true;
2060              radioLillePakke.Enabled := true;              radioLillePakke.Enabled := true;
2061              BtnDownloadKontrolfil.Enabled := false;    // kontrolfil bruges ikke her              BtnDownloadKontrolfil.Enabled := false;    // kontrolfil bruges ikke her
# Line 2543  end; Line 2544  end;
2544    
2545  procedure TMainForm.radioStorPakkeClick(Sender: TObject);  procedure TMainForm.radioStorPakkeClick(Sender: TObject);
2546  begin  begin
2547      Storepakker1.Checked := true;      menuStorePakker.Checked := true;
2548      radioStorPakke.Checked := true;      radioStorPakke.Checked := true;
2549  end;  end;
2550    
2551  procedure TMainForm.radioLillePakkeClick(Sender: TObject);  procedure TMainForm.radioLillePakkeClick(Sender: TObject);
2552  begin  begin
2553      Smpakker1.Checked := true;      menuSmaaPakker.Checked := true;
2554      radioLillePakke.Checked := true;      radioLillePakke.Checked := true;
2555  end;  end;
2556    
# Line 3204  end; Line 3205  end;
3205    
3206  procedure TMainForm.InitNatxpresslevering();  procedure TMainForm.InitNatxpresslevering();
3207  begin  begin
3208        AutomatiskTjekkodeStyring1.Enabled := true;        menuAutomatiskTjekkodeStyring.Enabled := true;
3209        btnNulstil.Visible := false;        btnNulstil.Visible := false;
3210        menuNatXpress1.Checked := true;        menuNatXpress1.Checked := true;
3211        InitForm(FarveNormal,TitelNormal,UrlNormal);        InitForm(FarveNormal,TitelNormal,UrlNormal);
# Line 3218  begin Line 3219  begin
3219        Sprgefterboghandlernummer1.Checked := false;        Sprgefterboghandlernummer1.Checked := false;
3220        chkSporgEfterKunde.Checked := false;        chkSporgEfterKunde.Checked := false;
3221        Sprgefterboghandlernummer1.Enabled := true;        Sprgefterboghandlernummer1.Enabled := true;
3222        Smpakker1.Enabled := false;        menuSmaaPakker.Enabled := false;
3223        Storepakker1.Enabled := false;        menuStorePakker.Enabled := false;
3224        radioStorPakke.Enabled := false;        radioStorPakke.Enabled := false;
3225        radioLillePakke.Enabled := false;        radioLillePakke.Enabled := false;
3226        ListBox1.Visible := true;        ListBox1.Visible := true;
# Line 3240  end; Line 3241  end;
3241    
3242  procedure TMainForm.InitReturFraDao();  procedure TMainForm.InitReturFraDao();
3243  begin  begin
3244        AutomatiskTjekkodeStyring1.Enabled := false;        menuAutomatiskTjekkodeStyring.Enabled := false;
3245        menuNatxpressReturDAO1.Checked := true;        menuNatxpressReturDAO1.Checked := true;
3246        btnNulstil.Visible := false;        btnNulstil.Visible := false;
3247        InitForm(FarveReturDAO,TitelReturDAO,UrlReturDAO);        InitForm(FarveReturDAO,TitelReturDAO,UrlReturDAO);
# Line 3254  begin Line 3255  begin
3255        Sprgefterboghandlernummer1.Checked := false;        Sprgefterboghandlernummer1.Checked := false;
3256        chkSporgEfterKunde.Checked := false;        chkSporgEfterKunde.Checked := false;
3257        Sprgefterboghandlernummer1.Enabled := false;        Sprgefterboghandlernummer1.Enabled := false;
3258        Smpakker1.Enabled := true;        menuSmaaPakker.Enabled := true;
3259        Storepakker1.Enabled := true;        menuStorePakker.Enabled := true;
3260        radioStorPakke.Enabled := true;        radioStorPakke.Enabled := true;
3261        radioLillePakke.Enabled := true;        radioLillePakke.Enabled := true;
3262        ListBox1.Visible := true;        ListBox1.Visible := true;
# Line 3271  end; Line 3272  end;
3272    
3273  procedure TMainForm.InitReturFraKunde();  procedure TMainForm.InitReturFraKunde();
3274  begin  begin
3275        AutomatiskTjekkodeStyring1.Enabled := false;        menuAutomatiskTjekkodeStyring.Enabled := false;
3276        menuNatxpressReturfraKunde1.Checked := true;        menuNatxpressReturfraKunde1.Checked := true;
3277        btnNulstil.Visible := false;        btnNulstil.Visible := false;
3278        InitForm(FarveReturBoghandler,TitelReturBoghandler,UrlReturBoghandler);        InitForm(FarveReturBoghandler,TitelReturBoghandler,UrlReturBoghandler);
# Line 3284  begin Line 3285  begin
3285        Sprgefterboghandlernummer1.Checked := false;        Sprgefterboghandlernummer1.Checked := false;
3286        chkSporgEfterKunde.Checked := false;        chkSporgEfterKunde.Checked := false;
3287        Sprgefterboghandlernummer1.Enabled := false;        Sprgefterboghandlernummer1.Enabled := false;
3288        Smpakker1.Enabled := true;        menuSmaaPakker.Enabled := true;
3289        Storepakker1.Enabled := true;        menuStorePakker.Enabled := true;
3290        radioStorPakke.Enabled := true;        radioStorPakke.Enabled := true;
3291        radioLillePakke.Enabled := true;        radioLillePakke.Enabled := true;
3292        ListBox1.Visible := true;        ListBox1.Visible := true;
# Line 3301  end; Line 3302  end;
3302    
3303  procedure TMainForm.InitDirektelevering();  procedure TMainForm.InitDirektelevering();
3304  begin  begin
3305        AutomatiskTjekkodeStyring1.Enabled := false;        menuAutomatiskTjekkodeStyring.Enabled := false;
3306        menuDaoDirekte1.Checked := true;        menuDaoDirekte1.Checked := true;
3307        btnNulstil.Visible := false;        btnNulstil.Visible := false;
3308        InitForm(FarveBudlevering,TitelBudlevering,UrlBudlevering);        InitForm(FarveBudlevering,TitelBudlevering,UrlBudlevering);
# Line 3315  begin Line 3316  begin
3316        Sprgefterboghandlernummer1.Checked := false;        Sprgefterboghandlernummer1.Checked := false;
3317        chkSporgEfterKunde.Checked := false;        chkSporgEfterKunde.Checked := false;
3318        Sprgefterboghandlernummer1.Enabled := false;        Sprgefterboghandlernummer1.Enabled := false;
3319        Smpakker1.Enabled := true;        menuSmaaPakker.Enabled := true;
3320        Storepakker1.Enabled := true;        menuStorePakker.Enabled := true;
3321        radioStorPakke.Enabled := true;        radioStorPakke.Enabled := true;
3322        radioLillePakke.Enabled := true;        radioLillePakke.Enabled := true;
3323        ListBox1.Visible := true;        ListBox1.Visible := true;
# Line 3341  end; Line 3342  end;
3342    
3343  procedure TMainForm.InitPakkeshoplevering();  procedure TMainForm.InitPakkeshoplevering();
3344  begin  begin
3345        AutomatiskTjekkodeStyring1.Enabled := true;        menuAutomatiskTjekkodeStyring.Enabled := true;
3346        menuPakkeshop1.Checked := true;        menuPakkeshop1.Checked := true;
3347        btnNulstil.Visible := false;        btnNulstil.Visible := false;
3348        InitForm(FarvePakkeshoplevering,TitelPakkeshoplevering,UrlPakkeshoplevering);        InitForm(FarvePakkeshoplevering,TitelPakkeshoplevering,UrlPakkeshoplevering);
# Line 3355  begin Line 3356  begin
3356        Sprgefterboghandlernummer1.Checked := false;        Sprgefterboghandlernummer1.Checked := false;
3357        chkSporgEfterKunde.Checked := false;        chkSporgEfterKunde.Checked := false;
3358        Sprgefterboghandlernummer1.Enabled := false;        Sprgefterboghandlernummer1.Enabled := false;
3359        Smpakker1.Enabled := false;        menuSmaaPakker.Enabled := false;
3360        Storepakker1.Enabled := false;        menuStorePakker.Enabled := false;
3361        radioStorPakke.Enabled := false;        radioStorPakke.Enabled := false;
3362        radioLillePakke.Enabled := false;        radioLillePakke.Enabled := false;
3363        ListBox1.Visible := true;        ListBox1.Visible := true;
# Line 3381  end; Line 3382  end;
3382    
3383  procedure TMainForm.InitReturFraPakkeshop();  procedure TMainForm.InitReturFraPakkeshop();
3384  begin  begin
3385        AutomatiskTjekkodeStyring1.Enabled := false;        menuAutomatiskTjekkodeStyring.Enabled := false;
3386        menuPakkeshopRetur1.Checked := true;        menuPakkeshopRetur1.Checked := true;
3387        btnNulstil.Visible := false;        btnNulstil.Visible := false;
3388        InitForm(FarveReturPakkeshop,TitelReturPakkeshop,UrlReturPakkeshop);        InitForm(FarveReturPakkeshop,TitelReturPakkeshop,UrlReturPakkeshop);
# Line 3395  begin Line 3396  begin
3396        Sprgefterboghandlernummer1.Checked := false;        Sprgefterboghandlernummer1.Checked := false;
3397        chkSporgEfterKunde.Checked := false;        chkSporgEfterKunde.Checked := false;
3398        Sprgefterboghandlernummer1.Enabled := false;        Sprgefterboghandlernummer1.Enabled := false;
3399        Smpakker1.Enabled := false;        menuSmaaPakker.Enabled := false;
3400        Storepakker1.Enabled := false;        menuStorePakker.Enabled := false;
3401        radioStorPakke.Enabled := false;        radioStorPakke.Enabled := false;
3402        radioLillePakke.Enabled := false;        radioLillePakke.Enabled := false;
3403        ListBox1.Visible := true;        ListBox1.Visible := true;
# Line 3429  end; Line 3430  end;
3430  procedure TMainForm.InitIndleveringskode();  procedure TMainForm.InitIndleveringskode();
3431  begin  begin
3432        menuIndlevering.Checked := true;        menuIndlevering.Checked := true;
3433        AutomatiskTjekkodeStyring1.Enabled := false;        menuAutomatiskTjekkodeStyring.Enabled := false;
3434    
3435        btnNulstil.Visible := false;        btnNulstil.Visible := false;
3436        InitForm(FarveIndlevering, TitelIndlevering, UrlReturPakkeshop);        InitForm(FarveIndlevering, TitelIndlevering, UrlReturPakkeshop);
# Line 3446  begin Line 3447  begin
3447    
3448    
3449    
3450        Smpakker1.Enabled := false;        menuSmaaPakker.Enabled := false;
3451        Storepakker1.Enabled := false;        menuStorePakker.Enabled := false;
3452        radioStorPakke.Enabled := false;        radioStorPakke.Enabled := false;
3453        radioLillePakke.Enabled := false;        radioLillePakke.Enabled := false;
3454        ListBox1.Visible := true;        ListBox1.Visible := true;
# Line 3472  begin Line 3473  begin
3473  end;  end;
3474    
3475    
3476  procedure TMainForm.Storepakker1Click(Sender: TObject);  procedure TMainForm.menuStorePakkerClick(Sender: TObject);
3477  begin  begin
3478    InitStorPakke();    InitStorPakke();
3479  end;  end;
3480    
3481  procedure TMainForm.Smpakker1Click(Sender: TObject);  procedure TMainForm.menuSmaaPakkerClick(Sender: TObject);
3482  begin  begin
3483    InitLillePakke();    InitLillePakke();
3484  end;  end;
# Line 3485  end; Line 3486  end;
3486  procedure TMainForm.InitLillePakke();  procedure TMainForm.InitLillePakke();
3487  begin  begin
3488    radioLillePakke.Checked := true;    radioLillePakke.Checked := true;
3489    Smpakker1.Checked := true;    menuSmaaPakker.Checked := true;
3490  //  Stregkode := '';  //  Stregkode := '';
3491  end;  end;
3492    
3493  procedure TMainForm.InitStorPakke();  procedure TMainForm.InitStorPakke();
3494  begin  begin
3495    radioStorPakke.Checked := true;    radioStorPakke.Checked := true;
3496    Storepakker1.Checked := true;    menuStorePakker.Checked := true;
3497  // 20150310: start  // 20150310: start
3498  //  Stregkode := '';  //  Stregkode := '';
3499  // 20150310: slut  // 20150310: slut
# Line 3536  begin Line 3537  begin
3537       exit;       exit;
3538    end;    end;
3539    
3540    if Smpakker1.Checked then    if menuSmaaPakker.Checked then
3541       if ScannetOkLyd  <> '' then       if ScannetOkLyd  <> '' then
3542       begin       begin
3543         PlaySound(PWideChar(ScannetOkLyd));         PlaySound(PWideChar(ScannetOkLyd));
# Line 3545  begin Line 3546  begin
3546       begin       begin
3547         MessageBox(Handle, PWideChar('Lyd fil ikke fundet (ScannetOkLyd)'), 'Information', MB_OK);         MessageBox(Handle, PWideChar('Lyd fil ikke fundet (ScannetOkLyd)'), 'Information', MB_OK);
3548       end;       end;
3549    if Storepakker1.Checked then    if menuStorePakker.Checked then
3550       if ScannetOkStorLyd  <> '' then       if ScannetOkStorLyd  <> '' then
3551       begin       begin
3552         PlaySound(PWideChar(ScannetOkStorLyd));         PlaySound(PWideChar(ScannetOkStorLyd));
# Line 4203  var Line 4204  var
4204    I: Integer;    I: Integer;
4205    stregkode, modtagernavn, modtageradresse, kommentar : string;    stregkode, modtagernavn, modtageradresse, kommentar : string;
4206    pakketype, tjekkodestatus : String;    pakketype, tjekkodestatus : String;
4207    pakketypeix, antalLiniefelter, antalFelterFundet, linienr : Integer;    antalLiniefelter, antalFelterFundet, linienr : Integer;
4208    //pakketyper : TStrings;    //pakketyper : TStrings;
4209    pakketyper : TDictionary<String, Integer>;    pakketyper : TDictionary<String, Integer>;
4210    tmpAntal : Integer;    tmpAntal : Integer;
Legend:
Removed from v.3054  
changed lines
  Added in v.3056
  ViewVC Help
Powered by ViewVC 1.1.20