FLOWOFF8 ;Offerte kennisanker [ 11/21/2003  3:30 PM ]
 #Include BL.Derde.Kennis
 ;
 ; Alle ankers eventueel tot klant beperkt (lbProduct leeg)
KennisAnkerAll(KLNr, OFFNr, InclGeneral)
 New PopUp,OFFLNr,PRNr,lbProduct
 Set InclGeneral=$G(InclGeneral)
 Set:'$G(KLNr) KLNr=$P(^KOFKL1(OFFNr,"F"),D)
 Set OFFLNr=100
 For  Set OFFLNr=$O(^KOFKL(KLNr,"F",OFFNr,OFFLNr)) Quit:OFFLNr=""  Do
 . Set PRNr=$P(^KOFKL(KLNr,"F",OFFNr,OFFLNr),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("OFFNr")=OFFNr,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,$$$adOrderVerwerkingOfferteIngave),$G(lbProduct),$G(CUserId,$G(QU(1))),,,InclGeneral,,1,.PopUp)
 ;
 ; Alle ongelezen ankers eventueel tot klant beperkt (lbProduct leeg)
KennisAnkerUnRead(KLNr, OFFNr, InclGeneral)
 New PopUp,OFFLNr,PRNr,lbProduct
 Set InclGeneral=$G(InclGeneral)
 Set:'$G(KLNr) KLNr=$P(^KOFKL1(OFFNr,"F"),D)
 ; Bij een nieuwe offerte is lbProduct leeg dus krijgt men de productonafhankelijke ankers
 Set OFFLNr=100
 For  Set OFFLNr=$O(^KOFKL(KLNr,"F",OFFNr,OFFLNr)) Quit:OFFLNr=""  Do
 . Set PRNr=$P(^KOFKL(KLNr,"F",OFFNr,OFFLNr),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("OFFNr")=OFFNr,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,$$$adOrderVerwerkingOfferteIngave),$G(lbProduct),$G(CUserId,$G(QU(1))),"OFF",OFFNr,InclGeneral,,,.PopUp)
 ;