ToonProduct ;TONEN GEGEVENS PRODUKT BIJ ORDERS EN UITLEVERINGEN [ 08/06/2003  3:14 PM ]

 D %SCHERM(KC,PR,R)
 K R
 Q
 
%SCHERM(KLNr,PRNr,R) 
 New IDNr,KortTxt,sFL,KLRef,UitVerkoop
 Set $P(R,"\",11) = $J($P(R,"\",11),0,##class(APPS.VKP.OrderlijnPrijsBepaler).GeefAantalDecimalenZichtbaar())
 Set $P(R,"\",13) = $J($P(R,"\",13),0,##class(APPS.VKP.OrderlijnPrijsBepaler).GeefAantalDecimalenZichtbaar())
 Set $P(R,"\",15) = $J($P(R,"\",15),0,##class(APPS.VKP.OrderlijnPrijsBepaler).GeefAantalDecimalenZichtbaar())
 Set sFL(1)=R,R=^KPR(PRNr,0),KortTxt=$P(R,D),UitVerkoop=$P(R,D,6),R=^KPR(PRNr,2),IDNr=$P(R,D,25)
 Set:UitVerkoop>$H UitVerkoop=""
 Set KLRef=$$DISP^PAKKET(KLNr,PRNr," & ",40)
 Set:$P(sFL(1),D,20)="" $P(sFL(1),D,20)=$P(sFL(1),D,10)
 Do DISPLAY^vhScherm("FLOWKF0268")
 Quit
 
INIT 
 New RemAttr,PutAttr
 Set (RemAttr,PutAttr)=""
 If '$G(IsProj),$L(KLRef) Set RemAttr=RemAttr_";KLREF"
 Set:$G(IsProj) ProjRef=$G(ProjRef),RemAttr=RemAttr_";PROJECT"
 Set:'$P(sFL(1),D) RemAttr=RemAttr_";NIETST"
 Set:$P(sFL(1),D) RemAttr=RemAttr_";PRAST"
 Set:$P(sFL(1),D,18)'=$P(sFL(1),D,2) RemAttr=RemAttr_";FYSST"
 Set:$G(UitVerkoop) RemAttr=RemAttr_";UITVERKOOP"
 Set RemAttr=RemAttr_";"_$P("VERKPR\KATPR",D,$P(sFL(1),D,14)+1)
 Set RemAttr=RemAttr_";"_$P("KORTING\CODEX",D,$P(sFL(1),D,16)+1)
 Set $E(RemAttr)="",$E(PutAttr)=""
 For I=1:1 Quit:'$L($P(RemAttr,";",I))  Do REMATTR^vhScherm($P(RemAttr,";",I),"HD","HD")
 For I=1:1 Quit:'$L($P(PutAttr,";",I))  Do PUTATTR^vhScherm($P(PutAttr,";",I),"HD","HD")
 Quit