ขอคำแนะนำหรือแนวคิด เรื่องการตัดสต็อกแบบ FIFO พร้อม Update ค่าสต็อกคงเหลือ
วันนี้ ผมมีเรื่อง ๆ หนึ่ง คือ อยากจะขอ คำแนะนำ หรือ แนวคิด หลักการของ การตัดสต็อกสินค้า แบบ FIFO(1) ------- > (1) เมือลูกค้าซื้อ จะต้องตัดสต็อกจาก Record (1) ก่อนใช่ไหมครับ ปัญหาที่ผมว่าคือ เมื่อลูกค้าซื้อในจำนวน 90 ฟอง แล้ว มันตัด จำนวน 75 ฟองก็จริงครับ แต่มันไม่ยอมไป ตัดอีกRecord คือไข่เบอร์ 3 ของวันที่ 13/2/2554 Code (VB.NET) Dim sql As String = ""
Dim sqlSave As String = ""
sqlSave = sql.ToString()
Dim i As Integer
Dim EggId As String
Dim EggPrice As Double = 0.0
Dim EggQuan As Integer = 0
Dim EggTotal As Double = 0.0
Dim OldAmount As Integer
Dim NewAmount As Integer
Dim StkDate As Date
'วนลูปเก็บค่าสินค้าใน listview มาใส่ในตัวแปร เพื่อ การตัดสต็อกสินค้า และ Update ค่าสต็อกคงเหลือ ลงในตาราง Stok
For i = 0 To lsvEggList.Items.Count - 1
EggId = lsvEggList.Items(i).SubItems(0).Text
EggPrice = CDbl(lsvEggList.Items(i).SubItems(1).Text)
EggQuan = CInt(lsvEggList.Items(i).SubItems(2).Text)
EggTotal = CDbl(lsvEggList.Items(i).SubItems(3).Text)
sql.Remove(0, sql.Length)
sql = "SELECT * FROM stok WHERE egg_id = @egg_id ORDER BY pick_date ASC"
sqlSave = sql.ToString()
_cmd = New OleDbCommand(sql, _conn)
With _conn
_cmd.CommandText = sqlSave
_cmd.Parameters.Clear()
_cmd.Parameters.Add("egg_id", OleDbType.Char).Value = EggId
Dim reader As OleDbDataReader = _cmd.ExecuteReader()
If reader.HasRows Then
reader.Read()
OldAmount = reader("stk_total")
StkDate = reader("pick_date")
reader.Close()
NewAmount = (OldAmount - (EggQuan * 30))
sql.Remove(0, sql.Length)
sql = "UPDATE stok SET stk_total = @SumPick, pick_date = @date WHERE egg_id = @eggid AND pick_date = @date"
sqlSave = sql.ToString
_cmd = New OleDbCommand(sql, _conn)
With _conn
_cmd.CommandText = sqlSave
_cmd.CommandType = CommandType.Text
_cmd.Parameters.Clear()
_cmd.Parameters.Add("SumPick", OleDbType.Integer).Value = NewAmount
_cmd.Parameters.Add("date", OleDbType.Date).Value = StkDate
_cmd.Parameters.Add("eggid", OleDbType.Char).Value = EggId
_cmd.ExecuteNonQuery()
End With
End If
End With
Tag .NET, Ms Access, VBScript, Class Library, VB.NET, VS 2008 (.NET 3.x)
ประวัติการแก้ไข
Date :
2011-02-12 17:21:45By :
iSOON_zAView :
4091Reply :
14
มีท่านใด พอมีแนวทาง หรือ คำแนะนำ บ้างครับ ยังแก้ไม่ได้เลยครับ ติดตรง การขาย ตัดสต็อก และ Update สต็อกนี่แหละครับ
Date :
2011-02-13 16:08:04By :
iSOON_zA
สงสัยจะยาก หรือผมอธิบายไม่เข้าใจCode (VB.NET) Dim reader As OleDbDataReader = _cmd.ExecuteReader()
If reader.HasRows Then
reader.Read()
OldAmount = reader("stk_total")
StkDate = reader("pick_date")
reader.Close()
Date :
2011-02-13 23:45:32By :
iSOON_zA
ไม่แน่ใจตารางเก็บสต็อคไข่ของคุณ
ประวัติการแก้ไข
Date :
2011-02-14 09:00:53By :
หางอึ่ง
ที่ ท่านแนะนำ คือยังไงครับ ประมาณว่า
Date :
2011-02-14 09:12:13By :
iSOON_zA
ออ พอจะเข้าใจที่ท่านอธิบาย ล่ะ ครับ ประมาณว่า เก็บผมรวมแล้ว ตัด
Date :
2011-02-14 10:54:42By :
iSOON_zA
select * from table where stk_total < 0
ประวัติการแก้ไข
Date :
2011-02-14 11:21:53By :
cyberstein
ลองดูเรื่อง Transaction ผมว่าน่าจะใช้ได้ดี..
Date :
2011-02-14 14:19:47By :
EvoLutionGT
while(eggQty > 0)
Date :
2011-02-14 16:18:06By :
superpheak
อันนี้ที่ทำใหม่ครับ เกือบจะได้ล่ะครับ ติดตรง เรื่องอัพเดท ลงในวันที่ ถัดไปCode (VB.NET) 'วนลูปเก็บค่าสินค้าใน listview มาใส่ในตัวแปร เพื่อบันทึกลงในตาราง sale_detail
For i = 0 To lsvEggList.Items.Count - 1
EggId = lsvEggList.Items(i).SubItems(0).Text
EggPrice = CDbl(lsvEggList.Items(i).SubItems(1).Text)
EggQuan = CInt(lsvEggList.Items(i).SubItems(2).Text)
EggTotal = CDbl(lsvEggList.Items(i).SubItems(3).Text)
sql.Remove(0, sql.Length)
sql = "SELECT * FROM stok WHERE egg_id = @egg_id ORDER BY pick_date ASC"
sqlSave = sql.ToString()
_cmd = New OleDbCommand(sql, _conn)
With _conn
_cmd.CommandText = sqlSave
_cmd.Parameters.Clear()
_cmd.Parameters.Add("egg_id", OleDbType.Char).Value = EggId
Dim reader As OleDbDataReader = _cmd.ExecuteReader()
If reader.HasRows Then
reader.Read()
OldAmount = reader("stk_total")
StkDate = reader("pick_date")
reader.Close()
NewAmount = (OldAmount - (EggQuan * 30))
If NewAmount <= 0 Then
b = OldAmount - NewAmount
a = a - b
sql.Remove(0, sql.Length)
sql = "DELETE * FROM stok WHERE egg_id =@eggid AND pick_date = @date"
sqlSave = sql.ToString
_cmd = New OleDbCommand(sql, _conn)
With _conn
_cmd.CommandText = sqlSave
_cmd.CommandType = CommandType.Text
_cmd.Parameters.Clear()
'_cmd.Parameters.Add("SumPick", OleDbType.Integer).Value = NewAmount
_cmd.Parameters.Add("eggid", OleDbType.Char).Value = EggId
_cmd.Parameters.Add("date", OleDbType.Date).Value = StkDate
_cmd.ExecuteNonQuery()
End With
sql.Remove(0, sql.Length)
sql = "UPDATE stok SET stk_total = SumPick, pick_date = @date WHERE egg_id = @eggid AND pick_date = @date"
sqlSave = sql.ToString
_cmd = New OleDbCommand(sql, _conn)
With _conn
_cmd.CommandText = sqlSave
_cmd.CommandType = CommandType.Text
_cmd.Parameters.Clear()
_cmd.Parameters.Add("SumPick", OleDbType.Integer).Value = a
_cmd.Parameters.Add("date", OleDbType.Date).Value = StkDate
_cmd.Parameters.Add("eggid", OleDbType.Char).Value = EggId
_cmd.ExecuteNonQuery()
End With
Else
sql.Remove(0, sql.Length)
sql = "UPDATE stok SET stk_total = @SumPick, pick_date = @date WHERE egg_id = @eggid AND pick_date = @date"
sqlSave = sql.ToString
_cmd = New OleDbCommand(sql, _conn)
With _conn
_cmd.CommandText = sqlSave
_cmd.CommandType = CommandType.Text
_cmd.Parameters.Clear()
_cmd.Parameters.Add("SumPick", OleDbType.Integer).Value = NewAmount
_cmd.Parameters.Add("date", OleDbType.Date).Value = StkDate
_cmd.Parameters.Add("eggid", OleDbType.Char).Value = EggId
_cmd.ExecuteNonQuery()
End With
End If
ประวัติการแก้ไข
Date :
2011-02-14 19:17:57By :
iSOON_zA
คุณ Palm คุณ EvoLutionGT ส่วนสุดท้าย คุณ post ยังไงก็ต้องขอบคุณทุก ๆ ท่านน่ะครับที่ให้คำปรึกษา คำแนะนำต่าง ๆ ปล.
Date :
2011-02-14 19:20:04By :
iSOON_zA
while(eggQty > 0)
Date :
2011-02-14 21:03:03By :
superpheak
To . . . คุณ superpheak ครับ ได้แล้วครับ ต้องขอบคุณท่านมาก ๆ เลยครับ ที่ให้หลักการคิด แนวคิด หรือข้อชี้แนะ คำอธิบายต่าง ๆ อย่างชัดเจน เขียนนิดเดียวเอง ต่างจากที่ผมเขียนเลย ย้าว ยาว แถมติดปัญหาอีกต่างหาก . . . ได้แนวคิดดี ๆ จริง ๆ ครับ ยังไงต้องขอขอบคุณอย่างสุดซึ้งครับ (T-T)To . . . คุณ หางอึ่ง ครับ ยังไงก็ต้องขอบคุณท่านครับ ที่ให้ลิ้งค์ และข้อแนะนำ ต่าง ๆ ผมลองดูละครับลิ้งค์ที่ให้ แต่พอลองทำ มันติด Error ครับ สงสัยผมจะเขียน ผิดแบบผิดหลักการการเขียน Thaicreate.com ครับ ที่ให้พื้นที่สำหรับข้อมูล ความรู้ต่าง ๆ ที่ให้ทุก ๆ คนมาเอื่อเฟื่อเผื่อแผ่กัน ขอบคุณทุกท่าน มา ณ ที่นี้ด้วยครับ
Date :
2011-02-14 22:50:17By :
iSOON_zA
Server 02
Load balance : Server 02
