Tùy chọn
[help]Giải thích code tính tồn kho
- [help]Giải thích code tính tồn kho
-
[help]Giải thích code tính tồn kho
cuongvan09 > 18-04-12, 06:41 PM
Public Function SLgTon(Ma, so As Integer) As Integer
If IsNull(Ma) Or Ma = "" Then
SLgTon = 0
Exit Function
End If
Dim DB As DAO.Database
Dim RS As DAO.Recordset
Dim StrSQL As String
Set DB = CurrentDb
StrSQL = "SELECT DMHH.MAHANG, IIF(ISNULL(SLTONDAU),0,SLTONDAU)AS TONDAU, " & _
"Sum(IIf(SOPHIEU Like 'N*', SOLUONG, 0)) AS NHAP, " & _
"Sum(IIf(SOPHIEU Like 'X*', SOLUONG, 0)) AS XUAT, " & _
"TONDAU + NHAP - XUAT AS TONCUOI " & _
"FROM DMHH LEFT JOIN CTPNX ON DMHH.MAHANG = CTPNX.MAHANG " & _
"GROUP BY DMHH.MAHANG, IIF(ISNULL(SLTONDAU),0,SLTONDAU) " & _
"HAVING DMHH.MAHANG='" & Ma & "' "
Set RS = DB.OpenRecordset(StrSQL)
SLgTon = IIf(IsNull(RS!TONCUOI), 0, RS!TONCUOI + so) 'Cong lai so cu khi sua so luong xuat
End Function
e xin cam on may anh nheiu
-
RE: [help]Giải thích code tính tồn kho
Xuân Thanh > 18-04-12, 07:19 PM
1/ Câu SQL nhằm tính ra số tồn hiện tại trước khi sửa phiếu nhập xuất
2/ so là số lượng cần sửa lại
3/ lấy số tồn cuối trước khi sửa + so thì ra số lượng tồn hiện tại sau khi sửa