FiveTech Software tech support forums

... file error and office won rd doesn't open table.rtf for me I explain you I have a Do while loop Function Print_Schedule() Local aTable,a1,n,aTemp,x,aFlags:={} local c1,c2 local cFileName := "table.rtf" local oFile := FCreate(cFileName, 0) aTable := {} Do while (!oTemp4:Eof()) * ...

... LOCAL aRet := {} LOCAL dData LOCAL nSele := Select() LOCAL cAvulso LOCAL cField, nLen LOCAL oMes,oEmp,oAvu LOCAL oPan, aCargo, cAno,lAllOk, nPos, aTemp, a // LOCAL cComp LOCAL nConti:=0 LOCAL nContador :=0 LOCAL nContador2:=0 local lEnd := .f. PUBLIC cComp PUBLIC cMesANO oPan := SWPanelWindow( ...

Do you mean that each group browses a different array ?? No they must be displayed vertically in the same way as I created the first one AaDd(aTemp,{ aRuote[1], oDbf:ba1,oDbf:ba2,oDbf:ba3,oDbf:ba4,oDbf:ba5 }) for example for the first line the first column remains unchanged (name of the wheel) ...

... default 10 records I use Tdatabase and made a Set filter as you can see on this method  METHOD Load_Data(nCount) CLASS TLOTTO     local aTemp  := {}     local nLastRecords,nInit,nEnd  DEFAULT nCount := 10    ::olotto := TArchivioLotto():New()    ::olotto:SetOrder(1)  ...

... make oRit:= TDatabase():Open( , cDir+"lotto", "DBFCDX", .T. ) oRit:setorder(0) oRitardo:gobottom() nUltimo:= oRitardo:recno() aTemp:=oRit:dbftoarray() ritardo:= Rit( aTemp, number, npos,nUltimo ) Function Rit( aData, numero, npos, nLast ) local nCount := -1 nPos += 2 AEval( ...

... c2:= "0103" c3:= "0104" from this array https://i.postimg.cc/L4t7rWGN/o.png I tried with For n=1 to Len(atemp) c:= atemp[n][1] cStringa:=ltrim(str(atemp[n][2]))+ltrim(str(atemp[n][3])) &c:= cStringa next but not work How I can resolve ?

... 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 ) nNumero := atemp[1][1] but not is correct How I can take it ?

... FLAT OF oDlg TOOLTIP "Aggiungi un numero"; action OneNumb(oBtnNum, oSay,@aNatural ) ..... Function OneNumb(oCmb, oSay,aNatural ) local atemp := {} local nAt,nAp local cNum //check and del to aNatural the numbers are allready on alista For n=1 to Len(aLista) cNum:= alista[n] nAp:= AScan( ...

... 1, Len( aNatural ) ), ; AAdd( aLista, aNatural[ nAt ] ), ; HB_ADel( aNatural, nAt, .t. ), ; AddOne(oBtnNum,aLista,oSay) ) Function AddOne(oCmb,atemp,oSay) For n= 1 to Len(atemp) idcheck:= atemp[n] oCmb[idcheck]:cargo:=1 // I need to change the cargo of btnbmp SetStatus( oCmb[idcheck],oSay) ...

... 90 numbers, one at a time, the random ones. Whenever I extract a number, it is necessary to check if it already exists in a list array and in an atemp array. I created the function OneNumb(oSay) but I saw that after about 63 numbers the procedure freezes and crashes, once I got to 82 numbers ...

I have this array https://i.postimg.cc/c1Ps6WWX/hhhh.png AaDd(atemp,{strzero(n,4),; SP->elemento,; SP->desc,; SP->settore,; nGiorni,; aPrices[k],; lIslock,; aListini[k][2] } ) the user found problems to modify the price and he wish see ...

... atemp:=oTariffe:FW_DbfToArray( cFieldList, { || oTariffe:TACANCEL=.F.  } ) the procedure not run ok, so on atemp array the procedure ...

... I can delete only the records having tacancel:= .t. oTariffe:ORDSCOPE(0, NIL ) // reset oTariffe:ORDSCOPE(1, NIL ) // reset oTariffe:GoToP() atemp:=oTariffe:FW_DbfToArray( cFieldList, { || oTariffe:TACANCEL=.t. } ) xbrowser atemp https://i.postimg.cc/g0414WmZ/hhhhh.png Finally, ...

local aTemp := {}

is equivalent to

local aTemp
aTemp = {}

The advantage is that the first form is more compact, I presume.

EMG

This is a simple declaration:

local aTemp

while this other is a declaration with initialization:

local aTemp := {}

In the simple declaration the value of aTemp is NIL. After the initialization the type of aTemp is array and its value is an empty array.

EMG