* TOInB 버전 : ToinBWData ==> 1.1.0.35, ToinBWTR ==> 1.1.0.30
* 내용 :
VB 프로그램에서 Toinb 서버의 트랜잭션을 호출하여 DataSet을 리턴 받으려고 합니다.
DataSet 정보 지정부분은 정상적으로 처리되나,
트랜잭션을 호출할 경우 DataSet이 잘못 지정되었다고 서버에서 에러메시지가 출력됩니다.
처리방법을 아시는 분이 계시면 좀 알려 주시겠습니까?
====================================================================================================
Dim oTWData, oTWDataInput, oTWDataOutput, oTWTrans
Set oTWData = CreateObject("ToinBData.ToinBWData")
Set oTWDataInput = CreateObject("ToinBData.ToinBWData")
Set oTWDataOutput = CreateObject("ToinBData.ToinBWData")
Set oTWTrans = CreateObject("ToinBTR.ToinBWTR")
oTWDataInput.SyncLoad = True
oTWDataOutput.SyncLoad = True
oTWDataInput.SetDataHeader ("ITrayValue:STRING(6000),ArgIP:STRING(256),ArgDev:STRING(2)")
oTWDataInput.AddRow
oTWDataInput.NameString(1, "ITrayValue") = sEpTrayInfo
oTWDataInput.NameString(1, "ArgIP") = "17.4.11.38"
ToinbWTR1.ServerIP = "http://17.4.1.119:8888"
ToinbWTR1.Action = "/bizint"
ToinbWTR1.KeyName = "toinb_dataid4"
ToinbWTR1.KeyValue = "bizint_DecodeEpTray(I:input1=oTWDataInput,O:output=oTWDataOutput)"
ToinbWTR1.Post <=== Post 호출시 에러 발생함.
====================================================================================================
[ 에러 메세지 ]
?ToinbWTR1.ErrorMsg
[TRNS-50042] An error has occurred in the key value property format.
Not Found DataSet!
KeyValue=bizint_DecodeEpTray(I:input1=oTWDataInput,O:output=oTWDataOutput)
====================================================================================================