Index: APPS/common/KlantKost/impl/TransportKostCalculator.cls.xml =================================================================== diff -u -r2502 -r2568 --- APPS/common/KlantKost/impl/TransportKostCalculator.cls.xml (.../TransportKostCalculator.cls.xml) (revision 2502) +++ APPS/common/KlantKost/impl/TransportKostCalculator.cls.xml (.../TransportKostCalculator.cls.xml) (revision 2568) @@ -22,6 +22,8 @@ While (KlantIt.HasNext()){ Set Klant = KlantIt.Next() + //Set $ZTRAP = "CatchBerekeningFaalt" + /// Array met VerpakkingEenheid als key, dan %Date als key en aantal als waarde. Set AantalPerTransporteurPerTypePerDag = ##class(%ArrayOfObjects).%New() /// Array met totaal prijs van verkoop via bulk transport was voor deze klant per dag. @@ -58,7 +60,7 @@ /// 1.89 % op kolom TotVerkoop via KlantBeoordeling. - If (..IsBulkTransport(Bon.GeefVerzendwijze())) + If (TransportAPI.IsBulkTransport(Bon.GeefVerzendwijze())) { Set Datum = Factuur.GeefDatum() @@ -68,18 +70,18 @@ If (FactorRit '= -1){ Do ArrayMetVervoerRefPerRit.SetAt(Datum,Datum) }Else{ - Set Waarde = TotaalVerkoopViaBulkOpDag.GetAt(Datum) + Bon.GeefTotaalVerkoopPrijs() - Do TotaalVerkoopViaBulkOpDag.SetAt(Waarde,Datum) + Set BedragTotaalVerkoop = TotaalVerkoopViaBulkOpDag.GetAt(Datum) + Bon.GeefTotaalVerkoopPrijs() + Do TotaalVerkoopViaBulkOpDag.SetAt(BedragTotaalVerkoop,Datum) } } ////////////////////////////// /// Los /// - /// DI2, DI2, DI3 /// + /// DI2, DI3 /// ////////////////////////////// /// Indien er transport deze kost toevoegen - ElseIf (..IsLosTransport(Bon.GeefVerzendwijze())) + ElseIf (TransportAPI.IsLosTransport(Bon.GeefVerzendwijze())) { Set TransportLink = $p($g(^KUL(Klant.GeefNummer(),"G",Bon.GeefBonNr(),1)),"\",8) If (TransportLink '= ""){ @@ -119,11 +121,10 @@ If ('$IsObject(AantalPerVerzendwijze)) { Set AantalPerVerzendwijze = ##class(%ArrayOfDataTypes).%New() } + Set AantalPerVerpakkingEenheid = (AantalPerVerzendwijze.GetAt(Bon.GeefVerzendwijze()) + VerpakkingEenheid.GeefAantal()) - Set Waarde = (AantalPerVerzendwijze.GetAt(Bon.GeefVerzendwijze()) + VerpakkingEenheid.GeefAantal()) + Do AantalPerVerzendwijze.SetAt(AantalPerVerpakkingEenheid,Bon.GeefVerzendwijze()) - Do AantalPerVerzendwijze.SetAt(Waarde,Bon.GeefVerzendwijze()) - Do AantalPerDag.SetAt(AantalPerVerzendwijze,Datum) Do AantalPerTypePerDag.SetAt(AantalPerDag,VerpakkingEenheid.GeefType()) @@ -169,7 +170,6 @@ Set Verzendwijze = AantalPerVerzendwijze.Next("") While (Verzendwijze '= ""){ Set Aantal = AantalPerVerzendwijze.GetAt(Verzendwijze) - Do ..MaakLosTransportKostItem(Klant,Transporteur,VerpakkingEenheidType,Datum,Verzendwijze,Aantal) Set Verzendwijze = AantalPerVerzendwijze.Next(Verzendwijze) @@ -180,6 +180,11 @@ } Set Transporteur = AantalPerTransporteurPerTypePerDag.Next(Transporteur) } + GoTo Volgende +CatchBerekeningFaalt + Set Exception = ##class(TECH.ExceptionHandler).Catch() + Do ##class(vhLib.Logger).%New("TransportKostCalculator").Warning("Berekeningen","KlantID: "_Klant.GeefNummer()_" "_$C(13,10)_Exception.ToString()) +Volgende } ]]> @@ -188,21 +193,18 @@ Klant:DOM.CRM.Klant,Transporteur:DOM.TRANSP.enu.Transporteur,VerpakkingEenheidType:DOM.TRANSP.enu.VerpakkingEenheidType,Datum:%Date,Verzendwijze:DOM.OV.enu.VerzendWijze,Aantal:%Integer 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,Land:DOM.common.Land,Transporteur:DOM.TRANSP.enu.Transporteur,VerpakkingEenheidType:DOM.TRANSP.enu.VerpakkingEenheidType + @@ -331,7 +308,7 @@ Set $ZTRAP = "Catch" // Opvangen als factor niet bestaat Set FactorWaarde = MeervoudigeFactor.ZoekFactorWaarde(FactorNaam,Datum) GOTO Next -Catch Set FactorWaarde = 0 +Catch Set FactorWaarde = -1 Next } Quit FactorWaarde Index: vhDeploy/JBL/Deploy20111028x1338.cls.xml =================================================================== diff -u --- vhDeploy/JBL/Deploy20111028x1338.cls.xml (revision 0) +++ vhDeploy/JBL/Deploy20111028x1338.cls.xml (revision 2568) @@ -0,0 +1,27 @@ + + + +1 +svn.Deploy +0 + + +Herinitialiseer TransportKosten factor. + + + +0 + + + +1 + + + + Index: DOM/TRANSP/TransportAPI.cls.xml =================================================================== diff -u -r2443 -r2568 --- DOM/TRANSP/TransportAPI.cls.xml (.../TransportAPI.cls.xml) (revision 2443) +++ DOM/TRANSP/TransportAPI.cls.xml (.../TransportAPI.cls.xml) (revision 2568) @@ -10,5 +10,17 @@ VervoerReferentie:%Integer,GroepReferentie:%Integer DOM.TRANSP.Transport + + +1 +Verzendwijze:DOM.OV.enu.VerzendWijze +%Boolean + + + +1 +Verzendwijze:DOM.OV.enu.VerzendWijze +%Boolean + Index: DOM/TRANSP/enu/VerpakkingEenheidType.cls.xml =================================================================== diff -u -r2443 -r2568 --- DOM/TRANSP/enu/VerpakkingEenheidType.cls.xml (.../VerpakkingEenheidType.cls.xml) (revision 2443) +++ DOM/TRANSP/enu/VerpakkingEenheidType.cls.xml (.../VerpakkingEenheidType.cls.xml) (revision 2568) @@ -17,6 +17,8 @@ + +halve europallet 1 expression + + +Verzendwijze:DOM.OV.enu.VerzendWijze +%Boolean + + + + +Verzendwijze:DOM.OV.enu.VerzendWijze +%Boolean + + Index: JBL KPI Klant Product Anlayse Kosten.prj.xml =================================================================== diff -u -r2400 -r2568 --- JBL KPI Klant Product Anlayse Kosten.prj.xml (.../JBL KPI Klant Product Anlayse Kosten.prj.xml) (revision 2400) +++ JBL KPI Klant Product Anlayse Kosten.prj.xml (.../JBL KPI Klant Product Anlayse Kosten.prj.xml) (revision 2568) @@ -1,6 +1,6 @@ - + @@ -10,14 +10,19 @@ + + + + + @@ -26,24 +31,40 @@ + + + + + + + + + + + + + + + + - +