|
Dim a, b, c, d, e, f, g, h, bb, j, k, l, m, n, p, q, R, s, t, u, v, w, X, Y, Z, aa, cc, DD, ee, ff As Single
Dim pr As Currency
Dim pr2 As Currency
pr = Nz(DLookup(Me.工序名称, "产品表查询", "[产品编号]=" & 产品编号.Value), 0)
pr2 = Nz(DLookup("彩绘单价", "产品表查询", "[产品编号]=" & 产品编号.Value), 0)
a = DLookup("倍数", "样品计件参数", "[序号] = 1") '1--2 8倍 彩样
b = DLookup("倍数", "样品计件参数", "[序号] = 2") '3--4 6倍 彩样
c = DLookup("倍数", "样品计件参数", "[序号] = 3") '5--6 5倍 彩样
d = DLookup("倍数", "样品计件参数", "[序号] = 4") '7--10 4倍 彩样
e = DLookup("倍数", "样品计件参数", "[序号] = 5") '11--30 3倍 彩样
f = DLookup("倍数", "样品计件参数", "[序号] = 6") '31--99 1.5倍 彩样
g = DLookup("倍数", "样品计件参数", "[序号] = 12") '100PC以上 彩样
h = DLookup("倍数", "样品计件参数", "[序号] = 7") '1--2 白样
bb = DLookup("倍数", "样品计件参数", "[序号] = 8") '3--4 白样
j = DLookup("倍数", "样品计件参数", "[序号] = 9") '5--6 白样
k = DLookup("倍数", "样品计件参数", "[序号] = 10") '7--10 白样
l = DLookup("倍数", "样品计件参数", "[序号] = 27") '11--20 白样
m = DLookup("倍数", "样品计件参数", "[序号] = 28") '21--30 白样
n = DLookup("倍数", "样品计件参数", "[序号] = 29") '31--99 白样
p = DLookup("倍数", "样品计件参数", "[序号] = 14") '100以上 白样
q = DLookup("倍数", "样品计件参数", "[序号] = 22") '1--2 白坯大线
R = DLookup("倍数", "样品计件参数", "[序号] = 23") '3--4 白坯大线
s = DLookup("倍数", "样品计件参数", "[序号] = 24") '5--6 白坯大线
t = DLookup("倍数", "样品计件参数", "[序号] = 25") '7--10 白坯大线
u = DLookup("倍数", "样品计件参数", "[序号] = 26") '11-20 白坯大线
v = DLookup("倍数", "样品计件参数", "[序号] = 30") '21--30 白坯大线
w = DLookup("倍数", "样品计件参数", "[序号] = 25") '31--99 白坯大线
X = DLookup("倍数", "样品计件参数", "[序号] = 26") '100以上 白坯大线
Y = DLookup("倍数", "样品计件参数", "[序号] = 16") '1--10 彩绘大线
Z = DLookup("倍数", "样品计件参数", "[序号] = 17") '11--30 彩绘大线
aa = DLookup("倍数", "样品计件参数", "[序号] = 18") '31--99 彩绘大线
cc = DLookup("倍数", "样品计件参数", "[序号] = 11") '100以上 彩绘大线
ee = DLookup("倍数", "样品计件参数", "[序号] = 21") '1-99 包装大线
ff = DLookup("倍数", "样品计件参数", "[序号] = 33") '100以上 包装大线
Me.单价 = Nz(DLookup(Me.工序名称, "产品表查询", "[产品编号]=" & 产品编号.Value), 0)
If [单据类型] = "CH" Then
'==彩样室=
If Me.样品单 = True Then
If Me.[部门] = "8" Then
Me.单价 = pr2
If Me.订单量 >= 1 And Me.订单量 <= 2 Then '1---2
Me.单价2 = pr2 * a
ElseIf Me.订单量 >= 3 And Me.订单量 <= 4 Then '3---4
Me.单价2 = pr2 * b
ElseIf Me.订单量 >= 5 And Me.订单量 <= 6 Then '5---6
Me.单价2 = pr2 * c
ElseIf Me.订单量 >= 7 And Me.订单量 <= 10 Then '7--10
Me.单价2 = pr2 * d
ElseIf Me.订单量 >= 11 And Me.订单量 <= 30 Then '11---30
Me.单价2 = pr2 * e
ElseIf Me.订单量 >= 31 And Me.订单量 <= 99 Then '31---99
Me.单价2 = pr2 * f
ElseIf Me.订单量 >= 100 Then '100以上
Me.单价2 = pr2 * g
End If
ElseIf Me.部门 = "1" Then
If Me.订单量 >= 1 And Me.订单量 <= 2 Then
Me.单价2 = pr * q
ElseIf Me.订单量 >= 3 And Me.订单量 <= 4 Then
Me.单价2 = pr * R
ElseIf Me.订单量 >= 5 And Me.订单量 <= 6 Then
Me.单价2 = pr * s
ElseIf Me.订单量 >= 7 And Me.订单量 <= 10 Then
Me.单价2 = pr * t
ElseIf Me.订单量 >= 11 And Me.订单量 <= 20 Then
Me.单价2 = pr * u
ElseIf Me.订单量 >= 21 And Me.订单量 <= 30 Then
Me.单价2 = pr * v
ElseIf Me.订单量 >= 31 And Me.订单量 <= 99 Then
Me.单价2 = pr * w
ElseIf Me.订单量 > 100 Then
Me.单价2 = pr * X
End
'=白样室=
ElseIf Me.部门 = "24" Then
If Me.订单量 >= 1 And Me.订单量 <= 2 Then
Me.单价2 = pr * h
ElseIf Me.订单量 >= 3 And Me.订单量 <= 4 Then
Me.单价2 = pr * bb
ElseIf Me.订单量 >= 5 And Me.订单量 <= 6 Then
Me.单价2 = pr * j
ElseIf Me.订单量 >= 7 And Me.订单量 <= 10 Then
Me.单价2 = pr * k
ElseIf Me.订单量 >= 11 And Me.订单量 <= 20 Then
Me.单价2 = pr * l
ElseIf Me.订单量 >= 21 And Me.订单量 <= 30 Then
Me.单价2 = pr * m
ElseIf Me.订单量 >= 31 And Me.订单量 <= 99 Then
Me.单价2 = pr * n
ElseIf Me.订单量 > 100 Then
Me.单价2 = pr * p
End If
Else
Me.单价2 = pr
End If
ElseIf Me.样品单 = False Then '生产大货
'=彩样室===
If Me.[部门] = "8" Then
If Me.订单量 >= 1 And Me.订单量 <= 99 Then
Me.单价2 = pr * 1.5
ElseIf Me.订单量 >= 100 Then
Me.单价2 = pr
End If
'==白样==
ElseIf Me.[部门] = "24" Then
Me.单价2 = pr * 1.5
'=其它部门
Else
Me.单价2 = pr '原价
End If
End If
ElseIf [单据类型] = "LL1" Then
Me.单价2 = pr
End If
[ 本帖最后由 laiguiyou 于 2007-8-16 08:25 编辑 ] |
|