Index: AX/Uitgaand/EC/Data/impl/HelperFacturenOphalenAlsOrder.cls.xml
===================================================================
diff -u -r38803 -r48951
--- AX/Uitgaand/EC/Data/impl/HelperFacturenOphalenAlsOrder.cls.xml	(.../HelperFacturenOphalenAlsOrder.cls.xml)	(revision 38803)
+++ AX/Uitgaand/EC/Data/impl/HelperFacturenOphalenAlsOrder.cls.xml	(.../HelperFacturenOphalenAlsOrder.cls.xml)	(revision 48951)
@@ -164,34 +164,39 @@
 <Method name="OphalenLevering">
 <FormalSpec>FAKNr:%String,BONNr:%String</FormalSpec>
 <Implementation><![CDATA[
-	#dim BLNr As %Integer = 99
-	#dim HasProd As %Boolean = 0
+	#dim BonLijnNummer As %Integer = 99
+	#dim HasProd As %Boolean = $$$False
 	#dim ORDCnt As %Integer = 0
 	#dim Totaal As %Float = 0
 	#dim ProdGrp As %String = "*"
 	#dim LastGrpTijd As %String = "" 
 	#dim LastGrpOLUNr As %String = ""
-	Set BLNr=$O(@..GlobalData@(..Node,FAKNr,BONNr,BLNr))
-	While (BLNr '= "")
-	{
+	
+	Set BonLijnNummer = $Order(@..GlobalData@(..Node,FAKNr,BONNr,BonLijnNummer))
+	
+	While $$$Not(BonLijnNummer = "") {
 		#dim LijnType As %String = ""
-		Do ..CheckLeveringLijn(FAKNr,BONNr,BLNr,.LijnType,)
-		If (LijnType '=""){
-			#dim BLRec As %String = @..GlobalData@(..Node,FAKNr,BONNr,BLNr)
-			If LijnType="O" { 										; Orderhoofding
-				Set ORDCnt=ORDCnt+1,Sort(ORDCnt)=$LB(BLRec)
-			}else{
+		
+		Do ..CheckLeveringLijn(FAKNr,BONNr,BonLijnNummer,.LijnType,)
+		
+		If $$$Not(LijnType = "") {
+			#dim BLRec As %String = @..GlobalData@(..Node,FAKNr,BONNr,BonLijnNummer)
+			
+			If (LijnType = "O") { 										; Orderhoofding
+				Set ORDCnt = ORDCnt + 1
+				Set Sort(ORDCnt) = $ListBuild(BLRec)
+			} Else {
 				Set Totaal = Totaal+$P(BLRec,"\",16)
 				#dim PRNr As %String = $P(BLRec,"\",2)
 				Set:PRNr?4.7N HasProd=1
 				; ProdGrp wordt allen door een product gedefinieerd, anders wordt de waarde van de vorige lijn genomen
 				If ProdGrp="" {
-					Set MemSort(BLNr)=$LB(LijnType,BLRec) 			; onthouden van de lijn totdat prodgrp gekend
-				}Else{
+					Set MemSort(BonLijnNummer)=$LB(LijnType,BLRec) 			; onthouden van de lijn totdat prodgrp gekend
+				} Else {
 					Merge Sort(ORDCnt,ProdGrp)=MemSort
 					Kill MemSort
 					
-					Set Sort(ORDCnt,ProdGrp,BLNr)=$LB(LijnType,BLRec) ; onthouden van de lijn
+					Set Sort(ORDCnt,ProdGrp,BonLijnNummer)=$LB(LijnType,BLRec) ; onthouden van de lijn
 				}
 				If (LijnType="T"){ 									; alleen tekstlijnen groeperen
 					#dim Groep As %String = $P(BLRec,"\",18)
@@ -207,7 +212,7 @@
 				}
 			}
 		}
-		Set BLNr=$O(@..GlobalData@(..Node,FAKNr,BONNr,BLNr))
+		Set BonLijnNummer=$O(@..GlobalData@(..Node,FAKNr,BONNr,BonLijnNummer))
 	}
 	
 	Set ORDCnt = ""
@@ -268,16 +273,18 @@
 </Method>
 
 <Method name="CheckFactuur">
-<FormalSpec>FAKNr,Periode</FormalSpec>
+<FormalSpec>FAKNr:%String,Periode</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
 	Quit:Periode="" $D(^KKL(^KK1(..KlantId),FAKNr))>0 ; alleen openstande
-	Quit 1
+	Quit $$$True
 ]]></Implementation>
 </Method>
 
 <Method name="CheckLevering">
-<FormalSpec>FAKNr,BONNr</FormalSpec>
-<Implementation><![CDATA[	Quit 1
+<FormalSpec>FAKNr:%String,BONNr</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit $$$True
 ]]></Implementation>
 </Method>