No me muestra el SAY, paso el código a continuación:
Code: Select all
oQryConsu :=oServer:Query( "SELECT encaliq.codigoL, encaliq.codcole, encaliq.dia, encaliq.mes, encaliq.ano, "+;
" encaliq.detalle, escuela.codigo, escuela.nombre FROM encaliq, escuela "+;
" WHERE encaliq.codcole = escuela.codigo "+;
" ORDER BY encaliq.ano, encaliq.mes ASC" )
oQryConsu:GoTop()
oQryConsu:GetRow()
DEFINE FONT oFont NAME "Times New Roman" SIZE 0, -12
DEFINE FONT oFont24 NAME "ARIAL" SIZE 0, -20 BOLD
DEFINE FONT oFont14 NAME "ARIAL" SIZE 0, -14 BOLD
DEFINE DIALOG oDlgLQ SIZE 900,600 PIXEL TRUEPIXEL TITLE "LIQUIDACIONES"
DEFINE BUTTONBAR oBarC OF oDlgLQ SIZE 56,56 2013
MsgAlert(oQryConsu:Nombre)
@ 70,20 SAY oNomEmpre PROMPT oQryConsu:Nombre OF oDlgLQ FONT oFOnt14 // SIZE 200, 20 // COLOR CLR_NROJO
@ 150,20 XBROWSE oBrwLQ SIZE -20,-20 PIXEL OF oDlgLQ ;
DATASOURCE oQryConsu ;
COLUMNS ;
"dia","mes","ano", ;
"Nombre", ;// "nomnivel", ;
"Detalle" ;
COLSIZES 30,30,40,300,400 ;
HEADERS "Día","Mes","Año", "Empresa", "Detalle" ;
CELL LINES NOBORDER AUTOCOLS
WITH OBJECT oBrwLQ
:lSeekBar := .T.
:bClrEdits := { || { CLR_HRED, CLR_YELLOW } }
:lAutoSort := .T.
:l2013 := .T.
:CreateFromCode()
END
oBarC:bPainted := { || oBarC:SayText( "LIQUIDACIONES", ;
{ nil, nil, nil, -50 }, "R", oFont24, CLR_HRED ) }
BrwBarLiqui( oBarC, oBrwLQ )
ACTIVATE DIALOG oDlgLQ CENTERED[code]
No me muestra nada, puse el MsgAlert() para ver si me traía info la consulta y si es así.
No se porque no me muestra, generalmente trabajo con recursos y no tengo problemas, primera ves que uso @ SAY
Trabajo con xHarbour y FWH17
Desde ya muchas gracias.