Getting Closer Blank Title 77995

Yahoo Archive
1
Gene,

The error message was pretty clear (for a change ) -

Instead of:

( "nedEpiCustom2" ) = (args.proposedvalue , "OrderQty') * NetWeight)

Try:

( "nedEpiCustom2" ) = (args.proposedvalue , ("OrderQty") * NetWeight)

I'm assuming you defined NetWeight as a public numeric variable (and given it a value) somewhere else in your Modules' code.

Rob




________________________________
From: gmack110256 <genemack@...>
To: vantage@yahoogroups.com
Sent: Monday, May 18, 2009 11:57:10 AM
Subject: [Vantage] Getting Closer





Thank you Calvin for your help. I am Getting closer. This is the code I have in and the error I am getting. The If statement is line 73. The "nedEpiCustom2" is the name of the box where I want this to calculation to show up. Any idea what else I may need to make it work?

This is my fisrt try at doing any codeing in Vantage. My training for doing this coding hs been going on now since 7:00 a.m. on the 18th of May.

Thank you in advanced for any help anyone can give me.

Gene Mack
Johnson Systems

Private Sub OrderDtl_AfterField Change(ByVal sender As object, ByVal args As DataColumnChangeEve ntArgs) Handles OrderDtl_Column. ColumnChanged
'// ** Argument Properties and Uses **
'// args.Row("[FieldNam e]")
'// args.Column, args.ProposedValue, args.Row
'
'Add Event Handler Code
'
Dim edv As EpiDataView = CType(oTrans. EpiDataViews( "OrderDtl" ), EpiDataView)

Select Case args.Column. ColumnName
Case "OrderQty"
IF (args.proposedvalue , "OrderQty") > 0 THEN edv.dataView( edv.Row)( "nedEpiCustom2" ) = (args.proposedvalue , "OrderQty') * NetWeight)

Case Else

End Select

End Sub

Compiling Custom Code ...

----------errors- --------- --

Error: BC30198 - line 73 (288) - ')' expected.

** Compile Failed. **







[Non-text portions of this message have been removed]
2
Thank you Calvin for your help. I am Getting closer. This is the code I have in and the error I am getting. The If statement is line 73. The "nedEpiCustom2" is the name of the box where I want this to calculation to show up. Any idea what else I may need to make it work?

This is my fisrt try at doing any codeing in Vantage. My training for doing this coding hs been going on now since 7:00 a.m. on the 18th of May.

Thank you in advanced for any help anyone can give me.

Gene Mack
Johnson Systems

Private Sub OrderDtl_AfterFieldChange(ByVal sender As object, ByVal args As DataColumnChangeEventArgs) Handles OrderDtl_Column.ColumnChanged
'// ** Argument Properties and Uses **
'// args.Row("[FieldName]")
'// args.Column, args.ProposedValue, args.Row
'
'Add Event Handler Code
'
Dim edv As EpiDataView = CType(oTrans.EpiDataViews("OrderDtl"), EpiDataView)

Select Case args.Column.ColumnName
Case "OrderQty"
IF (args.proposedvalue, "OrderQty") > 0 THEN edv.dataView(edv.Row)("nedEpiCustom2") = (args.proposedvalue, "OrderQty') * NetWeight)

Case Else


End Select

End Sub



Compiling Custom Code ...


----------errors------------

Error: BC30198 - line 73 (288) - ')' expected.

** Compile Failed. **
3
I think the compiler is having a problem with the part, (args.proposedvalue,"OrderQty") of the IF statement, IF (args.proposedvalue,"OrderQty") > 0. Try IF args.proposedvalue > 0.

Reggie Acosta


--- In vantage@yahoogroups.com, "gmack110256" <genemack@...> wrote:
>
> Thank you Calvin for your help. I am Getting closer. This is the code I have in and the error I am getting. The If statement is line 73. The "nedEpiCustom2" is the name of the box where I want this to calculation to show up. Any idea what else I may need to make it work?
>
> This is my fisrt try at doing any codeing in Vantage. My training for doing this coding hs been going on now since 7:00 a.m. on the 18th of May.
>
> Thank you in advanced for any help anyone can give me.
>
> Gene Mack
> Johnson Systems
>
> Private Sub OrderDtl_AfterFieldChange(ByVal sender As object, ByVal args As DataColumnChangeEventArgs) Handles OrderDtl_Column.ColumnChanged
> '// ** Argument Properties and Uses **
> '// args.Row("[FieldName]")
> '// args.Column, args.ProposedValue, args.Row
> '
> 'Add Event Handler Code
> '
> Dim edv As EpiDataView = CType(oTrans.EpiDataViews("OrderDtl"), EpiDataView)
>
> Select Case args.Column.ColumnName
> Case "OrderQty"
> IF (args.proposedvalue, "OrderQty") > 0 THEN edv.dataView(edv.Row)("nedEpiCustom2") = (args.proposedvalue, "OrderQty') * NetWeight)
>
> Case Else
>
>
> End Select
>
> End Sub
>
>
>
> Compiling Custom Code ...
>
>
> ----------errors------------
>
> Error: BC30198 - line 73 (288) - ')' expected.
>
> ** Compile Failed. **
>