vhLib.Macro TECH.Mockable DOM.AKP.ToeleveringAPI 1 DOM.PM.BlumProductAPI 1 BlumProductAPI:DOM.PM.BlumProductAPI,ToeleveringAPI:DOM.AKP.ToeleveringAPI 1 1 %Status 1 CSBSO31:APPS.AKP.AankoopControle.BLUM.TXT.TransportEnFaktuur.CSBS031,CSBSO41:APPS.AKP.AankoopControle.BLUM.TXT.TransportEnFaktuur.CSBS041,ToeleveringNr:%String,ToeleveringLijnNr:%String,ProductNr:%String dummy factuur, prijs die blum gaat rekenen zit niet in despatch bericht. set CSBSO41.Value = CSBSO41.QuantityInvoiced * ..GeefVHProductPrijs(CSBSO41.ProductNrCustomer) } else { ; het interesseert ons niet of het een manuele toelevering is (lijnnr = "") of de echte toelevering niet meer bestaat (om welke reden dan ook) ; we processen de lijn als of het een manuele lijn is, de lijn komt dan bij de niet overgedragen vervoerslijnen, en prob kan in admin opgelost worden. set:(CSBSO41.KundeStamNummer="") CSBSO41.KundeStamNummer = CSBSO31.InvoicingCustomerNr ;geen toelevering om kundestamnummer op te halen, we gebruiken de shipto set CSBSO41.ProductNrCustomer = ..BlumProductAPI.GeefProductIdVolgensIdentNummer(CSBSO41.KundeStamNummer,CSBSO41.IdentNr) if $Length(CSBSO41.ProductNrCustomer) { ;Theorische prijs volgens product set CSBSO41.Value = CSBSO41.QuantityInvoiced * ..GeefVHProductPrijs(CSBSO41.ProductNrCustomer) } else { ;Product niet gevonden, dan zetten we er prijs 0 op. (bvb marketing materiaal zit niet onze producten. set CSBSO41.Value = 0 } } ]]> ToeleveringNummer:%String,IdentNummer:%String,ProductNummer:%String IdentNummer:%String,KundeNummer:%String 1 0 %String PRNr:%String