frmdprntj.frm

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

                rsTprn.oClose
                Exit Sub
            End If
            If RTPrn1.rtpPrinting Then GoTo err1
            rsTprn.MoveNext
        Loop
    Else
        
        Select Case ywzl
            Case Is = "01", "02", "03", "04"
                dJm = "yhckdj"
            Case Is = "05", "06"
                dJm = "yhdkdj"
            Case Is = "07"
                dJm = "nbcjdj"
            Case Is = "08", "09", "10", "11"
                dJm = "yhdkhkdj"
            Case Is = "12", "13"
                dJm = "nbcjhkdj"
            Case Is = "14"
                dJm = "ybjsdj"
            Case Is = "15"
                dJm = "nbjsdj"
            Case Is = "16"
                dJm = "zjlxdj"
            Case Else
                Exit Sub
        End Select
        
        WgetPaper dJm
        
        If ZjAccInfo.zjPrnSetPager = 256 Then
            Lp2 = 1
        Else
            Lp2 = 0
        End If
        
        
        With Me.RTPrn1
            .lngrtpType = 3
            .strrtpTempBase = ZjAccInfo.zjTempPath & ZjAccInfo.zjTempDB
            .strrtpTitleTempletFile = ZjAccInfo.zjRepPath & ZjAccInfo.zjPrnbtRepName
            .strrtpTitleTempTable = "Print"
            .brtpUseSetupDialog = False
            Retv = .rtpPageSetup(Lp1, Lp2, PaperName)
        End With
        If Retv = -1 Or (Retv Mod 65536) > 1000 Then GoTo err1
        
        Do While Not rsTprn.EOF
            If PreDocuData() Then
                rsTprn.oClose
                Exit Sub
            End If
            If RTPrn1.rtpPrinting Then GoTo err1
            rsTprn.MoveNext
        Loop
    End If
    
    
    ZjAccInfo.zjPrnSetPager = CStr(Retv Mod 65536)
    ZjAccInfo.zjPrnSetFx = IIf(CInt(Retv / 65536) = 1, True, False)
    If ZjAccInfo.zjPrnSetPager = 256 Then
        ZjAccInfo.zjPaperWidth = Lp1
        ZjAccInfo.zjPaperHight = Lp2
    Else
        ZjAccInfo.zjPaperWidth = 0
        ZjAccInfo.zjPaperHight = 0
    End If
    WSetPaper dJm
    
err1:
    rsTprn.oClose
    
End Sub

