Moderador: Moderadores
Código: Selecionar todos
Function teste()
Private cMostra := ALIAS->CAMPO
Private cVal1 := 10, cVal2 := 10
@ 10,10 say &cMostra.
wait
return .t.
FIELDGET()
Recupera o valor de um campo usando a posiçao ordinal deste dentro da
estrutura do arquivo de dados
─────────────────────────────────────────────────────────────────────────
Sintaxe
FIELDGET(<nCampo>) --> valorCampo
Argumentos
<nCampo> é a posiçao ordinal do campo na estrutura do registro para
a área de trabalho corrente.
Retorna
FIELDGET() retorna o valor do campo especificado. Se <nCampo> nao
corresponde a posiçao de qualquer campo no arquivo de dados, FIELDGET()
retorna NIL.
Descriçao
FIELDGET() é uma funçao de arquivo de dados que recupera o valor de um
campo usando sua posiçao dentro da estrutura do arquivo de dados ao
invés de seu nome. Dentro das funçoes genéricas de acesso a arquivos
de daods isto permite entre outras coisas, a recuperaçao de valores de
campos sem o uso do operador macro.
Exemplos
O exemplo a seguir compara FIELDGET() ao código funcionalmente
equivalente que usa o macro operador para recuperar o valor de um
campo:
LOCAL nField := 1, FName, FVal
USE Customer NEW
//
// Usando o macro operador
FName := FIELD( nField ) // Obtem nome do campo
FVal := &FName // Obtem valor do campo
// Using FIELDGET()
FVal := FIELDGET( nField ) // Obtem valor do campo
sim o fielget pega o conteudo do campo, mas nao consegui fazer a formula matematica. o conteudo do campo do arquivo é (ALIAS->X*(ALIAS->Y/100)) calculo de porcentagem. no arquivo que estoutentando idealizar possui varias formulas matematicas e quando for preciso usarei a escolhida para dar o resultado na tela.. onde declaro que ALIAS->X e ALIAS->Y vem de uma arquivo com definicoes armazendas de um caddastro previo. o conteudo de X e Y pode ser trocado com o sistema rodando.Pablo César escreveu:Junior, você já utilizou a função FieldGet(<número do campo>) ?
é se vc ver outros post meus eu sempre penso mas nao escrevo oq real mente quero,rsrsrs, mas vamos la...Pablo César escreveu:Entendi, o resultado é algo lógico, foi por isso que indiquei a FieldGet que fica mais fácil caso você montar uma lógica de sequência na criação do seu banco de dados. Só que você não deu exemplo algum e fica dificil dar uma outra dica. Não sabemos a que se refere e quantas possibilidades existem nessa composição.
Código: Selecionar todos
Function teste()
Sele 1
use TESTE alias TESTE
@ 10,10 say &TESTE->FORMULA.
wait
return .t.
kkk pois é...juniorcamilo escreveu:é se vc ver outros post meus eu sempre penso mas nao escrevo oq real mente quero,rsrsrs, mas vamos la...
Código: Selecionar todos
X := 10
Y := 10
FORMULA := "(TESTE->"+StrZero(X,3,0)+"*(TESTE->"+StrZero(Y,3,0)+"/100))"
RESULTADO:= X*Y/100
@ 10,10 say StrZero(RESULTADO,3,0)
@ 11,10 say FORMULA
// @ 12,10 say (&FORMULA)
inkey(0)
Código: Selecionar todos
//Func Main()
If !File( "Macros.dbf" )
aEstr := {;
{"valor1" ,"N", 10, 0},;
{"valor2" ,"N", 10, 0},;
{"macro" ,"C", 50, 0};
}
DBCreate( "Macros", aEstr )
Use Macros Shared New
Appen Blank
Repl valor1 with 10
Repl valor2 with 10
Repl macro with "(cVal1*(cVal2/100))"
Use
EndIf
Use Macros Shared New
Teste()
//Return Nil
Function teste()
Private cMostra := MACROS->macro
Private cVal1 := MACROS->valor1
Private cVal2 := MACROS->valor2
Clear Screen
@ 10,10 say ( &cMostra. ) // Retorna 1.00 (correto)
//wait
Return .t.Não sabia. Montei com as informações do último post dele.Pablo César escreveu:você sabia a estrutura do dbf Jairo
Na linha 15 é uma linha string. Depois de ser gravada no DBF, elas serão substituidas na funcão Teste() via Macro.Jairo Maia escreveu:É na linha 15 onde cVal1 e cVal2 não estão declaradas
Imaginei... rsJairo Maia escreveu:Montei com as informações do último post dele