BLHIST ;Blum historieken [ 11/06/96  3:27 PM ]
 
OVD(LevNr,VervId) 
 Set Munt=$P(^KLE(^KL1(LevNr),0),D,11)
 Set MuntPar=$$MUNTPAR^vhRtn1(Munt,1)
 Set FANr=""
 For  Set FANr=$O(^Verv(LevNr,"D",VervId,FANr)) Quit:FANr=""  Do
 .Set LijnNr=""
 .For  Set LijnNr=$O(^Verv(LevNr,"D",VervId,FANr,LijnNr)) Quit:LijnNr=""  Do
 ..Set RecL=^Verv(LevNr,"D",VervId,FANr,LijnNr)
 ..Set TLNr=$P(RecL,D)
 ..Set PRNr=$P(RecL,D,7)
 ..If PRNr Do 
 ...Set $P(^Verv(LevNr,"D",VervId,FANr,LijnNr),D,16)="*" ; Overgedragen
 ...Do ONE(PRNr,+$H,$P(RecL,D,11),$P(RecL,D,14)/MuntPar,"T;"_$S($E(TLNr)="5":"",1:TLNr))
 Set $P(^Verv(LevNr,"D",VervId),D,7)=1 ; Overgedragen maar nog niet in boekhouding
 Quit
 
 ; Ref heeft het formaat Kode_";"_BonNr
 ;waar Kode : T = Toelevering, M = Manueel,...
ONE(PRNr,Datum,Aantal,Bedrag,Ref) 
 New Nr
 Quit:'PRNr
 Set Nr=$O(^BLHist("D",PRNr,Datum,""),-1)+1
 Set ^BLHist("D",PRNr,Datum,Nr)=Aantal_D_+$J(Bedrag,0,3)_D_Ref
 Quit