/[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 3055 by torben, Mon Jun 27 12:18:07 2016 UTC revision 3057 by torben, Tue Jun 28 12:39:35 2016 UTC
# 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 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 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.3055  
changed lines
  Added in v.3057
  ViewVC Help
Powered by ViewVC 1.1.20