TECH.RegisteredObject AX.Uitgaand.PM.Product.impl.ArticleIDGenerator 1 AX.Uitgaand.PM.impl.Convertor.Sopr.ProductConvertor 1 AX.Uitgaand.PM.PakketReferenties.impl.PakketReferentiesIterator 1 DOM.PM.ProductAPI 1 AX.Uitgaand.PM.Product.impl.Product 1 %String 1 TECH.File.FileWriter 1 %Library.GlobalCharacterStream 1 TECH.File.FileWriter 1 %Library.GlobalCharacterStream 1 TECH.File.FileWriter 1 %Library.GlobalCharacterStream 1 TECH.File.FileWriter 1 %Library.GlobalCharacterStream 1 TECH.File.FileWriter 1 %Library.GlobalCharacterStream 1 TECH.File.FileWriter 1 %Library.GlobalCharacterStream 1 %Status 25) { #dim Name As %String = EcoResProductTranslationName Set Name = $Extract(Name,1,23) If NameArray.IsDefined(Name) { Do NameArray.SetAt((##class(TECH.StringUtils).AddLeadingChar(NameArray.GetAt(Name) + 1,"0",2)), Name) } Else { Do NameArray.SetAt("01", Name) } Set EcoResProductTranslationName = Name_NameArray.GetAt(Name) } #dim SearchName As %String = ##class(TECH.StringUtils).StringStrippenVanLeestekensSpatiesTabs(EcoResProductTranslationName) 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;None;;;Nee;1;;VHEPN1;0;;;Nee;;Nee;Nee;1;;VHEPN1;;;Nee;;Nee;;Nee;CTP;0;;;VHEPN1;;;;Nee;;Nee;Nee;;;;;Nee;;;VHEPN1;Ja;;STK;Ja;0;G3;0;STK;Ja;;G3;STK;;Nee;HG;"_..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 ..ProductHierarchyStream.WriteLine(..NieuwArticleID_";Assortiment;3. Klantgebonden producten") Do PakketLijst.Insert(PakketNummer) Do ..SchrijfInStuklijstBestand() } Else { Do ..SchrijfInStuklijstBestand() } } Do ..MaakBestanden() Write !,"Csv's voor migratie 0601c_VHBE_ProductPakketReferenties, 0602c_VHBE_VrijgegProductPakketReferenties, 0603c_VHBE_WHSReservationHierarchyItemPakketReferenties, ... " Write !,"0605c_VHBE_ExtArtOmschrPakketReferenties, 0610c_VHBE_ProductHierarchyPakketReferenties en 0624c_VHBE_StuklijstPakketReferenties zijn klaar. Aantal minuten: " Write $$TimeFromStart^vhLib()/60 } Catch { Write ##class(TECH.ExceptionHandler).Catch().ToString() } ]]> 1 1 $Length(UnderscoreWoord)) && '(##class(TECH.StringUtils).Equals(Property,"SearchName","BOMUnitId"))) { Set Toevoeging = ##class(TECH.StringUtils).Replace(Toevoeging,UnderscoreWoord,"_"_UnderscoreWoord) Set UnderscoreBehoefteGevonden = 1 } } Set UitTeVoerenLijn = UitTeVoerenLijn_Toevoeging_";" } Set UitTeVoerenLijn = ##class(TECH.StringUtils).RightTrim(UitTeVoerenLijn,";") #dim Stream As %Stream.Object = $property($this,EntiteitNaam_"Stream") Do Stream.WriteLine(UitTeVoerenLijn) } Quit $$$OK ]]> 1 1 %ListOfDataTypes 1