Subject | [IBO] Grid check box and case columns? |
---|---|
Author | Paul Hope |
Post date | 2007-03-01T11:25:46Z |
HI
IBO 4.7.16 D6
I have a TIB_Query connected to a grid. The SQL for one column is
'case when c.status in (''P'',''C'') then 1 else 0 end as ptick,'
and column attributes are 'PTICK=BOOLEAN=1,0'
I was expecting the grid column to appear as a tick/cross but just get 1 or
0.
Am I missing something or is this an oversight/bug/not yet implemented?
Rest of query object below
Regards
Paul
object ib_qColSecStatus: TIB_Query
ColumnAttributes.Strings = (
'RUN=BOOLEAN=1,0;REQUIRED'
'PTICK=BOOLEAN=1,0'
'CTICK=BOOLEAN=1,0')
DatabaseName = 'pserver2/3060:d:\practice plan\pp15.fdb'
FieldsDisplayFormat.Strings = (
'CDATE=dd/mm/yy')
FieldsDisplayLabel.Strings = (
'SECTION=Section'
'CDATE=Collection'
'COLUMN3=Run'
'RUN=Run'
'NUMBER=Section'
'PTICK=Preview'
'CTICK=Done')
FieldsDisplayWidth.Strings = (
'SECTION=55'
'CDATE=60'
'COLUMN3=30'
'RUN=30'
'NUMBER=45'
'PTICK=45'
'CTICK=40')
FieldsVisible.Strings = (
'REC=FALSE'
'NUMBER=TRUE'
'CDATE=FALSE'
'PTICK=TRUE'
'CTICK=TRUE')
IB_Connection = HFMMain.IBCon
SQL.Strings = (
'Select c.rec,s.number,c.cdate,'
'case when c.status in (''P'',''C'') then 1 else 0 end as ptick,'
'case when c.status in (''C'') then 1 else 0 end as ctick,'
'c.run '
'from sections s '
'left outer join collection_section c'
' on s.number=c.section and c.cdate=:tmcd')
DeleteSQL.Strings = (
'DELETE FROM COLLECTION_SECTION'
'WHERE'
'rec = :rec')
EditSQL.Strings = (
'UPDATE COLLECTION_SECTION SET'
' SECTION = :number,'
' CDATE = :CDATE,'
' RUN = :RUN'
'WHERE'
'rec = :rec')
InsertSQL.Strings = (
'INSERT INTO COLLECTION_SECTION('
' SECTION,'
' CDATE,'
' RUN)'
'VALUES ('
' :number,'
' :CDATE,'
' :RUN)')
RequestLive = True
Left = 56
Top = 238
ParamValues = (
'TMCD=')
end
[Non-text portions of this message have been removed]
IBO 4.7.16 D6
I have a TIB_Query connected to a grid. The SQL for one column is
'case when c.status in (''P'',''C'') then 1 else 0 end as ptick,'
and column attributes are 'PTICK=BOOLEAN=1,0'
I was expecting the grid column to appear as a tick/cross but just get 1 or
0.
Am I missing something or is this an oversight/bug/not yet implemented?
Rest of query object below
Regards
Paul
object ib_qColSecStatus: TIB_Query
ColumnAttributes.Strings = (
'RUN=BOOLEAN=1,0;REQUIRED'
'PTICK=BOOLEAN=1,0'
'CTICK=BOOLEAN=1,0')
DatabaseName = 'pserver2/3060:d:\practice plan\pp15.fdb'
FieldsDisplayFormat.Strings = (
'CDATE=dd/mm/yy')
FieldsDisplayLabel.Strings = (
'SECTION=Section'
'CDATE=Collection'
'COLUMN3=Run'
'RUN=Run'
'NUMBER=Section'
'PTICK=Preview'
'CTICK=Done')
FieldsDisplayWidth.Strings = (
'SECTION=55'
'CDATE=60'
'COLUMN3=30'
'RUN=30'
'NUMBER=45'
'PTICK=45'
'CTICK=40')
FieldsVisible.Strings = (
'REC=FALSE'
'NUMBER=TRUE'
'CDATE=FALSE'
'PTICK=TRUE'
'CTICK=TRUE')
IB_Connection = HFMMain.IBCon
SQL.Strings = (
'Select c.rec,s.number,c.cdate,'
'case when c.status in (''P'',''C'') then 1 else 0 end as ptick,'
'case when c.status in (''C'') then 1 else 0 end as ctick,'
'c.run '
'from sections s '
'left outer join collection_section c'
' on s.number=c.section and c.cdate=:tmcd')
DeleteSQL.Strings = (
'DELETE FROM COLLECTION_SECTION'
'WHERE'
'rec = :rec')
EditSQL.Strings = (
'UPDATE COLLECTION_SECTION SET'
' SECTION = :number,'
' CDATE = :CDATE,'
' RUN = :RUN'
'WHERE'
'rec = :rec')
InsertSQL.Strings = (
'INSERT INTO COLLECTION_SECTION('
' SECTION,'
' CDATE,'
' RUN)'
'VALUES ('
' :number,'
' :CDATE,'
' :RUN)')
RequestLive = True
Left = 56
Top = 238
ParamValues = (
'TMCD=')
end
[Non-text portions of this message have been removed]