Index: AX/Uitgaand/PM/WHSReservationHierarchyItem/impl/WHSReservationHierarchyItemDixfGenerator.cls.xml =================================================================== diff -u -r46877 -r48004 --- AX/Uitgaand/PM/WHSReservationHierarchyItem/impl/WHSReservationHierarchyItemDixfGenerator.cls.xml (.../WHSReservationHierarchyItemDixfGenerator.cls.xml) (revision 46877) +++ AX/Uitgaand/PM/WHSReservationHierarchyItem/impl/WHSReservationHierarchyItemDixfGenerator.cls.xml (.../WHSReservationHierarchyItemDixfGenerator.cls.xml) (revision 48004) @@ -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_"_Vestiging_"_WHSReservationHierarchyItem is klaar. Aantal minuten: " + Write !,"Csv voor migratie 0603a_"_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"),"0603_"_..Vestiging_"_WHSReservationHierarchyItem.csv") + Set AXProductData.BestandVolledigeNaam = ##class(TECH.Files).AppendFile(##class(TECH.Config.ConfigMgr).Instance().GeefString("AX_DIXF"),"0603a_"_..Vestiging_"_WHSReservationHierarchyItem.csv") #dim BestandGenerator As APPS.common.Rapport.impl.BestandGenerator Set BestandGenerator = ##class(APPS.common.Rapport.impl.BestandGenerator).%New() Index: AX/Uitgaand/PM/PakketReferenties/impl/PakketReferentiesDixfGenerator.cls.xml =================================================================== diff -u -r48002 -r48004 --- AX/Uitgaand/PM/PakketReferenties/impl/PakketReferentiesDixfGenerator.cls.xml (.../PakketReferentiesDixfGenerator.cls.xml) (revision 48002) +++ AX/Uitgaand/PM/PakketReferenties/impl/PakketReferentiesDixfGenerator.cls.xml (.../PakketReferentiesDixfGenerator.cls.xml) (revision 48004) @@ -34,13 +34,24 @@ 1 + +TECH.File.FileWriter +1 + + + +%Library.GlobalCharacterStream +1 + + %Status @@ -52,6 +63,8 @@ Do StartTimer^vhLib Set ..ProductStream = ##class(%Library.GlobalCharacterStream).%New() Set ..VrijgegProductStream = ##class(%Library.GlobalCharacterStream).%New() + Set ..WHSReservationHierarchyItemStream = ##class(%Library.GlobalCharacterStream).%New() + Do ..MaakHeaders() #dim NameArray As array Of %String = ##class(%ArrayOfDataTypes).%New() @@ -77,6 +90,7 @@ Do ..ProductStream.WriteLine("2;0;;"_NieuwArticleID_";;"_PakketNaam_";nl-be;"_EcoResProductTranslationName_";WMS;None;Nee;Nee;Product;Artikel;"_SearchName_";") Do ..VrijgegProductStream.WriteLine(";;;;;;;;;1;STK;Batch;;;VHEPN1;Productie;"_NieuwArticleID_";WMS;Batch;;;Nee;1;;VHEPN1;0;;;Nee;;Nee;Nee;1;;VHEPN1;;;Nee;;Nee;;Nee;ATP;;;VHEPN1;;;;Nee;;Nee;Nee;;;;;Nee;;;VHEPN1;Ja;;STK;Ja;0;G3;0;STK;Ja;;G3;STK;;Nee;;"_NieuwArticleID_";CACHE;Artikel;;;SOPR;"_SearchName_";;;;Ja;Stuklijst;;Finish;CACHE;;;;;;;;Handmatig;CACHE;;;;;;;;"_SearchName_";Nee;STK;") + Do ..WHSReservationHierarchyItemStream.WriteLine("vhbe;"_NieuwArticleID_";5637144578") } Do ..ProductFileWriter.Open(##class(TECH.Files).AppendFile(##class(TECH.Config.ConfigMgr).Instance().GeefString("AX_DIXF"),"0601c_VHBE_ProductPakketReferenties.csv"),$$$False) @@ -87,9 +101,12 @@ Do ..VrijgegProductFileWriter.WriteStream(..VrijgegProductStream) Do ..VrijgegProductFileWriter.Close() - Write !,"Csv voor migratie 0601c_VHBE_ProductPakketReferenties is klaar." - Write !,"Csv voor migratie 0602c_VHBE_VrijgegProductPakketReferenties is klaar.",! + Do ..WHSReservationHierarchyItemFileWriter.Open(##class(TECH.Files).AppendFile(##class(TECH.Config.ConfigMgr).Instance().GeefString("AX_DIXF"),"0603c_VHBE_WHSReservationHierarchyItemPakketReferenties.csv"),$$$False) + Do ..WHSReservationHierarchyItemFileWriter.WriteStream(..WHSReservationHierarchyItemStream) + Do ..WHSReservationHierarchyItemFileWriter.Close() + Write !,"Csv's voor migratie 0601c_VHBE_ProductPakketReferenties, 0602c_VHBE_VrijgegProductPakketReferenties, 0603c_VHBE_WHSReservationHierarchyItemPakketReferenties zijn klaar." + Write $$TimeFromStart^vhLib()/60 } Catch { Write ##class(TECH.ExceptionHandler).Catch().ToString() @@ -112,6 +129,11 @@ Set VrijgegProductEntiteit.DtoPad = "AXdixf.VrijgegProduct.VrijgegProduct" Do EntiteitLijst.Insert(VrijgegProductEntiteit) + Set WHSReservationHierarchyItemEntiteit = ##class(AX.Uitgaand.PM.PakketReferenties.dto.AxEntiteitDtoPad).%New() + Set WHSReservationHierarchyItemEntiteit.Entiteit = "WHSReservationHierarchyItem" + Set WHSReservationHierarchyItemEntiteit.DtoPad = "AXdixf.WHSReservationHierarchyItem.WHSReservationHierarchyItem" + Do EntiteitLijst.Insert(WHSReservationHierarchyItemEntiteit) + Set EntiteitIterator = ##class(TECH.ListIterator).%New(EntiteitLijst) While EntiteitIterator.HasNext(){ #dim Entiteit As AX.Uitgaand.PM.PakketReferenties.dto.AxEntiteitDtoPad = EntiteitIterator.Next()