Index: ORGALUX.mac.rou
===================================================================
diff -u -r734 -r919
--- ORGALUX.mac.rou	(.../ORGALUX.mac.rou)	(revision 734)
+++ ORGALUX.mac.rou	(.../ORGALUX.mac.rou)	(revision 919)
@@ -5,7 +5,7 @@
  New Key
  Set Key=$O(^KPR(PRNr,"I"))
  Quit:$E(Key)'="I" 0
- Quit $P(^KPR(PRNr,Key),D,1)["OL"
+ Quit $P(^KPR(PRNr,Key),"\",1)["OL"
  
 IsIntivo(PRNr)
 	Quit $P($G(^KPR(PRNr,0)),"\")?1(1"OL.I",1"OL.TI",1"OL.FW").E
Index: KTWL1.mac.rou
===================================================================
diff -u -r734 -r919
--- KTWL1.mac.rou	(.../KTWL1.mac.rou)	(revision 734)
+++ KTWL1.mac.rou	(.../KTWL1.mac.rou)	(revision 919)
@@ -61,6 +61,10 @@
 38 S:ULT'=$P(U2,D,25) $P(U2,D,24)="G"
  S U2=$P(U2,D,1,2)_D_UA_D_$P(U2,D,4,6)_D_PK1_"#"_PK2_D_$P(U2,D,8)_D_UN_D_UN_D_$P(U2,D,11,15)_D_UBE_D_$P(U2,D,17,24)_D_ULT_D_U26_D_$P(U2,D,27,28)_D_ULTA_D_$P(U2,D,30,99),^(UVN)=U2
  I LC=6332,"WL"[SWLPA D MODBATCH(TR,$P(U2,D,15))
+ Set Toelevering = ##class(DOM.DomeinContext).Instance().GeefToeleveringAPI().GeefToelevering(TR)
+ Set ToeleveringModifiedEventData = ##class(TECH.Events.ToeleveringModifiedEventData).%New(Toelevering)
+ Set ToeleveringModifiedEvent = ##class(TECH.Events.ToeleveringModifiedEvent).%New(ToeleveringModifiedEventData)
+ Do ##class(TECH.PubSub.OrchestrationContext).GetEventRaiser().RaiseEventAsync(ToeleveringModifiedEvent)
 39 K UEP,USP I '$G(ScrolToe) D S1 G 3^KTWL
  ;
 YZ K UO,U2,UR,UUZ,KC,UN,UMC,MSG,PGV,PST,PC,PR,PN,PRE,PSN,PY,PK1,PK2,Q15,Q16,UA,UK,UEP,UBE,TOD,UOD,UOR,ULT,ULTA,U26,X
Index: ORGALUX.int.rou
===================================================================
diff -u
--- ORGALUX.int.rou	(revision 0)
+++ ORGALUX.int.rou	(revision 919)
@@ -0,0 +1,233 @@
+ORGALUX ;Verwerking Orgalux [ 12/27/2003  12:40 PM ]  ; Compiled September 16, 2009 11:58:06
+ ;
+ISORGAL(PRNr) ; Is het een orgalux product
+ New Key
+ Set Key=$O(^KPR(PRNr,"I"))
+ Quit:$E(Key)'="I" 0
+ Quit $P(^KPR(PRNr,Key),"\",1)["OL"
+IsIntivo(PRNr)
+	Quit $P($G(^KPR(PRNr,0)),"\")?1(1"OL.I",1"OL.TI",1"OL.FW").E
+ConsumentenPrijs(PRNr,Land,NoSa)
+	Quit $$ConsumentenPrijs^KPRIJS(PRNr,.Land,.NoSa)
+VERPAK 
+ Goto VERPAK^ORGVERP
+ ;
+REFORD(ORDNr) 
+ New R,KLNr,OrgRef
+ Set OrgRef="" Set:$$ISORGAL^FLOW("O",ORDNr) KLNr=$P(^KO1(ORDNr,"F"),D),R=^KOD(KLNr,"F",ORDNr,1),OrgRef=$P(R,D,19)
+ Quit OrgRef
+ ;
+REFBON(BONNr,ORDNr) 
+ New R,KLNr,OLNr,OrgRef
+ Set OrgRef=""
+ Do:$$ISORGAL^FLOW("L",BONNr)
+ .Set KLNr=$P(^KU1(BONNr,"F"),D),OLNr=100
+ .For  Set OLNr=$O(^KUL(KLNr,"F",BONNr,OLNr)) Quit:'OLNr  Do  Quit:$L(OrgRef)
+ ..Set R=^KUL(KLNr,"F",BONNr,OLNr)
+ ..Quit:$P(R,D,17)'="KF5"
+ ..Set:$P($P(R,D,5)," - ")=ORDNr OrgRef=$P(R,D,20)
+ Quit OrgRef
+ ;
+BEVATMAT(BONNr,ORDNr) 
+ New R,BevatMat,KLNr,OLNr,Quit
+ Set ORDNr=$G(ORDNr),KLNr=$P(^KU1(BONNr,"F"),D),OLNr=100
+ If ORDNr For  Set OLNr=$O(^KUL(KLNr,"F",BONNr,OLNr)) Quit:'OLNr  Do  Quit:Quit
+ .Set R=^KUL(KLNr,"F",BONNr,OLNr)
+ .Set Quit=$P(R,D,17)="KF5"&($P($P(R,D,5)," - ")=ORDNr)
+ For  Set OLNr=$O(^KUL(KLNr,"F",BONNr,OLNr)) Quit:'OLNr  Do  Quit:Quit
+ .Set R=^KUL(KLNr,"F",BONNr,OLNr),PRNr=$P(R,D,2)
+ .If ORDNr Set Quit=$P(R,D,17)="KF5"&($P($P(R,D,5)," - ")'=ORDNr)
+ .Quit:'PRNr
+ .Set BevatMat=$$ISMAT(PRNr)
+ Quit BevatMat
+ ;
+ISMAT(MPRNr) 
+ New R,IsMat,KPRNr
+ ;Set (IsMat,KPRNr)=""
+ ;For  Set KPRNr=$O(^PRLINK("D",MPRNr,KPRNr)) Quit:KPRNr=""  Do  Quit:IsMat
+ ;.Set R=^PRLINK("D",MPRNr,KPRNr),IsMat=$P(R,D,2)="I"
+ Set IsMat=$E($$SORTKEY^PRODUKT(MPRNr),7,9)="MAT"
+ Quit IsMat
+ ;
+ ; Bevat oververpakking
+BEVATOVP(BONNr,ORDNr) 
+ New R,BevatOVP,KLNr,OLNr,Quit,PRNr
+ Set ORDNr=$G(ORDNr),KLNr=$P(^KU1(BONNr,"F"),D),OLNr=100
+ If ORDNr For  Set OLNr=$O(^KUL(KLNr,"F",BONNr,OLNr)) Quit:'OLNr  Do  Quit:Quit
+ .Set R=^KUL(KLNr,"F",BONNr,OLNr)
+ .Set Quit=$P(R,D,17)="KF5"&($P($P(R,D,5)," - ")=ORDNr)
+ Set BevatOVP=""
+ For  Set OLNr=$O(^KUL(KLNr,"F",BONNr,OLNr)) Quit:'OLNr  Do  Quit:Quit  Quit:BevatOVP
+ .Set R=^KUL(KLNr,"F",BONNr,OLNr),PRNr=$P(R,D,2)
+ .If ORDNr Set Quit=$P(R,D,17)="KF5"&($P($P(R,D,5)," - ")'=ORDNr)
+ .Quit:'PRNr
+ .Set BevatOVP=$$ISOVP(PRNr) Set:BevatOVP BevatOVP=BevatOVP_D_$P(R,D,3)
+ Quit BevatOVP
+ ;
+ ; Is oververpakking
+ISOVP(MPRNr) 
+ New R,IsOVP,KPRNr
+ Set (IsOVP,KPRNr)=""
+ For  Set KPRNr=$O(^PRLINK("D",MPRNr,KPRNr)) Quit:KPRNr=""  Do  Quit:IsOVP
+ .Set R=^PRLINK("D",MPRNr,KPRNr) Set:$P(R,D,2)="O" IsOVP=MPRNr
+ Quit IsOVP
+ ;
+ ; Stockupdate van de moeders met stock overkinderen
+STOCKUPD(Night) 
+ Set Night=$G(Night)
+ If Night Do
+ .New Night
+ .Set Q="K"
+ .Do ^cA604,INIT^vhTERMINA
+ .Set Update=1
+ Else  Do
+ .New %SC,zb
+ .Set Update=""
+ .Do DISPLAY^vhScherm("ORGSTCKUPD"),FIELD^vhScherm("ORGSTCKUPD","ASKUPDATE")
+ .Set Update=Update="H"
+ .Do:Update DISPLAY^vhScherm("ORGSTCKUPD")
+ Quit:'Update
+ Set %J=$$%J^vhRtn1()
+ Kill ^HULP(%J)
+ ; Fysstock toekennen aan de moeders vertrekkend van de min. stock van de kinderen
+ Set MPRNr=""
+ For  Set MPRNr=$O(^PRLINK("D",MPRNr)) Quit:MPRNr=""  Do
+ .Quit:$$Get^PRODUKT(MPRNr,"123")'="S" ; Geen stock over kinderen
+ .;Quit:'$$ISORGAL^PRODUKT2(MPRNr)
+ .Set R=^KPR(MPRNr,0),ScanTyp=$P(R,D,24)
+ .;Quit:ScanTyp=""
+ .Kill MFysSt
+ .Set KPRNr=""
+ .Set Reserv=+$P(^KPR(MPRNr,2),D,9) ; Reservatie van de moeder
+ .For  Set KPRNr=$O(^PRLINK("D",MPRNr,KPRNr)) Quit:KPRNr=""  Do
+ ..Quit:$$OPSLZONE^PRODUKT2(KPRNr)=9 ; Geen manuele producten zoals verpakking
+ ..Set Faktor=$P(^PRLINK("D",MPRNr,KPRNr),D)
+ ..Set KFysSt=$$GETSTOCK^PRODUKT4(KPRNr,"F")/$S('Faktor:1,1:Faktor)\1
+ ..Set MFysSt=$G(MFysSt,KFysSt)
+ ..Set:KFysSt<MFysSt MFysSt=KFysSt
+ ..Set ^HULP(%J,KPRNr)=$G(^HULP(%J,KPRNr))+(Reserv*$S('Faktor:1,1:Faktor))
+ .Quit:'$D(MFysSt)
+ .;Set:ScanTyp<MFysSt MFysSt=ScanTyp
+ .Do:'Night DISPLAY^vhScherm("ORGSTCKUPD","","","","MOEDER;STOCK")
+ .Lock +^KPR(MPRNr)
+ .Set R=^KPR(MPRNr,0),$P(R,D,14)=MFysSt,^KPR(MPRNr,0)=R
+ .Set R=$G(^PRSTOCK("D",MPRNr)),$P(R,D)=MFysSt,^PRSTOCK("D",MPRNr)=R
+ .Lock -^KPR(MPRNr)
+ ; Reservatie vanuit moeder wissen
+ Set PRNr=""
+ For  Set PRNr=$O(^PRSTOCK("D",PRNr)) Quit:PRNr=""  Do
+ . Set Qty=$P(^PRSTOCK("D",PRNr),D,9) ; oud aantal in reservatie door moeder
+ . Quit:'Qty ; Niets gereserveerd
+ . Lock +^KPR(PRNr)
+ . ;Set Reserv=$P(^KPR(PRNr,2),D,9)
+ . Set $P(^PRSTOCK("D",PRNr),D,6)=$P($G(^PRSTOCK("D",PRNr)),D,6)-Qty ; aantal in reservatie door moeder weghalen bij de werkvloer reservatie (truuk)
+ . ;Set $P(^KPR(PRNr,2),D,9)=Reserv
+ . Set $P(^PRSTOCK("D",PRNr),D,9)=""
+ . Lock -^KPR(PRNr)
+ ; Nieuwe reservatie toekennen
+ Set PRNr=""
+ For  Set PRNr=$O(^HULP(%J,PRNr)) Quit:PRNr=""  Do
+ . Lock +^KPR(PRNr)
+ . Set Qty=^HULP(%J,PRNr)
+ . Set $P(^PRSTOCK("D",PRNr),D,6)=$P($G(^PRSTOCK("D",PRNr)),D,6)+Qty ; aantal in reservatie door moeder bijtellen bij de werkvloer reservatie (truuk)
+ . Set $P(^PRSTOCK("D",PRNr),D,9)=Qty ; aantal in reservatie door moeder
+ . Lock -^KPR(PRNr)
+ Quit
+ ;
+ ; Stockupdate van een moeder met stock overkinderen
+STOCKUPDMoeder(MPRNr) 
+ New R,ScanTyp,MFysSt,KFysSt,Reserv,Faktor,KPRNr,QtyOld,QtyNew
+ ; Fysstock toekennen aan de moeders vertrekkend van de min. stock van de kinderen
+ Do:$$Get^PRODUKT(MPRNr,"123")="S"  ; Stock over kinderen
+ . ;Quit:'$$ISORGAL^PRODUKT2(MPRNr)
+ . Set R=^KPR(MPRNr,0),ScanTyp=$P(R,D,24)
+ . ;Quit:ScanTyp=""
+ . Kill MFysSt
+ . Set KPRNr=""
+ . Set Reserv=+$P(^KPR(MPRNr,2),D,9) ; Reservatie van de moeder
+ . For  Set KPRNr=$O(^PRLINK("D",MPRNr,KPRNr)) Quit:KPRNr=""  Do
+ . . Quit:$$OPSLZONE^PRODUKT2(KPRNr)=9 ; Geen manuele producten zoals verpakking
+ . . Set Faktor=$P(^PRLINK("D",MPRNr,KPRNr),D)
+ . . Set KFysSt=$$GETSTOCK^PRODUKT4(KPRNr,"F")/$S('Faktor:1,1:Faktor)\1
+ . . Set MFysSt=$G(MFysSt,KFysSt)
+ . . Set:KFysSt<MFysSt MFysSt=KFysSt
+ . . Set KPRNr(KPRNr)=$G(KPRNr(KPRNr))+(Reserv*$S('Faktor:1,1:Faktor))
+ . Quit:'$D(MFysSt)
+ . ;Set:ScanTyp<MFysSt MFysSt=ScanTyp
+ . Lock +^KPR(MPRNr)
+ . Set R=^KPR(MPRNr,0),$P(R,D,14)=MFysSt,^KPR(MPRNr,0)=R
+ . Set R=$G(^PRSTOCK("D",MPRNr)),$P(R,D)=MFysSt,^PRSTOCK("D",MPRNr)=R
+ . Lock -^KPR(MPRNr)
+ . ; Reservatie vanuit moeder vervangen door de nieuwe reservatie
+ . Set KPRNr=""
+ . For  Set KPRNr=$O(KPRNr(KPRNr)) Quit:KPRNr=""  Do
+ . . Lock +^KPR(KPRNr)
+ . . Set QtyOld=$P(^PRSTOCK("D",KPRNr),D,9) ; oud aantal in reservatie door moeder
+ . . Set QtyNew=KPRNr(KPRNr)
+ . . Set $P(^PRSTOCK("D",KPRNr),D,6)=$P($G(^PRSTOCK("D",KPRNr)),D,6)-QtyOld+QtyNew ; oude aantal in reservatie door moeder weghalen en nieuwe bijtellen bij de werkvloer reservatie (truuk)
+ . . Set $P(^PRSTOCK("D",KPRNr),D,9)=QtyNew
+ . . Lock -^KPR(KPRNr)
+ Quit
+ ;
+ ; Stockupdate van de moeders van een kind
+STOCKUPDKind(KPRNr)
+ New MPRNr
+ Set MPRNr=""
+ For  Set MPRNr=$O(^PRBS("IP",KPRNr,MPRNr)) Quit:'MPRNr  Do STOCKUPDMoeder(MPRNr)
+ Quit
+ ;
+ ; Stock ZERO van de moeders, noodzakelijk bij stockcontrole
+STOCKNUL  New Ok,MPRNr,KPRNr,Voorraad
+ Write @F11,@F1
+ Write @FMTI,"VAN HOECKE NV - Op nul zetten van de ORGALUX moeder-produkten",@FMTi,!
+ Set MPRNr=""
+ S Ok=$$^vhTXTPOP("ORGALUX","STOCKNUL")
+ Quit:'Ok
+ Set FP=201 Write @F
+ For  Set MPRNr=$O(^PRLINK("D",MPRNr)) Quit:MPRNr=""  Do
+ .Quit:'$$ISORGAL^PRODUKT2(MPRNr)
+ .Set Voorraad=0
+ .Set KPRNr=""
+ .For  Set KPRNr=$O(^PRLINK("D",MPRNr,KPRNr)) Quit:KPRNr=""  Do
+ ..Quit:$$OPSLZONE^PRODUKT2(KPRNr)=9
+ ..Set Voorraad=1
+ .;Alleen moeders met kinderen die echte voorraad producten zijn
+ .Quit:'Voorraad
+ .Write $P(^KPR(MPRNr,0),D,1)," ",$P(^KPR(MPRNr,0),D,14),!
+ .Lock +^KPR(MPRNr)
+ .Set R=^KPR(MPRNr,0),$P(R,D,14)=0,^KPR(MPRNr,0)=R
+ .Lock -^KPR(MPRNr) 
+ Quit
+ ; Datumkontrole voor openen klanten 'Orgalux Inside'
+VALDATE(Val,Min,Max) 
+ New %TC,%INT,%EXT,er,R,Web
+ Set Web=$P(Val," ",2),Val=$P(Val," ")
+ Set %TC=1
+ If $L(Val),'Val Set %TC=0
+ If $L(Web),Web'="zw" Set %TC=0
+ If $L(Web),Web="zw",'Val Set %TC=0
+ If %TC Do
+ .Set R="VALDATE^vhDTyp(Val,,"_$S($D(Min):+Min_",",1:",")_$S($D(Max):+Max_")",1:")")
+ .Do @R
+ Quit %TC
+ ;
+OPENDEUR 
+ New zb
+ Set K=$$PI^vhPOPUP("C;C","-DOZ1","Open deur","ORGALUX","OPENDEUR",K)
+ If $L(K)
+ Else  If zb="CANC" Set K="-"
+ Quit
+ ;
+CHKWEB(K) 
+ New Web,Rubr
+ Set Web=$P(K," ",2),K=$P(K," ")
+ If K="",$P(B(9),D,3)="",$P(B(9),D,12)=""
+ Else  If K="" Set ULOG(912)=$S($P(B(9),D,12)=1:"\zw\",1:"\\zw"),$P(B(9),D,12)=""
+ Else  If $P(B(9),D,12),Web="zw" Set $P(B(9),D,12)="",ULOG(912)="\\zw"
+ Else  If '$P(B(9),D,12),Web="" Set $P(B(9),D,12)=1,ULOG(912)="\zw\"
+ If $D(ULOG(912)),$P(ULOG(912),D)="" Do
+ .Set Rubr=""
+ .For  Set Rubr=$O(^DMA("LVH1","KL",4,Rubr)) Quit:Rubr=""  If $G(^DMA("LVH1","KL",4,Rubr,16))=912 Do  Quit
+ ..Set $P(ULOG(912),D)=$G(^DMA("LVH1","KL",4,Rubr,1))
+ Quit K
+ ;
\ No newline at end of file
Index: KTVV.mac.rou
===================================================================
diff -u -r734 -r919
--- KTVV.mac.rou	(.../KTVV.mac.rou)	(revision 734)
+++ KTVV.mac.rou	(.../KTVV.mac.rou)	(revision 919)
@@ -33,6 +33,9 @@
 19 S K=$P(@("^"_Q_UGL_"(LC,TR,1)"),D,10) D KILL^KTO4(LC,TR,K)
 20 K @("^"_Q_UG1_"(TR)"),@("^"_Q_UGB_"(TR)"),@("^"_Q_UG2_"(LC,TR)"),@("^"_Q_UGL_"(LC,TR)"),^BLBeri("Z",TR)
  I $D(@("^"_Q_UGL_"(0,4)")) S TRLC=TR D @^(4) K TRLC
+ Set ToeleveringDeletedEventData = ##class(TECH.Events.ToeleveringDeletedEventData).%New(TR)
+ Set ToeleveringDeletedEvent = ##class(TECH.Events.ToeleveringDeletedEvent).%New(ToeleveringDeletedEventData)
+ Do ##class(TECH.PubSub.OrchestrationContext).GetEventRaiser().RaiseEventAsync(ToeleveringDeletedEvent)
 21 S SW13=0,FP=$P(UD,D,2)+1*100+1 W @F,@F1 I '$G(ScrolToe) D M3
  S K="," G YZ
 23 S K="-"
Index: MRPRES.mac.rou
===================================================================
diff -u -r762 -r919
--- MRPRES.mac.rou	(.../MRPRES.mac.rou)	(revision 762)
+++ MRPRES.mac.rou	(.../MRPRES.mac.rou)	(revision 919)
@@ -231,7 +231,6 @@
  .. Set SubMag=$P(@CRef@("TO",PRNr),D,2)
  .. Set:SubMag="" SubMag=$$GetVerzendCode(PRNr)
  .. Set:SubMag="" SubMag="~"
- .. Set:SubMag'="P"&(SubMag'="Z") SubMag=$S(IsWVSt:"W",1:"1")
  .. Set @CRef@("STO",SubMag,PRNr)=$G(@CRef@("STO",SubMag,PRNr))+Qty
  . ; Verzamelen van de qty op FabKey nivo
  . For  Set FabKey=$O(@CRef@("TO",PRNr,FabKey)) Quit:FabKey=""  Do
@@ -243,9 +242,7 @@
  .... Set Qty=$$TELMAGST^MRP(PRNr,Qty,1,DimBrut,DimNet)
  ... Set SubMag=$P(@CRef@("TO",PRNr,FabKey,HFCode),D,2)
  ... Set:SubMag="" SubMag=$$GetVerzendCode(PRNr,FabKey)
- ... ; [FMA] Chris, volgende 2 lijnen gaan ons ambeteren...  Idem hierboven.
  ... Set:SubMag="" SubMag="~"
- ... Set:SubMag'="P"&(SubMag'="Z") SubMag=$S(IsWVSt:"W",1:"1")
  ... Set @CRef@("STO",SubMag,PRNr)=$G(@CRef@("STO",SubMag,PRNr))+Qty
  ... Set @CRef@("STO",SubMag,PRNr,FabKey,HFCode)=Qty 
  Quit
@@ -255,13 +252,16 @@
  ; Momenteel wordt de verzendcode bepaald op basis van de zones die ook voor de voorraadtelling
  ; gebruikt worden.  Daarnaast zijn er nog een aantal uitzonderingen, o.a. voor Keller en De Decker.
 GetVerzendCode(PRNr,FabKey)
-	Set SubMag=$P($G(^KPR(PRNr,15)),D,12)	; Ophalen van de Halux zone voor het produkt
+	New SubMab,SubMagCode,KLNr,TLNr,MPRNr,GenTyp
+	Set SubMag=$P($G(^KPR(PRNr,15)),"\",12)	; Ophalen van de Halux zone voor het produkt
 	Quit:'$L(SubMag) ""
 	Set SubMagCode=$P($G(^RES("PRODUKT","PI","HFWVSUBMAG","D",SubMag)),"`",4) ; Vertaling naar een code voor HALUX TRANSFER verzendwijze
 	; Klant-specifieke uitzonderingen
 	If $G(FabKey) Do 
-	. Set KLNr=$P(^KTO($$$LevHalux,$P(FabKey,";")),"\",x)
+	. Set KLNr=$P($G(^KTO($$$LevHalux,$P(FabKey,";"),1)),"\",8)
+	. Quit:'KLNr
 	. Set TLNr=$G(^TO("IU",$P(FabKey,";"),$P(FabKey,";",2)))
+	. Quit:'TLNr
 	. Set MPRNr=$P(^KTO($$$LevHalux,$P(FabKey,";"),TLNr),"\",2)	; Moederproduct
 	. Set GenTyp=$$GENTYP^HAD(MPRNr)
 	. ; Alles voor de Keller-lijn zetten we apart
Index: KTWTN.mac.rou
===================================================================
diff -u -r734 -r919
--- KTWTN.mac.rou	(.../KTWTN.mac.rou)	(revision 734)
+++ KTWTN.mac.rou	(.../KTWTN.mac.rou)	(revision 919)
@@ -26,7 +26,17 @@
 25 K @("^"_Q_UG1_"(TR)"),@("^"_Q_UGB_"(TR)"),@("^"_Q_UG2_"(LC,TR)"),@("^"_Q_UGL_"(LC,TR)")
 27 S (TR,TLNr)=TRN,K="-",FP=$P(U2,U,5)*100+$P(U2,U,6) W @F,$J("",$P(U2,U,9)),$J("",$P(U2,D,13)),@F,TR
 29 S @%Q1=1
-YZ K TRN,KC,UR,UZ,UU2,UOD,X,PR L @("^"_Q_UGL_"(LC,TR)") Q
+YZ 
+ Set ToeleveringDeletedEventData = ##class(TECH.Events.ToeleveringDeletedEventData).%New(TR)
+ Set ToeleveringDeletedEvent = ##class(TECH.Events.ToeleveringDeletedEvent).%New(ToeleveringDeletedEventData)
+ Do ##class(TECH.PubSub.OrchestrationContext).GetEventRaiser().RaiseEventAsync(ToeleveringDeletedEvent)
+ 
+ Set Toelevering = ##class(DOM.DomeinContext).Instance().GeefToeleveringAPI().GeefToelevering(TRN)
+ Set ToeleveringCreatedEventData = ##class(TECH.Events.ToeleveringCreatedEventData).%New(Toelevering)
+ Set ToeleveringCreatedEvent = ##class(TECH.Events.ToeleveringCreatedEvent).%New(ToeleveringCreatedEventData)
+ Do ##class(TECH.PubSub.OrchestrationContext).GetEventRaiser().RaiseEventAsync(ToeleveringCreatedEvent)
+ 
+ K TRN,KC,UR,UZ,UU2,UOD,X,PR L @("^"_Q_UGL_"(LC,TR)") Q
  ;
 Z X ^cZ Q
 ZZ ; 25.11.91 -  9 u 08
\ No newline at end of file