Require changes in macros Customer overdue report

 I have received a request from my client regarding customization change in macros report, as they want customer overdue report should calculate age on posting date instead of document date.

Pls. some one help me out how can i change the macros report for the same.

Below is my macros query.

Sub MainSub()
'
' Sage Accpac Macro file: D:\SageSoftware\SageAccpacPrg\Macros\Customer Overdue.avb
' Recorded at: Fri Nov 23 16:56:26 2012
'

On Error GoTo ACCPACErrorHandler

' TODO: To increase efficiency, comment out any unused DB links.
Dim mDBLinkCmpRW As AccpacCOMAPI.AccpacDBLink
Set mDBLinkCmpRW = OpenDBLink(DBLINK_COMPANY, DBLINK_FLG_READWRITE)

Dim mDBLinkSysRW As AccpacCOMAPI.AccpacDBLink
Set mDBLinkSysRW = OpenDBLink(DBLINK_SYSTEM, DBLINK_FLG_READWRITE)


Set sdate = mDBLinkSysRW.Session
td = sdate.SessionDate
td = CStr(Year(td)) + Format(CStr(Month(td)), "00") + Format(CStr(Day(td)), "00")


Dim temp As Boolean
Dim rpt As AccpacCOMAPI.AccpacReport
Set rpt = ReportSelect("ARCTRN02", " ", " ")
Dim rptPrintSetup As AccpacCOMAPI.AccpacPrintSetup
Set rptPrintSetup = GetPrintSetup(" ", " ")
rptPrintSetup.DeviceName = "HP LaserJet P2015 Series PCL 5e"
rptPrintSetup.OutputName = "TS065"
rptPrintSetup.Orientation = 1
rptPrintSetup.PaperSize = 1
rptPrintSetup.PaperSource = 15
rpt.PrinterSetup rptPrintSetup
rpt.SetParam "INVOICE?", "Y" ' Report parameter: 33
rpt.SetParam "DEBIT?", "Y" ' Report parameter: 34
rpt.SetParam "CREDIT?", "Y" ' Report parameter: 35
rpt.SetParam "INTEREST?", "Y" ' Report parameter: 37
rpt.SetParam "UCASH?", "Y" ' Report parameter: 36
rpt.SetParam "PREPAY?", "Y" ' Report parameter: 38
rpt.SetParam "RECEIPT?", "Y" ' Report parameter: 39
rpt.SetParam "REFUND?", "Y" ' Report parameter: 49
rpt.SetParam "ZEROBAL?", "N" ' Report parameter: 27
rpt.SetParam "FULLYPAID?", "N" ' Report parameter: 54
rpt.SetParam "GRP1TITLE?", "N" ' Report parameter: 55
rpt.SetParam "GRP2TITLE?", "N" ' Report parameter: 56
rpt.SetParam "GRP3TITLE?", "N" ' Report parameter: 57
rpt.SetParam "GRP4TITLE?", "N" ' Report parameter: 58
rpt.SetParam "GRP1TOTAL?", "N" ' Report parameter: 50
rpt.SetParam "GRP2TOTAL?", "N" ' Report parameter: 51
rpt.SetParam "GRP3TOTAL?", "N" ' Report parameter: 52
rpt.SetParam "GRP4TOTAL?", "N" ' Report parameter: 53
rpt.SetParam "FMDOCDATE", "00000000" ' Report parameter: 28
rpt.SetParam "TODOCDATE", "20291231" ' Report parameter: 29
rpt.SetParam "FROMYEAR", " " ' Report parameter: 19
rpt.SetParam "FROMPERIOD", " " ' Report parameter: 20
rpt.SetParam "TOYEAR", " " ' Report parameter: 21
rpt.SetParam "TOPERIOD", " " ' Report parameter: 22
rpt.SetParam "SELECT1", " " ' Report parameter: 2
rpt.SetParam "FROM1", " " ' Report parameter: 3
rpt.SetParam "TO1", " " ' Report parameter: 4
rpt.SetParam "TYPE1", " " ' Report parameter: 44
rpt.SetParam "SELECT2", " " ' Report parameter: 5
rpt.SetParam "FROM2", " " ' Report parameter: 6
rpt.SetParam "TO2", " " ' Report parameter: 7
rpt.SetParam "TYPE2", " " ' Report parameter: 45
rpt.SetParam "SELECT3", " " ' Report parameter: 8
rpt.SetParam "FROM3", " " ' Report parameter: 9
rpt.SetParam "TO3", " " ' Report parameter: 10
rpt.SetParam "TYPE3", " " ' Report parameter: 46
rpt.SetParam "SELECT4", " " ' Report parameter: 11
rpt.SetParam "FROM4", " " ' Report parameter: 12
rpt.SetParam "TO4", " " ' Report parameter: 13
rpt.SetParam "TYPE4", " " ' Report parameter: 47
rpt.SetParam "PHNFMT?", "Y" ' Report parameter: 14
rpt.SetParam "SORT1", " " ' Report parameter: 40
rpt.SetParam "SORT2", " " ' Report parameter: 41
rpt.SetParam "SORT3", " " ' Report parameter: 42
rpt.SetParam "SORT4", " " ' Report parameter: 43
rpt.SetParam "SORTBY", " " ' Report parameter: 23
rpt.SetParam "ACCTTYPE", "All Customers" ' Report parameter: 15
rpt.SetParam "FCURNDEC", "2" ' Report parameter: 17
rpt.SetParam "CONTACT?", "N" ' Report parameter: 18
rpt.SetParam "DETAIL?", "N" ' Report parameter: 31
rpt.SetParam "COMMENT?", "N" ' Report parameter: 30
rpt.SetParam "TYPETOTAL?", "N" ' Report parameter: 32
rpt.SetParam "SESSDATE", td ' Report parameter: 16
rpt.SetParam "MCURCUST?", "Y" ' Report parameter: 24
rpt.SetParam "AMTTYPE", "FUNCTIONAL" ' Report parameter: 25
rpt.SetParam "FORMAT", "DOCDATE" ' Report parameter: 26
Dim ARSELCUS4 As AccpacCOMAPI.AccpacView
Dim ARSELCUS4Fields As AccpacCOMAPI.AccpacViewFields
mDBLinkCmpRW.OpenView "AR0421", ARSELCUS4
Set ARSELCUS4Fields = ARSELCUS4.Fields


temp = ARSELCUS4.Exists
ARSELCUS4.Init

ARSELCUS4Fields("ZEROBALSW").PutWithoutVerification ("0") ' Include Zero Balances
ARSELCUS4Fields("SWSORTREC").PutWithoutVerification ("0") ' Sort Records

ARSELCUS4.Process
rpt.SetParam "SELSEQ", "1" ' Report parameter: 48
rpt.NumOfCopies = 1
rpt.Destination = PD_PREVIEW
rpt.PrintDir = ""
rpt.PrintReport

Exit Sub

ACCPACErrorHandler:
Dim lCount As Long
Dim lIndex As Long

If Errors Is Nothing Then
MsgBox Err.Description
Else
lCount = Errors.Count

If lCount = 0 Then
MsgBox Err.Description
Else
For lIndex = 0 To lCount - 1
MsgBox Errors.Item(lIndex)
Next
Errors.Clear
End If
Resume Next

End If

End Sub

Parents Reply Children