FiveTech Software tech support forums

... It is the solution here.


Yes, do you test with STRTRAN ? run all ok ? sure ?


IF nMode==2 //modify
ntest1 := STRTRAN(str(oBrowse:aArraydata[nRecord][2]), ".", ",")
ntest2 := STRTRAN(str(oBrowse:aArraydata[nRecord][3]), ".", ",")
ntest3 := STRTRAN(str(oBrowse:aArraydata[nRecord][4 ...

... MENUITEM "Paste" WHEN acopy!=NIL ACTION ( ;
oBrw:Lock(), ;
aCopy[ 1 ] := codsep ,;
aCopy[ 8 ] := 0 ,; //recno
aadd( oBrw:aArrayData, aCopy ),;
oBrw:Unlock( .t. ), ;
acopy:=NIL ,;
oBrw:RefreshCurrent(), oBrw:SetFocus() )
ENDMENU

but when I modify it the nRecord:= oBrowse:nArrayAt is the same

I have different on my dialog I use BTNBMP control to show name of font and sizes

cFontName := oBrowse:aArraydata[nRecord][15]
nFontSize := oBrowse:aArraydata[nRecord][16]
lUnderline := oBrowse:aArraydata[nRecord][17]
lStrikeOut := oBrowse:aArraydata[nRecord][18]
lBold := oBrowse:aArraydata ...

I made a small test to try
I wish show only nrecord and only the year = nyear selected by user

#include "fivewin.ch"REQUEST DBFCDX//----------------------------------------------------------------------------//FUNCTION Main() RddSetDefault( "DBFCDX" ) SetHandleCount( 100 &#41 ...

... 20,86,67,64,58,22,17,47,77,1,6} ;}


Perhaph is wrong the codeblock bBlock

Function test()
local aDatadbf:=aData_array()
local number,nRecord
local nDelay

number:=89 // delay must be 24

? Rit( aDataDbf, number, 1, nrecord )
return nil

Function Rit( aData, numero, nWheel,nRecord ...

... aData2 := aData2_array()

......

ACTIVATE DIALOG oDlg CENTERED ;
ON INIT ( Refresh_data2(oDbf,oSay,oBrw2,nRadio),; //this call Crea_data2(oDbf,nRecord,oBrw2, nTipo )
Refresh_data1(oDbf,oBrw1,adataDbf),; // this call Crea_data1(adata,nRecord,oDbf,oBrw1)
aGet[7]:nHeight:=21.2,;
Eval(oDlg ...

... the archive and in the same position, compared to the number of records where I have positioned myself

EstrattoFrequenza(nNumber,nWheel,npos,nrecord)

with this function I pass the following parameters

nNumber the number to search
nWheel a number (from 1 to 11)
npos the position ...

... WITH OBJECT oBrowse:aCols[ 7]
:bEditValue := TotalDays(oBrowse)
END

I tried with ( but not run ok )

Function TotalDays(oBrowse)
local nRecord := oBrowse:narrayat
local dStart := oBrowse:aArrayData[nRecord][5]
local dEnd := oBrowse:aArrayData[nRecord][6]
local nGiorni:= (dEnd-dStart)+1 ...

Nages,
I have seen that if I select a record towards the end of the archive, he prints from that record onwards (until the end of the archive)
it is as if it uses the selected record to assign a point (goto nrecord)

... con algunos nombres de campo
en algunas tablas. Estos métodos ahora son descartados.

- Método Eval( bAction, [bFor], [bWhile], [nNext], [nRecord], [lRest] )
Todos los bloques de código son evaluados con Self como parámetro.
el puntero al registro es restaurado después de la ejecución ...

... GoBottom() are clashing with some field names
in some tables. These methods are now dropped.

- Method Eval( bAction, [bFor], [bWhile], [nNext], [nRecord], [lRest] )
All codeblocks are evaluated with Self as parameter.
Recordpointer is restored after execution.

- After a requery, if the sql does ...

... lToggle>)->lCurrentState
ReadInsert(<lToggle>)->lCurrentMode
ReadKey()->nReadkeyCode
ReadModal(<aGetList>)->Nil
ReadVar()->cVarName
RecCount()->nRecords
RecNo()->nRecord
RecSize()->nBytes
RemAll(<cString>,[<xChar>])->cResult
RemLeft(<cString>,[<xChar>])->cResult
RemRight(<cString>,[<xChar ...

... lToggle>)->lCurrentState
ReadInsert(<lToggle>)->lCurrentMode
ReadKey()->nReadkeyCode
ReadModal(<aGetList>)->Nil
ReadVar()->cVarName
RecCount()->nRecords
RecNo()->nRecord
RecSize()->nBytes
RemAll(<cString>,[<xChar>])->cResult
RemLeft(<cString>,[<xChar>])->cResult
RemRight(<cString>,[<xChar ...

... cFootingSeperator>],[<acColumnFootings>|<cColumnFooting>])->Nil
DBEval(<bBlock>,[<bForCondition>],[<bWhileCondition>],[<nNextRecords>],[<nRecord>],[<lRest>])->Nil
DBExists(<cDbfFile>)->lExists
DBF()->cAlias
DBFieldInfo(<nInfo>,<nFieldPos>)->xFieldInfo
DBFileGet(<nFieldPos>,<cTargetFile ...

... can specify his own dialog with ::bEdit

26. End() Closes DBF and ::oCn object

27. Eof() True if EOF()

28. Eval( bBlock, bFor, bWhile, nNext, nRecord, lRest ) Executes DBEVAL() with same parameters

29. Exec( bAction ) Evaluates bAction in the WorkArea of the object.

30. ExecTigger ...