Index: CHUI/Flow/Offerte/Offerte.cls.xml
===================================================================
diff -u -r1074 -r1437
--- CHUI/Flow/Offerte/Offerte.cls.xml	(.../Offerte.cls.xml)	(revision 1074)
+++ CHUI/Flow/Offerte/Offerte.cls.xml	(.../Offerte.cls.xml)	(revision 1437)
@@ -198,9 +198,8 @@
 	. Else  If $P(R,"`")="Ok" Set $P(R,"`",3)="HD" ; Mag bewerkt worden
 	. Set LD("B",I)=R
 	Do WRITE^vhLIST(.LD)
-	; Controle op onbekende producten bij het begin van de verwerking
-	For I=1:1 Set R=$G(List(I)) Quit:R=""  If $P(R,D)="P",$P(R,D,5)'?4.6N Quit
-	Do:$L(R) WARN^vhTXTPOP("Deze aanvraag bevat onbekende producten.","")
+	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))=""
 	. Quit:'$D(PRNrs)
@@ -307,6 +306,64 @@
 
 <UDLText name="T">
 <Content><![CDATA[
+// Controle op onbekende producten bij het begin van de verwerking
+
+]]></Content>
+</UDLText>
+
+<Method name="OnbekendeProducten">
+<ClassMethod>1</ClassMethod>
+<FormalSpec><![CDATA[&List]]></FormalSpec>
+<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
+	Do:$L(R) WARN^vhTXTPOP("Deze aanvraag bevat onbekende producten.","")
+	Quit
+]]></Implementation>
+</Method>
+
+<UDLText name="T">
+<Content><![CDATA[
+// Controle op niet-stock producten bij het begin van de verwerking
+
+]]></Content>
+</UDLText>
+
+<Method name="NietStockProducten">
+<ClassMethod>1</ClassMethod>
+<FormalSpec><![CDATA[&List]]></FormalSpec>
+<ProcedureBlock>0</ProcedureBlock>
+<Implementation><![CDATA[
+	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:$P(^KPR(PRNr,1),D,20)
+	. Set SortKey=$$SORTKEY^PRODUKT(PRNr),NietStock("S",SortKey)=PRNr
+	Do:$D(NietStock)
+	. Set SortKey="",Count=0
+	. For  Set SortKey=$O(NietStock("S",SortKey)) Quit:SortKey=""  Do
+	. . Set R=NietStock("S",SortKey)
+	. . Set Count=Count+1
+	. . Set NietStock(Count)=R
+	. Kill NietStock("S")
+	. Do STORE^vhTERMINA()
+	. Do INIT^vhLIST("CHUI.Flow.Offerte.Offerte","NSPROD",.LD)
+	. Set R=LD("POS"),$P(R,";")=$P(R,";")-(Count\2)
+	. Set:$P(R,";")<10 $P(R,";")=10
+	. Set $P(R,";",3)=$P(R,";")+Count-1
+	. Set:$P(R,";",3)>19 $P(R,";",3)=19
+	. Set LD("POS")=R
+	. Do WRITE^vhLIST(.LD)
+	. Set R=$$SCROLL^vhLIST(.LD)
+	. Do REFRESH^vhTERMINA()
+	Quit
+]]></Implementation>
+</Method>
+
+<UDLText name="T">
+<Content><![CDATA[
 // Zal een lijn eventueel moeten verschoven worden naar later?
 
 ]]></Content>
@@ -583,6 +640,7 @@
 <FormalSpec>OfferteNr</FormalSpec>
 <Implementation><![CDATA[
  	Set oOfferte=##Class(Flow.Offerte.Hoofding).%OpenId(OfferteNr)
+ 	  
  	Do:$IsObject(oOfferte) ; Controle van het ingegeven webshop- met het defaultadres
  	. Set KLNr=oOfferte.Klant.Nummer
  	. Set DefaultAdres=$$DEFAULT^LEVADR(KLNr),OfferteAdres=##Class(BL.Flow.Offerte.Offerte).GetLA(OfferteNr)