Index: AX/Uitgaand/EC/DataAX/impl/HelperOrdersConverteren.cls.xml =================================================================== diff -u -r53242 -r55704 --- AX/Uitgaand/EC/DataAX/impl/HelperOrdersConverteren.cls.xml (.../HelperOrdersConverteren.cls.xml) (revision 53242) +++ AX/Uitgaand/EC/DataAX/impl/HelperOrdersConverteren.cls.xml (.../HelperOrdersConverteren.cls.xml) (revision 55704) @@ -94,15 +94,17 @@ } Else { Set pxLijn.Aantal=+^||ECCache("D",OrderId,"DTL",VolgNr,"QTYORDERED") } - ; Set pxLijn.NettoPrijs=+^||ECCache("D",OrderId,"DTL",VolgNr,"SALESPRICE") + Set pxLijn.NettoPrijs=+^||ECCache("D",OrderId,"DTL",VolgNr,"SALESPRICE") Set pxLijn.Munt=^||ECCache("D",OrderId,"DTL",VolgNr,"CURRENCYCODE") Set pxLijn.GrootteOrde=$S(+^||ECCache("D",OrderId,"DTL",VolgNr,"PRICEUNIT")=100:"%",1:"") Set pxLijn.TotaalPrijs=+^||ECCache("D",OrderId,"DTL",VolgNr,"LINEAMOUNT") - Set:+^||ECCache("D",OrderId,"DTL",VolgNr,"QTYORDERED") pxLijn.NettoPrijs=pxLijn.TotaalPrijs/+^||ECCache("D",OrderId,"DTL",VolgNr,"QTYORDERED") - Set pxLijn.VerwachteLeverDatum=$zdh(^||ECCache("D",OrderId,"DTL",VolgNr,"RECEIPTDATECONFIRMED"),3) - Set pxLijn.GevraagdeLeverDatum=$zdh(^||ECCache("D",OrderId,"DTL",VolgNr,"RECEIPTDATEREQUESTED"),3) Set pxLijn.Type=$S(pxLijn.Aantal<0:"R",1:"L") ; Retour of Levering - Set pxLijn.Status=..TranslateStatus(pxLijn.PRNr,pxLijn.Aantal,^||ECCache("D",OrderId,"DTL",VolgNr,"SALESSTATUS"),^||ECCache("D",OrderId,"DTL",VolgNr,"ADUORDERSTATUSID")) + Set pxLijn.Status=..TranslateStatus(pxLijn.PRNr,pxLijn.Aantal,^||ECCache("D",OrderId,"DTL",VolgNr,"SALESSTATUS"),^||ECCache("D",OrderId,"DTL",VolgNr,"ADUORDERSTATUSID"),^||ECCache("D",OrderId,"DTL",VolgNr,"SALESTYPE"),^||ECCache("D",OrderId,"DTL",VolgNr,"ADUJOURNALTYPE"),^||ECCache("D",OrderId,"DTL",VolgNr,"MCRHOLDCODE")) + If ^||ECCache("D",OrderId,"DTL",VolgNr,"SALESTYPE")=3 ; alleen bij orders die de CTP gepasseerd zijn, dus zonder actieve holdcode + { + Set pxLijn.VerwachteLeverDatum=$zdh(^||ECCache("D",OrderId,"DTL",VolgNr,"RECEIPTDATECONFIRMED"),3) + Set pxLijn.GevraagdeLeverDatum=$zdh(^||ECCache("D",OrderId,"DTL",VolgNr,"RECEIPTDATEREQUESTED"),3) + } Set pxLijn.Commentaar=$TR(^||ECCache("D",OrderId,"HFD","LIJNCONFTXT"),$C(0)) Set pxLijn.InAssortiment=..ProductValidator.InAssortiment(pxLijn.PRNr) Set pxLijn.InConfigurator=..ProductValidator.InConfigurator(pxLijn.PRNr) @@ -123,45 +125,70 @@ -PRNr:%String,Aantal:%Integer,SalesStatus:%String,BlokkeerStatus:%String +PRNr:%String,Aantal:%Integer,SalesLineStatus:%String,BlokkeerStatus:%String,SalesOrderType:%String,JournalType:%String,HoldCode:%String Index: AX/Uitgaand/EC/DataAX/impl/AxOrderLijnIterator.cls.xml =================================================================== diff -u -r55346 -r55704 --- AX/Uitgaand/EC/DataAX/impl/AxOrderLijnIterator.cls.xml (.../AxOrderLijnIterator.cls.xml) (revision 55346) +++ AX/Uitgaand/EC/DataAX/impl/AxOrderLijnIterator.cls.xml (.../AxOrderLijnIterator.cls.xml) (revision 55704) @@ -59,7 +59,10 @@ _" SalesLine.SALESPRICE,SalesLine.PRICEUNIT,SalesLine.LINEAMOUNT,SalesLine.CURRENCYCODE,ProdNotes.Body as PRODREF,LijnNotes.Body as LIJNCONFTXT,SalesLine.DLVMODE, " _" ADR.RECID,ADR.COUNTRYREGIONID,ADR.CITY,ADR.ZIPCODE,ADR.STREET,ADR.ADUNOTA1EXTERNAL,ADR.ADUNOTA2EXTERNAL,ADR.ADUTRANSPORTERAUTH" _" ,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" + _" InventTrans.STATUSRECEIPT = 0 and InventTrans.DATAAREAID = InventTransOrigin.DATAAREAID and InventTrans.PARTITION = InventTransOrigin.PARTITION),0) as GEPICKTEHOEVEELHEID, ORD.SALESTYPE, ORD.ADUJOURNALTYPE," + _" (select top 1 hold.MCRHOLDCODE wachtStand from MCRHOLDCODETRANS hold " + _" where hold.DATAAREAID ='vhbe' and hold.PARTITION = '5637144576' and hold.MCRCLEAREDUSER='' and hold.MCRHOLDCODE<>'' and Hold.INVENTREFID = ORD.SALESID" + _" order by hold.INVENTREFID ,case hold.MCRHOLDCODE when 'VOORUIT' then 1 when 'REMBOURS' then 2 else 9 end asc) as MCRHOLDCODE" _" from SalesLine " _" join SalesTable as ORD on SalesLine.SALESID = ORD.SALESID and SalesLine.DATAAREAID = ORD.DATAAREAID and SalesLine.PARTITION = ORD.PARTITION " _" join InventTransOrigin on InventTransOrigin.INVENTTRANSID = SalesLine.INVENTTRANSID and InventTransOrigin.DATAAREAID = SalesLine.DATAAREAID and "