/[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 2654 by torben, Sun Aug 23 11:00:22 2015 UTC revision 2655 by torben, Sun Aug 23 11:06:48 2015 UTC
# Line 36  type Line 36  type
36      Lukprogrammet1: TMenuItem;      Lukprogrammet1: TMenuItem;
37      N2: TMenuItem;      N2: TMenuItem;
38      N3: TMenuItem;      N3: TMenuItem;
39      RadioButton1: TRadioButton;      radioStorPakke: TRadioButton;
40      RadioButton2: TRadioButton;      radioLillePakke: TRadioButton;
41      N4: TMenuItem;      N4: TMenuItem;
42      Storepakker1: TMenuItem;      Storepakker1: TMenuItem;
43      Smpakker1: TMenuItem;      Smpakker1: TMenuItem;
# Line 113  type Line 113  type
113    procedure FormKeyPress(Sender: TObject; var Key: Char);    procedure FormKeyPress(Sender: TObject; var Key: Char);
114    procedure FormCreate(Sender: TObject);    procedure FormCreate(Sender: TObject);
115    procedure ApplicationEvents1Idle(Sender: TObject; var Done: Boolean);    procedure ApplicationEvents1Idle(Sender: TObject; var Done: Boolean);
116    procedure RadioButton1Click(Sender: TObject);    procedure radioStorPakkeClick(Sender: TObject);
117    procedure RadioButton2Click(Sender: TObject);    procedure radioLillePakkeClick(Sender: TObject);
118    procedure chkSporgEfterKundeClick(Sender: TObject);    procedure chkSporgEfterKundeClick(Sender: TObject);
119    procedure Pakkernormal1Click(Sender: TObject);    procedure Pakkernormal1Click(Sender: TObject);
120    procedure Testforbindelsen1Click(Sender: TObject);    procedure Testforbindelsen1Click(Sender: TObject);
# Line 1000  begin Line 1000  begin
1000      if Pakketype = '1' then      if Pakketype = '1' then
1001      begin      begin
1002        Storepakker1.Checked := true;        Storepakker1.Checked := true;
1003        RadioButton1.Checked := true;        radioStorPakke.Checked := true;
1004      end      end
1005      else      else
1006      begin      begin
1007        Smpakker1.Checked := true;        Smpakker1.Checked := true;
1008        RadioButton2.Checked := true;        radioLillePakke.Checked := true;
1009      end;      end;
1010    
1011      if TestFunktionen = '1' then      if TestFunktionen = '1' then
# Line 1242  begin Line 1242  begin
1242    
1243      if StregKode = 'Lille pakke' then      if StregKode = 'Lille pakke' then
1244      begin      begin
1245         if RadioButton2.Enabled = true then         if radioLillePakke.Enabled = true then
1246         begin         begin
1247            InitLillePakke();            InitLillePakke();
1248         end         end
# Line 1268  begin Line 1268  begin
1268    
1269      if StregKode = 'Stor pakke' then      if StregKode = 'Stor pakke' then
1270      begin      begin
1271         if RadioButton1.Enabled = true then         if radioStorPakke.Enabled = true then
1272         begin         begin
1273            InitStorPakke();            InitStorPakke();
1274         end         end
# Line 2297  begin Line 2297  begin
2297              Testprinter1.Visible := true;              Testprinter1.Visible := true;
2298              Smpakker1.Enabled := true;              Smpakker1.Enabled := true;
2299              Storepakker1.Enabled := true;              Storepakker1.Enabled := true;
2300              RadioButton1.Enabled := true;              radioStorPakke.Enabled := true;
2301              RadioButton2.Enabled := true;              radioLillePakke.Enabled := true;
2302              DownloadButton01.Enabled := false;     // kontrolfil bruges ikke her              DownloadButton01.Enabled := false;     // kontrolfil bruges ikke her
2303              OpdaterListenButton01.Enabled := true;              OpdaterListenButton01.Enabled := true;
2304              IdFTP1.Passive := true;              IdFTP1.Passive := true;
# Line 2335  begin Line 2335  begin
2335              Testprinter1.Visible := true;              Testprinter1.Visible := true;
2336              Smpakker1.Enabled := true;              Smpakker1.Enabled := true;
2337              Storepakker1.Enabled := true;              Storepakker1.Enabled := true;
2338              RadioButton1.Enabled := true;              radioStorPakke.Enabled := true;
2339              RadioButton2.Enabled := true;              radioLillePakke.Enabled := true;
2340              DownloadButton01.Enabled := false;    // kontrolfil bruges ikke her              DownloadButton01.Enabled := false;    // kontrolfil bruges ikke her
2341              OpdaterListenButton01.Enabled := true;              OpdaterListenButton01.Enabled := true;
2342              IdFTP1.Passive := true;              IdFTP1.Passive := true;
# Line 2355  var Line 2355  var
2355    pakkestorrelse : String;    pakkestorrelse : String;
2356    PrintNyLabelInteger : Integer;    PrintNyLabelInteger : Integer;
2357  begin  begin
2358    if RadioButton1.Checked then    if radioStorPakke.Checked then
2359    begin    begin
2360      pakkestorrelse := 'Stor';      pakkestorrelse := 'Stor';
2361    end;    end;
2362    if RadioButton2.Checked then    if radioLillePakke.Checked then
2363    begin    begin
2364      pakkestorrelse := 'Lille';      pakkestorrelse := 'Lille';
2365    end;    end;
# Line 2514  begin Line 2514  begin
2514    if Pakkeshoplevering1.Checked then    if Pakkeshoplevering1.Checked then
2515      List1msg := List1msg + PakkeshopStregkode + ' ' + PakkeshopTjekkode + '; ' + KommentarST.Caption + '; ';      List1msg := List1msg + PakkeshopStregkode + ' ' + PakkeshopTjekkode + '; ' + KommentarST.Caption + '; ';
2516    List1Pakkestorrelse := '';    List1Pakkestorrelse := '';
2517    if RadioButton1.Checked then    if radioStorPakke.Checked then
2518    begin    begin
2519      List1Pakkestorrelse := 'Stor pakke';      List1Pakkestorrelse := 'Stor pakke';
2520    end;    end;
2521    if RadioButton2.Checked then    if radioLillePakke.Checked then
2522    begin    begin
2523      List1Pakkestorrelse := 'Lille pakke';      List1Pakkestorrelse := 'Lille pakke';
2524    end;    end;
# Line 2540  begin Line 2540  begin
2540    if Budlevering1.Checked then    if Budlevering1.Checked then
2541    begin    begin
2542       List1msg := TimeToStr(now) + '; ' + Kommentar + '; ' + BoghandlerNavn;       List1msg := TimeToStr(now) + '; ' + Kommentar + '; ' + BoghandlerNavn;
2543        if (RadioButton1.Checked) then        if (radioStorPakke.Checked) then
2544        begin        begin
2545          List1msg := List1msg + '; Stor pakke';          List1msg := List1msg + '; Stor pakke';
2546        end;        end;
2547        if (RadioButton2.Checked) then        if (radioLillePakke.Checked) then
2548        begin        begin
2549          List1msg := List1msg + '; Lille pakke';          List1msg := List1msg + '; Lille pakke';
2550        end;        end;
# Line 2849  begin Line 2849  begin
2849  end;  end;
2850    
2851    
2852  procedure TMainForm.RadioButton1Click(Sender: TObject);  procedure TMainForm.radioStorPakkeClick(Sender: TObject);
2853  begin  begin
2854      Storepakker1.Checked := true;      Storepakker1.Checked := true;
2855      RadioButton1.Checked := true;      radioStorPakke.Checked := true;
2856  end;  end;
2857    
2858  procedure TMainForm.RadioButton2Click(Sender: TObject);  procedure TMainForm.radioLillePakkeClick(Sender: TObject);
2859  begin  begin
2860      Smpakker1.Checked := true;      Smpakker1.Checked := true;
2861      RadioButton2.Checked := true;      radioLillePakke.Checked := true;
2862  end;  end;
2863    
2864    
# Line 3825  begin Line 3825  begin
3825        Sprgefterboghandlernummer1.Enabled := true;        Sprgefterboghandlernummer1.Enabled := true;
3826        Smpakker1.Enabled := false;        Smpakker1.Enabled := false;
3827        Storepakker1.Enabled := false;        Storepakker1.Enabled := false;
3828        RadioButton1.Enabled := false;        radioStorPakke.Enabled := false;
3829        RadioButton2.Enabled := false;        radioLillePakke.Enabled := false;
3830        ListBox1.Visible := true;        ListBox1.Visible := true;
3831        OpdaterListenButton01.Enabled := true;        OpdaterListenButton01.Enabled := true;
3832        EKLoverforsel.Enabled := true;        EKLoverforsel.Enabled := true;
# Line 3857  begin Line 3857  begin
3857        Sprgefterboghandlernummer1.Enabled := false;        Sprgefterboghandlernummer1.Enabled := false;
3858        Smpakker1.Enabled := true;        Smpakker1.Enabled := true;
3859        Storepakker1.Enabled := true;        Storepakker1.Enabled := true;
3860        RadioButton1.Enabled := true;        radioStorPakke.Enabled := true;
3861        RadioButton2.Enabled := true;        radioLillePakke.Enabled := true;
3862        ListBox1.Visible := true;        ListBox1.Visible := true;
3863        ListBox1.Items.Clear;        ListBox1.Items.Clear;
3864        ListBox2.Items.Clear;        ListBox2.Items.Clear;
# Line 3883  begin Line 3883  begin
3883        Sprgefterboghandlernummer1.Enabled := false;        Sprgefterboghandlernummer1.Enabled := false;
3884        Smpakker1.Enabled := true;        Smpakker1.Enabled := true;
3885        Storepakker1.Enabled := true;        Storepakker1.Enabled := true;
3886        RadioButton1.Enabled := true;        radioStorPakke.Enabled := true;
3887        RadioButton2.Enabled := true;        radioLillePakke.Enabled := true;
3888        ListBox1.Visible := true;        ListBox1.Visible := true;
3889        ListBox1.Items.Clear;        ListBox1.Items.Clear;
3890        ListBox2.Items.Clear;        ListBox2.Items.Clear;
# Line 3910  begin Line 3910  begin
3910        Sprgefterboghandlernummer1.Enabled := false;        Sprgefterboghandlernummer1.Enabled := false;
3911        Smpakker1.Enabled := true;        Smpakker1.Enabled := true;
3912        Storepakker1.Enabled := true;        Storepakker1.Enabled := true;
3913        RadioButton1.Enabled := true;        radioStorPakke.Enabled := true;
3914        RadioButton2.Enabled := true;        radioLillePakke.Enabled := true;
3915        ListBox1.Visible := true;        ListBox1.Visible := true;
3916        ListBox1.Items.Clear;        ListBox1.Items.Clear;
3917        DownloadButton01.Enabled := false;        DownloadButton01.Enabled := false;
# Line 3946  begin Line 3946  begin
3946        Sprgefterboghandlernummer1.Enabled := false;        Sprgefterboghandlernummer1.Enabled := false;
3947        Smpakker1.Enabled := false;        Smpakker1.Enabled := false;
3948        Storepakker1.Enabled := false;        Storepakker1.Enabled := false;
3949        RadioButton1.Enabled := false;        radioStorPakke.Enabled := false;
3950        RadioButton2.Enabled := false;        radioLillePakke.Enabled := false;
3951        ListBox1.Visible := true;        ListBox1.Visible := true;
3952        ListBox1.Items.Clear;        ListBox1.Items.Clear;
3953        DownloadButton01.Enabled := false;        DownloadButton01.Enabled := false;
# Line 3984  begin Line 3984  begin
3984        Sprgefterboghandlernummer1.Enabled := false;        Sprgefterboghandlernummer1.Enabled := false;
3985        Smpakker1.Enabled := false;        Smpakker1.Enabled := false;
3986        Storepakker1.Enabled := false;        Storepakker1.Enabled := false;
3987        RadioButton1.Enabled := false;        radioStorPakke.Enabled := false;
3988        RadioButton2.Enabled := false;        radioLillePakke.Enabled := false;
3989        ListBox1.Visible := true;        ListBox1.Visible := true;
3990        ListBox1.Items.Clear;        ListBox1.Items.Clear;
3991        DownloadButton01.Enabled := false;        DownloadButton01.Enabled := false;
# Line 4026  begin Line 4026  begin
4026        Sprgefterboghandlernummer1.Enabled := false;        Sprgefterboghandlernummer1.Enabled := false;
4027        Smpakker1.Enabled := false;        Smpakker1.Enabled := false;
4028        Storepakker1.Enabled := false;        Storepakker1.Enabled := false;
4029        RadioButton1.Enabled := false;        radioStorPakke.Enabled := false;
4030        RadioButton2.Enabled := false;        radioLillePakke.Enabled := false;
4031        ListBox1.Visible := true;        ListBox1.Visible := true;
4032        ListBox1.Items.Clear;        ListBox1.Items.Clear;
4033        DownloadButton01.Enabled := false;        DownloadButton01.Enabled := false;
# Line 4056  end; Line 4056  end;
4056    
4057  procedure TMainForm.InitLillePakke();  procedure TMainForm.InitLillePakke();
4058  begin  begin
4059    RadioButton2.Checked := true;    radioLillePakke.Checked := true;
4060    Smpakker1.Checked := true;    Smpakker1.Checked := true;
4061  // 20150310: start  // 20150310: start
4062  //  Stregkode := '';  //  Stregkode := '';
# Line 4065  end; Line 4065  end;
4065    
4066  procedure TMainForm.InitStorPakke();  procedure TMainForm.InitStorPakke();
4067  begin  begin
4068    RadioButton1.Checked := true;    radioStorPakke.Checked := true;
4069    Storepakker1.Checked := true;    Storepakker1.Checked := true;
4070  // 20150310: start  // 20150310: start
4071  //  Stregkode := '';  //  Stregkode := '';
Legend:
Removed from v.2654  
changed lines
  Added in v.2655
  ViewVC Help
Powered by ViewVC 1.1.20