Free SunSystems Tutorial: How do I change Current Period, Open Period and Open Dates in SunSystems?

Free SunSystems Tutorial

Free SunSystems Tutorial

Index

HOME
IMPLEMENTATION
VIDEO LINK
DOWNLOAD
SUPPORT
REPORTING
CONTACT US
FAQ

How do I change Current Period, Open Period and Open Dates in SunSystems?

Open Ledger Setup and click amend
Set current period
Set open period range
Set open date range

Posted by sunplusindo at 4:56 PM

Email This BlogThis!Share to Twitter Share to Facebook Share to Pinterest

Newer Post Older Post Home

SunSystems Basic Knowledge

How do I create a new user in SunSystems?
How to login and logout in SunSystems?
How to unlock a locked user in SunSystems?
How do I post a transaction in SunSystems?
Why I can't run depreciation calculation in SunSystems 6.3.1?
How do I post an asset transaction on SunPlus?
How do I update the dictionary on FS?
How do I change Current Period, Open Period and Open Dates in SunSystems?
How do I upload exchange rate in SunSystems?
How do I run Asset Depreciation Calculation in SunSystems?

SunPlus 5.4.1

How do I create Ledger H?
How do I Install SunSystems 5.4.1?
How do I create a new user in SunSystems 5.4.1?
How do I Serialize Infor Q&A (SunSystems 5.4)??
How do I Serialize SunSystems 5.4.1?
How do I start services in SunSystems 5.4.1?
How do I restore SunPlus 541 databases?

SunSystems Installation

Update Windows Roles and Features
SQL Server Installation

Order Fulfillment

How do I create Ledger H?
How do I copy a business unit in SunSystems 6.3?

FAQ

How do I map a ledger import?
Why I can't select any business unit in Infor Q&A?
Cannot initialize posting Dll error
Allocation in Progress

SUPPORT

Backup Database Manually
Can't Run Report - Unable to Invoke...
Can't Run SunSystems
Error on the running balance
Fix Asset Record
How to add a new user in SunSystems 5.4.1
How to change Current Period, Open Period and Open Dates in SunSystems?
How to close an account in SunSystems?
How to Enabling the Infor Q&A or Add-Ins in Excel
How to install SunSystems 5.4.1
How to re-open closed/Completed account in SunSystems?
How to Serialize Infor Q & A
How to Serialize SunSystems 5.4.1
How to Update Application Role
New Ways to Reconcile
Reversal journal
SunPlus for Hospital

Blog Archive

► 2024 (2)
- ► February (2)

► 2021 (6)
- ► November (1)
- ► August (2)
- ► July (2)
- ► June (1)

► 2020 (1)
- ► February (1)

► 2019 (19)
- ► October (1)
- ► July (1)
- ► June (17)

▼ 2018 (13)
- ► March (2)
- ▼ February (11)

► 2016 (7)
- ► September (3)
- ► February (4)

► 2014 (2)
- ► June (2)

► 2013 (5)
- ► October (1)
- ► May (1)
- ► April (3)

Total Line

Sub Range_Find_Method() 'Finds the last non-blank cell on a sheet/range. Dim lRow As Long Dim lCol As Long lRow = Cells.Find(What:="*", _ After:=Range("A1"), _ LookAt:=xlPart, _ LookIn:=xlFormulas, _ SearchOrder:=xlByRows, _ SearchDirection:=xlPrevious, _ MatchCase:=False).Row ' MsgBox "Last Row: " & lRow Range("A1:H" & lRow).Select Selection.Copy Range("P1").Select ActiveSheet.Paste End Sub

Comparative1

Sub BuildCompSh() Dim CTB_A As Worksheet Dim PTB_A As Worksheet Dim CPTB_A As Worksheet Dim C_LastActiveRow As Long Dim P_LastActiveRow As Long Dim CP_LastActiveRow As Long Dim rgFound As Range Dim FoundRow As Integer Dim c_Row As Integer Set LC = Worksheets("Launch") Set CTB_A = Worksheets("CurrentTB_A") Set CTB_B = Worksheets("CurrentTB_B") Set PTB_A = Worksheets("PriorTB_A") Set CPTB_A = Worksheets("ComparativeTB_A") P_LastActiveRow = PTB_A.Cells(PTB_A.Rows.Count, "B").End(xlUp).Row CPTB_A.Range("A4:K" & P_LastActiveRow).Value2 = PTB_A.Range("A4:K" & P_LastActiveRow).Value2 CP_LastActiveRow = CPTB_A.Cells(CPTB_A.Rows.Count, "A").End(xlUp).Row C_LastActiveRow = CTB_A.Cells(CTB_A.Rows.Count, "A").End(xlUp).Row For i = 0 To (C_LastActiveRow - 4) Set rgFound = CPTB_A.Range("A:A").Find(CTB_A.Range("A4").Offset(i, 0), LookAt:=xlWhole) If Not rgFound Is Nothing Then FoundRow = rgFound.Row CPTB_A.Range("L" & FoundRow).Value2 = CTB_A.Range("A4").Offset(i, 10) Else CP_LastActiveRow = CP_LastActiveRow + 1 c_Row = CTB_A.Range("A4").Offset(i, 10).Row CPTB_A.Range("A" & CP_LastActiveRow & ":J" & CP_LastActiveRow).Value2 = _ CTB_A.Range("A" & c_Row & ":J" & c_Row).Value2 CPTB_A.Range("L" & CP_LastActiveRow).Value2 = _ CTB_A.Range("K" & c_Row).Value2 End If Next End Sub

