/[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 2647 by torben, Thu Aug 20 20:16:16 2015 UTC revision 2653 by torben, Sun Aug 23 10:44:23 2015 UTC
# Line 20  type Line 20  type
20      IdHTTP1: TIdHTTP;      IdHTTP1: TIdHTTP;
21      XMLDocument1: TXMLDocument;      XMLDocument1: TXMLDocument;
22      ApplicationEvents1: TApplicationEvents;      ApplicationEvents1: TApplicationEvents;
23      CheckBox1: TCheckBox;      chkSporgEfterKunde: TCheckBox;
24      KommentarST: TStaticText;      KommentarST: TStaticText;
25      MainMenu1: TMainMenu;      MainMenu1: TMainMenu;
26      N1: TMenuItem;      N1: TMenuItem;
# Line 59  type Line 59  type
59      PakkeshopNulstil: TButton;      PakkeshopNulstil: TButton;
60      Returpakkerfrapakkeshop1: TMenuItem;      Returpakkerfrapakkeshop1: TMenuItem;
61      Altidprintepakkelabel1: TMenuItem;      Altidprintepakkelabel1: TMenuItem;
62      CheckBox2: TCheckBox;      chkAltidPrintLabel: TCheckBox;
63      EKLoverforsel: TButton;      EKLoverforsel: TButton;
64      N5: TMenuItem;      N5: TMenuItem;
65      Uploadlogfil1: TMenuItem;      Uploadlogfil1: TMenuItem;
# 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 114  type Line 115  type
115    procedure ApplicationEvents1Idle(Sender: TObject; var Done: Boolean);    procedure ApplicationEvents1Idle(Sender: TObject; var Done: Boolean);
116    procedure RadioButton1Click(Sender: TObject);    procedure RadioButton1Click(Sender: TObject);
117    procedure RadioButton2Click(Sender: TObject);    procedure RadioButton2Click(Sender: TObject);
118    procedure CheckBox1Click(Sender: TObject);    procedure chkSporgEfterKundeClick(Sender: TObject);
119    procedure Pakkernormal1Click(Sender: TObject);    procedure Pakkernormal1Click(Sender: TObject);
120    procedure Testforbindelsen1Click(Sender: TObject);    procedure Testforbindelsen1Click(Sender: TObject);
121    procedure Testprinter1Click(Sender: TObject);    procedure Testprinter1Click(Sender: TObject);
# 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 chkAltidPrintLabelClick(Sender: TObject);
158    procedure EKLoverforselClick(Sender: TObject);    procedure EKLoverforselClick(Sender: TObject);
159    procedure Uploadlogfil1Click(Sender: TObject);    procedure Uploadlogfil1Click(Sender: TObject);
160    procedure Manual1Click(Sender: TObject);    procedure Manual1Click(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 461  begin Line 472  begin
472    
473    if Altidprintepakkelabel1.Checked then    if Altidprintepakkelabel1.Checked then
474    begin    begin
475       CheckBox2.Checked := true;       chkAltidPrintLabel.Checked := true;
476    end    end
477    else    else
478    begin    begin
479       CheckBox2.Checked := false;       chkAltidPrintLabel.Checked := false;
480    end;    end;
481    
482  end;  end;
# 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 700  begin Line 711  begin
711    
712      if SporgEfterBoghandler = '1' then      if SporgEfterBoghandler = '1' then
713      begin      begin
714        CheckBox1.Checked := true;        chkSporgEfterKunde.Checked := true;
715        Sprgefterboghandlernummer1.Checked := true;        Sprgefterboghandlernummer1.Checked := true;
716      end      end
717      else      else
718      begin      begin
719        CheckBox1.Checked := false;        chkSporgEfterKunde.Checked := false;
720        Sprgefterboghandlernummer1.Checked := false;        Sprgefterboghandlernummer1.Checked := false;
721      end;      end;
722    
# Line 1283  begin Line 1294  begin
1294    
1295      if StregKode = 'Indtast kundenummer' then      if StregKode = 'Indtast kundenummer' then
1296      begin      begin
1297         if CheckBox1.Enabled = true then         if chkSporgEfterKunde.Enabled = true then
1298         begin         begin
1299           if (CheckBox1.State = cbChecked) then           if (chkSporgEfterKunde.State = cbChecked) then
1300           begin           begin
1301            CheckBox1.State := cbUnchecked;            chkSporgEfterKunde.State := cbUnchecked;
1302           end           end
1303           else           else
1304           begin           begin
1305            CheckBox1.State := cbChecked;            chkSporgEfterKunde.State := cbChecked;
1306           end;           end;
1307         end         end
1308         else         else
# Line 2592  begin Line 2603  begin
2603    
2604  // 20150306: start  // 20150306: start
2605  //  if Sprgefterboghandlernummer1.Enabled and CheckBox1.Checked and (RuteNummer = 'Ukendt') or (RuteNummer = 'Ukendt tur') or (RuteNummer = 'Retur ukendt') or (pakkeErScannet > 0) or (pakkeForkertSted > 0) then  //  if Sprgefterboghandlernummer1.Enabled and CheckBox1.Checked and (RuteNummer = 'Ukendt') or (RuteNummer = 'Ukendt tur') or (RuteNummer = 'Retur ukendt') or (pakkeErScannet > 0) or (pakkeForkertSted > 0) then
2606    if Sprgefterboghandlernummer1.Enabled and CheckBox1.Checked and ( (RuteNummer = 'Ukendt') or (RuteNummer = 'Ukendt tur') or (RuteNummer = 'Retur ukendt') or (pakkeErScannet > 0) or (pakkeForkertSted > 0) ) then    if Sprgefterboghandlernummer1.Enabled and chkSporgEfterKunde.Checked and ( (RuteNummer = 'Ukendt') or (RuteNummer = 'Ukendt tur') or (RuteNummer = 'Retur ukendt') or (pakkeErScannet > 0) or (pakkeForkertSted > 0) ) then
2607  // 20150306: slut  // 20150306: slut
2608    begin    begin
2609        if (RuteNummer = 'Ukendt') then        if (RuteNummer = 'Ukendt') then
# Line 2746  begin Line 2757  begin
2757      exit;      exit;
2758    end;    end;
2759    
2760    if Budlevering1.Checked or ( Sprgefterboghandlernummer1.Enabled and CheckBox1.Checked and ( (RuteNummer = 'Ukendt') or (RuteNummer = 'Ukendt tur') or (RuteNummer = 'Retur ukendt') or (pakkeErScannet > 0) ) and (printNyLabel = false) ) then    if Budlevering1.Checked or ( Sprgefterboghandlernummer1.Enabled and chkSporgEfterKunde.Checked and ( (RuteNummer = 'Ukendt') or (RuteNummer = 'Ukendt tur') or (RuteNummer = 'Retur ukendt') or (pakkeErScannet > 0) ) and (printNyLabel = false) ) then
2761    begin    begin
2762    end    end
2763    else    else
2764    begin    begin
2765      if ( (PrinterNavn <> 'Ingen') and (PrintNyLabel or CheckBox2.Checked) and (RuteNummer <> 'Ukendt') or (RuteNummer = 'Rutenr')) then      if ( (PrinterNavn <> 'Ingen') and (PrintNyLabel or chkAltidPrintLabel.Checked) and (RuteNummer <> 'Ukendt') or (RuteNummer = 'Rutenr')) then
2766      begin      begin
2767        logTekst := 'Printer label type ';        logTekst := 'Printer label type ';
2768        if (CheckBox2.Checked) then        if (chkAltidPrintLabel.Checked) then
2769        begin        begin
2770          logTekst := logTekst + 'Alle ';          logTekst := logTekst + 'Alle ';
2771        end        end
# Line 2851  begin Line 2862  begin
2862  end;  end;
2863    
2864    
2865  procedure TMainForm.CheckBox1Click(Sender: TObject);  procedure TMainForm.chkSporgEfterKundeClick(Sender: TObject);
2866  begin  begin
2867    if CheckBox1.Checked then    if chkSporgEfterKunde.Checked then
2868    begin    begin
2869       Sprgefterboghandlernummer1.Checked := true;       Sprgefterboghandlernummer1.Checked := true;
2870    end    end
# Line 2864  begin Line 2875  begin
2875  end;  end;
2876    
2877    
2878  procedure TMainForm.CheckBox2Click(Sender: TObject);  procedure TMainForm.chkAltidPrintLabelClick(Sender: TObject);
2879  begin  begin
2880    if CheckBox2.Checked then    if chkAltidPrintLabel.Checked then
2881    begin    begin
2882       Altidprintepakkelabel1.Checked := true;       Altidprintepakkelabel1.Checked := true;
2883    end    end
# 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 3762  begin Line 3783  begin
3783    
3784    if Sprgefterboghandlernummer1.Checked then    if Sprgefterboghandlernummer1.Checked then
3785    begin    begin
3786       CheckBox1.Checked := true;       chkSporgEfterKunde.Checked := true;
3787    end    end
3788    else    else
3789    begin    begin
3790       CheckBox1.Checked := false;       chkSporgEfterKunde.Checked := false;
3791    end;    end;
3792    
3793    
# Line 3794  begin Line 3815  begin
3815        InitForm(FarveNormal,TitelNormal,UrlNormal);        InitForm(FarveNormal,TitelNormal,UrlNormal);
3816        PanelValg1.Color := clGreen;        PanelValg1.Color := clGreen;
3817        PanelValg1.Font.Color := clWhite;        PanelValg1.Font.Color := clWhite;
3818        CheckBox1.Enabled := true;  
3819        CheckBox2.Enabled := true;        chkAltidPrintLabel.Enabled := true;
3820        Altidprintepakkelabel1.Enabled := true;        Altidprintepakkelabel1.Enabled := true;
3821        Altidprintepakkelabel1.Checked := false;        Altidprintepakkelabel1.Checked := false;
3822        CheckBox2.Checked := false;        chkAltidPrintLabel.Checked := false;
3823        Sprgefterboghandlernummer1.Checked := false;        Sprgefterboghandlernummer1.Checked := false;
3824        CheckBox1.Checked := false;        chkSporgEfterKunde.Checked := false;
3825        Sprgefterboghandlernummer1.Enabled := true;        Sprgefterboghandlernummer1.Enabled := true;
3826        Smpakker1.Enabled := false;        Smpakker1.Enabled := false;
3827        Storepakker1.Enabled := false;        Storepakker1.Enabled := false;
# Line 3826  begin Line 3847  begin
3847        InitForm(FarveReturDAO,TitelReturDAO,UrlReturDAO);        InitForm(FarveReturDAO,TitelReturDAO,UrlReturDAO);
3848        PanelValg2.Color := clGreen;        PanelValg2.Color := clGreen;
3849        PanelValg2.Font.Color := clWhite;        PanelValg2.Font.Color := clWhite;
3850        CheckBox1.Enabled := false;  
3851        CheckBox2.Enabled := false;        chkAltidPrintLabel.Enabled := false;
3852        Altidprintepakkelabel1.Enabled := false;        Altidprintepakkelabel1.Enabled := false;
3853        CheckBox2.Checked := false;  
3854        Altidprintepakkelabel1.Checked := false;        Altidprintepakkelabel1.Checked := false;
3855        Sprgefterboghandlernummer1.Checked := false;        Sprgefterboghandlernummer1.Checked := false;
3856        CheckBox1.Checked := false;        chkSporgEfterKunde.Checked := false;
3857        Sprgefterboghandlernummer1.Enabled := false;        Sprgefterboghandlernummer1.Enabled := false;
3858        Smpakker1.Enabled := true;        Smpakker1.Enabled := true;
3859        Storepakker1.Enabled := true;        Storepakker1.Enabled := true;
# Line 3853  begin Line 3874  begin
3874        InitForm(FarveReturBoghandler,TitelReturBoghandler,UrlReturBoghandler);        InitForm(FarveReturBoghandler,TitelReturBoghandler,UrlReturBoghandler);
3875        PanelValg3.Color := clGreen;        PanelValg3.Color := clGreen;
3876        PanelValg3.Font.Color := clWhite;        PanelValg3.Font.Color := clWhite;
3877        CheckBox1.Enabled := false;  
3878        CheckBox2.Enabled := false;        chkAltidPrintLabel.Enabled := false;
3879        Altidprintepakkelabel1.Enabled := false;        Altidprintepakkelabel1.Enabled := false;
       CheckBox2.Checked := false;  
3880        Altidprintepakkelabel1.Checked := false;        Altidprintepakkelabel1.Checked := false;
3881        Sprgefterboghandlernummer1.Checked := false;        Sprgefterboghandlernummer1.Checked := false;
3882        CheckBox1.Checked := false;        chkSporgEfterKunde.Checked := false;
3883        Sprgefterboghandlernummer1.Enabled := false;        Sprgefterboghandlernummer1.Enabled := false;
3884        Smpakker1.Enabled := true;        Smpakker1.Enabled := true;
3885        Storepakker1.Enabled := true;        Storepakker1.Enabled := true;
# Line 3880  begin Line 3900  begin
3900        InitForm(FarveBudlevering,TitelBudlevering,UrlBudlevering);        InitForm(FarveBudlevering,TitelBudlevering,UrlBudlevering);
3901        PanelValg4.Color := clGreen;        PanelValg4.Color := clGreen;
3902        PanelValg4.Font.Color := clWhite;        PanelValg4.Font.Color := clWhite;
3903        CheckBox1.Enabled := false;  
3904        CheckBox2.Enabled := false;        chkAltidPrintLabel.Enabled := false;
3905        Altidprintepakkelabel1.Enabled := false;        Altidprintepakkelabel1.Enabled := false;
3906        CheckBox2.Checked := false;  
3907        Altidprintepakkelabel1.Checked := false;        Altidprintepakkelabel1.Checked := false;
3908        Sprgefterboghandlernummer1.Checked := false;        Sprgefterboghandlernummer1.Checked := false;
3909        CheckBox1.Checked := false;        chkSporgEfterKunde.Checked := false;
3910        Sprgefterboghandlernummer1.Enabled := false;        Sprgefterboghandlernummer1.Enabled := false;
3911        Smpakker1.Enabled := true;        Smpakker1.Enabled := true;
3912        Storepakker1.Enabled := true;        Storepakker1.Enabled := true;
# Line 3916  begin Line 3936  begin
3936        InitForm(FarvePakkeshoplevering,TitelPakkeshoplevering,UrlPakkeshoplevering);        InitForm(FarvePakkeshoplevering,TitelPakkeshoplevering,UrlPakkeshoplevering);
3937        PanelValg5.Color := clGreen;        PanelValg5.Color := clGreen;
3938        PanelValg5.Font.Color := clWhite;        PanelValg5.Font.Color := clWhite;
3939        CheckBox1.Enabled := false;  
3940        CheckBox2.Enabled := false;        chkAltidPrintLabel.Enabled := false;
3941        Altidprintepakkelabel1.Enabled := false;        Altidprintepakkelabel1.Enabled := false;
3942        CheckBox2.Checked := false;  
3943        Altidprintepakkelabel1.Checked := false;        Altidprintepakkelabel1.Checked := false;
3944        Sprgefterboghandlernummer1.Checked := false;        Sprgefterboghandlernummer1.Checked := false;
3945        CheckBox1.Checked := false;        chkSporgEfterKunde.Checked := false;
3946        Sprgefterboghandlernummer1.Enabled := false;        Sprgefterboghandlernummer1.Enabled := false;
3947        Smpakker1.Enabled := false;        Smpakker1.Enabled := false;
3948        Storepakker1.Enabled := false;        Storepakker1.Enabled := false;
# Line 3954  begin Line 3974  begin
3974        InitForm(FarveReturPakkeshop,TitelReturPakkeshop,UrlReturPakkeshop);        InitForm(FarveReturPakkeshop,TitelReturPakkeshop,UrlReturPakkeshop);
3975        PanelValg6.Color := clGreen;        PanelValg6.Color := clGreen;
3976        PanelValg6.Font.Color := clWhite;        PanelValg6.Font.Color := clWhite;
3977        CheckBox1.Enabled := false;  
3978        CheckBox2.Enabled := false;        chkAltidPrintLabel.Enabled := false;
3979        Altidprintepakkelabel1.Enabled := false;        Altidprintepakkelabel1.Enabled := false;
3980        CheckBox2.Checked := false;  
3981        Altidprintepakkelabel1.Checked := false;        Altidprintepakkelabel1.Checked := false;
3982        Sprgefterboghandlernummer1.Checked := false;        Sprgefterboghandlernummer1.Checked := false;
3983        CheckBox1.Checked := false;        chkSporgEfterKunde.Checked := false;
3984        Sprgefterboghandlernummer1.Enabled := false;        Sprgefterboghandlernummer1.Enabled := false;
3985        Smpakker1.Enabled := false;        Smpakker1.Enabled := false;
3986        Storepakker1.Enabled := false;        Storepakker1.Enabled := false;
# Line 3988  begin Line 4008  begin
4008        InitReturFraKunde();        InitReturFraKunde();
4009  end;  end;
4010    
4011    procedure TMainForm.InitIndleveringskode();
4012    begin
4013          AutomatiskTjekkodeStyring1.Enabled := false;
4014          Returpakkerfrapakkeshop1.Checked := true;
4015          PakkeshopNulstil.Visible := false;
4016          InitForm(FarveReturPakkeshop,TitelReturPakkeshop,UrlReturPakkeshop);
4017          PanelValg7.Color := clGreen;
4018          PanelValg7.Font.Color := clWhite;
4019    
4020          chkAltidPrintLabel.Enabled := false;
4021          Altidprintepakkelabel1.Enabled := false;
4022    
4023          Altidprintepakkelabel1.Checked := false;
4024          Sprgefterboghandlernummer1.Checked := false;
4025          chkSporgEfterKunde.Checked := false;
4026          Sprgefterboghandlernummer1.Enabled := false;
4027          Smpakker1.Enabled := false;
4028          Storepakker1.Enabled := false;
4029          RadioButton1.Enabled := false;
4030          RadioButton2.Enabled := false;
4031          ListBox1.Visible := true;
4032          ListBox1.Items.Clear;
4033          DownloadButton01.Enabled := false;
4034          OpdaterListenButton01.Enabled := true;
4035          EKLoverforsel.Enabled := false;
4036          InitLillePakke();
4037          IndlesScanningLogFil();
4038          if BladhusSted = 0 then
4039          begin
4040            IndlesManglendeScanninger();
4041          end;
4042          IdFTP1.Passive := true;
4043          IdFTP1.PassiveUseControlHost := true;
4044    end;
4045    
4046    
4047  procedure TMainForm.Storepakker1Click(Sender: TObject);  procedure TMainForm.Storepakker1Click(Sender: TObject);
4048  begin  begin
4049    InitStorPakke();    InitStorPakke();
# Line 5504  end; Line 5560  end;
5560  function TMainForm.getProddag() : String;  function TMainForm.getProddag() : String;
5561  begin  begin
5562  //  ShowMessage(LongDayNames[DayOfWeek(getProddato())]);  //  ShowMessage(LongDayNames[DayOfWeek(getProddato())]);
5563    result := LongDayNames[DayOfWeek(getProddato())];    result := FormatSettings.LongDayNames[DayOfWeek(getProddato())];
5564    //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
5565  end;  end;
5566    
Legend:
Removed from v.2647  
changed lines
  Added in v.2653
  ViewVC Help
Powered by ViewVC 1.1.20