FiveTech Software tech support forums

http://computer-programming-forum.com/19-clipper/334184917aa7f776.htm

nCampo:= 2
aFields := {"FIRST" ,;
"LAST" ,;
"STREET" ,;
"CITY" ,;
"STATE" ,;
"ZIP" ,;
"HIREDATE",;
"MARRIED" ,;
"AGE" ,;
"SALARY" ,;
"NOTES" }



this Run ok if I wish print a barcode

nCampo ...

... CENTER
Return(nil)


//Esta funcion permite manejar las tablas aun sin datos
//-----------------------------------------
Function MyCampo(oBjeto, nCampo, nEnt, nDec)
local cCampo, cRet, nCol, nCont, cField, nPos

If VALTYPE(nCampo) = "C" // vino el nombre de un campo
nCampo := ALLTRIM(nCampo)
nPos ...

... mascara tipo: "@E 9,999.99"

Se for FECHA:

aGet[3] := CTOD( "99/99/9999")

Gracias de antemano.

Abrazos.


A ver si entendí:

aGet[1] := SPACE(len(cDBF->cCampo))
aGet[2] := Replicate("9",len(str(cDBF->nCampo))) PICTURE "999,999.99"

SET DATE BRITISH
SET CENTURY ON
aGet[3] := cDBF->dCampo

Saludos.

... que me pinte oMy:aDbf que es mi array

oCol:bStrData :=vzGenArrayBlock( { || if(oBrow:nArrayAt=0,ablankito[1],oMy:aDbf[ oBrow:nArrayAt ])}, val(ncampo),"C", .t. , oMy , oBrow )

Bueno esta es mi funcion q genera el codeblock trabaja de maravillas cuando el array esta lleno

STATIC FUNCTION ...

... leyendo que wBrowse devuelve las coordenadas de las cabeceras. Asi es que encuadrando en la columna Precio y mediante un menu secundario dispondría la selección y lo aplicaría a: :aColumns[ nColumn ]:bData := {|| ALIAS->( FieldGet( nCampo ) ) }, como indica Manuel
Bueno, es la primer idea

Saludos

... pueda mostrar diferentes datos de un mismo registro.
No soy experto en la TWBrowse de Hernán pero creo que podrías usar algo como esto:

oLbx:aColumns[ nColumn ]:bData := {|| ALIAS->( FieldGet( nCampo ) ) }

Así el dato que se muestra dependerá del valor de la variable nCampo

Saludos

Manuel Mercado

Alfonso,

Las macros (&) usan la tabla de símbolos pública y las variables locales no estan en dicha tabla, por eso falla.

Pruébalo así:
eval( &( "{| o | pruebas( o,nCampo)}" ), oGet )

... pruebas()}" ) ) y funciona perfectamente, el problema es cuando queremos pasar parametros en la funcion, por ejemplo eval( &( "{|| pruebas(oGet,nCampo)}" ) ), en ese caso devuelve un error al tiempo de ejecucion "Variable oGet no encontrada", cuando realmente esta definida con anterioridad.