/[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 2649 by torben, Thu Aug 20 20:16:16 2015 UTC revision 2650 by torben, Thu Aug 20 20:58:26 2015 UTC
# Line 85  type Line 85  type
85      PanelManglendePakker4: TPanel;      PanelManglendePakker4: TPanel;
86      PanelManglendePakker5: TPanel;      PanelManglendePakker5: TPanel;
87      PanelManglendePakker6: TPanel;      PanelManglendePakker6: TPanel;
88        PanelValg7: TPanel;
89    
90    function Explode(var a: TStrArray; Border, S: string): Integer;    function Explode(var a: TStrArray; Border, S: string): Integer;
91    function BarCodeValid (ACode: string): boolean;    function BarCodeValid (ACode: string): boolean;
# Line 150  type Line 151  type
151    procedure InitDirektelevering();    procedure InitDirektelevering();
152    procedure InitPakkeshoplevering();    procedure InitPakkeshoplevering();
153    procedure InitReturFraPakkeshop();    procedure InitReturFraPakkeshop();
154      procedure InitIndleveringskode();
155    
156    procedure Altidprintepakkelabel1Click(Sender: TObject);    procedure Altidprintepakkelabel1Click(Sender: TObject);
157    procedure CheckBox2Click(Sender: TObject);    procedure CheckBox2Click(Sender: TObject);
158    procedure EKLoverforselClick(Sender: TObject);    procedure EKLoverforselClick(Sender: TObject);
# Line 175  type Line 178  type
178    procedure TjekkerUrls();    procedure TjekkerUrls();
179  // 20150310: start  // 20150310: start
180    procedure RoundCornerOf(Control: TWinControl);    procedure RoundCornerOf(Control: TWinControl);
181    
182        procedure PanelValg7Click(Sender: TObject);
183  // 20150310: slut  // 20150310: slut
184    
185    private    private
# Line 329  begin Line 334  begin
334        PanelValg6.Font.Color := clWindowText;        PanelValg6.Font.Color := clWindowText;
335      end;      end;
336    
337        PanelValg7.Color := clBtnFace;
338        if PanelValg7.Enabled = true then
339        begin
340          PanelValg7.Font.Color := clWindowText;
341        end;
342    
343      OpdaterListenButton01.Enabled := false;      OpdaterListenButton01.Enabled := false;
344    
345      if (BladhusSted > 00) and (BladhusSted < Length(BladhusStedNavn)) then      if (BladhusSted > 00) and (BladhusSted < Length(BladhusStedNavn)) then
# Line 552  begin Line 563  begin
563    
564  // Sætter lige en default panel størrelse  // Sætter lige en default panel størrelse
565    MainForm.ClientWidth := 1000;    MainForm.ClientWidth := 1000;
566    MainForm.ClientHeight := 700;    MainForm.ClientHeight := 750;
567    
568    // Læser parametre fra ini filen    // Læser parametre fra ini filen
569    with TIniFile.Create(ChangeFileExt(Application.ExeName,'.ini')) do    with TIniFile.Create(ChangeFileExt(Application.ExeName,'.ini')) do
# Line 3412  begin Line 3423  begin
3423    PrinterstatusStaticText1.Color := MainForm.Color;    PrinterstatusStaticText1.Color := MainForm.Color;
3424  end;  end;
3425    
3426    
3427  procedure TMainForm.PanelValg1Click(Sender: TObject);  procedure TMainForm.PanelValg1Click(Sender: TObject);
3428  begin  begin
3429        Scanningtype := '1';        Scanningtype := '1';
# Line 3454  begin Line 3466  begin
3466        NulstilAutomatiskValg();        NulstilAutomatiskValg();
3467  end;  end;
3468    
3469    
3470    procedure TMainForm.PanelValg7Click(Sender: TObject);
3471    begin
3472          Scanningtype := '7';
3473          InitIndleveringskode();
3474          NulstilAutomatiskValg();
3475    
3476    end;
3477    
3478  procedure TMainForm.PanelValgAClick(Sender: TObject);  procedure TMainForm.PanelValgAClick(Sender: TObject);
3479  begin  begin
3480  // 20150311: start  // 20150311: start
# Line 3988  begin Line 4009  begin
4009        InitReturFraKunde();        InitReturFraKunde();
4010  end;  end;
4011    
4012    procedure TMainForm.InitIndleveringskode();
4013    begin
4014          AutomatiskTjekkodeStyring1.Enabled := false;
4015          Returpakkerfrapakkeshop1.Checked := true;
4016          PakkeshopNulstil.Visible := false;
4017          InitForm(FarveReturPakkeshop,TitelReturPakkeshop,UrlReturPakkeshop);
4018          PanelValg7.Color := clGreen;
4019          PanelValg7.Font.Color := clWhite;
4020          CheckBox1.Enabled := false;
4021          CheckBox2.Enabled := false;
4022          Altidprintepakkelabel1.Enabled := false;
4023          CheckBox2.Checked := false;
4024          Altidprintepakkelabel1.Checked := false;
4025          Sprgefterboghandlernummer1.Checked := false;
4026          CheckBox1.Checked := false;
4027          Sprgefterboghandlernummer1.Enabled := false;
4028          Smpakker1.Enabled := false;
4029          Storepakker1.Enabled := false;
4030          RadioButton1.Enabled := false;
4031          RadioButton2.Enabled := false;
4032          ListBox1.Visible := true;
4033          ListBox1.Items.Clear;
4034          DownloadButton01.Enabled := false;
4035          OpdaterListenButton01.Enabled := true;
4036          EKLoverforsel.Enabled := false;
4037          InitLillePakke();
4038          IndlesScanningLogFil();
4039          if BladhusSted = 0 then
4040          begin
4041            IndlesManglendeScanninger();
4042          end;
4043          IdFTP1.Passive := true;
4044          IdFTP1.PassiveUseControlHost := true;
4045    end;
4046    
4047    
4048  procedure TMainForm.Storepakker1Click(Sender: TObject);  procedure TMainForm.Storepakker1Click(Sender: TObject);
4049  begin  begin
4050    InitStorPakke();    InitStorPakke();
# Line 5504  end; Line 5561  end;
5561  function TMainForm.getProddag() : String;  function TMainForm.getProddag() : String;
5562  begin  begin
5563  //  ShowMessage(LongDayNames[DayOfWeek(getProddato())]);  //  ShowMessage(LongDayNames[DayOfWeek(getProddato())]);
5564    result := LongDayNames[DayOfWeek(getProddato())];    result := FormatSettings.LongDayNames[DayOfWeek(getProddato())];
5565    //result := 'lørdag';     // MENS VI TESTER  kan vi fremtvinge lørdag situation her    //result := 'lørdag';     // MENS VI TESTER  kan vi fremtvinge lørdag situation her
5566  end;  end;
5567    
Legend:
Removed from v.2649  
changed lines
  Added in v.2650
  ViewVC Help
Powered by ViewVC 1.1.20