FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Problemita con xbrowse
Posts: 1279
Joined: Mon Feb 06, 2006 04:28 PM
Problemita con xbrowse
Posted: Tue Dec 14, 2021 01:04 PM
Me pasa algo extra帽o con este c贸digo:

Code (fw): Select all Collapse
#include "Fivewin.ch"
#include "xbrowse.ch"
function PlanillaMantDiarios( oCn )
     LOCAL oDlg, oFont1, oFont2, oFont3, oBrw, oRs, wmes, wanio
     wmes := 11
     wanio:= 2021 
     cSql := "SELECT * FROM mantenimientos JOIN planilla JOIN maquinas JOIN sectores ON ( mantenimientos.mant_id = planilla.plaMant_id and mantenimientos.mantMaq_id = maquinas.Maq_id and mantenimientos.mantSector_id = sectores.Sector_ID ) WHERE ( planilla.pla_mes = 11 and planilla.pla_anio = 2021 )"
     oRs := oCn:RowSet( cSql )
     
     xBrowse( oRs )

     DEFINE DIALOG oDlg RESOURCE "DLG_PLAMDIARIOS" TITLE "Planilla de Mantenimientos Diarios"
     
          REDEFINE GET oGet VAR wmes id 101 picture "99" of oDlg 
          REDEFINE GET oGet VAR wanio id 102 picture "9999" of oDlg
          
          REDEFINE XbROWSE oBrw id 201 of oDlg DATASOURCE oRs ;
          HEADERS "Mantenimiento:", "Mes:" ;
          COLUMNS "oRs:mant_nombre", "oRs:pla_mes"   
          
     ACTIVATE DIALOG oDlg CENTER  

     oRs:Close()
RETURN nil


Si yo compilo el c贸digo con los headers y columnas comentados, el browse me muestra todos los campos de las tablas involucradas en el query perfectamente y las filas son visibles (los datos).

si yo elimino el comentario para que me muestre esos dos campos o cualquier otro.... tengo en el browse las filas correspondientes ( la misma cantidad que en el caso anterior ) pero los datos no son visibles.
V茅ase la imagen.


picture in picture online
Saludos/Regards,

Jos茅 Murugosa

"Los errores en programaci贸n, siempre est谩n entre la silla, el teclado y la IA!!"
Posts: 1789
Joined: Tue Oct 11, 2005 05:01 PM
Re: Problemita con xbrowse
Posted: Tue Dec 14, 2021 08:54 PM
en columns no es necesario poner "oRs:mant_nombre"
verifica los nombre de esas columnas, que existan
Code (fw): Select all Collapse
聽 聽 聽 聽 聽 REDEFINE XbROWSE oBrw id 201 of oDlg DATASOURCE oRs ;
聽 聽 聽 聽 聽 HEADERS "Mantenimiento:", "Mes:" ;
聽 聽 聽 聽 聽 COLUMNS "mant_nombre", "pla_mes"
Salu2

Carlos Vargas

Desde Managua, Nicaragua (CA)
Posts: 1279
Joined: Mon Feb 06, 2006 04:28 PM
Re: Problemita con xbrowse
Posted: Wed Dec 15, 2021 10:35 AM
carlos vargas wrote:en columns no es necesario poner "oRs:mant_nombre"
verifica los nombre de esas columnas, que existan
Code (fw): Select all Collapse
聽 聽 聽 聽 聽 REDEFINE XbROWSE oBrw id 201 of oDlg DATASOURCE oRs ;
聽 聽 聽 聽 聽 HEADERS "Mantenimiento:", "Mes:" ;
聽 聽 聽 聽 聽 COLUMNS "mant_nombre", "pla_mes"


Muchas gracias!! Funcion贸 perfecto. :-)
Saludos/Regards,

Jos茅 Murugosa

"Los errores en programaci贸n, siempre est谩n entre la silla, el teclado y la IA!!"

Continue the discussion