͸

VB财务软件系统下载源代码提供自由下载使用学习

        End If
        zjGen_arr.FD050218 = True
        zjLogInfo.ClearError
    End If
    oV.voucherType = 本金还款单_银行贷款
    frmFind.Quitfs = True
    frmFind.iFindtype = 2
    frmFind.Show vbModal
End Sub

Public Sub bankloani_Click()
    If zjGen_arr.FD050218 = False Then
        If Not zjLogInfo.TaskExec("FD050218", -1, zjLogInfo.cIYear) Then
            Gen_Msg
            Exit Sub
        End If
        zjGen_arr.FD050218 = True
        zjLogInfo.ClearError
    End If
    oV.voucherType = 利息还款单_银行贷款
    frmFind.Quitfs = True
    frmFind.iFindtype = 4
    frmFind.Show vbModal
End Sub

Public Sub blotter_Click()
    With zjNotecom
        .DBName = zjLogInfo.UfSystemDb.Name
        .UseTName = "UA_User"
        .NoteTool zjLogInfo.cUserName, Format(zjLogInfo.curDate, "yyyy-mm-dd")
    End With
End Sub

Private Sub CMenu1_OnCommand(ByVal cMenuId As String, ByVal cMenuName As String, ByVal cAuthId As String, ByVal cCmdLine As String)

End Sub

'Private Sub educe_Click()
'    wMain_Prnviewout "Dataout"
'End Sub

Public Sub exit_Click()
    Unload Me
End Sub

Public Sub external_Click()
    If zjLogInfo.TaskExec("FD021501", -1, zjLogInfo.cIYear) Then
      oV.voucherType = 对外结算单
        frmybjs.Show 1
        zjLogInfo.TaskExec "FD021501", 0, zjLogInfo.cIYear
        zjLogInfo.ClearError
    Else
        Gen_Msg
    End If
End Sub

Public Sub external2_Click()
    If zjGen_arr.FD050203 = False Then
        If Not zjLogInfo.TaskExec("FD050203", -1, zjLogInfo.cIYear) Then
            Gen_Msg
            Exit Sub
        End If
        zjGen_arr.FD050203 = True
        zjLogInfo.ClearError
    End If
    oV.voucherType = 内部结算单
    frmyjstj.Quitfs = True
    frmyjstj.cxnwb = 0
    frmyjstj.Show 1
End Sub

Public Sub in_bill2_Click()
    If zjGen_arr.FD050203 = False Then
        If Not zjLogInfo.TaskExec("FD050203", -1, zjLogInfo.cIYear) Then
            Gen_Msg
            Exit Sub
        End If
        zjGen_arr.FD050203 = True
        zjLogInfo.ClearError
    End If
    frmRdzdXz.Quitfs = True
    frmRdzdXz.Show vbModal
End Sub

Public Sub inlend1_Click()
    If zjLogInfo.TaskExec("FD021101", -1, zjLogInfo.cIYear) Then
        Dim frmLend As clsLend, aTemp As clsAllInput
        oV.voucherType = 内部拆借单
        Set frmLend = New clsLend
        Set aTemp = frmLend
        aTemp.Tag = "Lend"
        aTemp.Show
        zjLogInfo.TaskExec "FD021101", 0, zjLogInfo.cIYear
        zjLogInfo.ClearError
    Else
        Gen_Msg
    End If
End Sub

Public Sub inlend2_Click()
    If zjGen_arr.FD050215 = False Then
        If Not zjLogInfo.TaskExec("FD050215", -1, zjLogInfo.cIYear) Then
            Gen_Msg
            Exit Sub
        End If
        zjGen_arr.FD050215 = True
        zjLogInfo.ClearError
    End If
    oV.voucherType = 内部拆借单
    frmFindLend.Quitfs = True
    frmFindLend.iFindtype = 6
    frmFindLend.Show vbModal
End Sub

Public Sub inlendc_Click()
    If zjGen_arr.FD050216 = False Then
        If Not zjLogInfo.TaskExec("FD050216", -1, zjLogInfo.cIYear) Then
            Gen_Msg
            Exit Sub
        End If
        zjGen_arr.FD050216 = True
        zjLogInfo.ClearError
    End If
    oV.voucherType = 本金还款单_内部拆借
    frmFindLend.Quitfs = True
    frmFindLend.iFindtype = 7
    frmFindLend.Show vbModal
End Sub

