TAds 2.1a com controles xBrowse e Help

[Giovany Vecchi]

VERSION 2.1a
===========
* Novos Methods da classe tAds em tAds.prg
- Method KeyNo() > Retorna o numero do atual registro ou pelo index conforme o Tag focado.
Em sql retorna a posição do resultado da query
- Method GetRelKeyPos() > Retorna a posição relativa do cursor
- Method SetRelKeyPos() > Posiciona o registro relativo ao cursor da tabela
- Method DataLoad() > Carregar os conteudos dos campos para variaveis DATA com nomes dos campos. Ver DATA lBufferOnSkip para carregamento automatico
- Method DataBlank() > Atribui as Variaveis DATA os valores em branco
- Method DataSave() > Salva os conteudos das Variaveis DATA para o registro da tabela.

Nova Classe tCtrlxBrowse() Para configurar o esquema de navegação em xBrowse de Fivewin com a Classe tAds
Ex:

::oDb_Clientes := DB_CLIENTES():OpenRdd()

::oBrw := TXBrowse():New( ::oWnd )
::oBrw:cAlias := ::oDb_Clientes:cAlias
::oBrw:nTop := 41
::oBrw:nLeft := 228
::oBrw:nBottom := ::oWnd:nHeight - 80
::oBrw:nRight := ::oWnd:nWidth - 1

::oBrw:SetRDD()
::oBrw:CreateFromCode()

::oCtrlBrw := tCtrlxBrowse():New(::oBrw,::oDb_Clientes)

Novo help de tAds > Pasta .\HelpTads\HelpTads.chm
Obs: O help de Tads não esta completo. Será contruido conforme as novas versões.