FiveTech Software tech support forums

Insert a code block

I have
sample nLastRecords:= 2000

IF nLastRecords > 0
nInit:=olotto:lastrec()-nLastRecords
nEnd:= olotto:lastrec()
ENDIF


and I must insert this on a codeblock

bFor:= { || recno() <= nInit .and. recno() >= nEnd }

but make error

Sql can be used with DBF... (partly forum code) Not sure if the speed is better in Lan than with CDX used by more people. How to get recno() with SQL is not known by me. ChatGPT gave 2 options, but not working with my small knowledge of SQL #include "fivewin.ch"#include "xbrowse.ch"#include ...

... ;                                oTDbfFacAlbDummy, ;                                lPrimerTractament, ;                                @nRecnoAnterior, ;                                @cIdFacturAnterior, ;                                cNumSerieFacturaRegistroAnteriorDummy, ;        ...

... ;                                oTDbfFacAlbDummy, ;                                lPrimerTractament, ;                                @nRecnoAnterior, ;                                @cIdFacturAnterior, ;                                cNumSerieFacturaRegistroAnteriorDummy, ;        ...

... all records in a loop and write all matches into $matchRecords[] = [ 'index' => $i, 'fieldValue' => $fieldValue, // Add fieldValue here 'recno' => $i + 1 // Add recno here ]; Then I sort $matchRecords[] usort($matchRecords, function ($a, $b) { return strcmp($a['fieldValue'], $b['fieldValue']); ...

... RESOURCE "exit" ; ACTION oWndDeposits:End() DEFINE MSGBAR oMsgBar OF oWndDeposits 2007 BrwColors( oBrw ) BrwRecSel( oBrw, "RECNO" ) for each cCol in { "Amount", "Tax", "Total" } oBrw:oCol( cCol ):nFooterType := AGGR_SUM next oBrw:bLDblClick ...

... RESOURCE "exit" ; ACTION oWndDeposits:End() DEFINE MSGBAR oMsgBar OF oWndDeposits 2007 BrwColors( oBrw ) BrwRecSel( oBrw, "RECNO" ) for each cCol in { "Amount", "Tax", "Total" } oBrw:oCol( cCol ):nFooterType := AGGR_SUM next oBrw:bLDblClick ...

... ImpVta[Q]:=0 DtoVta[Q]:=0 VolVta[Q]:=0 PPUVta[Q]:=0 NEXT USE CONFICEM NEW DATABASE oDbf oDbf:bEoF=nil oDbf:bBoF=nil oDbf:GoBottom() Reg:=oDbf:RecNo() IF Reg>1 L:=(Reg+1) ELSE L:=1 ENDIF IF Reg<128 FOR Q=L TO 128 oDbf:Append() oDbf:Save() oDbf:Unlock() NEXT ENDIF DBCLOSEALL() USE VENTACEM ...

METHODS: RecCount(), LastRec(), KeyCount(),RecNo(), KeyNo() GoTop(),GoBottom(),GoTo(nRec),KeyGoTo(nKey),Skip(n) FCount(),FieldPos(c),FieldName(),FieldLen(),FieldDec(),FieldType() FieldGet(),FieldPut() SetOrder(cSort,,lDescend) Save() Close() or ...

... change acopy[1] with new codsep 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 ...

... of the corresponding fields of the DBF. I actually don't know why when I delete one it assigns a number in position 32, where I added the "recno" field as it is done on yunus.prg If I add and delete, a number is not inserted So we arrived at this conclusion which seems to work AEval( ...

... 1624 )   Called from: TEST.PRG => TESTDEL( 131 )   Called from: TEST.PRG => MAIN( 26 ) TO save a xbrowse ( with array with 31 record + "recno()") I made Check if there are deleted records      if ! Empty( oBrowse:aDeleted )             AEval( oBrowse:aDeleted, { ...

... re-save on archive There's probably something I don't understand I have two dbf Report.dbf (oDbf) Formati.dbf ( oDbfMod) have 30 fields +1 for recno() at first for editing I take a record on Report.dbf oRecord := oDbf:record() create am array from another archive  aDataForm := oDbfMod:DbfToArray( ...

... RDDs =========== DBF DBFFPT DBFBLOB DBFCDX DBFNTX DataBases in use ================ 1: => EMP RddName: DBFNTX ============================== RecNo RecCount BOF EOF 1 1 .F. .F. Indexes in use TagName Relations in use Classes in use: =============== 1 ERROR 2 HBCLASS 3 HBOBJECT 4 TFONT 5 WIN_OLEAUTO ...

... RDDs =========== DBF DBFFPT DBFBLOB DBFCDX DBFNTX DataBases in use ================ 1: => EMP RddName: DBFNTX ============================== RecNo RecCount BOF EOF 1 1 .F. .F. Indexes in use TagName Relations in use Classes in use: =============== 1 ERROR 2 HBCLASS 3 HBOBJECT 4 TFONT 5 WIN_OLEAUTO ...