Need some .NET help

The problem is that you're assigning the value to the field. Assign the
value to the DataView and all should be well.
Something like:
edvOrderDtl(edvOrderDtl.Row)("LotNumber") = TrimmedLotNum

Of course you'll need to swap the dataview/field names for the appropriate
ones, but you get the idea.

On Fri, Dec 23, 2011 at 1:35 PM, carl.heeder <carl.heeder@...>wrote:

> **
>
>
> We display the lot number in bar code 128 format. Say, the lot number is
> 12345678. The 128 format includes 2 leading and two trailing control
> characters
>
> Printed, this lot number is +Y12345678c*
> (not sure about the exact first and last two characters).
>
> We scan it with a WASP 500 scanner. The scan picks up +Y12345678c*
>
> Wasp tells me that this scanner will not interpret the characters that are
> there. They said that if I were to buy a programmable scanner, I could
> teach it how to skip these characters, but the 500 is what I have.
>
> To get around this, so far, I've added a UD field labeled Bar Code Lot and
> a BPM that sees if there is any value in this UD field, and if so, strips
> the first and last two characters and puts the results in the Lot number
> field. What I was trying to do was to get rid of the UD field and have the
> .NET code interpret the content of the LotNr field directly. This works but
> the lot number reverts back to the original input.
>
>
> --- In vantage@yahoogroups.com, Chris Thompson <chriselectrix@...> wrote:
> >
> > When you say control character, what do you mean?
> > �
>
> > You shouldnt have to mess around with anything like .net.
> > �
>
> > What exactly is the problem? - if you give me an example I may be able
> to help.
> >
> > From: carl.heeder <carl.heeder@...>
>
> > To: vantage@yahoogroups.com
> > Sent: Thursday, 22 December 2011, 23:28
> > Subject: [Vantage] Re: Need some .NET help
> >
> >
> > �
> > A line of extra code sneaked in my email. Forget about the statement
> just before the end select
> >
> > --- In vantage@yahoogroups.com, "carl.heeder" <carl.heeder@> wrote:
> > >
> > > I'm trying to modify an input field. We are about to use a bar code
> scanner to enter lot numbers but the scanner shows the control characters.
> So my plan was to introduce some .NET code to test the lot number before
> the field is updated to see if it begins with the bar code control
> characters and if so, to strip them off and o replace the field with the
> stripped down version.
> > >
> > > Here's what I've done but it doesn't work. It replaces the field with
> the stripped value but then reverts back to the input value. Can someone
> give me some help what I refer to to push a value back into the input form?
> > >
> > > Private Sub ShipDtl_BeforeFieldChange(ByVal sender As object, ByVal
> args As DataColumnChangeEventArgs) Handles ShipDtl_Column.ColumnChanging
> > >
> > >
> > >
> > > Select Case args.Column.ColumnName
> > >
> > > Case "LotNum"
> > > dim LotNrDD as string =
> CType(csm.GetNativeControlReference("7896fc57-c464-491e-8b07-9596c1dc55ae"),
> EpiTextBox).value
> > >
> > >
> > > if len(lotnrDD)>4 then
> > > if left(lotnrdd,1)="+" then
> > > lotnrdd=left(lotnrdd, len(lotnrdd)-2)
> > > lotnrdd=right(lotnrdd, len(lotnrdd)-2)
> > > '
> CType(csm.GetNativeControlReference("7896fc57-c464-491e-8b07-9596c1dc55ae"),
> EpiTextBox).value=lotnrdd
> > > edvShipDtl.dataView(edvShipDtl.Row)("LotNum")=lotnrdd
> > > end if
> > > end if
> > > LotNrDD =
> CType(csm.GetNativeControlReference("7896fc57-c464-491e-8b07-9596c1dc55ae"),
> EpiTextBox).value
> > >
> > > End Select
> > > End Sub
> > >
> >
> >
> >
> >
> > [Non-text portions of this message have been removed]
> >
>
>
>



--
*John Driggers*
*High End Dev, System Design, Profit Drinking
*
*:: 904.962.2887*
*:: waffqle@...*
*:: NO FAXES*

*

*


