📄
字号:
Left = 90
TabIndex = 3
Top = 90
Width = 9195
_cx = 5080
_cy = 5080
Appearance = 1
BorderStyle = 1
Enabled = -1 'True
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
MousePointer = 0
BackColor = -2147483643
ForeColor = -2147483640
BackColorFixed = -2147483633
ForeColorFixed = -2147483630
BackColorSel = -2147483643
ForeColorSel = -2147483640
BackColorBkg = 8421504
BackColorAlternate= -2147483643
GridColor = -2147483633
GridColorFixed = -2147483632
TreeColor = -2147483632
FloodColor = 192
SheetBorder = -2147483642
FocusRect = 1
HighLight = 1
AllowSelection = -1 'True
AllowBigSelection= -1 'True
AllowUserResizing= 0
SelectionMode = 0
GridLines = 1
GridLinesFixed = 2
GridLineWidth = 1
Rows = 5000
Cols = 10
FixedRows = 1
FixedCols = 0
RowHeightMin = 0
RowHeightMax = 0
ColWidthMin = 0
ColWidthMax = 0
ExtendLastCol = 0 'False
FormatString = ""
ScrollTrack = 0 'False
ScrollBars = 3
ScrollTips = 0 'False
MergeCells = 0
MergeCompare = 0
AutoResize = -1 'True
AutoSizeMode = 0
AutoSearch = 0
AutoSearchDelay = 2
MultiTotals = -1 'True
SubtotalPosition= 1
OutlineBar = 0
OutlineCol = 0
Ellipsis = 0
ExplorerBar = 0
PicturesOver = 0 'False
FillStyle = 0
RightToLeft = 0 'False
PictureType = 0
TabBehavior = 0
OwnerDraw = 0
Editable = 0
ShowComboButton = 1
WordWrap = 0 'False
TextStyle = 0
TextStyleFixed = 0
OleDragMode = 0
OleDropMode = 0
DataMode = 0
VirtualData = -1 'True
DataMember = ""
ComboSearch = 3
AutoSizeMouse = -1 'True
FrozenRows = 0
FrozenCols = 0
AllowUserFreezing= 0
BackColorFrozen = 0
ForeColorFrozen = 0
WallPaperAlignment= 9
AccessibleName = ""
AccessibleDescription= ""
AccessibleValue = ""
AccessibleRole = 24
End
Begin VB.Label Label2
Caption = "凭证类型:"
Height = 255
Left = 120
TabIndex = 10
Top = 5370
Width = 825
End
Begin VB.Label Lab_OperStatus
BackColor = &H000080FF&
Caption = "1"
Height = 345
Left = 6600
TabIndex = 9
Top = 5430
Visible = 0 'False
Width = 345
End
End
Attribute VB_Name = "CL_MakeVoucherSub"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'**************************************************************************
'* 模 块 名 称 : 生成凭证子窗体
'* 功 能 描 述 :
'* 程序员姓名 : 杨波
'* 最后修改人 : 杨波
'* 最后修改时间: 2000/10/09
'* 备 注: 一 .WglrGrid.TextMatrix(Yxxpdh, 6)中存放生成凭证的各种情况
'**************************************************************************
'其它固定使用变量
Dim Tsxx As String '系统信息提示(Fixed)
Dim ReportTitle As String '报表主标题(Fixed)
'以下为固定使用变量(网格)
Dim Cxnrrec As New ADODB.Recordset '显示查询内容动态集
Dim Dyymctbl As New DY_Dyymsz '打印页面窗体变量
Dim GridCode As String '显示网格网格代码
Dim GridInf() As Variant '整个网格设置信息
Dim Pmbcsjhs As Long '屏幕网格保持数据行数(大于等于1)
Dim Fzxwghs As Integer '辅助项网格行数(包括合计行)
Dim Sfxshjwg As Boolean '是否显示合计网格
Dim Qslz As Long '网格隐藏(非操作显示)列数
Dim Sjhgd As Double '网格数据行高度
Dim GridBoolean() As Boolean '网格列信息(布尔型)
Dim GridStr() As String '网格列信息(字符型)
Dim GridInt() As Integer '网格列信息(整型)
Dim Sfblbzkd As Boolean '是否保留帮助宽度(字段提供帮助时,是否为按钮保留空间)
Dim Dqlrwgh As Long '当前录入数据网格行
Dim Dqlrwgl As Long '当前录入数据网格列
Dim Dqlkwgh As Long '刚刚离开网格行(不一定为录入行)
Dim Dqlkwgl As Long '刚刚离开网格列
Dim Dqtoprow As Long '当前录入状态时最上端可视行
Dim Dqleftcol As Long '当前录入状态时最左端可视列
Dim Zdlrqnr As String '字段录入修改前内容(用来判断内容是否修改)
Dim Wbkbhlock As Boolean '文本框改变值锁
Dim Changelock As Boolean '网格行列改变控制锁(用来区别用户改变.程序改变)
Dim Gdtlock As Boolean '滚动条滚动控制(用来区别用户改变.程序改变)
Dim Yxxpdlock As Boolean '字段有效性判断锁(内容不修改不需进行字段有效性判断)
Dim Hyxxpdlock As Boolean '行有效性判断锁(字段内容不修改不需进行行有效性判断)
Dim Valilock As Boolean '文本框失去焦点是否进行有效性控制(TRUE 为锁定*限用网格录入)
Dim Shsfts As Boolean '删除记录行是否提示
Dim Szzls As Integer '网格信息数组最大下标值(网格列数-1)
Private Sub cmd_Cancel_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
Unload Me
End Sub
Private Sub cmd_Ok_Click()
Dim count As Long '循环变量
Dim countrow As Integer '循环变量
Dim PzCount As Integer '循环变量
Dim Note As String '摘要
Dim InoutMainIdValue As Integer '单据主表ID
Dim InoutSubIdValue As Integer '单据子表ID
Dim WuLiaoCodeValue As String '物料科目编码
Dim WuliaoNameValue As String '物料科目名称
Dim DuifangCodeValue As String '对方科目编码
Dim DuifangNameValue As String '对方科目名称
Dim ChaYiCodeValue As String '差异科目编码
Dim ChaYiNameValue As String '差异科目名称
Dim WuLiaoCodeValue1 As String '物料科目编码
Dim DuifangCodeValue1 As String '对方科目编码
Dim ChaYiCodeValue1 As String '差异科目编码
Dim Money As Double '金额
Dim WuLiaoMoney As Double '物料科目金额
Dim DuiFangMoney As Double '对方料日金额
Dim JieFangMoney As Double '借方金额
Dim DaiFangMoney As Double '贷方金额
Dim IsInoutMainID As Boolean '判断单据主表ID是否相同
Dim PzBillNum As Integer '凭证单据号
'存货科目、差异科目、对方科目不能全部为空
For count = WglrGrid.FixedRows To WglrGrid.Rows - WglrGrid.FixedRows
If WglrGrid.TextMatrix(count, Sydz("007", GridStr(), Szzls)) = "" And WglrGrid.TextMatrix(count, Sydz("008", GridStr(), Szzls)) = "" And WglrGrid.TextMatrix(count, Sydz("009", GridStr(), Szzls)) = "" Then
Tsxx = "存货科目、差异科目、对方科目不能全部为空!"
Call Xtxxts(Tsxx, 0, 4)
Exit Sub
End If
Hyxxpdlock = False
If Not Sjhzyxxpd(count) Then
Exit Sub
End If
Next count
'凭证类别不能为空
If Trim(Combo1.Text) = "" Then
Tsxx = "请选择凭证类型"
Call Xtxxts(Tsxx, 0, 4)
Exit Sub
End If
vouchz = Trim(Mid(Trim(Combo1.Text), 1, 2))
'凭证为“生成”
If CL_MakeVoucher.PzType = 0 Then
With WglrGrid
'向vsflex_pzmain中加入记录
IsInoutMainID = False
For count = .FixedRows To .Rows - .FixedRows
'根据单据类型填充主子表ID
Select Case .TextMatrix(count, 4)
Case "1301", "1302", "1303"
InoutMainIdValue = Trim(.TextMatrix(count, 2))
InoutSubIdValue = Trim(.TextMatrix(count, 3))
Case Else
InoutMainIdValue = Trim(.TextMatrix(count, 0))
InoutSubIdValue = Trim(.TextMatrix(count, 1))
End Select
'合并主表ID相同的单据
For countrow = vsFlex_PzMain.FixedRows To vsFlex_PzMain.Rows - vsFlex_PzMain.FixedRows
If Trim(vsFlex_PzMain.TextMatrix(countrow, 0)) = InoutMainIdValue And Trim(vsFlex_PzMain.TextMatrix(countrow, 5)) = InoutSubIdValue Then
IsInoutMainID = True
Exit For
End If
Next countrow
If IsInoutMainID = False Then
vsFlex_PzMain.AddItem ""
vsFlex_PzMain.TextMatrix(vsFlex_PzMain.Rows - 1, 0) = InoutMainIdValue
vsFlex_PzMain.TextMatrix(vsFlex_PzMain.Rows - 1, 1) = Xtrq
vsFlex_PzMain.TextMatrix(vsFlex_PzMain.Rows - 1, 2) = 1
vsFlex_PzMain.TextMatrix(vsFlex_PzMain.Rows - 1, 4) = Trim(.TextMatrix(count, 6))
vsFlex_PzMain.TextMatrix(vsFlex_PzMain.Rows - 1, 5) = InoutSubIdValue
vsFlex_PzMain.TextMatrix(vsFlex_PzMain.Rows - 1, 6) = Trim(.TextMatrix(count, 4))
Else
IsInoutMainID = False
End If
Next count
For PzCount = vsFlex_PzMain.FixedRows To vsFlex_PzMain.Rows - 1
InoutMainIdValue = Trim(vsFlex_PzMain.TextMatrix(PzCount, 0))
InoutSubIdValue = Trim(vsFlex_PzMain.TextMatrix(PzCount, 5))
'非计划价法的出入库单，计划价法出库单，无差异的计划价法入库单,非计划价的调整单，不进行差异处理的计划价调整单
If Trim(.TextMatrix(PzCount, 6)) = "1" Or Trim(.TextMatrix(PzCount, 6)) = "4" Then
Call InOutMakePz(InoutMainIdValue, InoutSubIdValue)
End If
'有差异的计划价法入库单
If Trim(.TextMatrix(PzCount, 6)) = "2" Then
Call InPlanMakePz(InoutMainIdValue, InoutSubIdValue)
End If
'进行差异处理的计划价调整单
If Trim(.TextMatrix(PzCount, 6)) = "3" Then
Call PlanAdjustPz(InoutMainIdValue, InoutSubIdValue)
End If
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -