persistent DataM %Library.Persistent,Derde.Abstract.Derde 0 Projection Java As %Projection.Java(ROOTDIR = "\\notes01\shared\F M A\CacheJava"); Format: Numeric: 4 %Library.Integer Sys.cTimeStamp Format: Char: 2 zie ^KKLAK %Library.String %String %String %String Format: $H Wordt ingevuld bij wijziging of nieuw ingevuld BTW-nummer %Library.Date Format: Numeric: 1 Waarde 0 = vrij 1 = btw %Library.Integer Format: Numeric: 1 Waarde empty = neen 1 = ja %Library.Integer Duidt aan of een klant op zijn facturen bruto of netto bedragen te zien krijgt. Format: Numeric: 1 Waarde Empty = netto 1 = bruto %Library.Integer Klantnummer waarnaar toe de statistiek gegevens van deze klant zijn overgedragen %Library.Integer Format: Char: 40 %Library.String Format: Numeric: 1 Waarde empty = neen 1 = ja %Library.Integer Eerste faktuurdatum ingevuld door het ^KF21B %Library.Date Format: Numeric: 1 Waarde empty = normaal 1 = eventueel vrij %Library.Integer Format: Numeric: 1 %Library.String Format: Numeric: 2 %Library.Integer Klant aan wie te facturen, alle orders van deze klant worden gefactureerd op de klant FacturatieKlant %Library.String Format: Numeric: 1 Waarde empty = neen 1 = ja %Library.Integer %Library.String Format: Numeric: 4 Waarde: Bestaan klantnummer %Library.Integer Format: Numeric: 1 Waarde empty = aktief 1 = niet aktief %Library.Integer %Library.Integer 1 1 = buitengebruik 2 = verwijderd leeg = aktief %Library.Integer 1 Set {*}=$S({KodeCommercieelAktief}:1,1:{BuitenGebruik}) 1 Format: Numeric: 1 Waarde empty = ja 1 = neen %Library.Integer in 1000 BF Format: Numeric: 6 %Library.Integer %Library.Integer %Library.String Format: Numeric: 1 Waarde empty = neen 1 = ja %Library.Integer Format: Numeric: 1 Waarde empty = neen 1 = ja %Library.Integer Format: Char: 1 Wordt bepaald uit de Derde.Klant.Relaties %Library.String 1 Set {*}=$LG(##Class(BL.Derde.Klant.Relaties).LidVan({Nummer})) 1 Wordt bepaald uit de Derde.Klant.Relaties %Library.Float 1 Set {*}=$LG(##Class(BL.Derde.Klant.Relaties).LidVan({Nummer}),2)*100 1 Format: Char: 25 %Library.String %Library.String 1 Set {*}=$$UPTRIMAN^vhRtn1({Naam}) 1 Format: Numeric: 5 %Library.Integer 1 Format: Numeric: 9 %Library.String Format: Char: 24 %Library.String Format: Char: 40 %Library.String Format: Char: 40 %Library.String Format: Char: 40 %Library.String Format: Char: 40 %Library.String Format: Char: 40 %Library.String Format: Char: 40 %Library.String Format: Char: 40 %Library.String Format: Char: 40 %Library.String Format: Char: 40 %Library.String Format: Char: 40 %Library.String Format: Char: 40 %Library.String Format: Char: 40 %Library.String %String 1 Set {*}=##class(Derde.Klant.Klant).DivisieFetch({Sektor}) 1 %String 1 Set {*}=##class(Derde.Klant.Klant).SubDivisieFetch({Sektor}) 1 Duidt aan of voor de klant slechts een order op een bon mag gezet worden en 1 bon of een faktuur. Format: Numeric: 1 Waarde empty = neen 1 = ja %Library.Integer Bepaalt of de orders waarvoor er voor geen enkele OL een probleem is automatisch mogen doorgegeven worden naar het WMS Waarde: A;M = Automatisch;Manueel %Library.String 1 = automatische orderbevestiging na creatie order %Library.String %Library.String Format: Char: 1 Waarde: L,R,S,B of G %Library.String Format: Char: 1 Waarde: L,R,S,B of G %Library.String Format: Numeric: 1 Waarde empty = neen 1 = ja %Library.Integer Format: Char: 1 Waarde: L,R,S,B of G %Library.String Format: Numeric: 1 Waarde empty = neen 1 = ja %Library.Integer Format: Char: 1 Waare: 0,1,3,4,8,9 %Library.String %Library.String %Library.String Format: Numeric: 2 %Library.String Format: Char: 1 Waarde: 0,1,2,3,A,B,C,D of Z %Library.String Default verzendwijze voor deze klant zie ^KBA(155,) %Library.String Geïncripteerde sleutel voor toegang tot de CSP WebWizard %Library.String Format: Numeric: 1 Waarde empty = neen 1 = ja %Library.Integer Interne verantwoordelijke bij orderverwerking. Indien niet ingevuld dan defaulting van uit ^RES("KLANT","PI","REGIO") Res.InternePersoon Externe verantwoordelijke - vertegenwoordiger Indien niet ingevuld dan defaulting van uit ^RES("KLANT","PI","REGIO") Res.InternePersoon Default verpakking tandembox %Library.String %Library.String 1 Set {*}=$S($D(^KKAAP({Nummer})):1,1:0) 1 Index voor property Naam Uniekheid index voor property Nummer 1 Nummer 1 1 Reg %String 9)&&(Reg<30) Quit "KS" Quit "ZZ" ]]> 1 Reg %String 9)&&(Reg<20) Quit "KSBE" If (Reg>19)&&(Reg<30) Quit "KSNL" Quit "ZZ" ]]> Nummer %String Nummer %String Reg %String Reg %String Reg %String Reg %String 1 KlantNr:%Library.String %Library.String 1 KlantNr:%Library.String %Library.String DevObj:%Library.String,Taal:%Library.String,Opties:%Library.String,XSLURL:%Library.String="" ") . Do WRITE^XMLWRITE(DevObj,"") . Do WRITELN^XMLWRITE(DevObj) Do BEGINTAG^XMLWRITE(DevObj,"KLANT") Do TAGWRITE^XMLWRITE(DevObj,"NAAM",$$ConvertToHTML^vhRtn1(%this.Naam)) Do TAGWRITE^XMLWRITE(DevObj,"NUMMER",$$ConvertToHTML^vhRtn1(%this.Nummer)) Do TAGWRITE^XMLWRITE(DevObj,"STRAATNRBUS",$$ConvertToHTML^vhRtn1(%this.StraatNrBus)) Do TAGWRITE^XMLWRITE(DevObj,"POSTNR",$$ConvertToHTML^vhRtn1(%this.Postnummer)) Do TAGWRITE^XMLWRITE(DevObj,"WOONPLAATS",$$ConvertToHTML^vhRtn1(%this.Woonplaats)) Do ENDTAG^XMLWRITE(DevObj,"KLANT") Do WRITELN^XMLWRITE(DevObj) Quit ]]> %SQLQuery paWildCardName:%String SELECT %ID,LandCode,Naam,Woonplaats,DECODE(KodeCommercieelAktief,1,0,1) AS Active FROM Derde_Klant.Klant WHERE Naam LIKE UPPER(:paWildCardName) ORDER BY Naam %SQLQuery paWildCardWoonplaats:%String SELECT %ID,LandCode,Naam,Woonplaats,DECODE(KodeCommercieelAktief,1,0,1) AS Active FROM Derde_Klant.Klant WHERE Woonplaats LIKE UPPER(:paWildCardWoonplaats) ORDER BY Woonplaats,Naam ]]> %Library.SQLQuery KLNummer:%Library.Integer SELECT ID, Naam FROM Derde_Klant.Klant WHERE (Nummer = :KLNummer) ]]> %Library.SQLQuery NaamBegin SELECT ID, Naam FROM Derde_Klant.Klant WHERE Naam LIKE (:NaamBegin || '%') ORDER BY Naam %SQLQuery paLBSektor:%String 0) ORDER BY $LISTFIND(:paLBSektor,Sektor)]]> %CacheSQLStorage ^Derde.Kl.KlantS data ^DKL delimited "K" "KL.A" {Nummer} "\" 0 4 "\" 1 14 "\" 1 11 "\" 3 14 "\" 2 23 "\" 0 16 "\" 0 15 "\" 3 12 "\" 1 1 "\" 0 18 "\" 1 17 "\" 2 5 "\" 0 30 "\" 3 7 "\" 2 17 "\" 1 16 "\" 3 8 "\" 2 21 "\" 2 19 "\" 2 9 "\" 1 2 "\" 0 25 "\" 1 3 "\" 1 20 "\" 0 12 "\" 2 20 "\" 1 21 "\" 3 13 "\" 0 50 "\" 1 10 "\" 2 10 "\" 0 10 "\" 0 17 "\" 2 7 "\" 3 10 "\" 3 11 "\" 1 5 "\" 0 8 "\" 0 19 "\" 3 3 "\" 0 11 "\" 0 2 "\" 0 23 "\" 1 12 "\" 1 4 "\" 5 3 "\" 5 4 "\" 5 5 "\" 1 8 "\" 4 1 "\" 4 2 "\" 4 3 "\" 4 4 "\" 4 5 "\" 5 1 "\" 5 2 "\" 1 18 "\" 2 15 "\" 1 19 "\" 0 6 "\" 2 3 "\" 2 4 "\" 3 1 "\" 2 25 "\" 1 15 "\" 0 20 "\" 0 21 "\" 0 5 "\" 0 9 "\" 1 24 "\" 0 13 "\" 0 14 "\" 0 24 "\" 2 2 "\" 0 3 "\" 1 25 "\" 0 26 "\" 0 22 "\" 2 1 "\" 7 9 "\" 2 16 "\" 3 2 "\" 0 28 "\" 0 7