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 +