pois no teste que eu fiz ele n�o desabilita ! vou fazer novamente e te mando o app.
----- Original Message ----- From: "Fab�" <[EMAIL PROTECTED]> To: <[EMAIL PROTECTED]> Sent: Tuesday, March 26, 2002 9:54 PM Subject: RES: [sqlwin] Re: > Ol� Fabiano, ainda n�o tive tempo de testar a sua dica... > Mas o que o Lairton mandou, n�o funcionou da forma que eu queria, > pois no validade_cancel ele desabilita minha coluna. > Mas de qq forma, muito obrigada a todos. > > T�o logo te retorno o resultado da sua dica! > [ ]'s > Fab�. > > -----Mensagem original----- > De: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]Em > nome de [EMAIL PROTECTED] > Enviada em: Ter�a-feira, 26 de Mar�o de 2002 09:23 > Para: [EMAIL PROTECTED] > Assunto: Re: [sqlwin] Re: > > > > Oi Fab�, > > Outra forma que voc� poderia fazer isso seria assim: > > 1) Setar a propriedade da coluna em Drop DownList -> Allow Text Editing = > No > 2) Implementar a rotina abaixo: > On SAM_AnyEdit > nRow = VisTblFindString (hWndTable, 0, hWndColumn, MyValue) > If nRow != -1 > Call SalMessageBox( 'Voc� deve escolher um valor diferente das > demais linhas!', 'Erro', MB_IconStop) > Return FALSE > Else > Return TRUE > > Considera��es: > - O Se nRow = -1 � porque n�o existe correspondente na mesma coluna > (hWndColumn) > - O 2� par�metro � a linha da tabela em que come�a a pesquisa, no > caso 0 (zero) � sempre a primeira linha. > - O �ltimo par�metro � a string que se est� procurando, no caso o > valor escolhido (MyValue) > - Caso a fun��o VisTblFindString n�o estea dispon�vel, inclua a > library VTTBLWIN.APL ou VT.APL que ficam no diret�rio de instala��o do > Centura > > Espero que ajude > > [ ]'s > Fabiano Reis > WestLB - Banco Europeu > Systems Development > > > > > > > > "lairton" <[EMAIL PROTECTED]> > > Sent by: [EMAIL PROTECTED] > > > 25/03/02 23:11 > > > Please respond to sqlwin > > > > > > > To: <[EMAIL PROTECTED]> > cc: > Subject: [sqlwin] Re: > > > > � s� uma id�ia .... > > !!CB!! 244 > Column Class: ccolLista > Cell Type? Drop Down List > Allow Text Editing? No > Class Variables > String: vsItens[*] > Instance Variables > Functions > Function: ValidaSelecao > Returns > Boolean: > Parameters > String: psMyValue > Number: pnLinhaEditada > Local variables > Number: nMax > Number: nInd > Actions > Call SalArrayGetUpperBound( vsItens, 1, nMax ) > While nInd <= nMax > If vsItens[nInd] = psMyValue AND pnLinhaEditada != nInd > Call SalClearField( hWndItem ) > Call SalMessageBox ( "Esse valor n�o pode.Selecione outro", "Ops", > MB_Ok > Return VALIDATE_Cancel > Set nInd = nInd + > Set vsItens[pnLinhaEditada] = psMyValue > Return VALIDATE_Ok > List Values > Message Actions > On SAM_Validate > Return ValidaSelecao ( MyValue , lParam ) > > > > ----- Original Message ----- > From: "Fab�" <[EMAIL PROTECTED]> > To: "Sqlwin@Virtualand. Net" <[EMAIL PROTECTED]> > Sent: Monday, March 25, 2002 8:59 PM > > > > Boa noite pessoal... > > > > Tenho uma tabela e uma das colunas � Drop Down List, que me traz alguns > > itens de uma tabela no banco. > > O que quero fazer �, n�o poder selecionar um mesmo item em uma linha > > diferente, me retornando apenas > > uma msg e n�o permitindo que eu possa selecion�-lo, mas que me permita > > selecionar outros itens que n�o > > os mesmos j� selecionados anteriormente. > > > > Algu�m pode me ajudar??? > > > > > > _________________________________________________________ > > Do You Yahoo!? > > Get your free @yahoo.com address at http://mail.yahoo.com > > > > ============================================== > > 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) > > ============================================== > > > > > > > > ******************************************************************** > ******************************************************************** > Diese Nachricht ist vertraulich. Sie ist ausschliesslich fuer > den im Adressfeld ausgewiesenen Adressaten bestimmt. > Sollten Sie nicht der vorgesehene Empfaenger sein, so bitten > wir um eine kurze Nachricht. Jede unbefugte Weiterleitung > oder Fertigung einer Kopie ist unzulaessig. Da wir nicht die > Echtheit oder Vollstaendigkeit der in dieser Nachricht > enthaltenen Informationen garantieren koennen, schliessen wir > die rechtliche Verbindlichkeit der vorstehenden Erklaerungen > und Aeusserungen aus. Wir verweisen in diesem Zusammenhang > auch auf die fuer die Bank geltenden Regelungen ueber die > Verbindlichkeit von Willenserklaerungen mit verpflichtendem > Inhalt, die in den bankueblichen Unterschriftenverzeichnissen > bekannt gemacht werden. > > This message is confidential and may be privileged. It is > intended solely for the named addressee. If you are not the > intended recipient please inform us. Any unauthorised > dissemination, distribution or copying hereof is prohibited. > As we cannot guarantee the genuineness or completeness of > the information contained in this message, the statements > set forth above are not legally binding. In connection > therewith, we also refer to the governing regulations of > WestLB concerning signatory authority published in the > standard bank signature lists with regard to the legally > binding effect of statements made with the intent to > obligate WestLB. > ******************************************************************** > ******************************************************************** > > ===============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) > ================ > > > _________________________________________________________ > Do You Yahoo!? > Get your free @yahoo.com address at http://mail.yahoo.com > > ============================================== > 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) > ============================================== > ============================================== 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) ==============================================
