Reputation: 0 Apprentice
- New Members
- Active Posts:
- 5 (0.01 per day)
- 18-November 12
- Profile Views:
- Last Active:
- Nov 29 2012 10:25 AM
- Dream Kudos:
Posts I've Made
Posted 29 Nov 2012modi123_1,
The purchase order schema is as such: 14100001 - 1 leading number / 4 - user / 100001 - purchase order
This works for us, in that there is no possibility of duplicates because as mentioned earlier every time the purchase order program is loaded - the 100001 is incremented by 1 (which is and has been working on 4 other machines without a hitch).
The dataType of "My.Settings.po" is Integer . . . . .
Posted 29 Nov 2012OK - lets see if this helps - have the following variable under Public Class Main:
Dim poIncNo As Integer Then in the formLoad Event I have: txtBx_poNo.Text = genPoNo(currUser) Private Function genPoNo(ByVal user As String) As String Dim strNum As String = "1" poIncNo = My.Settings.po + 1 Dim poNum As String Select Case user Case uFred poNum = strNum & userId + CStr(poIncNo) Return poNum End Select End Function In Application.Settings I have: Name = po Type = integer Scope = user Value = 100001
Posted 18 Nov 2012Lucky3,
Just what I needed - another set of eyes:
Dim shipTo = From row In osDS.Tables(0).AsEnumerable _
2 Order By row(7) _
3 Where row(0).ToString = cust _
4 And Convert.ToDateTime(row(1)) >= begDate AndAlso Convert.ToDateTime(row(1)) <= endingDate _
6 Select row(7) Distinct
Thanks . . . . .
- Member Title:
- New D.I.C Head
- Age Unknown
- Birthday Unknown
mebjen hasn't added any friends yet.