Para Manuel Mercado
Posted: Tue May 18, 2010 10:52 pm
Hola Manuel
Tengo un problema con TSBrowse:
Resulta que estoy intentando hacer un browse con titulos de columnas en vertical y no funciona...
Aqui el codigo
REDEFINE BROWSE oBrw9 ID 104 OF oFld:aDialogs[3] UPDATE ALIAS "RDIARIO"
ADD COLUMN TO oBrw9 DATA oBrw9:nAT HEADER "No" ALIGN 1,1,1 SIZE 25 NOHILITE
ADD COLUMN TO oBrw9 DATA {||RDIARIO->C1A+CRLF+RDIARIO>C1B+CRLF+RDIARIO>C1C} "AAA"+CRLF+"BBB"+CRLF+"CCC" ALIGN 0,1,1 SIZE 100
ADD COLUMN TO oBrw9 DATA FieldWBlock('C2',SELECT()) HEADER "TIPO DE PACIENTE" ALIGN 0,0,0
oBrw9:SetAlign( 3, 2, 3 ) // Cambio la orientacion del titulo de la columna 3 a vertical
oBrw9:nHeightCell += 25
oBrw9:nHeightHead += 14
oBrw9:oBrush := oBrushX
Utilizo FWH + TSBROWSE 8
gRACIAS
Tengo un problema con TSBrowse:
Resulta que estoy intentando hacer un browse con titulos de columnas en vertical y no funciona...
Aqui el codigo
REDEFINE BROWSE oBrw9 ID 104 OF oFld:aDialogs[3] UPDATE ALIAS "RDIARIO"
ADD COLUMN TO oBrw9 DATA oBrw9:nAT HEADER "No" ALIGN 1,1,1 SIZE 25 NOHILITE
ADD COLUMN TO oBrw9 DATA {||RDIARIO->C1A+CRLF+RDIARIO>C1B+CRLF+RDIARIO>C1C} "AAA"+CRLF+"BBB"+CRLF+"CCC" ALIGN 0,1,1 SIZE 100
ADD COLUMN TO oBrw9 DATA FieldWBlock('C2',SELECT()) HEADER "TIPO DE PACIENTE" ALIGN 0,0,0
oBrw9:SetAlign( 3, 2, 3 ) // Cambio la orientacion del titulo de la columna 3 a vertical
oBrw9:nHeightCell += 25
oBrw9:nHeightHead += 14
oBrw9:oBrush := oBrushX
Utilizo FWH + TSBROWSE 8
gRACIAS