/[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 2650 by torben, Thu Aug 20 20:58:26 2015 UTC revision 2655 by torben, Sun Aug 23 11:06:48 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 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 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;
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 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 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 154  type Line 154  type
154    procedure InitIndleveringskode();    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);
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 472  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 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 711  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    
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 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 1294  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 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 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 2603  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 2757  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 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    
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 2875  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 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 3783  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 3815  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;
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 3847  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;
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 3874  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;
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 3901  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;
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 3937  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;
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 3975  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;
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 4017  begin Line 4016  begin
4016        InitForm(FarveReturPakkeshop,TitelReturPakkeshop,UrlReturPakkeshop);        InitForm(FarveReturPakkeshop,TitelReturPakkeshop,UrlReturPakkeshop);
4017        PanelValg7.Color := clGreen;        PanelValg7.Color := clGreen;
4018        PanelValg7.Font.Color := clWhite;        PanelValg7.Font.Color := clWhite;
4019        CheckBox1.Enabled := false;  
4020        CheckBox2.Enabled := false;        chkAltidPrintLabel.Enabled := false;
4021        Altidprintepakkelabel1.Enabled := false;        Altidprintepakkelabel1.Enabled := false;
4022        CheckBox2.Checked := false;  
4023        Altidprintepakkelabel1.Checked := false;        Altidprintepakkelabel1.Checked := false;
4024        Sprgefterboghandlernummer1.Checked := false;        Sprgefterboghandlernummer1.Checked := false;
4025        CheckBox1.Checked := false;        chkSporgEfterKunde.Checked := false;
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 4057  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 4066  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 := '';
# Line 5622  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.2650  
changed lines
  Added in v.2655
  ViewVC Help
Powered by ViewVC 1.1.20