I am trying to import vendors (excel) into Vendors. I get the error 'Check code not defined in Bank initialization' - I am not sure what that error means. Has anyone encountered this type of error? Thanks

The January 2015 US Payroll updates are now live. To download, please login to support.na.sage.com and visit KB 45424. IMPORTANT: Look for "2014 Q4 SR1" in the title. This refers to the January 2015 updates.

Hi there, We have an issues with our bank rec.October bank rec was posted but two of the entries did not get posted even though it was cleared as per bank statement. In the  December bank rec, the two entries and still showing as outstanding and bank reconciles only it is ticked. if this was an error on the data entry clerks part then October bank rec wouldn't have reconciled. But to my surprise, the bank, GL and statement for october matches. please assist.

Anyone can give an idea ?. I  have an HR application developed in dot net language and need to integrate with sage AP module and AR module. Can i get an idea about this?.

Hi all, Just wondering how you guys are accommodating the catch weight requirements for your food distributor clients. thanks

Hello, We are considering integrating Accpac with Redmap Document Management using their accpac connector. Has anyone in this forum done this and how do you find it? Any feedback appreciated. Thanks in advance, Stephen

Hi, My client is on Payroll Version 7.1 and needs to generate a W2 file that is in the same format as the W2 on Diskette  file from Payroll Version 5.6. They need to send the file to their parent company to be combined with their W2s from another accounting system.  Any suggestions as to how I can generate this file in Version 7.1 of Payroll it would be greatly appreciated!!!! Thank you!

Yeah, you need to do some programming.  Use the Sage COM API.

Have a look at Realisable IMan.  Chances are it will let you create what you need without lengthy API development.

I am new to Sage .Could you please explain me about what COM API ?

Record a VBA macro, you'll get the code you need.

You could look at using lots where lot # = case (or lot#= case# and lot#) and qty = weight

Moving this post to the Sage 300 ERP (formerly Sage ERP Accpac) Support Group. Thanks, Derek

