Index: CHUI/Flow/Offerte/Offerte.cls.xml
===================================================================
diff -u -r1437 -r17620
--- CHUI/Flow/Offerte/Offerte.cls.xml	(.../Offerte.cls.xml)	(revision 1437)
+++ CHUI/Flow/Offerte/Offerte.cls.xml	(.../Offerte.cls.xml)	(revision 17620)
@@ -201,7 +201,7 @@
 	Do ..OnbekendeProducten(.List)
 	Do ..NietStockProducten(.List)
 	Do:'Raadplegen
-	. For I=1:1 Set R=$G(List(I)) Quit:R=""  If $P(R,D)="P",$P(R,D,5)?4.6N Set PRNrs($P(R,D,5))=""
+	. For I=1:1 Set R=$G(List(I)) Quit:R=""  If $P(R,D)="P",$P(R,D,5)?4.7N Set PRNrs($P(R,D,5))=""
 	. Quit:'$D(PRNrs)
 	. Do STORE^vhTERMINA(),..DPlus2(KlantNr,.PRNrs),REFRESH^vhTERMINA()
 	For  Set Input=$S($L($G(AutoInput)):AutoInput,1:$$SCROLL^vhLIST(.LD)) Quit:Input="A"  Do  If '$L($G(AutoInput)),"\I\O\A\"[(D_Input_D) Quit
@@ -239,7 +239,7 @@
 	. . Set Rec=$G(List(LD("SELECT")))
 	. . Quit:$P(Rec,D)'="P"
 	. . Set OldProductNr=$P($P(Rec,D,5),"#"),Aantal=$P(Rec,D,8)
-	. . If OldProductNr'?4.6N,'Aantal Quit
+	. . If OldProductNr'?4.7N,'Aantal Quit
 	. . Set SearchKeys=$P(Rec,D,7),Pakketten=""
 	. . ; Default input voor productselectie opzetten via de searchkeys
 	. . For I=1:1:$LL(SearchKeys) Do
@@ -261,7 +261,7 @@
 	. . Set Offerte("L",GroepKey)=Rec
 	. . Do WRITE^vhLIST(.LD)
 	. . Quit:'$D(Pakket)
-	. . Kill:OldProductNr?4.6N Pakketten(OldProductNr)
+	. . Kill:OldProductNr?4.7N Pakketten(OldProductNr)
 	. . Merge Pakketten(ProductNr)=Pakket
 	. . Set (R,Pakket)=""
 	. . For  Set Pakket=$O(Pakket(Pakket)) Quit:Pakket=""  Do
@@ -275,7 +275,7 @@
 	. If Input="L" Do ..EditLA(OfferteNr),WRITE^vhLIST(.LD)
 	. If Input="I" Do
 	. . ; Controle op onbekende producten
-	. . For I=1:1 Set R=$G(List(I)) Quit:R=""  If $P(R,D)="P",$P(R,D,5)'?4.6N Quit
+	. . For I=1:1 Set R=$G(List(I)) Quit:R=""  If $P(R,D)="P",$P(R,D,5)'?4.7N Quit
 	. . If $L(R) Set R=$$^vhTXTPOP("CHUI.Flow.Offerte.Offerte","NOPROD") If R'="I" Set AutoInput="?" Quit
 	. . If '..CheckLA(OfferteNr) Do  Quit
 	. . . Do WARN^vhTXTPOP("Gelieve het leveringsadres te controleren!","")
@@ -317,7 +317,7 @@
 <ProcedureBlock>0</ProcedureBlock>
 <Implementation><![CDATA[
 	New I,R
-	For I=1:1 Set R=$G(List(I)) Quit:R=""  If $P(R,D)="P",$P(R,D,5)'?4.6N Quit
+	For I=1:1 Set R=$G(List(I)) Quit:R=""  If $P(R,D)="P",$P(R,D,5)'?4.7N Quit
 	Do:$L(R) WARN^vhTXTPOP("Deze aanvraag bevat onbekende producten.","")
 	Quit
 ]]></Implementation>
@@ -338,7 +338,7 @@
 	New I,R,NietStock,SortKey,Count,LD
 	For I=1:1 Set R=$G(List(I)) Quit:R=""  Do:$P(R,D)="P"
 	. Set PRNr=$P(R,D,5)
-	. Quit:PRNr'?4.6N
+	. Quit:PRNr'?4.7N
 	. Quit:$P(^KPR(PRNr,1),D,20)
 	. Set SortKey=$$SORTKEY^PRODUKT(PRNr),NietStock("S",SortKey)=PRNr
 	Do:$D(NietStock)