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()