[Non-text portions of this message have been removed]
I'm trying to modify an input field. We are about to use a bar code scanner to enter lot numbers but the scanner shows the control characters. So my plan was to introduce some .NET code to test the lot number before the field is updated to see if it begins with the bar code control characters and if so, to strip them off and o replace the field with the stripped down version.

Here's what I've done but it doesn't work. It replaces the field with the stripped value but then reverts back to the input value. Can someone give me some help what I refer to to push a value back into the input form?

Private Sub ShipDtl_BeforeFieldChange(ByVal sender As object, ByVal args As DataColumnChangeEventArgs) Handles ShipDtl_Column.ColumnChanging



Select Case args.Column.ColumnName

Case "LotNum"
dim LotNrDD as string = CType(csm.GetNativeControlReference("7896fc57-c464-491e-8b07-9596c1dc55ae"), EpiTextBox).value


if len(lotnrDD)>4 then
if left(lotnrdd,1)="+" then
lotnrdd=left(lotnrdd, len(lotnrdd)-2)
lotnrdd=right(lotnrdd, len(lotnrdd)-2)
' CType(csm.GetNativeControlReference("7896fc57-c464-491e-8b07-9596c1dc55ae"), EpiTextBox).value=lotnrdd
edvShipDtl.dataView(edvShipDtl.Row)("LotNum")=lotnrdd
end if
end if
LotNrDD = CType(csm.GetNativeControlReference("7896fc57-c464-491e-8b07-9596c1dc55ae"), EpiTextBox).value

End Select
End Sub
A line of extra code sneaked in my email. Forget about the statement just before the end select

--- In vantage@yahoogroups.com, "carl.heeder" <carl.heeder@...> wrote:
>
> I'm trying to modify an input field. We are about to use a bar code scanner to enter lot numbers but the scanner shows the control characters. So my plan was to introduce some .NET code to test the lot number before the field is updated to see if it begins with the bar code control characters and if so, to strip them off and o replace the field with the stripped down version.
>
> Here's what I've done but it doesn't work. It replaces the field with the stripped value but then reverts back to the input value. Can someone give me some help what I refer to to push a value back into the input form?
>
> Private Sub ShipDtl_BeforeFieldChange(ByVal sender As object, ByVal args As DataColumnChangeEventArgs) Handles ShipDtl_Column.ColumnChanging
>
>
>
> Select Case args.Column.ColumnName
>
> Case "LotNum"
> dim LotNrDD as string = CType(csm.GetNativeControlReference("7896fc57-c464-491e-8b07-9596c1dc55ae"), EpiTextBox).value
>
>
> if len(lotnrDD)>4 then
> if left(lotnrdd,1)="+" then
> lotnrdd=left(lotnrdd, len(lotnrdd)-2)
> lotnrdd=right(lotnrdd, len(lotnrdd)-2)
> ' CType(csm.GetNativeControlReference("7896fc57-c464-491e-8b07-9596c1dc55ae"), EpiTextBox).value=lotnrdd
> edvShipDtl.dataView(edvShipDtl.Row)("LotNum")=lotnrdd
> end if
> end if
> LotNrDD = CType(csm.GetNativeControlReference("7896fc57-c464-491e-8b07-9596c1dc55ae"), EpiTextBox).value
>
> End Select
> End Sub
>
When you say control character, what do you mean?
Â
You shouldnt have to mess around with anything like .net.
Â
What exactly is the problem? - if you give me an example I may be able to help.

From: carl.heeder <carl.heeder@...>
To: vantage@yahoogroups.com
Sent: Thursday, 22 December 2011, 23:28
Subject: [Vantage] Re: Need some .NET help


Â
A line of extra code sneaked in my email. Forget about the statement just before the end select

--- In vantage@yahoogroups.com, "carl.heeder" <carl.heeder@...> wrote:
>
> I'm trying to modify an input field. We are about to use a bar code scanner to enter lot numbers but the scanner shows the control characters. So my plan was to introduce some .NET code to test the lot number before the field is updated to see if it begins with the bar code control characters and if so, to strip them off and o replace the field with the stripped down version.
>
> Here's what I've done but it doesn't work. It replaces the field with the stripped value but then reverts back to the input value. Can someone give me some help what I refer to to push a value back into the input form?
>
> Private Sub ShipDtl_BeforeFieldChange(ByVal sender As object, ByVal args As DataColumnChangeEventArgs) Handles ShipDtl_Column.ColumnChanging
>
>
>
> Select Case args.Column.ColumnName
>
> Case "LotNum"
> dim LotNrDD as string = CType(csm.GetNativeControlReference("7896fc57-c464-491e-8b07-9596c1dc55ae"), EpiTextBox).value
>
>
> if len(lotnrDD)>4 then
> if left(lotnrdd,1)="+" then
> lotnrdd=left(lotnrdd, len(lotnrdd)-2)
> lotnrdd=right(lotnrdd, len(lotnrdd)-2)
> ' CType(csm.GetNativeControlReference("7896fc57-c464-491e-8b07-9596c1dc55ae"), EpiTextBox).value=lotnrdd
> edvShipDtl.dataView(edvShipDtl.Row)("LotNum")=lotnrdd
> end if
> end if
> LotNrDD = CType(csm.GetNativeControlReference("7896fc57-c464-491e-8b07-9596c1dc55ae"), EpiTextBox).value
>
> End Select
> End Sub
>




[Non-text portions of this message have been removed]
We display the lot number in bar code 128 format. Say, the lot number is 12345678. The 128 format includes 2 leading and two trailing control characters

Printed, this lot number is +Y12345678c*
(not sure about the exact first and last two characters).

We scan it with a WASP 500 scanner. The scan picks up +Y12345678c*

Wasp tells me that this scanner will not interpret the characters that are there. They said that if I were to buy a programmable scanner, I could teach it how to skip these characters, but the 500 is what I have.

To get around this, so far, I've added a UD field labeled Bar Code Lot and a BPM that sees if there is any value in this UD field, and if so, strips the first and last two characters and puts the results in the Lot number field. What I was trying to do was to get rid of the UD field and have the .NET code interpret the content of the LotNr field directly. This works but the lot number reverts back to the original input.


--- In vantage@yahoogroups.com, Chris Thompson <chriselectrix@...> wrote:
>
> When you say control character, what do you mean?
> ÂÂ
> You shouldnt have to mess around with anything like .net.
> ÂÂ
> What exactly is the problem? - if you give me an example I may be able to help.
>
> From: carl.heeder <carl.heeder@...>
> To: vantage@yahoogroups.com
> Sent: Thursday, 22 December 2011, 23:28
> Subject: [Vantage] Re: Need some .NET help
>
>
> ÂÂ
> A line of extra code sneaked in my email. Forget about the statement just before the end select
>
> --- In vantage@yahoogroups.com, "carl.heeder" <carl.heeder@> wrote:
> >
> > I'm trying to modify an input field. We are about to use a bar code scanner to enter lot numbers but the scanner shows the control characters. So my plan was to introduce some .NET code to test the lot number before the field is updated to see if it begins with the bar code control characters and if so, to strip them off and o replace the field with the stripped down version.
> >
> > Here's what I've done but it doesn't work. It replaces the field with the stripped value but then reverts back to the input value. Can someone give me some help what I refer to to push a value back into the input form?
> >
> > Private Sub ShipDtl_BeforeFieldChange(ByVal sender As object, ByVal args As DataColumnChangeEventArgs) Handles ShipDtl_Column.ColumnChanging
> >
> >
> >
> > Select Case args.Column.ColumnName
> >
> > Case "LotNum"
> > dim LotNrDD as string = CType(csm.GetNativeControlReference("7896fc57-c464-491e-8b07-9596c1dc55ae"), EpiTextBox).value
> >
> >
> > if len(lotnrDD)>4 then
> > if left(lotnrdd,1)="+" then
> > lotnrdd=left(lotnrdd, len(lotnrdd)-2)
> > lotnrdd=right(lotnrdd, len(lotnrdd)-2)
> > ' CType(csm.GetNativeControlReference("7896fc57-c464-491e-8b07-9596c1dc55ae"), EpiTextBox).value=lotnrdd
> > edvShipDtl.dataView(edvShipDtl.Row)("LotNum")=lotnrdd
> > end if
> > end if
> > LotNrDD = CType(csm.GetNativeControlReference("7896fc57-c464-491e-8b07-9596c1dc55ae"), EpiTextBox).value
> >
> > End Select
> > End Sub
> >
>
>
>
>
> [Non-text portions of this message have been removed]
>