Help on data to text field

Yahoo Archive
1
thanks again - I've tried both options but keep getting the JIT Errors (Just In Time)

Private Sub IssueReturn_AfterFieldChange(ByVal sender As object, ByVal args As DataColumnChangeEventArgs) Handles IssueReturn_Column.ColumnChanged
'// ** Argument Properties and Uses **
'// args.Row("[FieldName]")
'// args.Column, args.ProposedValue, args.Row
'
'Add Event Handler Code
'
Select Case args.Column.ColumnName

Case "LotNum"
Dim partNum As String = args.Row("PartNum")
Dim lotNum As String = args.row("lotnum")
Dim adppartbin As PartBinSearchAdapter = New PartBinSearchAdapter(IssueMaterialForm)
adppartbin.BOConnect()

Dim varpartbin As Epicor.Mfg.BO.PartBinSearchDataSet = adppartbin.GetPartBinByLot(partNum,lotNum)

dim tempvar as EpiNumericEditor = adppartbin.PartBinSearchData.tables("partbin").rows(0)("onhandqty")

dim ohq as EpiNumericEditor = Tempvar

ohq=CType(csm.GetNativeControlReference("c1a938ad-5cce-49a0-8c6e-f8c4df83eb91"),EpiNumericEditor)


'//Dim [edvVarName] As EpiDataView = CType(oTrans.EpiDataViews("IM"), EpiDataView)
'//[edvVarName].dataView([edvVarName].Row)("OnHandQty") = tempvar



adppartbin.Dispose()
Case Else

End Select

End Sub



End Module
2
408

Within the issue material field there is an onhand field that is not quite working as it should. therefore I'm trying to populate either that field (qtyonhand) or a unnattached field with the lot onhand qty from the partbin table. This is what ive done so far, but I'm having trouble returning the onhandqty value - what am i doing wrong? :

Private Sub IssueReturn_AfterFieldChange(ByVal sender As object, ByVal args As DataColumnChangeEventArgs) Handles IssueReturn_Column.ColumnChanged
'// ** Argument Properties and Uses **
'// args.Row("[FieldName]")
'// args.Column, args.ProposedValue, args.Row
'
'Add Event Handler Code
'
Select Case args.Column.ColumnName

Case "LotNum"
Dim partNum As String = args.Row("PartNum")
Dim lotNum As String = args.row("lotnum")
Dim adppartbin As PartBinSearchAdapter = New PartBinSearchAdapter(IssueMaterialForm)
adppartbin.BOConnect()

Dim varpartbin As Epicor.Mfg.BO.PartBinSearchDataSet = adppartbin.GetPartBinByLot(partNum,lotNum)

Messagebox.Show ("fired OK","Fired",MessageBoxButtons.OK, MessageBoxIcon.Warning)

up to here it seems to work
below is what I have tried to populate the data:

'//args.row("onhandqty") = adppartbin.partbinsearchdata.tables("onhandqty").rows(0)

'//txt_Onhand_31269ae9_a2b8_41a8_b7d7_a473cead6ee9.text = adppartbin.partbinsearchdata.tables("onhandqty").rows(0)


adppartbin.Dispose()
Case Else

End Select

End Sub
3
Go into customization

Go into object explorer

Middle tab - data objects.

Find the table/field in the list and click on it.

In the right frame you'll see how to get to the table



It will display something like this:

Dim [edvVarName] As EpiDataView = CType(oTrans.EpiDataViews("UD01"),
EpiDataView)

Dim [VarName] As String =
[edvVarName].dataView([edvVarName].Row)("Character02")



What you'll want to do is something like this.

Dim [edvVarName] As EpiDataView = CType(oTrans.EpiDataViews("UD01"),
EpiDataView)

[edvVarName].dataView([edvVarName].Row)("Character02") = <your value





From: vantage@yahoogroups.com [mailto:vantage@yahoogroups.com] On Behalf
Of Rupert
Sent: Thursday, September 02, 2010 6:12 AM
To: vantage@yahoogroups.com
Subject: [Vantage] Help on data to text field





408

Within the issue material field there is an onhand field that is not
quite working as it should. therefore I'm trying to populate either that
field (qtyonhand) or a unnattached field with the lot onhand qty from
the partbin table. This is what ive done so far, but I'm having trouble
returning the onhandqty value - what am i doing wrong? :

