Var v2025 as String
Var v2024 as String
Var v2023 as String
Var v2022 as String
Var v2021 as String
Var v2020 as String
Var vYears as String
Var vTest54 as String
Var vTest53 as String
Var vTest52 as String
Var vTest51 as String
Var vTest50 as String

vEnd = vTest2+"ZZZ"
PopupSelectPosition(3, 250, 150)
//CODE = C1

IF @MODE() = 0 OR @MODE() = 2 THEN {vTest1 = @UserSelect("SALES,HST,POA,EHF,ADMIN,CASH RECEIPTS,CHARGE,DELIVERY")
			vTest2 =@Calendar("","Select Report START Date")
			 vTest7 = @Calendar(vTest2,"Select Report END Date")


v2025 = vTest2 + ".." + vTest7
v2024 = "2024" + @RIGHT(vTest2,6) + ".." + "2024" + @RIGHT(vTest7,6)
v2023 = "2023" + @RIGHT(vTest2,6) + ".." + "2023" + @RIGHT(vTest7,6)
v2022 = "2022" + @RIGHT(vTest2,6) + ".." + "2022" + @RIGHT(vTest7,6)
v2021 = "2021" + @RIGHT(vTest2,6) + ".." + "2021" + @RIGHT(vTest7,6)
v2020 = "2020" + @RIGHT(vTest2,6) + ".." + "2020" + @RIGHT(vTest7,6)

vYears =  vTest2 + ".." + vTest7 + ";" + "2024" + @RIGHT(vTest2,6) + ".." + "2024" + @RIGHT(vTest7,6) + ";" + "2023" + @RIGHT(vTest2,6) + ".." + "2023" + @RIGHT(vTest7,6) + ";" + "2022" + @RIGHT(vTest2,6) + ".." + "2022" + @RIGHT(vTest7,6) + ";" + "2021" + @RIGHT(vTest2,6) + ".." + "2021" + @RIGHT(vTest7,6) + ";" + "2020" + @RIGHT(vTest2,6) + ".." + "2020" + @RIGHT(vTest7,6)

vTest5 = "!DATESTAMP=" + v2025

vRSHandle = @XResultSetSearch("DATA\MASTER.DB", "CUSTOMER", SEARCH_MODE_AND, SEARCH_SYNTAX_QA, vTest5)
XResultSetSort(vRSHandle,"LNAME:-1;FNAME:-1;INVOICE:-1")
vTest8 = "MONTHLY " + vTest1 
vReport=@xresultsetprintreport(vTest8 ,vRSHandle,1)

vTest54 = "!DATESTAMP=" + v2024



vRSHandle = @XResultSetSearch("DATA\MASTER.DB", "CUSTOMER", SEARCH_MODE_AND, SEARCH_SYNTAX_QA, vTest54)
XResultSetSort(vRSHandle,"LNAME:-1;FNAME:-1;INVOICE:-1")
vTest8 = "MONTHLY " + vTest1 
vReport=@xresultsetprintreport(vTest8 ,vRSHandle,1)

vTest53 = "!DATESTAMP=" + v2023



vRSHandle = @XResultSetSearch("DATA\MASTER.DB", "CUSTOMER", SEARCH_MODE_AND, SEARCH_SYNTAX_QA, vTest53)
XResultSetSort(vRSHandle,"LNAME:-1;FNAME:-1;INVOICE:-1")
vTest8 = "MONTHLY " + vTest1 
vReport=@xresultsetprintreport(vTest8 ,vRSHandle,1)

vTest52 = "!DATESTAMP=" + v2022



vRSHandle = @XResultSetSearch("DATA\MASTER.DB", "CUSTOMER", SEARCH_MODE_AND, SEARCH_SYNTAX_QA, vTest52)
XResultSetSort(vRSHandle,"LNAME:-1;FNAME:-1;INVOICE:-1")
vTest8 = "MONTHLY " + vTest1 
vReport=@xresultsetprintreport(vTest8 ,vRSHandle,1)


vTest51 = "!DATESTAMP=" + v2021



vRSHandle = @XResultSetSearch("DATA\MASTER.DB", "CUSTOMER", SEARCH_MODE_AND, SEARCH_SYNTAX_QA, vTest51)
XResultSetSort(vRSHandle,"LNAME:-1;FNAME:-1;INVOICE:-1")
vTest8 = "MONTHLY " + vTest1 
vReport=@xresultsetprintreport(vTest8 ,vRSHandle,1)

vTest50 = "!DATESTAMP=" + v2020



vRSHandle = @XResultSetSearch("DATA\MASTER.DB", "CUSTOMER", SEARCH_MODE_AND, SEARCH_SYNTAX_QA, vTest50)
XResultSetSort(vRSHandle,"LNAME:-1;FNAME:-1;INVOICE:-1")
vTest8 = "MONTHLY " + vTest1 
vReport=@xresultsetprintreport(vTest8 ,vRSHandle,1)

vTest5 = "!DATESTAMP=" + v2021
vRSHandle = @XResultSetSearch("DATA\MASTER.DB", "CUSTOMER", SEARCH_MODE_AND, SEARCH_SYNTAX_QA,vTest5)
XResultSetSort(vRSHandle,"LNAME:-1;FNAME:-1;INVOICE:-1")
vTest8 = "MONTHLY " + vTest1 


vTest50 = "!DATESTAMP=" + v2020



vRSHandle = vRSHandle + @XResultSetSearch("DATA\MASTER.DB", "CUSTOMER", SEARCH_MODE_AND, SEARCH_SYNTAX_QA, vTest50)
XResultSetSort(vRSHandle,"LNAME:-1;FNAME:-1;INVOICE:-1")
vTest8 = "MONTHLY " + vTest1 


vReport=@xresultsetprintreport(vTest8 ,vRSHandle,1)

XResultSetClose(vRSHandle)}