Index: KFSOA.mac.rou =================================================================== diff -u -r29059 -r31310 --- KFSOA.mac.rou (.../KFSOA.mac.rou) (revision 29059) +++ KFSOA.mac.rou (.../KFSOA.mac.rou) (revision 31310) @@ -53,18 +53,13 @@ Quit OrderSplitsenIndienNodig(OrderType,OrderID) - New OrgaluxFilter,LijnFilter,TOARIndelingFilter + New LadeIndelingFilter,LijnFilter If OrderType = "T" { Do ##class(APPS.VKP.impl.OrderSplitserVolgensProductLijnFilter).%New().SplitsOrderVolgensAfzetLocaties(OrderID) }Else{ - Set OrgaluxFilter = ##class(DOM.common.ProductTypeFilter.OrgaluxFilter).%New() - Set LijnFilter = ##class(DOM.VKP.impl.DocumentLijnFilter.VerkoopDocumentLijnVolgensProductFilter).%New(OrgaluxFilter) + Set LadeIndelingFilter = ##class(DOM.common.ProductTypeFilter.LadeIndelingFilter).%New() + Set LijnFilter = ##class(DOM.VKP.impl.DocumentLijnFilter.VerkoopDocumentLijnVolgensProductFilter).%New(LadeIndelingFilter) Do VraagCommissieReferentieIndienNodigVolgensLijnFilter(OrderID,LijnFilter) - Do ##class(APPS.VKP.impl.OrderSplitserVolgensProductLijnFilter).%New().SplitsOrderVolgensLijnFilter(OrderID,LijnFilter) - - Set TOARIndelingFilter = ##class(DOM.common.ProductTypeFilter.TAORIndelingFilter).%New() - Set LijnFilter = ##class(DOM.VKP.impl.DocumentLijnFilter.VerkoopDocumentLijnVolgensProductFilter).%New(TOARIndelingFilter) - Do VraagCommissieReferentieIndienNodigVolgensLijnFilter(OrderID,LijnFilter) Do ##class(APPS.VKP.impl.OrderSplitserVolgensProductLijnFilter).%New().SplitsOrderVolgensLijnFilter(OrderID,LijnFilter) } Quit