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

minor fix

Browse Source
This commit is contained in:
Antonio Linares
2007-05-07 17:48:33 +00:00
parent 1c00dfe484
commit bce9c87fdf
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
harbour/contrib/adordd/adordd.prg
View File

@@ -686,17 +686,17 @@ INIT PROC ADORDD_INIT()
rddRegister( "ADORDD", RDT_FULL )
return
static function ADO_GETFIELDSIZE( nDBFTypeField, nADOFielSize )
static function ADO_GETFIELDSIZE( nDBFTypeField, nADOFieldSize )
local nDBFFieldSize := 0
DO CASE
CASE nDBFTypeField == HB_FT_STRING
nDBFFieldSize := nADOFielSize
nDBFFieldSize := nADOFieldSize
CASE nDBFTypeField == HB_FT_INTEGER
nDBFFieldSize := nADOFielSize
nDBFFieldSize := nADOFieldSize
CASE nDBFTypeField == HB_FT_DATE
nDBFFieldSize := 8