From bce9c87fdfd4d35e65130e010cf60378ad65fb74 Mon Sep 17 00:00:00 2001 From: Antonio Linares Date: Mon, 7 May 2007 17:48:33 +0000 Subject: [PATCH] minor fix --- harbour/contrib/adordd/adordd.prg | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/harbour/contrib/adordd/adordd.prg b/harbour/contrib/adordd/adordd.prg index 8d4ffbdc3f..62ed16a425 100644 --- a/harbour/contrib/adordd/adordd.prg +++ b/harbour/contrib/adordd/adordd.prg @@ -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