Ok, valeu Lairton !! N�o sabia q o SAM_Validate na Table Window recebe todas as edi�oes dop grid.
Abra�os, Walter Daniel ICQ 36158314 > Ol� Walter, > > Tem como fazer SAM_Validate para colunas criadas com SalTblC reateColumn( ). > > Fiz um programa exemplo em Team Developer 2.1 que est� no Ce nturaExplorer, > 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 u ma Child > Table Window, poder� interceptar todas as edi��es em qualque r coluna da > table. > > 2- O �nico problema � criticar corretamente cada coluna, pois el as 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, SalTblCreateCol umn ( tbl1 , 1 , > 1, 02, "UF" ) , 0 ) > Set colDescricao = SalTblGetColumnWindow ( tbl1, SalTblCr eateColumn ( > 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) > ============================================== > --- UOL, o melhor da Internet http://www.uol.com.br/ =============================================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) =============================================
