Index: BL/Flow/Proxy/impl/LeverbonHoofdingBepaler.cls.xml
===================================================================
diff -u -r59333 -r75106
--- BL/Flow/Proxy/impl/LeverbonHoofdingBepaler.cls.xml (.../LeverbonHoofdingBepaler.cls.xml) (revision 59333)
+++ BL/Flow/Proxy/impl/LeverbonHoofdingBepaler.cls.xml (.../LeverbonHoofdingBepaler.cls.xml) (revision 75106)
@@ -18,14 +18,20 @@
1
+
+%String
+1
+
+
-KlantInstellingenService:APPS.common.KlantInstellingenService
+KlantInstellingenService:APPS.common.KlantInstellingenService,OorsprongKetting:%String=""
1
1
%Status
1
@@ -70,7 +76,36 @@
@@ -92,6 +127,118 @@
]]>
+
+KLNr:%Integer
+1
+%Boolean
+
+
+
+
+KLNr:%Integer
+1
+%Boolean
+
+
+
+
+KLNr:%Integer
+1
+%Boolean
+
+
+
+
+KLNr:%Integer
+1
+%Boolean
+
+
+
+
+KLNr:%Integer
+1
+%Boolean
+
+
+
+
+KLNr:%Integer
+1
+%Boolean
+
+
+
+
+KLNr:%Integer
+1
+%Boolean
+
+
+
+
+KLNr:%Integer
+1
+%Boolean
+
+
+
+
+KLNr:%Integer
+1
+%Boolean
+
+
+
+
+KLNr:%Integer
+1
+%Boolean
+
+
+
+
+KLNr:%Integer
+1
+%Boolean
+
+
+
+
+KLNr:%Integer
+1
+%Boolean
+
+
+
+
+KLNr:%Integer
+1
+%Boolean
+
+
+
+
+KLNr:%Integer
+1
+%Boolean
+
+
+
VanHoeckePersonality:DOM.common.VanHoeckePersonality
CampeTonnyPersonality:DOM.common.CampeTonnyPersonality
+
@@ -137,6 +311,14 @@
FurnifitPersonality:DOM.common.FurnifitPersonality
+
+MartensPersonality:DOM.common.MartensPersonality
+
+
+
+MeurerPersonality:DOM.common.MeurerPersonality
+
+
YachtSupplierPersonality:DOM.common.YachtSupplierPersonality
@@ -151,18 +333,18 @@
#dim URL As %String = ""
- #dim Klant As DOM.VKP.VanHoeckeKlant = ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI().GeefKlant(DupontPersonality.GeefKlantID())
+ #dim Klant As DOM.VKP.VanHoeckeKlant = ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI().GeefKlant(##class(DOM.VKP.enu.Klant).DuPont())
If Klant.HeeftEigenLogo(){
- Set URL = "\\fop\Resources\Media\KlantLogos\Logo\"
+ Set URL = "\\Notes01\FOP\DocFamily7\Resources\Media\KlantLogos\Logo\"
#dim Bestand As %String = "Logo Du Pont 1736 levbon.jpg"
#dim Extensie As %String = ##class(TECH.StringUtils).GetLastPart(Bestand,".")
Set URL = ##class(TECH.Files).AppendFile(URL,Bestand)
Set ..LeverbonHoofding.LOGO = ##class(BL.FOP.Basis.pxAttribType).Create(URL,##class(TECH.StringUtils).ToUpper(Extensie),,)
}
Set ..LeverbonHoofding.NAAM = "DU PONT BVBA"
- Set ..LeverbonHoofding.STRAATNRBUS = "Kleinheide 24G"
- Set ..LeverbonHoofding.WOONPLAATS = "Pulderbos"
- Set ..LeverbonHoofding.POSTCODE = "BE 2242"
+ Set ..LeverbonHoofding.STRAATNRBUS = "Bouwelven 16"
+ Set ..LeverbonHoofding.WOONPLAATS = "Grobbendonk"
+ Set ..LeverbonHoofding.POSTCODE = "BE 2280"
Set ..LeverbonHoofding.TELEFOON = "Tel.: +32 3 464 00 91"
Set ..LeverbonHoofding.FAX = "Fax.: +32 3 464 00 92"
Set ..LeverbonHoofding.EMAIL = "info@du-pont.be"
@@ -175,7 +357,33 @@
HaefeleBEPersonality:DOM.common.HaefeleBEPersonality
-
+
@@ -190,16 +398,16 @@
#dim Klant As DOM.VKP.VanHoeckeKlant = ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI().GeefKlant(HaefeleNLPersonality.GeefKlantID())
If Klant.HeeftEigenLogo(){
- Set URL = "\\fop\Resources\Media\KlantLogos\"
+ Set URL = "\\Notes01\FOP\DocFamily7\Resources\Media\KlantLogos\"
#dim Bestand As %String = Klant.GeefLogo()
#dim Extensie As %String = ##class(TECH.StringUtils).GetLastPart(Bestand,".")
Set URL = ##class(TECH.Files).AppendFile(URL,Bestand)
Set ..LeverbonHoofding.LOGO = ##class(BL.FOP.Basis.pxAttribType).Create(URL,##class(TECH.StringUtils).ToUpper(Extensie),,)
}
Set ..LeverbonHoofding.NAAM = "Häfele Nederland BV"
- Set ..LeverbonHoofding.STRAATNRBUS = "Nagelpoelweg 30"
+ Set ..LeverbonHoofding.STRAATNRBUS = "Tweelingenlaan 46"
Set ..LeverbonHoofding.WOONPLAATS = "Apeldoorn"
- Set ..LeverbonHoofding.POSTCODE = "7333 NZ"
+ Set ..LeverbonHoofding.POSTCODE = "7324 AN"
Set ..LeverbonHoofding.TELEFOON = "+31 (0)55 - 5384600"
Set ..LeverbonHoofding.EMAIL = "Info@hafele.nl"
Set ..LeverbonHoofding.T1 = "BTW: NL008044211B01"
@@ -221,25 +429,252 @@
#dim Klant As DOM.VKP.VanHoeckeKlant = ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI().GeefKlant(HaefeleDEPersonality.GeefKlantID())
If Klant.HeeftEigenLogo(){
- Set URL = "\\fop\Resources\Media\KlantLogos\"
+ Set URL = "\\Notes01\FOP\DocFamily7\Resources\Media\KlantLogos\"
#dim Bestand As %String = Klant.GeefLogo()
#dim Extensie As %String = ##class(TECH.StringUtils).GetLastPart(Bestand,".")
Set URL = ##class(TECH.Files).AppendFile(URL,Bestand)
Set ..LeverbonHoofding.LOGO = ##class(BL.FOP.Basis.pxAttribType).Create(URL,##class(TECH.StringUtils).ToUpper(Extensie),,)
}
- Set ..LeverbonHoofding.NAAM = "Häfele Nederland BV"
- Set ..LeverbonHoofding.STRAATNRBUS = "Nagelpoelweg 30"
- Set ..LeverbonHoofding.WOONPLAATS = "Apeldoorn"
- Set ..LeverbonHoofding.POSTCODE = "7333 NZ"
- Set ..LeverbonHoofding.TELEFOON = "+31 (0)55 - 5384600"
- Set ..LeverbonHoofding.EMAIL = "Info@hafele.nl"
- Set ..LeverbonHoofding.T1 = "BTW: NL008044211B01"
- Set ..LeverbonHoofding.T2 = "KVK: 08044079"
- Set ..LeverbonHoofding.T3 = "Rabobank: IBAN NL12RABO0393150151 BIC: RABONL2U"
- Set ..LeverbonHoofding.T4 = "Deutsche Bank: IBAN NL74DEUT0531622495 BIC: DEUTNL2N"
+ Set ..LeverbonHoofding.NAAM = "Häfele SE & Co KG"
+ Set ..LeverbonHoofding.STRAATNRBUS = "Adolf-Häfele-Str. 1"
+ Set ..LeverbonHoofding.WOONPLAATS = "Nagold"
+ Set ..LeverbonHoofding.POSTCODE = "72202"
+ Set ..LeverbonHoofding.TELEFOON = "+49 745 29 50"
+ Set ..LeverbonHoofding.EMAIL = "Info@hafele.de"
+ Set ..LeverbonHoofding.T1 = "USt-ID: DE144425382"
]]>
+
+HaefeleITPersonality:DOM.common.HaefeleITPersonality
+
+
+
+
+HaefeleATPersonality:DOM.common.HaefeleATPersonality
+
+
+
+
+HaefeleFRPersonality:DOM.common.HaefeleFRPersonality
+
+
+
+
+HaefeleDKPersonality:DOM.common.HaefeleDKPersonality
+
+
+
+
+HaefeleCHPersonality:DOM.common.HaefeleCHPersonality
+
+
+
+
+HaefeleSEPersonality:DOM.common.HaefeleSEPersonality
+
+
+
+
+HaefeleFIPersonality:DOM.common.HaefeleFIPersonality
+
+
+
+
+HaefeleNOPersonality:DOM.common.HaefeleNOPersonality
+
+
+
KischPersonality:DOM.common.KischPersonality
@@ -257,7 +692,7 @@
#dim Klant As DOM.VKP.VanHoeckeKlant = ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI().GeefKlant(NotebornPersonality.GeefKlantID())
If Klant.HeeftEigenLogo(){
- Set URL = "\\fop\Resources\Media\KlantLogos\"
+ Set URL = "\\Notes01\FOP\DocFamily7\Resources\Media\KlantLogos\"
#dim Bestand As %String = Klant.GeefLogo()
#dim Extensie As %String = ##class(TECH.StringUtils).GetLastPart(Bestand,".")
Set URL = ##class(TECH.Files).AppendFile(URL,Bestand)
@@ -288,7 +723,7 @@
#dim Klant As DOM.VKP.VanHoeckeKlant = ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI().GeefKlant(##class(DOM.VKP.enu.Klant).SFS())
If Klant.HeeftEigenLogo(){
- Set URL = "\\fop\Resources\Media\KlantLogos\"
+ Set URL = "\\Notes01\FOP\DocFamily7\Resources\Media\KlantLogos\"
#dim Bestand As %String = Klant.GeefLogo()
#dim Extensie As %String = ##class(TECH.StringUtils).GetLastPart(Bestand,".")
Set URL = ##class(TECH.Files).AppendFile(URL,Bestand)
@@ -307,14 +742,98 @@
]]>
+
+OPOPersonality:DOM.common.OPOPersonality
+
+
+
+
+OPODePersonality:DOM.common.OPODePersonality
+
+
+
VanHoeckVoorHaluxPersonality:DOM.common.VanHoeckeVoorHaluxPersonality
VanRaemdonckPersonality:DOM.common.VanRaemdonckPersonality
-
+
@@ -335,7 +854,7 @@
#dim Klant As DOM.VKP.VanHoeckeKlant = ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI().GeefKlant(HeinPersonality.GeefKlantID())
If Klant.HeeftEigenLogo(){
- Set URL = "\\fop\Resources\Media\KlantLogos\"
+ Set URL = "\\Notes01\FOP\DocFamily7\Resources\Media\KlantLogos\"
#dim Bestand As %String = Klant.GeefLogo()
#dim Extensie As %String = ##class(TECH.StringUtils).GetLastPart(Bestand,".")
Set URL = ##class(TECH.Files).AppendFile(URL,Bestand)
@@ -356,6 +875,72 @@
]]>
+
+BlumPLPersonality:DOM.common.BlumPLPersonality
+
+
+
+
+BlumCZPersonality:DOM.common.BlumCZPersonality
+
+
+
BeslagDesignPersonality:DOM.common.BeslagDesignPersonality
@@ -395,6 +980,22 @@
HahleOyPersonality:DOM.common.HahleOyPersonality
+
+
+DozonPersonality:DOM.common.DozonPersonality
+
+
+
+OstermannBEPersonality:DOM.common.OstermannBEPersonality
+
+
+
+OstermannNLPersonality:DOM.common.OstermannNLPersonality
+
+
+
+OstermannDEPersonality:DOM.common.OstermannDEPersonality
+