Index: BL/Flow/Proxy/impl/LeverbonHoofdingBepaler.cls.xml =================================================================== diff -u -r73571 -r73598 --- BL/Flow/Proxy/impl/LeverbonHoofdingBepaler.cls.xml (.../LeverbonHoofdingBepaler.cls.xml) (revision 73571) +++ BL/Flow/Proxy/impl/LeverbonHoofdingBepaler.cls.xml (.../LeverbonHoofdingBepaler.cls.xml) (revision 73598) @@ -257,7 +257,7 @@ #dim Klant As DOM.VKP.VanHoeckeKlant = ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI().GeefKlant(##class(DOM.VKP.enu.Klant).CampeTonny()) 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) @@ -329,7 +329,7 @@ #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) @@ -361,7 +361,7 @@ #dim Klant As DOM.VKP.VanHoeckeKlant = ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI().GeefKlant(HaefeleBEPersonality.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) @@ -392,7 +392,7 @@ #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) @@ -423,7 +423,7 @@ #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) @@ -451,7 +451,7 @@ #dim Klant As DOM.VKP.VanHoeckeKlant = ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI().GeefKlant(HaefeleITPersonality.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) @@ -485,7 +485,7 @@ #dim Klant As DOM.VKP.VanHoeckeKlant = ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI().GeefKlant(HaefeleATPersonality.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) @@ -513,7 +513,7 @@ #dim Klant As DOM.VKP.VanHoeckeKlant = ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI().GeefKlant(HaefeleFRPersonality.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) @@ -541,7 +541,7 @@ #dim Klant As DOM.VKP.VanHoeckeKlant = ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI().GeefKlant(HaefeleDKPersonality.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) @@ -569,7 +569,7 @@ #dim Klant As DOM.VKP.VanHoeckeKlant = ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI().GeefKlant(HaefeleCHPersonality.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) @@ -597,7 +597,7 @@ #dim Klant As DOM.VKP.VanHoeckeKlant = ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI().GeefKlant(HaefeleSEPersonality.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) @@ -625,7 +625,7 @@ #dim Klant As DOM.VKP.VanHoeckeKlant = ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI().GeefKlant(HaefeleFIPersonality.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) @@ -653,7 +653,7 @@ #dim Klant As DOM.VKP.VanHoeckeKlant = ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI().GeefKlant(HaefeleNOPersonality.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) @@ -686,7 +686,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) @@ -717,7 +717,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) @@ -748,7 +748,7 @@ #dim Klant As DOM.VKP.VanHoeckeKlant = ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI().GeefKlant(##class(DOM.VKP.enu.Klant).OPO()) 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) @@ -810,7 +810,7 @@ #dim Klant As DOM.VKP.VanHoeckeKlant = ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI().GeefKlant(##class(DOM.VKP.enu.Klant).VanRaemdonck()) 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) @@ -848,7 +848,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) @@ -887,7 +887,7 @@ } If Klant.HeeftEigenLogo() { - Set URL = "\\fop\Resources\Media\KlantLogos\" + Set URL = "\\Notes01\FOP\DocFamily7\Resources\Media\KlantLogos\" #dim Extensie As %String = ##class(TECH.StringUtils).GetLastPart(Logo,".") Set URL = ##class(TECH.Files).AppendFile(URL,Logo) Set ..LeverbonHoofding.LOGO = ##class(BL.FOP.Basis.pxAttribType).Create(URL,##class(TECH.StringUtils).ToUpper(Extensie),,)