FiveTech Software tech support forums

... 2 ); FIELDSIZES 190; MESSAGE "Seleccione Ramo, ([Enter] o Doble Click => Modifica)"; HEADERS "Descripción" ID 401 OF oDlg oQuery:GoTop():Read() // No se olvide nunca de esta linea MySetBrowse(oLbx,oQuery) // No Olvidarse Nunca de Esta Línea oLbx:cAlias := "ARRAY" // No Olvidarse ...

... //selecionar parte do texto ::oFGet:Refresh() ::oFGet:SetFocus() else msg("Fim da pesquisa !!!") cArq :=space(60) fwhnpos:=0 ::nPage:=1 ::oDbf:GoTop() ::oFGet:Settext(::TxtToRTF( ::oDbf:Text )) ::oPage:SetText( "Página nº: "+TXT_PAGENUM + LTrim( Str( ::nPage, 4, 0 ) ) + ; " / " + LTrim( Str( ...

Javier,

Solo tienes que quitar la llamada a oBrw:GoTop() y aqui está funcionando bien

... ) oMySql := tData( "mysql", par1, par2, parN ) oTrs:= tData ( "rs", par1, par2, parN ) con eso creas los tres objetos y ya puedes trabajar oDbf:goTop() oMySql:dbSeek( oTrs:factura ) ahora bien, si hubiera metodos que trabajan de manera difrente, solamente tendrías que hacer las respectivas modificaciones, ...

... addition was displayed. (Try clicking on the Add button several times in a row). However this was easily fixed by adding oWnd:Refresh() after oBrw:GoTop(). This fix was important for the next major part of my medical software and I am most grateful. Regards Doug (xProgrammer)

... comando y no el primero, no se carga en memoria twbrowse porque no hago referencia en ningún lado a ese fuente, pero con solamente escribir oWnd:goTop() le estoy diciendo al browse que se vaya al inicio del archivo. Y en estas clases que te comento hago uso de ambos metodos, tanto uso herencias ...

... object twice in your code, but it is in the same function and you are using the same object name (oDBF) for both databases. database oDbf oDbf:GoTop() oBrw:SetoDbf(oDbf) ... database oDbf oDbf:GoTop() oBrw1:SetoDbf(oDbf) I don't see how this can work. You can't use the same name (oDBF) to define ...

... == SB_LINEDOWN ::GoDown() case nScrollCode == SB_PAGEUP ::PageUp() case nScrollCode == SB_PAGEDOWN ::PageDown() case nScrollCode == SB_TOP ::GoTop() case nScrollCode == SB_BOTTOM ::GoBottom() case nScrollCode == SB_THUMBPOSITION if ::nLen < 1 return nil endif do case case nPos == 1 ::GoTop() ...

... teclas Shift + Tab funciona correctamente con "Combos" desplegables. Por favor, pruebe el ejemplo \FWH\samples\combos.prg * Mejora: Nuevo método GoTop() en la clase TTreeView. * Nuevo: Nuevos métodos en la clase TRichEdit: GetIndent() -> Devuelve una matriz con la sangría izquierda, la sangría ...

... por tu ayuda pero como la felicidad nunca es completa , algunas lineas quedan ocultas en el listbox por la parte supeerior he probado con dbgotop y con gotop , pero entonces no aparece nada SELECT ( cAlias ) SET FILTER TO str(factura,6) = m2filtro * ( cAlias )->( dbgotop() ) * go top ...

... "Nombr. Arti" ; ALIAS ( cAlias )->( DBSETFILTER( {|| str(factura,6) = m2filtro }, "lineas de la cabecera" ) ) ; ID 500 OF o[ O_DLG ] oLbx:Gotop() oLbx:Refresh() REDEFINE BUTTON ID 111 OF o[ O_DLG ] ACTION ( linsalid(o,v) ) REDEFINE BUTTON ID 207 OF o[ O_DLG ] ACTION ( cli_busca(o,v) ) ...

... := "catlineasi" oBaset := TMsTable():New( oDb, cTabla ) if !oBaset:Open() return( nil ) endif aLi := {} If !Empty( oBaset:LastRec() ) oBaset:GoTop():Read() While !oBaset:Eof() Aadd( aLi, { oBaset:FieldGet( 1 ), oBaset:FieldGet( 2 ) } ) oBaset:Fetch() EndDo EndIf oBaset:Destroy() DEFINE ICON ...

... is ok. * Fix: Shift + Tab is properly working with dropdown comboboxes. Please test samples\combos.prg * Enhancement: new Class TTreeView Method GoTop(). * New: Class TRichEdit new methods: GetIndent() -> It returns an array with left indentation, right indentation and first line indentation ...

Erick: Sacado de este foro: ..... ACTIVATE DIALOG OBentr00 ON INIT (CENTRA(oDlg),lisbas:gotfocus(),lisbas:gotop()) VALID (Salir) Function Centra( oDlg) LOCAL nSel:= nRandom(4) LOCAL cAni:= "" IF nSel == 1 cAni:= AW_HOR_POSITIVE ELSEIF nSel == 2 cAni:= AW_HOR_NEGATIVE ELSEIF ...

Intente,

oBrw:GoBottom()
oBrw:Refresh()
oBrw:GoTop()
oBrw:SetFocus()

Saludos.