• Tùy chọn
• Đăng nhập
• Đăng ký
• Xem như trên Máy tính
• Accelerated Mobile Pages Theme

DeMo tính tồn kho cho nhiều kho dùng hai table Nhập Xuất riêng biệt

• Trang chủ

  • Thủ Thuật Access
  • Access Nâng Cao
  • Thư viện thủ thuật
  • DeMo tính tồn kho cho nhiều kho dùng hai table Nhập Xuất riêng biệt
• DeMo tính tồn kho cho nhiều kho dùng hai table Nhập Xuất riêng biệt

• RE: DeMo tính tồn kho cho nhiều kho dùng hai table Nhập Xuất riêng biệt

  Xuân Thanh > 08-04-20, 02:46 PM

  (08-04-20, 01:12 PM)dotrung Đã viết: Anh Thanh ơi, việc chuyển tồn (mã hàng của 1 kho) sang năm sau thì demo của anh không chuyển qua được, em nghĩ do RecKey ràng buộc bằng năm hiện hành. Có lẽ phải có 1 lệnh nữa để chuyển tồn qua năm sau. 
  Đây là link file em test file của anh Xuân Thanh http://www.mediafire.com/file/90av12mdzv...accdb/file

  
  Đọc bài số 10 chưa?

• RE: DeMo tính tồn kho cho nhiều kho dùng hai table Nhập Xuất riêng biệt

  Xuân Thanh > 08-04-20, 03:44 PM

  Thực chất đây là một hàm còn thiếu nhiều điều kiện (cố tình của tác giả) nhưng không thấy ý kiến phản hồi.
  Những cái thiếu đó là
  1/ Câu lệnh SQL cho rnx chưa ổn, điều kiện Set tblTonCu chưa hợp lý, hàm chỉ tính được một lần duy nhất không thể tính lại được lần thứ 2(bị trùng dữ liệu)
  2/ Chưa Reset lại Tồn kho của tháng đã tính trước. Thực tế là đôi lúc khi tính xong Tồn kho của tháng này thì mới phát hiện còn thiếu một sộ chứng tư chưa nhập hoặc xuất của tháng đó, bắt buộc phải chỉnh sửa. Đã có chỉnh sửa thì phải tính lại Tồn kho
  3/ Tồn kho là phải tính liên tục. Có như vậy mới kết chuyển được Tồn đầu kỳ của tháng trước sang. Nếu tính cách khoảng(ví dụ tính tồn kho của tháng 1 nhưng không tính tháng 2 và 3, đến tháng 4 mới tính) thì số tồn đầu kỳ của tháng 4 sẽ bằng 0 vì nó lấy từ tháng 3 qua mà tháng 3 không có số liệu. Nên đưa vào form để gọi hàm. Tạo form frmTinhTonKho có hai textbox là txtNgay, txtThang và một button btnTinhTon. Gán câu lệnh cho btnTinhTon bằng cách gọi hàm TinhTonKho
  
  

  Mã:

  Private Sub btnTinhTon_Click()
     'Bay loi khi txtThang và txtNam = ""
     Call TinhTonKho(Me.txtThang, Me.txtNam)
     MsgBox "Xong"
End Sub

  
  4/ Chỉnh sửa lại bài toán một chút
  4.1/ Tạo thêm một query trung gian để lấy dữ liệu lưu lại với tên là qryNhapXuat
  
  

  Mã:

  SELECT tblPhieuNhap.NgayCT, "PN" AS LoaiCT, tblPhieuNhapChiTiet.MaKho, tblPhieuNhapChiTiet.MaVT, tblPhieuNhapChiTiet.SoLuong, tblPhieuNhapChiTiet.ThanhTien
