Do ##class(APPS.common.KlantKost.impl.TransportKostCalculator).%New().BerekenKostenPerKlant(2011,8) 1 APPS.common.KlantKost.impl.KostCalculator 0 Jaar:%Integer,Maand:%Integer Klant:DOM.CRM.Klant,Transporteur:DOM.TRANSP.enu.Transporteur,VerpakkingEenheidType:DOM.TRANSP.enu.VerpakkingEenheidType,Datum:%Date,Verzendwijze:DOM.OV.enu.VerzendWijze,Aantal:%Integer 1 Klant:DOM.CRM.Klant,Datum:%Date,TotaalVerkoopOpDag:%Float 1 0){ Set Factor = ..GeefFactorBulkTransport(Datum) Set Kost = TotaalVerkoopOpDag * Factor Set KostItem = ##class(APPS.common.KlantKost.impl.data.BulkTransportKostItem).%New(Datum,Klant.GeefNummer(),Kost,TotaalVerkoopOpDag) Set Status = KostItem.%Save() If ($SYSTEM.Status.IsError(Status)){ Set Bericht = "Failed to save "_KostItem.%ClassName(1)_": " Set Bericht = Bericht_": Klant"_Klant.GeefNaam()_",Datum:"_Datum_",TotaalVerkoopOpDag"_TotaalVerkoopOpDag Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.SaveFailedException).%New(Bericht,Status)) } } ]]> Klant:DOM.CRM.Klant,Datum:%Date,VervoerRef:%String 1 Verzendwijze:DOM.OV.enu.VerzendWijze 1 %Boolean Verzendwijze:DOM.OV.enu.VerzendWijze 1 %Boolean Land:DOM.common.Land,Transporteur:DOM.TRANSP.enu.Transporteur,VerpakkingEenheidType:DOM.TRANSP.enu.VerpakkingEenheidType %String Klant:DOM.CRM.Klant Verwijderen van de kosten van dat specifiek jaar en maand voor alle klanten. Jaar:%Integer,Maand:%Integer Factor waarde opzoeken voor specifiek land FactorNaam : Colli / Pallet / Rit FactorNaam:%String,Datum:%Date %Float FactorWaarde voor Bulk via TTC opzoeken Datum:%Date %Float Klant:DOM.CRM.Klant,Datum:%Date %Float