There's an example of accessing the File Attachment BO in the groups file section here:
http://tech.groups.yahoo.com/group/vantage/files/C%23/
Check the UpdateFileLocation project. It's C# but you'll get the idea.
Mark W.
http://tech.groups.yahoo.com/group/vantage/files/C%23/
Check the UpdateFileLocation project. It's C# but you'll get the idea.
Mark W.
--- In vantage@yahoogroups.com, Ted Koch <tkoch77@...> wrote:
>
> This compiles for me but when I run it to test I get an error at coAdapter.CompanyData.Company.Rows(0).BeginEdit(). It says "Unable to cast object of type 'Epicor.Mfg.Core.Session' to type 'Epicor.Mfg.UI.FrameWork.ILaunch'. I think the problem is with the sender at coAdapter = New CompanyAdapter(Sender as Object)
>
>
> Â Â Â Â Â Â Â Â Â Â Â Using epiSession As New Session("manager", "manager", "AppServerDC://App01:9431", Session.LicenseType.Default)
> Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â epiSession.CompanyID = "100"
> Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Dim coAdapter As CompanyAdapter
> Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â coAdapter = New CompanyAdapter(epiSession)
>
> Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â 'Dim compAd As New CompanyAdapter(epiSession.ConnectionPool)
>
> Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â coAdapter.CompanyData.Company.Rows(0).BeginEdit()
> Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â coAdapter.CompanyData.Company.Rows(0)("Number10") += 1
> Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â coAdapter.CompanyData.Company.Rows(0).EndEdit()
> Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â coAdapter.Update()
> Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â coAdapter.Dispose()
>
> Â Â Â Â Â Â Â Â Â Â Â End Using
>
>
> ________________________________
> From: Jose Gomez <jose@...>
> To: vantage@yahoogroups.com
> Sent: Wednesday, December 21, 2011 9:30 AM
> Subject: Re: [Vantage] Update Company field outside of Epicor
>
> Bring In epicor.Mfg.BO.Company.dll and Epicor.Mfg.IF.ICompany.dll
>
> Then you need to connect to Epicor using a session so you'll need
> Epicor.Mfg.Core.Session.dll and Epicor.Mfg.Core.BLConnectionPool.dll
>
> you need to open a session to epicor such as
>
> Session _session = new Session(username,powd,server:port,Licence);
> then instanciate your Company such as
> Company co = new Company(_session.ConnectionPool)
>
> then you can do
>
> CompanyDataSet cds = _co.GetbyID("YOURCO");
>
> Hope this helps. Please note that I am rushed and although the above is
> close, it is NOT the actual syntax.
>
> *Jose C Gomez*
> *Software Engineer*
> *
> *
> *checkout my new blog <http://www.usdoingstuff.com> *
> *
> *T: 904.469.1524 mobile
> E: jose@...
> http://www.josecgomez.com
> <http://www.linkedin.com/in/josecgomez>Â <http://www.facebook.com/josegomez>
> Â <http://www.google.com/profiles/jose.gomez> <http://www.twitter.com/joc85>
> Â <http://www.josecgomez.com/professional-resume/>
> <http://www.josecgomez.com/feed/>
> Â <http://www.usdoingstuff.com>
>
> *Quis custodiet ipsos custodes?*
>
>
>
> On Wed, Dec 21, 2011 at 9:17 AM, tkoch77 <tkoch77@...> wrote:
>
> > **
> >
> >
> > I am trying to replicate what this code does outside of epicor throught
> > .NET. I am unsure how to access the CompanyAdapter, what do you need to
> > reference to give access to the adapters?
> >
> > Thanks,
> >
> > Ted
> >
> > Dim companyAdapter As CompanyAdapter = New CompanyAdapter(ProjectEntryForm)
> > companyAdapter.BOConnect()
> > Dim company As String = ProjectEntryForm.Session.CompanyID
> > Dim found As Boolean = companyAdapter.GetByID(company)
> > Dim todayDate As String = GetNetRemoteTODyr("\\tait-app01")
> > Try
> > if (found) then
> > Dim Date1 As String =
> > companyAdapter.CompanyData.Company.Rows(0)("Character01").ToString()
> >
> > If Date1 <> todayDate Then
> > companyAdapter.CompanyData.Company.Rows(0)("Number05") = 0
> > End If
> > nextKey = companyAdapter.CompanyData.Company.Rows(0)("Number05").toString()
> > companyAdapter.CompanyData.Company.Rows(0).BeginEdit()
> > companyAdapter.CompanyData.Company.Rows(0)("Number05") += 1
> > companyAdapter.CompanyData.Company.Rows(0).EndEdit()
> > companyAdapter.Update()
> > companyAdapter.Dispose()
> > end if
> > Catch ex As exception
> >
> > MessageBox.Show(ex.Message,"Error",MessageBoxButtons.Ok,MessageBoxIcon.Exclamation)
> > End Try
> >
> >Â
> >
>
>
> [Non-text portions of this message have been removed]
>
>
>
> ------------------------------------
>
> Useful links for the Yahoo!Groups Vantage Board are: ( Note:Â You must have already linked your email address to a yahoo id to enable access. )
> (1) To access the Files Section of our Yahoo!Group for Report Builder and Crystal Reports and other 'goodies', please goto: http://groups.yahoo.com/group/vantage/files/.%c2%a0
> (2) To search through old msg's goto: http://groups.yahoo.com/group/vantage/messages
> (3) To view links to Vendors that provide Vantage services goto: http://groups.yahoo.com/group/vantage/linksYahoo! Groups Links
>
>
>
> [Non-text portions of this message have been removed]
>