FROM tblPhieuNhap INNER JOIN tblPhieuNhapChiTiet ON tblPhieuNhap.RecKey = tblPhieuNhapChiTiet.RecKey
WHERE (((tblPhieuNhap.NgayCT) Between [TuNgay] And [DenNgay]));
UNION ALL SELECT tblPhieuXuat.NgayCT, "PX" AS LoaiCT, tblPhieuXuatChiTiet.MaKho, tblPhieuXuatChiTiet.MaVT, tblPhieuXuatChiTiet.SoLuong, tblPhieuXuatChiTiet.ThanhTien
FROM tblPhieuXuat INNER JOIN tblPhieuXuatChiTiet ON tblPhieuXuat.RecKey = tblPhieuXuatChiTiet.RecKey
WHERE (((tblPhieuXuat.NgayCT) Between [TuNgay] And [DenNgay]));

  
  
  4.2/ Sửa lại hàm TinhTonKho
  
  

  Mã:

  Public Function TinhTonKho(Thang, Nam)
    Dim DB As DAO.Database, rnx As DAO.Recordset, rTon As DAO.Recordset, rTonCu As DAO.Recordset
    Dim dStart As Date, dEnd As Date, KhoaCu As String, KhoaMoi As String
    Dim LThang As Integer, LNam As Integer, qryNX As QueryDef
    Dim TonDau As Double, TienDau As Double, MaKho As String, MaVT As String, Rec As String
    If Thang = 1 Then
        LThang = 12: LNam = Nam - 1
    Else
        LThang = Thang - 1: LNam = Nam
    End If
    KhoaCu = LNam & Right("0" & LThang, 2)
    KhoaMoi = Nam & Right("0" & Thang, 2)
    dStart = DateSerial(Nam, Thang, 1)
    dEnd = DateSerial(Nam, Thang + 1, 1) - 1
    Set DB = CurrentDb
    Set qryNX = DB.QueryDefs("qryNhapXuat")
    qryNX.Parameters("TuNgay") = dStart
    qryNX.Parameters("DenNgay") = dEnd
    Set rnx = qryNX.OpenRecordset
    Set rTon = DB.OpenRecordset("tblTonKho", dbOpenTable)
    rTon.Index = "RecKey"
    Set rTonCu = DB.OpenRecordset("Select * From tblTonKho Where Left(Reckey,6) = '" & KhoaMoi & "'")
    If rTonCu.RecordCount > 0 Then
        GoSub TinhLaiTon
        GoSub TinhTrongKy
    Else
        GoSub ChuyenTonCu
        GoSub TinhTrongKy
    End If
    rTon.Close: rTonCu.Close:  rnx.Close
    Set rTon = Nothing: Set rTonCu = Nothing: Set rnx = Nothing
    Exit Function

'Tinh lai ton cua thang da tinh
TinhLaiTon:
    Set rTonCu = DB.OpenRecordset("Select * From tblTonKho Where Left(RecKey,6) = '" & KhoaMoi & "'")
    If rTonCu.RecordCount > 0 Then rTonCu.MoveFirst
    Do Until rTonCu.EOF
        MaKho = rTonCu!MaKho: MaVT = rTonCu!MaVT: Rec = KhoaMoi & "-" & MaKho & "-" & MaVT
        TonDau = rTonCu!TonDau: TienDau = rTonCu!TienDau
        rTon.Seek "=", Rec
        If Not rTon.NoMatch Then
            rTon.Edit
            rTon!TonDau = TonDau: rTon!TienDau = TienDau: rTon!TongNhap = 0: rTon!TienNhap = 0
            rTon!TongXuat = 0: rTon!TienXuat = 0: rTon!TonCuoi = 0: rTon!TienCuoi = 0: rTon!DGBQ = 0
            rTon.Update
        End If
        rTonCu.MoveNext
    Loop
    Return
       
