do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","APPS.Halux.Planning.TestResourceGebruikCalculator") 1 vhUnitTest.TestCase 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. #dim Toelevering As DOM.AKP.Toelevering = ##class(DOM.DomeinContext).Instance().GeefToeleveringAPI().GeefToelevering(291141) #dim Batch As %String = "" 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") ]]> ProductInfoID:%String 1 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") ]]>