Index: BL/Flow/Offerte/Doc.cls.xml =================================================================== diff -u -r1798 -r1835 --- BL/Flow/Offerte/Doc.cls.xml (.../Doc.cls.xml) (revision 1798) +++ BL/Flow/Offerte/Doc.cls.xml (.../Doc.cls.xml) (revision 1835) @@ -34,9 +34,18 @@ Set BronType = $LG(lbOfferte,2) ; [Review JBL WV FOPQueue] Onderscheid maken tussen BronType = KOF en WS : komen resp. uit ^KOFKL en uit ^Flow.Offerte.Hoofding Set ToString = ToString _"Nr: "_OfferteNr - If $Data(^KOFKL1(OfferteNr,"F")){ ; [Review JBL WV FOPQueue] Dit is deel 1 (KOF) - Set KLNr=$P(^KOFKL1(OfferteNr,"F"),"\") - Set ToString = ToString_", KlantNr: "_KLNr + If (BronType = "KOF"){ + If $Data(^KOFKL1(OfferteNr,"F")){ ; [Review JBL WV FOPQueue] Dit is deel 1 (KOF) + Set KLNr=$P(^KOFKL1(OfferteNr,"F"),"\") + Set ToString = ToString_", KlantNr: "_KLNr + } + }Else{ + Set OffBL=##class(BL.Flow.Offerte.Build).%New() + Set Offerte=OffBL.Open(OfferteNr) + If ($IsObject(Offerte) && $IsObject(Offerte.Klant)){ + Set KLNr=Offerte.Klant.Nummer + Set ToString = ToString_", KlantNr: "_KLNr + } } ; [Review JBL WV FOPQueue] Deel 2 (WS)