'Chuyen Ton thang truoc sang thang moi
ChuyenTonCu:
    Set rTonCu = DB.OpenRecordset("Select * From tblTonKho Where Left(RecKey, 6) = '" & KhoaCu & "'")
    If rTonCu.RecordCount > 0 Then rTonCu.MoveFirst
    Do Until rTonCu.EOF
        MaKho = rTonCu!MaKho: MaVT = rTonCu!MaVT
        TonDau = rTonCu!TonCuoi: TienDau = rTonCu!TienCuoi
        rTon.AddNew
        rTon!RecKey = KhoaMoi & "-" & MaKho & "-" & MaVT
        rTon!MaKho = MaKho
        rTon!MaVT = MaVT
        rTon!TonDau = TonDau: rTon!TienDau = TienDau
        rTon!TongNhap = 0: rTon!TienNhap = 0: rTon!TongXuat = 0: rTon!TienXuat = 0
        rTon!TonCuoi = 0: rTon!TienCuoi = 0: rTon!DGBQ = 0
        rTon.Update
        rTonCu.MoveNext
    Loop
    Return
   
'Tinh Nhap Xuat trong ky
TinhTrongKy:
    If rnx.RecordCount > 0 Then rnx.MoveFirst
    Do Until rnx.EOF
        rTon.Seek "=", KhoaMoi & "-" & rnx!MaKho & "-" & rnx!MaVT
        If rTon.NoMatch Then
            rTon.AddNew
            rTon!RecKey = KhoaMoi & "-" & rnx!MaKho & "-" & rnx!MaVT
            rTon!MaKho = rnx!MaKho
            rTon!MaVT = rnx!MaVT
            rTon!TonDau = 0: rTon!TienDau = 0: rTon!TongNhap = 0: rTon!TienNhap = 0
            rTon!TongXuat = 0: rTon!TienXuat = 0: rTon!TonCuoi = 0: rTon!TienCuoi = 0: rTon!DGBQ = 0
            rTon.Update
            rTon.Bookmark = rTon.LastModified
        End If
        rTon.Edit
        If rnx!LoaiCT = "PN" Then
            rTon!TongNhap = rTon!TongNhap + rnx!SoLuong
            rTon!TienNhap = rTon!TienNhap + rnx!ThanhTien
        ElseIf rnx!LoaiCT = "PX" Then
            rTon!TongXuat = rTon!TongXuat + rnx!SoLuong
            rTon!TienXuat = rTon!TienXuat + rnx!ThanhTien
        End If
        GoSub TinhTonCuoi
        rTon.Update
        rnx.MoveNext
    Loop
   
    Return

'Tinh Ton Cuoi Ky
TinhTonCuoi:
    rTon!TonCuoi = rTon!TonDau + rTon!TongNhap - rTon!TongXuat
    rTon!TienCuoi = rTon!TienDau + rTon!TienNhap - rTon!TienXuat
    If (rTon!TienDau + rTon!TienNhap) > 0 And (rTon!TonDau + rTon!TongNhap) > 0 Then
        rTon!DGBQ = (rTon!TienDau + rTon!TienNhap) / (rTon!TonDau + rTon!TongNhap)
    End If
    Return
   
End Function

• RE: DeMo tính tồn kho cho nhiều kho dùng hai table Nhập Xuất riêng biệt

  dotrung > 08-04-20, 09:23 PM

  Em đã sửa code và bị lỗi như hình này, anh Thanh xem có ý kiến gì không?
  
  

  Mã:

  https://www.upsieutoc.com/image/tonkho.PAILMO

• RE: DeMo tính tồn kho cho nhiều kho dùng hai table Nhập Xuất riêng biệt

  Xuân Thanh > 09-04-20, 09:02 AM

  (08-04-20, 09:23 PM)dotrung Đã viết: Em đã sửa code và bị lỗi như hình này, anh Thanh xem có ý kiến gì không?
  
  

  
  Dán bằng BBCode mới thấy hình

