topic-17087

Board index FiveWin para Harbour/xHarbour Número de registro en xbrowse

Posts: 234

Joined: Tue Sep 01, 2009 07:55 AM

Número de registro en xbrowse
Posted: Tue Oct 20, 2009 08:22 AM

Por mas vueltas que le doy y ejemplos que miro, soy incapaz de hacer que este xbrowse me muestre en una columna el número del registro, si alguien fuera tan amable de indicarme el camino...
Muchas gracias y un saludo

Code (fw): Select all Collapse

   redefine XBROWSE oBrw id 1007 OF ownd1 ;
   COLUMNS "REG_SISAAD","DNI","APELLIDO","NOMBRE","REG_COMUNI",;
    "ANO_EXPEDI","DIRECCION","LOCALIDAD","COD_POSTAL",;
        "TELEFONO","DICTAMEN","FEC_VALORA","TEC_VALORA","FEC_IN_SOC",;
    "TEC_TRSOCI","FEC_FIR_PI","TEC_PIA",;
        "TEC_EST_EC","TEC_VAL_EC","GRADO_VALO","NIVEL_VALO","SELECTOR";
     HEADERS "SISAAD","NIF","Apellidos","Nombre","Nª Comun.","Año","Dirección","Localidad","C. Postal",;
        "Teléfono","Dictamen","Valoración","Valorador","I. Social","T. Social","PIA","Tec. Pia",;
        "Est. econ.","Tec. Estudio","Grado","Nivel","Selector";
   COLSIZES 150,90,200,100,150,;
        50,200,150,60,;
        90,300,60,150,60,;
        150,60,150,;
        60,150,30,30,110;
   on DBLCLICK (empleado(sisaad->(recno())), obrw:refresh(),obrw:setfocus());
   font ofont ;
   AUTOSORT alias "sisaad" FOOTERS LINES CELL ;
   BACKGROUND aGrad VERTICAL

Pedro

Posts: 464

Joined: Tue Mar 21, 2006 07:30 PM

Re: Número de registro en xbrowse
Posted: Tue Oct 20, 2009 02:16 PM

Debo suponer que el número del registro que quieres es reg_sisaad y es tipo numérico, tan sólo ponlo como carácter, Str(reg_sisaad). A mi me ha pasado con igual con los campos numéricos.

Un saludo
Pedro
gahetesoft@gmail.com
FWH12.06 BCC582, Xverce CW, Pelles C 6.00.4,PSPAD 4.54
y ahora con ADO

groiss

Posts: 234

Joined: Tue Sep 01, 2009 07:55 AM

Re: Número de registro en xbrowse
Posted: Tue Oct 20, 2009 03:26 PM

Gracias Pedro, pero al número de registro que me refiero es (alias)->(recno())
Un saludo y muchas gracias
José Luis

ADBLANCO

Posts: 299

Joined: Mon Oct 22, 2007 03:03 PM

Re: Número de registro en xbrowse
Posted: Tue Oct 20, 2009 04:36 PM

Si trabaja igual a la clase twbrowse, lo que te despliega por pantalla es una imagen del archivo, por lo que al hacer dblclick no necesariamente estás en el registro seleccionado

Saludos

Angel, Valencia, Venezuela

xH .997 - FW 7.9 - BCC55 - WorkShop - MySql

Pedro

Posts: 464

Joined: Tue Mar 21, 2006 07:30 PM

Re: Número de registro en xbrowse
Posted: Tue Oct 20, 2009 06:07 PM

Discúlpame groiss, creí haber entendido que el registro ( recno() ) era una de las columnas del xBrowse, según lo que tu dices en el enunciado...."soy incapaz de hacer que este xbrowse me muestre en una columna el número del registro",.

Si lo que quieres es que te muestre una columna con el recno debes poner la columna con un nombre de cabecera o sin él.
COLUMN Str(base->recno())
HEADERS " "
Así pondrás el número de registro, da lo mismo que lo pongas al principio, en medio o al final, pero has de crear esa columna.
Si he entendido bien ahora, porque no explicas muy bien si lo que quieres es que el xbrowse muestre esa columna, se muestre el registro en algún otro lado, o donde lo quieres mostrar.

