frmdprntj.frm

财务信息管理系统,适合做毕业论文的人使用

                ![zd23] = IIf(ywzl = "12", "本金还款单", "利息还款单")
                ![zd24] = "贷款业务编号 "
                ![zd25] = "还款业务编号 "
                ![zd26] = "日期 "
                ![zd27] = "收款单位 "
                ![zd28] = "收款账号 "
                ![zd29] = "付款单位 "
                ![zd30] = "付款账号 "
                ![zd31] = "还款金额 "
                ![zd32] = "币    别 "
                ![zd33] = "汇    率 "
                ![zd34] = "本位币还款金额 "
                ![zd35] = "利率代码 "
                ![zd36] = "已还金额 "
                ![zd37] = "借款日期 "
                ![zd38] = "还款日期 "
                ![zd39] = "收款经办 "
                ![zd40] = "付款经办 "
                ![zd41] = "中心经办 "
                ![zd42] = "摘    要 "
                ![zd43] = "复    核 "
                ![zd44] = "记    账 "
                ![zd45] = "制    单 "
            Case Is = "14"
                ![zd1] = "    " & IIf(rsTprn![igp_flag] = 0, "收款", "付款")
                ![zd2] = Jsfscton(rsTprn![icen_id], True)
                ![zd3] = ywmc & "-" & right(rsTprn![cSetid], 10)
                ![zd4] = Format(rsTprn![dbill_date], "yyyy-mm-dd")
                ![zd5] = Zhbhtodwmc(rsTprn![cGAccID])
                ![zd6] = rsTprn![cGAccID]
                ![zd7] = Zhbhtodwmc(rsTprn![cPAccID])
                ![zd8] = rsTprn![cPAccID]
                ![zd9] = Format(rsTprn![mMoney], "##,##0.00")
                ![zd10] = Wgetwbb(rsTprn![cGAccID])
                ![zd11] = rsTprn![nFrat]
                ![zd12] = Format(rsTprn![mmoney_f], "##,##0.00")
                ![zd13] = IIf(IsNull(rsTprn![cDigest]), "", rsTprn![cDigest])
                ![zd14] = IIf(IsNull(rsTprn![center_name]), "", rsTprn![center_name])
                ![zd15] = IIf(IsNull(rsTprn![cbank_name]), "", rsTprn![cbank_name])
                ![zd16] = IIf(IsNull(rsTprn![cbank_code]), "", rsTprn![cbank_code])
                ![zd17] = IIf(IsNull(rsTprn![crun_name]), "", rsTprn![crun_name])
                ![zd18] = IIf(IsNull(rsTprn![cset_name]), "", rsTprn![cset_name])
                ![zd19] = IIf(IsNull(rsTprn![cCheckCode]), "", rsTprn![cCheckCode])
                ![zd20] = IIf(IsNull(rsTprn![cBookCode]), "", rsTprn![cBookCode])
                ![zd21] = rsTprn![cBillCode]
                ![zd22] = "对外结算单"
                ![zd23] = "结算方式 "
                ![zd24] = "业务编号 "
                ![zd25] = "日期 "
                ![zd26] = "银行名称 "
                ![zd27] = "银行账户 "
                ![zd28] = "内部单位 "
                ![zd29] = "账 户 号 "
                ![zd30] = "结算金额 "
                ![zd31] = "币    别 "
                ![zd32] = "汇    率 "
                ![zd33] = "本位币金额 "
                ![zd34] = "摘    要 "
                ![zd35] = "往来单位 "
                ![zd36] = "往来银行 "
                ![zd37] = "往来账号 "
                ![zd38] = "内部经办 "
                ![zd39] = "中心经办 "
                ![zd40] = "复    核 "
                ![zd41] = "记    账 "
                ![zd42] = "制    单 "
            Case Is = "15"
                ![zd1] = ywmc & "-" & right(rsTprn![cSetid], 10)
                ![zd2] = Format(rsTprn![dbill_date], "yyyy-mm-dd")
                ![zd3] = Zhbhtodwmc(rsTprn![cGAccID])
                ![zd4] = rsTprn![cGAccID]
                ![zd5] = Zhbhtodwmc(rsTprn![cPAccID])
                ![zd6] = rsTprn![cPAccID]
                ![zd7] = Format(rsTprn![mMoney], "##,##0.00")
                ![zd8] = Wgetwbb(rsTprn![cGAccID])
                ![zd9] = rsTprn![nFrat]
                ![zd10] = Format(rsTprn![mmoney_f], "##,##0.00")
                ![zd11] = IIf(IsNull(rsTprn![cDigest]), "", rsTprn![cDigest])
                ![zd12] = IIf(IsNull(rsTprn![crun_name]), "", rsTprn![crun_name])
                ![zd13] = IIf(IsNull(rsTprn![cpay_name]), "", rsTprn![cpay_name])
                ![zd14] = IIf(IsNull(rsTprn![cset_name]), "", rsTprn![cset_name])
                ![zd15] = IIf(IsNull(rsTprn![cCheckCode]), "", rsTprn![cCheckCode])
                ![zd16] = IIf(IsNull(rsTprn![cBookCode]), "", rsTprn![cBookCode])
                ![zd17] = rsTprn![cBillCode]
                ![zd18] = "内部结算单"
                ![zd19] = "业务编号 "
                ![zd20] = "日期 "
                ![zd21] = "收款单位 "
                ![zd22] = "收款账号 "
                ![zd23] = "付款单位 "
                ![zd24] = "付款账号 "
                ![zd25] = "结算金额 "
                ![zd26] = "币    别 "
                ![zd27] = "汇    率 "
                ![zd28] = "本位币金额 "
                ![zd29] = "摘    要 "
                ![zd30] = "收款经办 "
                ![zd31] = "付款经办 "
                ![zd32] = "中心经办 "
                ![zd33] = "复    核 "
                ![zd34] = "记    账 "
                ![zd35] = "制    单 "
            Case Is = "16"
                If Not IsNull(rsTprn![cDanID]) Then
                    strTemp = Ywbhtoname(left(rsTprn![cDanID], 2)) & "-" & right(rsTprn![cDanID], 10)
                    If left(rsTprn![cDanID], 2) = "05" Or left(rsTprn![cDanID], 2) = "06" Then
                        str1 = Getjxfs(rsTprn![iartyp])
                        If rsTprn![iartyp] <> 0 Then
                            str2 = IIf(IsNull(rsTprn![cCadID]), "", rsTprn![cCadID])
                        Else
                            str2 = ""
                        End If
                    Else
                        str1 = ""
                        str2 = IIf(IsNull(rsTprn![cCadID]), "", rsTprn![cCadID])
                    End If
                Else
                    strTemp = ""
                    str1 = ""
                    str2 = IIf(IsNull(rsTprn![cCadID]), "", rsTprn![cCadID])
                End If
       
                If rsTprn![cGAccID] <> "" Then
                    str3 = Wgetwbb(rsTprn![cGAccID])
                Else
                    If rsTprn![cPAccID] <> "" Then
                        str3 = Wgetwbb(rsTprn![cPAccID])
                    End If
                End If
        
                ![zd1] = strTemp
                ![zd2] = Format(rsTprn![dFrom], "yyyy-mm-dd") & "—" & Format(rsTprn![dTo], "yyyy-mm-dd")
                ![zd3] = ywmc & "-" & right(rsTprn![cCarID], 10)
                ![zd4] = Format(rsTprn![dbill_date], "yyyy-mm-dd")
                If IsNull(rsTprn![cGAccID]) Then
                    ![zd5] = ""
                Else
                    ![zd5] = Zhbhtodwmc(rsTprn![cGAccID])
                End If
                ![zd6] = IIf(IsNull(rsTprn![cGAccID]), "", rsTprn![cGAccID])
                If IsNull(rsTprn![cPAccID]) Then
                    ![zd7] = ""
                Else
                    ![zd7] = Zhbhtodwmc(rsTprn![cPAccID])
                End If
                ![zd8] = IIf(IsNull(rsTprn![cPAccID]), "", rsTprn![cPAccID])
                ![zd9] = Format(rsTprn![mMoney], "##,##0.00")
                ![zd10] = str3
                ![zd11] = Vround(rsTprn![nFrat], 6)
                ![zd12] = Format(rsTprn![mmoney_f], "##,##0.00")
                ![zd13] = rsTprn![cintrid]
                ![zd14] = str2
                ![zd15] = IIf(IsNull(rsTprn![cDigest]), "", rsTprn![cDigest])
                ![zd16] = str1
                ![zd17] = IIf(IsNull(rsTprn![cCheckCode]), "", rsTprn![cCheckCode])
                ![zd18] = IIf(IsNull(rsTprn![cBookCode]), "", rsTprn![cBookCode])
                ![zd19] = rsTprn![cBillCode]
                ![zd20] = "利  息  单"
                ![zd21] = "单据编号 "
                ![zd22] = "计息时间 "
                ![zd23] = "业务编号 "
                ![zd24] = "日期 "
                ![zd25] = "收息单位 "
                ![zd26] = "收息账户 "
                ![zd27] = "付息单位 "
                ![zd28] = "付息账户 "
                ![zd29] = "利息金额 "
                ![zd30] = "币    别 "
                ![zd31] = "汇    率 "
                ![zd32] = "本位币金额 "
                ![zd33] = "利率代码 "
                ![zd34] = "结息日代码 "
                ![zd35] = "摘    要 "
                ![zd36] = "计息方式 "
                ![zd37] = "复    核 "
                ![zd38] = "记    账 "
                ![zd39] = "制    单 "
        End Select
        .Update
        .Close
    End With
    PreDocuData = False
