/[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 2696 by torben, Thu Sep 3 14:45:27 2015 UTC revision 2700 by torben, Thu Sep 3 14:53:37 2015 UTC
# Line 56  type Line 56  type
56      IdFTP1: TIdFTP;      IdFTP1: TIdFTP;
57      Image1: TImage;      Image1: TImage;
58      ListBox2: TListBox;      ListBox2: TListBox;
59      OpdaterListenButton01: TButton;      BtnOpdaterListen: TButton;
60      UploadButton01: TButton;      BtnUploadLogfil: TButton;
61      BtnDownloadRuteskiftFil: TButton;      BtnDownloadRuteskiftFil: TButton;
62      Pakkeshoplevering1: TMenuItem;      Pakkeshoplevering1: TMenuItem;
63      PakkeshopText1: TStaticText;      PakkeshopText1: TStaticText;
# Line 65  type Line 65  type
65      Returpakkerfrapakkeshop1: TMenuItem;      Returpakkerfrapakkeshop1: TMenuItem;
66      Altidprintepakkelabel1: TMenuItem;      Altidprintepakkelabel1: TMenuItem;
67      chkAltidPrintLabel: TCheckBox;      chkAltidPrintLabel: TCheckBox;
68      EKLoverforsel: TButton;      BtnEKLoverforsel: TButton;
69      N5: TMenuItem;      N5: TMenuItem;
70      Uploadlogfil1: TMenuItem;      Uploadlogfil1: TMenuItem;
71      Manual1: TMenuItem;      Manual1: TMenuItem;
# Line 129  type Line 129  type
129    procedure ListBox1DrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState);    procedure ListBox1DrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState);
130    procedure Budlevering1Click(Sender: TObject);    procedure Budlevering1Click(Sender: TObject);
131    procedure BtnDownloadKontrolfilClick(Sender: TObject);    procedure BtnDownloadKontrolfilClick(Sender: TObject);
132    procedure OpdaterListenButton01Click(Sender: TObject);    procedure BtnOpdaterListenClick(Sender: TObject);
133    procedure DownloadBladhusRuteskiftfil();    procedure DownloadBladhusRuteskiftfil();
134    procedure DownloadBladhusKontrolfil();    procedure DownloadBladhusKontrolfil();
135    procedure SendFilTilDAO(fil_type, filnavn_input, filnavn_output: String);    procedure SendFilTilDAO(fil_type, filnavn_input, filnavn_output: String);
# Line 137  type Line 137  type
137    procedure UploadInifilTilDAO();    procedure UploadInifilTilDAO();
138    procedure SletStregkodelinieFraListboks2(StregKode : String);    procedure SletStregkodelinieFraListboks2(StregKode : String);
139    procedure FormDestroy(Sender: TObject);    procedure FormDestroy(Sender: TObject);
140    procedure UploadButton01Click(Sender: TObject);    procedure BtnUploadLogfilClick(Sender: TObject);
141    procedure BtnDownloadRuteskiftFilClick(Sender: TObject);    procedure BtnDownloadRuteskiftFilClick(Sender: TObject);
142    procedure Pakkeshoplevering1Click(Sender: TObject);    procedure Pakkeshoplevering1Click(Sender: TObject);
143    procedure btnNulstilClick(Sender: TObject);    procedure btnNulstilClick(Sender: TObject);
# Line 152  type Line 152  type
152    
153    procedure Altidprintepakkelabel1Click(Sender: TObject);    procedure Altidprintepakkelabel1Click(Sender: TObject);
154    procedure chkAltidPrintLabelClick(Sender: TObject);    procedure chkAltidPrintLabelClick(Sender: TObject);
155    procedure EKLoverforselClick(Sender: TObject);    procedure BtnEKLoverforselClick(Sender: TObject);
156    procedure Uploadlogfil1Click(Sender: TObject);    procedure Uploadlogfil1Click(Sender: TObject);
157    procedure Manual1Click(Sender: TObject);    procedure Manual1Click(Sender: TObject);
158    procedure Timer1Timer(Sender: TObject);    procedure Timer1Timer(Sender: TObject);
# Line 329  begin Line 329  begin
329        PanelValg7.Font.Color := clWindowText;        PanelValg7.Font.Color := clWindowText;
330      end;      end;
331    
332      OpdaterListenButton01.Enabled := false;      BtnOpdaterListen.Enabled := false;
333    
334      if (BladhusSted > 00) and (BladhusSted < Length(BladhusStedNavn)) then      if (BladhusSted > 00) and (BladhusSted < Length(BladhusStedNavn)) then
335      begin      begin
# Line 603  begin Line 603  begin
603        try        try
604          SkrivScanningLogFil(logTekst);          SkrivScanningLogFil(logTekst);
605          Uploadlogfil1.Enabled := true;          Uploadlogfil1.Enabled := true;
606          UploadButton01.Enabled := true;          BtnUploadLogfil.Enabled := true;
607          logTekst := 'Programmet er installeret som: '+ParamStr(0);          logTekst := 'Programmet er installeret som: '+ParamStr(0);
608          SkrivScanningLogFil(logTekst);          SkrivScanningLogFil(logTekst);
609          // Oprydning i gamle logfiler          // Oprydning i gamle logfiler
# Line 1975  begin Line 1975  begin
1975            begin;      // NS            begin;      // NS
1976              Testprinter1.Visible := true;              Testprinter1.Visible := true;
1977              BtnDownloadKontrolfil.Enabled := true;              BtnDownloadKontrolfil.Enabled := true;
1978              OpdaterListenButton01.Enabled := true;              BtnOpdaterListen.Enabled := true;
1979              IdFTP1.Passive := true;              IdFTP1.Passive := true;
1980              IdFTP1.PassiveUseControlHost := true;              IdFTP1.PassiveUseControlHost := true;
1981              BladhusKontrolfil_server := 'franordjyske/RuteKontrol.txt';              BladhusKontrolfil_server := 'franordjyske/RuteKontrol.txt';
# Line 1991  begin Line 1991  begin
1991              radioStorPakke.Enabled := true;              radioStorPakke.Enabled := true;
1992              radioLillePakke.Enabled := true;              radioLillePakke.Enabled := true;
1993              BtnDownloadKontrolfil.Enabled := false;     // kontrolfil bruges ikke her              BtnDownloadKontrolfil.Enabled := false;     // kontrolfil bruges ikke her
1994              OpdaterListenButton01.Enabled := true;              BtnOpdaterListen.Enabled := true;
1995              IdFTP1.Passive := true;              IdFTP1.Passive := true;
1996              IdFTP1.PassiveUseControlHost := true;              IdFTP1.PassiveUseControlHost := true;
1997              IndlesManglendeScanninger();              IndlesManglendeScanninger();
# Line 2008  begin Line 2008  begin
2008                BtnDownloadRuteskiftFil.Visible := false;                BtnDownloadRuteskiftFil.Visible := false;
2009              end;              end;
2010              BtnDownloadKontrolfil.Enabled := true;              BtnDownloadKontrolfil.Enabled := true;
2011              OpdaterListenButton01.Enabled := true;              BtnOpdaterListen.Enabled := true;
2012              IdFTP1.Passive := true;              IdFTP1.Passive := true;
2013              IdFTP1.PassiveUseControlHost := true;              IdFTP1.PassiveUseControlHost := true;
2014              BladhusRuteskiftfil_server := 'frafd/RuteSkift.txt';              BladhusRuteskiftfil_server := 'frafd/RuteSkift.txt';
# Line 2029  begin Line 2029  begin
2029              radioStorPakke.Enabled := true;              radioStorPakke.Enabled := true;
2030              radioLillePakke.Enabled := true;              radioLillePakke.Enabled := true;
2031              BtnDownloadKontrolfil.Enabled := false;    // kontrolfil bruges ikke her              BtnDownloadKontrolfil.Enabled := false;    // kontrolfil bruges ikke her
2032              OpdaterListenButton01.Enabled := true;              BtnOpdaterListen.Enabled := true;
2033              IdFTP1.Passive := true;              IdFTP1.Passive := true;
2034              IdFTP1.PassiveUseControlHost := true;              IdFTP1.PassiveUseControlHost := true;
2035            end;            end;
# Line 2288  begin Line 2288  begin
2288    SkrivScanningLogFil(logTekst);    SkrivScanningLogFil(logTekst);
2289  end;  end;
2290    
2291  procedure TMainForm.UploadButton01Click(Sender: TObject);  procedure TMainForm.BtnUploadLogfilClick(Sender: TObject);
2292  begin  begin
2293    UploadLogfilTilDAO();    UploadLogfilTilDAO();
2294    UploadInifilTilDAO();    UploadInifilTilDAO();
# Line 3476  begin Line 3476  begin
3476      end      end
3477      else      else
3478      begin      begin
3479        ShowMessage('Acrobat Reader er ikke installeret!');        ShowMessage('Adobe Reader er ikke installeret!');
3480      end;      end;
3481    end    end
3482    else    else
# Line 3542  begin Line 3542  begin
3542        radioStorPakke.Enabled := false;        radioStorPakke.Enabled := false;
3543        radioLillePakke.Enabled := false;        radioLillePakke.Enabled := false;
3544        ListBox1.Visible := true;        ListBox1.Visible := true;
3545        OpdaterListenButton01.Enabled := true;        BtnOpdaterListen.Enabled := true;
3546        EKLoverforsel.Enabled := true;        BtnEKLoverforsel.Enabled := true;
3547        InitLillePakke();        InitLillePakke();
3548        ListBox1.Items.Clear;        ListBox1.Items.Clear;
3549        if BladhusSted = 0 then        if BladhusSted = 0 then
# Line 3576  begin Line 3576  begin
3576        ListBox1.Visible := true;        ListBox1.Visible := true;
3577        ListBox1.Items.Clear;        ListBox1.Items.Clear;
3578        ListBox2.Items.Clear;        ListBox2.Items.Clear;
3579        EKLoverforsel.Enabled := false;        BtnEKLoverforsel.Enabled := false;
3580        InitLillePakke();        InitLillePakke();
3581  end;  end;
3582    
# Line 3602  begin Line 3602  begin
3602        ListBox1.Visible := true;        ListBox1.Visible := true;
3603        ListBox1.Items.Clear;        ListBox1.Items.Clear;
3604        ListBox2.Items.Clear;        ListBox2.Items.Clear;
3605        EKLoverforsel.Enabled := false;        BtnEKLoverforsel.Enabled := false;
3606        InitLillePakke();        InitLillePakke();
3607  end;  end;
3608    
# Line 3629  begin Line 3629  begin
3629        ListBox1.Visible := true;        ListBox1.Visible := true;
3630        ListBox1.Items.Clear;        ListBox1.Items.Clear;
3631        BtnDownloadKontrolfil.Enabled := false;        BtnDownloadKontrolfil.Enabled := false;
3632        OpdaterListenButton01.Enabled := true;        BtnOpdaterListen.Enabled := true;
3633        BtnDownloadRuteskiftFil.Visible := false;        BtnDownloadRuteskiftFil.Visible := false;
3634        EKLoverforsel.Enabled := false;        BtnEKLoverforsel.Enabled := false;
3635        IdFTP1.Passive := true;        IdFTP1.Passive := true;
3636        IdFTP1.PassiveUseControlHost := true;        IdFTP1.PassiveUseControlHost := true;
3637        if (BladhusSted = 0) or (BladhusSted = 2) or (BladhusSted = 3) then        if (BladhusSted = 0) or (BladhusSted = 2) or (BladhusSted = 3) then
# Line 3665  begin Line 3665  begin
3665        ListBox1.Visible := true;        ListBox1.Visible := true;
3666        ListBox1.Items.Clear;        ListBox1.Items.Clear;
3667        BtnDownloadKontrolfil.Enabled := false;        BtnDownloadKontrolfil.Enabled := false;
3668        OpdaterListenButton01.Enabled := true;        BtnOpdaterListen.Enabled := true;
3669    
3670        EKLoverforsel.Enabled := true;        BtnEKLoverforsel.Enabled := true;
3671    
3672        InitLillePakke();        InitLillePakke();
3673        IndlesScanningLogFil();        IndlesScanningLogFil();
# Line 3702  begin Line 3702  begin
3702        ListBox1.Visible := true;        ListBox1.Visible := true;
3703        ListBox1.Items.Clear;        ListBox1.Items.Clear;
3704        BtnDownloadKontrolfil.Enabled := false;        BtnDownloadKontrolfil.Enabled := false;
3705        OpdaterListenButton01.Enabled := true;        BtnOpdaterListen.Enabled := true;
3706        EKLoverforsel.Enabled := false;        BtnEKLoverforsel.Enabled := false;
3707        InitLillePakke();        InitLillePakke();
3708        IndlesScanningLogFil();        IndlesScanningLogFil();
3709        if BladhusSted = 0 then        if BladhusSted = 0 then
# Line 3749  begin Line 3749  begin
3749        ListBox1.Items.Clear();        ListBox1.Items.Clear();
3750    
3751        BtnDownloadKontrolfil.Enabled := false;        BtnDownloadKontrolfil.Enabled := false;
3752        OpdaterListenButton01.Enabled := true;        BtnOpdaterListen.Enabled := true;
3753        EKLoverforsel.Enabled := false;        BtnEKLoverforsel.Enabled := false;
3754        InitLillePakke();        InitLillePakke();
3755        IndlesScanningLogFil();        IndlesScanningLogFil();
3756        if BladhusSted = 0 then        if BladhusSted = 0 then
# Line 3859  begin; Line 3859  begin;
3859    CheckCode();    CheckCode();
3860  end;  end;
3861    
3862  procedure TMainForm.EKLoverforselClick(Sender: TObject);  procedure TMainForm.BtnEKLoverforselClick(Sender: TObject);
3863  var  var
3864    WebSvar : String;    WebSvar : String;
3865    URLStr : String;    URLStr : String;
# Line 3869  var Line 3869  var
3869    status, kommentar : String;    status, kommentar : String;
3870    
3871  begin  begin
3872      EKLoverforsel.Enabled := false;      BtnEKLoverforsel.Enabled := false;
3873    
3874      ListBox1.Items.Insert(0,TimeToStr(now) + ': ' + 'Overfører de scannede pakker til EKL');      ListBox1.Items.Insert(0,TimeToStr(now) + ': ' + 'Overfører de scannede pakker til EKL');
3875      logTekst := 'Overfører de scannede pakker til EKL';      logTekst := 'Overfører de scannede pakker til EKL';
# Line 3932  begin Line 3932  begin
3932        end;        end;
3933      end;      end;
3934    
3935      EKLoverforsel.Enabled := true;      BtnEKLoverforsel.Enabled := true;
3936    
3937      ListBox1.SetFocus;  // for at flytte fokus væk fra knappen så denne ikke aktiveres ved scanning / indtastning af stregkode      ListBox1.SetFocus;  // for at flytte fokus væk fra knappen så denne ikke aktiveres ved scanning / indtastning af stregkode
3938    
# Line 4464  begin Line 4464  begin
4464      ListBox1.SetFocus;  // for at flytte fokus væk fra download knappen så denne ikke aktiveres ved scanning / indtastning af stregkode      ListBox1.SetFocus;  // for at flytte fokus væk fra download knappen så denne ikke aktiveres ved scanning / indtastning af stregkode
4465  end;  end;
4466    
4467  procedure TMainForm.OpdaterListenButton01Click(Sender: TObject);  procedure TMainForm.BtnOpdaterListenClick(Sender: TObject);
4468  const  const
4469    crlf = Chr(13) + Chr(10) ;  // Carriage return & Linefeed    crlf = Chr(13) + Chr(10) ;  // Carriage return & Linefeed
4470    
Legend:
Removed from v.2696  
changed lines
  Added in v.2700
  ViewVC Help
Powered by ViewVC 1.1.20