Skip to content
Open
Show file tree
Hide file tree
Changes from all commits
Commits
File filter

Filter by extension

Filter by extension


Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
Original file line number Diff line number Diff line change
Expand Up @@ -101,6 +101,20 @@ Module Analyze_AP
Call AddStatusInfo(sqlStringExec, sDescr, sResult)


RecID = RecID + 1
sDescr = "Are AP Distributed Liability Vouchers being used?"
sqlStmt = "SELECT COUNT(*) FROM APDOC VO WHERE VO.S4Future11 = 'VM' AND EXISTS (SELECT * FROM APDOC VM WHERE VM.DocType = 'VM' AND VO.S4Future12 = VM.RefNbr)"
Call sqlFetch_Num(retValInt1, sqlStmt, SqlAppDbConn)
If retValInt1 > 0 Then
sResult = "YES"
Else
sResult = "NO"
End If
sqlStringValues = SParm(sAnalysisType) + "," + SParm(sDescr) + "," + SParm(CurrDateStr) + "," + SParm(sModule) + "," + CStr(RecID) + "," + SParm(sResult)
sqlStringExec = sqlStringStart + sqlStringValues + sqlStringEnd
Call AddStatusInfo(sqlStringExec, sDescr, sResult)


RecID = RecID + 1
sDescr = "Current period for the module:"
sqlStmt = "SELECT CurrPerNbr, PerNbr, PerRetHist, PerRetTran FROM APSetup"
Expand Down Expand Up @@ -185,7 +199,6 @@ Module Analyze_AP
sqlStringValues = SParm(sAnalysisType) + "," + SParm(sDescr) + "," + SParm(CurrDateStr) + "," + SParm(sModule) + "," + CStr(RecID) + "," + SParm(sResult)
sqlStringExec = sqlStringStart + sqlStringValues + sqlStringEnd
Call AddStatusInfo(sqlStringExec, sDescr, sResult)
Call oEventLog.LogMessage(0, "")

'***** End of Module Usage section *****

Expand Down

Large diffs are not rendered by default.

Original file line number Diff line number Diff line change
Expand Up @@ -585,6 +585,7 @@ Module Analyze_GL
Call AddStatusInfo(sqlStringExec, sDescr, sResult)
End While
End If
Call sqlReader.Close()
End If

RecID = RecID + 1
Expand Down

Large diffs are not rendered by default.

Some generated files are not rendered by default. Learn more about how customized files appear on GitHub.

Loading