Index: AAPClient/UI/HernoemPalletScherm.pas =================================================================== diff -u -r218 -r220 --- AAPClient/UI/HernoemPalletScherm.pas (.../HernoemPalletScherm.pas) (revision 218) +++ AAPClient/UI/HernoemPalletScherm.pas (.../HernoemPalletScherm.pas) (revision 220) @@ -68,12 +68,11 @@ if pcHernoemPallet.ActivePageIndex = 0 then begin fEnkelDezeDnaCode := ''; if ((length(edtOudeCode.Text)=7) and CheckBestaandeDnaCode(edtOudeCode.Text)) then begin - if ToonPopupScherm('Enkel code ''' + edtOudeCode.Text + ''' verwerken?','Ja','Nee') = mrYes then begin + if ToonPopupScherm('Enkel code ''' + edtOudeCode.Text + ''' verwerken?','Ja','Nee',14,6,7) = mrYes then begin fEnkelDezeDnaCode := edtOudeCode.Text end; end; - - HernoemPallet(edtOudeCode.Text,fEnkelDezeDnaCode); + HernoemPallet(edtOudeCode.Text,''); end else if pcHernoemPallet.ActivePageIndex = 1 then begin pcHernoemPallet.ActivePageIndex := 2; end else if pcHernoemPallet.ActivePageIndex = 2 then begin