Private Function PreDocuData() As Boolean
    Dim tmptb As dao.Recordset, rsCred As New UfRecordset, strTemp As String, str1 As String, str2 As String, str3 As String
    PreDocuData = True
    Set tmptb = dbsZjTemp.OpenRecordset("select * from [Print]", dbOpenDynaset)
    With tmptb
        .MoveFirst
        .Edit
        Select Case ywzl
            Case Is = "01", "02", "03", "04"
                ![zd1] = "    " & IIf(rsTprn![isc] = 0, "定期", "活期")
                If ywzl = "01" Or ywzl = "03" Then
                    ![zd2] = ywmc & "-" & right(rsTprn![cSavID], 10)
                Else
                    ![zd2] = ywmc & "-" & right(rsTprn![cFetID], 10)
                End If
                ![zd3] = Format(rsTprn![dbill_date], "yyyy-mm-dd")
                ![zd4] = Zhbhtodwmc(rsTprn![cAccId])
                ![zd5] = rsTprn![cAccId]
                ![zd6] = Format(rsTprn![mMoney], "##,##0.00")
                ![zd7] = Wgetwbb(rsTprn![cAccId])
                ![zd8] = Vround(rsTprn![nFrat], 6)
                ![zd9] = Format(rsTprn![mmoney_f], "##,##0.00")
                ![zd10] = Wgetlldm(rsTprn![cAccId])
                ![zd11] = IIf(rsTprn![iMonth] = 0, "", rsTprn![iMonth])
                ![zd12] = IIf(IsNull(rsTprn![cDigest]), "", rsTprn![cDigest])
                ![zd13] = IIf(IsNull(rsTprn![ctran_name]), "", rsTprn![ctran_name])
                ![zd14] = IIf(IsNull(rsTprn![cCheckCode]), "", rsTprn![cCheckCode])
                ![zd15] = IIf(IsNull(rsTprn![cBookCode]), "", rsTprn![cBookCode])
                ![zd16] = rsTprn![cBillCode]
                ![zd17] = IIf(ywzl = "01", "银行存款单", IIf(ywzl = "02", "银行取款单", IIf(ywzl = "03", "内部存款单", "内部取款单")))
                ![zd18] = IIf(ywzl = "01" Or ywzl = "02", "银行名称", "内部单位") & " "
                ![zd19] = IIf(ywzl = "01" Or ywzl = "02", "银行账户", "账 户 号") & " "
                ![zd20] = IIf(ywzl = "01" Or ywzl = "03", "存款金额", "取款金额") & " "
                ![zd21] = "业务编号 "
                ![zd22] = "日期 "
                ![zd23] = "币    别 "
                ![zd24] = "汇    率 "
                ![zd25] = "本位币金额 "
                ![zd26] = "利率代码 "
                ![zd27] = "存期（月）"
                ![zd28] = "摘    要 "
                ![zd29] = "经 办 人 "
                ![zd30] = "复    核 "
                ![zd31] = "记    账 "
                ![zd32] = "制    单 "
            Case Is = "05", "06"
                ![zd1] = ywmc & "-" & right(rsTprn![cCreID], 10)
                ![zd2] = Format(rsTprn![dbill_date], "yyyy-mm-dd")
                ![zd3] = Zhbhtodwmc(rsTprn![cAccId])
                ![zd4] = rsTprn![cAccId]
                ![zd5] = Format(rsTprn![mMoney], "##,##0.00")
                ![zd6] = Wgetwbb(rsTprn![cAccId])
                ![zd7] = Vround(rsTprn![nFrat], 6)
                ![zd8] = Format(rsTprn![mmoney_f], "##,##0.00")
                ![zd9] = Format(rsTprn![Dret_date], "yyyy-mm-dd")
                ![zd10] = rsTprn![cintrid]
                ![zd11] = Format(WgetyhMoney(rsTprn![cCreID]), "##,##0.00")
                ![zd12] = IIf(IsNull(rsTprn![mmoneying]), "", rsTprn![mmoneying])
                ![zd13] = IIf(IsNull(rsTprn![ctran_name]), "", rsTprn![ctran_name])
                ![zd14] = IIf(IsNull(rsTprn![center_name]), "", rsTprn![center_name])
                ![zd15] = IIf(IsNull(rsTprn![cCadID]), "", rsTprn![cCadID])
                ![zd16] = IIf(IsNull(rsTprn![cDigest]), "", rsTprn![cDigest])
                ![zd17] = Getjxfs(rsTprn![iartyp])
                ![zd18] = IIf(IsNull(rsTprn![cCheckCode]), "", rsTprn![cCheckCode])
                ![zd19] = IIf(IsNull(rsTprn![cBookCode]), "", rsTprn![cBookCode])
                ![zd20] = rsTprn![cBillCode]
                ![zd21] = IIf(ywzl = "05", "银行贷款单", "内部贷款单")
                ![zd22] = "业务编号 "
                ![zd23] = "日期 "
                ![zd24] = IIf(ywzl = "05", "银行名称", "单位名称") & " "
                ![zd25] = IIf(ywzl = "05", "银行账号", "账 户 号") & " "
                ![zd26] = "借款金额 "
                ![zd27] = "币    别 "
                ![zd28] = "汇    率 "
                ![zd29] = "本位币金额 "
                ![zd30] = "还款日期 "
                ![zd31] = "利率代码 "
                ![zd32] = "已还金额 "
                ![zd33] = "担保金额 "
                ![zd34] = "经 手 人 "
                ![zd35] = "担保单位 "
                ![zd36] = "结息日代码 "
                ![zd37] = "摘    要 "
                ![zd38] = "计息方式 "
                ![zd39] = "复    核 "
                ![zd40] = "记    账 "
                ![zd41] = "制    单 "
            Case Is = "07"
                ![zd1] = ywmc & "-" & right(rsTprn![cUnwID], 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] = Vround(rsTprn![nFrat], 6)
                ![zd10] = Format(rsTprn![mmoney_f], "##,##0.00")
                ![zd11] = Format(rsTprn![Dret_date], "yyyy-mm-dd")
                ![zd12] = rsTprn![cintrid]
                ![zd13] = IIf(IsNull(rsTprn![crun_name]), "", rsTprn![crun_name])
                ![zd14] = IIf(IsNull(rsTprn![cpay_name]), "", rsTprn![cpay_name])
                ![zd15] = IIf(IsNull(rsTprn![cset_name]), "", rsTprn![cset_name])
                ![zd16] = IIf(IsNull(rsTprn![cDigest]), "", rsTprn![cDigest])
                ![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] = "制    单 "
            Case Is = "08", "09", "10", "11"
                
                ![zd1] = Ywbhtoname(IIf(ywzl = "08" Or ywzl = "10", "05", "06")) & "-" & right(rsTprn![cCreID], 10)
                If ywzl = "08" Or ywzl = "09" Then
                    ![zd2] = ywmc & "-" & right(rsTprn![cRetID], 10)
                Else
                    ![zd2] = ywmc & "-" & right(rsTprn![cCraID], 10)
                End If
                ![zd3] = Format(rsTprn![dbill_date], "yyyy-mm-dd")
                ![zd4] = Zhbhtodwmc(rsTprn![cAccId])
                ![zd5] = rsTprn![cAccId]
                ![zd6] = Format(rsTprn![mMoney], "##,##0.00")
                ![zd7] = Wgetwbb(rsTprn![cAccId])
                ![zd8] = Vround(rsTprn![nFrat], 6)
                ![zd9] = Format(rsTprn![mmoney_f], "##,##0.00")
                ![zd10] = Jsfscton(rsTprn![isettle], True)
                
                Set rsCred = dbsZJ.OpenRecordset("FD_Cred", dbOpenTable)
                rsCred.Index = "PrimaryKey"
                strTemp = IIf(ywzl = "08" Or ywzl = "10", "05", "06") & right(rsTprn![cCreID], 10)
                rsCred.oSeek "=", strTemp
                If rsCred.NoMatch Then
                    rsCred.oClose
                    Exit Function
                Else
                    ![zd11] = Format(WgetMoneyed(right(rsTprn![cCreID], 10)), "##,##0.00")
                    ![zd12] = Format(rsCred![dbill_date], "yyyy-mm-dd")
                    ![zd13] = Format(rsCred![Dret_date], "yyyy-mm-dd")
                    ![zd14] = rsCred![cintrid]
                End If
                rsCred.oClose
                ![zd15] = IIf(IsNull(rsTprn![ctran_name]), "", rsTprn![ctran_name])
                ![zd16] = IIf(IsNull(rsTprn![cDigest]), "", rsTprn![cDigest])
                ![zd17] = IIf(IsNull(rsTprn![cCheckCode]), "", rsTprn![cCheckCode])
                ![zd18] = IIf(IsNull(rsTprn![cBookCode]), "", rsTprn![cBookCode])
                ![zd19] = rsTprn![cBillCode]
                ![zd20] = IIf(ywzl = "08" Or ywzl = "09", "本金还款单", "利息还款单")
                ![zd21] = "贷款业务编号 "
                ![zd22] = "还款业务编号 "
                ![zd23] = "日期 "
                ![zd24] = "单位名称 "
                ![zd25] = "账 户 号 "
                ![zd26] = "还款金额 "
                ![zd27] = "币    别 "
                ![zd28] = "汇    率 "
                ![zd29] = "本位币还款金额 "
                ![zd30] = "付款方式 "
                ![zd31] = "已还金额 "
                ![zd32] = "借款日期 "
                ![zd33] = "还款日期 "
                ![zd34] = "利率代码 "
                ![zd35] = "经办人 "
                ![zd36] = "摘    要 "
                ![zd37] = "复    核 "
                ![zd38] = "记    账 "
                ![zd39] = "制    单 "
            Case Is = "12", "13"
                ![zd1] = Ywbhtoname("07") & "-" & right(rsTprn![cUnwID], 10)
                If ywzl = "12" Then
                    ![zd2] = ywmc & "-" & right(rsTprn![cRetID], 10)
                Else
                    ![zd2] = ywmc & "-" & right(rsTprn![cUnaID], 10)
                End If
                ![zd3] = Format(rsTprn![dbill_date], "yyyy-mm-dd")
                ![zd4] = Zhbhtodwmc(rsTprn![cGAccID])
                ![zd5] = rsTprn![cGAccID]
                ![zd6] = Zhbhtodwmc(rsTprn![cPAccID])
                ![zd7] = rsTprn![cPAccID]
                ![zd8] = Format(rsTprn![mMoney], "##,##0.00")
                ![zd9] = Wgetwbb(rsTprn![cGAccID])
                ![zd10] = Vround(rsTprn![nFrat], 6)
                ![zd11] = Format(rsTprn![mmoney_f], "##,##0.00")
                
                Set rsCred = dbsZJ.OpenRecordset("FD_UnwDeb", dbOpenTable)
                rsCred.Index = "PrimaryKey"
                strTemp = rsTprn![cUnwID]
                rsCred.oSeek "=", strTemp
                If rsCred.NoMatch Then
                    rsCred.oClose
                    Exit Function
                Else
                    ![zd12] = rsCred![cintrid]
                    ![zd13] = WgetMoneyed1(right(rsTprn![cUnwID], 10))
                    ![zd14] = Format(rsCred![dbill_date], "yyyy-mm-dd")
                    ![zd15] = Format(rsCred![Dret_date], "yyyy-mm-dd")
                End If
                rsCred.oClose
                ![zd16] = IIf(IsNull(rsTprn![crun_name]), "", rsTprn![crun_name])
                ![zd17] = IIf(IsNull(rsTprn![cpay_name]), "", rsTprn![cpay_name])
                ![zd18] = IIf(IsNull(rsTprn![cset_name]), "", rsTprn![cset_name])
                ![zd19] = IIf(IsNull(rsTprn![cDigest]), "", rsTprn![cDigest])
                ![zd20] = IIf(IsNull(rsTprn![cCheckCode]), "", rsTprn![cCheckCode])
                ![zd21] = IIf(IsNull(rsTprn![cBookCode]), "", rsTprn![cBookCode])
                ![zd22] = rsTprn![cBillCode]