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 ]]>