Public Sub inlendi_Click()
    If zjGen_arr.FD050216 = False Then
        If Not zjLogInfo.TaskExec("FD050216", -1, zjLogInfo.cIYear) Then
            Gen_Msg
            Exit Sub
        End If
        zjGen_arr.FD050216 = True
        zjLogInfo.ClearError
    End If
    oV.voucherType = 利息还款单_内部拆借
    frmFindLend.Quitfs = True
    frmFindLend.iFindtype = 8
    frmFindLend.Show vbModal
End Sub

Public Sub inloan1_Click()
    If zjLogInfo.TaskExec("FD020801", -1, zjLogInfo.cIYear) Then
        Dim frmCredIn As clsCred, aTemp As clsAllInput
        oV.voucherType = 内部贷款单
        Set frmCredIn = New clsCred
        Set aTemp = frmCredIn
        aTemp.BillListType = 2
        aTemp.Tag = "CredIn"
        aTemp.Show
        zjLogInfo.TaskExec "FD020801", 0, zjLogInfo.cIYear
        zjLogInfo.ClearError
    Else
        Gen_Msg
    End If
    
End Sub

Public Sub inloan11_Click()
    If zjLogInfo.TaskExec("FD020901", -1, zjLogInfo.cIYear) Then
        Dim frmCredInRet As clsCredRet, aTemp As clsAllInput
        oV.voucherType = 本金还款单_内部贷款
        Set frmCredInRet = New clsCredRet
        Set aTemp = frmCredInRet
        aTemp.BillListType = 2
        aTemp.Tag = "CredInRet"
        aTemp.Show
        zjLogInfo.TaskExec "FD020901", 0, zjLogInfo.cIYear
        zjLogInfo.ClearError
    Else
        Gen_Msg
    End If
End Sub

Public Sub inloan12_Click()
    If zjLogInfo.TaskExec("FD050214", -1, zjLogInfo.cIYear) Then
        Dim frmCredInRetCad As clsCredRet, aTemp As clsAllInput
         oV.voucherType = 利息还款单_内部贷款
        Set frmCredInRetCad = New clsCredRet
        Set aTemp = frmCredInRetCad
        aTemp.BillListType = 4
        aTemp.Tag = "CredInRetCad"
        aTemp.Show
        zjLogInfo.TaskExec "FD050214", 0, zjLogInfo.cIYear
        zjLogInfo.ClearError
    Else
        Gen_Msg
    End If
End Sub

Public Sub inloan2_Click()
    If zjGen_arr.FD050213 = False Then
        If Not zjLogInfo.TaskExec("FD050213", -1, zjLogInfo.cIYear) Then
            Gen_Msg
            Exit Sub
        End If
        zjGen_arr.FD050213 = True
        zjLogInfo.ClearError
    End If
    oV.voucherType = 内部贷款单
    frmFind.Quitfs = True
    frmFind.iFindtype = 1
    frmFind.Show vbModal
End Sub

Public Sub inloanc_Click()
    If zjGen_arr.FD050214 = False Then
        If Not zjLogInfo.TaskExec("FD050214", -1, zjLogInfo.cIYear) Then
            Gen_Msg
            Exit Sub
        End If
        zjGen_arr.FD050214 = True
        zjLogInfo.ClearError
    End If
    oV.voucherType = 本金还款单_内部贷款
    frmFind.Quitfs = True
    frmFind.iFindtype = 3
    frmFind.Show vbModal
End Sub

Public Sub inloani_Click()
    If zjGen_arr.FD050214 = False Then
        If Not zjLogInfo.TaskExec("FD050214", -1, zjLogInfo.cIYear) Then
            Gen_Msg
            Exit Sub
        End If
        zjGen_arr.FD050214 = True
        zjLogInfo.ClearError
    End If
    oV.voucherType = 利息还款单_内部贷款
    frmFind.Quitfs = True
    frmFind.iFindtype = 5
    frmFind.Show vbModal
End Sub

Public Sub inside_deposit1_Click()
    If zjLogInfo.TaskExec("FD020301", -1, zjLogInfo.cIYear) Then
        oV.voucherType = 内部存款单
        frmyhck.djnwb = 0
        frmyhck.HelpContextID = 88000022
        frmyhck.Show 1
        zjLogInfo.TaskExec "FD020301", 0, zjLogInfo.cIYear
        zjLogInfo.ClearError
    Else
        Gen_Msg
    End If
End Sub

