Index: APPS/AKP/AankoopControle/BLUM/impl/ToeleveringInfoVerzamelaarV2.cls.xml =================================================================== diff -u -r39140 -r39297 --- APPS/AKP/AankoopControle/BLUM/impl/ToeleveringInfoVerzamelaarV2.cls.xml (.../ToeleveringInfoVerzamelaarV2.cls.xml) (revision 39140) +++ APPS/AKP/AankoopControle/BLUM/impl/ToeleveringInfoVerzamelaarV2.cls.xml (.../ToeleveringInfoVerzamelaarV2.cls.xml) (revision 39297) @@ -67,30 +67,16 @@ ;is de prijs die we verwachten -> dummy factuur, prijs die blum gaat rekenen zit niet in despatch bericht. set CSBSO41.Value = CSBSO41.QuantityInvoiced * ..GeefVHProductPrijs(CSBSO41.ProductNrCustomer) } else { - if (ToeleveringLijnNr=""){ ;manual order - 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) { - ;Theorische prijs volgens product - set CSBSO41.Value = CSBSO41.QuantityInvoiced * ..GeefVHProductPrijs(..GeefProductNummer(CSBSO41.IdentNr, CSBSO31.InvoicingCustomerNr)) - } else { - ;Product niet gevonden, dan zetten we er prijs 0 op. (bvb marketing materiaal zit niet onze producten. - set CSBSO41.Value = 0 - ; alternatief is exception throwen, maar helpt niet echt aan de verwerking. - /* - set Error = "Product in xml bestand gespecifieerd niet gevonden in Admin" - set Error = Error _ $$$CRLF _ "ident nummer "_ CSBSO41.IdentNr - set Error = Error _ $$$CRLF _ "productnummer "_ CSBSO41.ProductNrCustomer - set Error = Error _ $$$CRLF _ "toelevering " _ ToeleveringNr - set Exception = ##class(TECH.Exceptions.GeneralErrorException).%New(Error) - do ##class(TECH.ExceptionHandler).Throw(Exception) - */ - } - } else { - ;voor manuele bestellingen is de toelevering nr opgegegeven als een referentie en lijn nr is leeg, als die dus ingevuld is is er iets fout... - set Error = "Toelevering " _ ToeleveringNr _" in xml bestand gespecifieerd niet gevonden in Admin" - set Exception = ##class(TECH.Exceptions.GeneralErrorException).%New(Error) - do ##class(TECH.ExceptionHandler).Throw(Exception) + ; 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 ##class(Blum.Product).%ExistsId(CSBSO41.IdentNr) { + ;Theorische prijs volgens product + set CSBSO41.Value = CSBSO41.QuantityInvoiced * ..GeefVHProductPrijs(..GeefProductNummer(CSBSO41.IdentNr, CSBSO31.InvoicingCustomerNr)) + } else { + ;Product niet gevonden, dan zetten we er prijs 0 op. (bvb marketing materiaal zit niet onze producten. + set CSBSO41.Value = 0 } } ]]>