topic-23219

Posts: 1078

Joined: Thu Sep 27, 2007 03:47 PM

Pregunta de xBrowse y titulos
Posted: Wed Jan 04, 2012 09:56 PM

Saludos al forum.

Tengo esta codigo , pero no me muestra el nombre de los titulos de la columna que defini, si no el nombre de columna de la base de datos.
Tambien como coloco un recurso en la columna antes lo hacia asi pero ya no me funciona.
oBrw12:aCols[3]:AddResource("CHECK_SI")
oBrw12:aCols[3]:AddResource("CHECK_NO")
oBrw12:aCols[3]:bBmpData := { || iif(oDat55:Fields("status"):Value=1, 1, 2)}
oBrw12:aCols[3]:bStrData := { || iif(oDat551:Fields("status"):Value=1,"Si","No")}

http://imageshack.us/photo/my-images/194/dibujo1ba.jpg/
" alt="" loading="lazy">

Code (fw): Select all Collapse

Local sQry1,oDat55,xWhere,xSort,nBookMark,oBrw12,oDlgbrow,hDC
LOCAL xColuna := { "codpag","nombre","Status" } 

if xnr=1
    xWhere := " WHERE A1.`status` = 1 "
    xSort  := " ORDER BY A1.codpag ASC "
    sQry1  := "SELECT * FROM kcondici AS A1 "+xWhere+" "+xSort 
    EjeQueri(0,@oDat55,sQry1)
  DEFINE DIALOG oDlgbrow RESOURCE "BROW_LISTA" TITLE OemToAnsi("Consulta General");
            COLOR RGB(255,255,255),oApp:X_VENTDG2  //STYLE nOR(WS_MINIMIZEBOX) //Brush aBrush[ 1 ]
 
    hDC := oDlgbrow:GetDC()
    REDEFINE XBROWSE oBrw12 ; 
        COLUMNS "codpag","nombre","Status" ; 
        HEADERS "Codigo","Nombre","Status" ; 
        PICTURES nil, nil,nil; 
        COLSIZES 80,300,80 ; 
        JUSTIFY .F., .F.;
        OF oDlgbrow ID 4001 
     //RECORDSET oDat55 BACKGROUND 'PAPER' ;
     par_browse("3",oBrw12,aContl[20],0,oDat55," ")
  
     // ver BackMenu( oBrw ) 
       oBrw12:SetBackGround()  //, oBrw12:SetFocus()   // para revizar
       oBrw12:bLDblClick := { || m_va1 := oDat55:Fields("codpag"):Value,;
                oSax:SetText(oDat55:Fields("nombre"):Value+" "),;
                get_va1:Refresh(),oDlgbrow:End() }
        oBrw12:cToolTip := OemToAnsi( "Doble Click Selecciona Item " )
       Def_stylo(oBrw12,0)
       oBrw12:SetAdo( oDat55 , .T., .T., xColuna )   //oBrw12:SetAdo(oDat12)
       oBrw12:refresh()
   ACTIVATE DIALOG  oDlgBrow CENTERED VALID NoSalir() ON PAINT gradpaint2( hDC, oDlgbrow );
                    ON INIT (Init01( oDlgBrow,aContl,oBrw12,"2"," " )) //,Prueba(oDlgBrow,oBrw12))
   oDlgBrow:ReleaseDC()
   hb_gcall() //para que harbour haga una recogida de "basura". 
   oDat55:Close()
   release oDlgbrow,oBrw12

Ruben Dario Gonzalez
Cali-Colombia
rubendariogd@hotmail.com - rubendariogd@gmail.com

carlos vargas

Posts: 1789

Joined: Tue Oct 11, 2005 05:01 PM

Re: Pregunta de xBrowse y titulos
Posted: Fri Jan 06, 2012 08:51 PM

eso ocurre cuando el numero de campos no es igual al numero de encabezados, jutificados, ets, todos debe ser de igal numero

Code (fw): Select all Collapse

    REDEFINE XBROWSE oBrw12 ;
        COLUMNS "codpag","nombre","Status" ;
        HEADERS "Codigo","Nombre","Status" ;
        PICTURES nil, nil,nil;
        COLSIZES 80,300,80 ;
        JUSTIFY .F., .F.;

aca te falta un elemento en JUSTIFY (2 items) cuando son tres columnas.
prueba agregar el faltante y nos informas.

salu2

Salu2

Carlos Vargas

Desde Managua, Nicaragua (CA)

ruben Dario

Posts: 1078

Joined: Thu Sep 27, 2007 03:47 PM

Re: Pregunta de xBrowse y titulos
Posted: Fri Jan 06, 2012 10:33 PM

Gracias por su respuesta Carlos.

Hioce el cambio , pero sigue igual no toma los titulos definidos.

Ruben Dario Gonzalez
Cali-Colombia
rubendariogd@hotmail.com - rubendariogd@gmail.com

jbrita

Posts: 537

Joined: Mon Jan 16, 2006 03:42 PM

Re: Pregunta de xBrowse y titulos
Posted: Sat Jan 07, 2012 02:22 AM

Amigo yo lo hago asi

REDEFINE XBROWSE oLbx FIELDS Str(SQLField(cMa_Viaje,"ma_viaje"),3),AllTrim(SQLField(cMa_viaje,"ma_origen")),AllTrim(SQLField(cMa_viaje,"ma_destino"));
HEADERS "Cod.","Origen","Destino";
JUSTIFY .F.,.F.,.F.;
FIELDSIZES 25,210,210;
ID 102 OF oDlg ON DBLCLICK (lAceptar := .T.,,oDlg:End())

                     Setxbrowse(oLbx, cMa_Viaje) // importante para la navegacion

Saludos

FiveTech Support Forums

Continue the discussion