📄
字号:
BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "制作凭证_应收和结算单据列表.frx":22056
Key = "bz"
EndProperty
BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "制作凭证_应收和结算单据列表.frx":223F0
Key = "tc"
EndProperty
BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "制作凭证_应收和结算单据列表.frx":2278A
Key = "bcgs"
EndProperty
BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "制作凭证_应收和结算单据列表.frx":22B24
Key = "mrlk"
EndProperty
BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "制作凭证_应收和结算单据列表.frx":22EBE
Key = "xsxm"
EndProperty
BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "制作凭证_应收和结算单据列表.frx":23258
Key = "first"
EndProperty
BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "制作凭证_应收和结算单据列表.frx":235F2
Key = "prev"
EndProperty
BeginProperty ListImage16 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "制作凭证_应收和结算单据列表.frx":2398C
Key = "next"
EndProperty
BeginProperty ListImage17 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "制作凭证_应收和结算单据列表.frx":23D26
Key = "last"
EndProperty
BeginProperty ListImage18 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "制作凭证_应收和结算单据列表.frx":240C0
Key = "xx"
EndProperty
BeginProperty ListImage19 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "制作凭证_应收和结算单据列表.frx":2445A
Key = "define"
EndProperty
BeginProperty ListImage20 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "制作凭证_应收和结算单据列表.frx":247F4
Key = "exec"
EndProperty
BeginProperty ListImage21 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "制作凭证_应收和结算单据列表.frx":24B8E
Key = "xz"
EndProperty
BeginProperty ListImage22 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "制作凭证_应收和结算单据列表.frx":24F28
Key = "sc"
EndProperty
BeginProperty ListImage23 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "制作凭证_应收和结算单据列表.frx":252C2
Key = "sx"
EndProperty
BeginProperty ListImage24 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "制作凭证_应收和结算单据列表.frx":2565C
Key = "cx"
EndProperty
BeginProperty ListImage25 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "制作凭证_应收和结算单据列表.frx":259F6
Key = "zd"
EndProperty
BeginProperty ListImage26 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "制作凭证_应收和结算单据列表.frx":25D90
Key = "dz"
EndProperty
BeginProperty ListImage27 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "制作凭证_应收和结算单据列表.frx":2612A
Key = "ph"
EndProperty
BeginProperty ListImage28 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "制作凭证_应收和结算单据列表.frx":264C4
Key = "fz"
EndProperty
BeginProperty ListImage29 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "制作凭证_应收和结算单据列表.frx":2685E
Key = "dw"
EndProperty
BeginProperty ListImage30 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "制作凭证_应收和结算单据列表.frx":26BF8
Key = "hf"
EndProperty
BeginProperty ListImage31 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "制作凭证_应收和结算单据列表.frx":26F92
Key = "pz"
EndProperty
BeginProperty ListImage32 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "制作凭证_应收和结算单据列表.frx":2732C
Key = "check"
EndProperty
BeginProperty ListImage33 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "制作凭证_应收和结算单据列表.frx":276C6
Key = "qs"
EndProperty
BeginProperty ListImage34 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "制作凭证_应收和结算单据列表.frx":27A60
Key = "fullcheck"
EndProperty
BeginProperty ListImage35 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "制作凭证_应收和结算单据列表.frx":27DFA
Key = "qq"
EndProperty
BeginProperty ListImage36 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "制作凭证_应收和结算单据列表.frx":28194
Key = "bcw"
EndProperty
BeginProperty ListImage37 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "制作凭证_应收和结算单据列表.frx":2852E
Key = "ye"
EndProperty
BeginProperty ListImage38 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "制作凭证_应收和结算单据列表.frx":288C8
Key = ""
EndProperty
BeginProperty ListImage39 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "制作凭证_应收和结算单据列表.frx":28C62
Key = "frist"
EndProperty
BeginProperty ListImage40 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "制作凭证_应收和结算单据列表.frx":28FFC
Key = "dj"
EndProperty
EndProperty
End
End
Begin MSComctlLib.Toolbar SzToolbar
Align = 1 'Align Top
Height = 555
Left = 0
TabIndex = 4
Top = 0
Width = 11820
_ExtentX = 20849
_ExtentY = 979
ButtonWidth = 820
ButtonHeight = 926
AllowCustomize = 0 'False
Appearance = 1
Style = 1
ImageList = "ImageList1"
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 10
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "过滤"
Key = "filter"
ImageKey = "filter"
EndProperty
BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "全选"
Key = "allselect"
ImageKey = "allselect"
EndProperty
BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "全消"
Key = "allcancel"
ImageKey = "allcancel"
EndProperty
BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "合并"
Key = "unit"
ImageKey = "unit"
EndProperty
BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "凭证"
Key = "run"
ImageKey = "run"
EndProperty
BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "帮助"
Key = "bz"
ImageKey = "bz"
EndProperty
BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "退出"
Key = "fh"
ImageKey = "tc"
EndProperty
EndProperty
BorderStyle = 1
End
End
Attribute VB_Name = "PZ_FrmOCBillList"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'**************************************************************************
'* 模 块 名 称 :应收单和结算单制作凭证
'* 功 能 描 述 :
'* 程序员姓名 :姜冬梅
'* 最后修改人 :姜冬梅
'* 最后修改时间:2001/12/26
'* 备 注:程序中所有依实际情况自定义部分均用[>> <<]括起
'**************************************************************************
Dim ReportTitle As String '报表主标题
Dim Str_QueryCondi As String '用户录入查询条件
Dim Jsq_Max As Long '网格的最大记录数
Dim OperationNum As Long '本次转帐操作批号
Dim TranJsq As Integer '本批选择的网格记录个数
Dim FiltListId() As Long '需要转帐的明细帐AccListID数组
Dim TranVouchClass() As String '转帐凭证类别数组
Dim VouchModelType() As String '转帐凭证模板类型数组
Dim VouchRow As Long '每张凭证内分录的ID值
Dim Bln_DeleteFlag As Boolean '转帐后是否删除临时表
Dim UnitFlag As Boolean '合并生成凭证标志
Dim ArApFlag As String '应收应付标志
Dim Int_Kjyear As Integer '会计年
Dim Int_Period As Integer '会计月
Dim MenuBillCode_Con As String '转帐单据类型条件
Dim MenuBillCode As String '菜单选中的单据类型
Dim YbJe As Double '原币金额
Dim BbJe As Double '本币金额
Dim AccRate As Double '记帐汇率
Dim BankBillNo As String '银行票号
Dim SsCode As String '结算方式
Dim ForeignCurrCode As String '外币编码
Dim BillDate As Date '单据日期
Dim PersonName As String '经办人名称
Dim CustName As String '客户名称
Dim SuppName As String '供应商名称
Dim Rec As String '单据数据表名变量
Dim RecBillId As String '单据数据表ID
'以下为固定使用变量
Dim Dyymctbl As New DY_Dyymsz '打印页面窗体变量
Dim GridCode As String '显示网格网格代码
Dim GridInf() As Variant '整个网格设置信息
Dim Tsxx As String '系统提示信息
Dim Qslz As Long '网格隐藏(非操作显示)列数
Dim Sjhgd As Double '网格数据行高度
Dim Sfxshjwg As Boolean '是否显示合计网格
Dim GridBoolean() As Boolean '网格列信息(布尔型)
Dim GridStr() As String '网格列信息(字符型)
Dim GridInt() As Integer '网格列信息(整型)
Dim Szzls As Integer '数组总列数(网格列数-1)
Private Sub CxbbGrid_DblClick()
If CxbbGrid.Row > CxbbGrid.FixedRows - 1 And GridStr(CxbbGrid.Col, 1) = "001" Then
If CxbbGrid.TextMatrix(CxbbGrid.Row, Sydz("001", GridStr(), Szzls)) = "" Then
If CxbbGrid.TextMatrix(CxbbGrid.Row, 1) = True Then
Tsxx = "该单据已制作凭证或不需制作凭证！"
Call Xtxxts(Tsxx, 0, 4)
Exit Sub
Else
CxbbGrid.TextMatrix(CxbbGrid.Row, Sydz("001", GridStr(), Szzls)) = "√"
End If
Else
CxbbGrid.TextMatrix(CxbbGrid.Row, Sydz("001", GridStr(), Szzls)) = ""
End If
End If
End Sub
Private Sub Form_Resize() '根据窗体大小来调整网格,标题栏大小(Fixed)
On Error Resume Next
With CxbbGrid
.Width = Me.Width - 160
.Height = Me.Height - .Top - 400
End With
With Pic_Title
.Width = Me.Width - 160
End With
GsToolbar.Left = Me.Width - GsToolbar.Width - 140
End Sub
Private Sub Form_Load() '窗体装入
'调入打印页面设置窗体
'调整标题栏及网格、格式工具条位置(Fixed)
Pic_Title.Left = 40
Pic_Title.Top = SzToolbar.Top + SzToolbar.Height - 10
CxbbGrid.Left = Pic_Title.Left
CxbbGrid.Top = Pic_Title.Top + Pic_Title.Height + 20
'调 入 网 格(Fixed)
GridCode = "Ar_BillList"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -