FLOWBONAM ;Bon aangemaakt door [ 11/21/2003  2:51 PM ]
 ;
 ; Ophalen van de aanmaakreferentie van een bon
GETBON(BONNr) 
 New R,KLNr,AanmaakRef,User,Node
 Quit:'BONNr ""
 Set AanmaakRef=$$GETWMS(BONNr)
 Do:AanmaakRef=""
 . Set Node=$$NODE^FLOWBON(BONNr)
 . Set AanmaakRef=""
 . Set R=$G(^KU1(BONNr,"F")),KLNr=$P(R,D)
 . Set:KLNr R=$G(^KUL(KLNr,Node,BONNr,1)),AanmaakRef=$P(R,D,48,49)
 Quit AanmaakRef
 ;
 ; Ophalen van de aanmaakreferentie van een consolidatie
GETWMS(CONSNr) 
 New R,KLNr,AanmaakRef,UserId
 Set AanmaakRef=""
 Set R=$G(^ORDW("D",CONSNr)),UserId=$P(R,D,25)
 Set:$L(UserId) AanmaakRef=UserId_D_$P(R,D,18)
 Quit AanmaakRef
 ;
 ; Verwerk een bon
BON(BONNr) 
 New AanmaakRef
 Set AanmaakRef=$$GETBON(BONNr)
 Do:$L($TR(AanmaakRef,D,"")) SHOWREF(AanmaakRef)
 Quit
 ;
 ; Toon de aanmaakreferentie via tekstpop
SHOWREF(AanmaakRef) 
 New R,Txt,Count,UserId,IntDate,ORDNr
 Set UserId=$P(AanmaakRef,D),IntDate=$P(AanmaakRef,D,2)
 Set Txt(1)="&CBon aangemaakt"
 Set Txt(2)="&C"_$S(UserId=0:$$USERNAME^vhUSER(UserId),UserId:$$USERNAME^vhUSER(UserId,-1),1:UserId)
 Set Txt(3)="&C"_$TR($$EXTDATE^vhDTyp(IntDate,"DL4"),"-"," ")
 Set Txt="Txt",R=$$WILD^vhTXTPOP("","",.Txt,,-1)
 Quit
 ;