Ol� Walter,
Tem como fazer SAM_Validate para colunas criadas com SalTblCreateColumn( ).
Fiz um programa exemplo em Team Developer 2.1 que est� no CenturaExplorer,
endere�o www.centuraexplorer.com.
Se sua vers�o do SQLWindows for compat�vel com a 2.1 vai l� e pega o
programa, assim voc� j� pode v�-lo em execu��o.
Em todo caso, aqui v�o algumas instru��es:
1- Se voc� colocar o evento SAM_Validate no Message Actions de uma Child
Table Window, poder� interceptar todas as edi��es em qualquer coluna da
table.
2- O �nico problema � criticar corretamente cada coluna, pois elas n�o
possuem nome (ex: ColUF) Mas lembre-se que hWndItem � o handle da coluna que
est� recebendo o SAM_Validate. Mas vc n�o conseguir� pegar o nome da coluna
pra testar.
3- Use SalGetWindowText pra pegar o conte�do digitado na coluna.
4- Use SalTblGetColumnWindow( ) pra pegar o handle da coluna quando ela
for criada com SalTblCreateColumn( ) .
olha s�...
!!CB!! 29
Form Window: frm1
Contents
Child Table: tbl1
Contents
Functions
Window Variables
String: s
Message Actions
On SAM_Validate
Call SalGetWindowText( hWndItem , s, 50 )
If colUF = hWndItem
! ! Fa�a aqui suas cr�ticas e valida��es para a coluna tbl1.colUF
Call SalStatusSetText( hWndForm, "Linha=" || SalNumberToStrX(lParam,0)
||" Coluna UF=" || SalStrTrimX( s ) )
If colDescricao = hWndItem
! ! Fa�a aqui suas cr�ticas e valida��es para a coluna
tbl1.colDescricao
Call SalStatusSetText( hWndForm, "Linha=" || SalNumberToStrX(lParam,0)
||" Coluna Descricao=" || SalStrTrimX( s ) )
Window Variables
Window Handle: colUF
Window Handle: colDescricao
Message Actions
On SAM_CreateComplete
Set colUF = SalTblGetColumnWindow ( tbl1, SalTblCreateColumn ( tbl1 , 1 ,
1, 02, "UF" ) , 0 )
Set colDescricao = SalTblGetColumnWindow ( tbl1, SalTblCreateColumn (
tbl1 , 2 , 1, 30, "Descri��o" ), 0 )
Call SalTblInsertRow( tbl1, 1 )
Call SalTblInsertRow( tbl1, 2 )
Espero que este exemplo ajude na solu��o do seu problema.
um abra�o,
Lairton N de Almeida Jr.
==============================================
Lista de Centura SQLWindows
Administrador : [EMAIL PROTECTED]
[ http://www.centuraexplorer.com ]
Para sair desta lista mande mensagem para:
[EMAIL PROTECTED] sem nada no Subject e
com o comando a seguir no corpo da msg:
"unsubscribe sqlwin" (sem as aspas)
==============================================
