Index: BL/Legacy/FLOW.cls.xml
===================================================================
diff -u -r48883 -r67109
--- BL/Legacy/FLOW.cls.xml	(.../FLOW.cls.xml)	(revision 48883)
+++ BL/Legacy/FLOW.cls.xml	(.../FLOW.cls.xml)	(revision 67109)
@@ -80,6 +80,73 @@
 	Do ..MailApi.VerstuurMail(Mail)
 ]]></Implementation>
 </Method>
+
+<Method name="MaakToeleveringOpBasisVanAxInformatie">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>JournaalId:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim SqlStatement as %String
+	Set SqlQueryConnection = ##class(AXimpl.SqlQueryConnection).%New()
+	
+	Set SqlStatement = 	"select a.JOURNALID, itemid, qty, b.INVENTTRANSREFID, b.VENDACCOUNT from WMSJOURNALTABLE a, WMSJOURNALTRANS b"
+	_ " where a.JOURNALID = b.JOURNALID "
+	_ " and a.journalid = '"_JournaalId_"'"
+	
+	#dim ResultSet As TECH.ResultSet = SqlQueryConnection.GetResultSet(SqlStatement)
+	
+	#dim ToeleveringID As %String = ..GeefIDNieuweToelevering(ResultSet)
+	
+	Do SqlQueryConnection.Disconnect()
+	Quit ToeleveringID
+]]></Implementation>
+</Method>
+
+<Method name="GeefIDNieuweToelevering">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>ResultSet:TECH.ResultSet</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	Set ToeleveringAPI = ##class(DOM.AKP.impl.DataM.DataMToeleveringAPI).%New()
+	Set ToeleveringLCS = ##class(APPS.AKP.ToeleveringLevenCyclusService).%New()
+	Set ProductAPI = ##class(DOM.PM.impl.ProductAPI).%New()
+	#dim LeverancierID, Artikelnummer, Aantal, ProductID As %String = ""
+	#dim ToeleveringID As %Integer = 0
+	
+	Set ResultSetIterator = ##class(TECH.ResultSetIterator).%New(ResultSet)
+	If (ResultSetIterator.HasNext())
+	{
+		Set rs = ResultSetIterator.Next()
+		Set LeverancierID = rs.Data("VENDACCOUNT")
+		Set Artikelnummer = rs.Data("itemid")		
+		Set Aantal = +rs.Data("qty")
+		Set ProductID = ProductAPI.GeefProductIdVoorIdentNummer(Artikelnummer)
+	} 
+	
+	If (+LeverancierID > 0) {
+		Set LeverancierID = "L||"_$P(##class(AXimpl.AxToAdminUtils).ConvertSupplierIDHLX(LeverancierID),"||",2)
+		#dim Toelevering As DOM.AKP.Toelevering = ToeleveringAPI.MaakNieuwToelevering(LeverancierID)
+		Do ToeleveringLCS.VoegToeProductVoorLeverancier(Toelevering, LeverancierID, ProductID, Aantal)
+	}
+	
+	While (ResultSetIterator.HasNext())
+	{
+		Set rs = ResultSetIterator.Next()
+		Set Artikelnummer = rs.Data("itemid")
+		Set Aantal = +rs.Data("qty")
+		Set ProductID = ProductAPI.GeefProductIdVoorIdentNummer(Artikelnummer)
+		Do ToeleveringLCS.VoegToeProductVoorLeverancier(Toelevering, LeverancierID, ProductID, Aantal)
+	}
+	
+	If $IsObject($Get(Toelevering)) {
+		Do Toelevering.Save()
+		Set ToeleveringID = Toelevering.GeefID()
+	}
+	
+	Quit ToeleveringID
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: FLOWTOE.mac.rou
===================================================================
diff -u -r53155 -r67109
--- FLOWTOE.mac.rou	(.../FLOWTOE.mac.rou)	(revision 53155)
+++ FLOWTOE.mac.rou	(.../FLOWTOE.mac.rou)	(revision 67109)
@@ -473,6 +473,7 @@
  . Set PalletAantal=##class(BL.Prod.sub.pxVoorraadIdentificatieDocs).GeefToeleveringEenheid(PRNr)
  . Set AantalPaginas=(Aantal\PalletAantal)+(Aantal#PalletAantal>0)
  . Do ##class(CHUI.Prod.VoorraadIdentificatieDoc).PrintProductVoorraadPagina(PRNr,PalletAantal,AantalPaginas,TLNr)
+ Do VerwijderToelevering^FLOWTOE3(LEVNr,TLNr)
  Quit
  ;
 INIT 
Index: FLOW.mac.rou
===================================================================
diff -u -r54783 -r67109
--- FLOW.mac.rou	(.../FLOW.mac.rou)	(revision 54783)
+++ FLOW.mac.rou	(.../FLOW.mac.rou)	(revision 67109)
@@ -19,7 +19,7 @@
  ;           1 enkel orgalux
  ;
 SELECT(Global,IGlobal,Exist,NoSelNr,DERDENr,MultSel,ChkWMS,Orgalux) 
- New I,R,Document,Prompt,Komm1,Komm2,Limit,LEVNr,%J,GoSask,WMSStat,KLNr
+ New I,R,Document,Prompt,Komm1,Komm2,Limit,LEVNr,%J,GoSask,WMSStat,KLNr,IsContextAfdrukkenVoorraad
  If Global="KFA" Quit $$SELECT^FLOWSELF(.NoSelNr,.DERDENr,.MultSel)
  If Global="KFAP" Quit $$SELECT^FLOWSELP(.NoSelNr,.DERDENr,.MultSel)
  Set Exist=$S($G(sScr("VTW")):1,1:$G(Exist)),MultSel=$G(MultSel),ChkWMS=$G(ChkWMS),Orgalux=$G(Orgalux),%J=$$%J^vhRtn1()
@@ -100,6 +100,12 @@
  .Set LEVNr="",R=$$UPTRIMAN^vhRtn1(R)
  .For  Set LEVNr=$O(^KTO4(LEVNr)) Quit:LEVNr=""  If $P($O(^KTO4(LEVNr,R_D)),D)=R Set R=$P($O(^KTO4(LEVNr,R_D)),"\",2) Quit
  If R'<$P(Limit,D),R'>$P(Limit,"\",2),$D(@($$GLOREF("I",R))) Goto SQUIT
+ Set IsContextAfdrukkenVoorraad = 0
+ If ($E(R,1,3) = "000") Do
+ . Set R = ##class(BL.Legacy.FLOW).MaakToeleveringOpBasisVanAxInformatie(R)
+ . Set IsContextAfdrukkenVoorraad = 1
+ . If (R = 0) Goto SASK
+ If IsContextAfdrukkenVoorraad=1 Goto SQUIT
  Goto SASK
 SQUIT Kill ^HULP($J),^HULP(%J)
  Set FP=1901 Write @F,@F1