Get New UD01 Record - Vista 8.03.409

Thanks Jose, will give it a shot.




________________________________
From: Jose Gomez <jose@...>
To: Vantage <vantage@yahoogroups.com>
Sent: Tuesday, May 21, 2013 8:31 PM
Subject: Re: [Vantage] Re: Get New UD01 Record - Vista 8.03.409


You can use Reflection to get to the Protected Parent View


*Jose C Gomez*
*Software Engineer*
*
*
*
*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 Tue, May 21, 2013 at 5:33 PM, tkoch77 <tkoch77@...> wrote:

> **
>
>
> Reposting the parentView question just in case some of you missed it being
> at Insights.
>
> Thanks!
>
> -Ted
>
>
> --- In vantage@yahoogroups.com, Ted Koch <tkoch77@...> wrote:
> >
> > Almost have this working, the only part that is still not 100% is
> Deleting a record.
> >
> > I am getting a compile error indicating:
> >Â Error: BC30390 - line 208 (426) -
> 'Epicor.Mfg.UI.FrameWork.EpiDataView.parentView' is not accessible in this
> context because it is 'Protected'.
> >
> > Does anyone know the equivalent of EpiDataView.parentView in Vista?
> Looking in the Object Explorer under EpiDataView properties, parentView is
> not there.
> >
> > Thanks again,
> >
> > -Ted
> >
> >
> >
> > ________________________________
> > From: tkoch77 <tkoch77@...>
>
> > To: vantage@yahoogroups.com
> > Sent: Wednesday, May 15, 2013 4:20 PM
> > Subject: [Vantage] Get New UD01 Record - Vista 8.03.409
> >
> >
> > Maybe someone can shed some light on what I am doing wrong. I am trying
> to add UD01 as a child to the customer table and use a datagrid to
> add/delete/edit UD01 records associated to a customer. So far I have
> created a Multi Foreign Key View to bring in UD01 as a view. I am now
> trying to code in creating a new UD01 record. This is what I have on a
> button click to test, but it does nothing. Am I missing something? This is
> converted from what the E9 wizard produces.
> >
> >Â Â Â Â Private Sub GetNewUD01Record()
> >Â Â Â Â 'Dim parentViewRow As DataRow = _edvCustomer.CurrentDataRow
> >Â Â Â Â 'Check for existence of Parent Row.
> >Â Â Â Â 'If (parentViewRow Is Nothing) Then
> >Â Â Â Â If _edvCustomer.Row = -1 Then
> >Â Â Â Â Â Â Exit Sub
> >Â Â Â Â End If
> >Â Â Â Â 'If _ud01Adapter.GetaNewUD01 Then
> >Â Â Â Â Â Â Dim custnum As String =
> _edvCustomer.dataView(_edvCustomer.Row)("CustNum").ToString()
> 'parentViewRow("CustNum").ToString
> >
> >Â Â Â Â Â Â _ud01Adapter.GetaNewUD01()
> >Â Â Â Â Â Â ' Get unique row count id for Key5
> >Â Â Â Â Â Â Dim rowCount As Integer =
> _ud01Adapter.UD01Data.UD01.Rows.Count
> >Â Â Â Â Â Â Dim lineNum As Integer = rowCount
> >Â Â Â Â Â Â Dim goodIndex As Boolean = false
> >Â Â Â Â Â Â While (goodIndex = false)
> >Â Â Â Â Â Â Â Â ' Check to see if index exists
> >Â Â Â Â Â Â Â Â Dim matchingRows() As DataRow =
> _ud01Adapter.UD01Data.UD01.Select("Key5 = '" & lineNum.ToString & "'")
> >Â Â Â Â Â Â Â Â If (matchingRows.Length > 0) Then
> >Â Â Â Â Â Â Â Â Â Â lineNum = (lineNum + 1)
> >Â Â Â Â Â Â Â Â Else
> >Â Â Â Â Â Â Â Â Â Â goodIndex = true
> >Â Â Â Â Â Â Â Â End If
> >Â Â Â Â Â Â End While
> >
> >Â Â Â Â Â Â ' Set initial UD Key values
> >Â Â Â Â Â Â Dim editRow As DataRow =
> _ud01Adapter.UD01Data.UD01.Rows((rowCount - 1))
> >Â Â Â Â Â Â editRow.BeginEdit
> >Â Â Â Â Â Â editRow("Key1") = custnum
> >Â Â Â Â Â Â editRow("Key2") = String.Empty
> >Â Â Â Â Â Â editRow("Key3") = String.Empty
> >Â Â Â Â Â Â editRow("Key4") = String.Empty
> >Â Â Â Â Â Â editRow("Key5") = lineNum.ToString
> >Â Â Â Â Â Â editRow.EndEdit
> >
> >Â Â Â Â Â Â ' Notify that data was updated.
> >Â Â Â Â Â Â _edvUD01.Notify(New EpiNotifyArgs(oTrans, (rowCount - 1),
> _edvUD01.Column))
> >Â Â Â Â 'End If
> >Â Â End Sub
> >
> > Thanks,
> >
> > -Ted
> >
> >
> >
> > ------------------------------------
> >
> > 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/.
> > (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]
> >
>

