Anyone have a customization/bpm for incrementally adding 1 for e

Hi John,

I wrote this to increment our record number 0n a UD Table

If (args.NotifyType = EpiTransaction.NotifyType.AddRow) Then
If (args.Row > -1) Then

On Error GoTo ErrHandle

'Connect to the UD12 Adapter
Dim ud12Adap As UD12Adapter = New UD12Adapter([UD12Form])
ud12Adap.BOConnect()

'Declare SearchOptions for DataSet
Dim opts As SearchOptions = New
SearchOptions(SearchMode.AutoSearch)
Dim morePages As Boolean

'Dimensionalize and populate the DataSet
Dim ud12DS As UD12DataSet = ud12Adap.GetRows(opts,
morePages)

'Determine last record entry
Dim curKey, lastKey As Integer
For Each ud12 As DataRow In ud12DS.Tables("UD12").Rows
If lastKey < curKey
lastKey = curKey
Else
End If
curKey = ud12("Key1")
Next

edvUD12.dataView(edvUD12.Row)("Key1") = lastKey + 1

Exit Sub
ErrHandle: msgbox(err.description)
End If
End If


End Sub

--- In vantage@yahoogroups.com, "john f. martin" <jfmartin67@...> wrote:
>
> we add a lot of customers through customer service and need to have
the customer
> id increment by 1.
>
> anyone have a customization/bpm that does this? John F. Martin
> www.jfmops.com
> Operational Consulting for Early-stage Companies
> 917-723-4833 (cell)
>
we add a lot of customers through customer service and need to have the customer
id increment by 1.

anyone have a customization/bpm that does this? John F. Martin
www.jfmops.com
Operational Consulting for Early-stage Companies
917-723-4833 (cell)