Free SunSystems Tutorial: How to reverse a journal transaction and hide from ledger?

SunSystems (SunPlus) Tutorial

Index

HOME
IMPLEMENTATION
VIDEO LINK
DOWNLOAD
SUPPORT
REPORTING
CONTACT US
FAQ

How to reverse a journal transaction and hide from ledger?

Posted by sunplusindo at 7:20 AM

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

Newer Post Older Post Home

Contact Us

Esra Peranginangin SE., Ak., CA., MAk esra_peranginangin@yahoo.com

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 (5)
- ► August (3)
- ► 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.