End Function

Private Function PreCkDocuData(ywbh As String) As Boolean
    Dim tmptb As dao.Recordset, rsTemp As New UfRecordset
    PreCkDocuData = True
    
    UfGridADO1.Rows = 2
    UfGridADO1.FixedRows = 2
    Set rsTemp = dbsZJ.OpenRecordset("select * from FD_Hasten where right([cHid],5)='" & right(ywbh, 5) & "'order by [cHid]", dbOpenSnapshot)
    With rsTemp
        If .EOF Then
            Exit Function
        End If
        .MoveFirst
        .MoveNext
        Do While Not .EOF
            If left(![cHid], 3) <> "000" Then
                UfGridADO1.AddItem "" & Format(![dBeday], "yyyy-mm-dd") & Chr(9) & _
                           Format(![dEndday], "yyyy-mm-dd") & Chr(9) & _
                           Format$(![Intra], "#0.#####") & Chr(9) & _
                           Format$(![Days], "##,##0") & Chr(9) & _
                           Format$(![cMoney], "##,##0.00")
            End If
            .MoveNext
        Loop
        .MoveFirst
    End With
  
    UfGridADO1.AddItem "合计" & Chr(9) & _
                    "" & Chr(9) & _
                    "" & Chr(9) & _
                    "" & Chr(9) & _
                    Format$(rsTemp![cIntrest], "##,##0.00")
        
    UfGridADO1.Redraw = True
    Set tmptb = dbsZjTemp.OpenRecordset("select * from [Print]", dbOpenDynaset)
    With tmptb
        .MoveFirst
        .Edit
        ![zd1] = "催 款 单"
        ![zd2] = "致:"
        ![zd3] = rsTemp![cUnitNmae]
        ![zd4] = "业务编号: "
        ![zd5] = "00000" & right(rsTemp![cHid], 5)
        ![zd6] = "合同号: "
        ![zd7] = IIf(IsNull(rsTemp![ctext]), "", rsTemp![ctext])
        ![zd8] = "币别: "
        ![zd9] = rsTemp![cexch_name]
        ![zd10] = "本金余额: "
        ![zd11] = Format(rsTemp![mMoney], "##,##0.0")
        ![zd12] = "分段计息记录"
        .Update
        .Close
    End With
    Set tmptb = dbsZjTemp.OpenRecordset("select * from print1", dbOpenDynaset)
    With tmptb
        .MoveFirst
        .Edit
        ![zd1] = "利息合计（大写）:"
        ![zd2] = Rmbdx(rsTemp![cIntrest])
        ![zd3] = "本息合计(大写):"
        ![zd4] = Rmbdx(rsTemp![mMoney] + rsTemp![cIntrest])
        ![zd5] = "备注:"
        ![zd6] = IIf(IsNull(rsTemp![cMark]), "", rsTemp![cMark])
        If IsNull(rsTemp![dDate2]) Then
            ![zd7] = "请将上述利息于" & Month(rsTemp![dDate1]) & "月" & Day(rsTemp![dDate1]) & "日之前加急电汇汇入我单位（或通过结算中心转入）"
        Else
            ![zd7] = "请将上述本息于" & Month(rsTemp![dDate2]) & "月" & Day(rsTemp![dDate2]) & "日之前加急电汇汇入我单位（或通过结算中心转入）"
        End If
        ![zd8] = "单位:"
        ![zd9] = ZjAccInfo.zjZtUnitName
        ![zd10] = "" & Year(rsTemp![dBeday]) & "年" & Month(rsTemp![dBeday]) & "月" & Day(rsTemp![dBeday]) & "日"
        .Update
        .Close
    End With
    
    rsTemp.oClose
    Set rsTemp = Nothing
    PreCkDocuData = False
