Oi Ant�nio, tudo bem?
Fiz um exemplo simples para testar a fun��o e funcionou.
Criei uma form apenas com tr�s DataFields "dfA", "dfB" e "dfC", para digitar os
valores que voc� quer atribuir para as variaveis da sua f�rmula;
mais um DataField "dfResult" para receber o resultado da f�rmula e um bot�o
"pbResultado" onde coloquei o seguinte c�digo:
On SAM_Click
Set sFormConv = VisStrSubstitute( dfFormula, 'A', dfA )
Set sFormConv = VisStrSubstitute( sFormConv, 'B', dfB )
Set sFormConv = VisStrSubstitute( sFormConv, 'B', dfB )
Set nType = SalCompileAndEvaluate ( sFormConv, nError, nErrorPos, nReturn,
strReturn, dtReturn, hWndReturn, FALSE, SalContextCurrent ( ) )
If nType = EVAL_Number
Set dfResult = nReturn
A� basta voc� digitar os valores que deseja para A, B e C (no seu caso A=50, B=100 e
C=2) nos DataFields correspondentes e clicar o bot�o.
Espero ter ajudado!
[ ]'s
Fabiano
"Antonio Baptista" <[EMAIL PROTECTED]>@virtualand.net on 14/11/2001
05:32:06
Please respond to [EMAIL PROTECTED]
Sent by: [EMAIL PROTECTED]
To: <[EMAIL PROTECTED]>
cc:
Subject: RE: [sqlwin] extrair o valor de uma formula
O que acontece � que estou a receber um erro de compila��o
e pretendia por isso que me fornecesse um exemplo desta fun��o.
Obrigado
AB
-----Mensagem original-----
De: Fabiano Simm [mailto:[EMAIL PROTECTED]]
Enviada: ter�a-feira, 13 de Novembro de 2001 16:03
Para: [EMAIL PROTECTED]
Assunto: Re: [sqlwin] extrair o valor de uma formula
Um fun��o do Centura interessante para isso � SalCompileAndEvaluate(...)
Fabiano Simm - Dir. T�cnico
Esfera Inform�tica Ltda.
http://www.esfera.com.br
Fone/fax: (041) 254-3534
ICQ 24145538
----- Original Message -----
From: Antonio Baptista <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Tuesday, November 13, 2001 8:07 AM
Subject: [sqlwin] extrair o valor de uma formula
Trabalhamos em Centura 2000 num motor de base de dados SqlBase 7
N�s temos uma d�vida que na medida do poss�vel pretendiamos uma
ajuda.
� o seguinte:
Temos uma tabela que em determinado campo os utilizadores v�o
gravar uma formula
Por exemplo Tabela 'VARIAVEIS' campo 'FORMULA' do tipo string
pretendemos obter o valor dessa f�rmula.
O que n�s pretendemos � extrair uma das formulas , como por
exemplo
(A+B) / C e queremos assignar os seguintes valores A=50, B=100
e C=2
Queremos que uma vari�vel do tipo num�rico venha a ter o valor=75
Obrigado por tudo
AB
===============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)
==============================================
=======================
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)
=======================
Fabiano Reis
BEAL - Banco Europeu para a Am�rica Latina
(WestLB - Westdeutsche Landesbank Group)
Systems Development Department
Av. Luiz Carlos Berrini, 716 - 7� Andar - Brooklin Novo
CEP: 04571-000 - S�o Paulo - Brasil
Tel.: +55 11 5504-9833
Fax: +55 11 5504-9933
********************************************************************
********************************************************************
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)
=============================================
