Index: BL/Flow/Proxy/pxLevering.cls.xml =================================================================== diff -u -r66041 -r66239 --- BL/Flow/Proxy/pxLevering.cls.xml (.../pxLevering.cls.xml) (revision 66041) +++ BL/Flow/Proxy/pxLevering.cls.xml (.../pxLevering.cls.xml) (revision 66239) @@ -323,8 +323,6 @@ . Set sc=$S(FactSoort="":$$$ERROR($$$GeneralError,"Subnode van ^KUL() onbekend"), 1:$$$OK) Do:($IsObject($G(%blFlowDoc))) %blFlowDoc.ProxySettings.SetAt(KLNr,"KLNr") - #dim ProductOmschrijvingTaal = ##class(BL.Flow.Proxy.impl.LeverbonAfwijkendeTaalBepaler).%New().GeefAfwijkendeTaalVoorProductOpBonIndienNodig(BONNr) - Do:($IsObject($G(%blFlowDoc))) %blFlowDoc.ProxySettings.SetAt(ProductOmschrijvingTaal,"ProductOmschrijvingTaal") Do:($IsObject($G(%blFlowDoc))) %blFlowDoc.ReplaceXsltParam("pImageColVisible="_$$$xslpFromDoc,"pImageColVisible="_%blFlowDoc.ShowImageColumn(KLNr,"L",BONNr)) // Lock opzetten, om gelijktijdigheid van sortering/verwerking te vermijden @@ -370,6 +368,10 @@ } Do flbAlgemeen ; (KLNr,KLID,Taal,BONNr,FactSoort) + + #dim ProductOmschrijvingTaal = ##class(BL.Flow.Proxy.impl.LeverbonAfwijkendeTaalBepaler).%New().GeefAfwijkendeTaalVoorProductOpBonIndienNodig(BONNr,.Taal) + Do:($IsObject($G(%blFlowDoc))) %blFlowDoc.ProxySettings.SetAt(ProductOmschrijvingTaal,"ProductOmschrijvingTaal") + #dim pxOrd As BL.Flow.Proxy.pxLevOrd = "" #dim LijnObj As BL.Flow.Proxy.pxProductLijn = "" Do flbSortOrder(KLNr,FactSoort,BONNr,.Sort)