📄 凭证批处理.frm
字号:
Set rskmbm = dbsZJ.OpenRecordset(strTemp, dbOpenSnapshot)
If Not (rskmbm.EOF Or rskmbm.BOF) Then
dVouch(i - 1).fCode3 = IIf(IsNull(rskmbm![DfKm]), "", rskmbm![DfKm])
Else
dVouch(i - 1).fCode3 = ""
End If
fillotherkm rskmbm, i, 2
rskmbm.oClose
End If
' dVouch(i).fCode1 = IIf(IsNull(![jfkm]), "", ![jfkm])
' dVouch(i).fCode2 = IIf(IsNull(![JfKm1]), "", ![JfKm1])
' dVouch(i).fCode3 = IIf(IsNull(![Dfkm]), IIf(IsNull(![DfKm1]), "", ![DfKm1]), ![Dfkm])
dVouch(i - 1).fDyYwID = IIf(IsNull(![correspond_vch_id]), "", ![correspond_vch_id])
Case 33
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 = 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
Else
dVouch(i - 1).fCode2 = IIf(IsNull(![DfKm]), "", ![DfKm])
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] & "' and ccode='" & dVouch(i - 1).fCode2 & "'"
Set rskmbm = dbsZJ.OpenRecordset(strTemp, dbOpenSnapshot)
fillotherkm rskmbm, i, 1
rskmbm.oClose
End If
' dVouch(i).fCode2 = IIf(IsNull(![Dfkm]), IIf(IsNull(![DfKm1]), "", ![DfKm1]), ![Dfkm])
' dVouch(i).fCode1 = IIf(IsNull(![jfkm]), "", ![jfkm])
Case 34
baseB = True
If IsNull(![accid1]) Then
dVouch(i - 1).fCode1 = ![JfKm]
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='" & ![accid2] & "' and ccode='" & dVouch(i - 1).fCode1 & "'"
Set rskmbm = dbsZJ.OpenRecordset(strTemp, dbOpenSnapshot)
fillotherkm rskmbm, i, 0
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,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
End If
'贷方利息科目
'strTemp = "select cCode AS DFKM where accdef_id='" & ![accid2] & "' AND (mQc = 1 OR mQc IS NULL) AND (type_flag = 4)"
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,citem_class,citem_id From fd_accset where accdef_id='" & ![accid2] & "' AND (type_flag = 4)"
Set rskmbm = dbsZJ.OpenRecordset(strTemp, dbOpenSnapshot)
If Not (rskmbm.EOF Or rskmbm.BOF) Then
dVouch(i - 1).fCode3 = IIf(IsNull(rskmbm![DfKm]), "", rskmbm![DfKm])
Else
dVouch(i - 1).fCode3 = ""
End If
fillotherkm rskmbm, i, 1
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
' dVouch(i).fCode2 = IIf(IsNull(![dfkm]), "", ![dfkm])
' dVouch(i).fCode3 = IIf(IsNull(![DfKm1]), "", ![DfKm1])
' dVouch(i).fCode1 = IIf(IsNull(![jfkm]), IIf(IsNull(![JfKm1]), "", ![JfKm1]), ![jfkm])
dVouch(i - 1).fDyYwID = IIf(IsNull(![correspond_vch_id]), "", ![correspond_vch_id])
Case 42
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,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
'贷方本金科目
dVouch(i - 1).fCode2 = IIf(IsNull(![DfKm]), "", ![DfKm])
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] & "' and ccode='" & dVouch(i - 1).fCode2 & "'"
Set rskmbm = dbsZJ.OpenRecordset(strTemp, dbOpenSnapshot)
fillotherkm rskmbm, i, 1
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 = 2)"
strTemp = strTemp & " AND (type_flag = 2)"
Set rskmbm = dbsZJ.OpenRecordset(strTemp, dbOpenSnapshot)
If Not (rskmbm.EOF Or rskmbm.BOF) Then
dVouch(i - 1).fCode3 = IIf(IsNull(rskmbm![DfKm]), "", rskmbm![DfKm])
Else
dVouch(i - 1).fCode3 = ""
End If
fillotherkm rskmbm, i, 2
rskmbm.oClose
' dVouch(i).fCode1 = IIf(IsNull(![JfKm]), "", ![JfKm])
' dVouch(i).fCode2 = IIf(IsNull(![Dfkm]), "", ![Dfkm])
' dVouch(i).fCode3 = IIf(IsNull(![DfKm1]), "", ![DfKm1])
dVouch(i - 1).fDyYwID = IIf(IsNull(![correspond_vch_id]), "", ![correspond_vch_id])
Case 46
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='" & ![accid2] & "' and ccode='" & dVouch(i - 1).fCode1 & "'"
Set rskmbm = dbsZJ.OpenRecordset(strTemp, dbOpenSnapshot)
fillotherkm rskmbm, i, 0
rskmbm.oClose
'借方应付利息科目
'strTemp = "select cCode AS JFKM From fd_accset where accdef_id='" & ![accid1] & "' AND (mQc = 0 OR mQc IS NULL) AND (type_flag = 3)"
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 = 3)"
Set rskmbm = dbsZJ.OpenRecordset(strTemp, dbOpenSnapshot)
If Not (rskmbm.EOF Or rskmbm.BOF) Then
dVouch(i - 1).fCode2 = IIf(IsNull(rskmbm![JfKm]), "", rskmbm![JfKm])
Else
dVouch(i - 1).fCode2 = ""
End If
fillotherkm rskmbm, i, 1
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).fCode3 = IIf(IsNull(rskmbm![DfKm]), "", rskmbm![DfKm])
Else
dVouch(i - 1).fCode3 = ""
End If
fillotherkm rskmbm, i, 2
rskmbm.oClose
' dVouch(i).fCode1 = IIf(IsNull(![Jfkm]), "", ![Jfkm])
' dVouch(i).fCode2 = IIf(IsNull(![JfKm1]), "", ![JfKm1])
' dVouch(i).fCode3 = IIf(IsNull(![DfKm]), "", ![DfKm])
dVouch(i - 1).fDyYwID = IIf(IsNull(![correspond_vch_id]), "", ![correspond_vch_id])
Case 51
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 = 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
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 52
baseB = True
'借方利息支出科目
'strTemp = "select cCode AS JFKM from fd_accset where accdef_id='" & ![accid1] & "' AND (mQc = 0 OR mQc IS NULL) AND (type_flag = 2)"
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 = 2)"
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)
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -