Gegevens vanuit een email die via een contactformulier binnenkomen parsen naar gegevens en properties die bruikbaar zijn bij het openen van een klant. Do ##class(APPS.CRM.impl.InlezenKlantGegevens).VraagInhoud() 1 %RegisteredObject 1 0 [] = OK :" Read Bevestig If (Bevestig = ""){ Write @F11,@F1,@FMTI,"Openen Klant via contactformulier - ",QN,@FMTi Set FP=0303 Write @F,@F1,"Kies een openingspatroon." /// Openingspatroon kiezen Set TemplateID = ..KiesOpeningspatroon() If (TemplateID '= ""){ #dim KlantID As DOM.VKP.VanHoeckeKlantID = ##class(APPS.CRM.impl.InlezenKlantGegevens).MaakKlant(KlantGegevens,TemplateID) #dim KlantNummer As %String = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefKlantNummerVoorPartijID(KlantID) /// Wijzig scherm openen van de nieuwe klant. Do WIJZIG^KLANT(KlantNummer,1) } } } ]]> 1 %Integer