FiveTech Software tech support forums

... SIZE 300,30 PIXEL OF oDlg ;      WHEN ( DBRLOCK() ) VALID ( oDlg:Update(), .t. ) UPDATE   @  80, 20 SAY "OrdKeyNo : " + cValToChar( OrdKeyNo( "CITY" ) ) ;      SIZE 200,30 PIXEL OF oDlg UPDATE   @ 140, 20 BUTTON "Unlock" ...

oRs:BookMark --> is like RECNO() of DBF oRs:AbsolutePosition --> is like OrdKeyNo() of DBF After reading a recordset, both point to the same record. After reading a recordset, we can sort the recordset in memory by oRs:Sort := cFieldName After sorting, oRs:BookMark ...

Jimmy,

Equivalents:

Found() --> .not. oRs:Eof()
RecNo() --> oRs:BookMark
DbGoTo( n ) --> oRs:BookMark := n
OrdKeyNo() --> oRs:AbsolutePosition
OrdKeyGoTo( x ) --> oRs:AbsolutePosition := x

Regards,

... := n is equivalent to ( oBrw:cAlias )-> GOTO( n ) for DBF and is equivalent to oBrw:oRs:BookMark := n for ADO Same way oBrw:KeyNo is same is OrdKeyNo() for DBF, AbsolutePosition of ADO, etc XBrowse can handle many types of datasources, which use different methods, functions and datas. We ...

... _SET_DELETED ), "DELETED()" $ Upper( DbFilter() ), .t. ) * endif endif DEFAULT ::bKeyNo := {| n | iif( n == nil,; ( ::cAlias )->( OrdKeyNo() ),; ( ::cAlias )->( OrdKeyGoto( n ); ) ) },; ::bKeyCount := {|| ( ::cAlias )->( If( eof() .and. bof(), 0, OrdKeyCount() ) ) } Endif ...

... pero ahora que estoy trabajando con la 1712 mi programa corre pero despues de leer la instruccion DATABASE oDbf aparecen estos errores tales como: ORDKEYNO(), Alias no existe, etc. Mis tablas DBFs con su alias son abiertas al iniciar mi programa, segun he leido cuando cierro el objeto oDbf tambien ...

Gracias por responder, este es el código: xOrdenadoPor ="" xcampobusca = "Nombre" cSQL := "SELECT top(25) * FROM clientes " oRS1cli := CargaRecordSet( cSQL, CadenaCon ) DEFINE FONT oFont NAME "Arial narrow" SIZE 0, - 12 DEFINE FONT oFont1 NAME "Arial narr...

Hola buen día, en un programa que trabaja con SQL, tengo en los abm un listbox donde muestro los datos y si hacen click sobre cualquier registro y arrastran da este error. Como se puede evitar que provoque el error. Saludos Jorge Let us see how you are building xbrowse. and your fwh version what sq...

Post el ERROR asi, porfa:

http://forums.fivetechsupport.com/viewtopic.php?f=6&t=37936&start=0

Use:

Code: Select all  Expand view

//external ordkeyno, ordkeycount, ordcreate, ordkeygoto

REQUEST OrdKeyNo, OrdKeyCount, OrdCreate, OrdKeyGoto
 

Regards, saludos.

Hola buen día, en un programa que trabaja con SQL, tengo en los abm un listbox donde muestro los datos y si hacen click sobre cualquier registro y arrastran da este error.

Como se puede evitar que provoque el error.

Saludos
Jorge

... is an array of oRs:BookMarks BookMark of a RecordSet is like RECNO() of DBF. Does not change with sorting. AbsolutePosition of a RecordSet is like OrdKeyNo() of DBF, which changes when sorted. So, you are safe even when sorting.

Gracias Antonio, Efectivamente!, me fije bien en el código y habia un oDbf:Close() en medio de un ON CHANGE del browse, yo creía que el oDbf:Close() sólo cancelaba el objeto oDBF pero mirando la clase veo que cierra el Alias() y eso me deja sin la Base que necesita el xBrowse y por eso se produce el...

Raul,

El error se produce por no haber una DBF abierta:

> Error DBCMD/2001 Workarea not in use

... 9200 Time from start: 1 hours 36 mins 27 secs Error ocurrido: 25/01/22, 10:35:44 Description del error: Error DBCMD/2001 Workarea not in use: ORDKEYNO Stack Calls =========== Llamado desde: => ORDKEYNO( 0 ) Llamado desde: .\source\classes\XBROWSE.PRG => (b)TXBROWSE_SETRDD( 5089 ) Llamado ...

... written. ! Note : need PostgreSQL Server > 8 for row_number() row_number() will create a "extra" Column in Result-Set which is like OrdKeyNo() this is useful when want to "SKIP" (in Order) in SQL Table if "nSkip" is > FIELD row_number() it need call o:NextCursor() ...