FiveTech Support Forums

       aCampos := {oDbDiario:Fields( 0):NAME,oDbDiario:Fields( 1):NAME,;
                   oDbDiario:Fields( 2):NAME,oDbDiario:Fields( 3):NAME,;
                   oDbDiario:Fields( 4):NAME,oDbDiario:Fields( 5):NAME,;
                   oDbDiario:Fields( 6):NAME,oDbDiario:Fields( 7):NAME,;
                   oDbDiario:Fields( 8):NAME,oDbDiario:Fields( 9):NAME,;
                   oDbDiario:Fields(10):NAME,oDbDiario:Fields(11):NAME,;
                   oDbDiario:Fields(14):NAME,oDbDiario:Fields(15):NAME,;
                   oDbDiario:Fields(16):NAME,oDbDiario:Fields(17):NAME,;                                                         
                   oDbDiario:Fields(18):NAME,oDbDiario:Fields(13):NAME,;
                   oDbDiario:Fields(12):NAME }
                   
       oLbx := TXBrowse():New( oWChild ) 
       oLbx:SetAdo( oDbDiario, .T.,.T.,aCampos)
    
       WITH OBJECT oLbx
            :lColDividerComplete := .t. 
            :nMarqueeStyle       := 3
            :nColDividerStyle    := 1
            :nHeaderLines        := 2
            :lFooter             := .t.
            :nStretchCol         := 1
            :bClrSelFocus  := { || { CLR_BLACK, aSelGrad } }
            :bClrRowFocus  := { || { CLR_BLACK, aRowGrad } }  
            :bClrStd       := {|| IIF(oDbDiario:AbsolutePosition % 2 == 0,{ CLR_BLACK, RGB( 224, 236, 255 ) }, { CLR_BLACK, RGB( 189, 211, 253 ) } )} 
            :CreateFromCode()  
            :Adjust() 
            :l2007 := .T.
       END
    
       for nFor := 1 to len( oLbx:aCols ) 
           oCol := oLbx:aCols[ nFor ] 
           oCol:nEditType := 0 
           oCol:blDClickData := {|| CtrDiario(ID_MOD),oLbx:Refresh() }
           If nFor == 11 .or. nFor == 13 .or. nFor == 15
              Msginfo( valtype(oCol:Value()) )---------------------------------------> esto me devuelve que el tipo es Lógico
              MsgInfo(oCol:Value()) --------------------------------------------------> esto me devuelve que el valor es falso (.f.)
              oLbx:aCols[nFor]:SetCheck ({"CHECKON","CHECKOFF"} ) -------------> tanto si lo pongo aquí como si lo pongo un poco  más abajo el error salta igual
           EndIf
       next 
    
*       oLbx:aCols[11]:SetCheck ({"CHECKON","CHECKOFF"} )
*       oLbx:aCols[13]:SetCheck ({"CHECKON","CHECKOFF"} )    
*       oLbx:aCols[15]:SetCheck ({"CHECKON","CHECKOFF"} )                    
    
       oWChild:oClient := oLbx 
    ACTIVATE WINDOW oWChild MAXIMIZED ;
             ON INIT oLbx:SetFocus();     
             VALID( oMenu:Enable(),oDbDiario:Close(),oDbDiario := "Nothing", .t. )

    SysRefresh()
    RELEASE FONT oFontPac
return( nil )