Index: KF2AD.mac.rou
===================================================================
diff -u -r3013 -r3120
--- KF2AD.mac.rou	(.../KF2AD.mac.rou)	(revision 3013)
+++ KF2AD.mac.rou	(.../KF2AD.mac.rou)	(revision 3120)
@@ -111,32 +111,40 @@
  
  S:U26="" U26=$$U26(KC,PR,UEP,UA,ULT,SWLPA)
  S R=U2
+ 
+ If $P(R,D,3)>0,UA'>0 Do ProductOrderLijnAnnulatie^FLOWORD2(KC, UR, UVN)
+ 
  S U2=$P(U2,D,1,2)_D_UA_D_$P(U2,D,4,5)_D_UEP_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_ULTT_D_$P(U2,D,30,99)
  S @("^"_Q_UGL_"(KC,US,UR,UVN)")=U2
  D SWNODE^FLOWORD(KC,UR,UVN)
  
  New OrderID,OrderLijnID,KlantID,WijzigingTypes
  Set OrderID=UR,OrderLijnID=UVN,KlantID=KC
- Set WijzigingTypes = ##class(DOM.VKP.impl.ProductOrderLijnWijzigingTypes).%New()
- Do:$P(R,D,3)'=UA WijzigingTypes.Insert(##class(DOM.VKP.enu.ProductOrderLijnWijzigingType).Aantal())
- Do:$P(R,D,6)'=UEP WijzigingTypes.Insert(##class(DOM.VKP.enu.ProductOrderLijnWijzigingType).Prijs())
- Do:$P(R,D,25)'=ULT WijzigingTypes.Insert(##class(DOM.VKP.enu.ProductOrderLijnWijzigingType).Leverdatum())
- If (WijzigingTypes.Count() > 0) { Do ProductOrderLijnWijzigingen^FLOWORD2(KlantID, OrderID, OrderLijnID, WijzigingTypes) }
+ If $P(R,D,3)>0,UA>0 Do
+ . Set WijzigingTypes = ##class(DOM.VKP.impl.ProductOrderLijnWijzigingTypes).%New()
+ . Do:$P(R,D,3)'=UA WijzigingTypes.Insert(##class(DOM.VKP.enu.ProductOrderLijnWijzigingType).Aantal())
+ . Do:$P(R,D,6)'=UEP WijzigingTypes.Insert(##class(DOM.VKP.enu.ProductOrderLijnWijzigingType).Prijs())
+ . Do:$P(R,D,25)'=ULT WijzigingTypes.Insert(##class(DOM.VKP.enu.ProductOrderLijnWijzigingType).Leverdatum())
+ . If (WijzigingTypes.Count() > 0) { Do ProductOrderLijnWijzigingen^FLOWORD2(KlantID, OrderID, OrderLijnID, WijzigingTypes) }
+ If $P(R,D,3)'>0,UA>0 Do ProductOrderLijnGemaakt^FLOWORD2(KlantID, OrderID, OrderLijnID)
  
  Do:OldAant'=UA
+ . New OldMirrorAantal
  . Set MirrorLine=$$MirrorLine^FLOWORD(KC,UR,PR)
  . Quit:'MirrorLine
  . Quit:'$$ModMirror^PRODUKT(PR,UA)
  . Do KWNODE^FLOWORD(KC,UR,MirrorLine)
- . Set R=^KOD(KC,"F",UR,MirrorLine)
+ . Set R=^KOD(KC,"F",UR,MirrorLine),OldMirrorAantal=$P(R,D,3)
+ . If OldMirrorAantal>0,UA'>0 Do ProductOrderLijnAnnulatie^FLOWORD2(KC, UR, MirrorLine)
  . Set UTOT=UTOT-$P(R,D,9)
  . Set $P(R,D,9)=$J($P(R,D,9)/$P(R,D,3)*UA,0,2)
  . Set $P(R,D,10)=$J($P(R,D,10)/$P(R,D,3)*UA,0,2)
  . Set $P(R,D,16)=$J($P(R,D,16)/$P(R,D,3)*UA,0,2)
  . Set $P(R,D,3)=UA,^KOD(KC,"F",UR,MirrorLine)=R
  . Set UTOT=UTOT+$P(R,D,9)
  . Do SWNODE^FLOWORD(KC,UR,MirrorLine),WL^PROC
- . Do ProductOrderLijnGewijzigd^FLOWORD2(KC,UR,MirrorLine,##class(DOM.VKP.enu.ProductOrderLijnWijzigingType).Aantal())
+ . If OldMirrorAantal>0,UA>0 Do ProductOrderLijnGewijzigd^FLOWORD2(KC,UR,MirrorLine,##class(DOM.VKP.enu.ProductOrderLijnWijzigingType).Aantal())
+ . If OldMirrorAantal'>0,UA>0 Do ProductOrderLijnGemaakt^FLOWORD2(KC, UR, MirrorLine)
  S:KV="MTL" UN=$J(UN*UPAR/LPAR,1,2) S UTOT=UTOT+UN D SHOWTOT^KFTOT(UTOT)
  I OldAant'=UA,$$IsActiefOrder^HADOPV(UR,OLUNr) D ModOrderMailToHalux^FLOWORD3("MA",KC,UR,TR,PR,OldAant,UA)
 39 S K="-"