Index: WS/AX/DocGen/LeveringService.cls.xml
===================================================================
diff -u -r48273 -r48279
--- WS/AX/DocGen/LeveringService.cls.xml	(.../LeveringService.cls.xml)	(revision 48273)
+++ WS/AX/DocGen/LeveringService.cls.xml	(.../LeveringService.cls.xml)	(revision 48279)
@@ -23,13 +23,17 @@
 <WebMethod>1</WebMethod>
 <Implementation><![CDATA[
 	#dim KlantNr As %String = $ZSTRIP($$$Trim(LeveringData.KLANTNR),"*C")
+	#dim LeveringNr As %String = $ZSTRIP($$$Trim(LeveringData.LEVERINGSNR),"*C")
+	If LeveringNr = "" {
+		Do ##class(TECH.Exceptions.InvalidInputException).Throw("The field LEVERINGSNR is empty or invalid ('"_$$$LCVT(LeveringData.LEVERINGSNR)_"').")
+	}
 
 	/// TO DO: de bepaling van blnStapling, PrinterName, LevDocType (voor RenderAndPrintDocViaType) in functie doen van pxLevering (i.p.v. i.f.v. persistente data).
 	Set pxDoc = ##class(BL.Flow.Proxy.pxFlowDocs).%New()
 	Do pxDoc.Leveringen.Insert(LeveringData)
 	
-	#dim FilePath As %String = ..DefaultPDFName(LeveringData.LEVERINGSNR)
-	#dim sc As %Status = ##class(BL.Flow.Levering.Doc).RenderAndFileDocFromDto(pxDoc, .FilePath, LeveringData.LEVERINGSNR, , KlantNr)
+	#dim FilePath As %String = ..DefaultPDFName(LeveringNr)
+	#dim sc As %Status = ##class(BL.Flow.Levering.Doc).RenderAndFileDocFromDto(pxDoc, .FilePath, LeveringNr, , KlantNr)
 	Do ##class(TECH.Exceptions.StatusException).ThrowIndienNietOK(sc)
 	
 	Set RenderResultaat = ##class(WS.AX.DocGen.dto.RenderResultaat).%New()