vhLib.Macro,Prod.Product TECH.RegisteredObject d ##class(zTryout.WV.PM.Test).%New().MaakXmlFileVoorHttpPost(id) OfferteId:%String OffDto:TECH.DataTransferObject,BestandNaam:%String 1 Do ##class(zTryout.WV.PM.Test).%New().HermaakTbxProducten() d ##class(zTryout.WV.PM.Test).%New().TestGAProdGenereerDataDefs(id) GADataProdId:%String d ##class(zTryout.WV.PM.Test).%New().HermaakTbxProductVanGAData(id,) GADataProdId:%String,CheckProductBestaat:%Boolean=1 1 TbxHalffabProductId:%String,InitieleWaardeKenmerkTB:%Integer 1 Do ##class(zTryout.WV.PM.Test).%New().HermaakKaderdeurProducten() d ##class(zTryout.WV.PM.Test).%New().HermaakKadProductVanGADef(id,) GADefKadId:%String,CheckProductBestaat:%Boolean=1 Write ##class(zTryout.WV.PM.Test).%New().MaakProductVoorTaxFrontVoorLbx() Deze versie maakt geen gebruik van de vhTest.Utils ProductDataService, deze kan dus ook op Cache01 uitgevoerd worden. TECH.String Write ##class(zTryout.WV.PM.Test).%New().MaakProductVoorTbxLade() TECH.String Do ##class(zTryout.WV.PM.Test).%New().DisplayKenmerken(id) ProductId:%String unimplemented",! } Write !," **** "_$$ObjToText^vhLib(IngegevenKenmerken) Write !," **** "_$$ObjToText^vhLib(IngegevenKenmerken.GUIKenmerken) } Else { Write !!," Geen ProductData gevonden voor ProductID '"_ProductId_"'.",! } ]]> d ##class(zTryout.WV.PM.Test).%New().GeefKenmerkenTBX(id) ProductId:%String DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken d ##class(zTryout.WV.PM.Test).ConverteerTBX() 1 0) { w "Probleem bij product "_PRNr_":",! Set Iterator = ##class(TECH.ListIterator).%New(ErrorLijst) While (Iterator.HasNext()) { w Iterator.Next(),! } } If (InitialCanonischeWaarde = IngegevenKenmerkenAPI.GeefCanonischeWaarde(IngegevenKenmerken)) { Write !,PRNr_" : IngegevenKenmerken hebben dezelfde waarde als voorheen." } Else { /* * / Set:($IsObject(InitialKM)) Verschil = ..VergelijkObjecten(InitialKM, IngegevenKenmerken) Set:(Verschil = "") Verschil = "-" Set:(Verschil [ "GUIKenmerken.CorpusBreedte") Verschil = "-" Set ^WV.KenmerkConvert(PRNr, "TEST", $$$If($$$HasLength(ProductSpecificatieID),ProductSpecificatieID,"-")) = $LB(Verschil) Set ^WV.KenmerkConvert("IdxVerschil", Verschil) = $G(^WV.KenmerkConvert("IdxVerschil", Verschil)) _ $LB(PRNr) Set Teller = $Increment(^WV.KenmerkConvert) ;Write !!,$$ObjToText^vhLib(InitialKM) ;Write !!,$$ObjToText^vhLib(IngegevenKenmerken) /* */ Set:($IsObject(InitialKM)) Verschil = ..VergelijkObjecten(InitialKM, IngegevenKenmerken) Set:(Verschil = "") Verschil = "-" Set:(Verschil [ "GUIKenmerken.CorpusBreedte") Verschil = "-" Set Status = IngegevenKenmerken.%ValidateObject() If ($$$ISOK(Status)) && (Verschil '= "-") { Set Familie = Product.GeefFamilie() Set Variant = Product.GeefVariant() Kill %ProdSpecInitialIkid Kill %ProdSpecNewIkid If ($$$Not($IsObject(ProductSpecificatie))) { Set ProductSpecificatie = ##class(DOM.PM.Maatwerk.Calc.Common.ProductSpecificatie).%New(Familie, Variant, IngegevenKenmerken) Set %ProdSpecInitialIkid = "-" Set %ProdSpecNewIkid = "NewIKID" } Else { Do ProductSpecificatie.ZetIngegevenKenmerkenWV(IngegevenKenmerken) } Do ProductSpecificatie.Annotaties.SetAt("De ingegeven kenmerken werden gegenereerd door conversie van het oude product","Gegenereerd door") Set Status = ProductSpecificatie.%Save() Set Teller = $Increment(^WV.KenmerkConvert) Set ^WV.KenmerkConvert(PRNr, (%ProdSpecNewIkid = %ProdSpecInitialIkid) , ProductSpecificatie.%Id()) = $LB(%ProdSpecInitialIkid, %ProdSpecNewIkid) If %ProdSpecNewIkid = "NewIKID" { Set Verschil = "NewProductSpecificatie" } Else { Set Verschil = Vergelijker.VergelijkTbxKenmerken(PRNr) } Set $LI(^WV.KenmerkConvert(PRNr, (%ProdSpecNewIkid = %ProdSpecInitialIkid) , ProductSpecificatie.%Id()),3) = Verschil Set ^WV.KenmerkConvert("IdxVerschil", Verschil) = $G(^WV.KenmerkConvert("IdxVerschil", Verschil)) _ $LB(PRNr) Set ParsedStatus = $$ParseStatus^vhLib(Status) If (ParsedStatus '= "") { w "Save gefaald voor "_PRNr_": "_ParsedStatus,! } Else { Set $Piece(^KPR(Product.GeefPRNr(),15),"\",13) = ProductSpecificatie.%Id() } } Else { Set ParsedStatus = $$ParseStatus^vhLib(Status) w "Kon IK niet opslaan voor "_PRNr_": "_ParsedStatus,! } /* */ } } Set PRNr = $Order(^KPR(PRNr),-1) } ]]> 1 Object1:%RegisteredObject,Object2:%RegisteredObject %String Oproepen via d ##class(zTryout.WV.PM.Test).%New().VergelijkTbxKenmerken(ProductId) ProductId:%String %String Oproepen via d ##class(zTryout.WV.PM.Test).%New().VergelijkTbxKenmerkenALL() ProductID:%String %Boolean Oproepen via d ##class(zTryout.WV.PM.Test).%New().MaakTaxLosseComponenten() ProductieWijze:DOM.PM.enu.TAORProductieWijze,Aantal:%Integer 1 Oproepen via d ##class(zTryout.WV.PM.Test).%New().FixKlantDataNamenVoorUTs() 1 KklKlantKey:%String,LeverAdresKey:%String,DataString:%String 1 KlantNaamAx:%String,KlantId:%String,OverrideKlantNaam:%String="" 1 ProductID:%String %String (^KPR(0,1) - 20) ]]> ProductID:%String %Boolean Oproepen via d ##class(zTryout.WV.PM.Test).OpkuisBouwstenen() 1 1 MoederProductID:%String,BouwsteenKey:%String,GenPRNr:%String,KindProductID:%String 1 Bouwt lijst voor method hieronder. Oproepen via : Do ##class(zTryout.WV.PM.Test).%New()CheckSpaceStepMetIK() Voegt product toe aan mdReport wanneer een product afgeleid is van GenProduct LBX-SST, en controleert of dit wel/geen ProductSpecificatie heeft. Oproepen via : Do ##class(zTryout.WV.PM.Test).%New().CheckProductSpaceStepMetIK(id) ProductId:%String,mdReport:%String Do ##class(zTryout.KCA.KillMailForUser).KillThemAll("1296") Do ##class(zTryout.KCA.KillMailForUser).KillThemAll("1073") Oproepen via : Do ##class(zTryout.WV.PM.Test).%New().KillThemAll(id) 1 User:%String="1296" Do ##class(zTryout.PRA.Scrapbook).%New().ZoekClassDefinitionsZonderCompiledClass() Oproepen via : Do ##class(zTryout.WV.PM.Test).%New().ZoekClassDefinitionsZonderCompiledClass()