Code: Select all
VBSTART
'--- GLOBAL VARIABLE AREA -----------
Dim pEquestOdbcConn, pEquestData, pQuestSQLString
Dim pArtnOdbcConn, pArtnAsasData, pArtnAsasProcessNoSql, pArtnAsasProcessNoData
Dim pAsasOpenWin
Dim pOssOpenWin, pOssRtnData
Dim pCassOpenWin, pCassRtnExch, pCassRtnExchTelDat
'--- FUNCTION AREA -------------------
Function OpenArtnOdbc
OpenArtnOdbc = 0
Set pArtnOdbcConn = CreateObject("ADODB.Connection")
on error resume next
pArtnOdbcConn.Open "DSN=AUTORTN;uid="";pwd="";"
if err.number > 0 then
OpenArtnOdbc = 1
else
end if
msgbox "open artn odbc " & OpenArtnOdbc
End Function
Function CloseArtnOdbc
on error goto 0
pArtnOdbcConn.Close
End Function
Function GetAsasData
GetAsasData = 0
msgbox "Asas data sql 1: " & GetAsasData
pArtnAsasDataSql = "select * from svc_act_history"
MsgBox pArtnAsasDataSql
set pArtnAsasData = pArtnOdbcConn.Execute(pArtnAsasDataSql)
if err.number > 0 then
GetAsasData = 2
end if
msgbox "Asas data sql 2 : " & GetAsasData
'msgbox pArtnAsasData
on error resume next
pArtnAsasData.MoveFirst
End Function
Function GetAsasProcessNo
GetAsasProcessNo = 0
pArtnAsasProcessNoSql = "select * from REF_ASAS_PROCESSNO"
'MsgBox pArtnAsasProcessNoSql
set pArtnAsasProcessNoData = pArtnOdbcConn.Execute(pArtnAsasProcessNoSql)
if err.number > 0 then
GetAsasProcessNo = -1
end if
msgbox "Get Asas process no " & GetAsasProcessNo
on error resume next
pArtnAsasProcessNoData.MoveFirst
End Function
VBEND
/*----------------------------------------------------------
Macro Script start here.
Main routine
----------------------------------------------------------*/
VBEval>OpenArtnOdbc,ArtnOdbcReply
msgbox>ArtnOdbcReply
//VbEval>GetAsasData,AsasDataReply
//msgbox>AsasDataReply
//vbEval>GetAsasProcessNo,AsasProcessNoReply
//MessageModal>AsasProcessNoReply
Label>MainAsasServerLoop
vbeval>GetAsasProcessNo,AsasProcessNoReply
MessageModal>AsasProcessNoReply
if>AsasProcessNoReply>-1
//messagemodal>in the loop
vbeval>GetAsasData,AsasDataReply
Label>ReadData
VBEval>GetNextEquestData,record
if>record=0
GOto>MainLoop
endif>
VbEval>GetCheckDuplData,nDuplicate
if>nDuplicate=-1
else
if>nDuplicate=0
vbeval>InsertArtnData("%record%"),creturn
else
endif
endif>
goto>ReadData
wait>5
else
endif
Vbeval>GetNextAsasProcessNo(),AsasProcessNoReply
Goto>MainAsasServerLoop
Label>FinishAsasServerLoop
/*----------------------------------------------------------
Main sub routine
----------------------------------------------------------*/