thdanh > 22-07-19, 03:09 PM
tranthanhan1962 > 22-07-19, 05:12 PM
thdanh > 22-07-19, 10:01 PM
(22-07-19, 05:12 PM)tranthanhan1962 Đã viết: Tính trung bình giá hàng hóa thường đưa vào tồn kho để tính giá vốn - từ giá vốn hàng hóa sẽ tính được lời lỗ (giá bán - giá vốn), sẽ có 2 cách tính, 1/Nhập giá nào xuất vốn giá đó, 2/Tính giá vốn xuất bằng phương pháp bình quân gia quyền. Không thể xử lý giá nhập mới bằng cách cập nhật đè giá được. Vì giá nhập là giá thực tế cho từng đơn hàng, Cập nhật như vậy sẽ làm sai giá trị đơn hàng và sai nguyên lý kế toán, nên không ai làm chuyện này cả.Đầu tiên Mình rất cảm ơn bác Tranthanhan1962 đã giải thích cho mình hiểu nhưng mà hiện tại mình chỉ cần tạm thời là làm đơn giản vậy thôi chứ ko quá phức tạp. Vì mình cũng ko rành lắm về viết code nên mài mò làm được thế là mình cảm thấy vui rồi. Mong bác có thể hướng dẫn mình làm cách của mình. Mình vô cùng biết ơn!
Trên access để làm được chuyện này phải có máy đủ mạnh, nếu không sẽ xảy ra việc đứng máy. vì các nguyên nhân:
1/Nhập giá nào xuất vốn giá đó: Phương pháp này làm lượng tên hàng tăng rất lớn, ví dụ Với một tên Mì ViFon sẽ có các mã hàng phụ là Mì ViFon15000, Mì ViFon18000, Mì ViFon20000, khi tách giá vốn 1500, 1800, 2000 từ mã hàng phụ thì tính được tiền lãi.
2/Tính giá vốn xuất bằng phương pháp bình quân gia quyền, sử dụng phương pháp này phải viết một function hoặc sub để mỗi lần chạy tồn kho sẽ chạy lại giá vốn từ thời điểm sữa chữa CSDL sử dụng càng lâu thì đoạn mã xử lý sẽ càng nặng.
tranthanhan1962 > 23-07-19, 01:13 AM
Public Function fExtractNumeric(strInput) As String
' Returns the numeric characters within a string in
' sequence in which they are found within the string
Dim strResult As String, strCh As String
Dim intI As Integer
If Not IsNull(strInput) Then
For intI = 1 To Len(strInput)
strCh = Mid(strInput, intI, 1)
Select Case strCh
Case "0" To "9"
strResult = strResult & strCh
Case Else
End Select
Next intI
End If
fExtractNumeric = strResult
End Functionthdanh > 24-07-19, 09:08 AM