• RE: DeMo tính tồn kho cho nhiều kho dùng hai table Nhập Xuất riêng biệt

  ongke0711 > 09-04-20, 04:31 PM

  Anh Xuân Thanh cho hỏi: theo cái file demo của anh, khi chạy thì bảng tồn kho có cái mã DA4x6 của 2 kho khác nhau thì giá BQGQ cũng khác nhau luôn? Nó có đúng qui chuẩn kế toán không?
  
  
  
  Môt câu hỏi nữa là trong thực tế việc tính lại đơn giá BQGQ cho toàn bộ mã hàng chỉ thực hiện ở cuối tháng khi chốt sổ đúng không anh Thanh? 
  Còn trong tháng mỗi khi có nghiệp vụ Xuất thì có tính liền lúc đó không? 
  Nếu có tính BQGQ ngay thời điểm Xuất thì cuối tháng có cần cập nhật lại không?
  
  Lúc trước em có test trên CSDL lớn của anh ledangvan thì dùng code VBA tính lại giá BQGQ cho nhiều tháng nó chậm kinh khủng, chuyển qua dùng Query kết hợp thì cũng đỡ hơn chút thôi. Bây giờ mới nghĩ ra là chưa thử cách dùng mảng xem có cải thiện tốc độ không.

• RE: DeMo tính tồn kho cho nhiều kho dùng hai table Nhập Xuất riêng biệt

  Xuân Thanh > 09-04-20, 04:43 PM

  (09-04-20, 04:31 PM)ongke0711 Đã viết: Anh Xuân Thanh cho hỏi: theo cái file demo của anh, khi chạy thì bảng tồn kho có cái mã DA4x6 của 2 kho khác nhau thì giá BQGQ cũng khác nhau luôn? Nó có đúng qui chuẩn kế toán không?
  
  

  
  Không đúng chuẩn kế toán đâu ongke0711. Làm Demo để thấy được cách làm thôi. Đúng chuẩn kế toán thì phải tính tồn kho tổng thể tức là không có MaKho. Chuẩn là phải
  1/ Tính Tồn Kho theo số lượng của mỗi kho (làm theo DeMo nhưng bỏ phần Tiền đi). Sử dụng cho làm báo cáo thẻ kho luôn vì thẻ kho phải đi theo kho
  2/ Tính Nhập Xuất Tồn chung gồm cả phần Tiền và DGBQGQ (làm theo DeMo nhưng bỏ phần MaKho đi. Có thể lấy cái Table tblTonKho của DeMo rồi đưa ra query hoặc viết hàm để đưa ra table Nhập Xuất Tồn theo MaVT (Sum nó lại theo MaVT). Khi đó mới có DGBQGQ được
  
  Trong các chương trình tôi viết tôi luôn làm theo cách này

• RE: DeMo tính tồn kho cho nhiều kho dùng hai table Nhập Xuất riêng biệt

  Xuân Thanh > 09-04-20, 05:11 PM

  (09-04-20, 04:31 PM)ongke0711 Đã viết: Môt câu hỏi nữa là trong thực tế việc tính lại đơn giá BQGQ cho toàn bộ mã hàng chỉ thực hiện ở cuối tháng khi chốt sổ đúng không anh Thanh? 
  Còn trong tháng mỗi khi có nghiệp vụ Xuất thì có tính liền lúc đó không? 
  Nếu có tính BQGQ ngay thời điểm Xuất thì cuối tháng có cần cập nhật lại không?
  
  Lúc trước em có test trên CSDL lớn của anh ledangvan thì dùng code VBA tính lại giá BQGQ cho nhiều tháng nó chậm kinh khủng, chuyển qua dùng Query kết hợp thì cũng đỡ hơn chút thôi. Bây giờ mới nghĩ ra là chưa thử cách dùng mảng xem có cải thiện tốc độ không.

  
  1/ Việc tính DGBQGQ cuối tháng vẫn phải tính lại vì việc phát sinh nhập xuất trong tháng đó có sự thay đổi
  2/ Trong nghiệp vụ Xuất Kho có thể lấy giá Xuất theo Phiếu Nhập hoặc lấy theo DGBQGQ tùy theo mỗi đơn vị
  3/ Cách tính DGBQGQ cuối tháng có thể tính theo hai phương án
  3.1/ Lấy (Tiền Đầu Kỳ + Tổng Tiền Nhập Trong Tháng) / (Tồn Đầu Kỳ + Tổng Nhập Trong Tháng) để ra DGBQGQ trong tháng
  3.2/ Lấy Tiền Cuối Kỳ / Tồn Cuối Kỳ để ra DGBQGQ cho tháng sau. Khi Xuất Kho có thể lấy DGBQGQ này áp vào đơn giá Xuất
  Tùy theo cách tính của mỗi đơn vị mà làm cho phù hợp

• RE: DeMo tính tồn kho cho nhiều kho dùng hai table Nhập Xuất riêng biệt

  dotrung > 17-08-21, 06:11 AM

  Anh Thanh ơi, xin giúp em hàm TinhTonKho (TuNgay, DenNgay), với CSDL như trên với ạ, thanks anh!

• RE: DeMo tính tồn kho cho nhiều kho dùng hai table Nhập Xuất riêng biệt

  Xuân Thanh > 18-08-21, 11:12 AM

  Mã:

  Public Function TinhTonKho(TuNgay As Date, DenNgay As Date)
    Dim DB As DAO.Database, rnx As DAO.Recordset, rTonCu As DAO.Recordset, rTonNgay As DAO.Recordset
    Dim KhoaCu As String,  KhoaMoi As String
    Dim qryNX As QueryDef
    Dim TonDau As Double, TienDau As Double, MaKho As String, MaVT As String

    
    Set DB = CurrentDb
    Set qryNX = DB.QueryDefs("qryNhapXuat")    
    Set rTonNgay = DB.OpenRecordset("tblTonKhoNgay", dbOpenTable)
    If rTonNgay.Recordcount > 0 Then DB.Excute "Delete * From tblTonKhoNgay"
    rTonNgay.Index = "RecKey"
    
    GoSub LayTonDau
   
    If Day(TuNgay) > 1 Then
        qryNX.Parameters("TuNgay") = DateSerial(Year(TuNgay), Month(TuNgay),1)
        qryNX.Parameters("DenNgay") = TuNgay - 1
        Set rnx = qryNX.OpenRecordset
        GoSub CongThemTonDau            
    End If
    GoSub TinhTrongKy
    rTonNgay.Close: rTonCu.Close:  rnx.Close
    Set rTonNgay = Nothing: Set rTonCu = Nothing: Set rnx = Nothing
    Exit Function

'Lay Ton Dau Ky cua Thang TuNgay
LayTonDau:
    KhoaCu = Year(TuNgay) & Month(TuNgay)
    Set rTonCu = DB.OpenRecordset("Select * From tblTonKho Where Left(RecKey,6) = '" & KhoaCu & "'")
    If rTonCu.RecordCount > 0 Then rTonCu.MoveFirst
    Do Until rTonCu.EOF
        MaKho = rTonCu!MaKho: MaVT = rTonCu!MaVT: KhoaMoi = MaKho & "-" & MaVT
        TonDau = rTonCu!TonDau: TienDau = rTonCu!TienDau
        rTonNgay.Seek "=", KhoaMoi
        If rTonNgay.NoMatch Then
            rTonNgay.AddNew
            rTonNgay!RecKey = KhoaMoi: rTonNgay!MaKho = MaKho: rTonNgay!MaVT = MaVT
            rTonNgay!TonDau = TonDau: rTonNgay!TienDau = TienDau: rTonNgay!TongNhap = 0: rTonNgay!TienNhap = 0
            rTonNgay!TongXuat = 0: rTonNgay!TienXuat = 0: rTonNgay!TonCuoi = 0: rTonNgay!TienCuoi = 0
            rTonNgay.Update
        End If
        rTonCu.MoveNext
    Loop
    Return
     
'Cong them Ton Dau Ky khi TuNgay > 1
CongThemTonDau:
   
    If rnx.RecordCount > 0 Then rnx.MoveFirst
    Do Until rnx.EOF
        rTonNgay.Seek "=", rnx!MaKho & "-" & rnx!MaVT
        If rTonNgay.NoMatch Then            
            rTonNgay.AddNew
            rTonNgay.RecKey = rnx!MaKho & "-" & rnx!MaVT: rTonNgay!MaKho = rnx!MaKho: rTonNgay!MaVT = rnx!MaVT
            rTonNgay!TonDau = 0: rTonNgay!TienDau = 0: rTonNgay!TongNhap = 0: rTonNgay!TienNhap = 0
            rTonNgay!TongXuat = 0: rTonNgay!TienXuat = 0: rTonNgay!TonCuoi = 0: rTonNgay!TienCuoi = 0
            rTonNgay.Update
            rTonNgay.Bookmark = rTonNgay.LastModified
       End If

            rTonNgay.Edit
            If rnx!LoaiCT = "PN" Then
                rTonNgay!TonDau = rTonNgay!TonDau + rnx!SoLuong
                rTonNgay!TienDau = rTonNgay!TienDau + rnx!ThanhTien
            ElseIf rnx!LoaiCT = "PX" Then               
                rTonNgay!TonDau = rTonNgay!TonDau - rnx!SoLuong
                rTonNgay!TienDau = rTonNgay!TienDau - rnx!ThanhTien
            End If
            rTonNgay.Update            
        
        rnx.MoveNext
    Loop

    Return

 
'Tinh Nhap Xuat trong ky
TinhTrongKy:
    ryNX.Parameters("TuNgay") = TuNgay
    qryNX.Parameters("DenNgay") = DenNgay
    Set rnx = qryNX.OpenRecordset   
    If rnx.RecordCount > 0 Then rnx.MoveFirst
    Do Until rnx.EOF
        rTonNgay.Seek "=", rnx!MaKho & "-" & rnx!MaVT
        If rTonNgay.NoMatch Then
            rTonNgay.AddNew
            rTonNgay!RecKey = rnx!MaKho & "-" & rnx!MaVT
            rTonNgay!MaKho = rnx!MaKho
            rTonNgay!MaVT = rnx!MaVT
            rTonNgay!TonDau = 0: rTonNgay!TienDau = 0: rTonNgay!TongNhap = 0: rTonNgay!TienNhap = 0
            rTonNgay!TongXuat = 0: rTonNgay!TienXuat = 0: rTonNgay!TonCuoi = 0: rTonNgay!TienCuoi = 0
            rTonNgay.Update
            rTonNgay.Bookmark = rTonNgay.LastModified
        End If
        rTonNgay.Edit
        If rnx!LoaiCT = "PN" Then
            rTonNgay!TongNhap = rTonNgay!TongNhap + rnx!SoLuong
            rTonNgay!TienNhap = rTonNgay!TienNhap + rnx!ThanhTien
        ElseIf rnx!LoaiCT = "PX" Then
            rTonNgay!TongXuat = rTonNgay!TongXuat + rnx!SoLuong
            rTonNgay!TienXuat = rTonNgay!TienXuat + rnx!ThanhTien
        End If
        
        GoSub TinhTonCuoi
        rTonNgay.Update
        rnx.MoveNext
    Loop
 
    Return

'Tinh Ton Cuoi Ky
TinhTonCuoi:
    rTonNgay!TonCuoi = rTonNgay!TonDau + rTonNgay!TongNhap - rTonNgay!TongXuat
    rTonNgay!TienCuoi = rTonNgay!TienDau + rTonNgay!TienNhap - rTonNgay!TienXuat
    
    Return
 
End Function

  
  Thêm một table tblTonKhoNgay : RecKey, MaKho, MaVT, TonDau, TienDau, TongNhap, TienNhap, TongXuat, TienXuat, TonCuoi, TienCuoi
  
  
  P/S : Viết trực tiếp, chưa test. Lưu ý trước khi chạy code này phải thực hiện TinhTonKho(Month(TuNgay), Year(TuNgay)) nếu không sẽ không có kq đúng

• RE: DeMo tính tồn kho cho nhiều kho dùng hai table Nhập Xuất riêng biệt

  dotrung > 18-08-21, 07:13 PM

  Bị lỗi phần khai báo biến rTonNgay As DAO.Recordser nên em không chạy được ạ
• Bài trước Bài tiếp