fil пишет:
цитата: |
котлеты отдельно мухи тож.. |
|
Как Вы со мной ... сурово. Ну ладно , Новый Год.
Смотрим бровс:
13.- "TSBrowse" supports several RDD'S: DBFCDX, COMIX, ADS, SIX, DBFNTX,
as well as objects like oDbf, oCtx, oTree and Arrays.
(other RDD's can be added as soon as I get the definition of some database functions that they handle)
Теперь можно поинтересоваться в исходниках :) Обратите внимание, когда идет обращение к ORDKEYNO()
If cRDDName == "COMIX"
::cDriver := "COMIX"
::bTagOrder := &( "{|uTag|OrdSetFocus(uTag)}" )
cType := Type( "cmKeyNo()" )
If ( ::lClipMore := ( cType == "C" .or. cType == "UI" ) )
::bKeyNo := &( "{|cTag|cmKeyNo(cTag) }" )
::bLogicLen := If( ::lFilterMode,;
{||(::cAlias)->(Self:RecCount(::uValue1))}, ;
&( "{|cTag| cmKeyCount( cTag ) }" ) )
::bGoToPos := &( "{|n| cmKeyGoTo( n ) }" )
Else
::bKeyNo := &( "{|cTag|cmxKeyNo(cTag)}" )
::bLogicLen := If( ::lFilterMode,;
{||(::cAlias)->(Self:RecCount(::uValue1))}, ;
&( "{|cTag| cmxKeyCount( cTag ) }" ) )
::bGoToPos := &( "{|n| cmxKeyGoTo( n ) }" )
EndIf
Elseif cRDDName $ "DBFCDX_DBFCDX"
::cDriver := "CDX"
::bKeyNo := &( "{|uTag|OrdKeyNo(uTag)}" )
::bLogicLen := If( ::lFilterMode,;
{||(::cAlias)->(Self:RecCount(::uValue1))}, ;
&( "{|cTag|OrdKeyCount(cTag)}" ) )
::bGoToPos := &( "{|n|OrdKeyGoTo(n) }" )
::bTagOrder := &( "{|uTag|OrdSetFocus(uTag)}" )
Elseif "XAX" $ cRDDName
::cDriver := "ADS"
::bKeyNo := &( "{||AX_KeyNo()}" )
::bLogicLen := If( ::lFilterMode,;
{||(::cAlias)->(Self:RecCount(::uValue1))}, ;
&( "{|cTag| AX_KeyCount( cTag ) }" ) )
::bTagOrder := &( "{|uTag|OrdSetFocus(uTag)}" )
Elseif "ADS" $ cRDDName
::cDriver := "ADS"
::bKeyNo := &( "{||ADSKeyNo()}" )
::bLogicLen := If( ::lFilterMode,;
{||(::cAlias)->(Self:RecCount(::uValue1))}, ;
&( "{|cTag| ADSKeyCount( cTag,, 1 ) }" ) )
::bTagOrder := &( "{|uTag|OrdSetFocus(uTag)}" )
Elseif cRDDName $ "DBFNSX_SIXCDX_SIXNSX_SIXMDX"
::cDriver := "NSX"
::bKeyNo := &( "{||sx_KeyNo()}" )
::bLogicLen := If( ::lFilterMode,;
{||(::cAlias)->(Self:RecCount(::uValue1))}, ;
&( "{|cTag| Sx_KeyCount(cTag)}" ) )
::bGoToPos := &( "{|n| sx_KeyGoTo( n ) }" )
cType := Type( "sx_SetTagO()" )
If cType == "C" .or. cType == "UI"
::bTagOrder := &( "{|cTag| sx_SetTagOrder( cTag ) }" )
Else
::bTagOrder := &( "{|cTag| OrdSetFocus(cTag) }" )
EndIf
Else // DBFNTX considered default RDD
::cDriver := "NTX"
Ну и так далее...
Если бы был текст Вашей пр-мы может и можно было бы что подсказать. А так общий вопрос-общий ответ.
И еще. Сегодня переходить на слиппер 5.3 , на мой взгляд, смысла нет .Еще раз извините повторюсь - лучше хХарбор .