Common Vendor Database to All Companies

[SeisaT]

Hi,
I have a client who is running Sage Accpac 500 ERP 5.3 GL, AP, and PO. The client is running about twenty projects and have been created as individual companies within ACCPAC. They would like to synchronize the PO Items & Vendor Databases. Is there perhaps a 3rd party product that can achieve this?

Regards,

SeisaT

 

[ettienne]

No.
Use macros or export/import.

 

[EtienneG]

Seisa,

Hope you are well. As Ettienne has said - import/export will do this and you can probably use the odd macro to make it easier.

It is possible to write an app which will do this semi-automatically but it will be expensive (read $10k) and probably not worth it...

 

[Relloc]

Hello Seisa I always the attached code to automate Export/Imports


Sub MainSub()
'Declare variables here

Dim bRet As Boolean

Dim ReturnValue As Boolean
' opendb
Dim OEImport As AccpacImportExport.ImportExport
Dim result As String
Dim Session As New AccpacCOMAPI.AccpacSession
Dim CompDBLink As AccpacCOMAPI.AccpacDBLink
Dim CompDBSYSLink As AccpacCOMAPI.AccpacDBLink
Session.Init "", "AS", "AS1000", "52A"
Session.Open "ADMIN", "ADMIN", "SAMLTD", Now, 0, ""
Set CompDBLink = OpenDBLink(DBLINK_COMPANY, DBLINK_FLG_READWRITE)
Dim status As AccpacImportExport.tagImportExportStatus
Dim doc As New MSXML2.DOMDocument40

Set OEImport = New AccpacImportExport.ImportExport


'OEImport.Open dsAS0003.DBLinkCompany

OEImport.Open CompDBLink







OEImport.SetView "AR0024", "", VIEW_ORDERED_HEADER, Null




' Execute Import Script

OEImport.ExecuteImportScript "C:\ACCPAC\IMPORTS\CUSTOMERS.xml", bRet



OEImport.GetExecuteResult result



status = OEImport.ImpExpStatus



doc.loadXML (result)

doc.setProperty "SelectionLanguage", "XPath"



viewNode = "VIEW[@ID='AR0024']"



If status = IE_SUCCESS Then

Dim viewName As String

Dim ProcessRecordCount As String

Dim InsertedRecordCount As String

Dim UpdatedRecordCount As String



ProcessRecordCount = doc.documentElement.selectSingleNode(viewNode).Attributes.getNamedItem("Processed").nodeValue

InsertedRecordCount = doc.documentElement.selectSingleNode(viewNode).Attributes.getNamedItem("Inserted").nodeValue

UpdatedRecordCount = doc.documentElement.selectSingleNode(viewNode).Attributes.getNamedItem("Updated").nodeValue

'ERRORs = doc.documentElement.selectSingleNode(viewNode).Attributes.getNamedItem(


VTEXT = "View AR0024: " & InsertedRecordCount & " " & UpdatedRecordCount & " " & ProcessRecordCount

frm1.txtb1.Text = result
frm1.Show
Else



With CompDBLink.Session.Errors

Dim i As Long

frm1.txtb1.Text = "AccpacErrors:"



For i = 0 To (.Count - 1)

frm1.txtb1.Text = frm1.txtb1.Text & vbCrLf & .Item(i)

Next i

frm1.txtb1.Text = frm1.txtb1.Text & vbCrLf & "View Node:" & NodeText



End With ' dsAS0003.Session.Errors
frm1.Show
End If



OEImport.Close



Set mDBLinkCmpRW = Nothing



End Sub