persistent BL.EC.Common,%VHMacro 1 %Persistent 0 1 KlantNr,BeperkStatus,Offertes 0 1 KlantNr,BeperkStatus 1 KlantNr,BeperkStatus 1 OfferteNr,Geforceerd:%Boolean=0 0 73 Do Quit:Product="" . . . . Set $P(List(Count),D,5)=$P(List(Count),D,5)_", "_$P(Product,", "),Product=$P(Product,", ",2,999) . . . Set $P(List(Count),D,5)=$E($P(List(Count),D,5),3,99) Set Offerte("H")=OfferteNr_D_KLNr_D_Obj.Status_D_$$Strip(Obj.Referentie)_D_Obj.Datum_D_$$Strip(Obj.Afzender)_D_$$Strip(Obj.Geadresseerde)_D_$$Strip(Obj.CommReferentie) Set $P(Offerte("H","Default"),"\",51)=oOfferte.EtiketKlantNaam ; Added by WimV on 14/07/2011 Set $P(Offerte("H","Default"),"\",52)=oOfferte.EtiketWoonplaats ; Added by WimV on 14/07/2011 Set $P(Offerte("H","Default"),"\",53)=oOfferte.Oorsprong Set $P(Offerte("H","Default"),"\",54)=oOfferte.OorsprongDetail ;d WLIP^vhDBG(97,"VerwerkOfferte : "_oOfferte_" Etiket: "_oOfferte.EtiketKlantNaam_" + "_oOfferte.EtiketWoonplaats) d WLIP^vhDBG(97,"array Offerte :"_$$$ArrayTT("Offerte",.Offerte)) /// Het verwerken van de offerte Do ##Class(CHUI.Flow.Offerte.Offerte).VerwerkOfferte(.Offerte,.List,Geforceerd) Do ..UnLock(OfferteNr) ;Opkuisen van foutieve char Strip(Rec,Char) Set Char=$G(Char,"\;´`") Set Rec=$TR(Rec,Char,"") Quit Rec ]]> 1 Offerte 1 OfferteNr 1 OfferteNr,Lijn 1 OfferteNr,Reset 1 OfferteNr 1 OfferteNr 1 OfferteNr 0 1 OfferteNr 1 OfferteNr %Library.CacheStorage ^BL.Flow.Offerte.OfferteD OfferteDefaultData ^BL.Flow.Offerte.OfferteD ^BL.Flow.Offerte.OfferteI ^BL.Flow.Offerte.OfferteS listnode %%CLASSNAME oOfferte