Ol�, Lairton,
Muito obrigado por sua explica��o, esse com certeza foi meu erro pois ja esta
corrigido e funcionando, nunca havia trabalhado com array no centura.
obs: meu problema esta solucionado, e estou enviando o c�digo em anexo para quem como
eu tiver problema com array.
Obrigado a todos pela aten��o.
Anamim.
*********** BEGIN FORWARDED MESSAGE ***********
On 5/2/2003 at 21:48 Lairton N de Almeida Jr <[EMAIL PROTECTED]> wrote:
Ol� Anamim,
A fun��o SalArrayUpperBound serve apenas para vetores din�micos. Seu vetor, que �
declarado conforme seu ultimo e-mail number: nidf_TeclaAtalho[4], n�o � din�mico por
isso a fun��o n�o funcionou.
Para que funcione com esta fun��o :
1- torne o vetor din�mico,
2- defina como -1 na maior dimens�o e depois
3- defina 3 no par�metro de maior indice do vetor.
Assim:
!!CB!! 70
Call SalArraySetUpperBound( nidf_TeclaAtalho , 1 , AC_Dynamic )
Call SalArraySetUpperBound( nidf_TeclaAtalho , 1 , -1 )
Call SalArraySetUpperBound( nidf_TeclaAtalho , 1 , 3 )
N�o sei se voc� gostou da solu��o utilizando a fun��o SalArrayUpperBound, mas pelo
menos acho que agora ficou claro o motivo pelo qual a fun��o n�o estava "funcionando"
corretamente.
um abra�o,
Lairton N de Almeida Jr.
----- Original Message -----
From: Anamim
To: [EMAIL PROTECTED]
Sent: Wednesday, February 05, 2003 11:50 AM
Subject: Fwd: RE: Re: [sqlwin] como limpar uma array no centura
Oi, Parpagnoli, Hugo.
Usei a fun��o "SalArraySetUpperBound( nidf_TeclaAtalho, 1, -1 ) / variavel number:
nidf_TeclaAtalho[4]", no SAM_Activate de varios forms, fiz varios teste e constatei
que o valor da varialvel 'nidf_TeclaAtalho' n�o era limpo/esvasiado, por isso minha
coloca��o na lista ref. a fun��o.
obs: farei novos testes.
Anamim
*********** BEGIN FORWARDED MESSAGE ***********
On 5/2/2003 at 14:32 Parpagnoli, Hugo <[EMAIL PROTECTED]> wrote:
Anamim,
acredito que vc est� indicando qual a dimens�o, certo ?
Se o seu array � de uma s� dimens�o este valor deve ser = 1.
Acredito ter ajudado.
Ps.: eu uso esta fun��o em v�rias situa��es e possuo a mesma vers�o e ptf indicados.
-----Original Message-----
From: Anamim [mailto:[EMAIL PROTECTED]]
Sent: Wednesday, February 05, 2003 1:30 PM
To: [EMAIL PROTECTED]
Subject: Fwd: Re: [sqlwin] como limpar uma array no centura
Ol�, Lairton, Jo�o F. Vaz de Carvalho
Acredito que deva ter alguma incopatibilidade com essa fun��o no centura 1.5PTF3, pois
n�o funcionou.
Agrade�o a aten��o
Anamim
*********** BEGIN FORWARDED MESSAGE ***********
On 5/2/2003 at 11:54 Lairton N. de Almeida Jr. <[EMAIL PROTECTED]> wrote:
>SalArraySetUpperBound( array, nDimensao, -1 )
>
>----- Original Message -----
>From: "Anamim" <[EMAIL PROTECTED]>
>To: <[EMAIL PROTECTED]>
>Sent: Wednesday, February 05, 2003 10:52 AM
>Subject: [sqlwin] como limpar uma array no centura
>
>
>Ol� pessoal,
>
>Algu�m pode me informar como limpo uma variavel array com codigo centura,
>neste caso a variavel � do tipo string com uma dimens�o ( ex: string[50] )
>
>
>grato.
>Anamim.
>===============================
>Anamim Silva
>Programador Centura.
><[EMAIL PROTECTED]>
><[EMAIL PROTECTED]>
>--------------------------------------------------------------
>E-techs Inform�tica
>site: http://www.e-techs.com.br
>e-mail: [EMAIL PROTECTED]
>fone/fax: 5081-3852
>
>===============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)
>==============================================
*********** END FORWARDED MESSAGE ***********
=============================================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)
=============================================
--------------------------------------------------------------------------------------------------------------------------------------------------------
The information in this Internet e-mail is confidential and may be legally privileged.
It is intended solely for the addressee(s). Access to this Internet e-mail by anyone
else is unauthorized.
If you are not the intended recipient of this e-mail, any disclosure, copying, or
distribution of it is prohibited and may be unlawful. If you have received this e-mail
in error, please notify the sender and immediately and permanently delete it and
destroy any copies of it that were printed out. When addressed to our clients any
opinions or advice contained in this Internet e-mail is subject to the terms and
conditions expressed in any applicable governing ING terms of business or client
engagement letter.
Visit us at www.ing.com
--------------------------------------------------------------------------------------------------------------------------------------------------------
*********** END FORWARDED MESSAGE ***********
*********** END FORWARDED MESSAGE ***********
===============================
Anamim Silva
Programador Centura.
<[EMAIL PROTECTED]>
<[EMAIL PROTECTED]>
--------------------------------------------------------------
E-techs Inform�tica
site: http://www.e-techs.com.br
e-mail: [EMAIL PROTECTED]
fone/fax: 5081-3852
--Anamim-06/02/2003: esse exemplo mostra como colocar teclas de atalho p/ forms.
!!CB!! 173
Variavel
Number: nla_TeclaAtalho[10]
On SAM_Activate
If wParam
Set nla_TeclaAtalho[0] = VisWinLoadAccelerator( hWndForm.pbNovo,
SAM_Click, KDS_Ctrl, VK_N, 0 )
Set nla_TeclaAtalho[1] = VisWinLoadAccelerator( hWndForm.pbGrava,
SAM_Click, KDS_Ctrl, VK_S, 0 )
Set nla_TeclaAtalho[2] = VisWinLoadAccelerator( hWndForm.pbExclui,
SAM_Click, KDS_Ctrl, VK_DELETE, 0 )
Set nla_TeclaAtalho[3] = VisWinLoadAccelerator( hWndForm.pbPrint,
SAM_Click, KDS_Ctrl, VK_P, 0 )
Else
Call VisWinFreeAccelerator( nla_TeclaAtalho[0] )
Call VisWinFreeAccelerator( nla_TeclaAtalho[1] )
Call VisWinFreeAccelerator( nla_TeclaAtalho[2] )
Call VisWinFreeAccelerator( nla_TeclaAtalho[3] )
!
Call SalArraySetUpperBound( nla_TeclaAtalho , 1 , AC_Dynamic )
Call SalArraySetUpperBound( nla_TeclaAtalho, 1, -1 )
Call SalArraySetUpperBound( nla_TeclaAtalho , 1 , 10 )
