You’re offline. This is a read only version of the page.
Hello,
I have the following problem.
In Screen RQ.510.00(approve requests) I load by project and deparment all details, in a button y check all detail if have remains requests if I have I make the value change, but is doesn't works.
Someone knows is missing something?
heres is my code
Dim iFound As Long
Dim sSql As String
Dim CSR_Temp As Integer
Dim RecFound As Integer
Dim RecMaintFlg As Integer
Dim MemHandle As Integer
Dim RowNum As Integer
Dim iNumRenglones As Integer
Dim iNum As Integer
Dim iGridErr As Integer
Dim GridHandle As Integer
Dim ValorCelda As String
Dim liGridFetch As Integer
Dim liMaintFlg As Integer
Dim strInvtId As String
GridHandle = GetGridHandle("sprdbRQitemreqHdr")
liGridFetch = MFirst(GridHandle, liMaintFlg)
Do While liGridFetch = 0
ValorCelda = GetObjectValue("ptxtItReqNbr")
sSql = "xSp_FM_MK_ValidaPPTO " + SParm(ValorCelda)
serr = SqlFetch1(CSR_Temp, sSql, iFound, LenB(iFound))
Call SqlFree(CSR_Temp)
If iFound <> 0 Then
Call SetObjectValue("scboAction", "NA")
Call SetBufferValue("bRQitemreqhist.status", "NA")
Call DispFields("Form1", "scboAction")
Count = Count + 1
Else
Call SetObjectValue("scboAction", "AP")
Call SetBufferValue("bRQitemreqhist.status", "AP")
Call DispFields("Form1", "scboAction")
End If
liGridFetch = MNext(GridHandle, liMaintFlg)
Loop
If Count > 0 Then
Call MsgBox("There is departures without approve, please check", MB_OK, "Check Request.")
Call SetBufferValue("bRQitemreqhist.status", "NA")
Call DispFields("Form1", "scboAction")
End If
Call MDisplay(GridHandle)
*This post is locked for comments
I have the same question (0)
Share
Report
All responses (
Answers (