Comparative

Sub BuildCompSh() Dim CTB_A As Worksheet Dim PTB_A As Worksheet Dim CPTB_A As Worksheet Dim C_LastActiveRow As Long Dim P_LastActiveRow As Long Dim CP_LastActiveRow As Long Dim rgFound As Range Dim FoundRow As Integer Dim c_Row As Integer Set LC = Worksheets("Launch") Set CTB_A = Worksheets("CurrentTB_A") Set CTB_B = Worksheets("CurrentTB_B") Set PTB_A = Worksheets("PriorTB_A") Set CPTB_A = Worksheets("ComparativeTB_A") P_LastActiveRow = PTB_A.Cells(PTB_A.Rows.Count, "B").End(xlUp).Row CPTB_A.Range("A4:K" & P_LastActiveRow).Value2 = PTB_A.Range("A4:K" & P_LastActiveRow).Value2 CP_LastActiveRow = CPTB_A.Cells(CPTB_A.Rows.Count, "A").End(xlUp).Row C_LastActiveRow = CTB_A.Cells(CTB_A.Rows.Count, "A").End(xlUp).Row For i = 0 To (C_LastActiveRow - 4) Set rgFound = CPTB_A.Range("A:A").Find(CTB_A.Range("A4").Offset(i, 0), LookAt:=xlWhole) If Not rgFound Is Nothing Then FoundRow = rgFound.Row CPTB_A.Range("L" & FoundRow).Value2 = CTB_A.Range("A4").Offset(i, 10) CPTB_A.Range("N" & FoundRow).Value2 = CTB_A.Range("A4").Offset(i, 11) Else CP_LastActiveRow = CP_LastActiveRow + 1 c_Row = CTB_A.Range("A4").Offset(i, 10).Row CPTB_A.Range("A" & CP_LastActiveRow & ":J" & CP_LastActiveRow).Value2 = _ CTB_A.Range("A" & c_Row & ":J" & c_Row).Value2 CPTB_A.Range("L" & CP_LastActiveRow).Value2 = _ CTB_A.Range("K" & c_Row).Value2 CPTB_A.Range("N" & CP_LastActiveRow).Value2 = _ CTB_A.Range("L" & c_Row).Value2 End If Next End Sub

Connection String MVC

Server=(local)\\;Database=DBNAME;Trusted_Connection=True;MultipleActiveResultSets=true;User ID=sa;Password=PASSWORD;Integrated Security=False

Formula

CYB CurrentPeriod = {=(CY)} Result = left(CurrentPeriod,4) & "/001" CYC Result= {=(CY)} CRE CurrentPeriod = {=(CY)} Result = left(CurrentPeriod,4) & "/012" PYB CurrentPeriod = {=(CY)} Result = left(CurrentPeriod,4)-1 & "/001" PYC CurrentPeriod = {=(CY)} Result = left(CurrentPeriod,4)-1 & "/" & right(CurrentPeriod,3) PYE CurrentPeriod = {=(CY)} Result = left(CurrentPeriod,4)-1 & "/012" PYB2 CurrentPeriod = {=(CY)} Result = left(CurrentPeriod,4)-2 & "/001" PYC2 CurrentPeriod = {=(CY)} Result = left(CurrentPeriod,4)-2 & "/" & right(CurrentPeriod,3) PYE2 CurrentPeriod = {=(CY)} Result = left(CurrentPeriod,4)-2 & "/012" PYB3 CurrentPeriod = {=(CY)} Result = left(CurrentPeriod,4)-3 & "/001" PYC3 CurrentPeriod = {=(CY)} Result = left(CurrentPeriod,4)-3 & "/" & right(CurrentPeriod,3) PYE3 CurrentPeriod = {=(CY)} Result = left(CurrentPeriod,4)-3 & "/012" === CurrentPeriod = {=(CY)} NewDate = DateAdd("m",-12+1,CurrentPeriod) TheMonth = month(NewDate) Result = Year(NewDate) & "/" & string(3-len(TheMonth),"0") & TheMonth ==== CurrentPeriod = {=(CY)} NewDate = DateAdd("m",-24+1,CurrentPeriod) TheMonth = month(NewDate) Result = Year(NewDate) & "/" & string(3-len(TheMonth),"0") & TheMonth

SunPlusIndo 2016. Simple theme. Theme images by rajareddychadive. Powered by Blogger.