You'll need to do some programming.  This is just another example of the screw-up that this Aatrix integration is.   Your code will need to look something like this: Private Sub cmdExport_Click() Dim sTaxID As String Dim sFedUICode As String * 9 Dim nTotalWages As Double Dim nTotalCount As Long Dim nEmpWages As Double Dim sDateFrom As String Dim sDateTo As String If Not fso.FolderExists(Me.lblExportFolder) Then fso.CreateFolder (Me.lblExportFolder) sTodayName = a4wLinkRead.Session.CompanyID & "_" & Me.cmbTax & "_" & Me.cmbYear & "_" & Me.cmbQuarter & ".TXT" sTodayFile = Replace(Me.lblExportFolder & "\" & sTodayName, "\\", "\") If fso.FileExists(sTodayFile) Then    If MsgBox("File " & sTodayFile & " already exists, do you want to replace it?", vbYesNo, Me.Caption) vbYes Then Exit Sub End If On Error GoTo BadStuff With a4wLinkRead    .OpenView "UP0014", UPEmplRead    .OpenView "UP0049", UpCheckDetRead    .OpenView "UP0048", UpCheckHeadRead    .OpenView "UP0029", UpTaxRead    .OpenView "CS0001", CSComRead End With CSComRead.Read UpTaxRead.Cancel UpTaxRead.Browse "TAXID = " & Me.cmbTax, True UpTaxRead.Fetch sTaxID = Format(Val(NoDelims(UpTaxRead.Fields("REPORTID"))), String(10, "0")) UpTaxRead.Cancel UpTaxRead.Browse "TAXID = USFUTA" & Me.cmbTax, True UpTaxRead.Fetch sFedUICode = Replace(UpTaxRead.Fields("REPORTID"), "-", "") Dim sMonthStart1 As Long Dim sMonthStart2 As Long Dim sMonthStart3 As Long Dim sMonthEnd1 As Long Dim sMonthEnd2 As Long Dim sMonthEnd3 As Long Select Case Me.cmbQuarter    Case 1:        sDateFrom = Me.cmbYear & "0101"        sDateTo = Me.cmbYear & "0331"        sMonthStart1 = Me.cmbYear & "0105"        sMonthStart2 = Me.cmbYear & "0205"        sMonthStart3 = Me.cmbYear & "0305"        sMonthEnd1 = Me.cmbYear & "0119"        sMonthEnd2 = Me.cmbYear & "0219"        sMonthEnd3 = Me.cmbYear & "0319"    Case 2:        sDateFrom = Me.cmbYear & "0401"        sDateTo = Me.cmbYear & "0630"        sMonthStart1 = Me.cmbYear & "0405"        sMonthStart2 = Me.cmbYear & "0505"        sMonthStart3 = Me.cmbYear & "0605"        sMonthEnd1 = Me.cmbYear & "0419"        sMonthEnd2 = Me.cmbYear & "0519"        sMonthEnd3 = Me.cmbYear & "0619"    Case 3:        sDateFrom = Me.cmbYear & "0701"        sDateTo = Me.cmbYear & "0930"        sMonthStart1 = Me.cmbYear & "0705"        sMonthStart2 = Me.cmbYear & "0805"        sMonthStart3 = Me.cmbYear & "0905"        sMonthEnd1 = Me.cmbYear & "0719"        sMonthEnd2 = Me.cmbYear & "0819"        sMonthEnd3 = Me.cmbYear & "0919"    Case 4:        sDateFrom = Me.cmbYear & "1001"        sDateTo = Me.cmbYear & "1231"        sMonthStart1 = Me.cmbYear & "1005"        sMonthStart2 = Me.cmbYear & "1105"        sMonthStart3 = Me.cmbYear & "1205"        sMonthEnd1 = Me.cmbYear & "1019"        sMonthEnd2 = Me.cmbYear & "1119"        sMonthEnd3 = Me.cmbYear & "1219" End Select OpenLogFile       ' Initialize the import logs Set tsOut = fso.OpenTextFile(sTodayFile, ForWriting, True) LogWrite "File " & sTodayFile & " created" ' SELECT a.EMPLOYEE, c.SSN, c.FIRSTNAME, c.LASTNAME, sum(taxearns) as taxes ' from upchkh a ' inner join upchkd b on a.employee = b.employee and a.perend = b.perend ' inner join UPEMPL c on a.EMPLOYEE = c.EMPLOYEE ' where b.EARNDED = 'MDSUTA' AND a.PEREND between 20100101 and 20100331 ' group by a.EMPLOYEE, c.SSN, c.FIRSTNAME, c.LASTNAME Dim iEmpCount As Integer Dim sLastEmp As String Dim nEmpAmount As Double Dim cs0120 As AccpacView Me.lblStatus = "Querying database, please wait..." DoEvents a4wLinkRead.OpenView "CS0120", cs0120 Dim sSQL As String sSQL = "" sSQL = sSQL & " SELECT a.EMPLOYEE, c.SSN, c.FIRSTNAME, c.LASTNAME," sSQL = sSQL & " sum(taxearns) as grosswages," sSQL = sSQL & " sum(txearnceil) as ceilingwages," sSQL = sSQL & " sum(rextend) as taxes," sSQL = sSQL & " max(case when a.TRANSDATE between " & sMonthStart1 & " and " & sMonthEnd1 & " then 1 else 0 end) as week1" sSQL = sSQL & " ,max(case when a.TRANSDATE between " & sMonthStart2 & " and " & sMonthEnd2 & " then 1 else 0 end) as week2" sSQL = sSQL & " ,max(case when a.TRANSDATE between " & sMonthStart3 & " and " & sMonthEnd3 & " then 1 else 0 end) as week3" sSQL = sSQL & " from upchkh a" sSQL = sSQL & " inner join upchkd b on a.employee = b.employee and a.perend = b.perend and a.entryseq = b.entryseq " sSQL = sSQL & " inner join UPEMPL c on a.EMPLOYEE = c.EMPLOYEE" sSQL = sSQL & " where b.EARNDED = '" & Me.cmbTax & "' AND a.TRANSDATE between " & sDateFrom & " and " & sDateTo sSQL = sSQL & " group by a.EMPLOYEE, c.SSN, c.FIRSTNAME, c.LASTNAME order by a.EMPLOYEE" Dim sRecOut As String cs0120.Browse sSQL, True cs0120.InternalSet 256 Dim nTotalTax As Double Select Case Me.cmbTax    Case "MDSUTA"        Do While cs0120.Fetch            Me.lblStatus = cs0120.Fields("EMPLOYEE")            DoEvents            WriteMDLine cs0120.Fields("EMPLOYEE"), cs0120.Fields("grosswages"), cs0120.Fields("taxes"), nTotalWages, iEmpCount, sTaxID, nTotalTax        Loop    Case "VASUTA"        sRecOut = "RA"                                  'I   1   2 S RA        ; RA record literal        sRecOut = sRecOut + Left(sFedUICode, 9)         'I   3   9 L Transmitter.TrnEIN        sRecOut = sRecOut & Space(8)                    'I  12   8 L Transmitter.PIN        sRecOut = sRecOut & Space(9)                    'I  20   4 S 1812      ; Software Vendor Code        sRecOut = sRecOut & "0"                         'I  29   1 L Transmitter.Resub        sRecOut = sRecOut & Space(6)                    'I  30   6 L Transmitter.WFID        sRecOut = sRecOut & "99"                        'I  36   2 S 99        ; off-the-shelf Software        sRecOut = sRecOut & Left(UCase(CSComRead.Fields("CONAME")) & Space(100), 57)   ''I  38  57 L Transmitter.Name        sRecOut = sRecOut & Left(UCase(CSComRead.Fields("ADDR02")) & Space(100), 22)   'I 117  22 L Transmitter.Delivery        sRecOut = sRecOut & Left(UCase(CSComRead.Fields("ADDR01")) & Space(100), 22)   'I  95  22 L Transmitter.Location        sRecOut = sRecOut & Left(UCase(CSComRead.Fields("CITY")) & Space(100), 22)     'I 139  22 L Transmitter.City        sRecOut = sRecOut & Left(UCase(CSComRead.Fields("STATE")) & Space(100), 2)     'I 161   2 L Transmitter.State        sRecOut = sRecOut & Left(CSComRead.Fields("POSTAL") & Space(100), 5)    'I 163   5 L Transmitter.ZipCode        sRecOut = sRecOut & Mid(CSComRead.Fields("POSTAL") & Space(100), 6, 4)  'I 168   4 L Transmitter.ZipExt        sRecOut = sRecOut & Space(23)                                           'I 177  23 L Transmitter.FrnStatProv        sRecOut = sRecOut & Space(20)                                           'I 200  15 L Transmitter.FrnPostcode        sRecOut = sRecOut & Space(2)                                            'I 215   2 L Transmitter.CountryCode        sRecOut = sRecOut & Left(UCase(CSComRead.Fields("CONAME")) & Space(100), 57)   'I 217  57 L Transmitter.QName        sRecOut = sRecOut & Left(UCase(CSComRead.Fields("ADDR02")) & Space(100), 22)   'I 296  22 L Transmitter.QDelivery        sRecOut = sRecOut & Left(UCase(CSComRead.Fields("ADDR01")) & Space(100), 22)   'I 274  22 L Transmitter.QLocation        sRecOut = sRecOut & Left(UCase(CSComRead.Fields("CITY")) & Space(100), 22)     'I 318  22 L Transmitter.QCity        sRecOut = sRecOut & Left(CSComRead.Fields("STATE") & Space(100), 2)     'I 340   2 L Transmitter.QState        sRecOut = sRecOut & Left(CSComRead.Fields("POSTAL") & Space(100), 5)    'I 342   5 L Transmitter.QZipCode        sRecOut = sRecOut & Mid(CSComRead.Fields("POSTAL") & Space(100), 6, 4)  'I 347   4 L Transmitter.QZipExt        sRecOut = sRecOut & Space(23)                                           'I 356  23 L Transmitter.QFrnStatProv        sRecOut = sRecOut & Space(20)                                           'I 379  15 L Transmitter.QFrnPostcode        sRecOut = sRecOut & Space(2)                                            'I 394   2 L Transmitter.QCountryCode        sRecOut = sRecOut & Left(UCase(CSComRead.Fields("CONTACT")) & Space(100), 27)  'I 396  27 L Transmitter.ContactName        sRecOut = sRecOut & Left(CSComRead.Fields("PHONE") & Space(100), 15)    'I 423  15 L Transmitter.PhoneNo        sRecOut = sRecOut & Space(8)                                            'I 438   5 L Transmitter.PhoneExt        sRecOut = sRecOut & Left("RICK@WILBURNCOMPANY.COM" & Space(100), 43)    'I 446  40 L Transmitter.EMail        sRecOut = sRecOut & "4107893522"                                        'I 489  10 L Transmitter.Fax        sRecOut = sRecOut & "2"                                                 'I 499   1 L Transmitter.Noitfication        sRecOut = sRecOut & "L"                                                 'I 500   1 L Transmitter.Preparer        sRecOut = sRecOut & Space(12)        tsOut.WriteLine sRecOut 'G US Employer        sRecOut = "RE"                                  'I   1   2 S RE        ; RE record literal        sRecOut = sRecOut & Me.cmbYear                  'I   3   4 L Company.PayYear        sRecOut = sRecOut & Space(1)                    ';I   7   1 L Agent Indicator code        sRecOut = sRecOut + Left(sFedUICode, 9)         'I   8   9 L Company.EmpEIN        sRecOut = sRecOut & Space(9)                    ';I  17   9 L Agent for EIN        sRecOut = sRecOut & "0"                         'I  26   1 L Company.TerminBiz    ; Terminating bussiness"        sRecOut = sRecOut & Space(4)                    'I  27   4 L Company.EstabNo        sRecOut = sRecOut & Space(9)                    'I  31   9 L Company.OtherEIN        sRecOut = sRecOut & Left(UCase(CSComRead.Fields("CONAME")) & Space(100), 57)    'I  40  57 L Company.Name        sRecOut = sRecOut & Left(UCase(CSComRead.Fields("ADDR02")) & Space(100), 22)    'I  97  22 L Company.Location        sRecOut = sRecOut & Left(UCase(CSComRead.Fields("ADDR01")) & Space(100), 22)    'I 119  22 L Company.Delivery        sRecOut = sRecOut & Left(UCase(CSComRead.Fields("CITY")) & Space(100), 22)      'I 141  22 L Company.City        sRecOut = sRecOut & Left(UCase(CSComRead.Fields("STATE")), 2)                   'I 163   2 L Company.State        sRecOut = sRecOut & Left(UCase(CSComRead.Fields("POSTAL")), 5)                  'I 165   5 L Company.ZipCode        sRecOut = sRecOut & Space(4)                                                    'I 170   4 L Company.ZipExt        sRecOut = sRecOut & Space(23)                                                   'I 179  23 L Company.FrnStatProv        sRecOut = sRecOut & Space(15)                                                   'I 202  15 L Company.FrnPostcode        sRecOut = sRecOut & Space(7)                                                    'I 217   2 L Company.CountryCode        sRecOut = sRecOut & "R"                                                         'I 219   1 L Company.EmplType        sRecOut = sRecOut & Space(1)                                                    'I 220   1 L Company.TaxType       ;Tax Jurisdiction code        sRecOut = sRecOut & "0"                                                         'I 221   1 L Company.3rdPsick      ;3rd party sick        tsOut.WriteLine sRecOut '        '-------------------------------        ' Write the "E" record        sRecOut = "E"        sRecOut = sRecOut + Me.cmbYear        sRecOut = sRecOut + sFedUICode                  ' Federal Number        sRecOut = sRecOut + Space$(9)        sRecOut = sRecOut + Mid$(CSComRead.Fields("CONAME") + Space$(50), 1, 50)        sRecOut = sRecOut + Mid$(CSComRead.Fields("ADDR01") + Space$(40), 1, 40)        sRecOut = sRecOut + Mid$(CSComRead.Fields("City") + Space$(25), 1, 25)        sRecOut = sRecOut + Mid$(CSComRead.Fields("State") + Space$(10), 1, 10)        sRecOut = sRecOut + Space$(5)        sRecOut = sRecOut + Mid$(CSComRead.Fields("POSTAL") + Space$(5), 1, 5)        sRecOut = sRecOut + "S"                     ' Surname starts employee name record        sRecOut = sRecOut + Space$(1)        sRecOut = sRecOut + "01"                    ' Blocking factor        sRecOut = sRecOut + Space$(5)        sRecOut = sRecOut + "B"                     ' Tax type        sRecOut = sRecOut + Left(CSComRead.Fields("State"), 2)        sRecOut = sRecOut + Space$(5)        sRecOut = sRecOut + Mid$(sTaxID + Space$(20), 1, 20)        sRecOut = sRecOut + Space$(80)        ' icESA FORMAT, DON'T USE IT '        tsOut.WriteLine sRecOut        Do While cs0120.Fetch            Me.lblStatus = cs0120.Fields("EMPLOYEE")            DoEvents            WriteVALine cs0120, nTotalWages, iEmpCount, sTaxID        Loop        'Write the "T" total record        sRecOut = "RT"        sRecOut = sRecOut & Format(iEmpCount, "0000000") ' Pad with Zeros, remove decimal        sRecOut = sRecOut + Space$(253)        sRecOut = sRecOut + Format(nTotalWages * 100, String(13, "0"))  ' Pad with Zeros, remove decimal        sRecOut = sRecOut + Space$(1)        ' icESA FORMAT, DON'T USE IT        'tsOut.WriteLine sRecOut        tsOut.WriteLine "RT" & Space(510)        tsOut.WriteLine "RF" & Space(5) & Format(iEmpCount, "000000009") & Space(496) End Select tsOut.Close LogWrite "Number of employees: " & iEmpCount LogWrite "Total wages: " & Round(nTotalWages, 2) LogWrite "Total taxes: " & Round(nTotalTax, 2) MsgBox "File " & sTodayFile & " created", , Me.Caption CloseLogFile Unload Me Shell "Notepad " & sLogFile, vbNormalFocus Exit Sub BadStuff: HandleError Resume Next End Sub Function WriteMDLine(sEmpl As String, nWages As Double, nAmount As Double, nTotalWages As Double, iEmpCount As Integer, sTaxID As String, nTotalTax As Double) Dim sLine As String UPEmplRead.Cancel UPEmplRead.Browse "EMPLOYEE = """ & sEmpl & """", True UPEmplRead.Fetch sLine = sTaxID sLine = sLine & Right(Me.cmbYear, 2) & Me.cmbQuarter sLine = sLine & UPEmplRead.Fields("SSN") sLine = sLine & UCase(Left(UPEmplRead.Fields("FIRSTNAME"), 1)) sLine = sLine & UCase(Left(UPEmplRead.Fields("LASTNAME"), 3)) sLine = sLine & " " sLine = sLine & Format(nAmount * 100, "0000000") tsOut.WriteLine sLine nTotalTax = nTotalTax + nAmount nTotalWages = nTotalWages + nWages iEmpCount = iEmpCount + 1 End Function Function WriteVALineICESA(cs0120 As AccpacView, nTotalWages As Double, iEmpCount As Integer, sTaxID As String) Dim sLine As String UPEmplRead.Cancel UPEmplRead.Browse "EMPLOYEE = """ & cs0120.Fields("EMPLOYEE") & """", True UPEmplRead.Fetch sLine = "S" sLine = sLine & Left(UPEmplRead.Fields("SSN") & Space(9), 9) sLine = sLine + Left(UCase(NoSuffix(UPEmplRead.Fields("Lastname"))) & Space(20), 20) sLine = sLine + UCase(Left(UCase(UPEmplRead.Fields("Firstname")) & Space(12), 12)) sLine = sLine + UCase(Left(UPEmplRead.Fields("MIDDLENAME") & " ", 1)) sLine = sLine + Left(CSComRead.Fields("STATE") & "  ", 2) sLine = sLine + Space$(4) sLine = sLine & Format(cs0120.Fields("GROSSWAGES") * 100, String(14, "0")) sLine = sLine & Format(cs0120.Fields("GROSSWAGES") * 100, String(14, "0")) sLine = sLine & Format(0, String(14, "0")) sLine = sLine & Space(24) If nTotalWages 100 Then    sLine = sLine & "1 " Else    sLine = sLine & "2 " End If sLine = sLine & "UTAX" sLine = sLine & sTaxID sLine = sLine & Space(55) sLine = sLine & cs0120.Fields("WEEK1") sLine = sLine & cs0120.Fields("WEEK2") sLine = sLine & cs0120.Fields("WEEK3") Select Case Me.cmbQuarter    Case 1: sLine = sLine & "03" & Me.cmbYear    Case 2: sLine = sLine & "06" & Me.cmbYear    Case 3: sLine = sLine & "09" & Me.cmbYear    Case 4: sLine = sLine & "12" & Me.cmbYear End Select sLine = sLine & Space(55) tsOut.WriteLine sLine nTotalWages = nTotalWages + cs0120.Fields("GROSSWAGES") iEmpCount = iEmpCount + 1 End Function Function WriteVALine(cs0120 As AccpacView, nTotalWages As Double, iEmpCount As Integer, sTaxID As String) Dim sLine As String UPEmplRead.Cancel UPEmplRead.Browse "EMPLOYEE = """ & cs0120.Fields("EMPLOYEE") & """", True UPEmplRead.Fetch 'G US State sLine = "RS"                        'I   1   2 S RS        ; RS record literal sLine = sLine & "51"                'I   3   2 L EmpInfo.StateCode sLine = sLine & "B"                 'I   5   1 S B                     ; Taxing Entity Code sLine = sLine & Space(4) sLine = sLine & Left(UPEmplRead.Fields("SSN") & Space(9), 9)                            'I  10   9 L Employee.SSN sLine = sLine + UCase(Left(UCase(UPEmplRead.Fields("Firstname")) & Space(50), 15))      'I  19  15 L Employee.EmpFName sLine = sLine + UCase(Left(UPEmplRead.Fields("MIDDLENAME") & Space(50), 15))            'I  34  15 L Employee.EmpMName sLine = sLine + Left(UCase(NoSuffix(UPEmplRead.Fields("Lastname"))) & Space(20), 20)    'I  49  20 L Employee.EmpLName sLine = sLine & Space(4) sLine = sLine + Left(UCase(NoSuffix(UPEmplRead.Fields("ADDRESS1"))) & Space(22), 22)    ';I  73  22 L Employee.AddrLocation sLine = sLine + Left(UCase(NoSuffix(UPEmplRead.Fields("ADDRESS2"))) & Space(22), 22)    ';I  95  22 L Employee.AddrDelivery sLine = sLine + Left(UCase(NoSuffix(UPEmplRead.Fields("CITY"))) & Space(22), 22)        'I 117  22 L Employee.City sLine = sLine + Left(UCase(NoSuffix(UPEmplRead.Fields("STATE"))), 2)                    'I 139   2 L Employee.State sLine = sLine + Left(UCase(NoSuffix(UPEmplRead.Fields("ZIP"))), 5)                      'I 141   5 L Employee.ZipCode sLine = sLine + Space(4)                                                                'I 146   4 L Employee.ZipExt sLine = sLine + Space(23)                                                               ';I 155  23 L Employee.FrnStatProv sLine = sLine + Space(15)                                                               ';I 178  15 L Employee.FrnPostCode sLine = sLine + Space(9)                                                                ';I 193   2 L Employee.CountryCode Select Case Me.cmbQuarter    Case 1: sLine = sLine & "03" & Me.cmbYear    Case 2: sLine = sLine & "06" & Me.cmbYear    Case 3: sLine = sLine & "09" & Me.cmbYear    Case 4: sLine = sLine & "12" & Me.cmbYear End Select sLine = sLine & Format(cs0120.Fields("GROSSWAGES") * 100, String(11, "0"))              'I 203  11 Z e.State.UIWAG sLine = sLine + Space(34)                                                                ';I 214  11 Z e.State.UITWG sLine = sLine + String(10, "0")                                                         'I 248  10 S 0000000000            ; Leading zeros for StateEIN sLine = sLine + sTaxID                                                                  'I 258  10 L TaxInfo.StateEIN sLine = sLine + Space(40)                                                               'I 308   1 S B                     ; Tax Type Code sLine = sLine + "B"                                                                    'I 308   1 S B                     ; Tax Type Code sLine = sLine + Space(204) tsOut.WriteLine sLine nTotalWages = nTotalWages + cs0120.Fields("GROSSWAGES") iEmpCount = iEmpCount + 1 End Function Function WriteVALine(cs0120 As AccpacView, nTotalWages As Double, iEmpCount As Integer, sTaxID As String) Dim sLine As String UPEmplRead.Cancel UPEmplRead.Browse "EMPLOYEE = """ & cs0120.Fields("EMPLOYEE") & """", True UPEmplRead.Fetch 'G US State sLine = "RS"                        'I   1   2 S RS        ; RS record literal sLine = sLine & "51"                'I   3   2 L EmpInfo.StateCode sLine = sLine & "B"                 'I   5   1 S B                     ; Taxing Entity Code sLine = sLine & Space(4) sLine = sLine & Left(UPEmplRead.Fields("SSN") & Space(9), 9)                            'I  10   9 L Employee.SSN sLine = sLine + UCase(Left(UCase(UPEmplRead.Fields("Firstname")) & Space(50), 15))      'I  19  15 L Employee.EmpFName sLine = sLine + UCase(Left(UPEmplRead.Fields("MIDDLENAME") & Space(50), 15))            'I  34  15 L Employee.EmpMName sLine = sLine + Left(UCase(NoSuffix(UPEmplRead.Fields("Lastname"))) & Space(20), 20)    'I  49  20 L Employee.EmpLName sLine = sLine & Space(4) sLine = sLine + Left(UCase(NoSuffix(UPEmplRead.Fields("ADDRESS1"))) & Space(22), 22)    ';I  73  22 L Employee.AddrLocation sLine = sLine + Left(UCase(NoSuffix(UPEmplRead.Fields("ADDRESS2"))) & Space(22), 22)    ';I  95  22 L Employee.AddrDelivery sLine = sLine + Left(UCase(NoSuffix(UPEmplRead.Fields("CITY"))) & Space(22), 22)        'I 117  22 L Employee.City sLine = sLine + Left(UCase(NoSuffix(UPEmplRead.Fields("STATE"))), 2)                    'I 139   2 L Employee.State sLine = sLine + Left(UCase(NoSuffix(UPEmplRead.Fields("ZIP"))), 5)                      'I 141   5 L Employee.ZipCode sLine = sLine + Space(4)                                                                'I 146   4 L Employee.ZipExt sLine = sLine + Space(23)                                                               ';I 155  23 L Employee.FrnStatProv sLine = sLine + Space(15)                                                               ';I 178  15 L Employee.FrnPostCode sLine = sLine + Space(9)                                                                ';I 193   2 L Employee.CountryCode Select Case Me.cmbQuarter    Case 1: sLine = sLine & "03" & Me.cmbYear    Case 2: sLine = sLine & "06" & Me.cmbYear    Case 3: sLine = sLine & "09" & Me.cmbYear    Case 4: sLine = sLine & "12" & Me.cmbYear End Select sLine = sLine & Format(cs0120.Fields("GROSSWAGES") * 100, String(11, "0"))              'I 203  11 Z e.State.UIWAG sLine = sLine + Space(34)                                                                ';I 214  11 Z e.State.UITWG sLine = sLine + String(10, "0")                                                         'I 248  10 S 0000000000            ; Leading zeros for StateEIN sLine = sLine + sTaxID                                                                  'I 258  10 L TaxInfo.StateEIN sLine = sLine + Space(40)                                                               'I 308   1 S B                     ; Tax Type Code sLine = sLine + "B"                                                                    'I 308   1 S B                     ; Tax Type Code sLine = sLine + Space(204) tsOut.WriteLine sLine nTotalWages = nTotalWages + cs0120.Fields("GROSSWAGES") iEmpCount = iEmpCount + 1 End Function

