Index: AXimpl/Dynamics/DocumentLocationOut/DocumentLocationService.cls.xml =================================================================== diff -u -r61751 -r73176 --- AXimpl/Dynamics/DocumentLocationOut/DocumentLocationService.cls.xml (.../DocumentLocationService.cls.xml) (revision 61751) +++ AXimpl/Dynamics/DocumentLocationOut/DocumentLocationService.cls.xml (.../DocumentLocationService.cls.xml) (revision 73176) @@ -70,7 +70,8 @@ Set FilenamePDF = ..getFilenamePDF(Request).FilenamePDF } Catch { #dim Exception As TECH.IException = ##class(TECH.ExceptionHandler).Catch() - Do ##class(TECH.ExceptionHandler).Throw(Exception) + Do ..Logger.Debug("GeefBestandslocatieError","WS AXimpl DocumentLocationService : Return FilenamePDF mislukt") + //Do ##class(TECH.ExceptionHandler).Throw(Exception) } Do ..Logger.Debug("GeefBestandslocatie","WS AXimpl DocumentLocationService : Return FilenamePDF : '"_FilenamePDF_"'.") Index: AXimpl/Controle/OrdDiff/AX/AxOrderLijnIterator.cls.xml =================================================================== diff -u -r69259 -r73176 --- AXimpl/Controle/OrdDiff/AX/AxOrderLijnIterator.cls.xml (.../AxOrderLijnIterator.cls.xml) (revision 69259) +++ AXimpl/Controle/OrdDiff/AX/AxOrderLijnIterator.cls.xml (.../AxOrderLijnIterator.cls.xml) (revision 73176) @@ -41,7 +41,7 @@ Set SqlStatement = "Select salesLine.SALESID,salesLine.CUSTACCOUNT,salesline.INVENTTRANSID,salesline.ITEMID,salesline.CONFIRMEDDLV,salesline.RECEIPTDATECONFIRMED,salesline.QTYORDERED" _" ,isnull(( select -sum(qty) from inventtrans where INVENTTRANSORIGIN.RECID = inventtrans.INVENTTRANSORIGIN and INVENTTRANS.STATUSISSUE = 3 and " _" inventtrans.STATUSRECEIPT = 0 and inventtrans.DATAAREAID = INVENTTRANSORIGIN.DATAAREAID and inventtrans.PARTITION = INVENTTRANSORIGIN.PARTITION),0) as GEPICKTEHOEVEELHEID" - _" ,salesline.REMAINSALESPHYSICAL as OPENSTAANDEHOEVEELHEID, QtyOpBon,ADMINPRODUCTNUMMER " + _" ,salesline.REMAINSALESPHYSICAL as OPENSTAANDEHOEVEELHEID, QtyOpBon,ADMINPRODUCTNUMMER,transnl.NAME as KORTTEKST " _" ,INVENTTRANSORIGIN.ADUSOPRCONTRACTID " _" ,InventDim.CONFIGID " _" ,isnull(LogisticsPostalAddress.CountryRegionId,'') as COUNTRYREGIONID " @@ -54,7 +54,17 @@ _" join SALESTABLE on SALESTABLE.SALESID = salesline.SALESID and SALESTABLE.DATAAREAID = salesline.DATAAREAID and salestable.PARTITION = salesline.PARTITION " _" left outer join ADUEcoResAttributeCombination as Kenmerk on InventDim.ConfigId=Kenmerk.ConfigId " _" and SalesLine.ITEMID=Kenmerk.ITEMID " - _" and InventDim.ConfigId<>'' " + _" and InventDim.ConfigId<>'' " + _" join INVENTDIM dim " + _" on dim.DATAAREAID = SALESLINE.DATAAREAID and dim.INVENTDIMID = SALESLINE.INVENTDIMID and dim.Partition=SALESLINE.PARTITION" + _" left outer join INVENTDIM dimbase " + _" on dimbase.DATAAREAID = dim.DATAAREAID and dimbase.Partition=dim.PARTITION and dim.ConfigID =dimbase.configid and dimbase.WMSLOCATIONID='' and dimbase.inventlocationid ='' and dimbase.inventsiteid='' and dimbase.inventbatchid='' and dimbase.inventsizeid='' and dimbase.recversion=dim.recversion" + _" left outer join INVENTDIMCOMBINATION as Idc " + _" on Idc.DATAAREAID= SALESLINE.DATAAREAID and Idc.ITEMID=SALESLINE.ITEMID and Idc.INVENTDIMID=DimBase.INVENTDIMID and idc.PARTITION = SALESLINE.PARTITION" + _" left outer join ECORESPRODUCT ResProduct " + _" on idc.DISTINCTPRODUCTVARIANT= ResProduct.RecID and ResProduct.PARTITION = SALESLINE.PARTITION " + _" left outer join ECORESPRODUCTTRANSLATION transNL " + _" on transNL.PRODUCT = Resproduct.RECID and transNL.LANGUAGEID='nl-be' and inventdim.partition=transNL.PARTITION " _" left outer join LOGISTICSPOSTALADDRESS on LOGISTICSPOSTALADDRESS.RECID = salesline.DELIVERYPOSTALADDRESS and LOGISTICSPOSTALADDRESS.PARTITION = salesline.PARTITION " _" join INVENTTRANSORIGIN on INVENTTRANSORIGIN.INVENTTRANSID = salesline.INVENTTRANSID and INVENTTRANSORIGIN.DATAAREAID = salesline.DATAAREAID and " _" INVENTTRANSORIGIN.PARTITION = salesline.PARTITION " Index: AXimpl/Controle/OrdDiff/Admin/DataBouwer.cls.xml =================================================================== diff -u -r72049 -r73176 --- AXimpl/Controle/OrdDiff/Admin/DataBouwer.cls.xml (.../DataBouwer.cls.xml) (revision 72049) +++ AXimpl/Controle/OrdDiff/Admin/DataBouwer.cls.xml (.../DataBouwer.cls.xml) (revision 73176) @@ -76,8 +76,8 @@ Set AdminData = ##class(AXimpl.Controle.OrdDiff.Admin.OrderData).%New() Set AdminData.OrderLijnId = OrderLijnId Set AdminData.ProductNr = ProductNr - Set AXPRNr=..SoprConvertor.GeefVervangProductDoorSOPRInAX(ProductNr) - Set:AXPRNr'="" ProductNr=AXPRNr + ;Set AXPRNr=..SoprConvertor.GeefVervangProductDoorSOPRInAX(ProductNr) + ;Set:AXPRNr'="" ProductNr=AXPRNr Do AdminData.ProductSetObjectId(ProductNr) Index: AXimpl/Controle/OrdDiff/VergelijkLijn.cls.xml =================================================================== diff -u -r69259 -r73176 --- AXimpl/Controle/OrdDiff/VergelijkLijn.cls.xml (.../VergelijkLijn.cls.xml) (revision 69259) +++ AXimpl/Controle/OrdDiff/VergelijkLijn.cls.xml (.../VergelijkLijn.cls.xml) (revision 73176) @@ -98,7 +98,7 @@ - Index: AXimpl/Controle/OrdDiff/AX/DataBouwer.cls.xml =================================================================== diff -u -r72049 -r73176 --- AXimpl/Controle/OrdDiff/AX/DataBouwer.cls.xml (.../DataBouwer.cls.xml) (revision 72049) +++ AXimpl/Controle/OrdDiff/AX/DataBouwer.cls.xml (.../DataBouwer.cls.xml) (revision 73176) @@ -48,6 +48,7 @@ #dim ItemId As %String =rs.Data("ITEMID") #dim ProductNr As %String = $$$Strip0(rs.Data("ADMINPRODUCTNUMMER")) + #dim KortTekst As %String = $$$Strip0(rs.Data("KORTTEKST")) If ProductNr="" { Set ProductNr=..Translator.GeefPRNrForAdmin(ItemId) @@ -61,6 +62,8 @@ ;Set:(ProductNr="")||('$D(^KPR(ProductNr))) ProductNr=1793108 ;SERV.TRANSPORT - Product is nodig anders wordt de AX lijn genegeerd Set AXData.ProductNr = ProductNr Do AXData.ProductSetObjectId(ProductNr) + Set AXData.KortTekst = KortTekst ; wordt alleen ingevuld indien maatwerk + Set:KortTekst="" AXData.KortTekst=AXData.Product.KortTekst Set AXData.AantalBesteld = AantalBesteld Set AXData.AantalGeleverd = AantalGepickt Index: AXimpl/Controle/OrdDiff/AX/OrderData.cls.xml =================================================================== diff -u -r69259 -r73176 --- AXimpl/Controle/OrdDiff/AX/OrderData.cls.xml (.../OrderData.cls.xml) (revision 69259) +++ AXimpl/Controle/OrdDiff/AX/OrderData.cls.xml (.../OrderData.cls.xml) (revision 73176) @@ -52,6 +52,10 @@ %String + +%String + + %Library.CacheSerialState OrderDataState @@ -108,6 +112,9 @@ ValidatieBlokkering + +KortTekst +