FLOWORD8 ;Order kennisanker [ 11/04/2003  1:20 PM ]
 #Include BL.Derde.Kennis
 ;
 ; Alle ankers eventueel tot klant beperkt (lbProduct leeg)
KennisAnkerAll(KLNr, ORDNr, InclGeneral)
 New PopUp,OLNr,PRNr,lbProduct
 Set InclGeneral=$G(InclGeneral)
 Set:'$G(KLNr) KLNr=$P(^KO1(ORDNr,"F"),D)
 Set OLNr=100
 For  Set OLNr=$O(^KOD(KLNr,"F",ORDNr,OLNr)) Quit:OLNr=""  Do
 . Set PRNr=$P(^KOD(KLNr,"F",ORDNr,OLNr),D,2)
 . Set:PRNr $LI(lbProduct,$LL($G(lbProduct))+1)=PRNr
 Set PopUp("Buttons")="OK;NIEUW;WIJZIG"
 Set PopUp("Titel")="Alle"
 Set PopUp("KLNr")=KLNr,PopUp("ORDNr")=ORDNr,PopUp("List")=1
 Set PopUp("Criteria",2)=KLNr_" "_$P(^KKL(^KK1(KLNr),0),D,2)
 If InclGeneral,KLNr'=4682 Set PopUp("Criteria",3)=4682_" "_$P(^KKL(^KK1(4682),0),D,2)
 Quit ##class(CHUI.Derde.Kennis.Kennis).PopUp(KLNr,$LB($$$adOrderVerwerkingIngave),$G(lbProduct),$G(CUserId,$G(QU(1))),,,InclGeneral,,1,.PopUp)
 
 ; Alle ongelezen ankers eventueel tot klant beperkt (lbProduct leeg)
KennisAnkerUnRead(KLNr, ORDNr, InclGeneral)
 New PopUp,OLNr,PRNr,lbProduct
 Set InclGeneral=$G(InclGeneral)
 Set:'$G(KLNr) KLNr=$P(^KO1(ORDNr,"F"),D)
 ; Bij een nieuw order is lbProduct leeg dus krijgt men de productonafhankelijke ankers
 Set OLNr=100
 For  Set OLNr=$O(^KOD(KLNr,"F",ORDNr,OLNr)) Quit:OLNr=""  Do
 . Set PRNr=$P(^KOD(KLNr,"F",ORDNr,OLNr),D,2)
 . Set:PRNr $LI(lbProduct,$LL($G(lbProduct))+1)=PRNr
 Set PopUp("Buttons")="GELEZEN;ANNULEER;NIEUW;WIJZIG"
 Set PopUp("Titel")="Ongelezen"
 Set PopUp("KLNr")=KLNr,PopUp("ORDNr")=ORDNr,PopUp("List")=1
 Set PopUp("Criteria",2)=KLNr_" "_$P(^KKL(^KK1(KLNr),0),D,2)
 If InclGeneral,KLNr'=4682 Set PopUp("Criteria",3)=4682_" "_$P(^KKL(^KK1(4682),0),D,2)
 Quit ##class(CHUI.Derde.Kennis.Kennis).PopUp(KLNr,$LB($$$adOrderVerwerkingIngave),$G(lbProduct),$G(CUserId,$G(QU(1))),"ORD",ORDNr,InclGeneral,,,.PopUp)