Index: APPS/AKP/AankoopControle/BLUM/impl/ToeleveringInfoVerzamelaarV2.cls.xml =================================================================== diff -u -r39297 -r39732 --- APPS/AKP/AankoopControle/BLUM/impl/ToeleveringInfoVerzamelaarV2.cls.xml (.../ToeleveringInfoVerzamelaarV2.cls.xml) (revision 39297) +++ APPS/AKP/AankoopControle/BLUM/impl/ToeleveringInfoVerzamelaarV2.cls.xml (.../ToeleveringInfoVerzamelaarV2.cls.xml) (revision 39732) @@ -71,9 +71,10 @@ ; 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 ##class(Blum.Product).%ExistsId(CSBSO41.IdentNr) { + + if $Length(CSBSO41.ProductNrCustomer) { ;Theorische prijs volgens product - set CSBSO41.Value = CSBSO41.QuantityInvoiced * ..GeefVHProductPrijs(..GeefProductNummer(CSBSO41.IdentNr, CSBSO31.InvoicingCustomerNr)) + 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