FiveTech Software tech support forums

... for us? I think it would be practical to have a function to fill JSON data into a DBF file in the following manner: json2dbf(dbfFile, jsonData, {aFields}) However, perhaps such a function already exists and I am just not aware of it. ----------------------------------------------------------------------------------------------------- ...

... , , ; { |oRep, oBrw| MySetUp( oRep, oBrw, oDbf,aGroup,nGroup,lEject,aCampi ) } ) static function MySetUp( oRep, oBrw, oDbf,aGroup,nGroup,lEject,afields ) local cFooter := "Progetto Magazzino - " local cTitle1 := "title row 1" local cTitle2 := "title row 2" local ...

... oRs:= oCn:Rowset( aSql, .t. ) oRs es el rowset resultante. en el método dblblick del browse ejecuto el FW_Record así ON DBLCLICK MyXedit( oRs, aFields, aHeaders ) esta es la función: FUNCTION MyXEdit( oRs, aFields, aHeaders )     LOCAL aFieldsHeaders:={}     FOR i = 1 to Len( ...

... que el problema era el haberle mandado un array, opté por hacer al revés. Dejé la cláusula autocol, limité las columnas en el query, y suprimí afields, dejando a headers. Con esto el resultado fué el esperado. Muchas gracias por tu ayuda. Lo que no he resuelto ahora, es que el xedit que se ...

... aSql, 'SELECT id, descripcion, idcategoria, sector, ordenlinea FROM puestos AS p ORDER BY id' )//Campos y cabezales para el xbrowseaAdd( aFields,  { 'id', 'descripcion', 'idcategoria', 'sector', 'ordenlinea' } )aAdd( aHeaders, { 'Id', 'Descripción', 'Id.Categoría', ...

... Str( Len( oRep:oDevice:oDevice:aMeta ) ) ) but not run oBrw:Report( cTitle, , , ; { |oRep, oBrw| MySetUp( oRep, oBrw, oDbf,aGroup,nGroup,lEject,aFields ) }) function MySetUp( oRep, oBrw, oDbf,aGroup,nGroup,lEject,afields ) local nTotalpages:=0 // LTrim( Str( Len( oRep:oDevice:oDevice:aMeta ) ...

Dear Silvio, > AAdd(oRep:aGroups,trGroup():New({||"oDbf:"+(afields[nGroup])},{||""},{||"Total"},{|| 1 },.t.,oRep)) AAdd(oRep:aGroups,trGroup():New( &( "{||oDbf:" + (afields[nGroup])}" ),{||""},{||"Total"},{|| ...

Dear Silvio,

> AAdd(oRep:aGroups,trGroup():New({||"oDbf:"+(afields[nGroup])},{||""},{||"Total"},{|| 1 },.t.,oRep))

AAdd(oRep:aGroups,trGroup():New( &( "{||oDbf:" + (afields[nGroup])}" ),{||""},{||"Total"},{|| 1 },.t.,oRep))

... asigno valores de forma dinámica, desde un cursor SQL bien sea TODBC o EAGLE creo los campos mediante METHOD InitFields() CLASS Ttable AEVAL(::aFields,{|a,n| __objAddData( Self, a[1] , CTOEMPTY(NIL,a[2],a[3] ) ) }) Ahora los campos me devuelve valores NIL

... perfect. She started by using the ALIAS keyword to assign a new name to the database table containing her family's gift list. Next, she used the AFIELDS keyword to retrieve the names of the fields in the table and the ADEL keyword to delete any unnecessary information. Using the ASORT keyword, ...

... see. I found a link to the Harbour functions, but failt to make a array with all the possible fieldnames and data. As you see, the building of the aFields is not working. What is needed for this ? Maybe the approich is also not optimal... #include "FiveWin.ch"Function Main()  ...

... output to 'tester.ppo'... 6 errors No code generated. tester.prg(65) Error E0019 #error 'Invalid instance variable name <->(aSort(AFIELDS(aFieldNames)))>' tester.prg(65) Error E0030 Syntax error "syntax error at '->'" tester.prg(65) Warning W0001 Ambiguous reference ...

Correct function Builddbf(aHeader,Alengte,cDbf,cdeli) local aStru := {} local aFields := HB_ATokens(aHeader[1], cdeli ) for i = 1 to len(aFields) cField = (aFields[i]) aAdd( aStru, { cField , "C", 255 , 0 } ) // I insert 255 is the max lenght next dbCreate( ...

... ) }" ) If you don't eval the block you'll not retrieve the content of the field. @ nRiga, nColonna PRINT TO oPrn TEXT eval( FIELDWBLOCK( aFields[ncampo], SELECT( "CUST" ) ) ); SIZE nWid, nHei CM ALIGN "T" FONT oFnt I tried with eval make error

... ) }" ) If you don't eval the block you'll not retrieve the content of the field. @ nRiga, nColonna PRINT TO oPrn TEXT eval( FIELDWBLOCK( aFields[ncampo], SELECT( "CUST" ) ) ); SIZE nWid, nHei CM ALIGN "T" FONT oFnt