TDolphin clear date field

TDolphin clear date field

Postby aferra » Mon Jun 27, 2016 1:02 pm

prior to the DBF I was so

<Alias> -> dtpg: = CTOD ( "")

with TDolphin class'm not getting and locking system.

What I've tried:

ClipValue2SQL ()
Transform (DTOs (CTOD ( "")), "@R 9999-99-99")
Transform (DTOs (CTOD ("01/01/0001")), "@R 9999-99-99")
Transform (DTOs (CTOD ("00-00-0000")), "@R 9999-99-99")

and whenever it sends to oServer: Update () locking system

as I do, because I need to clear the date today already padronizei the date as 0001-01-01 for entendee system that is "empty" but if I put that date it writes in the table as 2001-01-01 getting wrong.

thanks in advance
aferra
 
Posts: 88
Joined: Wed Apr 28, 2010 6:34 pm

Re: TDolphin clear date field

Postby aferra » Tue Jun 28, 2016 10:46 am

in FUNCTION ClipValue2SQL (
I changed this line

       CASE "D"
          if! Empty (Value) .OR. lNoNull
             cValue: = cTxt + Transform (DTOs (Value), "@R 9999-99-99") + cTxt
          else
             // CValue: = "null" 27/06/2016
             cValue: = "0000-00-00"
          endif
          EXIT

See you
aferra
 
Posts: 88
Joined: Wed Apr 28, 2010 6:34 pm


Return to FiveWin for Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 99 guests