📄 凭证批处理.frm
字号:
If mField(3).fshow Then
UfGridADO1.TextMatrix(j, k) = Format(![BillMoney], "#0.00")
k = k + 1
End If
If mField(4).fshow Then
UfGridADO1.TextMatrix(j, k) = IIf(IsNull(![billdigest]), "", ![billdigest])
k = k + 1
End If
ReDim Preserve dVouch(i)
dVouch(i - 1).fDigest = IIf(IsNull(![billdigest]), "", ![billdigest])
dVouch(i - 1).fDjID = ![BillID]
dVouch(i - 1).fDjrq = ![BillDate]
dVouch(i - 1).fMoney = ![BillMoney]
If IsNull(![BillZhID1]) Then
strTemp = ""
Else
strTemp = ![BillZhID1]
End If
dVouch(i - 1).fZhID1 = IIf(strTemp = "", "****", strTemp)
If IsNull(![BillZhID2]) Then
strTemp = ""
Else
strTemp = ![BillZhID2]
End If
dVouch(i - 1).fZhID2 = IIf(strTemp = "", "****", strTemp)
' If ![billhl] <> 1 Then
' strTemp = Wgetwbb(IIf(dVouch(i - 1).fZhID1 = "****", dVouch(i - 1).fZhID2, dVouch(i - 1).fZhID1))
' dVouch(i - 1).fHl = GetCurHl(strTemp, Format(zjLogInfo.curdate, "yyyy-mm-dd"))
' If dVouch(i - 1).fHl = 0 Then dVouch(i - 1).fHl = ![billhl]
' Else
dVouch(i - 1).fHl = ![billhl]
' End If
'--------------------------------luotao 2002-07-06
Dim baseB As Boolean
baseB = False
' dVouch(i).fCode1 = IIf(IsNull(![jfkm]), "", ![jfkm])
' dVouch(i).fCode2 = IIf(IsNull(![Dfkm]), "", ![Dfkm])
Select Case NodeKey
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 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 IsNull(![accid2]) Then
'strTemp = "select cCode AS JFKM,cDeptCode AS Cdept_id,cPersonCode AS cperson_id,cCusCode AS ccus_id, cSupCode AS Csup_id,cDeptCode AS Cdept_id,cPersonCode AS cperson_id,cCusCode AS ccus_id,cSupCode AS Csup_id 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_id,citem_class 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).fCode2 = IIf(IsNull(rskmbm![JfKm]), "", rskmbm![JfKm])
Else
dVouch(i - 1).fCode2 = ""
End If
fillotherkm rskmbm, i, 1
rskmbm.oClose
'贷方本金科目
dVouch(i - 1).fCode3 = 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 "
strTemp = strTemp & "From fd_accset where accdef_id='" & ![accid1] & "' AND (dbo.FD_AccSet.ccode ='" & dVouch(i - 1).fCode3 & "')"
Set rskmbm = dbsZJ.OpenRecordset(strTemp, dbOpenSnapshot)
fillotherkm rskmbm, i, 2
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 = 5)"
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)"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -