📄 clsorder.cls
字号:
ReceiptType(2).strReceiptTypeName = "商品采购"
ReceiptType(2).lngReceiptID = 2
ReceiptType(3).lngReceiptTypeID = 3
ReceiptType(3).strReceiptTypeName = "直运采购"
ReceiptType(3).lngReceiptID = 2
ReceiptType(4).lngReceiptTypeID = 4
ReceiptType(4).strReceiptTypeName = "受托入库"
ReceiptType(4).lngReceiptID = 2
ReceiptType(5).lngReceiptTypeID = 5
ReceiptType(5).strReceiptTypeName = "受托结算"
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) = "Term" '付款条件
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" '商品单位表
TabName(29) = "Tax" '税率
TabName(30) = "TransVoucher" '转帐凭证
TabName(31) = "Paymentmethod" '付款方式
TabName(32) = "" '发票类型
TabName(33) = "Item" '特殊的商品
TabName(34) = "Operator" '操作员
End Sub
Private Sub Class_Initialize()
' Set MyRecordClass = New RecordClass
intGrdBorderWidth = Screen.TwipsPerPixelX
intGrdBorderHeight = Screen.TwipsPerPixelY
InitTabName
InitReceiptArray
Dim intCur As Integer
Dim intRate As Integer
CurRateDec gclsBase.NaturalCurId, intCur, intRate
strCurDec = FormatString(intCur)
strDec = strCurDec
strRateDec = FormatString(intRate)
End Sub
'---------------------------------
'确定GRID上的某一行是否为空行
'出口：为TRUE时不是空行为FALSE时是空行
'---------------------------------
Public Function blnNotNullRow(ByVal lngRow As Long) As Boolean
If C2lng(frmName.GrdCol.TextMatrix(lngRow, ColProperty(1).bytGrdIDCol)) <> 0 Then
blnNotNullRow = True
Else
blnNotNullRow = False
End If
End Function
'--------------------------------------
'在GRID上删除一行
'入口：行号
'--------------------------------------
Public Function blnDeleteARow(ByVal lngRow As Long) As Boolean
If UCase(frmName.Name) = "FRMSALEORDER" Then
AdjustDiscInfoRowNO DiscInfos, lngRow, False
End If
blnDeleteARow = True
End Function
'------------------------------
'在GRID上写红字
'------------------------------
Public Sub WriteGrd(ByVal strText As String, ByVal lngRow As Long, ByVal lngCol As Long, Optional blnBackRowCol As Boolean = True)
' Dim lngR As Long, lngC As Long
' Dim blnB As Boolean
' Dim i As Integer
' Dim strTmp As String
'
' If lngRow > frmName.grdCol.Rows - 1 Or lngCol > frmName.grdCol.Cols - 1 Or _
' lngRow < 0 Or lngCol < 0 Then
' Exit Sub
' End If
' If frmName.grdCol.ColAlignment(lngCol) = flexAlignRightCenter Then
' blnB = My.blnCtrlBinding
' My.blnRefresh = False
' My.blnCtrlBinding = False
' lngR = frmName.grdCol.Row
' lngC = frmName.grdCol.col
' frmName.grdCol.Row = lngRow
' frmName.grdCol.col = lngCol
'
' Select Case lngCol
' Case 4, 5
' strTmp = Format(Abs(C2Dbl(strText)), FormatString(gclsBase.PriceDec))
' frmName.grdCol.TextMatrix(lngRow, lngCol) = strTmp
' Case 6
' strTmp = Format(Abs(C2Dbl(strText)), "0.00")
' frmName.grdCol.TextMatrix(lngRow, lngCol) = strTmp
' Case 7, 9, 14 '原币金额类小数位处理
'' frmName.grdCol.TextMatrix(lngRow, lngCol) = Format(Abs(C2Dbl(strText)), "0.00")
' strTmp = Format(Abs(C2Dbl(strText)), strCurDec)
' frmName.grdCol.TextMatrix(lngRow, lngCol) = strTmp
' Case 8, 10, 15 '本币金额类小数位处理
'' frmName.grdCol.TextMatrix(lngRow, lngCol) = Format(Abs(C2Dbl(strText)), "0.00")
' strTmp = Format(Abs(C2Dbl(strText)), strDec)
' frmName.grdCol.TextMatrix(lngRow, lngCol) = strTmp
' Case Else
' If C2Dbl((strText)) > 0 Then
' frmName.grdCol.TextMatrix(lngRow, lngCol) = strText
' ElseIf C2Dbl((strText)) < 0 Then
' frmName.grdCol.TextMatrix(lngRow, lngCol) = Right(strText, Len(strText) - 1)
' Else
' frmName.grdCol.TextMatrix(lngRow, lngCol) = ""
' End If
' End Select
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -