От Web-службы фокс 8 получает Dataset. Web-служба написана на VB.NET, возвращает результаты запроса к SQL Server. Поля SQL Server типа VARCHAR в Dataset пишутся как String. Фокс этот тип данных грузит в свой курсор и выдает MEMO-поле. Похоже, он считает, что длина типа данных String больше 255, поскольку в Dataset длина вообще не указана. Вопрос стандартный: как лечить? :)

2NNN

Да в принципе можно использовать и LEFT(). Только это что-ж, мало того, что из Dataset перегружаем все в фоксовые курсоры, так еще и из курсоров в другие курсоры перекачивать?

LPARAMETERS txXML,toSchema,lnBuffering
LOCAL i As Integer
LOCAL llSuccess As Boolean
LOCAL loXMLAdapter,lcAlias,loException,lcErrorMsg

llSuccess=.T.

*Создание курсоров из таблиц Dataset.
TRY
loXMLAdapter=CREATEOBJECT("XMLAdapter")
IF VARTYPE(txXML)="O" AND VARTYPE(toSchema)="O"
loXMLAdapter.Attach(txXML,toSchema)
ELSE
llSuccess=.F.
ENDIF
*Создание курсоров из XML Dataset Tables Collection.
IF llSuccess
IF loXMLAdapter.Tables.Count>0
FOR i=1 TO loXMLAdapter.Tables.Count
lcAlias=loXMLAdapter.Tables.Item(i).Alias
IF USED(lcAlias)
USE IN (lcAlias)
ENDIF
loXMLAdapter.Tables.Item(i).ToCursor()
IF VARTYPE(lnBuffering)='N'
IF INLIST(lnBuffering,3,5)
SELECT(lcAlias)
CURSORSETPROP ("Buffering",lnBuffering)
GO TOP
ENDIF
ENDIF
ENDFOR
ELSE
llSuccess=.F.
ENDIF
ENDIF
CATCH TO loException
llSuccess=.F.
lcErrorMsg="Метод CreateCursorFromXML: "+TRANSFORM(loException.Errorno)+" - "+loException.Message
=MESSAGEBOX(lcErrorMsg,MB_OK+MB_ICONEXCLAMATION+MB_DEFBUTTON1,THISFORM.Caption)
ENDTRY
RELEASE loXMLAdapter

RETURN llSuccess