Sub JobDone (Job As HttpJob)
If Job.Success Then
Dim Res As String
Dim ResIS As InputStream
Res = Job.GetString
ResIS = Job.GetInputStream
Select Job.JobName
Case "JOBSOAP_getTransact"
Dim wsTable As String = CommonFuncs.xmlGetTagContent(Res,"GetDataSetResult")
xmlParser.Parse(ResIS,"xmlParserSub")
End Select
End If
End Sub
Sub xmlParserSub_EndElement (Uri As String, Name As String, Text As StringBuilder)
End Sub