Algo raro en mi xbrowse?? me ayudan

Algo raro en mi xbrowse?? me ayudan

Postby AIDA » Tue Nov 04, 2008 11:03 pm

HOLA :(

algo rarito me pasa con el xbrowse tengo un campo donde pongo el nombre completo de las personas registradas pero sale todo pegado a la derecha cuando se supone estaria a la isquierda, no encuentro que sea lo que pasa o en que estoy mal :?: :?:

les dejo el mini codigo pofis me ayudan :?

Code: Select all  Expand view

dbselectarea( "autos" )
    dbgotop()
    autospoliza:=lastrec()
    sum AUTOS->pagado to  autosvalor
    dbgotop()
    oGetN :=space(60)


       @ 00,00 XBROWSE oBrwX OF oFld:aDialogs[1] FIELDS ALLTRIM(AUTOS->NOMBRE) +" "+ ALLTRIM(AUTOS->APELLIDO_P) +" "+ ALLTRIM(AUTOS->APELLIDO_M),;
                                       AUTOS->R_POLIZA  ,;
                                       AUTOS->POLIZA   ,;
                                       AUTOS->pagado  ,;
                                       AUTOS->comp;
                                       COLSIZES 450 , 100 , 100 , 100,400  SIZE 1032,310;
                                       JUSTIFY AL_LEFT,AL_CENTER,AL_CENTER,AL_RIGHT,AL_CENTER;
                                    PICTURES "@!","@!","@!", "999,999,999","@!";
                                    HEADERS  "        Nombre               ", "    Poliza Autos   ", "      Inciso      ","Pagado ", "Compañia";
                                    ON CLICK (Sndplaysound("beep1.wav"),getNOM:=ALLTRIM(AUTOS->NOMBRE) +" "+ ALLTRIM(AUTOS->APELLIDO_P) +" "+ ALLTRIM(AUTOS->APELLIDO_M),oGetN:Refresh(),;
      getT:=AUTOS->TEL1,oGetT:Refresh(),getT2:=AUTOS->TEL2,oGetT2:Refresh(),getDirec:=ALLTRIM(AUTOS->DIRECCION) +" Col. " + ALLTRIM(AUTOS->COLONIA),;
        oGetDirec:Refresh(),getCiu:=AUTOS->poblacion,oGetCiu:Refresh(),MEMITO:=AUTOS->comentario,mComments:Refresh(),getPol:=AUTOS->R_Poliza,;
       oGetPol:Refresh(),getInc:=AUTOS->poliza,oGetInc:Refresh(),ramo:="AUTOS",oRamos:Refresh(),rFicha:=AUTOS->ficha,oFicha:Refresh())
Last edited by AIDA on Wed Nov 05, 2008 4:43 am, edited 1 time in total.
Que es mejor que programar? creo que nada :)
Atropellada pero aqui ando :P

I love Fivewin

séʌǝɹ ןɐ ɐʇsǝ opunɯ ǝʇsǝ
User avatar
AIDA
 
Posts: 877
Joined: Fri Jan 12, 2007 8:35 pm

Postby Daniel Garcia-Gil » Wed Nov 05, 2008 12:16 am

creo que es un minimo problema que tiene la clase, puedes hacerlo asi...

JUSTIFY NIL,AL_CENTER,AL_CENTER,AL_RIGHT,AL_CENTER

o asi

oBrwX:aCols[ 1 ]:nDataStrAlign:= AL_LEFT

o correjir el problemita, que pienso yo, tiene la clase...

en el metodo aJustify cambiar la linea
j := Min( 3, Max( 1, j ) )
por esta
j := Min( 3, Max( 0, j ) )

solo cambiar un "1" por un "0"
User avatar
Daniel Garcia-Gil
 
Posts: 2365
Joined: Wed Nov 02, 2005 11:46 pm
Location: Isla de Margarita

GRACIAS

Postby AIDA » Wed Nov 05, 2008 1:12 am

Gracias :D

si funciono :D con " oBrwX:aCols[ 1 ]:nDataStrAlign:= AL_LEFT "

que lindo te agradesco mucho :)

Saludos y un kiko :wink:


Aida
Que es mejor que programar? creo que nada :)
Atropellada pero aqui ando :P

I love Fivewin

séʌǝɹ ןɐ ɐʇsǝ opunɯ ǝʇsǝ
User avatar
AIDA
 
Posts: 877
Joined: Fri Jan 12, 2007 8:35 pm


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 68 guests