Procurement Audit Step 5

Sub POStep5()
'
' sort by vendor
' then obtain sub-totals for cost
' load report to sheet $subtotals
'
Dim oEZ As New cEZ
' run the sort

oEZ.Sort _
Infile:=BASEDIR & "poext.txt", _
OutFile:=BASEDIR & "povend.srt", _
SortKeys:="vendor_number + a "

' run the sub-total
oEZ.AnalyzeSU _
Infile:=BASEDIR & "povend.srt", _
Report:=BASEDIR & "povend.sub", _
SortKeys:="vendor_number + a", _
Column:="invamount"
' load the subtotal data to sheet $SubTotals
LoadSheet _
ToSheet:="$SubTotals", _
Infile:=BASEDIR & "povend.sub"

Set oEZ = Nothing
Application.StatusBar = "PO - Step5 "
End Sub

Main Page

Complete Auditor resources
Links \| Privacy Policy \| FAQ \| Downloads \| Trademarks

	Procurement Audit Step 5
	Benford's Law Downloads Site Map