persistent BL.EC.Common,vhLib.Macro 1 %Persistent Opbouwen van de offerte lijst voor vhLIST 1 1 1 0 Ophalen van de offertenummers van een klant, eventueel beperkt tot een bepaalde status 1 KlantNr:%Integer,BeperkStatus:%String 1 %ArrayOfDataTypes ? ORDER BY CreatieTijdStip DESC" #dim rsOffertes As %ResultSet = $$ExecDynQuery^vhLib.Query(Query,$listbuild(KlantNr,LimitDatum)) while rsOffertes.Next() { #dim Status As %String = rsOffertes.Get("Status") #dim CreatieTijdStip As %Date = +rsOffertes.Get("CreatieTijdstip") #dim ID As %String = rsOffertes.Get("ID") continue:( ( Status="I" ) && ( BeperkStatus'="I" )) continue:( $data(BeperkStatus) && ( BeperkStatus'="@" ) && ( Status'=BeperkStatus) ) #dim StatusAsDisplay =$P($G(^RES("CHUI.Flow.Offerte.Offerte","PI","STATUSHOOFDING","D",$S(Status="":"O",1:Status))),"`") #dim Offertes As %ArrayOfDataTypes = OffertesPerStatus.GetAt(StatusAsDisplay) if '$IsObject(Offertes) set Offertes = ##class(%ArrayOfDataTypes).%New() do Offertes.SetAt(ID,ID) do OffertesPerStatus.SetAt(Offertes,StatusAsDisplay) } quit OffertesPerStatus ]]> 1 KlantNr:%Integer,BeperkStatus:%String %ArrayOfDataTypes Heeft een klant offertes? (eventueel beperkt tot een bepaalde status) 1 KlantNr:%Integer,BeperkStatus:%String 0 ]]> Het verwerken van een offerte 1 OfferteNr:%String,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 Set $P(Offerte("H","Default"),"\",52)=oOfferte.EtiketWoonplaats Set $P(Offerte("H","Default"),"\",53)=oOfferte.Oorsprong Set $P(Offerte("H","Default"),"\",54)=oOfferte.OorsprongDetail Set $P(Offerte("H","Default"),"\",57) = oOfferte.DocumentReferenties.GeefID() /// 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 %String Bewaren van de gewijzigde gegevens van een offerte 1 Offerte:%String Verwijderen van een offerte 1 OfferteNr:%String Verwijderen van een offertelijn 1 OfferteNr:%String,Lijn:%String Tijdelijke status "I" invullen of resetten 1 OfferteNr:%String,Reset:%Boolean 1 OfferteNr:%String 1 OfferteNr:%String Bepalen van het leverings adres voor het display en import 1 OfferteNr:%String 0 Controle van het leverings adres op verplichte velden 1 OfferteNr:%String Ophalen van de EDI referentie 1 OfferteNr:%String %Library.CacheStorage ^BL.Flow.Offerte.OfferteD OfferteDefaultData ^BL.Flow.Offerte.OfferteD ^BL.Flow.Offerte.OfferteI ^BL.Flow.Offerte.OfferteS %%CLASSNAME oOfferte