Ayuda con un RowSet y xBrowse

Ayuda con un RowSet y xBrowse

Postby TecniSoftware » Mon Apr 15, 2024 3:36 pm

Tengo el siguiente RowSet en MariaDB:

Code: Select all  Expand view  RUN

   TEXT INTO cQuery

      SELECT legajo,
             apellido,
             nombres,
             colegios.detalle as colegio,
             grupo
        FROM padron
   LEFT JOIN colegios ON padron.grupo = colegios.codigo
    ORDER BY apellido, nombres

   ENDTEXT
   oRs       := oApp:oServer:RowSet( cQuery )

 


Necesito mostrar un xbrowse solo con algunas columnas:

Code: Select all  Expand view  RUN


   aHeaders  := { "Legajo",;
                        "Apellido y nombres",;
                        "Colegio" }

   aCols     := { "legajo",;
                      "CapFirst( apellido ) + ' ' + CapFirst( nombres )",;
                      "colegio" }

// CapFirst() muestra el texto en minùscula salvo la primer letra de cada palabra

   @ nRow, nCol XBROWSE ::oBrw;
                   SIZE nBrwW, nBrwH;
                  PIXEL;
                     OF ::oDlg;
             DATASOURCE ::oRs;
               AUTOSORT;
                COLUMNS aCols

 


El problema que tengo es que no logro hacer funcionar correctamente el xbrowse, esta definido como "AUTOSORT"
El campo LEGAJO es numerico, ordena correctamente pero al hacer una busqueda incremental obtengo el aviso de "TYPE MISMATCH".
Que hay que tener en cuenta
Bienvenida cualquier ayuda.
Last edited by TecniSoftware on Mon Apr 15, 2024 9:32 pm, edited 1 time in total.
Alejandro Cebolido
Buenos Aires, Argentina
User avatar
TecniSoftware
 
Posts: 235
Joined: Fri Oct 28, 2005 6:29 pm
Location: Quilmes, Buenos Aires, Argentina

Re: Ayuda con un RowSet y xBrowse

Postby TecniSoftware » Mon Apr 15, 2024 9:31 pm

Solucionado!
En principio, decidí separar apellido y nombres, el problema que tenía lo pude solucionar de la siguiente manera y dejé de tener el error TYPE
MISMATCH

Code: Select all  Expand view  RUN


   aCols     := { "legajo",;
                      "apellido",;
                      "nombres",;
                      "colegio" }

   aStrData  := { { || oRs:Legajo ) },;
                        { || CapFirst( oRs:Apellido ) },;
                        { || CapFirst( oRs:Nombres ) },;
                        { || CapFirst( oRs:Colegio ) } }

 
Alejandro Cebolido
Buenos Aires, Argentina
User avatar
TecniSoftware
 
Posts: 235
Joined: Fri Oct 28, 2005 6:29 pm
Location: Quilmes, Buenos Aires, Argentina

Re: Ayuda con un RowSet y xBrowse

Postby sysctrl2 » Mon Apr 15, 2024 10:16 pm

Excelente Alejandro,
! Viva la libertad carajo !
tienes un ejemplo mas completo ?
saludos !
Cesar Cortes Cruz
SysCtrl Software
Mexico

' Sin +- FWH es mejor "
User avatar
sysctrl2
 
Posts: 1021
Joined: Mon Feb 05, 2007 7:15 pm


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 48 guests