Private Sub IssueReturn_AfterFieldChange(ByVal sender As object, ByVal
args As DataColumnChangeEventArgs) Handles
IssueReturn_Column.ColumnChanged
'// ** Argument Properties and Uses **
'// args.Row("[FieldName]")
'// args.Column, args.ProposedValue, args.Row
'
'Add Event Handler Code
'
Select Case args.Column.ColumnName

Case "LotNum"
Dim partNum As String = args.Row("PartNum")
Dim lotNum As String = args.row("lotnum")
Dim adppartbin As PartBinSearchAdapter = New
PartBinSearchAdapter(IssueMaterialForm)
adppartbin.BOConnect()

Dim varpartbin As Epicor.Mfg.BO.PartBinSearchDataSet =
adppartbin.GetPartBinByLot(partNum,lotNum)

Messagebox.Show ("fired OK","Fired",MessageBoxButtons.OK,
MessageBoxIcon.Warning)

up to here it seems to work
below is what I have tried to populate the data:

'//args.row("onhandqty") =
adppartbin.partbinsearchdata.tables("onhandqty").rows(0)

'//txt_Onhand_31269ae9_a2b8_41a8_b7d7_a473cead6ee9.text =
adppartbin.partbinsearchdata.tables("onhandqty").rows(0)

adppartbin.Dispose()
Case Else

End Select

End Sub







[Non-text portions of this message have been removed]
4
Thanks for that.

What about if its a non-defined text box etc? ie no data connection. The reason I ask is as the form is based on the "IM" data it's difficult to easily maniplulate

--- In vantage@yahoogroups.com, "Sean McDaniel" <smcdaniel@...> wrote:
>
> Go into customization
>
> Go into object explorer
>
> Middle tab - data objects.
>
> Find the table/field in the list and click on it.
>
> In the right frame you'll see how to get to the table
>
>
>
> It will display something like this:
>
> Dim [edvVarName] As EpiDataView = CType(oTrans.EpiDataViews("UD01"),
> EpiDataView)
>
> Dim [VarName] As String =
> [edvVarName].dataView([edvVarName].Row)("Character02")
>
>
>
> What you'll want to do is something like this.
>
> Dim [edvVarName] As EpiDataView = CType(oTrans.EpiDataViews("UD01"),
> EpiDataView)
>
> [edvVarName].dataView([edvVarName].Row)("Character02") = <your value
>
>
>
>
>
> From: vantage@yahoogroups.com [mailto:vantage@yahoogroups.com] On Behalf
> Of Rupert
> Sent: Thursday, September 02, 2010 6:12 AM
> To: vantage@yahoogroups.com
> Subject: [Vantage] Help on data to text field
>
>
>
>
>
> 408
>
> Within the issue material field there is an onhand field that is not
> quite working as it should. therefore I'm trying to populate either that
> field (qtyonhand) or a unnattached field with the lot onhand qty from
> the partbin table. This is what ive done so far, but I'm having trouble
> returning the onhandqty value - what am i doing wrong? :
>
> Private Sub IssueReturn_AfterFieldChange(ByVal sender As object, ByVal
> args As DataColumnChangeEventArgs) Handles
> IssueReturn_Column.ColumnChanged
> '// ** Argument Properties and Uses **
> '// args.Row("[FieldName]")
> '// args.Column, args.ProposedValue, args.Row
> '
> 'Add Event Handler Code
> '
> Select Case args.Column.ColumnName
>
> Case "LotNum"
> Dim partNum As String = args.Row("PartNum")
> Dim lotNum As String = args.row("lotnum")
> Dim adppartbin As PartBinSearchAdapter = New
> PartBinSearchAdapter(IssueMaterialForm)
> adppartbin.BOConnect()
>
> Dim varpartbin As Epicor.Mfg.BO.PartBinSearchDataSet =
> adppartbin.GetPartBinByLot(partNum,lotNum)
>
> Messagebox.Show ("fired OK","Fired",MessageBoxButtons.OK,
> MessageBoxIcon.Warning)
>
> up to here it seems to work
> below is what I have tried to populate the data:
>
> '//args.row("onhandqty") =
> adppartbin.partbinsearchdata.tables("onhandqty").rows(0)
>
> '//txt_Onhand_31269ae9_a2b8_41a8_b7d7_a473cead6ee9.text =
> adppartbin.partbinsearchdata.tables("onhandqty").rows(0)
>
> adppartbin.Dispose()
> Case Else
>
> End Select
>
> End Sub
>
>
>
>
>
>
>
> [Non-text portions of this message have been removed]
>
5
Then you need to do something like this, replacing the GUID with your
own and changing the EpiNumericEditor to the correct type for the field.

