Index: FLOWORD7.mac.rou
===================================================================
diff -u -r48197 -r48466
--- FLOWORD7.mac.rou	(.../FLOWORD7.mac.rou)	(revision 48197)
+++ FLOWORD7.mac.rou	(.../FLOWORD7.mac.rou)	(revision 48466)
@@ -166,19 +166,21 @@
  .Set $P(R,D,7)=ORDNr,$P(R,D,8)=KLNr,$P(R,D,18)=ToeMunt,$P(R,D,22)=2
  .Set ^KTO(LEVNr,TOENr,1)=R,^KTO(LEVNr,TOENr,0)=101
  .Set OLNr="" ; Produktlijnen verwerken
- .; KCA, hier gezet, want INSERT^FLOWTOE2 triggered event die KTO1 gebruikt. Faalde bij testen. Ofwel is de controle op bestaat toelevering niet juist en moet deze controleren in KTO ipv KTO1 
+ .; KCA, hier gezet, want INSERT^FLOWTOE2 triggert event die KTO1 gebruikt. Faalde bij testen. Ofwel is de controle op bestaat toelevering niet juist en moet deze controleren in KTO ipv KTO1 
  .Set:($$BevestigdAXOrderSluitenActief()) (^KTO1(TOENr),^KTOB(TOENr))=LEVNr_D 
  .For  Set OLNr=$O(OrdToe("P",LEVNr,OLNr)) Quit:OLNr=""  Do
- ..Set R=^KOD(KLNr,"F",ORDNr,OLNr),PRNr=$P(R,D,2),Aantal=$P(R,D,3),RALKleur=$P(R,D,4)
- ..Set OLevWk=$P(R,D,29) Set:OLevWk="" OLevWk=$P(R,D,25)
- ..Set R=$$LEVPR^KPRIJS(LEVNr,PRNr,NoSa),NettoPr=$P(R,D),GrOrde=$P(R,D,3),NGrOrde=$P(R,D,11)
- ..Set BrutoPr=$P(R,D,4),Korting1=$P(R,D,5),Korting2=$P(R,D,6)
+ ..New KodR,LevPrR,ToeR,Counter
+ ..Set KodR=^KOD(KLNr,"F",ORDNr,OLNr),PRNr=$P(KodR,D,2),Aantal=$P(KodR,D,3),RALKleur=$P(KodR,D,4)
+ ..Set OLevWk=$P(KodR,D,29) Set:OLevWk="" OLevWk=$P(KodR,D,25)
+ ..Set LevPrR=$$LEVPR^KPRIJS(LEVNr,PRNr,NoSa),NettoPr=$P(LevPrR,D),GrOrde=$P(LevPrR,D,3),NGrOrde=$P(LevPrR,D,11)
+ ..Set BrutoPr=$P(LevPrR,D,4),Korting1=$P(LevPrR,D,5),Korting2=$P(LevPrR,D,6)
  ..Set Netto=$J(NettoPr*Aantal/NGrOrde,0,##class(APPS.VKP.OrderlijnPrijsBepaler).GeefAantalDecimalen())
  ..Set Bruto=$J(BrutoPr*Aantal/NGrOrde,0,##class(APPS.VKP.OrderlijnPrijsBepaler).GeefAantalDecimalen())
  ..Set TLevWk=$$EXTDATE^vhLib.DataTypes($$CALCDATE^vhLib.DataTypes(OLevWk,"W",-1-CorLevT),"DW")
  ..Set R="",$P(R,D,26)="",$P(R,D,2)=PRNr,$P(R,D,3)=Aantal,$P(R,D,4)=RALKleur,$P(R,D,6)=BrutoPr
  ..Set $P(R,D,7)=Korting1_"#"_Korting2,($P(R,D,9),$P(R,D,10))=Netto,$P(R,D,12)="L",$P(R,D,16)=Bruto
  ..Set $P(R,D,17)="KTRPL",$P(R,D,21)=GrOrde,$P(R,D,22)=ToeMunt,$P(R,D,25)=TLevWk,$P(R,D,27,28)=ORDNr_D_OLNr
+ ..For Counter=55:1:$L(KodR,D) Set $P(R,D,Counter)=$P(KodR,D,Counter)
  ..Do
  ...New TLNr
  ...Set TLNr=TOENr
@@ -628,4 +630,3 @@
  If 'IsHalux,Aantal<(Stock-Reservatie) Set Add2List=0
  If IsHalux,IsStock,Aantal<(Stock-Reservatie) Set Add2List=0 ; Halux producten steeds toevoegen indien niet-stock, van stock producten de voorraad controleren
  Quit Add2List
-