FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Pregunta Sobre Tdolphin (SOLUCIONADO)
Posts: 1078
Joined: Thu Sep 27, 2007 03:47 PM
Pregunta Sobre Tdolphin (SOLUCIONADO)
Posted: Tue Dec 17, 2019 02:57 AM

Cordial Saludos.

Tengo una duda,
Cuando genero un Query , caso especifico y una columna tipo fecha es Nulo , apensar que cuando acceso FieldType( cnField ) me dice que es tipo "D" que es correto.
pero cuando acceso FieldGet( cnField ) retorna una valor Caracter " " VALTYPE con valor de "C" , no deberia ser tipo "D" si la columna es tipo fecha.

Al alguna de forum le ha pasado este tipo de problema.

Ruben Dario Gonzalez
Cali-Colombia
rubendariogd@hotmail.com - rubendariogd@gmail.com
Posts: 10733
Joined: Sun Nov 19, 2006 05:22 AM
Re: Pregunta Sobre Tdolphin
Posted: Wed Dec 18, 2019 09:15 AM
When NULL value is stored in a field of DATE type, TDolphin's FieldGet() returns Empty String, i.e., "", but not Empty Date.

This can be fixed by making this correction in tdolpqry.prg
METHOD VerifyValue(...)

Please locate this code:
Code (fw): Select all Collapse
      CASE "D"
         IF Empty( cField ) .OR. Empty(cField)
            uValue = If( IS_NOT_NULL( ::aStructure[ nIdx ][ MYSQL_FS_FLAGS ] ),  CToD( "" ), cField )
         ELSE


Please change this as:
Code (fw): Select all Collapse
      CASE "D"
         IF Empty( cField )
            uValue = CToD( "" )
         ELSE

Recompile tdoplqry.prg and rebuild your dolphin.lib
Regards



G. N. Rao.

Hyderabad, India
Posts: 1078
Joined: Thu Sep 27, 2007 03:47 PM
Re: Pregunta Sobre Tdolphin
Posted: Wed Dec 18, 2019 01:09 PM

Gracias.
Ya me funciono

Ruben Dario Gonzalez
Cali-Colombia
rubendariogd@hotmail.com - rubendariogd@gmail.com

Continue the discussion