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