Index: PlanScan/PlanScan.identcache
===================================================================
diff -u -r642 -r655
Binary files differ
Index: PlanScan/UI/frameDnaCodes.dfm
===================================================================
diff -u -r544 -r655
--- PlanScan/UI/frameDnaCodes.dfm	(.../frameDnaCodes.dfm)	(revision 544)
+++ PlanScan/UI/frameDnaCodes.dfm	(.../frameDnaCodes.dfm)	(revision 655)
@@ -308,7 +308,7 @@
       ParentFont = False
     end
     object lblPallet: TLabel
-      Left = 103
+      Left = 84
       Top = 12
       Width = 31
       Height = 16
@@ -321,7 +321,7 @@
       ParentFont = False
     end
     object lblToelevering: TLabel
-      Left = 198
+      Left = 236
       Top = 12
       Width = 67
       Height = 16
@@ -334,11 +334,11 @@
       ParentFont = False
     end
     object lblKlantNummer: TLabel
-      Left = 293
+      Left = 312
       Top = 12
-      Width = 76
+      Width = 41
       Height = 16
-      Caption = 'Klantnummer'
+      Caption = 'KlantNr'
       Font.Charset = DEFAULT_CHARSET
       Font.Color = clWindowText
       Font.Height = -13
@@ -349,9 +349,9 @@
     object lblOrderNummer: TLabel
       Left = 388
       Top = 12
-      Width = 81
+      Width = 46
       Height = 16
-      Caption = 'Ordernummer'
+      Caption = 'OrderNr'
       Font.Charset = DEFAULT_CHARSET
       Font.Color = clWindowText
       Font.Height = -13
@@ -360,7 +360,7 @@
       ParentFont = False
     end
     object lblLadeCode: TLabel
-      Left = 483
+      Left = 464
       Top = 12
       Width = 54
       Height = 16
@@ -373,7 +373,7 @@
       ParentFont = False
     end
     object lblBatch: TLabel
-      Left = 578
+      Left = 540
       Top = 12
       Width = 31
       Height = 16
@@ -385,9 +385,22 @@
       Font.Style = []
       ParentFont = False
     end
+    object Label1: TLabel
+      Left = 160
+      Top = 12
+      Width = 21
+      Height = 16
+      Caption = 'LPN'
+      Font.Charset = DEFAULT_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -13
+      Font.Name = 'Tahoma'
+      Font.Style = []
+      ParentFont = False
+    end
     object btnZoeken: TButton
-      Left = 704
-      Top = 32
+      Left = 640
+      Top = 25
       Width = 115
       Height = 25
       Caption = 'Zoeken'
@@ -397,34 +410,34 @@
     object edtDnaCode: TEdit
       Left = 8
       Top = 34
-      Width = 89
+      Width = 70
       Height = 21
       TabOrder = 1
       OnEnter = edtToeleveringEnter
       OnKeyUp = edtDnaCodeKeyUp
     end
     object edtPallet: TEdit
-      Left = 103
+      Left = 84
       Top = 34
-      Width = 89
+      Width = 70
       Height = 21
       TabOrder = 2
       OnEnter = edtToeleveringEnter
       OnKeyUp = edtDnaCodeKeyUp
     end
     object edtToelevering: TEdit
-      Left = 198
+      Left = 236
       Top = 34
-      Width = 89
+      Width = 70
       Height = 21
       TabOrder = 3
       OnEnter = edtToeleveringEnter
       OnKeyUp = edtDnaCodeKeyUp
     end
     object edtKlantNummer: TEdit
-      Left = 293
+      Left = 312
       Top = 34
-      Width = 89
+      Width = 70
       Height = 21
       TabOrder = 4
       OnEnter = edtToeleveringEnter
@@ -433,30 +446,39 @@
     object edtOrderNummer: TEdit
       Left = 388
       Top = 34
-      Width = 89
+      Width = 70
       Height = 21
       TabOrder = 5
       OnEnter = edtToeleveringEnter
       OnKeyUp = edtDnaCodeKeyUp
     end
     object edtLadeCode: TEdit
-      Left = 483
+      Left = 464
       Top = 34
-      Width = 89
+      Width = 70
       Height = 21
       TabOrder = 6
       OnEnter = edtToeleveringEnter
       OnKeyUp = edtDnaCodeKeyUp
     end
     object edtBatch: TEdit
-      Left = 578
+      Left = 540
       Top = 34
-      Width = 89
+      Width = 70
       Height = 21
       TabOrder = 7
       OnEnter = edtToeleveringEnter
       OnKeyUp = edtDnaCodeKeyUp
     end
+    object edtLPN: TEdit
+      Left = 160
+      Top = 34
+      Width = 70
+      Height = 21
+      TabOrder = 8
+      OnEnter = edtToeleveringEnter
+      OnKeyUp = edtDnaCodeKeyUp
+    end
   end
   object dsDnaCodes: TDataSource
     Left = 32
Index: PlanScan/UI/frameDnaCodes.pas
===================================================================
diff -u -r625 -r655
--- PlanScan/UI/frameDnaCodes.pas	(.../frameDnaCodes.pas)	(revision 625)
+++ PlanScan/UI/frameDnaCodes.pas	(.../frameDnaCodes.pas)	(revision 655)
@@ -33,6 +33,8 @@
     lblLadeCode: TLabel;
     edtBatch: TEdit;
     lblBatch: TLabel;
+    Label1: TLabel;
+    edtLPN: TEdit;
     procedure ZoekViaDnaCode();
     procedure ZoekViaPallet();
     procedure ZoekViaToelevering();