📄
字号:
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 16
ImageHeight = 16
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 46
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "核销处理_单据核销查询结果.frx":1042
Key = "sz"
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "核销处理_单据核销查询结果.frx":13DC
Key = "dy"
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "核销处理_单据核销查询结果.frx":1776
Key = "yl"
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "核销处理_单据核销查询结果.frx":1B10
Key = "xg"
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "核销处理_单据核销查询结果.frx":1EAA
Key = "zh"
EndProperty
BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "核销处理_单据核销查询结果.frx":2244
Key = "sh"
EndProperty
BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "核销处理_单据核销查询结果.frx":25DE
Key = "bc"
EndProperty
BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "核销处理_单据核销查询结果.frx":2978
Key = "fq"
EndProperty
BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "核销处理_单据核销查询结果.frx":2D12
Key = "bz"
EndProperty
BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "核销处理_单据核销查询结果.frx":30AC
Key = "tc"
EndProperty
BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "核销处理_单据核销查询结果.frx":3446
Key = "bcgs"
EndProperty
BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "核销处理_单据核销查询结果.frx":37E0
Key = "mrlk"
EndProperty
BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "核销处理_单据核销查询结果.frx":3B7A
Key = "xsxm"
EndProperty
BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "核销处理_单据核销查询结果.frx":3F14
Key = "first"
EndProperty
BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "核销处理_单据核销查询结果.frx":42AE
Key = "prev"
EndProperty
BeginProperty ListImage16 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "核销处理_单据核销查询结果.frx":4648
Key = "next"
EndProperty
BeginProperty ListImage17 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "核销处理_单据核销查询结果.frx":49E2
Key = "last"
EndProperty
BeginProperty ListImage18 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "核销处理_单据核销查询结果.frx":4D7C
Key = "xx"
EndProperty
BeginProperty ListImage19 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "核销处理_单据核销查询结果.frx":5116
Key = "define"
EndProperty
BeginProperty ListImage20 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "核销处理_单据核销查询结果.frx":54B0
Key = "exec"
EndProperty
BeginProperty ListImage21 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "核销处理_单据核销查询结果.frx":584A
Key = "xz"
EndProperty
BeginProperty ListImage22 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "核销处理_单据核销查询结果.frx":5BE4
Key = "sc"
EndProperty
BeginProperty ListImage23 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "核销处理_单据核销查询结果.frx":5F7E
Key = "sx"
EndProperty
BeginProperty ListImage24 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "核销处理_单据核销查询结果.frx":6318
Key = "cx"
EndProperty
BeginProperty ListImage25 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "核销处理_单据核销查询结果.frx":66B2
Key = "zd"
EndProperty
BeginProperty ListImage26 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "核销处理_单据核销查询结果.frx":6A4C
Key = "dz"
EndProperty
BeginProperty ListImage27 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "核销处理_单据核销查询结果.frx":6DE6
Key = "ph"
EndProperty
BeginProperty ListImage28 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "核销处理_单据核销查询结果.frx":7180
Key = "fz"
EndProperty
BeginProperty ListImage29 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "核销处理_单据核销查询结果.frx":751A
Key = "dw"
EndProperty
BeginProperty ListImage30 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "核销处理_单据核销查询结果.frx":78B4
Key = "hf"
EndProperty
BeginProperty ListImage31 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "核销处理_单据核销查询结果.frx":7C4E
Key = "pz"
EndProperty
BeginProperty ListImage32 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "核销处理_单据核销查询结果.frx":7FE8
Key = "check"
EndProperty
BeginProperty ListImage33 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "核销处理_单据核销查询结果.frx":8382
Key = "qs"
EndProperty
BeginProperty ListImage34 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "核销处理_单据核销查询结果.frx":871C
Key = "fullcheck"
EndProperty
BeginProperty ListImage35 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "核销处理_单据核销查询结果.frx":8AB6
Key = "qq"
EndProperty
BeginProperty ListImage36 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "核销处理_单据核销查询结果.frx":8E50
Key = "bcw"
EndProperty
BeginProperty ListImage37 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "核销处理_单据核销查询结果.frx":91EA
Key = "ye"
EndProperty
BeginProperty ListImage38 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "核销处理_单据核销查询结果.frx":9584
Key = ""
EndProperty
BeginProperty ListImage39 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "核销处理_单据核销查询结果.frx":991E
Key = "frist"
EndProperty
BeginProperty ListImage40 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "核销处理_单据核销查询结果.frx":9CB8
Key = "dj"
EndProperty
BeginProperty ListImage41 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "核销处理_单据核销查询结果.frx":A052
Key = "xj"
EndProperty
BeginProperty ListImage42 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "核销处理_单据核销查询结果.frx":A3EC
Key = "qx"
EndProperty
BeginProperty ListImage43 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "核销处理_单据核销查询结果.frx":A786
Key = "qx1"
EndProperty
BeginProperty ListImage44 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "核销处理_单据核销查询结果.frx":AB20
Key = "gz"
EndProperty
BeginProperty ListImage45 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "核销处理_单据核销查询结果.frx":AEBA
Key = "js"
EndProperty
BeginProperty ListImage46 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "核销处理_单据核销查询结果.frx":B254
Key = "hx"
EndProperty
EndProperty
End
End
End
Attribute VB_Name = "HX_FrmHxgl"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'***************************************************************************************************
'* 模 块 名 称 :核销管理
'* 功 能 描 述 :包括到款结算,预收款冲应收款,应收冲应付三种核销方式
'* 1.到款结算:用应收明细帐中的到款(未核销)和退款(未核销)与应收款(未核销)进行核销结算
'* 2.预收款冲应收款:用应收明细帐中的预收款(未核销)与应收款(未核销)进行核销结算
'* 3.应收冲应付:用应收明细帐中的应收款(未核销)与应付款(未核销)进行核销结算
'* 程序员姓名 :张建忠
'* 最后修改人 :张建忠
'* 最后修改时间:2001/12/20
'* 备 注:程序中所有依实际情况自定义部分均用[>> <<]括起
'***************************************************************************************************
Dim ReportTitle As String '报表主标题
Dim Str_QueryCondi As String '用户录入查询条件
Dim Tsxx As String '系统提示信息
Dim Bln_Foreign As Boolean '按原币核销标识
Dim Int_Hxlx As Integer '核销类型
Dim Str_CusCode As String '往来客户编码
Dim Str_SupplierCode As String '往来供应商编码
'以下为固定使用变量(网格1)
Dim GridCode As String '显示网格网格代码
Dim GridInf() As Variant '整个网格设置信息
Dim Qslz As Long '网格隐藏(非操作显示)列数
Dim Sjhgd As Double '网格数据行高度
Dim GridBoolean() As Boolean '网格列信息(布尔型)
Dim GridStr() As String '网格列信息(字符型)
Dim GridInt() As Integer '网格列信息(整型)
Dim Szzls As Integer '数组总列数(网格列数-1)
'以下为固定使用变量(网格2)
Dim GridCode1 As String '显示网格网格代码
Dim GridInf1() As Variant '整个网格设置信息
Dim Qslz1 As Long '网格隐藏(非操作显示)列数
Dim Sjhgd1 As Double '网格数据行高度
Dim GridBoolean1() As Boolean '网格列信息(布尔型)
Dim GridStr1() As String '网格列信息(字符型)
Dim GridInt1() As Integer '网格列信息(整型)
Dim Szzls1 As Integer '数组总列数(网格列数-1)
Private Sub Form_Load() '窗体装入
'调 入 网 格1
GridCode = "Ar_HxglYsk"
Call BzWgcsh(CxbbGrid, GridCode, GridInf(), GridBoolean(), GridInt(), GridStr())
Qslz = GridInf(1)
Sjhgd = GridInf(2)
Szzls = CxbbGrid.Cols - 1
'调 入 网 格 2
GridCode1 = "Ar_HxglDk"
Call BzWgcsh(CxbbGrid1, GridCode1, GridInf1(), GridBoolean1(), GridInt1(), GridStr1())
Qslz1 = GridInf1(1)
Sjhgd1 = GridInf1(2)
Szzls1 = CxbbGrid1.Cols - 1
'对网格进行特殊设置
CxbbGrid.Editable = True
CxbbGrid1.Editable = True
End Sub
Private Sub Form_Unload(Cancel As Integer) '窗体卸载
'卸载条件窗体
HX_FrmHxCxtj.UnloadCheck.Value = 1
Unload HX_FrmHxCxtj
End Sub
Private Sub SzToolbar_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Key
Case "qbxz" '全 选
Call Sub_SelectAll
Case "qbqx" '全 消
Call Sub_AbandonAll
Case "zd" '自 动
Call Sub_AutoSelect
Case "cx" '查 询
HX_FrmHxCxtj.Show 1
Case "hx" '手工核销
Call Sub_Sghx
Case "sx" '刷 新
Call Timer1_Timer
Case "bz" '帮 助
Call F1bz
Case "fh" '退 出
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -