topic-33020

Posts: 652

Joined: Wed Oct 19, 2005 12:03 PM

setcheck en xbrowse
Posted: Sun Oct 02, 2016 02:36 PM

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 (fw): Select all Collapse

   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: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

Posts: 2064

Joined: Fri Jan 06, 2006 09:28 PM

Re: setcheck en xbrowse
Posted: Sun Oct 02, 2016 04:05 PM

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... :shock:

Dios no está muerto...

Gracias a mi Dios ante todo!

cmsoft

Posts: 1344

Joined: Wed Nov 16, 2005 09:14 PM

Re: setcheck en xbrowse
Posted: Mon Oct 03, 2016 05:18 AM

Prueba con:

Code (fw): Select all Collapse

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

Salu2
Cesar Gomez
https://www.bcnsoft.com.ar
https://www.pedidosbcn.com

FiveTech Support Forums

Continue the discussion