- Code: Select all Expand view
#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
