SETCHECK POR RANGO DESDE - HASTA - MR RAO

SETCHECK POR RANGO DESDE - HASTA - MR RAO

Postby joseluisysturiz » Thu Jan 12, 2017 5:36 pm

Saludos, mi consulta es la siguiente, asi como se puede hacer seleccion consecutiva o seleccionada de registros en el xBroowse, hay alguna forma de hacer seleccion con SetCheck directamente en el xBrowse marcando el registro inicio y con la tecla MAYUSCULA seleccionar el registro final y se marquen o desmarqen los CHECK de dicha columna creada.?

Se que con un boton externo se puede hacer activando el Select en el xBrowse, pero veo mas factible y comodo como lo sugiero, esto lo veo my en los correos cuando uno va a eliminar correos masivamente para no tener que marcar uno por uno y creo que para borrar registros ayudaria y asi no tener que marcar o borrar uno por uno, creo seria una buena opcion en el xBrowse (Mr. RAO).

No se si ya esto exista o alguien se haya adelantado a la idea, pero he buscado en el foro y no consigo nada parecido. Las sugerencias e ideas son bienvenidas. Mi idea principal es borrado masivo de registros y en otro modulo que si marco o desmarco Check esto me haga un MAKETOTALS pero solo de las celdas con seleccionadas y actualice una VAR que controla una sumatoria, espero haberme explicado bien, saludos..gracias... :shock:
Last edited by joseluisysturiz on Fri Mar 10, 2017 7:01 pm, edited 1 time in total.
Dios no está muerto...

Gracias a mi Dios ante todo!
User avatar
joseluisysturiz
 
Posts: 2064
Joined: Fri Jan 06, 2006 9:28 pm
Location: Guatire - Caracas - Venezuela

Re: SETCHECK POR RANGO DESDE - HASTA

Postby joseluisysturiz » Fri Mar 10, 2017 7:00 pm

Saludos, retomando este tema..haber si alguien o Mr. RAO tiene alguna solucion o sugerencia, saludos, gracias... :shock:
Dios no está muerto...

Gracias a mi Dios ante todo!
User avatar
joseluisysturiz
 
Posts: 2064
Joined: Fri Jan 06, 2006 9:28 pm
Location: Guatire - Caracas - Venezuela

Re: SETCHECK POR RANGO DESDE - HASTA - MR RAO

Postby nageswaragunupudi » Thu Apr 06, 2017 9:39 am

Please try this sample.
If this is what you want, you can adopt this logic to your requirements.
Code: Select all  Expand view
#include "fivewin.ch"

function Main()

   local oDlg, oFont, oBrw, oCol

   USE CUSTOMER

   DEFINE FONT oFont NAME "TAHOMA" SIZE 0,-15
   DEFINE DIALOG oDlg SIZE 600,500 PIXEL TRUEPIXEL FONT oFont

   @ 20,20 XBROWSE oBrw SIZE -20,-20 PIXEL OF oDlg ;
      DATASOURCE "CUSTOMER" ;
      COLUMNS "FIRST", "SALARY" ;
      LINES NOBORDER FASTEDIT FOOTERS

   WITH OBJECT oBrw:InsCol( 1 )
      :bEditValue    := { || AScan( oBrw:aSelected, oBrw:BookMark ) > 0 }
      :SetCheck()
      :nHeadBmpNo    := 2
   END

   WITH OBJECT oBrw
      :nMarqueeStyle    := MARQSTYLE_HIGHLROWMS
      :Salary:bFooter    := { | oCol | SelectedSum( oCol ) }
      :bOnMultiSelect   := { || oBrw:RefreshFooters() }
      :CreateFromCode()
   END

   ACTIVATE DIALOG oDlg CENTERED
   RELEASE FONT oFont

return nil

static function SelectedSum( oCol )

   local oBrw  := oCol:oBrw
   local nSum  := 0
   local uBm   := oBrw:BookMark
   local n

   for n := 1 to Len( oBrw:aSelected )
      oBrw:BookMark  := oBrw:aSelected[ n ]
      nSum           += oCol:Value
   next
   oBrw:BookMark  := uBm

return nSum
 
Regards

G. N. Rao.
Hyderabad, India
User avatar
nageswaragunupudi
 
Posts: 10242
Joined: Sun Nov 19, 2006 5:22 am
Location: India

Re: SETCHECK POR RANGO DESDE - HASTA - MR RAO

Postby joseluisysturiz » Thu Apr 06, 2017 2:31 pm

Buen dia, MR.NAO...simplemente..EXCELENT..! funciona todo como lo queria, muchisimas.....GRACIAS... :shock:
Dios no está muerto...

Gracias a mi Dios ante todo!
User avatar
joseluisysturiz
 
Posts: 2064
Joined: Fri Jan 06, 2006 9:28 pm
Location: Guatire - Caracas - Venezuela


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot], Willi Quintana and 11 guests