%RegisteredObject APPS.common.impl.DataService 1 1 1 %Status 1 ProductIDs:%ListOfDataTypes %ListOfObjects ELEMENTTYPE="APPS.algemeen.entiteitcomponent.dto.ProductComponentData" KlantIDs:%ListOfDataTypes %ListOfObjects ELEMENTTYPE="APPS.algemeen.entiteitcomponent.dto.KlantComponentData" ToeleveringIDs:%ListOfDataTypes %ListOfObjects ELEMENTTYPE="APPS.algemeen.entiteitcomponent.dto.HaluxToeleveringComponentData" ProductID:%String APPS.algemeen.entiteitcomponent.dto.ProductComponentData KlantID:DOM.VKP.VanHoeckeKlantID APPS.algemeen.entiteitcomponent.dto.KlantComponentData KlantID:DOM.VKP.VanHoeckeKlantID 1 %String KredietLimiet) { Do Eigenschappen.Insert("Kredietlimiet overschreden met "_(OpenstaandSaldo-KredietLimiet)_" EUR") } #dim OudsteVervallenFactuurDatum = $Piece(KredietResultaat,"\",5) If (OudsteVervallenFactuurDatum '= "") { #dim AantalDagenVervallen As %Integer = ##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentDate() - OudsteVervallenFactuurDatum If (AantalDagenVervallen > 30) { Do Eigenschappen.Insert("Factuur "_AantalDagenVervallen_"d vervallen") } } Quit ##class(TECH.ListUtils).ListToPieces(Eigenschappen,", ") ]]> KlantID:DOM.VKP.VanHoeckeKlantID 1 %String 0) Do Eigenschappen.Insert(AantalRecenteIncidenten_" recente incidenten") #dim BetalingsWijze As %String = $LI($$BETINFO^KREDIET(KlantNr),3) If (BetalingsWijze = "") Set BetalingsWijze = $LI($$BETINFO^KREDIET(KlantNr),4) If (BetalingsWijze '= "") Do Eigenschappen.Insert(BetalingsWijze) Quit ##class(TECH.ListUtils).ListToPieces(Eigenschappen,", ") ]]> ToeleveringID:%String APPS.algemeen.entiteitcomponent.dto.HaluxToeleveringComponentData 1:"s",1:"")) } Quit ComponentData ]]>