FiveTech Support Forums

WITH OBJECT oRecordSet

     :fields:append( "Code", adInteger, 5, adFldUpdatable )
     :fields:append( "name", adVarChar, 30, adFldUpdatable )
     :fields:append( "Active", adBoolean,, adFldUpdatable )
     :fields:append( "Reg Date", adDate,, adFldUpdatable )

     TRY

        :open()
        
        :addNew()
        :fields( "Code" ):value := 1
        :fields( "name" ):value := "JÚLIO CÉSAR M. FERREIRA"
        :fields( "Active" ):value := .T.
        :fields( "Reg Date" ):value := date()

        :addNew()
        :fields( "Code" ):value := 2
        :fields( "name" ):value := "NEW USER FOR TESTS"
        :fields( "Active" ):value := .F.
        :fields( "Reg Date" ):value := date()

        :addNew()
        :fields( "Code" ):value := 3
        :fields( "name" ):value := "ANOTHER NEW USER FOR TESTS"
        :fields( "Active" ):value := .F.
        :fields( "Reg Date" ):value := date()

        :addNew()
        :fields( "Code" ):value := 4
        :fields( "name" ):value := "MORE ONE USER"
        :fields( "Active" ):value := .T.
        :fields( "Reg Date" ):value := date()

        :moveFirst()

END

   WITH OBJECT oBrw

        :bClrRowFocus        := {|| { CLR_BLACK, nrgb( 228, 232, 224 ) } }
        :bClrSel             := {|| { , nrgb( 228, 232, 224 ) } }
        :nMarqueeStyle       := 4
        :nRowDividerStyle    := 4
        :nColDividerStyle    := 4
        :lColDividerComplete := .F.
        :nStretchCol         := STRETCHCOL_WIDEST

        :createFromCode()
        //:bLDblClick( {|| oRecordSet:fields( "Active" ):value := !oRecordSet:fields( "Active" ):value, oBrw:refresh() } )

        WITH OBJECT :aCols[3]

             :setCheck( { "GREEN", "RED" },  {|| msgInfo( oRecordSet:fields( "Active" ):value ) } )
             :setCheck( { "GREEN", "RED" }, {|o, v| ( oRecordSet:fields( "Active" ):value := v, msgInfo( oRecordSet:fields( "Active" ):value ) ) } )
             :bStrData        := {|| If( oRecordSet:fields( "Active" ):value, "Yes", "No" ) }
             :nDataStrAlign   := AL_RIGHT

        END

   END

"PRO_CAN BIT NOT NULL COMMENT 'Cancelado ?'," +;

oPro:CAN := oRsPro:Fields("PRO_CAN"):Value

MsgInfo(oPro:CAN)

CREATE TABLE test(
   active_register tinyint(1) NOT NULL default 0
);

CREATE TABLE test(
   active_register boolean NOT NULL default 0
);

CREATE TABLE test(
   active_register bit NOT NULL default 0  //  .F.
);

CREATE TABLE test(
    date_recognize timestamp not null default current_timestamp
);

SELECT date_recognize FROM test;
R=2009-12-24

SELECT CAST( date_recognize AS CHARACTER ) as date_recognize FROM test;
R='2009-12-24 12:12:41'