Thanks. I think it's a simple workaround.

Dear Regi, Ideally, your Sage Partner should be able to assist you with this. Alternatively, we can assist you in building the integration. You can contact us off the forum at accpac@greytrix.com where we can discuss the integration in detail. Thanks, Dinesh

Hi Vicente, I ran the command: c:\Windows\Microsoft.NET\Framework\v4.0.30319 REGASM /register "C:\Program Files (x86)\Sage\Sage Accpac\CP70A\SplitCheckPdf.dll Microsoft .NET Framework Assembly Registration Utility version 4.0.30319.18408 for Microsoft .NET Framework versioon 4.0.30319.18408 Copyright (C) Microsoft Corporation. All rights reserved. Types registered succesfully This was run on both workstations that use Payroll. When they ran Payroll again they still receive the same ERROR: Error exporting checks as PDF: 429 - ActiveX component can't create object. Is it something to do with the command above? What is an alternative solution for them?

You are missing the "/codebase". Refer to the thread marked as suggested answer. Try this: REGASM "C:\Program Files (x86)\Sage\Sage Accpac\CP70A\SplitCheckPdf.dll" /codebase or REGASM /register "C:\Program Files (x86)\Sage\Sage Accpac\CP70A\SplitCheckPdf.dll" /codebase If you still can't get it to work, call Sage 300 support.

Thanks Vicente I will try the command again with the "codebase"

Hi, We have a client using Accpac 54 (SP3) on Windows server 2003 SP2 (64-bit). After logging onto Accpac (the users RDP to the terminal server), if they click on any Accpac icon they get the following error "Error occurred when activating ACCPAC Data Source" We've tried the following: We’ve tried the following: Update msxml Checked the permissions (we have full permissions) Ran regacc as administrator   Checked the environment variables – fine Checked the registry - fine Re-installed System Manager Recreated the System DSN (32 & 64 bit mode)   I'm logged in as the domain administrator that also had local administrator rights. I know it's not supported anymore, but any more suggestions would be appreciated. thanks!