📄
字号:
Top = 3660
Width = 90
End
Begin VB.Label Label1
AutoSize = -1 'True
Height = 180
Index = 18
Left = 240
TabIndex = 27
Top = 3660
Width = 90
End
Begin VB.Label Label1
AutoSize = -1 'True
Height = 180
Index = 2
Left = 6015
TabIndex = 26
Top = 495
Width = 90
End
Begin VB.Label Label1
AutoSize = -1 'True
Height = 180
Index = 1
Left = 300
TabIndex = 24
Top = 495
Width = 90
End
Begin VB.Label Label2
BackColor = &H80000018&
BorderStyle = 1 'Fixed Single
Caption = " "
Height = 264
Left = 1110
TabIndex = 23
Top = 465
Width = 795
End
Begin VB.Label Label1
AutoSize = -1 'True
Height = 180
Index = 0
Left = 300
TabIndex = 18
Top = 180
Width = 90
End
Begin VB.Shape Shape1
Height = 2655
Left = 270
Top = 870
Width = 7590
End
Begin VB.Shape Shape2
Height = 2745
Left = 225
Top = 810
Width = 7680
End
End
Begin RTPrnLib.RTPrn RTPrn1
Left = 5910
Top = 630
_Version = 524288
_ExtentX = 1323
_ExtentY = 609
_StockProps = 4
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
m_lngrtpFitRows = 30
End
Begin ComctlLib.ImageList ImageList1
Left = 1290
Top = 630
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
MaskColor = 12632256
_Version = 327682
End
Begin VB.Label Label0
AutoSize = -1 'True
BackStyle = 0 'Transparent
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 240
Left = 3405
TabIndex = 22
Top = 750
Width = 150
End
End
Attribute VB_Name = "frmybjs"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
' 软件著作权: 北京用友软件集团有限公司
' 系统名称: 资金计息8。0
' 功能说明: 对外结算单据录入
' 作者: 魏小黎
Option Explicit
Private rsTckd As New adodb.Recordset 'Cuidong 2000/06/26
'Private rsTckd As New UfRecordset 'Cuidong 2000/06/26
' .Close -> .oClose 'Cuidong 2000/06/26
Private isSave As Boolean
Private IsNew As Boolean
Private isFh As Boolean
Private isEnt(5) As Boolean
Private Frtin As Boolean
Private Checkqx As Boolean
Private Djcopy(15) As String
Private Sub cmdjsfs_Click()
View_Bref = False
frmjscz.mTop = Me.Top + Picture1.Top + Textjsfs.Top
frmjscz.mLeft = Me.Left + Picture1.Left + Textjsfs.Left + Textjsfs.Width + 100
frmjscz.mJsfs = Textjsfs.Text
frmjscz.Show 1
If View_Bref Then
Textjsfs.Text = View_Tref
End If
Textjsfs.SetFocus
End Sub
' 日期参照
Private Sub cmdrq_Click()
View_Calendar Me, Editrq, Picture1.Top
End Sub
Private Sub Combo1_Click()
On Error GoTo reqer1
If Combo1.Text <> "" Then
If Combo1.Text = Editbh.Text Then
Exit Sub
End If
If rsTckd Is Nothing Then
'reqer1: Set rsTckd = dbsZJ.OpenRecordset("select * from FD_Settacc where cSetid like '14*' and isnull(CbookCode) order by cSetid", dbOpenDynaset) 'cuidong % 2001.11.05
reqer1: Set rsTckd = dbsZJ.OpenRecordset("select * from FD_Settacc where cSetid like '14%' and isnull(CbookCode) order by cSetid", dbOpenDynaset) 'cuidong % 2001.11.05
Else
rsTckd.Requery
End If
With rsTckd
If .EOF Then
Textqk
ckdbutt
Exit Sub
Else
.MoveLast
.MoveFirst
End If
Dim dqbh As String
dqbh = Combo1.Text
Combo1.Clear
Do While Not .EOF
Combo1.AddItem Right(![cSetid], 8)
.MoveNext
Loop
FindFirst rsTckd, "cSetid >= '14" & dqbh & "'"
If .EOF Then
.MoveLast
End If
Editrq.SetFocus
End With
Carddata
ckdbutt
End If
End Sub
Private Sub Combo1_GotFocus()
On Error GoTo reqer2
Combo1.Clear
If rsTckd Is Nothing Then
'reqer2: Set rsTckd = dbsZJ.OpenRecordset("select * from FD_Settacc where cSetid like '14*' and isnull(CbookCode) order by cSetid", dbOpenDynaset) 'cuidong % 2001.11.05
reqer2: Set rsTckd = dbsZJ.OpenRecordset("select * from FD_Settacc where cSetid like '14%' and isnull(CbookCode) order by cSetid", dbOpenDynaset) 'cuidong % 2001.11.05
Else
rsTckd.Requery
End If
With rsTckd
If .EOF Then
Textqk
ckdbutt
Exit Sub
Else
.MoveLast
.MoveFirst
End If
Do While Not .EOF
Combo1.AddItem Right(![cSetid], 8)
.MoveNext
Loop
If Editbh.Text <> "" Then
FindFirst rsTckd, "cSetid >= '14" & Editbh.Text & "'"
If .EOF Then
.MoveLast
End If
Carddata
ckdbutt
End If
End With
End Sub
Private Sub Editje_KeyPress(Index As Integer, KeyAscii As Integer)
If KeyAscii = 45 And Index = 1 Then
KeyAscii = 0
End If
End Sub
' 银行、单位名称参照
Private Sub Refyhmc_Initialize(Index As Integer)
refyhmc(Index).InitSys 0, dbsZJ
refyhmc(Index).InitSys 1, Edityhmc(Index).Text
Refyhzh(Index).InitSys 2, Edityhmc(Index).Text
refyhmc(Index).RefUnitMode = IIf(Index = 0, RefBank, RefNotBank) 'Cuidong 2000/06/26
End Sub
Private Sub Refyhmc_RefCancel(Index As Integer)
Edityhmc(Index).SetFocus
End Sub
Private Sub Refyhzh_RefCancel(Index As Integer)
Edityhzh(Index).SetFocus
End Sub
Private Sub Refyhzh_Initialize(Index As Integer)
Refyhzh(Index).InitSys 0, dbsZJ
Refyhzh(Index).InitSys 1, Edityhzh(Index).Text
Refyhzh(Index).InitSys 2, Edityhmc(Index).Text
End Sub
Private Sub Refyhmc_RefOK(Index As Integer, Code As String)
Edityhmc(Index).Text = Code
Edityhmc(Index).SetFocus
End Sub
Private Sub Refyhzh_RefOK(Index As Integer, Code As String)
Edityhzh(Index).Text = Code
Edityhzh(Index).SetFocus
End Sub
' 业务编号按键
Private Sub Editbh_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
SendKeys "{Tab}"
End If
End Sub
Private Sub Editbh_LostFocus()
If IsNew Then
If Len(Editbh.Text) > 0 Then
Editbh.Text = Right("00000000" & Editbh.Text, 8)
End If
End If
End Sub
'结算方式按键
Private Sub Textjsfs_Change()
Tbr_Change
isEnt(0) = True
End Sub
Private Sub Textjsfs_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 And isEnt(0) Then
SendKeys "{Tab}"
End If
If Not isFh And KeyCode = 113 Then 'F2
View_Bref = False
frmjscz.mTop = Me.Top + Picture1.Top + Textjsfs.Top
frmjscz.mLeft = Me.Left + Picture1.Left + Textjsfs.Left + Textjsfs.Width + 100
frmjscz.mJsfs = Textjsfs.Text
frmjscz.Show 1
If View_Bref Then
Textjsfs.Text = View_Tref
End If
Textjsfs.SetFocus
End If
isEnt(0) = True
End Sub
Private Sub Textjsfs_LostFocus()
If Not isSave And isEnt(0) And Textjsfs.Text <> "" Then
If Jsfs_err(Me, False) Then
SetTxtFocus Textjsfs
isEnt(0) = False
End If
End If
End Sub
'业务日期按键
Private Sub Editrq_Keyup(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 And isEnt(1) Then
SendKeys "{Tab}"
End If
If Not isFh And KeyCode = 113 Then 'F2
View_Calendar Me, Editrq, Picture1.Top
End If
isEnt(1) = True
End Sub
Private Sub Editrq_Change()
Tbr_Change
isEnt(1) = True
End Sub
Private Sub Editrq_LostFocus()
If Not isSave And Editrq.Text <> "" And isEnt(1) Then
Editrq.Text = ForDate(Editrq.Text)
If IsDate(Editrq.Text) Then
Editrq.Text = Format(Editrq.Text, "yyyy-mm-dd")
Else
Beep
MsgBox "日期非法，请检查！", vbCritical, zjGl_Name
SetTxtFocus Editrq
isEnt(1) = False
End If
End If
End Sub
'结算单位按键
Private Sub Edityhmc_KeyUp(Index As Integer, KeyCode As Integer, Shift As Integer)
If KeyCode = 13 And isEnt(Index + 2) Then
SendKeys "{Tab}"
End If
If Not isFh And KeyCode = 113 Then 'F2
refyhmc(Index).RunReference
End If
isEnt(Index + 2) = True
End Sub
Private Sub Edityhmc_LostFocus(Index As Integer)
Dim rsTemp As New UfRecordset
If Not isSave And isEnt(Index + 2) And Edityhmc(Index).Text <> "" Then
If Yhmc_err(Edityhmc(Index), Edityhzh(Index), 1 - Index, 1) Then
SetTxtFocus Edityhmc(Index)
isEnt(Index + 2) = False
End If
End If
End Sub
Private Sub Edityhmc_Change(Index As Integer)
Tbr_Change
isEnt(Index + 2) = True
End Sub
Private Sub Edityhmc_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
Edityhmc(Index).ToolTipText = Edityhmc(Index).Text
End Sub
' 结算账号按键
Private Sub Edityhzh_KeyUp(Index As Integer, KeyCode As Integer, Shift As Integer)
If KeyCode = 13 And isEnt(Index + 4) Then
SendKeys "{Tab}"
End If
If Not isFh And KeyCode = 113 Then 'F2
Refyhzh(Index).RunReference
End If
isEnt(Index + 4) = True
End Sub
Private Sub Edityhzh_LostFocus(Index As Integer)
If Not isSave And isEnt(Index + 4) And Edityhzh(Index).Text <> "" Then
If Jszh_err(Editrq.Text, True, Edityhmc(Index), Edityhzh(Index), Edityhzh(1 - Index), Textbb, 0, 1 - Index, Option1(0).Value, IIf(Index = 1, True, False)) Then
SetTxtFocus Edityhzh(Index)
isEnt(Index + 4) = False
End If
End If
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -