Index: AX/Uitgaand/EC/DataAX/impl/HelperFacturenConverteren.cls.xml =================================================================== diff -u -r50353 -r53242 --- AX/Uitgaand/EC/DataAX/impl/HelperFacturenConverteren.cls.xml (.../HelperFacturenConverteren.cls.xml) (revision 50353) +++ AX/Uitgaand/EC/DataAX/impl/HelperFacturenConverteren.cls.xml (.../HelperFacturenConverteren.cls.xml) (revision 53242) @@ -103,8 +103,9 @@ Set pxLijn.Type="P" Set pxLijn.Aantal=+^||ECCache("D",FactuurNr,"ORD",OrderNr,VolgNr,"QTY") Set pxLijn.GrootteOrde=$S(+^||ECCache("D",FactuurNr,"ORD",OrderNr,VolgNr,"PRICEUNIT")=100:"%",1:"") - Set pxLijn.NettoPrijs=+^||ECCache("D",FactuurNr,"ORD",OrderNr,VolgNr,"SALESPRICE") + ;Set pxLijn.NettoPrijs=+^||ECCache("D",FactuurNr,"ORD",OrderNr,VolgNr,"SALESPRICE") Set pxLijn.TotaalPrijs=+^||ECCache("D",FactuurNr,"ORD",OrderNr,VolgNr,"LINEAMOUNT") + Set:pxLijn.Aantal pxLijn.NettoPrijs=pxLijn.TotaalPrijs/pxLijn.Aantal Set pxLijn.Munt=^||ECCache("D",FactuurNr,"ORD",OrderNr,VolgNr,"CURRENCYCODE") Set pxLijn.Type=$S(pxLijn.Aantal<0:"R",1:"L") ; Retour of Levering Set pxLijn.OorsprongDocType="FACTUUR" @@ -117,15 +118,12 @@ { Set pxLijn.ProductOmschrijving= pxLijn.ProductOmschrijving_"
"_"Ref: "_^||ECCache("D",FactuurNr,"ORD",OrderNr,VolgNr,"PRODREF") } - If $L(^||ECCache("D",FactuurNr,"ORD",OrderNr,VolgNr,"PRODREF")) - { - Set pxLijn.ProductOmschrijving= pxLijn.ProductOmschrijving_"
"_"Ref: "_^||ECCache("D",FactuurNr,"ORD",OrderNr,VolgNr,"PRODREF") - } + If $L(^||ECCache("D",FactuurNr,"ORD",OrderNr,VolgNr,"DLVDATE")) { Set pxLijn.LeveringsDatum=$zdh(^||ECCache("D",FactuurNr,"ORD",OrderNr,VolgNr,"DLVDATE"),3) Set VerzendDatum=$$EXTDATE^vhLib.DataTypes(pxLijn.LeveringsDatum,"DK") - Set pxLijn.ProductOmschrijving= pxLijn.ProductOmschrijving_"
"_"Shipment date: "_VerzendDatum + Set pxLijn.ProductOmschrijving= pxLijn.ProductOmschrijving_"
"_$S(..Taal="N":"Verzenddatum",..Taal="F":"Date d'envoi",1:"Shipment date")_": "_VerzendDatum } If 'pxLijn.InAssortiment && 'pxLijn.InConfigurator Index: AX/Uitgaand/EC/DataAX/impl/ProductValidator.cls.xml =================================================================== diff -u -r51161 -r53242 --- AX/Uitgaand/EC/DataAX/impl/ProductValidator.cls.xml (.../ProductValidator.cls.xml) (revision 51161) +++ AX/Uitgaand/EC/DataAX/impl/ProductValidator.cls.xml (.../ProductValidator.cls.xml) (revision 53242) @@ -60,6 +60,25 @@ ]]> + +PRNr:%String + + + + +PRNr:%String + + + %String -D ##class(AX.Uitgaand.EC.Productie.impl.ExportLevertermijnJSON).%New().ExportAll() +D ##class(AX.Uitgaand.EC.Productie.impl.ExportLevertermijnJSON).%New().ExportVeranderde() %Status 1 @@ -30,17 +30,19 @@ CustomerID:%String,VanafDatum:%Date '"_$ZD(VanafDatum,3)_"'" - Set ..ResultSet = ..SqlQueryConnection.GetResultSet(SqlStatement) + Set SqlStatement = ..GeefSQLVoorFactuurHoofding()_" where INV.INVOICEACCOUNT=? and INV.INVOICEDATE>?" + Set ..ResultSet = ..SqlQueryConnection.GetResultSetWithoutExecute(SqlStatement) + Set sc=..ResultSet.Execute(CustomerID,$ZD(VanafDatum,3)) ]]> CustomerID:%String @@ -52,12 +54,13 @@ _"select INV.INVOICEID, INV.ORDERACCOUNT, INV.INVOICEACCOUNT, INV.INVOICEDATE, INV.DUEDATE, INVOICEAMOUNT,SUMTAX,INV.CURRENCYCODE,INV.CASHDISC, INV.CASHDISCDATE, " _" TRANS.CLOSED,TRANS.AMOUNTCUR,TRANS.SETTLEAMOUNTCUR" _" from CUSTINVOICEJOUR as INV" - _" join salestable as ORD on ORD.salesid = INV.salesid " + _" join salestable as ORD on ORD.salesid = INV.salesid and ORD.Partition = INV.Partition and ORD.DataAreaId = INV.DataAreaId" _" join CUSTTRANS as TRANS on TRANS.INVOICE = INV.INVOICEID " _" and TRANS.ACCOUNTNUM = INV.INVOICEACCOUNT " _" and TRANS.TRANSDATE = INV.INVOICEDATE " _" and TRANS.VOUCHER = INV.LEDGERVOUCHER " _" and TRANS.DATAAREAID = INV.DATAAREAID " + _" and TRANS.PARTITION = INV.PARTITION " Quit SqlStatement ]]> @@ -72,17 +75,18 @@ _" InvLine.QTY,InvLine.SALESPRICE,InvLine.PRICEUNIT,InvLine.CURRENCYCODE,InvLine.LINEAMOUNT, SalesLine.RECEIPTDATECONFIRMED,SalesLine.RECEIPTDATEREQUESTED,ProdNotes.Body as PRODREF," _" ADR.RECID,ADR.COUNTRYREGIONID,ADR.CITY,ADR.ZIPCODE,ADR.STREET,ADR.ADUNOTA1EXTERNAL,ADR.ADUNOTA2EXTERNAL,ADR.ADUTRANSPORTERAUTH" _" from CUSTINVOICETRANS as InvLine" - _" join SalesLine on SalesLine.InventTransId = InvLine.InventTransId and SalesLine.DataAreaId=InvLine.DataAreaId " - _" join SalesTable ORD on ORD.SalesId = SalesLine.SALESID" + _" join SalesLine on SalesLine.InventTransId = InvLine.InventTransId and SalesLine.DataAreaId=InvLine.DataAreaId and SalesLine.Partition = InvLine.Partition" + _" join SalesTable ORD on ORD.SalesId = SalesLine.SALESID and ORD.Partition = SalesLine.Partition and ORD.DataAreaId = SalesLine.DataAreaId " _" left outer join LOGISTICSPOSTALADDRESS as ADR on ADR.RECID =Salesline.DELIVERYPOSTALADDRESS " - _" join InventDim on InventDim.InventDimId = InvLine.InventDimId " + _" join InventDim on InventDim.InventDimId = InvLine.InventDimId and InventDim.Partition = InvLine.Partition" _" and InventDim.DataAreaId = InvLine.DataAreaId " _" left outer join ADUEcoResAttributeCombination as Kenmerk on InventDim.ConfigId=Kenmerk.ConfigId " _" and SalesLine.ITEMID=Kenmerk.ITEMID " - _" and InventDim.ConfigId<>'' " - _" left outer join AduCustomerFormNotes as ProdNotes on ProdNotes.REFTABLEID=359 and ProdNotes.REFRECID=SalesLine.RECID and ADUBODYTYPE=5" - _" where InvLine.DataAreaID='vhbe' and InvLine.INVOICEID = '"_FactuurID_"' " ; specifieke factuur - Set ..ResultSet = ..SqlQueryConnection.GetResultSet(SqlStatement) + _" and InventDim.ConfigId<>'' and SalesLine.Partition=Kenmerk.Partition " + _" left outer join AduCustomerFormNotes as ProdNotes on ProdNotes.REFTABLEID=359 and ProdNotes.REFRECID=SalesLine.RECID and ADUBODYTYPE=5 and ProdNotes.Partition=SalesLine.Partition" + _" where InvLine.DataAreaID='vhbe' and InvLine.INVOICEID = ? " ; specifieke factuur + Set ..ResultSet = ..SqlQueryConnection.GetResultSetWithoutExecute(SqlStatement) + Set sc=..ResultSet.Execute(FactuurID) ]]> @@ -104,7 +108,10 @@ %Status 1 Index: AX/Uitgaand/EC/ServiceAX.cls.xml =================================================================== diff -u -r50353 -r53242 --- AX/Uitgaand/EC/ServiceAX.cls.xml (.../ServiceAX.cls.xml) (revision 50353) +++ AX/Uitgaand/EC/ServiceAX.cls.xml (.../ServiceAX.cls.xml) (revision 53242) @@ -54,7 +54,7 @@ %Status ='"_$ZD(VanafDatum,3)_"' and SalesLine.SALESSTATUS<>4" - Set ..ResultSet = ..SqlQueryConnection.GetResultSet(SqlStatement) + Set ..ResultSet = ..SqlQueryConnection.GetResultSetWithoutExecute(SqlStatement) + Set sc=..ResultSet.Execute() ]]> CustomerID:%String @@ -59,19 +61,21 @@ _" ,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" _" from SalesLine " - _" join SalesTable as ORD on SalesLine.SALESID = ORD.SALESID and SalesLine.DATAAREAID = ORD.DATAAREAID" + _" 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 " _" InventTransOrigin.PARTITION = SalesLine.PARTITION " - _" left outer join LOGISTICSPOSTALADDRESS as ADR on ADR.RECID =Salesline.DELIVERYPOSTALADDRESS " + _" left outer join LOGISTICSPOSTALADDRESS as ADR on ADR.RECID =Salesline.DELIVERYPOSTALADDRESS and ADR.PARTITION=SalesLine.PARTITION" _" join InventDim on InventDim.InventDimId =SalesLine.InventDimId " - _" and InventDim.DataAreaId = SalesLine.DataAreaId " + _" and InventDim.DataAreaId = SalesLine.DataAreaId and InventDim.PARTITION = SalesLine.PARTITION " _" left outer join ADUEcoResAttributeCombination as Kenmerk on InventDim.ConfigId=Kenmerk.ConfigId " _" and SalesLine.ITEMID=Kenmerk.ITEMID " _" and InventDim.ConfigId<>'' " - _" left outer join AduCustomerFormNotes as ProdNotes on ProdNotes.REFTABLEID=359 and ProdNotes.REFRECID=SalesLine.RECID and ProdNotes.ADUBODYTYPE=5" - _" left outer join AduCustomerFormNotes as LijnNotes on LijnNotes.REFTABLEID=359 and LijnNotes.REFRECID=SalesLine.RECID and LijnNotes.ADUBODYTYPE=1" - _" left outer join AduCustomerFormNotes as OrdNotes on OrdNotes.REFTABLEID=366 and OrdNotes.REFRECID=ORD.RECID and OrdNotes.ADUBODYTYPE=1" - _" where ORD.SALESTYPE = 3 " ; SalesType values: Journal = 0, Sales (order) = 3, Return order = 4 " + _" and Kenmerk.PARTITION=SalesLine.PARTITION" + _" left outer join AduCustomerFormNotes as ProdNotes on ProdNotes.REFTABLEID=359 and ProdNotes.REFRECID=SalesLine.RECID and ProdNotes.ADUBODYTYPE=5 and ProdNotes.PARTITION=SalesLine.PARTITION " + _" left outer join AduCustomerFormNotes as LijnNotes on LijnNotes.REFTABLEID=359 and LijnNotes.REFRECID=SalesLine.RECID and LijnNotes.ADUBODYTYPE=1 and LijnNotes.PARTITION=SalesLine.PARTITION " + _" left outer join AduCustomerFormNotes as OrdNotes on OrdNotes.REFTABLEID=366 and OrdNotes.REFRECID=ORD.RECID and OrdNotes.ADUBODYTYPE=1 and OrdNotes.PARTITION=ORD.PARTITION " + _" where ORD.SALESTYPE = 3 " + ; SalesType values: Journal = 0, Sales (order) = 3, Return order = 4 Quit SqlStatement ]]>