TECH.Mockable %String * %Integer 25 1 DossierNummer:%String,IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken,HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom %String 1 DossierNummer:%String,IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.INKKenmerken,HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom %String 1 DossierNummer:%String,IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken,HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom,DataDefinitie:Prod.Kenmerk.DataDefinitieAdapter="" %String 1 DossierNummer:%String,IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.MVXKenmerken,HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom %String 1 DossierNummer:%String,IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken,HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom %String 1 DossierNummer:%String,IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.RVGKenmerken,HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom %String ProductID:%String,Korttekst:%String OudeKorttekst:%String,StartPositieKorttekst:%Integer,KorttekstPatroon:%String %String $Length(OudeKorttekst) ) || ( StartPositieKorttekst < 1 )) { Set Exceptie = ##class(TECH.Exceptions.InvalidInputException).%New("De startpositie moet een waarde tussen 1 en " _ $Length(OudeKorttekst) _ " zijn, grenzen inbegrepen.") Do Exceptie.VoegToeExtraInfo("StartPositie:"_StartPositieKorttekst) Do ##class(TECH.ExceptionHandler).Throw(Exceptie) } Set StartPositieKorttekst = StartPositieKorttekst-1 #dim LengteKorttekstPatroon As %Integer = $Length(KorttekstPatroon) #dim Korttekst As %String = $Extract(OudeKorttekst,0,StartPositieKorttekst) Set Korttekst = ##class(TECH.StringUtils).AddTrailingSpace(Korttekst,StartPositieKorttekst) For i=1:1:LengteKorttekstPatroon { If $Extract(KorttekstPatroon,i) = ..#WildCharNietVervangen { Set Korttekst = Korttekst_$Extract(OudeKorttekst,StartPositieKorttekst+i) }Else{ Set Korttekst = Korttekst_$Extract(KorttekstPatroon,i) } } Set Korttekst = Korttekst_$Extract(OudeKorttekst,(LengteKorttekstPatroon+StartPositieKorttekst+1),$Length(OudeKorttekst)) if $Length(Korttekst) > ..#MaximumKorttekstGrootte { Set Exceptie = ##class(TECH.Exceptions.InvalidInputException).%New("Korttekst mag niet groter dan "_..#MaximumKorttekstGrootte_" zijn.") Do Exceptie.VoegToeExtraInfo("Korttekst"_Korttekst) Do ##class(TECH.ExceptionHandler).Throw(Exceptie) } Quit Korttekst ]]> OudeKorttekst:%String,KorttekstPrefix:%String ProductID:TECH.String TECH.String