1600 |
|
|
1601 |
if not PakkeshopLevering1.Checked and not Pakkernormal1.Checked or (PakkeshopLevering1.Checked and (PakkeshopStregkode <> '') and (PakkeshopTjekkode <> '')) or (Pakkernormal1.Checked and (Scanogstjekkoden1.Checked and (BoghandlerStregkode <> '') and (BoghandlerTjekkode <> '') or not Scanogstjekkoden1.Checked)) then |
if not PakkeshopLevering1.Checked and not Pakkernormal1.Checked or (PakkeshopLevering1.Checked and (PakkeshopStregkode <> '') and (PakkeshopTjekkode <> '')) or (Pakkernormal1.Checked and (Scanogstjekkoden1.Checked and (BoghandlerStregkode <> '') and (BoghandlerTjekkode <> '') or not Scanogstjekkoden1.Checked)) then |
1602 |
begin |
begin |
1603 |
|
|
1604 |
if PakkeshopLevering1.Checked and (PakkeshopStregkode <> '') and (PakkeshopTjekkode <> '') then |
if PakkeshopLevering1.Checked and (PakkeshopStregkode <> '') and (PakkeshopTjekkode <> '') then |
1605 |
StregKode := PakkeshopStregkode; |
StregKode := PakkeshopStregkode; |
1606 |
if Pakkernormal1.Checked and ((BoghandlerStregkode <> '') and (BoghandlerTjekkode <> '') or not Scanogstjekkoden1.Checked) then |
if Pakkernormal1.Checked and ((BoghandlerStregkode <> '') and (BoghandlerTjekkode <> '') or not Scanogstjekkoden1.Checked) then |
1675 |
begin |
begin |
1676 |
VisAlarmSkaerm(''); |
VisAlarmSkaerm(''); |
1677 |
end; |
end; |
1678 |
|
|
1679 |
if not btnNulstil.Visible then |
if not btnNulstil.Visible then |
1680 |
begin |
begin |
1681 |
|
|
1768 |
|
|
1769 |
|
|
1770 |
begin |
begin |
1771 |
if Budlevering1.Checked or Pakkeshoplevering1.Checked or Returpakkerfrapakkeshop1.Checked or Pakkernormal1.Checked then |
if Budlevering1.Checked or Pakkeshoplevering1.Checked or Returpakkerfrapakkeshop1.Checked or Pakkernormal1.Checked or menuIndlevering.Checked then |
1772 |
begin |
begin |
1773 |
for i := ListBox2.items.count-1 downto 0 do |
for i := ListBox2.items.count-1 downto 0 do |
1774 |
if pos(StregKode,ListBox2.items[i]) <> 0 then |
if pos(StregKode,ListBox2.items[i]) <> 0 then |
2152 |
PrintNyLabel := True; //Indleveringskode vil ALTID udskrive label |
PrintNyLabel := True; //Indleveringskode vil ALTID udskrive label |
2153 |
PakkeshopLabel := TPakkeshopLabel.Create( XMLDocument1 ); //Opret struct og parse xml doc |
PakkeshopLabel := TPakkeshopLabel.Create( XMLDocument1 ); //Opret struct og parse xml doc |
2154 |
RuteNummer := PakkeshopLabel.Koreliste; |
RuteNummer := PakkeshopLabel.Koreliste; |
2155 |
|
Stregkode := PakkeshopLabel.Stregkode; |
2156 |
|
|
2157 |
PrintPakkeshopLabel( PakkeshopLabel ); |
PrintPakkeshopLabel( PakkeshopLabel ); |
2158 |
|
|
2286 |
List1msg := List1msg + '; ' + Stregkode + ' (' + BoghandlerTjekkode + ')' + '; ' + Kommentar; |
List1msg := List1msg + '; ' + Stregkode + ' (' + BoghandlerTjekkode + ')' + '; ' + Kommentar; |
2287 |
end; |
end; |
2288 |
end; |
end; |
2289 |
|
if menuIndlevering.Checked then |
2290 |
|
begin |
2291 |
|
List1Msg := Stregkode; |
2292 |
|
end; |
2293 |
|
|
2294 |
|
|
2295 |
ListBox1.Items.Insert(0,List1Msg); |
ListBox1.Items.Insert(0,List1Msg); |
2296 |
logTekst := RightStr(List1Msg, Length(List1Msg)-10); |
logTekst := RightStr(List1Msg, Length(List1Msg)-10); |
2297 |
SkrivScanningLogFil(logTekst); |
SkrivScanningLogFil(logTekst); |