setcheck en xbrowse 1

[surGom]

Y en este caso como hago para que en el setcheck pueda usarlo cuando toda la fila no sea editable

Code: Select all  Expand view

   xbrNumFormat( "E", .T. )

   DEFINE FONT oFont NAME "TAHOMA" SIZE 0,-12
   DEFINE DIALOG oDlg SIZE GetSysMetrics(0) * 0.9,600 PIXEL FONT oFont ;
      TITLE "REVISION DE DATOS DJAI "

   @ 30,10 XBROWSE oBrw SIZE -10,-10 PIXEL OF oDlg DATASOURCE uData ;
      AUTOCOLS AUTOSORT FOOTERS CELL LINES NOBORDER





   WITH OBJECT oBrw
      :bEdit         := { |oRec| CustEditDlg( oRec ) }
      :nEditTypes    := EDIT_GET
      :vista:setcheck()
      :CreateFromCode()
   END



   oBrw:bClrStd := {||  { CLR_BLACK,( IIF((uData)->vista,RGB(230,230,230),RGB(255,255,255 ))) } }


   @ 10, 10 BUTTON "Editar"   SIZE 40,12 PIXEL OF oDlg ACTION oBrw:Edit()
   @ 10, 60 BUTTON "AGregar" SIZE 40,12 PIXEL OF oDlg ACTION oBrw:Edit( .t. )
   @ 10,110 BUTTON "TXT" SIZE 40,12 PIXEL OF oDlg ACTION generotxt()

   ACTIVATE DIALOG oDlg CENTERED
   RELEASE FONT oFont

return nil


 

Gracias nuevamente