Index: vhTest/Mock/DOM/AKP/Toelevering.cls.xml
===================================================================
diff -u -r34692 -r37839
--- vhTest/Mock/DOM/AKP/Toelevering.cls.xml (.../Toelevering.cls.xml) (revision 34692)
+++ vhTest/Mock/DOM/AKP/Toelevering.cls.xml (.../Toelevering.cls.xml) (revision 37839)
@@ -52,6 +52,12 @@
]]>
+
+%String
+
+
+
DOM.common.PartijID
+
+
+IdentNummer:%String,KundeNummer:%String
+%String
+
+
Index: vhDeploy/Deploy20161115BLRecDefUpdate.cls.xml
===================================================================
diff -u
--- vhDeploy/Deploy20161115BLRecDefUpdate.cls.xml (revision 0)
+++ vhDeploy/Deploy20161115BLRecDefUpdate.cls.xml (revision 37839)
@@ -0,0 +1,15 @@
+
+
+
+vhLib.Macro
+vhDeploy.Deploy
+
+
+1
+
+
+
+
+
+
Index: DOM/AKP/impl/DataM/NullToelevering.cls.xml
===================================================================
diff -u -r29059 -r37839
--- DOM/AKP/impl/DataM/NullToelevering.cls.xml (.../NullToelevering.cls.xml) (revision 29059)
+++ DOM/AKP/impl/DataM/NullToelevering.cls.xml (.../NullToelevering.cls.xml) (revision 37839)
@@ -15,6 +15,12 @@
]]>
+
+%String
+
+
+
LeverancierNr:%String
1
Index: DOM/AKP/Toelevering.cls.xml
===================================================================
diff -u -r34692 -r37839
--- DOM/AKP/Toelevering.cls.xml (.../Toelevering.cls.xml) (revision 34692)
+++ DOM/AKP/Toelevering.cls.xml (.../Toelevering.cls.xml) (revision 37839)
@@ -12,6 +12,11 @@
+
+1
+%String
+
+
1
DOM.common.PartijID
Index: DOM/AKP/impl/DataM/DataMToelevering.cls.xml
===================================================================
diff -u -r34692 -r37839
--- DOM/AKP/impl/DataM/DataMToelevering.cls.xml (.../DataMToelevering.cls.xml) (revision 34692)
+++ DOM/AKP/impl/DataM/DataMToelevering.cls.xml (.../DataMToelevering.cls.xml) (revision 37839)
@@ -65,6 +65,12 @@
]]>
+
+%String
+
+
+
LeverancierNr:%String
1
Index: APPS/AKP/AankoopControle/BLUM/impl/ToeleveringInfoVerzamelaar.cls.xml
===================================================================
diff -u -r37802 -r37839
--- APPS/AKP/AankoopControle/BLUM/impl/ToeleveringInfoVerzamelaar.cls.xml (.../ToeleveringInfoVerzamelaar.cls.xml) (revision 37802)
+++ APPS/AKP/AankoopControle/BLUM/impl/ToeleveringInfoVerzamelaar.cls.xml (.../ToeleveringInfoVerzamelaar.cls.xml) (revision 37839)
@@ -33,7 +33,7 @@
#Dim Toelevering As DOM.AKP.Toelevering = ..ToeleveringAPI.GeefToelevering(ToeleveringNr)
#Dim ToeleveringLijnID As %Integer = ToeleveringLijnNr * 100
#Dim count as %Integer
-
+
;het kan een gesplitste lijn zijn
for count=0:1:9 {
set ToeleveringLijnID = ToeleveringLijnNr * 100 + count
@@ -47,6 +47,7 @@
;Theoretische prijs volgens toelevering.
set CSBSO41.Value = CSBSO41.QuantityInvoiced * ToeleveringLijn.GeefEenheidsPrijs() / $Select(Product.GeefGrootteOrdeAankoop()="M":1000,Product.GeefGrootteOrdeAankoop()="H":100,1:1 )
set CSBSO41.Value = CSBSO41.Value * (1 - ToeleveringLijn.GeefKorting())
+ set CSBSO41.KundeStamNummer = Toelevering.GeefKlantNummerBijLeverancier()
} else {
#Dim Error As %String = ""
if ToeleveringLijnNr = "" {
@@ -59,6 +60,7 @@
}
} else {
if (ToeleveringLijnNr=""){ ;manual order
+ set CSBSO41.KundeStamNummer = CSBSO31.InvoicingCustomerNr ;geen toelevering om kundestamnummer op te halen, we gebruiken de shipto
set CSBSO41.ProductNrCustomer = ..BlumProductAPI.GeefProductIdVolgensIdentNummer(CSBSO31.InvoicingCustomerNr,CSBSO41.IdentNr)
if ##class(Blum.Product).%ExistsId(CSBSO41.IdentNr) {
Index: APPS/AKP/AankoopControle/BLUM/TXT/TransportEnFaktuur/CSBS041.cls.xml
===================================================================
diff -u -r36086 -r37839
--- APPS/AKP/AankoopControle/BLUM/TXT/TransportEnFaktuur/CSBS041.cls.xml (.../CSBS041.cls.xml) (revision 36086)
+++ APPS/AKP/AankoopControle/BLUM/TXT/TransportEnFaktuur/CSBS041.cls.xml (.../CSBS041.cls.xml) (revision 37839)
@@ -59,6 +59,10 @@
%String
+
+%String
+
+
APPS.AKP.AankoopControle.BLUM.TXT.TransportEnFaktuur.CSBS044
list
@@ -82,7 +86,7 @@
Set result = result _ ..FormateerVeld(..CustomsClassification,6 )
Set result = result _ ..FormateerVeld(..UnitOfMeasure, 2)
Set result = result _ ..FormateerVeld(..CountryOfOrigin, 2)
-
+ Set result = result _ ..FormateerVeld(..KundeStamNummer, 6)
Set result = result _ ..FormateerVeld("""",1)
Quit result
]]>