Advertisement
Advertisement
| 07.03.2008 at 10:34AM PDT, ID: 23537647 |
|
[x]
Attachment Details
|
||
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20: 21: 22: 23: 24: 25: 26: 27: 28: 29: 30: 31: 32: 33: 34: 35: 36: 37: 38: 39: 40: 41: 42: 43: 44: 45: 46: 47: 48: 49: 50: 51: 52: 53: 54: 55: |
Dim cmdBinTrans As New SqlCommand("LBSI_BinUTrans", SQLConnect, SOShipments)
cmdBinTrans.CommandType = CommandType.StoredProcedure
cmdBinTrans.Parameters.Add("@ItemCode", SqlDbType.NVarChar, 25)
cmdBinTrans.Parameters("@ItemCode").Value = Item
cmdBinTrans.Parameters.Add("@UserCode", SqlDbType.NVarChar, 8)
cmdBinTrans.Parameters("@UserCode").Value = UserCode
cmdBinTrans.Parameters.Add("@DateTime", SqlDbType.DateTime)
cmdBinTrans.Parameters("@DateTime").Value = TodayDate
cmdBinTrans.Parameters.Add("@ObjId", SqlDbType.Int)
cmdBinTrans.Parameters("@ObjId").Value = ObjId
cmdBinTrans.Parameters.Add("@FromWhseCode", SqlDbType.NVarChar, 10)
cmdBinTrans.Parameters("@FromWhseCode").Value = FromWhse
cmdBinTrans.Parameters.Add("@FromBinLoc", SqlDbType.NVarChar, 10)
cmdBinTrans.Parameters("@FromBinLoc").Value = FromBin
cmdBinTrans.Parameters.Add("@ToWhseCode", SqlDbType.NVarChar, 10)
cmdBinTrans.Parameters("@ToWhseCode").Value = ToWhse
cmdBinTrans.Parameters.Add("@ToBinLoc", SqlDbType.NVarChar, 10)
cmdBinTrans.Parameters("@ToBinLoc").Value = ToBin
cmdBinTrans.Parameters.Add("@Qty", SqlDbType.Float, 2)
cmdBinTrans.Parameters("@Qty").Value = Qty
cmdBinTrans.Parameters.Add("@DocNum", SqlDbType.Int)
cmdBinTrans.Parameters("@DocNum").Value = DocNum
cmdBinTrans.Parameters.Add("@DocEntry", SqlDbType.Int)
cmdBinTrans.Parameters("@DocEntry").Value = DocEntry
cmdBinTrans.Parameters.Add("@LineNum", SqlDbType.Int)
cmdBinTrans.Parameters("@LineNum").Value = LineNum
cmdBinTrans.Parameters.Add("@ObjRef", SqlDbType.NVarChar, 10)
cmdBinTrans.Parameters("@ObjRef").Value = ObjRef
cmdBinTrans.Parameters.Add("@PostDate", SqlDbType.DateTime)
cmdBinTrans.Parameters("@PostDate").Value =
cmdBinTrans.Parameters.Add("@PostUser", SqlDbType.NVarChar, 8)
cmdBinTrans.Parameters("@PostUser").Value = ""
cmdBinTrans.Parameters.Add("@Posted", SqlDbType.NVarChar, 1)
cmdBinTrans.Parameters("@Posted").Value = Posted
cmdBinTrans.Parameters.Add("@EMessage", SqlDbType.NVarChar, 254)
cmdBinTrans.Parameters("@EMessage").Value = ""
cmdBinTrans.ExecuteNonQuery()
|