FiveTech Software tech support forums

Resolved with fieldWBlock

Perhaps I found a solution

nNumero := eval(oDbf:fieldWBlock(cField ))

... How I can make to found the field on oDbf (tadatabase) I try with oDbf:&cField but not run ok I tried also with fieldWBlock(cField,oDbf:nArea ) It return me an array https://i.postimg.cc/0QvnXYWh/jj.png I try also with atemp:= fieldWBlock(cField,oDbf:nArea ...

opps sorry

Dear Silvio,

function bCampo() is returning a codeblock and that is what you see (not an array)

Simply evaluate the codeblock providing the parameters

ADutheil wrote:As you want to print a barcode the function may be expecting a string of numbers not letters.

I allready tried

As you want to print a barcode the function may be expecting a string of numbers not letters.

THERE IS SOMEONE CAN HELP ME PLS ?

My FWH version is old and I'm not aware of the AS BARCODE command so I can't help you further.

... FONT oFont      ENDPAGE       ENDPRINT   RELEASE FONT oFont, oBoldreturn nilfunction bCampo( aCampi, nFor,nArea )   return eval((fieldWBlock(aCampi[nFor],nArea )))  Also for me !! When I tried to Print a BARCODE it make error IT's very STRANGE because Barcode ...

...  ENDPRINT   RELEASE FONT oFont, oBoldreturn nilfunction bCampo( aCampi, nFor,nArea )   return eval((fieldWBlock(aCampi[nFor],nArea ))) 

...  bCampo( aCampi, nFor,1 ) )return nilfunction bCampo( aCampi, nFor,nArea )   return eval((fieldWBlock(aCampi[nFor],nArea )))  I works OK for me. The alert box shows Simpson

FIELDWBLOCK("FName", 1) is the same as &( "{ |setVal| IF( setVal == NIL, 1->FName, 1->FName := setVal ) }" ) If you don't eval the block you'll not retrieve the content of the field. @ nRiga, ...

FIELDWBLOCK("FName", 1) is the same as &( "{ |setVal| IF( setVal == NIL, 1->FName, 1->FName := setVal ) }" ) If you don't eval the block you'll not retrieve the content of the field. @ nRiga, ...

... "MARRIED" ,; "AGE" ,; "SALARY" ,; "NOTES" } this Run ok if I wish print a barcode nCampo:= 2FIELDWBLOCK( ncampo, SELECT( "CUST" ) ) sample : @ nRiga, nColonna PRINT TO oPrn TEXT FIELDWBLOCK( ncampo, SELECT( "CUST" ...