Index: KPSBT.mac.rou
===================================================================
diff -u -r948 -r3289
--- KPSBT.mac.rou	(.../KPSBT.mac.rou)	(revision 948)
+++ KPSBT.mac.rou	(.../KPSBT.mac.rou)	(revision 3289)
@@ -107,15 +107,25 @@
  .N R
  .S R=$$^vhTXTPOP("FLOW","WARNLINES",,UZ-100,70)
  D SWNODE^FLOWTOE(LC,TR,UZ)
+ Do ProductToeleveringLijnGemaakt^FLOWTOE2(LC,TR,UZ)
 71 D S2 G YZ
  ;
  ; Wijzigen lijn
-8 N TLUNr
+8 N TLUNr,OldAantal,OldLevT
  S TLUNr=$P(@("^"_Q_"TO(LC,$P(TAB(TA(6)),D,1),UZ)"),D,15)
- S KK=K,K=TAB(TA(6)) I UA=$P(K,D,4),ULT=$P(K,D,5) S K=KK G YZ
+ S KK=K,K=TAB(TA(6))
+ I UA=$P(K,D,4),ULT=$P(K,D,5) S K=KK G YZ
+ S OldAantal=$P(K,D,4),OldLevT=$P(K,D,5)
  D KWNODE^FLOWTOE(LC,$P(TAB(TA(6)),D,1),UZ)
 85 D S3 S $P(K,D,15)=TLUNr,@("^"_Q_"TO(LC,$P(TAB(TA(6)),D,1),UZ)")=K
  D SWNODE^FLOWTOE(LC,$P(TAB(TA(6)),D,1),UZ)
+ New LeverancierID,ToeleveringID,ToeleveringLijnID,WijzigingTypes
+ Set ToeleveringID=$P(TAB(TA(6)),D,1),ToeleveringLijnID=UZ,LeverancierID=LC
+ Set WijzigingTypes = ##class(DOM.AKP.impl.ProductToelevLijnWijzigingTypes).%New()
+ 
+ Do:OldAantal'=UA WijzigingTypes.Insert(##class(DOM.AKP.enu.ProductToeleveringLijnWijzigingType).Aantal())
+ Do:OldLevT'=ULT WijzigingTypes.Insert(##class(DOM.AKP.enu.ProductToeleveringLijnWijzigingType).Leverdatum())
+ If (WijzigingTypes.Count() > 0) { Do ProductToeleveringLijnWijzigingen^FLOWTOE2(LeverancierID,ToeleveringID,ToeleveringLijnID,WijzigingTypes) }
  D S2 G YZ
  ;
  ; Verwijderen lijn
@@ -125,6 +135,7 @@
 91 S K=TAB(TA(6)),W=$D(@("^"_Q_"PR(PR,0)")),W="W"
 92 S W=$N(^(W)) G 99:$E(W)'="W",92:$E(W,24,26)'=$P(K,D,6) S R=$E(W,18,23) D S1 G 92:R'=$P(K,D,1) S R=$E(W,24,26) D S1 S UZ=100+R
  D KWNODE^FLOWTOE(LC,$P(K,D,1),UZ)
+ Do ProductToeleveringLijnAnnulatie^FLOWTOE2(LC,$P(K,D,1),UZ)
 96 K @("^"_Q_"TO(LC,$P(K,D,1),UZ)")
 97 I $P(K,D,1)'=TR,$N(^(100))=-1 D
  .New ABNr