Insert/update row to tables of all other companies

Question

Hi all, 
 is it possible to do the following: 
 - user update some foreign exchange rate on Maintain Exchange Rates Form of company A, 
 - on click Save button, it will update on company C,D, and E as well. 
 I know it is possible on executable application according to this https://my.sage.co.uk/Sage200SDKDocs/html/DOC0001_Example.html#EXECUTABLE, 
 but can we do it from the Sage 200 form?

Geoff Turner · Accepted Answer

Yes, it is possible but be careful! This is basic VB code to loop through all companies while working in one company 
 Const ACTIVECONNECTIONDATA As String = "Sage.ObjectStore.ConnectionData.ActiveConnectionData"
 Dim thisCompany As ConnectionData = Sage.Common.Contexts.SessionContext.Context.GetData(ACTIVECONNECTIONDATA)
 Dim connectionData As Sage.ObjectStore.ConnectionData
 For Each company As Company In (New Sage.Accounting.Application).Companies
 'switch to different company
 connectionData = New Sage.ObjectStore.ConnectionData(Sage.ObjectStore.DatabaseType.Sql, company.ConnectString)
 Sage.Common.Contexts.SessionContext.Context.SetData(ACTIVECONNECTIONDATA, connectionData)
 'do what you need
 Debug.WriteLine(Sage.Accounting.SystemManager.CompanyDetailFactory.Factory.Fetch.Name)
 'dispose all objectstore objects afterwards!
 Next
 Try
 Catch ex As Exception
 '
 Finally
 'Switch back to original company
 Sage.Common.Contexts.SessionContext.Context.SetData(ACTIVECONNECTIONDATA, thisCompany)
 End Try
 Debug.WriteLine(Sage.Accounting.SystemManager.CompanyDetailFactory.Factory.Fetch.Name)

 
 Obviously, you'll need to read the relevant currency in each company in order to updated it.

Sage 200 UKI

Insert/update row to tables of all other companies

Top Replies

COMMUNITY

COMPANY

PARTNERS

SUPPORT & TRAINING