End Function

Private Function WgetMoneyed(ywbh As String) As Double
    Dim rsRet As New UfRecordset, sqlRet As String
    Select Case ywzl
       Case "08"
           sqlRet = "select sum(mmoney) as med from FD_Return where [cCreID]='05" & ywbh & "'"
       Case "09"
           sqlRet = "select sum(mmoney) as med from FD_Return where [cCreID]='06" & ywbh & "'"
       Case "10"
           sqlRet = "select sum(mmoney) as med from FD_CreAcrRcp where [cCreID]='05" & ywbh & "'"
       Case "11"
           sqlRet = "select sum(mmoney) as med from FD_CreAcrRcp where [cCreID]='06" & ywbh & "'"
    End Select
    Set rsRet = dbsZJ.OpenRecordset(sqlRet, dbOpenDynaset)
    If rsRet.EOF Then
        WgetMoneyed = 0
    Else
        WgetMoneyed = IIf(IsNull(rsRet![Med]), 0, rsRet![Med])
    End If
    rsRet.oClose
End Function

Private Function WgetMoneyed1(ywbh As String) As Currency
    Dim rsRet As New UfRecordset, sqlRet As String
    If ywzl = "12" Then
        sqlRet = "select sum(mmoney) as med from FD_UnwRet where [cUnwID]='07" & ywbh & "'"
    Else
        sqlRet = "select sum(mmoney) as med from FD_UnwAcrRcp where [cUnwID]='07" & ywbh & "'"
    End If
    Set rsRet = dbsZJ.OpenRecordset(sqlRet, dbOpenDynaset)
    WgetMoneyed1 = IIf(IsNull(rsRet![Med]), 0, rsRet![Med])
    rsRet.oClose
End Function