2009-05-22 18:00 UTC+0100 Miguel Angel Marchuet <miguelan...@marchuet.net>
* include\hbdate.h
* source\common\hbdate.c
+ Added api hb_dbaselockEncode( char * pszTimeDate ) to encode this time
of fields.
* include\dbinfo.ch
+ Added #define DBRI_DBASELOCK 10 /* get lock info */
to get info about lock on shared tables and locked registers.
* source\rdd\dbcmd.c
+ added LKSYS( nInfo ) function with this parameter:
0 Time when lock was placed
1 Date when lock was placed
2 Login name of user who locked record or file
* include\hbapirdd.h
* include\hbrddbmc.h
* include\hbrddcdx.h
* include\hbrdddbf.h
* include\hbrddmdx.h
* include\hbrddnsx.h
* include\hbrddntx.h
* source\rdd\dbf1.c
* source\rdd\workarea.c
* modified dbf rdd structure, all rdds based on DBF need to be actualiced.
+ Added support to add system fields Type 0, for example _DBASELOCK
+ Added support to _dbaselock hidden field with lock information
(user,time & date)
+ Added function LKSYS to retrieve lock information, works in similar way
as dBase IV.
! fixed FieldType to retrive correct type for system fields and dbase IV
binary memo.
sample of use:
FUNCTION MAIN()
LOCAL n
SET DATE FORMAT "DD/MM/YYYY"
RDDSETDEFAULT( "DBFCDX" )
SET DELETED ON
DBCREATE( "TMPTEST", { { "A1", "C", 10, 0 },;
{ "_DBASELOCK", "0", 24, 0, 0x0001 } } )
USE TMPTEST SHARED NEW ALIAS "ONE"
FOR n := 1 TO 10
APPEND BLANK
REPLACE FIELD->A1 WITH "0123456789"
NEXT
DBGOTOP()
DBRLOCK( RecNo() )
USE TMPTEST SHARED NEW ALIAS "TWO"
DBGOTOP()
IF ! DbRLock( RecNo() )
? LKSYS( 0 )
? LKSYS( 1 )
? LKSYS( 2 )
ENDIF
WAIT
RETURN NIL
* source\rtl\net.c
+ created void hb_netname( char * pszNetName, BOOL bGetUser ) and used
from NETNAME.
to call it from c code of rdd.
Best regards,
Miguel Angel Marchuet
__________ Información de ESET NOD32 Antivirus, versión de la base de firmas de
virus 4097 (20090522) __________
ESET NOD32 Antivirus ha comprobado este mensaje.
http://www.eset.com
------------------------------------------------------------------------------
Register Now for Creativity and Technology (CaT), June 3rd, NYC. CaT
is a gathering of tech-side developers & brand creativity professionals. Meet
the minds behind Google Creative Lab, Visual Complexity, Processing, &
iPhoneDevCamp asthey present alongside digital heavyweights like Barbarian
Group, R/GA, & Big Spaceship. http://www.creativitycat.com
_______________________________________________
xHarbour-developers mailing list
xHarbour-developers@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/xharbour-developers
