MS macro below:
GoSub>Set_AsasTelRtn
//messagemodal>AsasTelRtn
Let>ActivationStatus=A
GoSub>ACT_AsasTelRtn
//messagemodal>ActivationStatus
let>aa=%ActivationStatus%
messagemodal>aa
// aa shows S or F
Vbeval>AsasDataUpdateStatus(%aa%),cstatreply
my vbscript code:
issues is msgbox rtnstat in function below is blank, it should be S or F as per above.
Code: Select all
Function AsasDataUpdateStatus( rtnstat )
on error goto 0
AsasDataUpdateStatus = 0
msgbox rtnstat
cProcStat = "SWT"
if rtnstat = "S" then
cProcStat = "CAS"
end if
nProsKey = pArtnAsasData.fields("HistoryKey")
pArtnAsasSql = "update SVC_ACT_HISTORY set rtn_status = '" & rtnstat & "', PROCESS_CURRENT_ATTEMP_NO = PROCESS_CURRENT_ATTEMP_NO + 1 "
pArtnAsasSql = pArtnAsasSql & ", process_status = '" & cProcStat & "'"
pArtnAsasSql = pArtnAsasSql & " where HistoryKey = " & nProsKey
msgbox pArtnAsasSql
set pUpdate = pArtnOdbcConn.Execute(pArtnAsasSql)
on error resume next
if err.number > 0 then
AsasDataUpdateStatus = -1
end if
'msgbox "Asas tel sql 2 : " & GetAsasData
'msgbox pArtnAsasData
on error resume next
end function