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 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-
+