289 |
procedure TMainForm.InitForm(Farve,Titel,Url : String); |
procedure TMainForm.InitForm(Farve,Titel,Url : String); |
290 |
begin |
begin |
291 |
|
|
292 |
|
IdHTTP1.ConnectTimeout := 5000; // Vent max 5 sek på connect |
293 |
|
IdHTTP1.ReadTimeout := 10000; // Vent max 10 sek på read |
294 |
|
|
295 |
|
|
296 |
|
|
297 |
|
|
298 |
StaticTextManglendePakker.Caption := ''; |
StaticTextManglendePakker.Caption := ''; |
299 |
|
|
300 |
|
|
750 |
SpecialVersionSted := 'NS'; |
SpecialVersionSted := 'NS'; |
751 |
{$EndIf} |
{$EndIf} |
752 |
|
|
|
|
|
753 |
//SpecialVersionSted := '01'; // NS - bruges sammen med nedenstående SpecialVersionScanningtype DIREKTE) |
//SpecialVersionSted := '01'; // NS - bruges sammen med nedenstående SpecialVersionScanningtype DIREKTE) |
754 |
//SpecialVersionSted := '02'; // BK - BRUGES IKKE (brug i stedet ovenstående SpecialVersionSted BK) |
//SpecialVersionSted := '02'; // BK - BRUGES IKKE (brug i stedet ovenstående SpecialVersionSted BK) |
755 |
//SpecialVersionSted := '03'; // FD - (bruges sammen med nedenstående SpecialVersionScanningtype DIREKTE) |
//SpecialVersionSted := '03'; // FD - (bruges sammen med nedenstående SpecialVersionScanningtype DIREKTE) |
767 |
|
|
768 |
if SpecialVersionSted = 'NS' then |
if SpecialVersionSted = 'NS' then |
769 |
begin |
begin |
770 |
SpecialVersionSted := '01'; |
//SpecialVersionSted := '01'; // Fra før NS overtog scanning løssalg |
771 |
SpecialVersionScanningtype := '4'; |
//SpecialVersionScanningtype := '4'; |
772 |
|
|
773 |
|
//FarveNormal := 'A9F5A9'; // her kan vi evt. overrule ini fil |
774 |
|
Sted := SpecialVersionSted; |
775 |
|
// her skal vi også disable de knapper BK ikke kan bruge |
776 |
|
PanelValg2.Enabled := false; |
777 |
|
PanelValg2.Font.Color := clInactiveCaption; |
778 |
|
PanelValg3.Enabled := false; |
779 |
|
PanelValg3.Font.Color := clInactiveCaption; |
780 |
|
//PanelValg6.Enabled := false; |
781 |
|
//PanelValg6.Font.Color := clInactiveCaption; |
782 |
|
|
783 |
|
// her skal vi også disable de menupunkter FD ikke kan bruge |
784 |
|
ReturpakkerfraDAO1.Enabled := false; |
785 |
|
Returpakkerfraboghandler1.Enabled := false; |
786 |
|
|
787 |
|
//Returpakkerfrapakkeshop1.Enabled := false; |
788 |
end; |
end; |
789 |
|
|
790 |
if SpecialVersionSted = 'FD' then |
if SpecialVersionSted = 'FD' then |
3002 |
SmsKode := '999999'; |
SmsKode := '999999'; |
3003 |
DBKbane := '999'; |
DBKbane := '999'; |
3004 |
Leveringssted := 'XXX'; |
Leveringssted := 'XXX'; |
3005 |
LabelPrint.TestZpl(); |
PrintLabel(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted, Falsk); |
|
//PrintLabel(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted, Falsk); |
|
3006 |
LabelPrint.CheckPrintQue('Test', PrinterNavn); |
LabelPrint.CheckPrintQue('Test', PrinterNavn); |
3007 |
end; |
end; |
3008 |
FocusControl(StregkodeST); |
FocusControl(StregkodeST); |
4276 |
begin |
begin |
4277 |
// Her skal vi ikke gøre noget - men vi skal forespørge igen |
// Her skal vi ikke gøre noget - men vi skal forespørge igen |
4278 |
WebSvar := IdHTTP1.Get(URLStr); |
WebSvar := IdHTTP1.Get(URLStr); |
4279 |
|
|
4280 |
|
|
4281 |
|
|
4282 |
end; |
end; |
4283 |
on e:exception do |
on e:exception do |
4284 |
begin |
begin |