FiveTech Software tech support forums

... Confirma " font oSegoe ID 120 OF oDlgStk ACTION ( lsave := .t., oDlgSTK:End() ) REDEFINE button btnMod ID 130 OF oDlgStk action (Editstock( oBrow, oCon, oRS1, oRS1:AbsolutePosition, .t. ), cSQL := wwcSQL) // Editstock( obrow, .t. ) REDEFINE button btnOK ID 4002 OF oDlgStk ACTION veoplan( ...

... así: ACTIVATE DIALOG oDlg ON INIT ( oDlg:SetPos( 0, 0 ), oDlg:nWidth := GetSysMetrics( 0 ), oDlg:nHeight := GetSysMetrics( 1 ), BuildTimer( oDlg, obrow )) function BuildTimer( oDlg, wobrow ) local oTmr DEFINE TIMER oTmr OF oDlg ; ACTION busco(wobrow) INTERVAL 10000 ACTIVATE TIMER oTmr return nil ...

Is there an example of creating a report from Xbrowse with groups, fonts, headers, footers, page numbers and total pages?
For example customer.dbf with all visible columns of oBrow:acols, this will save time for creating a standard report for all files

... ; OF oWndChild REDEFINE GET obusco var xbusco ID 171 PICTURE "@!" OF oDlg ; ON CHANGE ( ::assign(), oRS1Cli:=buscosql( oBrow, xbusco, oRS1Cli ) ) REDEFINE LISTBOX oBrow FIELDS ; iif (oRS1Cli:Fields( "activo" ):Value="S",aHbitMaps[1],aHbitMaps[2]),; ...

Buenas buenas querida gente. Estoy atascado en un punto y la verdad no sé como seguir. Como puedo relacionar una busqueda entre dos xBrowse? Me explico un poco más: teniendo xBrowse oBrw_1 y oBrw_2 donde: oBrw_1 es una base con datos especificos de las personas oBrow_2 otra base con los demás datos ...

Mr Rao. I have a xBrowse which I need to update with a different FwhMysql rowset. When I created it I do oDbDat:=oSvr:Rowset(xSelect) oBrow:setMysql(oDbDat,.T.,.T.) Later on I need to change the select (same fields, but different data), then I do. oDbNew:=oSvr:Rowset(NewSelect) oDbDat:=oDbNew ...

... where itemid='"+itemid1+"' and version='"+version1+"'" obl1:odb1:refresh() eng0324(obl1) obl1:obrow:refresh() obl1:odb4:cquery:="select * from "+obl1:odb4:ctable+" where itemid='"+itemid1+"' and version='"+version1+"' ...

Uwe, maybe, I try

oBrow:aCols[05]:bStrData := <codeblock with parameter of value selected>
oBrow:aCols[06]:bStrData :=
oBrow:aCols[07]:bStrData :=

Armando

En el TxBrowse

Si le das "enter" para editar si lo hace bien.

Pero si le das oBrow:lFastEdit := .T. al darle el "." no hace nada
le tienes que dar un numero primero, ya sea 0...9 y después el "."

Saludos.

VitalJavier wrote:   Francisco, Buen Dia
Gracias por tu ayuda
Quedo perfecto con 2 líneas:oBrow:lColChangeNotify := .t.
   oBrow:bChange  := {|nRow,nCol| if(oBrow:nColSel>=3, (oBrow:nColSel:=2,oBrow:Refresh()) ,) }

Me alegra que te haya sido util.
Saludos.

Amigo estoy usando este codigo pero al mostrar el xbrowse se queda pegado no hace nada: FUNCTION WINGES01() LOCAL oBrow LOCAL oDlg, oLbx LOCAL oFnt LOCAL nW, nH LOCAL cPersonalca:=Space(60) LOCAL oGet LOCAL cVar, oCbx, cHelp,oCbx1 LOCAL oBar, oPop, oIcon, cTit LOCAL oBtn, aX[6], ...

Hi Antonio and All,

How to handle ' left mouse button click-and-hold' (hold stylus ) in listbox control ?
I'm trying oBrow:brClicked but not working.


TIA

best regards
Jaroslaw Kadziola

P.S. Antonio, what about FW on WindowsRT, Windows Phone ?

VitalJavier wrote:Que tal, yo para ocultar una columna lo tengo así :

oBrow:aCols[01]:Hide()

ya con algunos if o case, podrías ocultar algunas columnas
Espero y te sirva.

Asi es para columnas, pero el colega quiere es FILAS, es decir los renglones o registros, saludos...

Que tal, yo para ocultar una columna lo tengo así :

oBrow:aCols[01]:Hide()

ya con algunos if o case, podrías ocultar algunas columnas
Espero y te sirva.

DEFINE TIMER otimer ; INTERVAL 14000 ; ACTION Msg() ; OF oWnd FUNCTION Msg(lok) local odb1,odlg private obrow DEFAULT lok:=.f. odb1:=oServer:Query("select receiver from message where receiver='"+username1+"' and lread<>'Y'"; +" union all select ...