凭证批处理.frm

用友U8财务软件VB源程序, 本版本为2002年版本

                        If Not (rskmbm.EOF Or rskmbm.BOF) Then
                            dVouch(i - 1).fCode2 = IIf(IsNull(rskmbm![DfKm]), "", rskmbm![DfKm])
                        Else
                            dVouch(i - 1).fCode2 = ""
                        End If
                        fillotherkm rskmbm, i, 1
                        rskmbm.oClose
                    Else
                        dVouch(i - 1).fCode2 = IIf(IsNull(![DfKm]), "", ![DfKm])
                        strTemp = "select cDeptCode AS Cdept_id,cPersonCode AS cperson_id,cCusCode AS ccus_id, cSupCode AS Csup_id,citem_class,citem_id from fd_accset where accdef_id='" & ![accid1] & "' and ccode='" & dVouch(i - 1).fCode2 & "'"
                        Set rskmbm = dbsZJ.OpenRecordset(strTemp, dbOpenSnapshot)
                        fillotherkm rskmbm, i, 1
                        rskmbm.oClose
                    
                    End If
                Case 54
                    baseB = True
                    
                    '借方利息支出科目
                    'strTemp = "select cCode AS JFKM from fd_accset where accdef_id='" & ![accid1] & "' AND (mQc = 0 OR mQc IS NULL) AND (type_flag = 1)"
                        strTemp = "select cCode AS JFKM,cDeptCode AS Cdept_id,cPersonCode AS cperson_id,cCusCode AS ccus_id, cSupCode AS Csup_id,citem_class,citem_id from fd_accset where accdef_id='" & ![accid1] & "' AND (type_flag = 1)"
                        Set rskmbm = dbsZJ.OpenRecordset(strTemp, dbOpenSnapshot)
                        If Not (rskmbm.EOF Or rskmbm.BOF) Then
                            dVouch(i - 1).fCode1 = IIf(IsNull(rskmbm![JfKm]), "", rskmbm![JfKm])
                        Else
                            dVouch(i - 1).fCode1 = ""
                        End If
                        fillotherkm rskmbm, i, 0
                        rskmbm.oClose
                    '贷方本金科目
                    If Not IsNull(![accid2]) Then
                        strTemp = "select cCode AS DFKM,cDeptCode AS Cdept_id,cPersonCode AS cperson_id,cCusCode AS ccus_id, cSupCode AS Csup_id,citem_class,citem_id from fd_accset where accdef_id='" & ![accid2] & "' "
                        'strTemp = strTemp & " AND (mQc = 1 OR mQc IS NULL) AND (type_flag = 4)"
                        strTemp = strTemp & " AND (type_flag = 4)"
                        Set rskmbm = dbsZJ.OpenRecordset(strTemp, dbOpenSnapshot)
                        If Not (rskmbm.EOF Or rskmbm.BOF) Then
                            dVouch(i - 1).fCode2 = IIf(IsNull(rskmbm![DfKm]), "", rskmbm![DfKm])
                        Else
                            dVouch(i - 1).fCode2 = ""
                        End If
                    Else
                        dVouch(i - 1).fCode2 = IIf(IsNull(![DfKm]), "", ![DfKm])
                        strTemp = "select cDeptCode AS Cdept_id,cPersonCode AS cperson_id,cCusCode AS ccus_id, cSupCode AS Csup_id,citem_class,citem_id from fd_accset where accdef_id='" & ![accid1] & "' and ccode='" & dVouch(i - 1).fCode2 & "'"
                        Set rskmbm = dbsZJ.OpenRecordset(strTemp, dbOpenSnapshot)
                    End If
                    fillotherkm rskmbm, i, 1
                    rskmbm.oClose
    
                Case 55
                    baseB = True
                    
                    '借方利息支出科目
                    'strTemp = "select cCode AS JFKM from fd_accset where accdef_id='" & ![accid1] & "' AND (mQc = 0 OR mQc IS NULL) AND (type_flag = 5)"
                        strTemp = "select cCode AS JFKM,cDeptCode AS Cdept_id,cPersonCode AS cperson_id,cCusCode AS ccus_id, cSupCode AS Csup_id,citem_class,citem_id from fd_accset where accdef_id='" & ![accid1] & "' AND (type_flag = 5)"
                        Set rskmbm = dbsZJ.OpenRecordset(strTemp, dbOpenSnapshot)
                        If Not (rskmbm.EOF Or rskmbm.BOF) Then
                            dVouch(i - 1).fCode1 = IIf(IsNull(rskmbm![JfKm]), "", rskmbm![JfKm])
                        Else
                            dVouch(i - 1).fCode1 = ""
                        End If
                        fillotherkm rskmbm, i, 0
                        rskmbm.oClose
                    '贷方本金科目
                    If Not IsNull(![accid2]) Then
                        strTemp = "select cCode AS DFKM,cDeptCode AS Cdept_id,cPersonCode AS cperson_id,cCusCode AS ccus_id, cSupCode AS Csup_id,citem_class,citem_id from fd_accset where accdef_id='" & ![accid2] & "' "
                        'strTemp = strTemp & " AND (mQc = 1 OR mQc IS NULL) AND (type_flag = 3)"
                        strTemp = strTemp & " AND (type_flag = 3)"
                        Set rskmbm = dbsZJ.OpenRecordset(strTemp, dbOpenSnapshot)
                        If Not (rskmbm.EOF Or rskmbm.BOF) Then
                            dVouch(i - 1).fCode2 = IIf(IsNull(rskmbm![DfKm]), "", rskmbm![DfKm])
                        Else
                            dVouch(i - 1).fCode2 = ""
                        End If
                    Else
                        dVouch(i - 1).fCode2 = IIf(IsNull(![DfKm]), "", ![DfKm])
                        strTemp = "select cDeptCode AS Cdept_id,cPersonCode AS cperson_id,cCusCode AS ccus_id, cSupCode AS Csup_id,citem_class,citem_id from fd_accset where accdef_id='" & ![accid1] & "' and ccode='" & dVouch(i - 1).fCode2 & "'"
                        Set rskmbm = dbsZJ.OpenRecordset(strTemp, dbOpenSnapshot)
                    End If
                    fillotherkm rskmbm, i, 1
                    rskmbm.oClose

        End Select
        If Not baseB Then
            Select Case DeriverNodeKey
                Case 21, 27, 41
                    baseB = True
                    
                    dVouch(i - 1).fCode1 = IIf(IsNull(![JfKm]), "", ![JfKm])
                    strTemp = "select cDeptCode AS Cdept_id,cPersonCode AS cperson_id,cCusCode AS ccus_id, cSupCode AS Csup_id,citem_class,citem_id From fd_accset where accdef_id='" & ![accid1] & "' "
                    strTemp = strTemp & " AND (ccode ='" & dVouch(i - 1).fCode1 & "')"
                    Set rskmbm = dbsZJ.OpenRecordset(strTemp, dbOpenSnapshot)
                    fillotherkm rskmbm, i, 0
                    rskmbm.oClose
                    
                    strTemp = "select cCode AS DFKM,cDeptCode AS Cdept_id,cPersonCode AS cperson_id,cCusCode AS ccus_id, cSupCode AS Csup_id,citem_class,citem_id From fd_accset where accdef_id='" & ![accid1] & "' "
                    'strTemp = strTemp & " AND ((mQc =1 OR dbo.FD_AccSet.mQc IS NULL) AND (dbo.FD_AccSet.type_flag =1))"
                    strTemp = strTemp & " AND (dbo.FD_AccSet.type_flag =1)"
                    Set rskmbm = dbsZJ.OpenRecordset(strTemp, dbOpenSnapshot)
                    If Not (rskmbm.EOF Or rskmbm.BOF) Then
                        dVouch(i - 1).fCode2 = IIf(IsNull(rskmbm![DfKm]), "", rskmbm![DfKm])
                    Else
                       dVouch(i - 1).fCode2 = ""
                    End If
                    fillotherkm rskmbm, i, 1
                    rskmbm.oClose
    
                Case 22, 26, 45
                    baseB = True
                    
                    dVouch(i - 1).fCode2 = IIf(IsNull(![DfKm]), "", ![DfKm])
                    strTemp = "select cDeptCode AS Cdept_id,cPersonCode AS cperson_id,cCusCode AS ccus_id, cSupCode AS Csup_id,citem_class,citem_id "
                    strTemp = strTemp & "From fd_accset where accdef_id='" & ![accid1] & "' AND (dbo.FD_AccSet.ccode ='" & dVouch(i - 1).fCode2 & "')"
                    Set rskmbm = dbsZJ.OpenRecordset(strTemp, dbOpenSnapshot)
                    fillotherkm rskmbm, i, 1
                    rskmbm.oClose
                    
                    strTemp = "select cCode AS JFKM,cDeptCode AS Cdept_id,cPersonCode AS cperson_id,cCusCode AS ccus_id, cSupCode AS Csup_id,citem_class,citem_id "
                    'strtemp=sdtrtemp & "From fd_accset where accdef_id='" & ![accid1] & "' AND (dbo.FD_AccSet.mQc = 0 OR dbo.FD_AccSet.mQc IS NULL) AND (dbo.FD_AccSet.type_flag = 1)"
                    strTemp = strTemp & "From fd_accset where accdef_id='" & ![accid1] & "' AND (dbo.FD_AccSet.type_flag = 1)"
                    Set rskmbm = dbsZJ.OpenRecordset(strTemp, dbOpenSnapshot)
                    If Not (rskmbm.EOF Or rskmbm.BOF) Then
                        dVouch(i - 1).fCode1 = IIf(IsNull(rskmbm![JfKm]), "", rskmbm![JfKm])
                    Else
                        dVouch(i - 1).fCode1 = ""
                    End If
                    fillotherkm rskmbm, i, 0
                    rskmbm.oClose
                    
                Case 23, 24, 25, 28, 43, 44
                    baseB = True
                    
                    'strTemp = "select cCode AS JFKM from fd_accset where accdef_id='" & ![accid1] & "' AND (mQc = 0 OR mQc IS NULL) AND (type_flag = 1)"
                    strTemp = "select cCode AS JFKM,cDeptCode AS Cdept_id,cPersonCode AS cperson_id,cCusCode AS ccus_id, cSupCode AS Csup_id,citem_class,citem_id from fd_accset where (accdef_id='" & ![accid1] & "') AND (type_flag = 1)"
                    Set rskmbm = dbsZJ.OpenRecordset(strTemp, dbOpenSnapshot)
                    If Not (rskmbm.EOF Or rskmbm.BOF) Then
                        dVouch(i - 1).fCode1 = IIf(IsNull(rskmbm![JfKm]), "", rskmbm![JfKm])
                    Else
                        dVouch(i - 1).fCode1 = ""
                    End If
                    fillotherkm rskmbm, i, 0
                    rskmbm.oClose
                    
                    strTemp = "select cCode AS DFKM,cDeptCode AS Cdept_id,cPersonCode AS cperson_id,cCusCode AS ccus_id, cSupCode AS Csup_id,citem_class,citem_id From fd_accset where accdef_id='" & ![accid2] & "' "
                    'strTemp = strTemp & " AND (mQc = 1 OR mQc IS NULL) AND (type_flag = 1)"
                    strTemp = strTemp & " AND (type_flag = 1)"
                    Set rskmbm = dbsZJ.OpenRecordset(strTemp, dbOpenSnapshot)
                    If Not (rskmbm.EOF Or rskmbm.BOF) Then
                        dVouch(i - 1).fCode2 = IIf(IsNull(rskmbm![DfKm]), "", rskmbm![DfKm])
                    Else
                        dVouch(i - 1).fCode2 = ""
                    End If
                    fillotherkm rskmbm, i, 1
                    rskmbm.oClose
                    
                Case 29, 30
                    baseB = True
                    
                    'strTemp = "select cCode AS JFKM from fd_accset where accdef_id='" & ![accid1] & "' AND (mQc = 0 OR mQc IS NULL) AND (type_flag = 1)"
                    strTemp = "select cCode AS JFKM,cDeptCode AS Cdept_id,cPersonCode AS cperson_id,cCusCode AS ccus_id, cSupCode AS Csup_id,citem_class,citem_id from fd_accset where (accdef_id='" & ![accid1] & "') AND (type_flag = 1)"
                    Set rskmbm = dbsZJ.OpenRecordset(strTemp, dbOpenSnapshot)
                    If Not (rskmbm.EOF Or rskmbm.BOF) Then
                        dVouch(i - 1).fCode1 = IIf(IsNull(rskmbm![JfKm]), "", rskmbm![JfKm])
                    Else
                        dVouch(i - 1).fCode1 = ""
                    End If
                    fillotherkm rskmbm, i, 0
                    rskmbm.oClose
                    
                    strTemp = "select cCode AS DFKM,cDeptCode AS Cdept_id,cPersonCode AS cperson_id,cCusCode AS ccus_id, cSupCode AS Csup_id,citem_class,citem_id From fd_accset where accdef_id='" & ![accid2] & "' "
                    'strTemp = strTemp & " AND (mQc = 1 OR mQc IS NULL) AND (type_flag = 1)"
                    strTemp = strTemp & " AND (type_flag = 1)"
                    Set rskmbm = dbsZJ.OpenRecordset(strTemp, dbOpenSnapshot)
                    If Not (rskmbm.EOF Or rskmbm.BOF) Then
                        dVouch(i - 1).fCode2 = IIf(IsNull(rskmbm![DfKm]), "", rskmbm![DfKm])
                    Else
                        dVouch(i - 1).fCode2 = ""
                    End If
                    fillotherkm rskmbm, i, 1
                    rskmbm.oClose
                    
                Case 31
                    baseB = True
                    
                    If IsNull(![accid1]) Then
                        dVouch(i - 1).fCode1 = IIf(IsNull(![JfKm]), "", ![JfKm])
                        strTemp = "select cDeptCode AS Cdept_id,cPersonCode AS cperson_id,cCusCode AS ccus_id, cSupCode AS Csup_id,citem_class,citem_id From fd_accset where (accdef_id='" & ![accid1] & "') "
                        strTemp = strTemp & " AND (ccode ='" & dVouch(i - 1).fCode1 & "')"
                        Set rskmbm = dbsZJ.OpenRecordset(strTemp, dbOpenSnapshot)
                        fillotherkm rskmbm, i, 0
                        rskmbm.oClose
                        
                        strTemp = "select cCode AS DFKM,cDeptCode AS Cdept_id,cPersonCode AS cperson_id,cCusCode AS ccus_id, cSupCode AS Csup_id,citem_class,citem_id From fd_accset where (accdef_id='" & ![accid2] & "') "
                        'strTemp = strTemp & " AND ((mQc =1 OR dbo.FD_AccSet.mQc IS NULL) AND (dbo.FD_AccSet.type_flag =1))"
                        strTemp = strTemp & " AND  (dbo.FD_AccSet.type_flag =1)"
                        Set rskmbm = dbsZJ.OpenRecordset(strTemp, dbOpenSnapshot)
                        If Not (rskmbm.EOF Or rskmbm.BOF) Then
                            dVouch(i - 1).fCode2 = IIf(IsNull(rskmbm![DfKm]), "", rskmbm![DfKm])
                        Else
                           dVouch(i - 1).fCode2 = ""
                        End If
                        fillotherkm rskmbm, i, 1
                        rskmbm.oClose
                        
                    Else
                        'strTemp = "select cCode AS JFKM from fd_accset where accdef_id='" & ![accid1] & "' AND (mQc = 0 OR mQc IS NULL) AND (type_flag = 1)"
                        strTemp = "select cCode AS JFKM,cDeptCode AS Cdept_id,cPersonCode AS cperson_id,cCusCode AS ccus_id, cSupCode AS Csup_id,citem_class,citem_id from fd_accset where accdef_id='" & ![accid1] & "' AND (type_flag = 1)"
                        Set rskmbm = dbsZJ.OpenRecordset(strTemp, dbOpenSnapshot)
                        If Not (rskmbm.EOF Or rskmbm.BOF) Then
                            dVouch(i - 1).fCode1 = IIf(IsNull(rskmbm![JfKm]), "", rskmbm![JfKm])
                        Else
                            dVouch(i - 1).fCode1 = ""
                        End If
                        fillotherkm rskmbm, i, 0
                        rskmbm.oClose
                        
                        strTemp = "select cCode AS DFKM,cDeptCode AS Cdept_id,cPersonCode AS cperson_id,cCusCode AS ccus_id, cSupCode AS Csup_id,citem_class,citem_id From fd_accset where accdef_id='" & ![accid2] & "' "
                        'strTemp = strTemp & " AND (mQc = 1 OR mQc IS NULL) AND (type_flag = 1)"
                        strTemp = strTemp & " AND (type_flag = 1)"
                        Set rskmbm = dbsZJ.OpenRecordset(strTemp, dbOpenSnapshot)
                        If Not (rskmbm.EOF Or rskmbm.BOF) Then
                            dVouch(i - 1).fCode2 = IIf(IsNull(rskmbm![DfKm]), "", rskmbm![DfKm])
                        Else
                            dVouch(i - 1).fCode2 = ""
                        End If
                        fillotherkm rskmbm, i, 1
                        rskmbm.oClose
                    End If
                Case 32
                    baseB = True
                    
                    '借方本金科目
                    'strTemp = "select cCode AS JFKM From fd_accset where accdef_id='" & ![accid1] & "' AND (mQc = 0 OR mQc IS NULL) AND (type_flag = 1)"
                    strTemp = "select cCode AS