Index: APPS/VKP/LeveringsTermijn.cls.xml
===================================================================
diff -u -r29059 -r31145
--- APPS/VKP/LeveringsTermijn.cls.xml	(.../LeveringsTermijn.cls.xml)	(revision 29059)
+++ APPS/VKP/LeveringsTermijn.cls.xml	(.../LeveringsTermijn.cls.xml)	(revision 31145)
@@ -63,14 +63,14 @@
 <Description>
 Verzendwijze afhankelijke verwerking
 Wordt mee geïnitieerd tijdens de initialisatie</Description>
-<Type>VerzendWijze</Type>
+<Type>APPS.VKP.VerzendWijze</Type>
 </Property>
 
 <Method name="Test">
 <Description>
 Do ##class(APPS.VKP.LeveringsTermijn).Test(2865,375655,"OD3;1`OD3;3")</Description>
 <ClassMethod>1</ClassMethod>
-<FormalSpec>KLNr,PRNr,VerzendWijze</FormalSpec>
+<FormalSpec>KLNr:%String,PRNr:%String,VerzendWijze:%String</FormalSpec>
 <ProcedureBlock>0</ProcedureBlock>
 <Implementation><![CDATA[
 	New I,bl,LandCode,PostCode,Beschikbaar,VroegstePick,Transport,VroegsteLevering,AfrondenLevering,lbDatums,LaatstePick,RecalcPick
@@ -115,10 +115,10 @@
 <Method name="%OnNew">
 <Description>
 Verzendwijze is opgebouwd als "OD;1`OD;4" en moet geconverteerd worden</Description>
-<FormalSpec>RefDate,blVerzendWijze</FormalSpec>
+<FormalSpec>RefDate:%Date="",blVerzendWijze:APPS.VKP.VerzendWijze</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-	Set ..RefDate=$G(RefDate)
+	Set ..RefDate=RefDate
 	Set ..KLNr=blVerzendWijze.KLNr
 	Set ..blVerzendWijze=blVerzendWijze
 	Quit:'$isObject(..blVerzendWijze) $$$ERR("Verzendwijze object niet beschikbaar")
@@ -129,10 +129,11 @@
 <Method name="GetVroegsteLeverDag">
 <Description>
 Geef de eerstvolgende leverdag op basis van de opgeven PickDatum</Description>
-<FormalSpec>PickDatum</FormalSpec>
+<FormalSpec>PickDatum:%Date</FormalSpec>
+<ReturnType>%Date</ReturnType>
 <Implementation><![CDATA[
-	Set LeverDatum = ..GetVroegsteLevering(PickDatum)
-	Set LeverDag = ..AfrondenLeverDag(LeverDatum)
+	#dim LeverDatum As %Date = ..GetVroegsteLevering(PickDatum)
+	#dim LeverDag As %Date = ..AfrondenLeverDag(LeverDatum)
 	Quit LeverDag
 ]]></Implementation>
 </Method>
@@ -141,6 +142,7 @@
 <Description>
 Geef de eerstvolgende leverdag op basis van de verzendwijze en aanleverdagen</Description>
 <FormalSpec>LeverDatum:%Date</FormalSpec>
+<ReturnType>%Date</ReturnType>
 <Implementation><![CDATA[ 	Quit ..blVerzendWijze.AfrondenLeverDag(LeverDatum)
 ]]></Implementation>
 </Method>
@@ -167,17 +169,18 @@
 </Method>
 
 <Method name="GetLaatstePickingsTijdstip">
-<FormalSpec>LeverDatum</FormalSpec>
-<ReturnType>%TimeStamp</ReturnType>
+<FormalSpec>LeverDatum:%Date</FormalSpec>
+<ReturnType>TECH.Horolog</ReturnType>
 <Implementation><![CDATA[	Quit ..GetLaatstePicking(LeverDatum)_","_..blVerzendWijze.DueOutPickingTime()
 ]]></Implementation>
 </Method>
 
 <Method name="GetLaatsteProductieTijdstip">
-<FormalSpec>LeverDatum</FormalSpec>
+<FormalSpec>LeverDatum:%Date</FormalSpec>
+<ReturnType>TECH.Horolog</ReturnType>
 <Implementation><![CDATA[
-	Set ProductieDatum=..GetLaatstePicking(LeverDatum)
-	Set DagenVroeger=..blVerzendWijze.DueOutProductieDagenVroeger()
+	#dim ProductieDatum As %Date =..GetLaatstePicking(LeverDatum)
+	#dim DagenVroeger As %Integer =..blVerzendWijze.DueOutProductieDagenVroeger()
 	If DagenVroeger Set ProductieDatum=$$CALCDATE^vhLib.DataTypes(ProductieDatum,"A",-DagenVroeger)
 	Set ProductieDatum=..CheckExeption($$$LevHalux, ProductieDatum, -1)
 	Quit ProductieDatum_","_..blVerzendWijze.DueOutProductieTime()
@@ -196,18 +199,20 @@
 </Method>
 
 <Method name="GetVroegsteDatumFromTermijn">
-<FormalSpec>lbTermijn</FormalSpec>
+<FormalSpec>lbTermijn:%List</FormalSpec>
 <ReturnType>%Date</ReturnType>
 <Implementation><![CDATA[
- ; datum zonder verzending
- If $LG(lbTermijn,2)="A" Do
- . Set Datum=$$CALCDATE^vhLib.DataTypes(..RefDate,"A",$LG(lbTermijn,1)) ; dagen
- Else  Do
- . Set Datum1=$$CALCDATE^vhLib.DataTypes(..RefDate,"W","LD")
- . Set Datum2=$$CALCDATE^vhLib.DataTypes(Datum1,"A",$LG(lbTermijn,1)*5)
- . Set MaxVerlof=$LG(lbTermijn,1)\2 Set:MaxVerlof<1 MaxVerlof=1 ; maximaal aantal verlof dagen, per 2 weken is er een extra dag speling
- . Set:Datum2'>(Datum1+($LG(lbTermijn,1)*7)+MaxVerlof) Datum2=Datum1+($LG(lbTermijn,1)*7) ; controleren of de speling MaxVerlof niet overtreden wordt, indien niet dan wordt er met weken gewerkt en niet met arbeidsdagen
- . Set Datum=$$CALCDATE^vhLib.DataTypes(Datum2,"W","LD")-2 ; vrijdag ipv zondag
+ #dim Datum As %Date 
+ If $LG(lbTermijn,2)="A" {
+ 	Set Datum=$$CALCDATE^vhLib.DataTypes(..RefDate,"A",$LG(lbTermijn,1)) ; dagen
+ } Else {
+ 	#dim Datum1 As %Date =$$CALCDATE^vhLib.DataTypes(..RefDate,"W","LD")
+ 	#dim Datum2 As %Date =$$CALCDATE^vhLib.DataTypes(Datum1,"A",$LG(lbTermijn,1)*5)
+ 	#dim MaxVerlof As %Numeric =$LG(lbTermijn,1)\2 
+ 	Set:MaxVerlof<1 MaxVerlof=1 ; maximaal aantal verlof dagen, per 2 weken is er een extra dag speling
+ 	Set:Datum2'>(Datum1+($LG(lbTermijn,1)*7)+MaxVerlof) Datum2=Datum1+($LG(lbTermijn,1)*7) ; controleren of de speling MaxVerlof niet overtreden wordt, indien niet dan wordt er met weken gewerkt en niet met arbeidsdagen
+ 	Set Datum=$$CALCDATE^vhLib.DataTypes(Datum2,"W","LD")-2 ; vrijdag ipv zondag
+ }
  Quit Datum
 ]]></Implementation>
 </Method>
@@ -220,9 +225,9 @@
 <Implementation><![CDATA[
 	Quit:'(+Datum=##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentDate()) Datum ; indien opgegeven pickdatum niet voor vandaag geen rekening houden magazijn
 	
-	Set MagazijnBeschikbaar=$P(^EWREC("MAGAZIJN","E"),"\") ; EWMS beschikbaar?
+	#dim MagazijnBeschikbaar As %Boolean =$P(^EWREC("MAGAZIJN","E"),"\") ; EWMS beschikbaar?
 	If 'MagazijnBeschikbaar {
-		Set MagOpschuiven=..blVerzendWijze.MagOpschuivenIndienAutoSendAf()
+		#dim MagOpschuiven As %Boolean =..blVerzendWijze.MagOpschuivenIndienAutoSendAf()
 		If MagOpschuiven Set Datum=$$CALCDATE^vhLib.DataTypes(,"A",1)  ; Picking is volgende arbeidsdag
 	}
 	Quit Datum
@@ -232,12 +237,12 @@
 <Method name="GetVroegstePicking">
 <Description>
 Berekenen van de picking</Description>
-<FormalSpec>PRNr</FormalSpec>
+<FormalSpec>PRNr:%Integer</FormalSpec>
 <Implementation><![CDATA[
- Set VroegstePickDatum= ..GetVroegsteDatumFromTermijn(..BeschikbaarTermijn(PRNr))
- Set LEVNr=$$$PRGet($$$LeveranciersNr)
- Set VroegstePickDatum=..CheckExeption(LEVNr,VroegstePickDatum,1)
- Quit VroegstePickDatum
+	 #dim VroegstePickDatum As %Date = ..GetVroegsteDatumFromTermijn(..BeschikbaarTermijn(PRNr))
+	 #dim LEVNr As %String = $$$PRGet($$$LeveranciersNr)
+	 Set VroegstePickDatum=..CheckExeption(LEVNr,VroegstePickDatum,1)
+	 Quit VroegstePickDatum
 ]]></Implementation>
 </Method>
 
@@ -273,9 +278,10 @@
 <Method name="GetLeverTermijn">
 <Description>
 Op welke termijn kunnen de goederen geleverd worden</Description>
-<FormalSpec>PRNr</FormalSpec>
+<FormalSpec>PRNr:%String</FormalSpec>
+<ReturnType>%List</ReturnType>
 <Implementation><![CDATA[
-	Set lbBeschikbaar=..BeschikbaarTermijn(PRNr)
+	#dim lbBeschikbaar As %List =..BeschikbaarTermijn(PRNr)
 	If $LI(lbBeschikbaar,2)="W" Do ; weken
 	. Set $LI(lbBeschikbaar)=$LI(lbBeschikbaar)+1 ; 1 extra week
 	Else  Do ; dagen
@@ -287,42 +293,41 @@
 <Method name="BeschikbaarTermijn">
 <Description>
 Op welke termijn zijn de goederen beschikbaar voor picking</Description>
-<FormalSpec>PRNr</FormalSpec>
+<FormalSpec>PRNr:%String</FormalSpec>
 <ReturnType>%List</ReturnType>
 <Implementation><![CDATA[
-	Set StockNietStock=$P(^KPR(PRNr,1),"\",20) ;1=Stock, Leeg=NietStock
+	#dim lbTermijn As %List
 	
-	If 'StockNietStock,..KLNr,$D(^KPBI("IP",PRNr,..KLNr)) Do ;contract order
- 	. Set StockNietStock=1
+	#dim StockNietStock As %String =$piece(^KPR(PRNr,1),"\",20) ;1=Stock, Leeg=NietStock
 	
-	If StockNietStock=1 Do ;Stock 
-	. Set lbTermijn=..BeschikbaarStock(PRNr)
-	Else  If ..IsLadeIndeling(PRNr) Do
-	. Set lbTermijn=..BeschikbaarLadeIndeling(PRNr)
-	Else  If ($P(^KPR(PRNr,0),"\",3)?4.7N)||(..IsHalux(PRNr)) Do ;Generisch afgeleid of Halux product -> productie
-	. Set lbTermijn=..BeschikbaarProductie(PRNr)
-	Else  Do ;Niet stock
-	. Set lbTermijn=..BeschikbaarNietStock(PRNr)
+	If 'StockNietStock,..KLNr,$data(^KPBI("IP",PRNr,..KLNr)) {
+ 		Set StockNietStock=1
+	}
+	If StockNietStock=1 {
+		Set lbTermijn=..BeschikbaarStock(PRNr)
+	} ElseIf ..IsLadeIndeling(PRNr) {
+		Set lbTermijn=..BeschikbaarLadeIndeling(PRNr)
+	} ElseIf ($P(^KPR(PRNr,0),"\",3)?4.7N)||(..IsHalux(PRNr)) { ;Generisch afgeleid of Halux product -> productie
+		Set lbTermijn=..BeschikbaarProductie(PRNr)
+	} Else {
+		Set lbTermijn=..BeschikbaarNietStock(PRNr)
+	}
 	Quit lbTermijn
 ]]></Implementation>
 </Method>
 
 <Method name="BeschikbaarLadeIndeling">
-<FormalSpec>PRNr</FormalSpec>
+<FormalSpec>PRNr:%String</FormalSpec>
+<ReturnType>%List</ReturnType>
 <Implementation><![CDATA[
+ 	#dim Termijn As %List
  	If (..RefDateIsVandaag()) {
- 	  Set KantelTime = ..blVerzendWijze.KantelTimeDoorsturen() - ..#OrgaluxOpMaatProdTermijnSeconds
- 	  Set NaKantelTime = KantelTime && (..GeefRefTijd() > KantelTime)
-
- 	  If NaKantelTime {
-	 	  Set Termijn = ..MaakTermijnInArbeidsdagen(1)
- 	  } Else {
-	 	  Set Termijn = ..MaakTermijnInArbeidsdagen(0)
- 	  }
+ 		#dim KantelTime As %Time = ..blVerzendWijze.KantelTimeDoorsturen() - ..#OrgaluxOpMaatProdTermijnSeconds
+ 		#dim NaKantelTime As %Boolean = KantelTime && (..GeefRefTijd() > KantelTime)
+	 	set Termijn = $select(NaKantelTime:..MaakTermijnInArbeidsdagen(1),1:..MaakTermijnInArbeidsdagen(0))
  	} Else { // Niet specifiek voor vandaag, dus dit zal een offerte zijn.
 		Set Termijn = ..MaakTermijnInArbeidsdagen(0)
  	}
- 	
 	Quit Termijn
 ]]></Implementation>
 </Method>
@@ -362,7 +367,7 @@
 <Method name="BeschikbaarNietStock">
 <Description>
 Niet stockproduct</Description>
-<FormalSpec>PRNr</FormalSpec>
+<FormalSpec>PRNr:%String</FormalSpec>
 <Private>1</Private>
 <ReturnType>%List</ReturnType>
 <Implementation><![CDATA[
@@ -379,7 +384,7 @@
 
 <Method name="IsBlum">
 <CodeMode>expression</CodeMode>
-<FormalSpec>PRNr</FormalSpec>
+<FormalSpec>PRNr:%String</FormalSpec>
 <Private>1</Private>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[$D(^KPR(PRNr,"J"_$$$LevBlum))
@@ -388,22 +393,22 @@
 
 <Method name="IsHalux">
 <CodeMode>expression</CodeMode>
-<FormalSpec>PRNr</FormalSpec>
+<FormalSpec>PRNr:%String</FormalSpec>
 <Private>1</Private>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[$D(^KPR(PRNr,"J"_$$$LevHalux))
 ]]></Implementation>
 </Method>
 
 <Method name="IsLadeIndeling">
-<FormalSpec>PRNr</FormalSpec>
+<FormalSpec>PRNr:%String</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[	Quit ($$IsOrgaluxOpMaat^PRODUKT2(PRNr) || $$IsTaorCubicover^PRODUKT2(PRNr))
 ]]></Implementation>
 </Method>
 
 <Method name="TermijnProduct">
-<FormalSpec>PRNr</FormalSpec>
+<FormalSpec>PRNr:%String</FormalSpec>
 <Private>1</Private>
 <ReturnType>%Integer</ReturnType>
 <Implementation><![CDATA[
@@ -414,7 +419,7 @@
 </Method>
 
 <Method name="TermijnLeverancier">
-<FormalSpec>PRNr</FormalSpec>
+<FormalSpec>PRNr:%String</FormalSpec>
 <Private>1</Private>
 <ReturnType>%Integer</ReturnType>
 <Implementation><![CDATA[
@@ -437,7 +442,7 @@
 <Method name="BeschikbaarProductie">
 <Description>
 Productie afhankelijk</Description>
-<FormalSpec>PRNr</FormalSpec>
+<FormalSpec>PRNr:%String</FormalSpec>
 <Private>1</Private>
 <ReturnType>%List</ReturnType>
 <Implementation><![CDATA[
@@ -459,56 +464,56 @@
 Leveringsdatum door de glasleverancier
 [Previously private]</Description>
 <ClassMethod>1</ClassMethod>
-<FormalSpec>PRNr,ProductieDatum</FormalSpec>
+<FormalSpec>PRNr:%String,ProductieDatum:%Date</FormalSpec>
 <ReturnType>%List</ReturnType>
 <Implementation><![CDATA[
+	#dim GlasDatum As %Date
 	Set GlasDatum=$$CALCDATE^vhLib.DataTypes(ProductieDatum,"A",-..#KADProductieTermijn)
-	For I=1:1:10 
-	 {
-	   Set DagWeek=$$EXTDATE^vhLib.DataTypes(GlasDatum,"DWN")
+	#dim I As %Integer
+	For I=1:1:10 {
+	   #dim DagWeek As %Integer = $$EXTDATE^vhLib.DataTypes(GlasDatum,"DWN")
 	   Quit:..#KADGlasLevering[DagWeek
-	   Set GlasDatum=$$CALCDATE^vhLib.DataTypes(GlasDatum,"A",-1)
-	 }
+	   Set GlasDatum = $$CALCDATE^vhLib.DataTypes(GlasDatum,"A",-1)
+	}
 	Quit GlasDatum
 ]]></Implementation>
 </Method>
 
 <Method name="BeschikbaarStock">
 <Description>
 Stockproduct</Description>
-<FormalSpec>PRNr</FormalSpec>
+<FormalSpec>PRNr:%String</FormalSpec>
 <Private>1</Private>
 <ReturnType>%List</ReturnType>
 <Implementation><![CDATA[
-	Set Termijn=1
- 	If +..RefDate= ##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentDate() Do
- 	. Set KantelTime=..blVerzendWijze.KantelTimeOrderIngave()
- 	. Set Termijn=$S(KantelTime&&($P(..RefDate,",",2)>KantelTime):1,1:0)
+	#dim Termijn As %Integer =1
+ 	If +..RefDate= ##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentDate() {
+ 		#dim KantelTime As %Time =..blVerzendWijze.KantelTimeOrderIngave()
+ 		Set Termijn=$select(KantelTime&&($piece(..RefDate,",",2)>KantelTime):1,1:0)
+ 	}
 	Quit $LB(Termijn,"A") ; aantal arbeidsdagen
 ]]></Implementation>
 </Method>
 
 <Method name="GeefRefTijd">
-<CodeMode>expression</CodeMode>
 <Private>1</Private>
 <ReturnType>%Integer</ReturnType>
-<Implementation><![CDATA[$Piece(..RefDate, ",", 2)
+<Implementation><![CDATA[	quit $Piece(..RefDate, ",", 2)
 ]]></Implementation>
 </Method>
 
 <Method name="RefDateIsVandaag">
-<CodeMode>expression</CodeMode>
 <Private>1</Private>
 <ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[(+..RefDate = ##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentDate())
+<Implementation><![CDATA[	quit (+..RefDate = ##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentDate())
 ]]></Implementation>
 </Method>
 
 <Method name="MaakTermijnInArbeidsdagen">
-<CodeMode>expression</CodeMode>
 <FormalSpec>AantalArbeidsdagen:%Integer</FormalSpec>
 <Private>1</Private>
-<Implementation><![CDATA[$LB(AantalArbeidsdagen, "A")
+<ReturnType>%List</ReturnType>
+<Implementation><![CDATA[	quit $LB(AantalArbeidsdagen, "A")
 ]]></Implementation>
 </Method>
 </Class>