多單位處理的問題?

显示全部楼层 · 2006-4-15 17:49:55

有一張物料表,添加上主單位,計量單位(可以理解成包裝單位1),包裝單位2,換算數量(兩個字段),那麼以后在進貨,銷貨,領料中,如何通過sql寫函數解決多單位的問題?
舉一個例子:
例如杯子12隻＝1打，24打＝1箱，故主單位為隻，計量(包裝一)單位是打，(包裝一)換算數量是12，(包裝二)單位是箱，(包裝二)換算數量是288，即12*24.這反映了一种物料多單位的問題.
還一种例外情況是主單位與計量單位的換算數量可能會有不同:
比如在A供貨商買一串上面有100PCS,但在B供貨商買一串上面可能只有90PCS,所以這种單位換算是不固定的.

千问 · 2006-4-15 17:49:55

Private Sub Command1_Click()
Dim i As Double
Dim str As String
Dim a() As Double

ReDim a(0 To 10)

Dim Number As Integer

If Not IsNumeric(Text1.Text) Then
MsgBox "something wrong! You must input a Number"
Exit Sub
End If

Number = Val(Text1.Text)

i = Int(Number / (24 * 12))

If i < 1 Then

a(0) = Int(Number / 12)
a(1) = Number Mod 12
a(2) = Int(a(0) / 24)
a(3) = a(1) Mod 24
Print a(0) & "打" & " " & a(1) & "双"

Else

a(0) = Number Mod 288
a(1) = Int(a(0) / 24)
If a(1) < 1 Then

a(2) = Int(a(0) / 12)

a(3) = a(0) Mod 12

str = Int(a(2)) & "打" & "" & Int(a(3)) & "双"
Else

a(2) = a(1) Mod 24

a(3) = Int(a(2) / 12)

a(4) = a(2) Mod 12

str = Int(a(1)) & "打" & " " & Int(a(4)) & "双"
End If

Print Int(i) & "箱" & " " & str
End If
End Sub

千问 · 2006-4-15 17:49:55

500=1箱8打8双
289=1箱0打1双

千问 · 2006-4-15 17:49:55

不知道你的题目是不是这个意思啊?

千问 · 2006-4-15 17:49:55

我要的是用SQL寫的一個通用的能處理上面兩個問題的函數,現在的ERP都有處理多單位的功能.

千问 · 2006-4-15 17:49:55

500=1箱8打8双
289=1箱0打1双???你数据库里要怎么存啊!,,,
你举个例子看一下子!
500双?要存到数据库里是怎么样?

千问 · 2006-4-15 17:49:55

我不知你有沒有看懂我的問題?如果看懂的話,應該知道我的需求了.
上午想了很久,終於想出了解決的辦法.如果各位仁兄有更好的解決之道,
請不吝賜教!

千问 · 2006-4-15 17:49:55

自個兒頂一下!

千问 · 2006-4-15 17:49:55

這里的高手如云,編程的仁兄肯定遇到過類似的問題,請大家支支招!

千问 · 2006-4-15 17:49:55

難道沒人頂了嗎?我來頂一下.