SET CHECK EN BROWSE CON DATA DE UN QUERY

[joseluisysturiz]

Buen dia, asi como dice, tengo un xbrowse con data de un array con set check y todo bien, pero con data de un query en el xbrowse, como uso el setcheck sin tener que crear un campo logico en la tabla mysql.? creo ese tema ya se pregunto, pero no resuelvo con lo que lei, alguna idea o sugerencia que no sea crear un campo logico en la tabla..gracias...

[cmsoft]

José Luis:
Creo que puedes mostrarlo, pero no hacerlo de edición, ya que no podrás grabar la variable si no es un campo lógico de la tabla.

Code: Select all  Expand view  RUN

#include "FiveWin.ch"
#include "xbrowse.ch"
FUNCTION Main()

   local oChild, oBrw, oCol, oTimer, oServer, oQry, cSql
   local cServer := 'localhost', cUser := 'miusuario', cPassword := 'mipassword', cDBName := 'test', nPort := "3306"
   FWCONNECT oServer HOST cServer USER cUser PASSWORD cPassword DB cDBName PORT VAL(nPort)
   DEFINE WINDOW oChild TITLE "Auto edit browse"

   oQry := oServer:Query("SELECT codigo as codigo,nombre as nombre, if(codigo > 3,true,false) as logico FROM articulos")
   @ 0,0 XBROWSE oBrw DATASOURCE oQry  ;
         COLUMNS "codigo","nombre","logico";
         HEADERS "Cod.","Descripcion Articulo","?";
         SIZES 100,250,50 OF oChild

   WITH OBJECT oBrw
      :CreateFromCode()
      :aCols[3]:SetCheck()
      :aCols[3]:bEditValue := {|| IF( oQry:logico == 1, .t., .f. )  }
   END
   oChild:oClient := oBrw  
   ACTIVATE WINDOW oChild
   
RETURN NIL
 

[joseluisysturiz]

José Luis:
Creo que puedes mostrarlo, pero no hacerlo de edición, ya que no podrás grabar la variable si no es un campo lógico de la tabla.

Code: Select all  Expand view  RUN

#include "FiveWin.ch"
#include "xbrowse.ch"
FUNCTION Main()

   local oChild, oBrw, oCol, oTimer, oServer, oQry, cSql
   local cServer := 'localhost', cUser := 'miusuario', cPassword := 'mipassword', cDBName := 'test', nPort := "3306"
   FWCONNECT oServer HOST cServer USER cUser PASSWORD cPassword DB cDBName PORT VAL(nPort)
   DEFINE WINDOW oChild TITLE "Auto edit browse"

   oQry := oServer:Query("SELECT codigo as codigo,nombre as nombre, if(codigo > 3,true,false) as logico FROM articulos")
   @ 0,0 XBROWSE oBrw DATASOURCE oQry  ;
         COLUMNS "codigo","nombre","logico";
         HEADERS "Cod.","Descripcion Articulo","?";
         SIZES 100,250,50 OF oChild

   WITH OBJECT oBrw
      :CreateFromCode()
      :aCols[3]:SetCheck()
      :aCols[3]:bEditValue := {|| IF( oQry:logico == 1, .t., .f. )  }
   END
   oChild:oClient := oBrw  
   ACTIVATE WINDOW oChild
   
RETURN NIL
 

CMSOFT, lo que necesito es algo como eso, crear el campo logico virtual pero que no sea de la tabla, pero que se pueda cambiar al hacer click para seleccionar los registros y luego realizar X operacion en los registros que contengan el check en positivo, espero explicarme bien, lo que no quiero es tenet que agregar campos logicos a la tabla, ni tampoco quiero usar array que seria una solucion, probare lo que me sugieres, gracias...

[cmsoft]

A menos que me equivoque, no te va a dejar cambiar ese valor, a menos que sea un campo real de la tabla.
Tal vez Mr. Rao que es el experto en la clase nativa de MySql y Xbrowse pueda darte una mejor opinión y un mejor ejemplo.
En todo caso, una opción alternativa es crear una tabla temporal de MySql que contenga los campos que quieres mostrar y el valor logico que quieres cambiar, y la llenas con la información de la tabla con el filtro que necesitas.
Si los datos no son extremadamente grande, tiene un funcionamiento bastante aceptable.

