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) /// 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