Identifying Payables Transactions with Missing Apply Records
From the Useful SQL Scripts Series.
I was assisting on a support case recently where we needed to identify transactions in Payables Management history which had missing Apply records. We wanted to add up the total of the Apply records and make sure that they matched the value of the original document amount.
I was given a script which could look for missing Apply records on debit documents only. Using this script as a starting point, I updated it to use local temp tables in the tempdb (which means that mulitple users can execute the code without causing concurrency and deadlock issues), added indexes for performance, set it up to handle debit and credit documents as well as multi-currency realized gain/loss and allowing for a 0.01 exchange rate currency rounding difference per applied multi-currency document.
I worked with my friend Robert Cavill to test the code and fine tuned it to work on live data. The final code was able to identify a few transactions which did have issues due to rounding differences beyond the allowance, without returning a large number of false positives.
SQL PM Find Missing Apply Records Script
/* SQL PM Find Missing Apply Records */
/* Updated by David Musgrave, 24-March-2009 *//* Now handles debit and credit documents and multi-currency (including round errors) */
set QUOTED_IDENTIFIER OFF
set nocount onprint "Deleting Temp tables (if they exist)"
go
if exists (select * from tempdb.dbo.sysobjects
where id = Object_id('tempdb..#PMTrans') and type = 'U')
drop table #PMTransgo
if exists (select * from tempdb.dbo.sysobjects
where id = Object_id('tempdb..#PMApply') and type = 'U')
drop table #PMApply/* Create the table used to hold PM30200 Info */
print "Creating Temp tables"
go
create table #PMTrans (
BillInternal# char (21) null,
BillDoc# char (21) null,
BillDocType# smallint null,
BillMode# tinyint null,
Vendor char (15) null,
OriginalAmtAfterWriteOff numeric(19, 5) null,
DocDate datetime null
)
create index #PMTrans_PK on #PMTrans (BillInternal#, BillDocType#, BillMode#, Vendor, OriginalAmtAfterWriteOff)/* Create the table used to hold Sum of Apply Records from PM30300 */
go
create table #PMApply (
BillInternal# char (21) null,
BillDocType# smallint null,
BillMode# tinyint null,
Vendor char (15) null,
TotalAppliedAmt numeric(19,5) null,
WriteOffAmt numeric(19,5) null,
DiscountAmt numeric(19,5) null,
RealizedAmt numeric(19,5) null,
OrigCurrency int null
)
create index #PMApply_PK on #PMApply (BillInternal#, BillDocType#, BillMode#, Vendor, TotalAppliedAmt, WriteOffAmt, DiscountAmt, RealizedAmt, OrigCurrency)print "Selecting Bills in History"
go
insert #PMTrans ( BillInternal#, BillDoc#, BillDocType#, BillMode#, Vendor, OriginalAmtAfterWriteOff, DocDate )
select VCHRNMBR, DOCNUMBR, DOCTYPE, 0, VENDORID, (DOCAMNT - DISTKNAM), DOCDATE
from PM30200
where DOCTYPE < 4 and VOIDED = 0
and (DOCAMNT - DISTKNAM) <> 0.0 -- Zero Value Documents
order by VCHRNMBRinsert #PMTrans ( BillInternal#, BillDoc#, BillDocType#, BillMode#, Vendor, OriginalAmtAfterWriteOff, DocDate )
select VCHRNMBR, DOCNUMBR, DOCTYPE, 1, VENDORID, (DOCAMNT - DISTKNAM), DOCDATE
from PM30200
where DOCTYPE >= 4 and VOIDED = 0
and (DOCAMNT - DISTKNAM) <> 0.0 -- Zero Value Documents
and not (DOCTYPE = 4 and TTLPYMTS = DOCAMNT) -- Remove fully paid returns
order by VCHRNMBRprint "Selecting Apply Records and Totally Apply Credits in History"
go/* Get Functional Currency ID */
declare @FUNC varchar(5)
select top 1 @FUNC = FUNLCURR from MC40000insert #PMApply ( BillInternal#, BillDocType#, BillMode#, Vendor, TotalAppliedAmt, WriteOffAmt, DiscountAmt, RealizedAmt, OrigCurrency )
select APTVCHNM, APTODCTY, 0, VENDORID, sum(APPLDAMT), sum(WROFAMNT), 0, 0 , sum ( case when @FUNC !='' and @FUNC != CURNCYID then 1 else 0 end )
from PM30300
group by APTVCHNM, APTODCTY, VENDORID
order by APTVCHNMinsert #PMApply ( BillInternal#, BillDocType#, BillMode#, Vendor, TotalAppliedAmt, WriteOffAmt, DiscountAmt, RealizedAmt, OrigCurrency )
select VCHRNMBR, DOCTYPE, 1, VENDORID, sum(APPLDAMT), 0, sum(DISTKNAM), sum(RLGANLOS), sum ( case when @FUNC !='' and @FUNC != CURNCYID then 1 else 0 end )
from PM30300
group by VCHRNMBR, DOCTYPE, VENDORID
order by VCHRNMBRprint "Entries that are missing apply records"
goselect a.BillMode#, a.BillInternal#, a.BillDoc#, a.BillDocType#, a.Vendor, a.DocDate, a.OriginalAmtAfterWriteOff,
isnull(b.TotalAppliedAmt,0) as TotalAppliedAmt,
isnull((a.OriginalAmtAfterWriteOff - (b.TotalAppliedAmt + b.WriteOffAmt - b.DiscountAmt - b.RealizedAmt)),0) as Differ
from #PMTrans a
left outer join #PMApply b on
a.BillInternal# = b.BillInternal# and a.BillDocType# = b.BillDocType#
and a.BillMode# = b.BillMode# and a.Vendor = b.Vendor
where ((isnull((a.OriginalAmtAfterWriteOff - (b.TotalAppliedAmt + b.WriteOffAmt - b.DiscountAmt - b.RealizedAmt)),0) <> 0)
or (b.Vendor is null))
and ( a.BillMode# = 0 or isnull(b.OrigCurrency,0) = 0 or (abs(isnull((a.OriginalAmtAfterWriteOff - (b.TotalAppliedAmt + b.WriteOffAmt - b.DiscountAmt - b.RealizedAmt)),0)) > (isnull(b.OrigCurrency,0) / 100.0) ) ) -- Rounding on Credit Documents
order by a.Vendorprint "Removing Temp tables"
go
drop table #PMTrans
drop table #PMApplyThe script is also available as an attachment at the bottom of this post.
Since writing this script I have obtained another script which performs a similar check. Both scripts are in the attached archive. There are some differences in the scripts, the script I wrote works only with History and has allowances for rounding differences on multi-currency transactions, when the other script works on Open and History but does not handle the rounding differences. I would suggest running both scripts.
Let me know if you find this useful.
David
Posted: Monday, April 06, 2009 9:00 AM by David Musgrave
Developing for Dynamics GP : Identifying Payables Transactions with Missing Apply Records
No comments:
Post a Comment