Index: CHUI/Flow/Offerte/Offerte.cls.xml
===================================================================
diff -u -r734 -r1074
--- CHUI/Flow/Offerte/Offerte.cls.xml	(.../Offerte.cls.xml)	(revision 734)
+++ CHUI/Flow/Offerte/Offerte.cls.xml	(.../Offerte.cls.xml)	(revision 1074)
@@ -1,12 +1,10 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-01-27 17:00:54">
+<Export generator="Cache" version="9">
 <Class name="CHUI.Flow.Offerte.Offerte">
 <ClassType>persistent</ClassType>
 <IncludeCode>BL.EC.Common</IncludeCode>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%Persistent</Super>
-<TimeChanged>61893,56776.376398</TimeChanged>
-<TimeCreated>60400,32067.918654</TimeCreated>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <UDLText name="T">
@@ -170,7 +168,7 @@
 <ProcedureBlock>0</ProcedureBlock>
 <Implementation><![CDATA[
 	New I,R,LD,Input,AutoInput,Obj,ObjLijn,ObjProd,Referentie,Delete,ProductNr,Tekst,Rec,Key,OfferteNr,KlantNr,ORDNr
-	,GroepKey,PrijsRec,Raadplegen,OfferteStatus,SearchKeys,Pakket,Pakketten,Aantal,PAKNr
+	,GroepKey,PrijsRec,Raadplegen,OfferteStatus,SearchKeys,Pakket,Pakketten,Aantal,PAKNr,PRNrs
 	Set OfferteNr=$P(Offerte("H"),D),KlantNr=$P(Offerte("H"),D,2),OfferteStatus=..OfferteStatus(OfferteNr),Raadplegen=OfferteStatus'="W"
 	Set Status=..EDIorderReedsVerwerkt(KlantNr,OfferteNr)
 	If $$$ISERR(Status) Do  Quit:StopVerwerking
@@ -203,6 +201,10 @@
 	; 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:'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)
+	. 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
 	. Kill AutoInput
 	. If Input="B" Do  ; Verwerk zwevende offerte
@@ -305,6 +307,58 @@
 
 <UDLText name="T">
 <Content><![CDATA[
+// Zal een lijn eventueel moeten verschoven worden naar later?
+
+]]></Content>
+</UDLText>
+
+<Method name="DPlus2">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>KLNr,PRNrs</FormalSpec>
+<ProcedureBlock>0</ProcedureBlock>
+<Implementation><![CDATA[
+	New R,PRNr,VerzendWijze,LandCode,PostCode,MagOpschuiven,blVerzendWijze,blLeveringsTermijn,VroegsteLeverDag,Producten,SortKey,LD
+	Set VerzendWijze=$$DEFAULT^KLVERZW(,KLNr)
+	Set LandCode=$$LAND^vhRtn1(KLNr,"K")
+	Set PostCode=$P(^KKL(^KK1(KLNr),0),D,6)
+	Set blVerzendWijze=##class(DOM.VKP.VerzendWijze).%New(KLNr,VerzendWijze,LandCode,PostCode)
+	Set blLeveringsTermijn=##class(DOM.VKP.LeveringsTermijn).%New($H,blVerzendWijze)
+	Set MagOpschuiven=blVerzendWijze.MagOpschuivenIndienAutoSendAf() ; Mag men voor deze verzendwijze opschuiven naar D+2?
+	If MagOpschuiven { ; Deze verzendwijze mag opschuiven naar D+2
+		 Set PRNr=""
+		 For {
+			 Set PRNr=$O(PRNrs(PRNr))
+			 Quit:'PRNr
+			 Continue:$$MagazijnBeschikbaarVoorProduct^EWORDSM(PRNr,,,1)  ; Het magazijn voor dit product is niet beschikbaar voor automatisch doorsturen
+			 Set VroegsteLeverDag=$$GetLeverDag^FLOW3(KLNr,PRNr,,1)
+			 Continue:VroegsteLeverDag>$$CALCDATE^vhDTyp(,"A",1)  ; Is voor levering na volgende arbeidsdag
+			 Set SortKey=$$SORTKEY^PRODUKT(PRNr)
+			 Set Producten("S",SortKey)=PRNr
+		 }
+		 If $D(Producten) {
+			 Set SortKey="",Count=0
+			 For {
+				 Set SortKey=$O(Producten("S",SortKey))
+				 Quit:SortKey=""
+				 Set PRNr=Producten("S",SortKey)
+				 Set Count=Count+1,Producten("L",Count)=PRNr
+			 }
+			 Do INIT^vhLIST("CHUI.Flow.Offerte.Offerte","DPLUS2",.LD)
+			 Set R=$P(LD("POS"),"`")
+			 Set $P(R,";")=$P(R,";")-(Count\2)
+			 Set:$P(R,";")<5 $P(R,";")=5
+			 Set $P(R,";",3)=$P(R,";",3)+(Count-(Count\2))-1
+			 Set:$P(R,";",3)>21 $P(R,";",3)=21
+			 Set $P(LD("POS"),"`")=R
+			 Do WRITE^vhLIST(.LD)
+			 Set R=$$SCROLL^vhLIST(.LD)
+		 }
+	}
+]]></Implementation>
+</Method>
+
+<UDLText name="T">
+<Content><![CDATA[
 // Bepalen van het leverings adres voor het display
 
 ]]></Content>
@@ -580,5 +634,4 @@
 </Data>
 </Storage>
 </Class>
-<Checksum value="1158911622"/>
 </Export>