Public Sub inside_deposit2_Click()
    If zjGen_arr.FD050201 = False Then
        If Not zjLogInfo.TaskExec("FD050201", -1, zjLogInfo.cIYear) Then
            Gen_Msg
            Exit Sub
        End If
        zjGen_arr.FD050201 = True
        zjLogInfo.ClearError
    End If
    oV.voucherType = 内部存款单
    frmcktj.Quitfs = True
    frmcktj.djnwb = 0
    frmcktj.djcqk = 1
    frmcktj.Show 1
End Sub

Public Sub inside_settle1_Click()
    If zjLogInfo.TaskExec("FD050203", -1, zjLogInfo.cIYear) Then
            oV.voucherType = 内部结算单
        frmnbjs.Show 1
        zjLogInfo.TaskExec "FD050203", 0, zjLogInfo.cIYear
        zjLogInfo.ClearError
    Else
        Gen_Msg
    End If
End Sub

Public Sub inside_settle2_Click()
    If zjGen_arr.FD050204 = False Then
        If Not zjLogInfo.TaskExec("FD050204", -1, zjLogInfo.cIYear) Then
            Gen_Msg
            Exit Sub
        End If
        zjGen_arr.FD050204 = True
        zjLogInfo.ClearError
    End If
    oV.voucherType = 对外结算单
    frmyjstj.Quitfs = True
    frmyjstj.cxnwb = 1
    frmyjstj.Show 1
End Sub

Public Sub intake1_Click()
    If zjLogInfo.TaskExec("FD050202", -1, zjLogInfo.cIYear) Then
        oV.voucherType = 内部取款单
        frmyhqk.djnwb = 0
        frmyhqk.HelpContextID = 88000024
        frmyhqk.Show 1
        zjLogInfo.TaskExec "FD050202", 0, zjLogInfo.cIYear
        zjLogInfo.ClearError
    Else
        Gen_Msg
    End If
End Sub

Public Sub intake11_Click()
    If zjLogInfo.TaskExec("FD050216", -1, zjLogInfo.cIYear) Then
        Dim frmLendRet As clsLendRet, aTemp As clsAllInput
         oV.voucherType = 本金还款单_内部拆借
        Set frmLendRet = New clsLendRet
        Set aTemp = frmLendRet
        aTemp.BillListType = 1
        aTemp.Tag = "LendRet"
        aTemp.Show
        zjLogInfo.TaskExec "FD050216", 0, zjLogInfo.cIYear
        zjLogInfo.ClearError
    Else
        Gen_Msg
    End If
End Sub

Public Sub intake12_Click()
    If zjLogInfo.TaskExec("FD050216", -1, zjLogInfo.cIYear) Then
        Dim frmLendRet As clsLendRet, aTemp As clsAllInput
         oV.voucherType = 利息还款单_内部拆借
        Set frmLendRet = New clsLendRet
        Set aTemp = frmLendRet
        aTemp.BillListType = 2
        aTemp.Tag = "LendRetCad"
        aTemp.Show
        zjLogInfo.TaskExec "FD050216", 0, zjLogInfo.cIYear
        zjLogInfo.ClearError
    Else
        Gen_Msg
    End If
End Sub

Public Sub intake2_Click()
    If zjGen_arr.FD050216 = False Then
        If Not zjLogInfo.TaskExec("FD050216", -1, zjLogInfo.cIYear) Then
            Gen_Msg
            Exit Sub
        End If
        zjGen_arr.FD050216 = True
        zjLogInfo.ClearError
    End If
    oV.voucherType = 内部取款单
    frmcktj.Quitfs = True
    frmcktj.djnwb = 0
    frmcktj.djcqk = 0
    frmcktj.Show 1
End Sub

Private Sub m_oMenu_OnCommand(ByVal cMenuId As String, ByVal cMenuName As String, ByVal cAuthId As String, ByVal cCmdLine As String)
    Select Case cMenuId
        Case "FD0101"
            If zjLogInfo.TaskExec(cAuthId, -1, zjLogInfo.cIYear) Then
                frmIRate.Show
                zjLogInfo.TaskExec cAuthId, 0, zjLogInfo.cIYear
                zjLogInfo.ClearError
            Else
                If mdlZhangjf.TaskExec(zjLogInfo.cAcc_Id, zjLogInfo.cUserId, cAuthId, zjLogInfo.cIYear) Then
                    frmIRate.Show
                    zjLogInfo.TaskExec cAuthId, 0, zjLogInfo.cIYear
                    zjLogInfo.ClearError
                Else
                    Gen_Msg
                End If
            End If
        Case "FD0102"