📄
字号:
Picture = "制作凭证_销售赊销发票单据列表.frx":39574
Key = "tc"
EndProperty
BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "制作凭证_销售赊销发票单据列表.frx":3990E
Key = "bcgs"
EndProperty
BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "制作凭证_销售赊销发票单据列表.frx":39CA8
Key = "mrlk"
EndProperty
BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "制作凭证_销售赊销发票单据列表.frx":3A042
Key = "xsxm"
EndProperty
BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "制作凭证_销售赊销发票单据列表.frx":3A3DC
Key = "first"
EndProperty
BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "制作凭证_销售赊销发票单据列表.frx":3A776
Key = "prev"
EndProperty
BeginProperty ListImage16 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "制作凭证_销售赊销发票单据列表.frx":3AB10
Key = "next"
EndProperty
BeginProperty ListImage17 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "制作凭证_销售赊销发票单据列表.frx":3AEAA
Key = "last"
EndProperty
BeginProperty ListImage18 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "制作凭证_销售赊销发票单据列表.frx":3B244
Key = "xx"
EndProperty
BeginProperty ListImage19 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "制作凭证_销售赊销发票单据列表.frx":3B5DE
Key = "define"
EndProperty
BeginProperty ListImage20 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "制作凭证_销售赊销发票单据列表.frx":3B978
Key = "exec"
EndProperty
BeginProperty ListImage21 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "制作凭证_销售赊销发票单据列表.frx":3BD12
Key = "xz"
EndProperty
BeginProperty ListImage22 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "制作凭证_销售赊销发票单据列表.frx":3C0AC
Key = "sc"
EndProperty
BeginProperty ListImage23 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "制作凭证_销售赊销发票单据列表.frx":3C446
Key = "sx"
EndProperty
BeginProperty ListImage24 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "制作凭证_销售赊销发票单据列表.frx":3C7E0
Key = "cx"
EndProperty
BeginProperty ListImage25 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "制作凭证_销售赊销发票单据列表.frx":3CB7A
Key = "zd"
EndProperty
BeginProperty ListImage26 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "制作凭证_销售赊销发票单据列表.frx":3CF14
Key = "dz"
EndProperty
BeginProperty ListImage27 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "制作凭证_销售赊销发票单据列表.frx":3D2AE
Key = "ph"
EndProperty
BeginProperty ListImage28 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "制作凭证_销售赊销发票单据列表.frx":3D648
Key = "fz"
EndProperty
BeginProperty ListImage29 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "制作凭证_销售赊销发票单据列表.frx":3D9E2
Key = "dw"
EndProperty
BeginProperty ListImage30 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "制作凭证_销售赊销发票单据列表.frx":3DD7C
Key = "hf"
EndProperty
BeginProperty ListImage31 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "制作凭证_销售赊销发票单据列表.frx":3E116
Key = "pz"
EndProperty
BeginProperty ListImage32 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "制作凭证_销售赊销发票单据列表.frx":3E4B0
Key = "check"
EndProperty
BeginProperty ListImage33 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "制作凭证_销售赊销发票单据列表.frx":3E84A
Key = "qs"
EndProperty
BeginProperty ListImage34 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "制作凭证_销售赊销发票单据列表.frx":3EBE4
Key = "fullcheck"
EndProperty
BeginProperty ListImage35 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "制作凭证_销售赊销发票单据列表.frx":3EF7E
Key = "qq"
EndProperty
BeginProperty ListImage36 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "制作凭证_销售赊销发票单据列表.frx":3F318
Key = "bcw"
EndProperty
BeginProperty ListImage37 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "制作凭证_销售赊销发票单据列表.frx":3F6B2
Key = "ye"
EndProperty
BeginProperty ListImage38 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "制作凭证_销售赊销发票单据列表.frx":3FA4C
Key = ""
EndProperty
BeginProperty ListImage39 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "制作凭证_销售赊销发票单据列表.frx":3FDE6
Key = "frist"
EndProperty
BeginProperty ListImage40 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "制作凭证_销售赊销发票单据列表.frx":40180
Key = "dj"
EndProperty
EndProperty
End
End
Begin MSComctlLib.Toolbar SzToolbar
Align = 1 'Align Top
Height = 570
Left = 0
TabIndex = 4
Top = 0
Width = 11820
_ExtentX = 20849
_ExtentY = 1005
ButtonWidth = 820
ButtonHeight = 953
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_FrmInvoiceList"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'**************************************************************************
'* 模 块 名 称 :发票制作凭证
'* 功 能 描 述 :
'* 程序员姓名 :姜冬梅
'* 最后修改人 :姜冬梅
'* 最后修改时间:2002/01/14
'* 备 注:程序中所有依实际情况自定义部分均用[>> <<]括起
'**************************************************************************
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 Invoiceno() 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 Sl 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
End If
CxbbGrid.TextMatrix(CxbbGrid.Row, Sydz("001", GridStr(), Szzls)) = "√"
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_InVoiceList"
Call BzWgcsh(CxbbGrid, GridCode, GridInf(), GridBoolean(), GridInt(), GridStr())
Qslz = GridInf(1)
Sjhgd = GridInf(2)
Sfxshjwg = GridInf(7)
Szzls = CxbbGrid.Cols - 1
MenuBillCode = ItemType
ArApFlag = "AR" '应收系统
Call Start '初始化凭证类型、制单日期
End Sub
Private Sub Form_Unload(Cancel As Integer) '窗体卸载
'卸载条件窗体
PZ_FrmInvoiceFilter.UnloadCheck.Value = 1
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -