asked on
ASKER
Dim weight As Double = CType(TextBox9.Text, Double) ' lbs
Dim tare As Double = CType(TextBox8.Text, Double) ' lbs
Dim samplesize As Integer = ComboBox4.Text ' #
Dim sampleweight As Double = CType(TextBox3.Text, Double) 'oz
Dim weightozperpeice As Double = sampleweight / samplesize ' oz
Dim boxqty As Integer
Dim counter As Integer = 0
Dim boxinsert As Integer = CType(TextBox1.Text, Integer)
Do Until counter = CType(TextBox1.Text, Integer)
If counter = boxinsert Then Exit Do
counter += 1
boxqty = (weight - tare) / (weightozperpeice / 16)
' to boxes table
Sqlinsertboxinfo.Parameters.Clear()
Sqlinsertboxinfo.Parameters.AddWithValue("@lognumber", CType(vlognumber, Integer))
Sqlinsertboxinfo.Parameters.AddWithValue("@materialnumber", CType(currentmaterialnumber, Integer))
Sqlinsertboxinfo.Parameters.AddWithValue("@boxnumber", CType(counter, Integer))
Sqlinsertboxinfo.Parameters.AddWithValue("@barcodeidentity", CType(currentmaterialnumber & "-" & counter, String))
Sqlinsertboxinfo.Parameters.AddWithValue("@boxqty", CType(boxqty, Integer))
Sqlinsertboxinfo.Parameters.AddWithValue("@weight", CType(TextBox9.Text, Decimal))
Sqlinsertboxinfo.Parameters.AddWithValue("@tare", CType(TextBox8.Text, Decimal))
' to materials table
Sqlinsertboxinfo.Parameters.AddWithValue("@category", ComboBox1.SelectedValue).ToString()
Sqlinsertboxinfo.Parameters.AddWithValue("@type", ComboBox2.SelectedValue).ToString()
Sqlinsertboxinfo.Parameters.AddWithValue("@size", ComboBox3.SelectedValue).ToString()
Sqlinsertboxinfo.Parameters.AddWithValue("@matimage", matimage).ToString()
Sqlinsertboxinfo.Parameters.AddWithValue("@comments", TextBox2.Text).ToString()
Sqlinsertboxinfo.Parameters.AddWithValue("@boxesingroup", CType(TextBox1.Text, Integer))
Sqlinsertboxinfo.Parameters.AddWithValue("@sampleweight", CType(TextBox3.Text, Double))
Sqlinsertboxinfo.Parameters.AddWithValue("@samplesize", CType(ComboBox4.Text, Integer))
Dim rowCount1 As Integer
Dim previousConnectionState2 As ConnectionState
previousConnectionState2 = SqlConnection1.State
Try
If SqlConnection1.State = ConnectionState.Closed Then
SqlConnection1.Open()
End If
rowCount1 = Sqlinsertboxinfo.ExecuteNonQuery()
Finally
If previousConnectionState2 = ConnectionState.Closed Then
SqlConnection1.Close()
End If
End Try
Loop
ASKER
The .NET Framework is not specific to any one programming language; rather, it includes a library of functions that allows developers to rapidly build applications. Several supported languages include C#, VB.NET, C++ or ASP.NET.
TRUSTED BY