📄 itemadjust.cls
字号:
ReceiptType(5).lngReceiptID = 2
ReceiptType(6).lngReceiptTypeID = 6
ReceiptType(6).strReceiptTypeName = "加工入库"
ReceiptType(6).lngReceiptID = 2
ReceiptType(7).lngReceiptTypeID = 7
ReceiptType(7).strReceiptTypeName = "加工费用"
ReceiptType(7).lngReceiptID = 2
ReceiptType(8).lngReceiptTypeID = 8
ReceiptType(8).strReceiptTypeName = "采购发票"
ReceiptType(8).lngReceiptID = 2
ReceiptType(9).lngReceiptTypeID = 9
ReceiptType(9).strReceiptTypeName = "自制入库"
ReceiptType(9).lngReceiptID = 2
ReceiptType(10).lngReceiptTypeID = 10
ReceiptType(10).strReceiptTypeName = "盘盈入库"
ReceiptType(10).lngReceiptID = 2
ReceiptType(11).lngReceiptTypeID = 11
ReceiptType(11).strReceiptTypeName = "其他入库"
ReceiptType(11).lngReceiptID = 2
ReceiptType(12).lngReceiptTypeID = 12
ReceiptType(12).strReceiptTypeName = "销售订单"
ReceiptType(12).lngReceiptID = 3
ReceiptType(13).lngReceiptTypeID = 13
ReceiptType(13).strReceiptTypeName = "商品销售"
ReceiptType(13).lngReceiptID = 4
ReceiptType(14).lngReceiptTypeID = 14
ReceiptType(14).strReceiptTypeName = "直运销售"
ReceiptType(14).lngReceiptID = 4
ReceiptType(15).lngReceiptTypeID = 15
ReceiptType(15).strReceiptTypeName = "委托出库"
ReceiptType(15).lngReceiptID = 4
ReceiptType(16).lngReceiptTypeID = 16
ReceiptType(16).strReceiptTypeName = "委托结算"
ReceiptType(16).lngReceiptID = 4
ReceiptType(17).lngReceiptTypeID = 17
ReceiptType(17).strReceiptTypeName = "加工出库"
ReceiptType(17).lngReceiptID = 4
ReceiptType(18).lngReceiptTypeID = 18
ReceiptType(18).strReceiptTypeName = "分期出库"
ReceiptType(18).lngReceiptID = 4
ReceiptType(19).lngReceiptTypeID = 19
ReceiptType(19).strReceiptTypeName = "分期结算"
ReceiptType(19).lngReceiptID = 4
ReceiptType(20).lngReceiptTypeID = 20
ReceiptType(20).strReceiptTypeName = "销售发票"
ReceiptType(20).lngReceiptID = 4
ReceiptType(21).lngReceiptTypeID = 21
ReceiptType(21).strReceiptTypeName = "领用出库"
ReceiptType(21).lngReceiptID = 4
ReceiptType(22).lngReceiptTypeID = 22
ReceiptType(22).strReceiptTypeName = "成本调整"
ReceiptType(22).lngReceiptID = 4
ReceiptType(23).lngReceiptTypeID = 23
ReceiptType(23).strReceiptTypeName = "盘亏出库"
ReceiptType(23).lngReceiptID = 4
ReceiptType(24).lngReceiptTypeID = 24
ReceiptType(24).strReceiptTypeName = "其他出库"
ReceiptType(24).lngReceiptID = 4
ReceiptType(25).lngReceiptTypeID = 25
ReceiptType(25).strReceiptTypeName = "受托调价"
ReceiptType(25).lngReceiptID = 5
ReceiptType(26).lngReceiptTypeID = 26
ReceiptType(26).strReceiptTypeName = "代销调拨"
ReceiptType(26).lngReceiptID = 6
ReceiptType(27).lngReceiptTypeID = 27
ReceiptType(27).strReceiptTypeName = "代销调价"
ReceiptType(27).lngReceiptID = 7
ReceiptType(28).lngReceiptTypeID = 28
ReceiptType(28).strReceiptTypeName = "商品调拨"
ReceiptType(28).lngReceiptID = 8
ReceiptType(29).lngReceiptTypeID = 29
ReceiptType(29).strReceiptTypeName = "商品调价"
ReceiptType(29).lngReceiptID = 9
ReceiptType(30).lngReceiptTypeID = 30
ReceiptType(30).strReceiptTypeName = "商品组装"
ReceiptType(30).lngReceiptID = 10
ReceiptType(31).lngReceiptTypeID = 31
ReceiptType(31).strReceiptTypeName = "商品拆卸"
ReceiptType(31).lngReceiptID = 10
ReceiptType(32).lngReceiptTypeID = 32
ReceiptType(32).strReceiptTypeName = "入库成本"
ReceiptType(32).lngReceiptID = 11
ReceiptType(33).lngReceiptTypeID = 33
ReceiptType(33).strReceiptTypeName = "商品盘点"
ReceiptType(33).lngReceiptID = 12
ReceiptType(34).lngReceiptTypeID = 34
ReceiptType(34).strReceiptTypeName = "应付贷项"
ReceiptType(34).lngReceiptID = 13
ReceiptType(35).lngReceiptTypeID = 35
ReceiptType(35).strReceiptTypeName = "应付借项"
ReceiptType(35).lngReceiptID = 13
ReceiptType(36).lngReceiptTypeID = 36
ReceiptType(36).strReceiptTypeName = "应收借项"
ReceiptType(36).lngReceiptID = 14
ReceiptType(37).lngReceiptTypeID = 37
ReceiptType(37).strReceiptTypeName = "应收贷项"
ReceiptType(37).lngReceiptID = 14
ReceiptType(38).lngReceiptTypeID = 38
ReceiptType(38).strReceiptTypeName = "财务费用"
ReceiptType(38).lngReceiptID = 14
ReceiptType(39).lngReceiptTypeID = 39
ReceiptType(39).strReceiptTypeName = "付款单"
ReceiptType(39).lngReceiptID = 15
ReceiptType(40).lngReceiptTypeID = 40
ReceiptType(40).strReceiptTypeName = "收款单"
ReceiptType(40).lngReceiptID = 16
ReceiptType(41).lngReceiptTypeID = 41
ReceiptType(41).strReceiptTypeName = "记帐凭证"
ReceiptType(41).lngReceiptID = 17
ReceiptType(42).lngReceiptTypeID = 42
ReceiptType(42).strReceiptTypeName = "库存商品"
ReceiptType(42).lngReceiptID = 18
ReceiptType(43).lngReceiptTypeID = 43
ReceiptType(43).strReceiptTypeName = "受托代销"
ReceiptType(43).lngReceiptID = 18
ReceiptType(44).lngReceiptTypeID = 44
ReceiptType(44).strReceiptTypeName = "委托代销"
ReceiptType(44).lngReceiptID = 18
ReceiptType(45).lngReceiptTypeID = 45
ReceiptType(45).strReceiptTypeName = "分期商品"
ReceiptType(45).lngReceiptID = 18
ReceiptType(46).lngReceiptTypeID = 46
ReceiptType(46).strReceiptTypeName = "直运商品"
ReceiptType(46).lngReceiptID = 18
ReceiptType(47).lngReceiptTypeID = 47
ReceiptType(47).strReceiptTypeName = "委托加工"
ReceiptType(47).lngReceiptID = 18
ReceiptType(48).lngReceiptTypeID = 48
ReceiptType(48).strReceiptTypeName = "固资增加"
ReceiptType(48).lngReceiptID = 19
ReceiptType(49).lngReceiptTypeID = 49
ReceiptType(49).strReceiptTypeName = "固资减少"
ReceiptType(49).lngReceiptID = 19
ReceiptType(50).lngReceiptID = 50
ReceiptType(50).strReceiptTypeName = "其它变动"
ReceiptType(50).lngReceiptID = 19
ReceiptType(51).lngReceiptTypeID = 51
ReceiptType(51).strReceiptTypeName = "固资卡片"
ReceiptType(51).lngReceiptID = 20
End Sub
Private Sub InitTabName()
TabName(1) = "Customer" '单位
TabName(2) = "Department" '部门
TabName(3) = "Employee" '业务员
TabName(4) = "Class1" '统计
TabName(5) = "Currencys" '币种
TabName(6) = "Paymentmethod" '付款方式
TabName(7) = "Account" '科目
TabName(8) = "Item" '商品
TabName(9) = "Job" '工程
TabName(10) = "Position" '货位
TabName(11) = "Remark" '摘要
TabName(12) = "Custom1" '自定义项目1
TabName(13) = "Custom2" '自定义项目2
TabName(14) = "Custom3" '自定义项目3
TabName(15) = "Custom4" '自定义项目4
TabName(16) = "Custom5" '自定义项目5
TabName(17) = "Class2" '项目
TabName(18) = "Rate" '汇率
TabName(19) = "VoucherType" '凭证类型
TabName(20) = "Custom0" '自定义项目0
TabName(21) = "Template" '单据模版
TabName(22) = "AccountType" '科目类型
TabName(23) = ""
TabName(24) = "CustomerAddress" '单位发货地址
TabName(25) = "CustomerBank" '单位开户银行
TabName(26) = "BusinessAddress" '企业发货地址
TabName(27) = "BusinessBank" '企业开户银行
TabName(28) = "ItemUnit" '商品单位表
End Sub
Private Sub Class_Initialize()
intGrdBorderWidth = Screen.TwipsPerPixelX
intGrdBorderHeight = Screen.TwipsPerPixelY
InitTabName
InitReceiptArray
End Sub
'---------------------------------
'确定GRID上的某一行是否为空行
'出口：为TRUE时不是空行为FALSE时是空行
'---------------------------------
Public Function blnNotNullRow(ByVal lngRow As Long) As Boolean
Dim intI As Integer
blnNotNullRow = IIf(C2lng(frmName.GrdCol.TextMatrix(lngRow, ColProperty(1).bytGrdIDCol)) > 0, True, False)
' For intI = 0 To frmName.grdCol.Cols - 1
' If frmName.grdCol.TextMatrix(lngRow, intI) <> "" And frmName.grdCol.TextMatrix(lngRow, intI) <> "0" Then
' blnNotNullRow = True
' Exit Function
' End If
' Next
End Function
'------------------------------
'在GRID上写红字
'------------------------------
Public Sub WriteGrd(ByVal strText As String, ByVal lngRow As Long, ByVal lngCol As Long)
Dim lngR As Long, lngC As Long
Dim blnB As Boolean
Dim strNew As String
Dim blnOldR As Boolean
If lngCol > frmName.GrdCol.Cols - 1 Then
PutTextToRowProperty lngRow, lngCol, strText
Exit Sub
End If
If lngRow > frmName.GrdCol.Rows - 1 Or lngCol > frmName.GrdCol.Cols - 1 Or _
lngRow < 0 Or lngCol < 0 Then
Exit Sub
End If
strText = Trim(strText)
If ColProperty(lngCol).lngCtrType = tCurrency Then
If C2Dbl(strText) = 0 Then
frmName.GrdCol.TextMatrix(lngRow, lngCol) = ""
Exit Sub
End If
End If
If ColProperty(lngCol).lngCtrType = tCurrency And Len(strText) > 0 Then
blnOldR = My.blnRefresh
My.blnRefresh = False
lngR = frmName.GrdCol.Row
lngC = frmName.GrdCol.col
frmName.GrdCol.Row = lngRow
frmName.GrdCol.col = lngCol
strNew = Left(strText, 1)
If strNew = "-" Then
frmName.GrdCol.CellForeColor = RGB(255, 0, 0)
If frmName.Name = "frmAdjustPrice" Then
If lngCol = 4 Or lngCol = 6 Then
frmName.GrdCol.TextMatrix(lngRow, lngCol) = Format(Mid(strText, 2), FormatString(gclsBase.PriceDec))
ElseIf lngCol = 7 Or lngCol = 8 Then
frmName.GrdCol.TextMatrix(lngRow, lngCol) = Format(Mid(strText, 2), FormatString(gclsBase.NaturalCurDec))
Else
frmName.GrdCol.TextMatrix(lngRow, lngCol) = Mid(strText, 2)
End If
Else
frmName.GrdCol.TextMatrix(lngRow, lngCol) = Mid(strText, 2)
End If
' ElseIf Val(strText) = 0 Then
' frmName.grdCol.CellForeColor = RGB(0, 0, 0)
' frmName.grdCol.TextMatrix(lngRow, lngCol) = ""
Else
If frmName.Name = "frmAdjustPrice" Then
If lngCol = 4 Or lngCol = 6 Then
frmName.GrdCol.TextMatrix(lngRow, lngCol) = Format(strText, FormatString(gclsBase.PriceDec))
ElseIf lngCol = 7 Or lngCol = 8 Then
frmName.GrdCol.TextMatrix(lngRow, lngCol) = Format(strText, FormatString(gclsBase.NaturalCurDec))
Else
frmName.GrdCol.TextMatrix(lngRow, lngCol) = strText
End If
Else
If C2Dbl(strText) = 0 Then
frmName.GrdCol.TextMatrix(lngRow, lngCol) = ""
Else
frmName.GrdCol.TextMatrix(lngRow, lngCol) = strText
End If
End If
frmName.GrdCol.CellForeColor = RGB(0, 0, 0)
End If
frmName.GrdCol.Row = lngR
frmName.GrdCol.col = lngC
My.blnRefresh = blnOldR
Else
frmName.GrdCol.TextMatrix(lngRow, lngCol) = strText
End If
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -