FiveTech Software tech support forums

... cut for AEval( oBrw:aCols, { |o| o:anydata := uVal } )  Note: anydatas = 'anydata' + 's' is plural of 'anydata' oBrw:anydatas := aValues is short cut for for n := 1 to Len( aValues )   oBrw:oCol( n ):anydata := aValues[ n ] next  where oBrw:oCol( n ) --> ...

... "on-fly" to XBROWSE --- instead of APPEND to DBF i want to "show" Data using XBROWSE                SELECT 1               aValues := Scatter() // FieldGet()               AADD(aData,aValues)  // add for XBROWSE#IFDEF Use_Append               SELECT 2    ...

hi Antonio,

Antonio Linares wrote:Please try it this way:
AEval( aValues, {|x,i| aValues[ i ] := FieldGet(i) } )

ok, that work thx

Dear Jimmy,

Please try it this way:

AEval( aValues, {|x,i| aValues[ i ] := FieldGet(i) } )

hi, What if you use HB_AParams() --> <aValues> ? thx for Answer the "Problem" is NOT any Parameter. you will "get" the Problem when press Button while Skinbutton() is "active" than it will crash my HB_FUNC() ...

What if you use HB_AParams() --> <aValues> ?

Regards, saludos.

... aJustify != nil .and. aJustify[ n ] SetTextAlign( hDC, TA_RIGHT ) ExtTextOut( hDC, nTop, nRight - 2, { nTop, nLeft, nBottom, nRight }, cValToChar( aValues[ n ] ) ) else SetTextAlign( hDC, TA_LEFT ) ExtTextOut( hDC, nTop, nLeft + 2, { nTop, nLeft, nBottom, nRight }, cValToChar( aValues[ n ] ) ) ...

...                  "Venezia","Nazionale","Tutte"}   local aValues := Array( 12 )   local nRow:=30   local nCol:= 5   local nSize1:= 50   local nSize2:= 10local nBottom   := 44   local nRight    := 110  ...

... <a> and <b>". Solucionado. * Solucionado: FW_SaveImage(): Se han eliminado los mensajes de rastreo. * Mejora: FW_DBINSERT( [<aValues>] ) Proporciona la misma funcionalidad que el comando INSERT de DBase, que no es soportado por Clipper/Harbour. Adecuado para ficheros dbfs ...

... "<fld> not between <a> and <b>". fixed. * Fix: FW_SaveImage(): Trace messages removed. * Enhanced: FW_DBINSERT( [<aValues>] ) Provides same functionality as INSERT command of DBase, which is not supported by Clipper/Harbour. Suitable for small dbfs. Inserts a ...

... or enhances, it is explained in whatsnew.txt: Extracts from Whatsnew.txt: FWH1409: * New: database.prg: New functions: 1)FW_FieldsPut( caFields, aValues, [nLockWaitSecs], [lAppend] ) --> nRecNo ( 0 if failure) ... 2)FW_CdxCreate( [caTagList] ) 3)FW_DBFSTRUCT( cDbfFile ) --> dbstruct() // ...

... ... oRs:Save() OR b) oRs:Update( cFieldList, aNewVAlues ) 2) Directly writing to table without opening as RowSet a) oCn:Update( table, fieldlist, aValues ) b) oCn:Insert( table, fieldlist, aValues ) c) oCn:Upsert( table, fieldlist, aValues ) Whatever way you write data, you can enclose in Beging/Commit ...

... ... oRs:Save() OR b) oRs:Update( cFieldList, aNewVAlues ) 2) Directly writing to table without opening as RowSet a) oCn:Update( table, fieldlist, aValues ) b) oCn:Insert( table, fieldlist, aValues ) c) oCn:Upsert( table, fieldlist, aValues ) Whatever way you write data, you can enclose in Beging/Commit ...

Armando. como estas, prueba esto

aCampos:={ 'cod_interno'ion'' }
aValues:={ CodControl }
xServer:Insert("ventadiaria", aCampos, aValues )

oQryId := xServer:Query( "SELECT last_insert_id() AS nId")
nReserva := oQryId:nId

saludos

... cEmpresa) LOCAL oGets:= Array( 05 ), aGets:= Array( 05 ) Local oBtns:= Array( 05 ) Local oBmp,oDlg1,oFont1 LOCAL lAceptar := .F. Local aCampos,aValues,aWhere, lAppend Local cStock1 :=0, oStock1 Local cStock2 :=0, oStock2 Local cStock3 :=0, oStock3 Local cStock4 :=0, oStock4 cStock1:=cTab_Art:in1_art ...