do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","APPS.Halux.Planning.TestResourceGebruikCalculator") 1 vhUnitTest.TestCase 0 %Status %Status 0,"Het resourcegebruik van de ALUFrees is groter dan 0") Do $$$AssertTrue(ResourceGebruik.ALUTeam.Hoeveelheid > 0,"Het resourcegebruik van ALUTeam is groter dan 0") Do $$$AssertTrue(ResourceGebruik.ALUMontage.Hoeveelheid > 0,"Het resourcegebruik van ALUMontage is groter dan 0") // De producten die berekend moeten worden zitten niet in deze toelevering. // Dit is niet echt noodzakelijk omdat voor de berekening enkel een klantnummer nodig is. Set Toelevering = ##class(DOM.DomeinContext).Instance().GeefToeleveringAPI().GeefToelevering(296195) Set Batch = "" Set Product = ##class(DOM.DomeinContext).Instance().GeefProductAPI().GeefProduct(599536) Set ActiviteitInfoTBX = ##class(APPS.Halux.Planning.impl.ActiviteitInfoTBX).%New(Toelevering, Batch, Product) Set ResourceGebruik = ActiviteitInfoTBX.GeefActiviteitInfoIterator().Next().ResourceGebruik Do $$$AssertTrue($IsObject(ResourceGebruik),"Voor een tbx met sifon wordt een tijd berekend") Set Product = ##class(DOM.DomeinContext).Instance().GeefProductAPI().GeefProduct(595226) Set ActiviteitInfoTBX = ##class(APPS.Halux.Planning.impl.ActiviteitInfoTBX).%New(Toelevering, Batch, Product) Set ResourceGebruik = ActiviteitInfoTBX.GeefActiviteitInfoIterator().Next().ResourceGebruik Do $$$AssertTrue($IsObject(ResourceGebruik),"Voor een tbx met spoelbak wordt een tijd berekend") Set Product = ##class(DOM.DomeinContext).Instance().GeefProductAPI().GeefProduct(529744) Set ActiviteitInfoTBX = ##class(APPS.Halux.Planning.impl.ActiviteitInfoTBX).%New(Toelevering, Batch, Product) Set ResourceGebruik = ActiviteitInfoTBX.GeefActiviteitInfoIterator().Next().ResourceGebruik Do $$$AssertTrue($IsObject(ResourceGebruik),"Voor een tbx met in te korten glas wordt een tijd berekend") Set Product = ##class(DOM.DomeinContext).Instance().GeefProductAPI().GeefProduct(505552) Set ActiviteitInfoTBX = ##class(APPS.Halux.Planning.impl.ActiviteitInfoTBX).%New(Toelevering, Batch, Product) Set ResourceGebruik = ActiviteitInfoTBX.GeefActiviteitInfoIterator().Next().ResourceGebruik Do $$$AssertTrue($IsObject(ResourceGebruik),"Voor een tbx met in te korten reling wordt een tijd berekend") ]]> 0,"Het resourcegebruik van de ALUFrees is groter dan 0") Do $$$AssertTrue(ResourceGebruik.ALUTeam.Hoeveelheid > 0,"Het resourcegebruik van ALUTeam is groter dan 0") Do $$$AssertTrue(ResourceGebruik.ALUMontage.Hoeveelheid > 0,"Het resourcegebruik van ALUMontage is groter dan 0") Do ResultSet.Next() Set ProductInfoID = ResultSet.Data("ID") &SQL(SELECT ID INTO :ActiviteitInfoID FROM APPS_Halux_Planning_impl.ActiviteitInfo WHERE ProductInfoID = :ProductInfoID) Set ResourceGebruik = ##class(APPS.Halux.Planning.impl.ActiviteitInfo).%OpenId(ActiviteitInfoID).ResourceGebruik Do $$$AssertTrue(ResourceGebruik.ALUFrees.Hoeveelheid > 0,"Het resourcegebruik van de ALUFrees is groter dan 0") Do $$$AssertTrue(ResourceGebruik.ALUTeam.Hoeveelheid > 0,"Het resourcegebruik van ALUTeam is groter dan 0") Do $$$AssertTrue(ResourceGebruik.ALUMontage.Hoeveelheid > 0,"Het resourcegebruik van ALUMontage is groter dan 0") ]]>