composing views

I am trying to compose the views using the .NET library in VBA but having issues as I believe it is just a syntax issue, which I can't figure this part out

          ' TODO: To increase efficiency, comment out any unused DB links.
            Dim mDBLinkCmpRW As ACCPAC_Advantage.DBLink ' accpaccomapi.Accpacdblink
            Set mDBLinkCmpRW = mSession.OpenDBLink(DBLinkType_Company, DBLinkFlags_ReadWrite) ' OpenDBLink(DBLINK_COMPANY, DBLINK_FLG_READWRITE)
       
       
            Dim GLPOST2 As ACCPAC_Advantage.View
            Dim GLPOST2Fields As ACCPAC_Advantage.ViewFields
            Set GLPOST2 = mDBLinkCmpRW.OpenView("GL0030")
            Set GLPOST2Fields = GLPOST2.Fields
           
           
            Dim GLBATCH3batch As ACCPAC_Advantage.View
            Dim GLBATCH3batchFields As ACCPAC_Advantage.ViewFields
            Set GLBATCH3batch = mDBLinkCmpRW.OpenView("GL0008")
            Set GLBATCH3batchFields = GLBATCH3batch.Fields
           
            Dim GLBATCH3header As ACCPAC_Advantage.View
            Dim GLBATCH3headerFields As ACCPAC_Advantage.ViewFields
            Set GLBATCH3header = mDBLinkCmpRW.OpenView("GL0006")
            Set GLBATCH3headerFields = GLBATCH3header.Fields
           
            Dim GLBATCH3detail1 As ACCPAC_Advantage.View
            Dim GLBATCH3detail1Fields As ACCPAC_Advantage.ViewFields
            Set glbatch3detail = mDBLinkCmpRW.OpenView("GL0010")
            Set GLBATCH3detail1Fields = GLBATCH3detail1.Fields
           
            Dim GLBATCH3detail2 As ACCPAC_Advantage.View
            Dim GLBATCH3detail2Fields As ACCPAC_Advantage.ViewFields
            Set GLBATCH3detail2 = mDBLinkCmpRW.OpenView("GL0402")
            Set GLBATCH3detail2Fields = GLBATCH3detail2.Fields
           
            GLBATCH3batch.Compose GLBATCH3header    <-------- error occurs here.

perhaps I am not getting I but I thought I don't need to use the COMAPI for this to work in VBA.

Parents
  • 0

    Here's an example of IC Adjustments:

            fDBLink.OpenView("IC0120", Header)
            fDBLink.OpenView("IC0110", Detail)
            fDBLink.OpenView("IC0125", HeaderOF)
            fDBLink.OpenView("IC0115", DetailOF)
            fDBLink.OpenView("IC0113", DetailLot)
            fDBLink.OpenView("IC0117", DetailSerial)

            Header.Compose(New Object() {Detail, HeaderOF})
            Detail.Compose(New Object() {Header, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, DetailOF, DetailSerial, DetailLot})
            HeaderOF.Compose(New Object() {Header})
            DetailOF.Compose(New Object() {Detail})
            DetailSerial.Compose(New Object() {Detail})
            DetailLot.Compose(New Object() {Detail})

  • 0 in reply to Django

    is this in c#?  I am writing in VBA as I will be pulling data from my Excel file?  

  • 0 in reply to sccheng888

    Oh - I saw .Net in the top of your post and though you were having issues there.

    Just reference the COMApi in your Excel macro and use the recorded VBA code.  Introducting the .Net interface  is unnecessary.

Reply Children