Un saludo
Pedro
gahetesoft@gmail.com
FWH12.06 BCC582, Xverce CW, Pelles C 6.00.4,PSPAD 4.54
y ahora con ADO

ADBLANCO

Posts: 299

Joined: Mon Oct 22, 2007 03:03 PM

Re: Número de registro en xbrowse
Posted: Tue Oct 20, 2009 06:21 PM

Esto es con la clase TwBrowse

Code (fw): Select all Collapse

          REDEFINE LISTBOX  oLbx                                ;
                   FIELDS   ALLTRIM(STR(TTMP -> EXPEDIENTE,10,0)),;
                            " "+TTMP -> INSTANCIA  + CRLF +         ;
                            " "+TTMP -> DEMANDANTE + CRLF +         ;
                            " "+TTMP -> DEMANDADO                   ,;
                            str(ttmp->(recno()),10,0)                 ;
                   ALIAS   "TTMP"                               ;
                   HEADERS "Expediente"," Instancia / Demandante / Demandado","";
                   MESSAGE cMENSAJE                             ;
                   FIELDSIZES 68,360,68 ID 401   OF oDlg
          oLbx:Set3DStyle()
          oLbx:nFreeze       :=  3    // Congela hasta la columna
          oLbx:Ajustify      := {2,0,0,0} // Justificado de Columnas 0=izq, 1=Der, 2=Cent
          oLbx:lAdjLastCol   := .t.   // ajusta la ultima columna
          oLbx:nHeaderHeight := 31    // Da la altura del header
          oLbx:nLineHeight   := 46    // Da la altura de la linea
          oLbx:bLDblClick    := {|| msgalert(str(ttmp->(recno()),10,0))}                           // doble click en el listbox

Saludos

Angel, Valencia, Venezuela

xH .997 - FW 7.9 - BCC55 - WorkShop - MySql

groiss

Posts: 234

Joined: Tue Sep 01, 2009 07:55 AM

Re: Número de registro en xbrowse
Posted: Wed Oct 21, 2009 08:38 AM

Gracias Angel.
El tema es que quiero que aparezca el número de registro como una columna del xbrowse, y si lo hago como me comentas me muestra un error de array.
Por el momento lo hago así, pero no me parece que sea la solución:

Code (fw): Select all Collapse

  redefine XBROWSE oBrw id 1007 OF ownd1 ;
   COLUMNS sisaad->(recno()),"REG_SISAAD","DNI","APELLIDO","NOMBRE","REG_COMUNI",;
    "ANO_EXPEDI","DIRECCION","LOCALIDAD","COD_POSTAL",;
        "TELEFONO","DICTAMEN","FEC_VALORA","TEC_VALORA","FEC_IN_SOC",;
    "TEC_TRSOCI","FEC_FIR_PI","TEC_PIA",;
        "TEC_EST_EC","TEC_VAL_EC","GRADO_VALO","NIVEL_VALO","SELECTOR";
   HEADERS "Nº","SISAAD","NIF","Apellidos","Nombre","Nª Comun.","Año","Dirección","Localidad","C. Postal",;
        "Teléfono","Dictamen","Valoración","Valorador","I. Social","T. Social","PIA","Tec. Pia",;
        "Est. econ.","Tec. Estudio","Grado","Nivel","Selector";
   COLSIZES 90,150,90,200,100,150,;
        50,200,150,60,;
        90,300,60,150,60,;
        150,60,150,;
        60,150,30,30,110;
   on DBLCLICK (empleado(sisaad->(recno())), obrw:refresh(),obrw:setfocus());
   font ofont ;
   AUTOSORT alias "sisaad" FOOTERS LINES CELL ;
   BACKGROUND aGrad VERTICAL

   obrw:nMarqueeStyle   :=4
   obrw:nColDividerStyle:=4
   oBrw:bClrRowFocus := oBrw:bClrSelFocus
  obrw:acols[1]:bStrData   := { || substr(STR(100000+sisaad->(RECNO()),6,0),2,5)}

Muchas gracias y un saludo

FiveTech Support Forums

Continue the discussion