fivedev/harbour-core
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

2002-03-14 11:12 UTC+0300 Alexander Kresin <alex@belacy.belgorod.su>

Browse Source
This commit is contained in:
Alexander S.Kresin
2002-03-14 08:15:22 +00:00
parent 3d3094e82d
commit ae91233fd2
2 changed files with 27 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
harbour/ChangeLog
View File

@@ -7,6 +7,11 @@
For example:
2002-12-01 23:12 UTC+0100 Foo Bar <foo.bar@foobar.org>
*/
2002-03-16 19:31 UTC-0300 Horacio Roldan <harbour_ar@yahoo.com.ar>
* source/rdd/dbfcdx/dbfcdx1.c
! fixed bug with keys updating
2002-03-15 08:50 UTC-0800 Ron Pinkas <ron@ronpinkas.com>
* contrib\dot\pp.prg
* contrib\dot\pp_harb.ch
* contrib\dot\prgscrpt.prg

24
harbour/source/rdd/dbcmd.c
View File

@@ -3372,11 +3372,22 @@ HB_FUNC( DBEXISTS )
// check if the field is on the Fields Array
static BOOL IsFieldIn( char * fieldName, PHB_ITEM pFields )
{
USHORT i, uiFields = ( USHORT ) hb_arrayLen( pFields );
USHORT i, j, uiFields = ( USHORT ) hb_arrayLen( pFields );
char *ptr;
BOOL lresult;
for ( i=0; i<uiFields; i++ )
{
PHB_ITEM pField = pFields->item.asArray.value->pItems + i;
if ( strcmp( fieldName, (char *)pField->item.asString.value ) == 0 )
ptr = (char *)pField->item.asString.value;
lresult = TRUE;
for( j=0;*ptr;j++,ptr++ )
if( *(fieldName+j) != toupper(*ptr) )
{
lresult = FALSE;
break;
}
if ( lresult )
return TRUE;
}
return FALSE;
@@ -3455,6 +3466,15 @@ static LPAREANODE GetTheOtherArea( char *szDriver, char * szFileName, BOOL creat
}
hb_itemRelease( pItem );
hb_itemRelease( pData );
if( !hb_arrayLen( pFieldArray ) )
{
hb_itemRelease( pFieldArray );
SELF_RELEASE( ( AREAP ) pAreaNode->pArea );
hb_xfree( pInfo.abName );
hb_xfree( pAreaNode );
hb_errRT_DBCMD( EG_ARG, EDBCMD_BADPARAMETER, NULL, "DBCREATE" );
return NULL;
}
/* check for table existence and if true, drop it */
tableItem = hb_itemNew( NULL );