[joseluisysturiz]

A menos que me equivoque, no te va a dejar cambiar ese valor, a menos que sea un campo real de la tabla.
Tal vez Mr. Rao que es el experto en la clase nativa de MySql y Xbrowse pueda darte una mejor opinión y un mejor ejemplo.
En todo caso, una opción alternativa es crear una tabla temporal de MySql que contenga los campos que quieres mostrar y el valor logico que quieres cambiar, y la llenas con la información de la tabla con el filtro que necesitas.
Si los datos no son extremadamente grande, tiene un funcionamiento bastante aceptable.

Mi punto es que si se pudiese ADICIONAR una columna al xbrowse que se maneje el SETCHECHK creo seria una buena manera de lo que quiero, sin tener que usar array, ni tablas temporales, ni campos logicos en la tabla original,

Nececito toda la tabla en el xbrowse y tildar algunos campos, y luego recorrer el xbrowse y dependiendo del valor del SETCHECK realizar cierta operacion con ese registro de la tabla en otras tablas... en este caso... cambiar unos precios... gracias...

[cmsoft]

Prueba esta opcion a ver si te sirve:
Es creando una tabla en memoria con la query con los condicionales que desees

Code: Select all  Expand view  RUN

#include "FiveWin.ch"
#include "xbrowse.ch"
FUNCTION Main()

   local oChild, oBrw, oCol, oTimer, oServer, oQry, cSql
   local cServer := 'localhost', cUser := 'root', cPassword := 'miclave', cDBName := 'test', nPort := "3306"
   FWCONNECT oServer HOST cServer USER cUser PASSWORD cPassword DB cDBName PORT VAL(nPort)
   DEFINE WINDOW oChild TITLE "Auto edit browse"
   cSql:="CREATE TABLE tempor ENGINE=MEMORY "+;
         " SELECT codigo as codigo,nombre as nombre, if(codigo > 3,true,false) as logico " +;
         " FROM articu"
   oServer:Execute( cSql )
   oQry := oServer:Query("SELECT * FROM tempor")
   @ 0,0 XBROWSE oBrw DATASOURCE oQry  ;
         COLUMNS "codigo","nombre","logico";
         HEADERS "Cod.","Descripcion Articulo","?";
         SIZES 100,250,50 OF oChild FASTEDIT

   WITH OBJECT oBrw  
      :aCols[3]:SetCheck()
      :aCols[3]:bEditValue := {|| IF( oQry:logico == 1, .t., .f. )  }
      :aCols[3]:bLDClickData := {|| CambiaChek(oBrw, oQry)}
      :CreateFromCode()
   END
   oChild:oClient := oBrw  
   ACTIVATE WINDOW oChild  
RETURN NIL

STATIC FUNCTION CambiaChek(oBrw,oQry)
oQry:logico := IF(oQry:logico==1,0,1)
oQry:Save()
oQry:Refresh()
oBrw:Refresh()
RETURN nil

[joseluisysturiz]

CMSOFT, eso es lo que hacia pero con la tabla original, y es lo que no quiero seguir haciendo, tranquilo, vere que se me ocurre, el de la solucion deberia ser Mr RAO que como dices, es el mejor conocedor del xBrowse, la idea es que se pueda hacer con una query , asi como se hace con un array, gracias...

[nageswaragunupudi]

Use

Code: Select all  Expand view  RUN

oBrw:SetMultiSelCol()

This does all the work for you

Please see fwh\samples\xbmulsel.prg

[cmsoft]

Estimado Mr. Rao:
Excelente, muchas gracias!
Esto lo tengo que capturar con oBrw:aSelected o hay alguna manera de obtener el conjunto de datos de la query original que han sido seleccionados?

[nageswaragunupudi]

Code: Select all  Expand view  RUN

oBrw:aSelected

List of Record Numbers / BookMarks selected.
But we need to save this information before the browse is closed.