topic-38076

Posts: 719

Joined: Fri May 12, 2017 02:50 PM

Consulta Sobre Cabecera de XBROWSE
Posted: Wed Nov 20, 2019 09:11 PM

Amigos Muy buenas tardes.

Necesito saber si Xbrowse, permite poner titulos en 2 lineas en su Cabecera de la siguiente forma:

--- LUNES ---- | ---- MARTES -- | - MIERCOLES - | --- JUEVES ---
Inicio Termino | Inicio Termino | Inicio Termino | Inicio Termino

Inicio y Termino tendra el horario para cada día de la semana.

Seria Super si pudiera.

Muchos Saludos

Antonio.

FWH 22.10 - HARBOUR - PELLES C

cnavarro

Posts: 6755

Joined: Wed Feb 15, 2012 08:25 PM

Re: Consulta Sobre Cabecera de XBROWSE
Posted: Wed Nov 20, 2019 09:38 PM

Intenta poner en el header de la columna asi:
Por ejemplo para la columna 1

Code (fw): Select all Collapse

   oBrw:aCols[ 1 ]:cHeader  := "Titulo1" + CRLF + "Titulo2"

Si no te funciona así simplemente, ten en cuenta que tienes la data

Code (fw): Select all Collapse

   oBrw:nHeaderLines   := 2

Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo

El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces

FranciscoA

Posts: 2170

Joined: Fri Jul 18, 2008 01:24 AM

Re: Consulta Sobre Cabecera de XBROWSE
Posted: Wed Nov 20, 2019 09:47 PM

Si te refieres a los super headers, intenta asi:

Code (fw): Select all Collapse

   REDEFINE XBROWSE oBrw ID 181 OF oDlg ;
         COLUMS "1","2", etc ;
         HEADERS "Inicio","Termino","Inicio","Termino".........

:SetGroupHeader( "LUNES", 1,2)    //desde col 1 hasta la 2  (
:SetGroupHeader( "MARTES", 3,4)   //desde col 3 hasta la 4
etc..

...

Saludos

Francisco J. Alegría P.

Chinandega, Nicaragua.

Fwxh-MySql-TMySql

remtec

Posts: 719

Joined: Fri May 12, 2017 02:50 PM

Re: Consulta Sobre Cabecera de XBROWSE
Posted: Wed Nov 20, 2019 10:11 PM

Hola Cristobal y Francisco

Muchas gracias a ambos por responder, revisare como me funciona y les comento.

Muchos Saludos.
Antonio

FWH 22.10 - HARBOUR - PELLES C

remtec

Posts: 719

Joined: Fri May 12, 2017 02:50 PM

Re: Consulta Sobre Cabecera de XBROWSE
Posted: Wed Nov 20, 2019 10:12 PM

Hola Francisco

Como estas?

Te contacte a tu correo, me comentas.

Saludos
Antonio

FWH 22.10 - HARBOUR - PELLES C

FranciscoA

Posts: 2170

Joined: Fri Jul 18, 2008 01:24 AM

Re: Consulta Sobre Cabecera de XBROWSE
Posted: Thu Nov 21, 2019 03:07 PM

Hola Antonio. Es algo asi ?

Code (fw): Select all Collapse

#include "fivewin.ch"
#include "xBrowse.ch"

//--------------------------------
function main()
local  oDlg, oBrw, aMe

   aMe := Array(5)
   aMe[1] := {"Nombre",Time(),Time(),Time(),Time(),time(),time()}
   aMe[2] := {"Nombre",Time(),Time(),Time(),Time(),time(),time()}
   aMe[3] := {"Nombre",Time(),Time(),Time(),Time(),time(),time()}
   aMe[4] := {"Nombre",Time(),Time(),Time(),Time(),time(),time()}
   aMe[5] := {"Nombre",Time(),Time(),Time(),Time(),time(),time()}

  DEFINE DIALOG oDlg TITLE "Prueba" SIZE 500,200 PIXEL
  
   @ 10, 10 XBROWSE oBrw SIZE -10,-10 PIXEL OF oDlg ;
   DATASOURCE aMe ; 
   COLUMNS 1,2,3,4,5,6,7 ;
   HEADERS "Nombre", "Inicia", "Finaliza","Inicia", "Finaliza","Inicia", "Finaliza";
   CELL LINES NOBORDER 

   oBrw:CreateFromCode()

   oBrw:SetGroupHeader( "LUNES",     2,3)     //desde col 2 hasta la 3 
   oBrw:SetGroupHeader( "MARTES",    4,5)   
   oBrw:SetGroupHeader( "MIERCOLES", 6,7)

  ACTIVATE DIALOG oDlg CENTERED
return NIL

Saludos.

Francisco J. Alegría P.

Chinandega, Nicaragua.

Fwxh-MySql-TMySql

remtec

Posts: 719

Joined: Fri May 12, 2017 02:50 PM

Re: Consulta Sobre Cabecera de XBROWSE
Posted: Thu Nov 21, 2019 04:59 PM

FranciscoA wrote:Hola Antonio. Es algo asi ?

Code (fw): Select all Collapse

#include "fivewin.ch"
#include "xBrowse.ch"

//--------------------------------
function main()
local  oDlg, oBrw, aMe

   aMe := Array(5)
   aMe[1] := {"Nombre",Time(),Time(),Time(),Time(),time(),time()}
   aMe[2] := {"Nombre",Time(),Time(),Time(),Time(),time(),time()}
   aMe[3] := {"Nombre",Time(),Time(),Time(),Time(),time(),time()}
   aMe[4] := {"Nombre",Time(),Time(),Time(),Time(),time(),time()}
   aMe[5] := {"Nombre",Time(),Time(),Time(),Time(),time(),time()}

  DEFINE DIALOG oDlg TITLE "Prueba" SIZE 500,200 PIXEL
  
   @ 10, 10 XBROWSE oBrw SIZE -10,-10 PIXEL OF oDlg ;
   DATASOURCE aMe ; 
   COLUMNS 1,2,3,4,5,6,7 ;
   HEADERS "Nombre", "Inicia", "Finaliza","Inicia", "Finaliza","Inicia", "Finaliza";
   CELL LINES NOBORDER 

   oBrw:CreateFromCode()

   oBrw:SetGroupHeader( "LUNES",     2,3)     //desde col 2 hasta la 3 
   oBrw:SetGroupHeader( "MARTES",    4,5)   
   oBrw:SetGroupHeader( "MIERCOLES", 6,7)

  ACTIVATE DIALOG oDlg CENTERED
return NIL

Saludos.

Hola Francisco

Te pasaste, muchas gracias por tu ayuda, Funciona Super, ahora a aplicarlo a mi agenda. Era lo que necesitaba.

Muchos Saludos y muy agradecido.

Antonio.

FWH 22.10 - HARBOUR - PELLES C

FranciscoA

Posts: 2170

Joined: Fri Jul 18, 2008 01:24 AM

Re: Consulta Sobre Cabecera de XBROWSE
Posted: Thu Nov 21, 2019 08:11 PM

Antonio.
Me alegra te haya servido. Estamos a la orden.
Saludos.

Francisco J. Alegría P.

Chinandega, Nicaragua.

Fwxh-MySql-TMySql

FiveTech Support Forums

Continue the discussion