Index: BL/Flow/Proxy/pxProductLijn.cls.xml
===================================================================
diff -u -r29059 -r31663
--- BL/Flow/Proxy/pxProductLijn.cls.xml	(.../pxProductLijn.cls.xml)	(revision 29059)
+++ BL/Flow/Proxy/pxProductLijn.cls.xml	(.../pxProductLijn.cls.xml)	(revision 31663)
@@ -482,6 +482,8 @@
 <FormalSpec>ChargeTraceID:%String,Taal:%String</FormalSpec>
 <ProcedureBlock>1</ProcedureBlock>
 <Implementation><![CDATA[
+	#dim ChargeAantal,ChargeID,ChargePRNr,ChargeRef,MemPRNr,Status,objCT
+	
 	Quit:($G(ChargeTraceID))=""
 	Do ..CHARGETRACES.Clear()
 	Set objCT=""
@@ -498,7 +500,7 @@
 	. . Set objCT.PRNr=ChargePRNr
 	. . Set objCT.Omschrijving=$G(^RES("CHARGETRACEID","PI","PRNR","D",ChargePRNr,Taal))
 	. . Set MemPRNr=ChargePRNr
-	. Set:($G(ChargeID)="") $EC="ChargeID_Empty"
+	. Do:($G(ChargeID)="") ##class(TECH.Exceptions.InvalidInputException).Throw("ChargeID_Empty"_" - ChargeTraceID:"_ChargeTraceID_"   voor Product:"_ChargePRNr_"   Aantal:"_ChargeAantal_"  "_$$$CRLF_" --> "_$Name(^ProdHist.ChargeTraceD(ChargeTraceID))_" mogelijk te corrigeren.")
 	. Do objCT.Items.SetAt(ChargeAantal,ChargeID)
 	If $isObject(objCT) Do
 	. Do ..CHARGETRACES.Insert(objCT)