FiveTech Software tech support forums

In your original code is missing the second part of last iif, oFrPrn:SetUserDataSet( "aClientes", cFld,; { || nAt := 1, EVAL( bResync, nAt ) },; { || nAt++, EVAL( bResync, nAt ) },; { || nAt--, EVAL( bResync, nAt ) },; { || nAt > LEN( aClientes ) },; { |cFld| iif( ...

In your original code is missing the second part of last iif, oFrPrn:SetUserDataSet( "aClientes", cFld,; { || nAt := 1, EVAL( bResync, nAt ) },; { || nAt++, EVAL( bResync, nAt ) },; { || nAt--, EVAL( bResync, nAt ) },; { || nAt > LEN( aClientes ) },; { |cFld| iif( ...

... Can you help me about this code sintax? The compiler results ")" error. Thanks in advance. oFrPrn:SetUserDataSet( "aClientes", cFld,; { || nAt := 1, EVAL( bResync, nAt ) },; { || nAt++, EVAL( bResync, nAt ) },; { || nAt--, EVAL( bResync, nAt ) },; { || nAt > LEN( aClientes ...

... virtual fields created by programmer using ::AddCol() method 32. FieldBlock( nCol ) returns FIELDWBLOCK() for this column 33. FieldDefault( nFld/cFldName, [uDefault], [lRO] ) --> uDefault Sets/Queries default value to be used for the field while appending new data. Default values are first ...

... . From MySql server query I can to do : aDgr := grd_set( cTbl, aGrd, cLg ) // restore settings of columns - sequence , width , visible ... etc. cFld := aDgr[ 1, 1 ]; cSql := "select " + cFld + " from " + cTbl + " where " + cTbl + ".db = '" + cDb_id + "'" ...

Raymond,

To retrieve a data value don't use the "_":

MsgInfo( __ObjSendMsg( oTable, cFld ) )

Raymond,

__ObjSendMsg( oTable, "_" + cFld, nInd )

I had a same problem in FW1.9.2 and I solved it by replacing aGets array with vars: for nGt := 1 to len( aFlds ) cFld := aFlds[ nGt ] xVar="x"+strzero(nGt,3) @ nRw, nCol GET oGets[ nGt ] VAR &xVar ..... next I hope that it works in FW for Harbour too Yes Goran , your sample ...

I had a same problem in FW1.9.2 and I solved it by replacing aGets array with vars:

for nGt := 1 to len( aFlds )
cFld := aFlds[ nGt ]
xVar="x"+strzero(nGt,3)
@ nRw, nCol GET oGets[ nGt ] VAR &xVar .....
next

I hope that it works in FW for Harbour too.

Regards

Goran

... :-) . Many thanks to you ! This isn't working Frank ... :-( . I tried that . Simply add MsgInfo() to valid clause @ CRow( 0 ), nCl GET oGets[ cFld ] VAR aGets[ cFld ] PICTURE aPct[ cFld ] PIXEL VALID ( MsgInfo( aGets[ cFld ] + " ; " + cFld ), ; n_pas( ::aAlias[ ::nFld ], cFld,, aGets[ cFld ...

... dialog's , also afterwards when they must be referenced in another get LOCAL oGets := Hash() LOCAL aPct := Hash() for nGt := 1 to len( aFlds ) cFld := aFlds[ nGt ] @ nRw, nCol GET oGets[ cFld ] VAR aGets[ nGt ] PICTURE aPct[ cFld ] PIXEL SIZE nSz, nFh VALID n_pas( cAlias, cFld ) next Frank ...

... dialog's , also afterwards when they must be referenced in another get LOCAL oGets := Hash() LOCAL aPct := Hash() for nGt := 1 to len( aFlds ) cFld := aFlds[ nGt ] @ nRw, nCol GET oGets[ cFld ] VAR aGets[ nGt ] PICTURE aPct[ cFld ] PIXEL SIZE nSz, nFh VALID n_pas( cAlias, cFld ) next Frank

Alreday found samples for that - testarr4.prg and tesloop.prg . But I have an problem with bValid for oGets arrays . My function n_pas( cAlias, cFld ) get an lats cFld value . How it make true ? One solution it can be at oDlg close moment , but I want to do that in oGet stage All is workig OK ...

local oGets[ len( aFlds ) ] ... for nGt := 1 to len( aFlds ) cFld := aFlds[ nGt ] @ nRw, nCol GET oGets[ nGt ] VAR aGets[ nGt ] PICTURE aPct[ nGt ] PIXEL SIZE nSz, nFh VALID n_pas( cAlias, cFld ) next It seems that this isn't working .. :-(( I remmember ...

Hi ! I want to assign gets in for .. next . Here is a small sample : local oGets[ len( aFlds ) ] ... for nGt := 1 to len( aFlds ) cFld := aFlds[ nGt ] @ nRw, nCol GET oGets[ nGt ] VAR aGets[ nGt ] PICTURE aPct[ nGt ] PIXEL SIZE nSz, nFh VALID n_pas( cAlias, cFld ) next It seems that this ...