KLPROD ;Klanten-Produkt routines [ 07/07/93  4:49 PM ]
CHECK(KLNr,PRNr) 
 
ORDER(KLNr,PRNr,OrdTyp) 
 New WI,Res,UR
 Set OrdTyp=$G(OrdTyp)
 Set WI="W",Res=0
 For  Set WI=$O(^KPR(PRNr,WI)) Quit:$E(WI,9)'="R"  Do
 .Set UR=$E(WI,18,23)
 .Quit:KLNr'=+^KO1(UR,"F")
 .If $L(OrdTyp),OrdTyp'="K" Quit $P(^KOD(KLNr,"F",UR,1),D,26)'=OrdTyp
 .If OrdTyp="K" Quit:'$P(^KPR(PRNr,WI),D,3)
 .Set Res=Res+$P(^KPR(PRNr,WI),D)
 Quit Res
 ;
TOELEV(KLNr,PRNr)