>


[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/.
(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]
Maybe someone can shed some light on what I am doing wrong. I am trying to add UD01 as a child to the customer table and use a datagrid to add/delete/edit UD01 records associated to a customer. So far I have created a Multi Foreign Key View to bring in UD01 as a view. I am now trying to code in creating a new UD01 record. This is what I have on a button click to test, but it does nothing. Am I missing something? This is converted from what the E9 wizard produces.

Private Sub GetNewUD01Record()
'Dim parentViewRow As DataRow = _edvCustomer.CurrentDataRow
'Check for existence of Parent Row.
'If (parentViewRow Is Nothing) Then
If _edvCustomer.Row = -1 Then
Exit Sub
End If
'If _ud01Adapter.GetaNewUD01 Then
Dim custnum As String = _edvCustomer.dataView(_edvCustomer.Row)("CustNum").ToString() 'parentViewRow("CustNum").ToString

_ud01Adapter.GetaNewUD01()
' Get unique row count id for Key5
Dim rowCount As Integer = _ud01Adapter.UD01Data.UD01.Rows.Count
Dim lineNum As Integer = rowCount
Dim goodIndex As Boolean = false
While (goodIndex = false)
' Check to see if index exists
Dim matchingRows() As DataRow = _ud01Adapter.UD01Data.UD01.Select("Key5 = '" & lineNum.ToString & "'")
If (matchingRows.Length > 0) Then
lineNum = (lineNum + 1)
Else
goodIndex = true
End If
End While

' Set initial UD Key values
Dim editRow As DataRow = _ud01Adapter.UD01Data.UD01.Rows((rowCount - 1))
editRow.BeginEdit
editRow("Key1") = custnum
editRow("Key2") = String.Empty
editRow("Key3") = String.Empty
editRow("Key4") = String.Empty
editRow("Key5") = lineNum.ToString
editRow.EndEdit

' Notify that data was updated.
_edvUD01.Notify(New EpiNotifyArgs(oTrans, (rowCount - 1), _edvUD01.Column))
'End If
End Sub

Thanks,

-Ted
Almost have this working, the only part that is still not 100% is Deleting a record.

I am getting a compile error indicating:
 Error: BC30390 - line 208 (426) - 'Epicor.Mfg.UI.FrameWork.EpiDataView.parentView' is not accessible in this context because it is 'Protected'.

Does anyone know the equivalent of EpiDataView.parentView in Vista? Looking in the Object Explorer under EpiDataView properties, parentView is not there.

Thanks again,

-Ted



________________________________
From: tkoch77 <tkoch77@...>
To: vantage@yahoogroups.com
Sent: Wednesday, May 15, 2013 4:20 PM
Subject: [Vantage] Get New UD01 Record - Vista 8.03.409


Maybe someone can shed some light on what I am doing wrong. I am trying to add UD01 as a child to the customer table and use a datagrid to add/delete/edit UD01 records associated to a customer. So far I have created a Multi Foreign Key View to bring in UD01 as a view. I am now trying to code in creating a new UD01 record. This is what I have on a button click to test, but it does nothing. Am I missing something? This is converted from what the E9 wizard produces.

    Private Sub GetNewUD01Record()
    'Dim parentViewRow As DataRow = _edvCustomer.CurrentDataRow
    'Check for existence of Parent Row.
    'If (parentViewRow Is Nothing) Then
    If _edvCustomer.Row = -1 Then
      Exit Sub
    End If
    'If _ud01Adapter.GetaNewUD01 Then
      Dim custnum As String = _edvCustomer.dataView(_edvCustomer.Row)("CustNum").ToString() 'parentViewRow("CustNum").ToString
     Â
      _ud01Adapter.GetaNewUD01()
      ' Get unique row count id for Key5
      Dim rowCount As Integer = _ud01Adapter.UD01Data.UD01.Rows.Count
      Dim lineNum As Integer = rowCount
      Dim goodIndex As Boolean = false
      While (goodIndex = false)
        ' Check to see if index exists
        Dim matchingRows() As DataRow = _ud01Adapter.UD01Data.UD01.Select("Key5 = '" & lineNum.ToString & "'")
        If (matchingRows.Length > 0) Then
          lineNum = (lineNum + 1)
        Else
          goodIndex = true
        End If
      End While
     Â
      ' Set initial UD Key values
      Dim editRow As DataRow = _ud01Adapter.UD01Data.UD01.Rows((rowCount - 1))
      editRow.BeginEdit
      editRow("Key1") = custnum
      editRow("Key2") = String.Empty
      editRow("Key3") = String.Empty
      editRow("Key4") = String.Empty
      editRow("Key5") = lineNum.ToString
      editRow.EndEdit
     Â
      ' Notify that data was updated.
      _edvUD01.Notify(New EpiNotifyArgs(oTrans, (rowCount - 1), _edvUD01.Column))
    'End If
  End Sub

Thanks,

-Ted



------------------------------------

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/.
(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]
Reposting the parentView question just in case some of you missed it being at Insights.

Thanks!

-Ted

--- In vantage@yahoogroups.com, Ted Koch <tkoch77@...> wrote:
>
> Almost have this working, the only part that is still not 100% is Deleting a record.
>
> I am getting a compile error indicating:
> Â Error: BC30390 - line 208 (426) - 'Epicor.Mfg.UI.FrameWork.EpiDataView.parentView' is not accessible in this context because it is 'Protected'.
>
> Does anyone know the equivalent of EpiDataView.parentView in Vista? Looking in the Object Explorer under EpiDataView properties, parentView is not there.
>
> Thanks again,
>
> -Ted
>
>
>
> ________________________________
> From: tkoch77 <tkoch77@...>
> To: vantage@yahoogroups.com
> Sent: Wednesday, May 15, 2013 4:20 PM
> Subject: [Vantage] Get New UD01 Record - Vista 8.03.409
>
>
> Maybe someone can shed some light on what I am doing wrong. I am trying to add UD01 as a child to the customer table and use a datagrid to add/delete/edit UD01 records associated to a customer. So far I have created a Multi Foreign Key View to bring in UD01 as a view. I am now trying to code in creating a new UD01 record. This is what I have on a button click to test, but it does nothing. Am I missing something? This is converted from what the E9 wizard produces.
>
> Â Â Â Â Private Sub GetNewUD01Record()
> Â Â Â Â 'Dim parentViewRow As DataRow = _edvCustomer.CurrentDataRow
> Â Â Â Â 'Check for existence of Parent Row.
> Â Â Â Â 'If (parentViewRow Is Nothing) Then
> Â Â Â Â If _edvCustomer.Row = -1 Then
> Â Â Â Â Â Â Exit Sub
> Â Â Â Â End If
> Â Â Â Â 'If _ud01Adapter.GetaNewUD01 Then
> Â Â Â Â Â Â Dim custnum As String = _edvCustomer.dataView(_edvCustomer.Row)("CustNum").ToString() 'parentViewRow("CustNum").ToString
> Â Â Â Â Â Â
> Â Â Â Â Â Â _ud01Adapter.GetaNewUD01()
> Â Â Â Â Â Â ' Get unique row count id for Key5
> Â Â Â Â Â Â Dim rowCount As Integer = _ud01Adapter.UD01Data.UD01.Rows.Count
> Â Â Â Â Â Â Dim lineNum As Integer = rowCount
> Â Â Â Â Â Â Dim goodIndex As Boolean = false
> Â Â Â Â Â Â While (goodIndex = false)
> Â Â Â Â Â Â Â Â ' Check to see if index exists
> Â Â Â Â Â Â Â Â Dim matchingRows() As DataRow = _ud01Adapter.UD01Data.UD01.Select("Key5 = '" & lineNum.ToString & "'")
> Â Â Â Â Â Â Â Â If (matchingRows.Length > 0) Then
> Â Â Â Â Â Â Â Â Â Â lineNum = (lineNum + 1)
> Â Â Â Â Â Â Â Â Else
> Â Â Â Â Â Â Â Â Â Â goodIndex = true
> Â Â Â Â Â Â Â Â End If
> Â Â Â Â Â Â End While
> Â Â Â Â Â Â
> Â Â Â Â Â Â ' Set initial UD Key values
> Â Â Â Â Â Â Dim editRow As DataRow = _ud01Adapter.UD01Data.UD01.Rows((rowCount - 1))
> Â Â Â Â Â Â editRow.BeginEdit
> Â Â Â Â Â Â editRow("Key1") = custnum
> Â Â Â Â Â Â editRow("Key2") = String.Empty
> Â Â Â Â Â Â editRow("Key3") = String.Empty
> Â Â Â Â Â Â editRow("Key4") = String.Empty
> Â Â Â Â Â Â editRow("Key5") = lineNum.ToString
> Â Â Â Â Â Â editRow.EndEdit
> Â Â Â Â Â Â
> Â Â Â Â Â Â ' Notify that data was updated.
> Â Â Â Â Â Â _edvUD01.Notify(New EpiNotifyArgs(oTrans, (rowCount - 1), _edvUD01.Column))
> Â Â Â Â 'End If
> Â Â End Sub
>
> Thanks,
>
> -Ted
>
>
>
> ------------------------------------
>
> 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/.
> (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]
>
You can use Reflection to get to the Protected Parent View


*Jose C Gomez*
*Software Engineer*
*
*
*
*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 Tue, May 21, 2013 at 5:33 PM, tkoch77 <tkoch77@...> wrote:

> **
>
>
> Reposting the parentView question just in case some of you missed it being
> at Insights.
>
> Thanks!
>
> -Ted
>
>
> --- In vantage@yahoogroups.com, Ted Koch <tkoch77@...> wrote:
> >
> > Almost have this working, the only part that is still not 100% is
> Deleting a record.
> >
> > I am getting a compile error indicating:
> > Error: BC30390 - line 208 (426) -
> 'Epicor.Mfg.UI.FrameWork.EpiDataView.parentView' is not accessible in this
> context because it is 'Protected'.
> >
> > Does anyone know the equivalent of EpiDataView.parentView in Vista?
> Looking in the Object Explorer under EpiDataView properties, parentView is
> not there.
> >
> > Thanks again,
> >
> > -Ted
> >
> >
> >
> > ________________________________
> > From: tkoch77 <tkoch77@...>
>
> > To: vantage@yahoogroups.com
> > Sent: Wednesday, May 15, 2013 4:20 PM
> > Subject: [Vantage] Get New UD01 Record - Vista 8.03.409
> >
> >
> > Maybe someone can shed some light on what I am doing wrong. I am trying
> to add UD01 as a child to the customer table and use a datagrid to
> add/delete/edit UD01 records associated to a customer. So far I have
> created a Multi Foreign Key View to bring in UD01 as a view. I am now
> trying to code in creating a new UD01 record. This is what I have on a
> button click to test, but it does nothing. Am I missing something? This is
> converted from what the E9 wizard produces.
> >
> > Private Sub GetNewUD01Record()
> > 'Dim parentViewRow As DataRow = _edvCustomer.CurrentDataRow
> > 'Check for existence of Parent Row.
> > 'If (parentViewRow Is Nothing) Then
> > If _edvCustomer.Row = -1 Then
> > Exit Sub
> > End If
> > 'If _ud01Adapter.GetaNewUD01 Then
> > Dim custnum As String =
> _edvCustomer.dataView(_edvCustomer.Row)("CustNum").ToString()
> 'parentViewRow("CustNum").ToString
> >
> > _ud01Adapter.GetaNewUD01()
> > ' Get unique row count id for Key5
> > Dim rowCount As Integer =
> _ud01Adapter.UD01Data.UD01.Rows.Count
> > Dim lineNum As Integer = rowCount
> > Dim goodIndex As Boolean = false
> > While (goodIndex = false)
> > ' Check to see if index exists
> > Dim matchingRows() As DataRow =
> _ud01Adapter.UD01Data.UD01.Select("Key5 = '" & lineNum.ToString & "'")
> > If (matchingRows.Length > 0) Then
> > lineNum = (lineNum + 1)
> > Else
> > goodIndex = true
> > End If
> > End While
> >
> > ' Set initial UD Key values
> > Dim editRow As DataRow =
> _ud01Adapter.UD01Data.UD01.Rows((rowCount - 1))
> > editRow.BeginEdit
> > editRow("Key1") = custnum
> > editRow("Key2") = String.Empty
> > editRow("Key3") = String.Empty
> > editRow("Key4") = String.Empty
> > editRow("Key5") = lineNum.ToString
> > editRow.EndEdit
> >
> > ' Notify that data was updated.
> > _edvUD01.Notify(New EpiNotifyArgs(oTrans, (rowCount - 1),
> _edvUD01.Column))
> > 'End If
> > End Sub
> >
> > Thanks,
> >
> > -Ted
> >
> >
> >
> > ------------------------------------
> >
> > 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/.
> > (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]
> >
>
>
>


[Non-text portions of this message have been removed]