dim myVariable as EpiNumericEditor

myVariable
=CType(csm.GetNativeControlReference("bdda2b2b-d8b4-4c89-a9e1-77466d34d7
fc "),EpiNumericEditor)





From: vantage@yahoogroups.com [mailto:vantage@yahoogroups.com] On Behalf
Of Rupert
Sent: Thursday, September 02, 2010 8:43 AM
To: vantage@yahoogroups.com
Subject: [Vantage] Re: Help on data to text field





Thanks for that.

What about if its a non-defined text box etc? ie no data connection. The
reason I ask is as the form is based on the "IM" data it's difficult to
easily maniplulate

--- In vantage@yahoogroups.com <mailto:vantage%40yahoogroups.com> ,
"Sean McDaniel" <smcdaniel@...> wrote:
>
> Go into customization
>
> Go into object explorer
>
> Middle tab - data objects.
>
> Find the table/field in the list and click on it.
>
> In the right frame you'll see how to get to the table
>
>
>
> It will display something like this:
>
> Dim [edvVarName] As EpiDataView = CType(oTrans.EpiDataViews("UD01"),
> EpiDataView)
>
> Dim [VarName] As String =
> [edvVarName].dataView([edvVarName].Row)("Character02")
>
>
>
> What you'll want to do is something like this.
>
> Dim [edvVarName] As EpiDataView = CType(oTrans.EpiDataViews("UD01"),
> EpiDataView)
>
> [edvVarName].dataView([edvVarName].Row)("Character02") = <your value
>
>
>
>
>
> From: vantage@yahoogroups.com <mailto:vantage%40yahoogroups.com>
[mailto:vantage@yahoogroups.com <mailto:vantage%40yahoogroups.com> ] On
Behalf
> Of Rupert
> Sent: Thursday, September 02, 2010 6:12 AM
> To: vantage@yahoogroups.com <mailto:vantage%40yahoogroups.com>
> Subject: [Vantage] Help on data to text field
>
>
>
>
>
> 408
>
> Within the issue material field there is an onhand field that is not
> quite working as it should. therefore I'm trying to populate either
that
> field (qtyonhand) or a unnattached field with the lot onhand qty from
> the partbin table. This is what ive done so far, but I'm having
trouble
> returning the onhandqty value - what am i doing wrong? :
>
> Private Sub IssueReturn_AfterFieldChange(ByVal sender As object, ByVal
> args As DataColumnChangeEventArgs) Handles
> IssueReturn_Column.ColumnChanged
> '// ** Argument Properties and Uses **
> '// args.Row("[FieldName]")
> '// args.Column, args.ProposedValue, args.Row
> '
> 'Add Event Handler Code
> '
> Select Case args.Column.ColumnName
>
> Case "LotNum"
> Dim partNum As String = args.Row("PartNum")
> Dim lotNum As String = args.row("lotnum")
> Dim adppartbin As PartBinSearchAdapter = New
> PartBinSearchAdapter(IssueMaterialForm)
> adppartbin.BOConnect()
>
> Dim varpartbin As Epicor.Mfg.BO.PartBinSearchDataSet =
> adppartbin.GetPartBinByLot(partNum,lotNum)
>
> Messagebox.Show ("fired OK","Fired",MessageBoxButtons.OK,
> MessageBoxIcon.Warning)
>
> up to here it seems to work
> below is what I have tried to populate the data:
>
> '//args.row("onhandqty") =
> adppartbin.partbinsearchdata.tables("onhandqty").rows(0)
>
> '//txt_Onhand_31269ae9_a2b8_41a8_b7d7_a473cead6ee9.text =
> adppartbin.partbinsearchdata.tables("onhandqty").rows(0)
>
> adppartbin.Dispose()
> Case Else
>
> End Select
>
> End Sub
>
>
>
>
>
>
>
> [Non-text portions of this message have been removed]
>





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