Personen van een klant persistent VHOpslag %Library.Persistent,Derde.Abstract.Persoon 0 1 1 Derde,VolgNr 0 Derde.Klant.Klant 1 Derde.EC.Toegang Waarde van 1 tot 4 (waarbij 1 TOPBESLISSER en 4 MEDEWERKER VAN DE BESLISSER) %Library.Integer Lijst met ";" gescheiden van SNM en PRODINFO %Library.String Voor welke documenten deze persoon de voorkeur geniet Bv. Bij de klant wordt ingesteld "leveringsbon per mail" dan wordt dit normaal gezien de aankoop verstuurd. behalve als een persoon de voorkeur geniet van dit document. Lijst met ";" gescheiden %Library.String %Library.SQLQuery Derde:%Integer SELECT Derde || '||' || PersNr,Naam, VoorNaam FROM Derde_Klant.Persoon WHERE derde=:Derde s o=##class(Derde.Klant.Persoon).OpenViaPersID(8951) 1 PersID w ##class(Derde.Klant.Persoon).GetName(PersID) 1 PersID %String %SQLQuery paKlantNr:%String Nummer = :paKlantNr) ORDER BY VoorNaam,Naam]]> %SQLQuery paKlantNr:%String Nummer = :paKlantNr) GROUP BY eMail ORDER BY eMail]]> %Library.SQLQuery SELECT Case when Derde_Klant.Persoon.Aanspreking IS NOT NULL then Derde_Klant.Persoon.Aanspreking else '' end As Aanspreking, Derde_Klant.Persoon.Naam, Derde_Klant.Persoon.VoorNaam As Voornaam, Derde_Klant.Klant.StraatNrBus, Derde_Klant.Klant.Woonplaats, Derde_Klant.Klant.LandCode As Land, Derde_Klant.Klant.Postnummer As Postcode, Derde_Klant.Klant.Sektor As Regio, Derde_Klant.Klant.Aktiviteit As Activiteit, Derde_Klant.Klant.Taal As Taal, Derde_Klant.Klant.Nummer As KlantNr, Case when Derde_Klant.Klant.Aktiviteit NOT IN ('Consument','Relatie') then Derde_Klant.Klant.Naam else '' end As Bedrijfsnaam, Derde_Klant.Klant_GeefExterneVerantw(Derde_Klant.Klant.Nummer) As ExterneVerantwoordelijke FROM Derde_Klant.Persoon INNER JOIN Derde_Klant.Klant ON Derde_Klant.Persoon.Derde = Derde_Klant.Klant.ID WHERE Derde_Klant.Persoon.PrivacyToelating LIKE '%BM%' AND StraatNrBus != '' Order by Postcode DESC 1 %CacheSQLStorage ^Derde.Kl.PersoonS data ^PERS delimited "K" {Derde} {VolgNr} "\" 4 "\" 8 "\" 15 "\" 16 "\" 17 "\" 18 "\" 19 "\" 11 "\" 2 "\" 10 "\" 1 "\" 7 "\" 5 "\" 3 "\" 6 "\" 14