1 vhUnitTest.TestCase %String I %Integer 2001 %Integer 10 %Date 1 DOM.VKP.VerkoopAPI 1 1 KlantID:DOM.VKP.VanHoeckeKlantID,FactuurID:%String,BonID:%String,VervoerRef:%String,Transporteur:%String,Verzendwijze:DOM.VKP.enu.VerzendWijze 1 geen uitzondering voor rit transport #dim KostGLS As %Double = 43 /// één pallet via DI1 => geen uitzondering voor rit transport Do $$$AssertEquals(TotaalKostRit,MaandKostRit,"Kosten voor één maand komen overeen met de gemaakte RitTransportKostItems.") Do $$$AssertEquals(TotaalKostLos,MaandKostLos,"Kosten voor één maand komen overeen met de gemaakte LosTransportKostItems.") Do $$$AssertEquals(TotaalKostGLS,MaandKostGLS,"Kosten voor één maand komen overeen met de gemaakte GLSTransportKostItems.") Do $$$AssertEquals(TotaalKostRit,KostRit,"Komt overeen voor RitTransportKostItems via DI2 voor klant Haefele") Do $$$AssertEquals(TotaalKostLos,KostLos,"Komt overeen voor LostTransportKostItems één pallet via DI1 voor klant Haefele") Do $$$AssertEquals(TotaalKostGLS,KostGLS,"Komt overeen voor GLS TransportKostItems één pallet via DI1 voor klant Haefele") ]]> geen uitzondering voor rit transport Do $$$AssertEquals(TotaalKostRit,MaandKostRit,"Kosten voor één maand komen overeen met de gemaakte RitTransportKostItems.") Do $$$AssertEquals(TotaalKostGLS,MaandKostGLS,"Kosten voor één maand komen overeen met de gemaakte GLSTransportKostItems.") Do $$$AssertEquals(TotaalKostRit,KostRit,"Komt overeen voor RitTransportKostItems via OD5 voor klant DKG") Do $$$AssertEquals(TotaalKostGLS,KostGLS,"Komt overeen voor GLStTransportKostItems één pallet via DI1 voor klant DKG") ]]> KlantID:DOM.VKP.VanHoeckeKlantID,KostType:APPS.common.KlantKost.enu.KostType,Jaar:%Integer,Maand:%Integer 1 %Double KlantID:DOM.VKP.VanHoeckeKlantID,KostType:APPS.common.KlantKost.enu.KostType,Jaar:%Integer,Maand:%Integer 1 %Double