FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Ordenar con nDataStrAlign en un XBROWSE
Posts: 537
Joined: Mon Jan 16, 2006 03:42 PM
Ordenar con nDataStrAlign en un XBROWSE
Posted: Thu Jul 21, 2016 01:06 AM

Hola Amigos estoy tratando de ajustar cierta informacion a la izquierda y otra a la derecha pero de la misma columna

oBrw1:aCols[1]:nDataStrAlign:= {|| IF( SubStr(aTrabajo[oBrw1:nArrayAt,1],1,5)=="TOTAL",1,3) }

pero no resulta:
ejemplo:
DESCRIPCION CANTIDAD PRECIO TOTAL
AAAAA-1 10 100 1.000
AAAAA-2 10 100 1.000
TOTAL 2.000

BBB-1 10 200 2.000
BBB-2 15 200 3.000
TOTAL 5.000

si se dan cuenta la columa descripcion la ordeno de iquierda y tambien derecha, eso ando buscando

Posts: 537
Joined: Mon Jan 16, 2006 03:42 PM
Re: Ordenar con nDataStrAlign en un XBROWSE
Posted: Thu Jul 21, 2016 02:10 AM

antonio, se podra hacer esto

saludos

Posts: 537
Joined: Mon Jan 16, 2006 03:42 PM
Re: Ordenar con nDataStrAlign en un XBROWSE
Posted: Sat Jul 23, 2016 04:33 PM

amigos no hay nadien en el foro que alguna vez ordeno una informacion de la misma columna a la derecha o izquierda segun condicion:

oBrw1:aCols[1]:nDataStrAlign:= {|| IF( SubStr(aTrabajo[oBrw1:nArrayAt,1],1,5)=="TOTAL",1,2) }

esto no me funciona

saludos

Posts: 2064
Joined: Fri Jan 06, 2006 09:28 PM
Re: Ordenar con nDataStrAlign en un XBROWSE
Posted: Sun Jul 24, 2016 12:31 AM
jbrita wrote:amigos no hay nadien en el foro que alguna vez ordeno una informacion de la misma columna a la derecha o izquierda segun condicion:

oBrw1:aCols[1]:nDataStrAlign:= {|| IF( SubStr(aTrabajo[oBrw1:nArrayAt,1],1,5)=="TOTAL",1,2) }

esto no me funciona

saludos


Solo por si acaso prueba que ell contenido del array este en mayuscula como con lo que comparas TOTAL, pruebalo asi haber, saludos...

oBrw1:aCols[1]:nDataStrAlign:= {|| IF( SubStr( UPPER( aTrabajo[oBrw1:nArrayAt,1],1,5) )=="TOTAL",1,2) }
Dios no está muerto...



Gracias a mi Dios ante todo!
Posts: 537
Joined: Mon Jan 16, 2006 03:42 PM
Re: Ordenar con nDataStrAlign en un XBROWSE
Posted: Sun Jul 24, 2016 04:32 PM

no tampoco, tengo todo bien pero no se porque no funciona
for n := 1 to Len( oBrw1:aCols )
oCol := oBrw1:aCols[ n ]
if n == 1
If Len(aTrabajo)#0
IF SubStr(aTrabajo[oBrw1:nArrayAt,1],1,5)=="TOTAL"
oBrw1:nDataStrAlign := 1
ELSE
oBrw1:nDataStrAlign := 3
endif
Endif
next

TAMPOCO FUNCION ASI

saludos

Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: Ordenar con nDataStrAlign en un XBROWSE
Posted: Sun Jul 24, 2016 05:17 PM
Intenta utilizar esto, a ver si te funciona
( Sería bueno saber la versión de Fw que utilizas )
Code (fw): Select all Collapse
   oCol:bIndent      := { || IF( SubStr(aTrabajo[oBrw1:nArrayAt,1],1,5)=="TOTAL", 20, 0 }
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

Continue the discussion