setcheck en xbrowse

[surGom]

Hola compañeros la consulta es como hago para que setcheck() funcione correctamente en un caso como el siguiente, dónde el campo vista es lógico

Code: Select all  Expand view

   REDEFINE XBROWSE oBrw ID 110 OF oDlg OBJECT oAfip;
      COLUMNS { 1, 2, 3, 4, 5, 6, 7, 8, 9,10 };
      HEADERS "","Proveedor", "Pedido","Referencia", "Fecha djai", "Djai", "Alta Djai","Fecha Despacho", "Despacho", "Importe";
      COLSIZES 20,130,90, 65, 75, 90, 75,75, 90,90;
      LINES CELL AUTOSORT FASTEDIT UPDATE



  // oBrw:vista:SetCheck()

   WITH OBJECT oBrw
      :lDisplayZeros := .F.
      :nMarqueeStyle := MARQSTYLE_HIGHLROWRC
      :nStretchCol := STRETCHCOL_WIDEST
      :bClrSel := {|| { nRGB(  0,  0,255 ),aGradBarSel } }
      :bClrSelFocus  := {|| { CLR_BLACK, aSelGrad } }
      :lColDividerComplete := .F.
      :lAllowColHiding := .F.
 
     END WITH



   WITH OBJECT oBrw:aCols[ 1 ]
         :bEditValue := {|| oAfip:vista }
         :vista:SetCheck()

   END WITH


  WITH OBJECT oBrw:aCols[ 2 ]
      :bEditValue := {|| oAfip:proveedor }
      :nEditType := EDIT_GET
     // :nDataStrAlign := AL_RIGHT
   END WITH

 

me muestra el checbox pero no hace nada cuando clikeo sobre él

Gracias

[joseluisysturiz]

SurGom, a mi me funciona como lo haces pero dandole doble click sobre la celda del SetCheck, esten o no las demas celdas editables, saludos...

[cmsoft]

Prueba con:

Code: Select all  Expand view

 WITH OBJECT oBrw:aCols[ 1 ]
         :bEditValue := {|| oAfip:vista }
         :nEditType := 1
         :SetCheck()