Dit niveau van Klant-interface biedt de rauwe data uit de databank aan, zonder ..?..?.. TECH.Error,vhLib.Macro 1 DOM.VKP.VanHoeckeKlant,%RegisteredObject right %Integer 1 %Integer 8 TECH.Persistentie.GlobalNode 1 TECH.Persistentie.GlobalNode 1 TECH.Persistentie.GlobalNode 1 TECH.Persistentie.GlobalNode 1 TECH.Persistentie.GlobalNode 1 TECH.Persistentie.GlobalNode 1 TECH.Persistentie.GlobalNode 1 TECH.Persistentie.GlobalNode 1 TECH.Persistentie.GlobalNode 1 %Boolean 0 1 DOM.PARTIJ.Partij 1 vhLib.Logger 1 KlantNummer:%String %Status 1 %Status %Status NodeIndex:%Integer %ListOfDataTypes 1 %Boolean NodeIndex:%Integer TECH.Persistentie.GlobalNode BIndex:%String,Waarde:%String Bouwt de indexen op van een bestaand object %Status Verwijdert indexen van een bestaand object Gevaarlijk om uit te voeren, weet wat je hierbij doet ! %Status DOM.VKP.enu.KlantActiviteit DOM.common.Adres 0 { Set BezoekAdres = BezoekAdressen.GetAt(1) } Quit BezoekAdres ]]> DOM.CRM.enu.BestelGedrag DOM.CRM.enu.CommercieleStatus %String %String %ListOfObjects ELEMENTTYPE="DOM.common.dto.Persoon" %ListOfDataTypes DOM.CRM.enu.DoorstuurwijzeWMS DOM.VKP.enu.Divisie DOM.VKP.KlantOrderInstellingen %String DOM.CRM.enu.FrequentieAanbrengerCommissie %String %String DOM.CRM.enu.LeveringVoorwaarde DOM.common.Adres 0 { Set Adres = Adressen.GetAt(1) } Quit Adres ]]> %String VerzendingWijze:%String DOM.VKP.enu.VerzendWijze %ListOfDataTypes %ListOfObjects ELEMENTTYPE="DOM.common.Adres" TECH.Iterator %ListOfObjects ELEMENTTYPE="DOM.common.Adres" AdresType - "L" of "" = LeverAdres - "B" = BezoekAdres - "F" = FacturatieAdres AdresType:%String %ListOfObjects ELEMENTTYPE="DOM.common.Adres" Node:%String DOM.common.Adres %String DOM.common.PartijID %String %String %String %String %String %String %String %String %String %String Index voor KKL via KK1 ophalen. %String Sleutel:%String %String %Boolean %Boolean %Boolean %Boolean %Boolean DatumVan:%Date,DatumTot:%Date TECH.Iterator DatumVan:%Date,DatumTot:%Date TECH.Iterator TECH.Iterator Officiële informatie: zie http://www.nbb.be/doc/DQ/n_pdf_ex/basis2013NL.pdf %Boolean %String Status:DOM.CRM.enu.CommercieleStatus Frequentie:DOM.CRM.enu.FrequentieAanbrengerCommissie Email:%String HandelsregisterNr:%String InitialenNaam:%String 1 LeveringVoorwaarde:DOM.CRM.enu.LeveringVoorwaarde Opmerking:%String Tijdstip:%Date 1 URL:%String Regio:%String WEET WAT JE DOET MET PARAMETER ADRESNR !!! DEZE KAN LEIDEN TOT HET OVERSCHRIJVEN VAN EEN BESTAAND ADRES GEEF LIEFST GEEN 2e PARAMETER MEE OM NIEUW NUMMER TE LATEN GEBRUIKEN of GEBRUIK MINIMAAL... ##class(DOM.VKP.impl.LeverAdresRepository).BestaatViaKlantIdEnKlantAdresNr(KlantId, KlantAdresNr) ... OM TE WETEN OF HET NUMMER AL IN GEBRUIK IS DEZE EXTRA PARAMETER WAS NODIG VOOR DE VHIP900 KLANTSYNC AX2ADMIN VOOR BEHANDELING VAN PrimaryDlvAddr INDIEN HET NIEUW BINNENKOMT LeverAdres:DOM.VKP.LeverAdres,AdresNr:%Integer="" %Integer 1)) { Set VolgendVrijKlantAdresNr = 1 } Else { While ($$$Not(IsVolgendVrijKlantAdresNrGevonden)) { Set TweedeAdresKey = $Order(^KKL(..GeefKlantIndexKKL(),EersteAdresKey)) Set EersteAdresNummer = $Number($Extract(EersteAdresKey,2,4),0) Set TweedeAdresNummer = $Number($Extract(TweedeAdresKey,2,4),0) If (($$$Not($$$HasLength(TweedeAdresKey))) || ((TweedeAdresNummer - EersteAdresNummer) > 1)) { Set VolgendVrijKlantAdresNr = EersteAdresNummer + 1 Set IsVolgendVrijKlantAdresNrGevonden = $$$True } ElseIf (TweedeAdresNummer = $Number($Extract(LaasteAdresKey,2,4),0)) { Set VolgendVrijKlantAdresNr = TweedeAdresNummer + 1 Set IsVolgendVrijKlantAdresNrGevonden = $$$True } Else { Set EersteAdresKey = TweedeAdresKey } } } If (VolgendVrijKlantAdresNr > 899) { Do ..Logger.Warning("VolgendVrijKlantAdresNr","Voor klant '"_..GeefID()_"' werd KlantAdresNr '"_VolgendVrijKlantAdresNr_"' toegekend, er zijn slechts '"_(999 - VolgendVrijKlantAdresNr)_"' nummers over!") } Quit VolgendVrijKlantAdresNr ]]> AdresData:%String 1 DOM.VKP.LeverAdres Telkens er een wijziging gebeurd, wordt hier voor één node iedere piece vergeleken tussen nieuwe en oude waarden. Indien er een waarde is veranderd, wordt dit gelogd. KlantNummer:%Integer,Node:%Integer,OudeGegevens:%String,NieuweGegevens:%String,OverTeSlagenPieces:%ListOfDataTypes="" KlantNummer:%String,BIndex:%Integer,OudGegeven:%String,NieuwGegeven:%String 1 BIndex:%String,Waarde:%String 1 0 %String 1 BIndex:%String 1 DOM.VKP.impl.DataM.DataMKlant.dto.DMAInfo 1 BIndex:%String 1 %String DOM.VKP.enu.BusinessType BusinessType:DOM.VKP.enu.BusinessType DOM.VKP.enu.FacturatieWijze FacturatieWijze:DOM.VKP.enu.FacturatieWijze DOM.VKP.enu.BTWRegimeKlant BTWRegime:DOM.VKP.enu.BTWRegimeKlant %String %String %String DOM.VKP.enu.PrijsAffichering value:DOM.VKP.enu.PrijsAffichering DOM.VKP.enu.PrijsCodex DOM.VKP.enu.PrijsCodex DOM.VKP.enu.PrijsCodex DOM.VKP.enu.PrijsCodex DOM.VKP.enu.PrijsCodex DOM.VKP.enu.PrijsCodex DOM.VKP.LeverAdres DOM.VKP.LeverAdres PrijsCodex:DOM.VKP.enu.PrijsCodex PrijsCodex:DOM.VKP.enu.PrijsCodex PrijsCodex:DOM.VKP.enu.PrijsCodex %Decimal Percentage:%Decimal %Boolean %Boolean IsLidBTWEenheidVanHoecke:%Boolean %String DOM.AKP.Leverancier %String DOM.common.VanHoeckeGebruiker Eigenlijk mag de defaulting niet de "Native"-versie zitten, maar moet dat in de DOM.common.VanHoeckeGebruiker %String %String %Boolean %Boolean %Boolean %Boolean 1 %String 1 %String 1 %String 1 %String 1 %String 1 %String 1 %String 1 %String 1 %String DOM.VKP.enu.Betalingwijze %String %String %String Taal:%String Dubieus:%Boolean Leeg betekent geen limiet. KredietLimietIn1000Eur:%Float Vooruitbetaling:%Boolean Incasso:%Boolean Rembours:%Boolean BetalingTermijn:%String Betalingwijze:DOM.VKP.enu.Betalingwijze Activiteit:DOM.VKP.enu.KlantActiviteit