Index: AX/Uitgaand/PM/ExtArtOmschrKlanten/impl/ExtArtOmschrKlantenDixfConverter.cls.xml =================================================================== diff -u -r47520 -r48013 --- AX/Uitgaand/PM/ExtArtOmschrKlanten/impl/ExtArtOmschrKlantenDixfConverter.cls.xml (.../ExtArtOmschrKlantenDixfConverter.cls.xml) (revision 47520) +++ AX/Uitgaand/PM/ExtArtOmschrKlanten/impl/ExtArtOmschrKlantenDixfConverter.cls.xml (.../ExtArtOmschrKlantenDixfConverter.cls.xml) (revision 48013) @@ -47,13 +47,6 @@ Set AxPakketOnderdeel.ItemId = IdentNummer Set AxPakketOnderdeel.ModuleType = "04" - // OPGELET: Volgende "Set AxProduct"-lijnen zijn niet nodig voor import in AX, maar kunnen gebruikt worden ter controle: - Set AxPakketOnderdeel.ID = PakketOnderdeel.PakketOnderdeel.%Id() - Set AxPakketOnderdeel.PakketNummer = PakketOnderdeel.PakketOnderdeel.PakketNummer - Set AxPakketOnderdeel.AantalProducten = PakketOnderdeel.PakketOnderdeel.Aantal - Set AxPakketOnderdeel.KortTekst = PakketOnderdeel.Basis.KortTekst - Set AxPakketOnderdeel.GenType = PakketOnderdeel.Basis.GenType - Do ..KlantNrIdentNummerCombinatieList.Insert(KlantNr_IdentNummer) Quit AxPakketOnderdeel Index: AX/Uitgaand/PM/PakketReferenties/impl/PakketReferentiesIterator.cls.xml =================================================================== diff -u -r47937 -r48013 --- AX/Uitgaand/PM/PakketReferenties/impl/PakketReferentiesIterator.cls.xml (.../PakketReferentiesIterator.cls.xml) (revision 47937) +++ AX/Uitgaand/PM/PakketReferenties/impl/PakketReferentiesIterator.cls.xml (.../PakketReferentiesIterator.cls.xml) (revision 48013) @@ -27,9 +27,9 @@ Index: AX/Uitgaand/PM/PakketReferenties/impl/PakketReferentiesIteratorFilter.cls.xml =================================================================== diff -u --- AX/Uitgaand/PM/PakketReferenties/impl/PakketReferentiesIteratorFilter.cls.xml (revision 0) +++ AX/Uitgaand/PM/PakketReferenties/impl/PakketReferentiesIteratorFilter.cls.xml (revision 48013) @@ -0,0 +1,17 @@ + + + +TECH.RegisteredObject,TECH.Filter + + +Item:TECH.ResultSet +%Boolean + + + + + + Index: AX/Uitgaand/PM/ExtArtOmschrLev/impl/ExtArtOmschrLevDixfConverter.cls.xml =================================================================== diff -u -r46552 -r48013 --- AX/Uitgaand/PM/ExtArtOmschrLev/impl/ExtArtOmschrLevDixfConverter.cls.xml (.../ExtArtOmschrLevDixfConverter.cls.xml) (revision 46552) +++ AX/Uitgaand/PM/ExtArtOmschrLev/impl/ExtArtOmschrLevDixfConverter.cls.xml (.../ExtArtOmschrLevDixfConverter.cls.xml) (revision 48013) @@ -38,24 +38,18 @@ 1 - -AXimpl.Utils -1 - - AXimpl.InterneFirmaInitialen 1 -Utils:AXimpl.Utils,ConvertorLeveranciersnummerVanHoeckeNaarHalux:AX.Uitgaand.PM.impl.Convertor.ConvertorLeveranciersnummerVanHoeckeNaarHalux,BestelreferentieSamensteller:AX.Uitgaand.PM.impl.SamenstellingBestelreferentieProductenInEenString,SoprConverter:AX.Uitgaand.PM.impl.Convertor.Sopr.ProductConvertor +ConvertorLeveranciersnummerVanHoeckeNaarHalux:AX.Uitgaand.PM.impl.Convertor.ConvertorLeveranciersnummerVanHoeckeNaarHalux,BestelreferentieSamensteller:AX.Uitgaand.PM.impl.SamenstellingBestelreferentieProductenInEenString,SoprConverter:AX.Uitgaand.PM.impl.Convertor.Sopr.ProductConvertor 1 1 %Status 1 Index: AXdixf/ExtArtOmschr/ExtArtOmschr.cls.xml =================================================================== diff -u -r46089 -r48013 --- AXdixf/ExtArtOmschr/ExtArtOmschr.cls.xml (.../ExtArtOmschr.cls.xml) (revision 46089) +++ AXdixf/ExtArtOmschr/ExtArtOmschr.cls.xml (.../ExtArtOmschr.cls.xml) (revision 48013) @@ -34,45 +34,6 @@ %String - - - - - - -%String - - - -%String - - - -%String - - - -%String - - - -%String - - - -%String - - - -%String - - - -%String - Index: AX/Uitgaand/PM/ExtArtOmschrLev/impl/ExtArtOmschrLevDixfGenerator.cls.xml =================================================================== diff -u -r47283 -r48013 --- AX/Uitgaand/PM/ExtArtOmschrLev/impl/ExtArtOmschrLevDixfGenerator.cls.xml (.../ExtArtOmschrLevDixfGenerator.cls.xml) (revision 47283) +++ AX/Uitgaand/PM/ExtArtOmschrLev/impl/ExtArtOmschrLevDixfGenerator.cls.xml (.../ExtArtOmschrLevDixfGenerator.cls.xml) (revision 48013) @@ -26,7 +26,7 @@ Do StartTimer^vhLib #dim ProductIterator As TECH.Iterator = ##class(AX.Uitgaand.PM.ExtArtOmschrLev.impl.ExtArtOmschrLevIterator).%New(,Vestiging) do ..Generate(ProductIterator) - Write !,"Csv voor migratie 0605_"_Vestiging_"_ExtArtOmschrLev is klaar. Aantal minuten: " + Write !,"Csv voor migratie 0605a_"_Vestiging_"_ExtArtOmschrLev is klaar. Aantal minuten: " write $$TimeFromStart^vhLib()/60 } Catch { Write ##class(TECH.ExceptionHandler).Catch().ToString() @@ -47,16 +47,9 @@ Do AXProductData.VoegToeVeld("AXdixf.ExtArtOmschr.ExtArtOmschr", "ItemId") Do AXProductData.VoegToeVeld("AXdixf.ExtArtOmschr.ExtArtOmschr", "ModuleType") - // OPGELET: Volgende "VoegToeVeld"-lijnen moeten voor import in AX in comment staan, maar kunnen daarbuiten gebruikt worden ter controle: - /* - Do AXProductData.VoegToeVeld("AXdixf.ExtArtOmschr.ExtArtOmschr", "DefaultOrderType") - Do AXProductData.VoegToeVeld("AXdixf.ExtArtOmschr.ExtArtOmschr", "LeverancierNummer") - Do AXProductData.VoegToeVeld("AXdixf.ExtArtOmschr.ExtArtOmschr", "LinkType") - */ - Set AXProductData.ScheidingsTeken = ";" Set AXProductData.Iterator = ProductIterator - Set AXProductData.BestandVolledigeNaam = ##class(TECH.Files).AppendFile(##class(TECH.Config.ConfigMgr).Instance().GeefString("AX_DIXF"),"0605_"_..Vestiging_"_ExtArtOmschrLev.csv") + Set AXProductData.BestandVolledigeNaam = ##class(TECH.Files).AppendFile(##class(TECH.Config.ConfigMgr).Instance().GeefString("AX_DIXF"),"0605a_"_..Vestiging_"_ExtArtOmschrLev.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 -r48004 -r48013 --- AX/Uitgaand/PM/PakketReferenties/impl/PakketReferentiesDixfGenerator.cls.xml (.../PakketReferentiesDixfGenerator.cls.xml) (revision 48004) +++ AX/Uitgaand/PM/PakketReferenties/impl/PakketReferentiesDixfGenerator.cls.xml (.../PakketReferentiesDixfGenerator.cls.xml) (revision 48013) @@ -44,6 +44,16 @@ 1 + +TECH.File.FileWriter +1 + + + +%Library.GlobalCharacterStream +1 + + %Status @@ -64,6 +74,7 @@ Set ..ProductStream = ##class(%Library.GlobalCharacterStream).%New() Set ..VrijgegProductStream = ##class(%Library.GlobalCharacterStream).%New() Set ..WHSReservationHierarchyItemStream = ##class(%Library.GlobalCharacterStream).%New() + Set ..ExtArtOmschrStream = ##class(%Library.GlobalCharacterStream).%New() Do ..MaakHeaders() @@ -72,9 +83,9 @@ While ..Iterator.HasNext() { #dim Result As %String = ..Iterator.Next() #dim PakketNaam As %String = $Piece(Result,"_",1) - #dim KlantNr As %String = $Piece(Result,"_",2) + #dim AxKlantNr As %String = ##class(TECH.StringUtils).AddLeadingChar($Piece(Result,"_",2),"0",5) #dim NieuwArticleID As %String = ..ArticleIDGenerator.GeefNieuwArticleID() - Set EcoResProductTranslationName = "K"_##class(TECH.StringUtils).AddLeadingChar(KlantNr,"0",5)_"R"_PakketNaam + Set EcoResProductTranslationName = "K"_AxKlantNr_"R"_PakketNaam If ($Length(EcoResProductTranslationName) > 25) { #dim Name As %String = EcoResProductTranslationName @@ -91,6 +102,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 ..ExtArtOmschrStream.WriteLine("1;"_AxKlantNr_";"_PakketNaam_";;AllBlank;"_NieuwArticleID_";04") } Do ..ProductFileWriter.Open(##class(TECH.Files).AppendFile(##class(TECH.Config.ConfigMgr).Instance().GeefString("AX_DIXF"),"0601c_VHBE_ProductPakketReferenties.csv"),$$$False) @@ -105,8 +117,13 @@ Do ..WHSReservationHierarchyItemFileWriter.WriteStream(..WHSReservationHierarchyItemStream) Do ..WHSReservationHierarchyItemFileWriter.Close() - Write !,"Csv's voor migratie 0601c_VHBE_ProductPakketReferenties, 0602c_VHBE_VrijgegProductPakketReferenties, 0603c_VHBE_WHSReservationHierarchyItemPakketReferenties zijn klaar." + Do ..ExtArtOmschrFileWriter.Open(##class(TECH.Files).AppendFile(##class(TECH.Config.ConfigMgr).Instance().GeefString("AX_DIXF"),"0605c_VHBE_ExtArtOmschrPakketReferenties.csv"),$$$False) + Do ..ExtArtOmschrFileWriter.WriteStream(..ExtArtOmschrStream) + Do ..ExtArtOmschrFileWriter.Close() + Write !,"Csv's voor migratie 0601c_VHBE_ProductPakketReferenties, 0602c_VHBE_VrijgegProductPakketReferenties, 0603c_VHBE_WHSReservationHierarchyItemPakketReferenties en... " + Write !,"0605c_VHBE_ExtArtOmschrPakketReferenties zijn klaar. Aantal minuten: " + Write $$TimeFromStart^vhLib()/60 } Catch { Write ##class(TECH.ExceptionHandler).Catch().ToString() @@ -134,6 +151,11 @@ Set WHSReservationHierarchyItemEntiteit.DtoPad = "AXdixf.WHSReservationHierarchyItem.WHSReservationHierarchyItem" Do EntiteitLijst.Insert(WHSReservationHierarchyItemEntiteit) + Set ExtArtOmschrEntiteit = ##class(AX.Uitgaand.PM.PakketReferenties.dto.AxEntiteitDtoPad).%New() + Set ExtArtOmschrEntiteit.Entiteit = "ExtArtOmschr" + Set ExtArtOmschrEntiteit.DtoPad = "AXdixf.ExtArtOmschr.ExtArtOmschr" + Do EntiteitLijst.Insert(ExtArtOmschrEntiteit) + Set EntiteitIterator = ##class(TECH.ListIterator).%New(EntiteitLijst) While EntiteitIterator.HasNext(){ #dim Entiteit As AX.Uitgaand.PM.PakketReferenties.dto.AxEntiteitDtoPad = EntiteitIterator.Next() Index: AX/Uitgaand/PM/ExtArtOmschrKlanten/impl/ExtArtOmschrKlantenDixfGenerator.cls.xml =================================================================== diff -u -r47260 -r48013 --- AX/Uitgaand/PM/ExtArtOmschrKlanten/impl/ExtArtOmschrKlantenDixfGenerator.cls.xml (.../ExtArtOmschrKlantenDixfGenerator.cls.xml) (revision 47260) +++ AX/Uitgaand/PM/ExtArtOmschrKlanten/impl/ExtArtOmschrKlantenDixfGenerator.cls.xml (.../ExtArtOmschrKlantenDixfGenerator.cls.xml) (revision 48013) @@ -14,7 +14,7 @@ Do StartTimer^vhLib #dim PakketOnderdeelIterator As TECH.Iterator = ##class(AX.Uitgaand.PM.ExtArtOmschrKlanten.impl.ExtArtOmschrKlantenIterator).%New() do ..Generate(PakketOnderdeelIterator) - Write !,"Csv voor migratie 0605_VHBE_ExtArtOmschrKlanten is klaar. Aantal minuten: " + Write !,"Csv voor migratie 0605b_VHBE_ExtArtOmschrKlanten is klaar. Aantal minuten: " write $$TimeFromStart^vhLib()/60 } Catch { Write ##class(TECH.ExceptionHandler).Catch().ToString() @@ -35,18 +35,9 @@ Do AXPakketOnderdeelData.VoegToeVeld("AXdixf.ExtArtOmschr.ExtArtOmschr", "ItemId") Do AXPakketOnderdeelData.VoegToeVeld("AXdixf.ExtArtOmschr.ExtArtOmschr", "ModuleType") - // OPGELET: Volgende "VoegToeVeld"-lijnen moeten voor import in AX in comment staan, maar kunnen daarbuiten gebruikt worden ter controle: - /* - Do AXPakketOnderdeelData.VoegToeVeld("AXdixf.ExtArtOmschr.ExtArtOmschr", "ID") - Do AXPakketOnderdeelData.VoegToeVeld("AXdixf.ExtArtOmschr.ExtArtOmschr", "PakketNummer") - Do AXPakketOnderdeelData.VoegToeVeld("AXdixf.ExtArtOmschr.ExtArtOmschr", "AantalProducten") - Do AXPakketOnderdeelData.VoegToeVeld("AXdixf.ExtArtOmschr.ExtArtOmschr", "KortTekst") - Do AXPakketOnderdeelData.VoegToeVeld("AXdixf.ExtArtOmschr.ExtArtOmschr", "GenType") - */ - Set AXPakketOnderdeelData.ScheidingsTeken = ";" Set AXPakketOnderdeelData.Iterator = PakketOnderdeelIterator - Set AXPakketOnderdeelData.BestandVolledigeNaam = ##class(TECH.Files).AppendFile(##class(TECH.Config.ConfigMgr).Instance().GeefString("AX_DIXF"),"0605_VHBE_ExtArtOmschrKlanten.csv") + Set AXPakketOnderdeelData.BestandVolledigeNaam = ##class(TECH.Files).AppendFile(##class(TECH.Config.ConfigMgr).Instance().GeefString("AX_DIXF"),"0605b_VHBE_ExtArtOmschrKlanten.csv") #dim BestandGenerator As APPS.common.Rapport.impl.BestandGenerator Set BestandGenerator = ##class(APPS.common.Rapport.impl.BestandGenerator).%New() Index: vhUnitTest/AX/Uitgaand/PM/ExtArtOmschrLev/impl/ExtArtOmschrLevDixfConverter/Test.cls.xml =================================================================== diff -u -r45052 -r48013 --- vhUnitTest/AX/Uitgaand/PM/ExtArtOmschrLev/impl/ExtArtOmschrLevDixfConverter/Test.cls.xml (.../Test.cls.xml) (revision 45052) +++ vhUnitTest/AX/Uitgaand/PM/ExtArtOmschrLev/impl/ExtArtOmschrLevDixfConverter/Test.cls.xml (.../Test.cls.xml) (revision 48013) @@ -23,11 +23,6 @@ 1 - -AXimpl.Utils -1 - - @@ -63,11 +57,6 @@ #dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProduct() - Set UtilsStub = ##class(vhTest.Mock.AXimpl.Utils).%New() - Do UtilsStub.IndienMethodCall("ConvertDefaultOrderType",Firma,AxProduct).DanReturn("DefaultOrderType") - - Set ..Utils = UtilsStub - #dim Converter As AX.Uitgaand.PM.ExtArtOmschrLev.impl.ExtArtOmschrLevDixfConverter = ..GeefConverter() #dim ConvertedProduct As AXdixf.ExtArtOmschr.ExtArtOmschr = Converter.Convert(AxProduct,Firma) @@ -85,13 +74,9 @@ #dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProduct() - Set UtilsStub = ##class(vhTest.Mock.AXimpl.Utils).%New() - Do UtilsStub.IndienMethodCall("ConvertDefaultOrderType",Firma,AxProduct).DanReturn("DefaultOrderType") - Set SoprConverterStub = ##class(vhTest.Mock.AX.Uitgaand.PM.impl.Convertor.Sopr.ProductConvertor).%New() Do SoprConverterStub.IndienMethodCall("IsSOPRInCache",..#ProductId).DanReturn($$$True) - Set ..Utils = UtilsStub Set ..SoprConverter = SoprConverterStub #dim Converter As AX.Uitgaand.PM.ExtArtOmschrLev.impl.ExtArtOmschrLevDixfConverter = ..GeefConverter() @@ -111,14 +96,10 @@ #dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProduct() - Set UtilsStub = ##class(vhTest.Mock.AXimpl.Utils).%New() - Do UtilsStub.IndienMethodCall("ConvertDefaultOrderType",Firma,AxProduct).DanReturn("DefaultOrderType") - Set SoprConverterMock = ##class(vhTest.Mock.AX.Uitgaand.PM.impl.Convertor.Sopr.ProductConvertor).%New() Do SoprConverterMock.IndienMethodCall("IsSOPRInCache",..#ProductId).DanReturn($$$False) Do SoprConverterMock.VerwachtMethodCall("GeefBlumKunde",..#ProductId).DanDoeNiks() - Set ..Utils = UtilsStub Set ..SoprConverter = SoprConverterMock #dim Converter As AX.Uitgaand.PM.ExtArtOmschrLev.impl.ExtArtOmschrLevDixfConverter = ..GeefConverter() @@ -138,11 +119,6 @@ #dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProduct() - Set UtilsStub = ##class(vhTest.Mock.AXimpl.Utils).%New() - Do UtilsStub.IndienMethodCall("ConvertDefaultOrderType",Firma,AxProduct).DanReturn("DefaultOrderType") - - Set ..Utils = UtilsStub - #dim Converter As AX.Uitgaand.PM.ExtArtOmschrLev.impl.ExtArtOmschrLevDixfConverter = ..GeefConverter() #dim ConvertedProduct As AXdixf.ExtArtOmschr.ExtArtOmschr = Converter.Convert(AxProduct,Firma) @@ -160,13 +136,9 @@ #dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProduct() - Set UtilsStub = ##class(vhTest.Mock.AXimpl.Utils).%New() - Do UtilsStub.IndienMethodCall("ConvertDefaultOrderType",Firma,AxProduct).DanReturn("DefaultOrderType") - Set ConvertorLeveranciersnummerVanHoeckeNaarHaluxStub = ##class(vhTest.Mock.AX.Uitgaand.PM.impl.Convertor.ConvertorLeveranciersnummerVanHoeckeNaarHalux).%New() Do ConvertorLeveranciersnummerVanHoeckeNaarHaluxStub.IndienMethodCall("ConvertorLeveranciersnummerVanHoeckeNaarHalux","6332").DanReturn("AXLeverancierNummer") - Set ..Utils = UtilsStub Set ..ConvertorLeveranciersnummerVanHoeckeNaarHalux = ConvertorLeveranciersnummerVanHoeckeNaarHaluxStub #dim Converter As AX.Uitgaand.PM.ExtArtOmschrLev.impl.ExtArtOmschrLevDixfConverter = ..GeefConverter() @@ -186,11 +158,6 @@ #dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProduct() - Set UtilsStub = ##class(vhTest.Mock.AXimpl.Utils).%New() - Do UtilsStub.IndienMethodCall("ConvertDefaultOrderType",Firma,AxProduct).DanReturn("DefaultOrderType") - - Set ..Utils = UtilsStub - #dim Converter As AX.Uitgaand.PM.ExtArtOmschrLev.impl.ExtArtOmschrLevDixfConverter = ..GeefConverter() #dim ConvertedProduct As AXdixf.ExtArtOmschr.ExtArtOmschr = Converter.Convert(AxProduct,Firma) @@ -208,11 +175,6 @@ #dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProduct() - Set UtilsStub = ##class(vhTest.Mock.AXimpl.Utils).%New() - Do UtilsStub.IndienMethodCall("ConvertDefaultOrderType",Firma,AxProduct).DanReturn("DefaultOrderType") - - Set ..Utils = UtilsStub - #dim Converter As AX.Uitgaand.PM.ExtArtOmschrLev.impl.ExtArtOmschrLevDixfConverter = ..GeefConverter() #dim ConvertedProduct As AXdixf.ExtArtOmschr.ExtArtOmschr = Converter.Convert(AxProduct,Firma) @@ -230,13 +192,9 @@ #dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProduct() - Set UtilsStub = ##class(vhTest.Mock.AXimpl.Utils).%New() - Do UtilsStub.IndienMethodCall("ConvertDefaultOrderType",Firma,AxProduct).DanReturn("DefaultOrderType") - Set BestelreferentieSamenstellerMock = ##class(vhTest.Mock.AX.Uitgaand.PM.impl.SamenstellingBestelreferentieProductenInEenString).%New() Do BestelreferentieSamenstellerMock.VerwachtMethodCall("SamenstellingBestelreferentieProductenInEenString",AxProduct).DanDoeNiks() - - Set ..Utils = UtilsStub + Set ..BestelreferentieSamensteller = BestelreferentieSamenstellerMock #dim Converter As AX.Uitgaand.PM.ExtArtOmschrLev.impl.ExtArtOmschrLevDixfConverter = ..GeefConverter() @@ -256,11 +214,6 @@ #dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProduct() - Set UtilsStub = ##class(vhTest.Mock.AXimpl.Utils).%New() - Do UtilsStub.IndienMethodCall("ConvertDefaultOrderType",Firma,AxProduct).DanReturn("DefaultOrderType") - - Set ..Utils = UtilsStub - #dim Converter As AX.Uitgaand.PM.ExtArtOmschrLev.impl.ExtArtOmschrLevDixfConverter = ..GeefConverter() #dim ConvertedProduct As AXdixf.ExtArtOmschr.ExtArtOmschr = Converter.Convert(AxProduct,Firma) @@ -279,11 +232,6 @@ #dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProduct() Set AxProduct.Basis.IdentNummer = "IdentNummer" - Set UtilsStub = ##class(vhTest.Mock.AXimpl.Utils).%New() - Do UtilsStub.IndienMethodCall("ConvertDefaultOrderType",Firma,AxProduct).DanReturn("DefaultOrderType") - - Set ..Utils = UtilsStub - #dim Converter As AX.Uitgaand.PM.ExtArtOmschrLev.impl.ExtArtOmschrLevDixfConverter = ..GeefConverter() #dim ConvertedProduct As AXdixf.ExtArtOmschr.ExtArtOmschr = Converter.Convert(AxProduct,Firma) @@ -301,11 +249,6 @@ #dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProduct() - Set UtilsStub = ##class(vhTest.Mock.AXimpl.Utils).%New() - Do UtilsStub.IndienMethodCall("ConvertDefaultOrderType",Firma,AxProduct).DanReturn("DefaultOrderType") - - Set ..Utils = UtilsStub - #dim Converter As AX.Uitgaand.PM.ExtArtOmschrLev.impl.ExtArtOmschrLevDixfConverter = ..GeefConverter() #dim ConvertedProduct As AXdixf.ExtArtOmschr.ExtArtOmschr = Converter.Convert(AxProduct,Firma) @@ -323,13 +266,9 @@ #dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProduct() - Set UtilsStub = ##class(vhTest.Mock.AXimpl.Utils).%New() - Do UtilsStub.IndienMethodCall("ConvertDefaultOrderType",Firma,AxProduct).DanReturn("DefaultOrderType") - Set SoprConverterStub = ##class(vhTest.Mock.AX.Uitgaand.PM.impl.Convertor.Sopr.ProductConvertor).%New() Do SoprConverterStub.IndienMethodCall("IsSOPRInCache",..#ProductId).DanReturn($$$True) - Set ..Utils = UtilsStub Set ..SoprConverter = SoprConverterStub #dim Converter As AX.Uitgaand.PM.ExtArtOmschrLev.impl.ExtArtOmschrLevDixfConverter = ..GeefConverter() @@ -349,13 +288,9 @@ #dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProduct() - Set UtilsStub = ##class(vhTest.Mock.AXimpl.Utils).%New() - Do UtilsStub.IndienMethodCall("ConvertDefaultOrderType",Firma,AxProduct).DanReturn("DefaultOrderType") - Set ConvertorLeveranciersnummerVanHoeckeNaarHaluxStub = ##class(vhTest.Mock.AX.Uitgaand.PM.impl.Convertor.ConvertorLeveranciersnummerVanHoeckeNaarHalux).%New() Do ConvertorLeveranciersnummerVanHoeckeNaarHaluxStub.IndienMethodCall("ConvertorLeveranciersnummerVanHoeckeNaarHalux","6332").DanReturn("AXLeverancierNummer") - Set ..Utils = UtilsStub Set ..ConvertorLeveranciersnummerVanHoeckeNaarHalux = ConvertorLeveranciersnummerVanHoeckeNaarHaluxStub #dim Converter As AX.Uitgaand.PM.ExtArtOmschrLev.impl.ExtArtOmschrLevDixfConverter = ..GeefConverter() @@ -366,73 +301,6 @@ ]]> - - - - - - - - - - - - 1 AX.Uitgaand.PM.Product.impl.Product @@ -446,7 +314,7 @@ 1 AX.Uitgaand.PM.ExtArtOmschrLev.impl.ExtArtOmschrLevDixfConverter - Index: AX/Uitgaand/PM/impl/RunAll2a.cls.xml =================================================================== diff -u -r48007 -r48013 --- AX/Uitgaand/PM/impl/RunAll2a.cls.xml (.../RunAll2a.cls.xml) (revision 48007) +++ AX/Uitgaand/PM/impl/RunAll2a.cls.xml (.../RunAll2a.cls.xml) (revision 48013) @@ -21,9 +21,9 @@ Do ##class(AX.Uitgaand.PM.WHSReservationHierarchyItem.impl.WHSReservationHierarchyItemDixfGenerator).%New().GenerateAll("HLX") // 0603a_HLX_WHSReservationHierarchyItem * Do ##class(AX.Uitgaand.PM.TMSInventEnabled.impl.TMSInventEnabledDixfGenerator).%New().GenerateAll("VHBE") // 0604_VHBE_TMSInventEnabled * Do ##class(AX.Uitgaand.PM.TMSInventEnabled.impl.TMSInventEnabledDixfGenerator).%New().GenerateAll("HLX") // 0604_HLX_TMSInventEnabled * - Do ##class(AX.Uitgaand.PM.ExtArtOmschrLev.impl.ExtArtOmschrLevDixfGenerator).%New().GenerateAll("VHBE") // 0605_VHBE_ExtArtOmschrLev * - Do ##class(AX.Uitgaand.PM.ExtArtOmschrLev.impl.ExtArtOmschrLevDixfGenerator).%New().GenerateAll("HLX") // 0605_HLX_ExtArtOmschrLev * - Do ##class(AX.Uitgaand.PM.ExtArtOmschrKlanten.impl.ExtArtOmschrKlantenDixfGenerator).%New().GenerateAll() // 0605_VHBE_ExtArtOmschrKlanten * - Nog niet op AX! Probleem met identieke keys (combinaties klant/product) + Do ##class(AX.Uitgaand.PM.ExtArtOmschrLev.impl.ExtArtOmschrLevDixfGenerator).%New().GenerateAll("VHBE") // 0605a_VHBE_ExtArtOmschrLev * + Do ##class(AX.Uitgaand.PM.ExtArtOmschrLev.impl.ExtArtOmschrLevDixfGenerator).%New().GenerateAll("HLX") // 0605a_HLX_ExtArtOmschrLev * + Do ##class(AX.Uitgaand.PM.ExtArtOmschrKlanten.impl.ExtArtOmschrKlantenDixfGenerator).%New().GenerateAll() // 0605b_VHBE_ExtArtOmschrKlanten * - Nog niet op AX! Probleem met identieke keys (combinaties klant/product) Do ##class(AX.Uitgaand.PM.AankoopPrijzenLev.impl.AankoopPrijzenLevDixfGenerator).%New().GenerateAll("VHBE") // 0606_VHBE_AANKOOPPRIJZEN LEVERANCIERS * Do ##class(AX.Uitgaand.PM.AankoopPrijzenLev.impl.AankoopPrijzenLevDixfGenerator).%New().GenerateAll("HLX") // 0606_HLX_AANKOOPPRIJZEN LEVERANCIERS * Do ##class(AX.Uitgaand.PM.AankoopPrijzenLev.impl.AankoopPrijzenLevKortingDixfGenerator).%New().GenerateAll("VHBE") // 0606_VHBE_KORTINGEN LEVERANCIERS * @@ -49,6 +49,7 @@ Do ##class(AX.Uitgaand.PM.SOPRContract.impl.SOPRDixfGenerator).%New().GenerateAll() // 0622_VHBE_SOPRCONTRACT * Do ##class(AX.Uitgaand.PM.InventBatch.impl.InventBatchDixfGenerator).%New().GenerateAll("VHBE") // 0623_VHBE_INVENTBATCH * Do ##class(AX.Uitgaand.PM.InventBatch.impl.InventBatchDixfGenerator).%New().GenerateAll("HLX") // 0623_HLX_INVENTBATCH * + Do ##class(AX.Uitgaand.PM.PakketReferenties.impl.PakketReferentiesDixfGenerator).%New().GenerateAll() // 0601c,0602c,0603c,0605c_VHBE_PAKKETREFERENTIES Do ##class(AX.Uitgaand.PM.AankoopOrderHoofding.impl.AankoopOrderHoofdingDixfGenerator).%New().GenerateAll("VHBE") // 1401_VHBE_OPENSTAANDE AANKOOPORDERS - hoofding Do ##class(AX.Uitgaand.PM.AankoopOrderRegel.impl.AankoopOrderRegelDixfGenerator).%New().GenerateAll("VHBE") // 1402_VHBE_OPENSTAANDE AANKOOPORDERS - regels Do ##class(AX.Uitgaand.PM.AankoopOrderHoofding.impl.AankoopOrderHoofdingDixfGenerator).%New().GenerateAll("HLX") // 1401_HLX_OPENSTAANDE AANKOOPORDERS - hoofding Index: AX/Uitgaand/PM/ExtArtOmschrKlanten/impl/ExtArtOmschrKlantenIterator.cls.xml =================================================================== diff -u -r47977 -r48013 --- AX/Uitgaand/PM/ExtArtOmschrKlanten/impl/ExtArtOmschrKlantenIterator.cls.xml (.../ExtArtOmschrKlantenIterator.cls.xml) (revision 47977) +++ AX/Uitgaand/PM/ExtArtOmschrKlanten/impl/ExtArtOmschrKlantenIterator.cls.xml (.../ExtArtOmschrKlantenIterator.cls.xml) (revision 48013) @@ -92,9 +92,9 @@ #dim KortTekst As %String = ..BepaalKortTekst(..PakketOnderdeel) #dim GenType As %String = ..BepaalGenType(..PakketOnderdeel) - #dim OudAanwezig As %Boolean = $Find(PakketNaam," Oud") - #dim VervaltAanwezig As %Boolean = $Find(PakketNaam,"VERVALT") - #dim IsMaatproduct As %Boolean = (($Find(KortTekst,"GEN")) || (GenType '= "")) + #dim OudAanwezig As %Boolean = ##class(TECH.StringUtils).Contains(PakketNaam," Oud") + #dim VervaltAanwezig As %Boolean = ##class(TECH.StringUtils).Contains(PakketNaam,"VERVALT") + #dim IsMaatproduct As %Boolean = ((##class(TECH.StringUtils).Contains(KortTekst,"GEN")) || (GenType '= "")) If (IsMaatproduct || OudAanwezig || VervaltAanwezig){ Set MoetUitgeslotenWorden = $$$True