xBrowse con campos vacios

[surGom]

Se puede hacer que un xbrowse aparezca vacio y luego de seleccionar un dato cargarlo con lo que necesito de él. Para ser mas claro les doy un ejemplo, selecciono un cliente y muestro de este cliente la cuenta corriente en el xbrowse. Lo estoy tratando de hacer con la clase tymsql de Williams.

Hasta ahora lo estaba haciendo con wbrowse y era buscar en la tabla todos los registros de este cliente y cargarlos en un array y luego mostrar el array

Code: Select all  Expand view

oQry :=oMysql:Query( "SELECT * FROM ctacte where ncli  = " + alltrim(str(oQry1:ncli) ))
oQry:gotop()
do
    nImporte :=   0
    if oQry:tipo = "1"
          ltipo := .t.
      nSaldo += oQry:importe
    else
          ltipo := .f.  
      nSaldo -= oQry:importe      
    endif
   
    aadd(oCta:adet,{oQry:fecha, (oQry:descripcion + iif(empty(oQry:pventa), "   ",(oQry:pventa))+  "-" +  oQry:numero),lTipo, oQry:importe, nsaldo, oQry:pventa, oQry:numero})
    oQry:skip()

until oQry:eof()
oBrw:setarray(oCta:adet)
oBrw:refresh()


 

La versión de fwh que utilizo es la 7.12, supongo que debe haber una forma de mostrarlo

Desde ya gracias

[joseluisysturiz]

Puedes hacer lo mismo con xBrowse, define el xBrowse con un array en blanco, carga los datos en el array y luego referscas el xbrowse y se cargaran los datos... nose si es lo que quieres...saludos...

[surGom]

Gracias José Luis, pero quizás no me explique bien lo que quisiera hacer es mostrar el xbrowse vacio y cargar el resultado del query de la base de datos directamente, es decir sin tener que cargar un array.
Podría hacerlo haciendo un dialogo previo en el que seleccione el cliente y luego que me muestre en otro diálogo el resultado del query pero no me gustaría hacerlo de esa forma.

[joseluisysturiz]

Gracias José Luis, pero quizás no me explique bien lo que quisiera hacer es mostrar el xbrowse vacio y cargar el resultado del query de la base de datos directamente, es decir sin tener que cargar un array.
Podría hacerlo haciendo un dialogo previo en el que seleccione el cliente y luego que me muestre en otro diálogo el resultado del query pero no me gustaría hacerlo de esa forma.

Nose si entendi bien, pero creo que si haces una tabla temporal vacia, luego la puedes alimentar con los datos del array de los valores que solicites, igual debes contruir 1 query con los datos que estas filtrando, te decia lo del array por si no es importante mantener los datos y que se actualize cada ves que quieras con los nuevos datos de tu query, sino manejas directamente el query en tu browse vacio, saludos...

[MarioG]

Jose Luis
He mirado uno de mis fuentes porque yo muestro un xbrowse vacio, peeeero, es cuando las tablas, cuyas columnas muestro, aun no tienen dato. O sea cuando se inicia el uso de la Aplicación.
No obstante se me ocurre que lo que podrías hacer, siempre con la idea de mostrar directamente el query recolectado, es que hagas un oBrw:Hide() y luego al momento de la consulta un :Show()
Si sirve... en buena hora

Saludos

[joseluisysturiz]

Saludos Mario, el del problema con los xBrowse es el colega SURGOM, yo mis xbrowse si los deseo mstrar sin data y los manejo con query, lo hago bajo un condicional en oBrw:aCols[3]:bStrData, tambien puedo ocultar las columnas y luego mostrarlas dependiendo de la condicion que quiera aplicar, y si uso Array es mucho mas facil, ya que inicio el array en blanco y luego agrego los datos y actualizo el xbrowse con el array con data, saludos...

[MarioG]

disculpas... esperemos que lea los post

[carlos vargas]

para estos caso creo que podria se util las funciones de creacion de tablas en memoria o tablas temporales, que se crean y se usan y al cerrar el area son destruidas.

este caso crea una tabla temporal

Code: Select all  Expand view

   /*creacion de tabla temporal par la creacion de la tarjeta de cobro*/
   aEstructura := { { "FECHA", "D", 08, 00},{ "CFECHA", "C", 15, 00 },{ "MARCA", "C", 30, 00 } }
   IF !HB_DBCreateTemp( "FICHA1", aEstructura , "DBFCDX" )
      MsgAlert( "Fallo en la creación de tabla temporal para la creación de tarjeta de cobro/cliente." )
      MOVP->( DBCloseArea() )
      RETURN
   ENDIF
   FICHA->(dbclosearea())
 

hay otro codigo donde se crea la tabla en memoria, y al cerrarla esta memoria es liberada.
no recuerdo el codigo, pero en los test de xahrbour y harbour aparece,

salu2