Index: AX/Uitgaand/PM/WHSReservationHierarchyItem/impl/WHSReservationHierarchyItemDixfGenerator.cls.xml =================================================================== diff -u -r42800 -r46877 --- AX/Uitgaand/PM/WHSReservationHierarchyItem/impl/WHSReservationHierarchyItemDixfGenerator.cls.xml (.../WHSReservationHierarchyItemDixfGenerator.cls.xml) (revision 42800) +++ AX/Uitgaand/PM/WHSReservationHierarchyItem/impl/WHSReservationHierarchyItemDixfGenerator.cls.xml (.../WHSReservationHierarchyItemDixfGenerator.cls.xml) (revision 46877) @@ -21,7 +21,7 @@ Do StartTimer^vhLib #dim ProductIterator As TECH.Iterator = ##class(AX.Uitgaand.PM.WHSReservationHierarchyItem.impl.WHSReservationHierarchyItemIterator).%New(,Vestiging) do ..Generate(ProductIterator) - Write !,"Csv voor migratie 0603 WHSReservationHierarchyItem voor "_Vestiging_" is klaar. Aantal minuten: " + Write !,"Csv voor migratie 0603_"_Vestiging_"_WHSReservationHierarchyItem is klaar. Aantal minuten: " write $$TimeFromStart^vhLib()/60 } Catch { Write ##class(TECH.ExceptionHandler).Catch().ToString() @@ -40,7 +40,7 @@ Set AXProductData.ScheidingsTeken = ";" Set AXProductData.Iterator = ProductIterator - Set AXProductData.BestandVolledigeNaam = ##class(TECH.Files).AppendFile(##class(TECH.Config.ConfigMgr).Instance().GeefString("AX_DIXF"),"0603WHSReservationHierarchyItem"_..Vestiging_".csv") + Set AXProductData.BestandVolledigeNaam = ##class(TECH.Files).AppendFile(##class(TECH.Config.ConfigMgr).Instance().GeefString("AX_DIXF"),"0603_"_..Vestiging_"_WHSReservationHierarchyItem.csv") #dim BestandGenerator As APPS.common.Rapport.impl.BestandGenerator Set BestandGenerator = ##class(APPS.common.Rapport.impl.BestandGenerator).%New() Index: AX/Uitgaand/PM/WHSReservationHierarchyItem/impl/WHSReservationHierarchyItemDixfConverter.cls.xml =================================================================== diff -u -r46677 -r46877 --- AX/Uitgaand/PM/WHSReservationHierarchyItem/impl/WHSReservationHierarchyItemDixfConverter.cls.xml (.../WHSReservationHierarchyItemDixfConverter.cls.xml) (revision 46677) +++ AX/Uitgaand/PM/WHSReservationHierarchyItem/impl/WHSReservationHierarchyItemDixfConverter.cls.xml (.../WHSReservationHierarchyItemDixfConverter.cls.xml) (revision 46877) @@ -3,6 +3,29 @@ TECH.RegisteredObject + +AX.Uitgaand.PM.Product.impl.GenerischOrgaluxProductFilter +1 + + + +DOM.PM.impl.ProductTypeAPIimpl +1 + + + +GenerischOrgaluxProductFilter:AX.Uitgaand.PM.Product.impl.GenerischOrgaluxProductFilter,ProductTypeAPIimpl:DOM.PM.impl.ProductTypeAPIimpl +1 +1 +%Status +1 + + + Product:AX.Uitgaand.PM.Product.impl.Product,Vestiging:AXimpl.InterneFirmaInitialen AXdixf.WHSReservationHierarchyItem.WHSReservationHierarchyItem @@ -14,11 +37,22 @@ Set AxProduct = ##class(AXdixf.WHSReservationHierarchyItem.WHSReservationHierarchyItem).%New() Set AxProduct.ItemDataAreaId = $$$If(Vestiging = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv(),"vhbe","hlx") Set AxProduct.ItemId = Product.Basis.IdentNummer - Set AxProduct.ReservationHierarchy = "5637145326" + Set AxProduct.ReservationHierarchy = $$$If(..IsGenerischOfOrgaluxProduct(Product),"5637144578","5637145326") Quit AxProduct ]]> + + +Product:AX.Uitgaand.PM.Product.impl.Product +1 +%Boolean + +