362 |
else if (Sted = 'TK') then |
else if (Sted = 'TK') then |
363 |
begin StedNavn := 'BK/Trykkompagniet: '; end |
begin StedNavn := 'BK/Trykkompagniet: '; end |
364 |
else if (Sted = 'DBK') then |
else if (Sted = 'DBK') then |
365 |
begin StedNavn := 'DBK Køge: '; end |
begin StedNavn := 'DBK/Køge: '; end |
366 |
else if (Sted = '1') then |
else if (Sted = '1') then |
367 |
begin StedNavn := 'Ålborg: '; end |
begin StedNavn := 'Ålborg: '; end |
368 |
else if (Sted = '2') then |
else if (Sted = '2') then |
772 |
PanelValg5.Font.Color := clInactiveCaption; |
PanelValg5.Font.Color := clInactiveCaption; |
773 |
PanelValg6.Enabled := false; |
PanelValg6.Enabled := false; |
774 |
PanelValg6.Font.Color := clInactiveCaption; |
PanelValg6.Font.Color := clInactiveCaption; |
775 |
PanelValg7.Enabled := false; |
|
|
PanelValg7.Font.Color := clInactiveCaption; |
|
776 |
|
|
777 |
// her skal vi også disable de menupunkter DBK ikke kan bruge |
// her skal vi også disable de menupunkter DBK ikke kan bruge |
778 |
ReturpakkerfraDAO1.Enabled := false; |
ReturpakkerfraDAO1.Enabled := false; |
1146 |
|
|
1147 |
if Key = #13 then // Enter |
if Key = #13 then // Enter |
1148 |
begin |
begin |
1149 |
if (Length(Trim(Stregkode)) = 0) then |
|
1150 |
|
// Sikre at den er trimmet inden vi går videre - DBK kan finde på at encode et space i enden af deres barcodes |
1151 |
|
Stregkode := Trim(Stregkode); |
1152 |
|
|
1153 |
|
if (Length(Stregkode) = 0) then |
1154 |
begin |
begin |
1155 |
VisAlarmSkaerm( 'Der skal scannes en stregkode...' ); |
VisAlarmSkaerm( 'Der skal scannes en stregkode...' ); |
1156 |
|
|