Hola buenas tardes a todos los programadores, esperando que se encuentren bien, les envio cordial saludos.
Ya me estoy iniciando con la maravillosa clase TXBrowse y estoy haciendo ejemplos y veo que me va de maravilla aunque dificil de entenderle a la clase y ejemplos, que me muestra los encabezados y datos, ahora bien, hay alguna otra forma mas facil, de crear Headers,datos, etc etc , en forma de arreglos, en lugar de estar creando columna por columna con esa instruccion :
oCol:AddCol()
Asi de esta forma que quiero hacer como arreglos, pero me marca error, o desde donde puedo llamar esa instruccion como arrayas de datos.
Espero haberme explicado, y su ayuda de todos ustedes, con sus experiencias de TXBrowse.
Saludos y buen dia.
Atte: Adrian C. C.
Gracias Jose Luis, ya vi el ejemplo, pero...me trae todos los campos fields, y solo quiero los que yo quiero mostrar,pero en fin aun sigo investigando.
Otra pregunta, se puede hacer desde recursos o no es muy necesario, eso si no vi algun recurso de los samples,o no le lei bien, pero ahi voy, ahora como seria crear dos browses.
1.- Mostrando por ejemplo en primer browse los encabezados de cada Num de poliza .
2.- y segundo browse, mostrando los detalles, llamando desde Num de poliza filtrado con OrdScope(), todo en un solo dialogo, se puede , c贸mo!
Por el momento, solo muestro el primer browse, y quiero mostrar segundo browse
Gracias y buen dia.
Ya me estoy iniciando con la maravillosa clase TXBrowse y estoy haciendo ejemplos y veo que me va de maravilla aunque dificil de entenderle a la clase y ejemplos, que me muestra los encabezados y datos, ahora bien, hay alguna otra forma mas facil, de crear Headers,datos, etc etc , en forma de arreglos, en lugar de estar creando columna por columna con esa instruccion :
oCol:AddCol()
[code]#Include "FiveWin.ch"
#Include "xBrowse.ch"
function main()
local oWnd, oCol
USE CUENTAS
INDEX ON CUENTAS TAG CUENTAS
SET INDEX TO CUENTAS
DEFINE WINDOW oWnd
聽 聽oBrw := TxBrowse():New( oWnd )
聽 聽oBrw:nColDividerStyle := LINESTYLE_BLACK
聽 聽oBrw:nRowDividerStyle := LINESTYLE_BLACK
聽 聽oBrw:nMarqueeStyle 聽 聽:= MARQSTYLE_HIGHLCELL
聽 聽oCol:=oBrw:AddCol() 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 [b]Desde aqui a pasar como arreglo [/b]
聽 聽oCol:cHeader 聽:= 'Cuentas'
聽 聽oCol:bStrData := { || Prueba( (S08)->CUENTAS ) }
聽 聽oCol:=oBrw:AddCol()
聽 聽oCol:cHeader 聽:= 'Nivel'
聽 聽oCol:bStrData := { || STR( (S08)->NIVSUM )}
聽 聽oCol:=oBrw:AddCol()
聽 聽oCol:cHeader 聽:= 'Descripci贸n'
聽 聽oCol:bStrData := { || Prueba2( (S08)->CUENTAS ) }
聽 聽oCol:bClrHeader:= Colorea()
聽 聽oBrw:CreateFromCode()
聽 聽oWnd:oClient:=oBrw
ACTIVATE DIALOG oWnd[/code]Asi de esta forma que quiero hacer como arreglos, pero me marca error, o desde donde puedo llamar esa instruccion como arrayas de datos.
[code]#Include "FiveWin.ch"
聽 聽oBrw := TxBrowse():New( oWnd )
聽 聽oBrw:nColDividerStyle := LINESTYLE_BLACK
聽 聽oBrw:nRowDividerStyle := LINESTYLE_BLACK
聽 聽oBrw:nMarqueeStyle 聽 聽:= MARQSTYLE_HIGHLCELL
聽 聽oBrw:=oBrw:AddCol()
聽 聽oCol:aCols[1]:cHeader 聽:= 'Cuentas'
聽 聽oCol:bStrData := { || Prueba( (S08)->CUENTAS ) }
聽 聽oCol:aCols[2]:cHeader 聽:= 'Nivel'
聽 聽oCol:aCols[2]:bStrData := { || STR( (S08)->NIVSUM )}
聽 聽oCol:aCols[3]:cHeader 聽:= 'Descripci贸n'
聽 聽oCol:aCols[3]:bStrData := { || Prueba2( (S08)->CUENTAS ) }
聽 聽oCol:aCols[3]:bClrHeader:= Colorea()
聽 聽oBrw:CreateFromCode()
聽 聽oWnd:oClient:=oBrw
ACTIVATE DIALOG oWnd[/code]Espero haberme explicado, y su ayuda de todos ustedes, con sus experiencias de TXBrowse.
Saludos y buen dia.
Atte: Adrian C. C.
Gracias Jose Luis, ya vi el ejemplo, pero...me trae todos los campos fields, y solo quiero los que yo quiero mostrar,pero en fin aun sigo investigando.
Otra pregunta, se puede hacer desde recursos o no es muy necesario, eso si no vi algun recurso de los samples,o no le lei bien, pero ahi voy, ahora como seria crear dos browses.
1.- Mostrando por ejemplo en primer browse los encabezados de cada Num de poliza .
2.- y segundo browse, mostrando los detalles, llamando desde Num de poliza filtrado con OrdScope(), todo en un solo dialogo, se puede , c贸mo!
Por el momento, solo muestro el primer browse, y quiero mostrar segundo browse
Gracias y buen dia.
