📄 frmpurchasesalevoucher.frm
字号:
Height = 225
Index = 0
Left = 585
TabIndex = 27
Top = 555
Width = 1830
End
End
Begin VB.Frame fraVoucher
Height = 3525
Index = 1
Left = -72960
TabIndex = 19
Top = 975
Width = 5145
Begin VB.CommandButton cmdReceipt
Caption = "清除(&D)"
Height = 350
Index = 6
Left = 3765
TabIndex = 25
Top = 1140
Width = 1215
End
Begin VB.CommandButton cmdReceipt
Caption = "添加(&I)"
Height = 350
Index = 5
Left = 3750
TabIndex = 24
Top = 705
Width = 1215
End
Begin VB.ListBox lstRemark
Height = 2760
Left = 1245
TabIndex = 23
Top = 645
Width = 2340
End
Begin VB.TextBox txtRemark
Height = 300
Left = 1245
TabIndex = 21
Top = 240
Width = 3720
End
Begin VB.Label lblNote
AutoSize = -1 'True
Caption = "摘要范围(&K)"
Height = 180
Index = 4
Left = 180
TabIndex = 22
Top = 660
Width = 990
End
Begin VB.Label lblNote
Caption = "凭证摘要(&R)"
Height = 240
Index = 3
Left = 180
TabIndex = 20
Top = 300
Width = 1050
End
End
Begin VB.ComboBox cboActivityType
Height = 300
Left = 3885
Style = 2 'Dropdown List
TabIndex = 12
Top = 1245
Width = 2400
End
Begin VB.CommandButton cmdReceipt
Height = 350
Index = 4
Left = -68700
Style = 1 'Graphical
TabIndex = 10
Tag = "1010"
Top = 2355
UseMaskColor = -1 'True
Width = 1215
End
Begin VB.CommandButton cmdReceipt
Caption = "栏目设置(&M)"
Height = 350
Index = 3
Left = -68700
TabIndex = 9
Top = 1875
Width = 1215
End
Begin VB.CommandButton cmdReceipt
Caption = "全部取消(&U)"
Height = 350
Index = 2
Left = -68700
TabIndex = 8
Top = 1395
Width = 1215
End
Begin VB.CommandButton cmdReceipt
Caption = "条件选择(&F)"
Height = 350
Index = 1
Left = -68700
TabIndex = 7
Top = 1050
Width = 1215
End
Begin VB.CommandButton cmdReceipt
Caption = "全部选择(&A)"
Height = 350
Index = 0
Left = -68700
TabIndex = 6
Top = 705
Width = 1215
End
Begin MSFlexGridLib.MSFlexGrid msgReceipt
Bindings = "frmPurchaseSaleVoucher.frx":0070
Height = 4080
Left = -73260
TabIndex = 5
Top = 435
Width = 4485
_ExtentX = 7911
_ExtentY = 7197
_Version = 393216
Cols = 6
FixedCols = 0
SelectionMode = 1
FormatString = "AA|日期 |单据类型|单据号|制单 |金额 "
End
Begin VB.Image imgPS
BorderStyle = 1 'Fixed Single
Height = 4065
Index = 3
Left = -74880
Stretch = -1 'True
Tag = "140"
Top = 450
Width = 1575
End
Begin VB.Label lblNote
AutoSize = -1 'True
Caption = "凭证类型(&L)"
Height = 180
Index = 2
Left = -70245
TabIndex = 16
Top = 765
Width = 990
End
Begin VB.Label lblNote
AutoSize = -1 'True
Caption = "凭证模板(&B)"
Height = 180
Index = 1
Left = -72960
TabIndex = 13
Top = 735
Width = 990
End
Begin VB.Image imgPS
BorderStyle = 1 'Fixed Single
Height = 4065
Index = 2
Left = -74880
Stretch = -1 'True
Tag = "140"
Top = 450
Width = 1575
End
Begin VB.Label lblNote
AutoSize = -1 'True
Caption = "单据类型(&H)"
Height = 180
Index = 0
Left = 2685
TabIndex = 11
Top = 1305
Width = 990
End
Begin VB.Image imgPS
BorderStyle = 1 'Fixed Single
Height = 4065
Index = 1
Left = -74880
Stretch = -1 'True
Tag = "140"
Top = 450
Width = 1575
End
Begin VB.Image imgPS
BorderStyle = 1 'Fixed Single
Height = 4065
Index = 0
Left = 120
Stretch = -1 'True
Tag = "140"
Top = 450
Width = 1575
End
End
Begin VB.Line linEndBalance
BorderColor = &H80000005&
X1 = 90
X2 = 7695
Y1 = 4815
Y2 = 4815
End
End
Attribute VB_Name = "frmPurchaseSaleVoucher"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' 购销凭证
' 1998.7.7
' 作者：唐维勇
'
' 过程：
' SetManner 设置向导方式：应收应付、现金银行、商品业务
' InitStep 向导每步初始化
' ValidStep 向导每步合法检查
' Execute 向导完成后需执行的操作
' InitVoucherModel 设置凭证模板
' GenVoucher 生成凭证
' GenVoucherDetail 生成凭证分录
' SetModelAccount 根据模板取科目
' SetModelAmount 根据模板取金额
'
' 注释：
' 凭证模板明细（长整型）含义
' 科目来源 + 方向 + 分录顺序 + 金额来源 + 分录产生条件 + 分录其他金额 + 金额<0时反向 + 是否补差 + 自定义
' XXXXXX(6) XX(2) XXX(3) XXXXX(5) XXX(4) XXXXX(5) X(1) X(1) X(4)
' 科目来源：由枚举enumPSAccountSource定义
' 方向 ：由枚举enumAccountDirection定义
' 金额来源：由枚举enumPSAmountSource定义
' 分录顺序：分录序号（4）+模板类型（7）+辅助为（1）
' 分录条件：由枚举enumPSCondFlag定义
' 其他金额：由枚举enumPSAmountSource定义
' 是否反向：金额<0时反向:0=不反向、1=反向
'
' 分录顺序：分录与其他分录区别标志
' 分录序号（4）+模板类型（7）+辅助位（1）
' 分录序号：顺序号
' 分录模板：凭证模板号
' 辅助位 ：1，保证分录顺序取值必须大于0
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Option Explicit
Private Const HelpID = 30004
'凭证模板
Private Type psVoucherModel
intDetailNum As Integer
Detail() As Long '定义凭证科目、方向、金额来源
End Type
'凭证模板次序号
Private Const psvoInPurchase = 0 '采购
Private Const psvoInPurchaseInvoice = 1 '采购发票
Private Const psvoInDirectPurchase = 2 '直运采购
Private Const psvoInBorrow = 3 '受托入库
Private Const psvoInEntrust = 4 '加工入库
Private Const psvoInEntrustExpense = 5 '加工费用
Private Const psvoInSelf = 6 '自制入库
Private Const psvoInOther = 6 '其他入库
Private Const psvoInStock = 7 '盘盈入库
Private Const psvoOutSale = 8 '销售出库
Private Const psvoOutSaleInvoice = 9 '销售发票
Private Const psvoOutLendSettlement = 10 '委托结算
Private Const psvoOutStageSettlement = 11 '分期结算
Private Const psvoOutBorrowSaleAsCharge = 12 '受托（手续费）
Private Const psvoOutBorrowSaleAsPurchase = 13 '受托（自购自销）
Private Const psvoOutDirectSale = 14 '直运销售
Private Const psvoOutLend = 15 '委托出库
Private Const psvoOutEntrust = 16 '加工出库
Private Const psvoOutStage = 17 '分期出库
Private Const psvoOutCostAdjust = 18 '成本调整
Private Const psvoOutStock = 19 '盘亏出库
Private Const psvoOutSelf = 20 '领用出库
Private Const psvoOutOther = 21 '其他出库
Private Const psvoBorrowPrice = 22 '受托调价
Private Const psvoInLendMove = 0 '委托调拨（调入）（不作凭证）
Private Const psvoOutLendMove = 0 '委托调拨（调出）（不作凭证）
Private Const psvoLendPrice = 0 '委托调价（不作凭证）
Private Const psvoInInventoryMove = 0 '调拨（调入）（不作凭证）
Private Const psvoOutInventoryMove = 0 '调拨（调出）（不作凭证）
Private Const psvoInVentoryPrice = 23 '调价
Private Const psvoInAssemble = 24 '组装入库
Private Const psvoOutAssemble = 24 '组装出库
Private Const psvoInApart = 24 '拆卸入库
Private Const psvoOutApart = 24 '拆卸出库
Private Const psvoDebitAR = 25 '应收借项
Private Const psvoDebitAP = 25 '应付借项
Private Const psvoReceipt = 25 '收款
Private Const psvoFinanCharge = 25 '财务费用
Private Const psvoCreditAR = 26 '应收贷项
Private Const psvoCreditAP = 26 '应付贷项
Private Const psvoPayment = 26 '付款
Private Const psvoInExpense = 27 '费用（进）
Private Const psvoOutExpense = 28 '费用（出）
Private Const psvoInBorrowSettlement = 29 '受托结算
Private Const psvoInGuestPurchase = 30 '暂估采购
Private Const psvoFundOpen = 31 '开户
Private Const psvoFundClose = 32 '销户
Private Const psvoFundIn = 33 '汇缴收入
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -