Hola amigos:
Deseo justificar un importe en un xbrowse seg煤n sea o no mayor a 0.
De esta forma los valores menores a 0 los quiero a la izquierda y los mayores a la derecha de una misma columna.
Intente con Transform(), IIF( dato<0, Transform(dato,"99,999.99"), Transform( dato,"999,999,9999,999,999.99") )
Una trampita que funciona a medias porque los numeros negativos o positivos no se alinean entre si.
Alguna idea sera bien recibida, muchas gracias.
Ruben Fernandez.
Rub茅n,
prueba en lugar del transform pones como bColData IF( dato<0, Str( dato, '9,999,999.99' )+Space( 15 ), +Space( 15 )+Str( dato, '9,999,999.99' ) ) y justificas la columna a la derecha, me parece que con eso quedan alineados.
Un saludo
El truco esta en el nDataStrAlign, algo como esto,
:nDataStrAlign := IF(LEN(aItems) >0, IF( aItems[oBrw:nArrayAt, 7] < 0, AL_LEFT, AL_RIGHT ), oBrw:Refresh() )
creo deberias hacerlo cuando defines la columna, aca te dejo un link donce creo hacen lo que quieres, saludos... 
viewtopic.php?f=6t=18663p=97788hilit=ndatastralign#p97788
&&&
ruben prueba esto:
obrw:acols[3]:nDataStrAlign := if( VAL(EVAL(oBrw:aCols[3]:bStrData)) > 0, AL_RIGHT, AL_LEFT )
salu2
paco
me falto esta line ruben,,
oBrw:AddCol()
obrw:acols[3]:bStrData := { || TRANSFORM("tuimporte",'999,999.999') }
saludos
paco
Hola amigos:
Gracias Carlos, Gracias Jose Luis, Gracias Paco.
No lo he logrado, pero seguir茅 viendo por donde lo saco.( Intente con todas las opciones), algo debo estar haciendo mal,
pero va a salir.
Muchas gracias
Saludos Ruben Fernandez.
Ruben y porque no juegas con los colores ? sugerencia algo asi
oBrw:aCols[5]:bClrStd := { || if( "tuimporte" > 0 , { CLR_BLACK, CLR_WHITE }, { CLR_RED, CLR_WHITE } ) }
saludos
paco
Gracias Paco por la sugerencia, lo implementar茅 de esa forma ya que no veo otra soluci贸n.
Saludos
Muchas gracias.
Ruben Fernandez
Gracias Paco por la sugerencia, lo implementar茅 de esa forma ya que no veo otra soluci贸n.
Saludos
Muchas gracias.
Ruben Fernandez
@ 1, 1 LISTBOX oLbx FIELDS CFACTURA->MFOLIO,;
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 DTOC(CFACTURA->MFECHA),;
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 CFACTURA->MNOMBRE,;
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 alinea(CFACTURA->MIMPORTE,40000,12),;
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 CHOLO(CFACTURA->MSTATUS);
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 FIELDSIZES 40,80,370,190,80;
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 HEADERS 聽 聽"Folio", "fecha","Nombre","Importe","Estatus";
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 ON LEFT DBLCLICK (mrec:=recno(),M1016(ODLG,"F", CFACTURA->MFOLIO),Tvamos(mrec));
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 ON CHANGE ( ASAMPLE:=HOLALA(ODLG,ASAMPLE,"F",CFACTURA->MFOLIO),oBrw:aArrayData := asample, obrw:refresh() );
聽 聽 聽 聽 聽 COLOR "B+/G+,R,B,B,B+" 聽SIZE 420, 150 font oletras OF oDlgFunction alinea(ximporte,xnum,mtama)
local dev:="", mlen:=0, mlen2
聽 ximporte:=alltrim(str(ximporte,14,2))
聽 ximporte:=space(mtama-len(ximporte))+ximporte
聽 if val(ximporte)<xnum
聽 聽 聽 dev:=ximporte 聽 聽 聽// esto lo acomoda a la izquierda automaticamente al quitarle todo los espacios
聽 else
聽 聽 聽 dev:=space(mtama)+ximporte 聽 // aqui agregarle los espacios que desese de separacion
聽 endif
return dev
Hola benjiben143: Result贸 tu formula, quedo muy bien.Gracias.
El Font que me funcion贸 fue "Courier new", con este al铆nea correctamente.
Muchas gracias.
Saludos
Ruben Fernandez.
nadien a podido hacer esto
saludos
