Unnecessary zero values on bank reconciliation screen

I do manual bank reconciliations.

Having moved from Sage 50 to Sage 200, one of my gripes is that on the bank reconciliation screen in Sage 200, if there is a receipt of say, £500, in the receipts column, the payments column is £0.00, which ideally should be blank for easier viewing as it was in Sage 50,  

Top Replies

Parents
  • Hello , this isn't currently possible I'm afraid.  Please post this in the Ideas Hub where it can be voted on by other users.  Many feature enhancements have originated from the Ideas Hub.

  • in reply to Sage 200 UK Business Analyst

    Yes it is with a bit of scripting!  So get your business partner to package and install this script, and you're done.

    'Sage.MMS.CashBook.BankReconciliationForm.vbs
    Imports Sage.Common.Amendability
    Imports Sage.Common.Controls
    Imports System.Windows.Forms
    Imports System.Collections
    Imports System
    Module addInModule
    Public Sub Main
    	'The lists we need are in a SplitContainer, so hidden from FindControlByName
    	for each c as List in FindLists(form.findcontrolbyname("splitContainer").UnderlyingControl)
    		addhandler c.Format,addressof list_Format
    	next
    End Sub
    Private Sub list_Format(sender as List,args as ListItemFormatEventArgs)
    	'replace decimal zero with empty string
    	if typeof(args.Value) is Decimal andalso cdec(args.value)=0 then
    		args.Value=String.Empty
    		args.Cancel=true
    	end if
    end sub
    Private Function FindLists(c as Control) as ArrayList
    	'Find all Sage.Common.Controls.Lists under c (recursive)
    	dim l as new ArrayList
    	for each cc as Control in c.Controls
    	 if typeof c is List then
    	  l.add(c)
    	 else
    	  l.addrange(FindLists(cc))
    	 end if
    	next
    	return l
    End Function
    End Module

Reply
  • in reply to Sage 200 UK Business Analyst

    Yes it is with a bit of scripting!  So get your business partner to package and install this script, and you're done.

    'Sage.MMS.CashBook.BankReconciliationForm.vbs
    Imports Sage.Common.Amendability
    Imports Sage.Common.Controls
    Imports System.Windows.Forms
    Imports System.Collections
    Imports System
    Module addInModule
    Public Sub Main
    	'The lists we need are in a SplitContainer, so hidden from FindControlByName
    	for each c as List in FindLists(form.findcontrolbyname("splitContainer").UnderlyingControl)
    		addhandler c.Format,addressof list_Format
    	next
    End Sub
    Private Sub list_Format(sender as List,args as ListItemFormatEventArgs)
    	'replace decimal zero with empty string
    	if typeof(args.Value) is Decimal andalso cdec(args.value)=0 then
    		args.Value=String.Empty
    		args.Cancel=true
    	end if
    end sub
    Private Function FindLists(c as Control) as ArrayList
    	'Find all Sage.Common.Controls.Lists under c (recursive)
    	dim l as new ArrayList
    	for each cc as Control in c.Controls
    	 if typeof c is List then
    	  l.add(c)
    	 else
    	  l.addrange(FindLists(cc))
    	 end if
    	next
    	return l
    End Function
    End Module

Children
No Data