Index: APPS/VKP/Offerte/impl/BesteldeOfferteMelder/HttpVerzender/dto/OfferteGenerator.cls.xml =================================================================== diff -u -r46104 -r51468 --- APPS/VKP/Offerte/impl/BesteldeOfferteMelder/HttpVerzender/dto/OfferteGenerator.cls.xml (.../OfferteGenerator.cls.xml) (revision 46104) +++ APPS/VKP/Offerte/impl/BesteldeOfferteMelder/HttpVerzender/dto/OfferteGenerator.cls.xml (.../OfferteGenerator.cls.xml) (revision 51468) @@ -287,14 +287,34 @@ Set OfferteLijn.VHKlantEenheidPrijs = ..GeefPrijsObject(MaatwerkLijn.GeefEenheidPrijsNettoExclBTW(), ..TotaalEnPrijsBerekendResultaat.GeefMuntVoorAankoopPrijs()) Set OfferteLijn.ProductType = ..GeefProductType(MaatwerkLijn) Set OfferteLijn.ProductKleurOmschrijving = ..GeefProductKleurOmschrijving(MaatwerkLijn) + Do ##class(Tools.Wlip).%New(127).String("MaatwerkLijn") + Do ##class(Tools.Wlip).%New(127).ObjToXML(MaatwerkLijn) + Do ##class(Tools.Wlip).%New(127).String("MaatwerkLijn.GeefIngegevenKenmerken") + Do ##class(Tools.Wlip).%New(127).String("MaatwerkLijn.GeefIngegevenKenmerken classname "_MaatwerkLijn.GeefIngegevenKenmerken().%ClassName(1)) + Do ##class(Tools.Wlip).%New(127).ObjToXML(MaatwerkLijn.GeefIngegevenKenmerken()) If ..IsVersie002Compliant() { - Set OfferteLijn.LadeCode = MaatwerkLijn.GeefIngegevenKenmerken().GeefLadeCode() - Set OfferteLijn.DesignCode = ..GeefDesignCode(MaatwerkLijn) - Set OfferteLijn.DesignCodeOmschrijving = ..GeefDesignCodeOmschrijving(OfferteLijn.DesignCode) - Set OfferteLijn.ProductOmschrijvingNL = ..GeefProductOmschrijving(MaatwerkLijn,##class(DOM.enu.Taal).Nederlands()) - Set OfferteLijn.ProductOmschrijvingFR = ..GeefProductOmschrijving(MaatwerkLijn,##class(DOM.enu.Taal).Frans()) - Set OfferteLijn.ProductOmschrijvingEN = ..GeefProductOmschrijving(MaatwerkLijn,##class(DOM.enu.Taal).Engels()) - Set OfferteLijn.ProductOmschrijvingDE = ..GeefProductOmschrijving(MaatwerkLijn,##class(DOM.enu.Taal).Duits()) + If $$$Not(MaatwerkLijn.GeefIngegevenKenmerken().GeefVariant() = ##class(DOM.PM.enu.LadeVariant).TBXAntaro()) { + Set OfferteLijn.LadeCode = MaatwerkLijn.GeefIngegevenKenmerken().GeefLadeCode() + Set OfferteLijn.DesignCode = ..GeefDesignCode(MaatwerkLijn) + Set OfferteLijn.DesignCodeOmschrijving = ..GeefDesignCodeOmschrijving(OfferteLijn.DesignCode) + Set OfferteLijn.ProductOmschrijvingNL = ..GeefProductOmschrijving(MaatwerkLijn,##class(DOM.enu.Taal).Nederlands()) + Set OfferteLijn.ProductOmschrijvingFR = ..GeefProductOmschrijving(MaatwerkLijn,##class(DOM.enu.Taal).Frans()) + Set OfferteLijn.ProductOmschrijvingEN = ..GeefProductOmschrijving(MaatwerkLijn,##class(DOM.enu.Taal).Engels()) + Set OfferteLijn.ProductOmschrijvingDE = ..GeefProductOmschrijving(MaatwerkLijn,##class(DOM.enu.Taal).Duits()) + } Else { + /*Do ##class(Tools.Wlip).%New(127).String("ELSE") + //Set OfferteLijn.LadeCode = M/Z of iets dergelijks + Do ##class(Tools.Wlip).%New(127).String(OfferteLijn.LadeCode) + Set OfferteLijn.DesignCode = ..GeefDesignCode(MaatwerkLijn) + Do ##class(Tools.Wlip).%New(127).String(OfferteLijn.DesignCode) + Set OfferteLijn.DesignCodeOmschrijving = ..GeefDesignCodeOmschrijving(OfferteLijn.DesignCode) + Do ##class(Tools.Wlip).%New(127).String(OfferteLijn.DesignCodeOmschrijving) + Set OfferteLijn.ProductOmschrijvingNL = ..GeefProductOmschrijving(MaatwerkLijn,##class(DOM.enu.Taal).Nederlands()) + Set OfferteLijn.ProductOmschrijvingFR = ..GeefProductOmschrijving(MaatwerkLijn,##class(DOM.enu.Taal).Frans()) + Set OfferteLijn.ProductOmschrijvingEN = ..GeefProductOmschrijving(MaatwerkLijn,##class(DOM.enu.Taal).Engels()) + Set OfferteLijn.ProductOmschrijvingDE = ..GeefProductOmschrijving(MaatwerkLijn,##class(DOM.enu.Taal).Duits()) + Do ##class(Tools.Wlip).%New(127).String(OfferteLijn.ProductOmschrijvingNL)*/ + } } Else { #dim Variant As DOM.PM.enu.Variant = MaatwerkLijn.GeefIngegevenKenmerken().GeefVariant()