/[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 2653 by torben, Sun Aug 23 10:44:23 2015 UTC revision 2654 by torben, Sun Aug 23 11:00:22 2015 UTC
# Line 66  type Line 66  type
66      Manual1: TMenuItem;      Manual1: TMenuItem;
67      PrinterstatusStaticText1: TStaticText;      PrinterstatusStaticText1: TStaticText;
68      Timer1: TTimer;      Timer1: TTimer;
69      CheckBox3: TCheckBox;      chkScanTjekkode: TCheckBox;
70      Scanogstjekkoden1: TMenuItem;      Scanogstjekkoden1: TMenuItem;
71      Automatisktjekkodestyring1: TMenuItem;      Automatisktjekkodestyring1: TMenuItem;
72      Automatiskvalg1: TMenuItem;      Automatiskvalg1: TMenuItem;
# Line 161  type Line 161  type
161    procedure CheckPrintQue(tjektype : string);    procedure CheckPrintQue(tjektype : string);
162    procedure Timer1Timer(Sender: TObject);    procedure Timer1Timer(Sender: TObject);
163    procedure Scanogstjekkoden1Click(Sender: TObject);    procedure Scanogstjekkoden1Click(Sender: TObject);
164    procedure CheckBox3Click(Sender: TObject);    procedure chkScanTjekkodeClick(Sender: TObject);
165    procedure Automatisktjekkodestyring1Click(Sender: TObject);    procedure Automatisktjekkodestyring1Click(Sender: TObject);
166    procedure SendInfoTilServer(Sted, Scanningtype, Infotype, Info : String);    procedure SendInfoTilServer(Sted, Scanningtype, Infotype, Info : String);
167    procedure Automatiskvalg1Click(Sender: TObject);    procedure Automatiskvalg1Click(Sender: TObject);
# Line 409  begin Line 409  begin
409      else      else
410        PakkeshopText1.Visible := false;        PakkeshopText1.Visible := false;
411    
412      CheckBox3.Checked := false;      chkScanTjekkode.Checked := false;
413      CheckBox3.Enabled := false;      chkScanTjekkode.Enabled := false;
414      Scanogstjekkoden1.Enabled := false;      Scanogstjekkoden1.Enabled := false;
415    
416      if (Scanningtype = '1') or (Scanningtype = '5') then      if (Scanningtype = '1') or (Scanningtype = '5') then
417      begin      begin
418        if (ScanTjekkode = '1') then        if (ScanTjekkode = '1') then
419        begin        begin
420          CheckBox3.Checked := true;          chkScanTjekkode.Checked := true;
421          CheckBox3.Enabled := true;          chkScanTjekkode.Enabled := true;
422          Scanogstjekkoden1.Enabled := true;          Scanogstjekkoden1.Enabled := true;
423        end        end
424        else        else
425        begin        begin
426          CheckBox3.Checked := false;          chkScanTjekkode.Checked := false;
427          CheckBox3.Enabled := true;         // False vil forhindre indtastning af tjekkode i nat x-press scanning          chkScanTjekkode.Enabled := true;         // False vil forhindre indtastning af tjekkode i nat x-press scanning
428          Scanogstjekkoden1.Enabled := true; // False vil forhindre indtastning af tjekkode i nat x-press scanning          Scanogstjekkoden1.Enabled := true; // False vil forhindre indtastning af tjekkode i nat x-press scanning
429        end;        end;
430      end;      end;
431    
432      if Automatisktjekkodestyring1.Checked then      if Automatisktjekkodestyring1.Checked then
433      begin      begin
434        CheckBox3.Enabled := false;        chkScanTjekkode.Enabled := false;
435        Scanogstjekkoden1.Enabled := false;        Scanogstjekkoden1.Enabled := false;
436      end;      end;
437    
# Line 490  procedure TMainForm.Automatisktjekkodest Line 490  procedure TMainForm.Automatisktjekkodest
490  begin  begin
491    if Automatisktjekkodestyring1.Checked then    if Automatisktjekkodestyring1.Checked then
492    begin    begin
493       CheckBox3.Enabled := false;       chkScanTjekkode.Enabled := false;
494       Scanogstjekkoden1.Enabled := false;       Scanogstjekkoden1.Enabled := false;
495    end    end
496    else    else
497    begin    begin
498       CheckBox3.Enabled := true;       chkScanTjekkode.Enabled := true;
499       Scanogstjekkoden1.Enabled := true;       Scanogstjekkoden1.Enabled := true;
500    end;    end;
501    
# Line 722  begin Line 722  begin
722    
723      if ScanTjekkode = '1' then      if ScanTjekkode = '1' then
724      begin      begin
725        CheckBox3.Checked := true;        chkScanTjekkode.Checked := true;
726        Scanogstjekkoden1.Checked := true;        Scanogstjekkoden1.Checked := true;
727      end      end
728      else      else
729      begin      begin
730        CheckBox3.Checked := false;        chkScanTjekkode.Checked := false;
731        Scanogstjekkoden1.Checked := false;        Scanogstjekkoden1.Checked := false;
732      end;      end;
733    
734      if ScanTjekkodeAutomatik = '1' then      if ScanTjekkodeAutomatik = '1' then
735      begin      begin
736        Automatisktjekkodestyring1.Checked := true;        Automatisktjekkodestyring1.Checked := true;
737        CheckBox3.Enabled := false;        chkScanTjekkode.Enabled := false;
738        Scanogstjekkoden1.Enabled := false;        Scanogstjekkoden1.Enabled := false;
739      end;      end;
740    
# Line 1327  begin Line 1327  begin
1327    
1328      if (Stregkode = 'Scan tjekkode') or (PakkeshopStregkode = 'Scan tjekkode') or (BoghandlerStregkode = 'Scan tjekkode') then      if (Stregkode = 'Scan tjekkode') or (PakkeshopStregkode = 'Scan tjekkode') or (BoghandlerStregkode = 'Scan tjekkode') then
1329      begin      begin
1330        if CheckBox3.Enabled = true then        if chkScanTjekkode.Enabled = true then
1331        begin        begin
1332           if (CheckBox3.State = cbChecked) then           if (chkScanTjekkode.State = cbChecked) then
1333           begin           begin
1334            CheckBox3.State := cbUnchecked;            chkScanTjekkode.State := cbUnchecked;
1335           end           end
1336           else           else
1337           begin           begin
1338            CheckBox3.State := cbChecked;            chkScanTjekkode.State := cbChecked;
1339           end;           end;
1340        end        end
1341        else        else
# Line 1795  begin Line 1795  begin
1795    
1796      if (PakkeshopText1.Visible = true) and (PakkeshopText1.Caption = 'Stregkode') and Automatisktjekkodestyring1.Checked then      if (PakkeshopText1.Visible = true) and (PakkeshopText1.Caption = 'Stregkode') and Automatisktjekkodestyring1.Checked then
1797      begin      begin
1798        CheckBox3.Checked := false;        chkScanTjekkode.Checked := false;
1799        for i := 0 to length(stregkoderMedTjekkodeArray)-1 do        for i := 0 to length(stregkoderMedTjekkodeArray)-1 do
1800        begin        begin
1801          if (Stregkode=stregkoderMedTjekkodeArray[i]) then          if (Stregkode=stregkoderMedTjekkodeArray[i]) then
1802          begin          begin
1803              CheckBox3.Checked := true;              chkScanTjekkode.Checked := true;
1804              Scanogstjekkoden1.Checked := true;              Scanogstjekkoden1.Checked := true;
1805          end;          end;
1806        end;        end;
# Line 2888  begin Line 2888  begin
2888    
2889  end;  end;
2890    
2891  procedure TMainForm.CheckBox3Click(Sender: TObject);  procedure TMainForm.chkScanTjekkodeClick(Sender: TObject);
2892  begin  begin
2893    if CheckBox3.Checked then    if chkScanTjekkode.Checked then
2894    begin    begin
2895       Scanogstjekkoden1.Checked := true;       Scanogstjekkoden1.Checked := true;
2896    end    end
# Line 5621  procedure TMainForm.Scanogstjekkoden1Cli Line 5621  procedure TMainForm.Scanogstjekkoden1Cli
5621  begin  begin
5622    if Scanogstjekkoden1.Checked then    if Scanogstjekkoden1.Checked then
5623    begin    begin
5624       CheckBox3.Checked := true;       chkScanTjekkode.Checked := true;
5625    end    end
5626    else    else
5627    begin    begin
5628       CheckBox3.Checked := false;       chkScanTjekkode.Checked := false;
5629    end;    end;
5630  end;  end;
5631    
Legend:
Removed from v.2653  
changed lines
  Added in v.2654
  ViewVC Help
Powered by ViewVC 1.1.20