Index: BL/Flow/Levering/Label.cls.xml =================================================================== diff -u -r62273 -r62282 --- BL/Flow/Levering/Label.cls.xml (.../Label.cls.xml) (revision 62273) +++ BL/Flow/Levering/Label.cls.xml (.../Label.cls.xml) (revision 62282) @@ -163,25 +163,10 @@ #dim KlantOptimaPack As DOM.VKP.VanHoeckeKlant = VerkoopAPI.GeefKlant(##class(DOM.VKP.enu.Klant).OptimaPack()) If KLNr="" Quit $$$ERROR($$$GeneralError,"Verkeerd bonnummer "_..BONNr_": geen data in de global.") - ;#dim KlantID As DOM.VKP.VanHoeckeKlantID = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefKlantPartijID(KLNr) Set ..pxLabelKlant=##class(BL.Flow.Levering.sub.pxKlantPallet).Create() If $L($TR($P(xAdres,"\",1,10),"\",""))<5 Set xAdres=^KKL(^KK1(KLNr),0) Set ..pxLabelKlant.Logo = ..LabelLogoBepaler.GeefLogo(KLNr) - - /* - If (KlantID = ##class(DOM.VKP.enu.Klant).OptimaPack()){ - Set ..pxLabelKlant.Logo = "" - } ElseIf (KlantID = ##class(DOM.VKP.enu.Klant).HaefeleNederland()) || (KlantID = ##class(DOM.VKP.enu.Klant).HaefeleBelgie()) || (KlantID = ##class(DOM.VKP.enu.Klant).HaefeleDuitsland() || (KlantID = ##class(DOM.VKP.enu.Klant).VanRaemdonck())) { - Set ..pxLabelKlant.Logo="logo\"_^IPCom("CS","LOGO"_KLNr,0) - } ElseIf (KlantID = ##class(DOM.VKP.enu.Klant).DuPont()) { - Set ..pxLabelKlant.Logo="logo\"_^IPCom("CS","LOGO"_KLNr,0) - } ElseIf (KlantID = ##class(DOM.VKP.enu.Klant).Hein()) && $Data(^IPCom("CS","LOGO"_KLNr,0)) { - Set ..pxLabelKlant.Logo="logo\"_^IPCom("CS","LOGO"_KLNr,0) - } Else{ - Set ..pxLabelKlant.Logo="logo\Logo VHZwart.svg" - } - */ Set ..pxLabelKlant.KlantNaam=$Piece(xAdres,"\",2) Set ..pxLabelKlant.Toenaam=$Piece(xAdres,"\",3) Set ..pxLabelKlant.StraatNaamNr=$Piece(xAdres,"\",5) @@ -253,21 +238,6 @@ Set ..pxLabelKlant.Logo = ..LabelLogoBepaler.GeefLogo() } - /* - If ((KLNr=$$$KlantSchachermayerAU)||(KLNr=$$$KlantSchachermayerNL)) { - Set ..pxLabelProduct.Logo=..pxLabelProduct.GetClientLogo(KLNr) - } ElseIf KlantID = ##class(DOM.VKP.enu.Klant).HaefeleNederland() { - Set ..pxLabelProduct.Logo="logo\"_^IPCom("CS","LOGO"_KLNr,0) - } ElseIf (KlantID = ##class(DOM.VKP.enu.Klant).HaefeleBelgie()) && (##class(DOM.DomeinContext).Instance().GeefProjectSettingsAPI().IsActiefHaefeleBENaarEindklant()) { - Set ..pxLabelProduct.Logo="logo\"_^IPCom("CS","LOGO"_KLNr,0) - } ElseIf (KlantID = ##class(DOM.VKP.enu.Klant).DuPont()) { - Set ..pxLabelProduct.Logo="logo\"_^IPCom("CS","LOGO"_KLNr,0) - } ElseIf (KlantID = ##class(DOM.VKP.enu.Klant).VanRaemdonck()) { - Set ..pxLabelProduct.Logo="logo\"_^IPCom("CS","LOGO"_KLNr,0) - } Else{ - Set ..pxLabelProduct.Logo="logo\Logo VHZwart.svg" - } - */ Set ..pxLabelProduct.Korttekst=$Piece(xPR0,"\") Set ..pxLabelProduct.AantalTitel=$S(Taal="N":"Aantal",Taal="F":"Quantité",Taal="D":"Menge",1:"Quantity") Set ..pxLabelProduct.AantalStuks=AantalStuks