FiveTech Software tech support forums

... nKey == VK_UP ::GoUp() case nKey == VK_DOWN ::GoDown() case nKey == VK_LEFT ::GoLeft() case nKey == VK_RIGHT ::GoRight() case nKey == VK_HOME ::GoTop() case nKey == VK_END ::GoBottom() case nKey == VK_PRIOR if GetKeyState( VK_CONTROL ) ::GoTop() else ::PageUp() endif case nKey == VK_NEXT if ...

... cSeek := "" CASE nKey == K_PGUP ; oBrw:pageup() ; cSeek := "" CASE nKey == K_PGDN ; oBrw:pagedown() ; cSeek := "" CASE nKey == K_CTRL_PGUP ; oBrw:GoTop() ; cSeek := "" CASE nKey == K_CTRL_PGDN ; oBrw:GoBottom() ; cSeek := "" CASE nKey == K_HOME ; oBrw:GoTop() ; cSeek := "" CASE nKey == K_END ; ...

... declare deleted default delete design device dialog define dbcloseall dbskip dbclosearea dbsetorder dbseek dbrelation dbsetrelation dbgobottom dbgotop dbgoto dbsetfilter dbusearea dbcommit dbrecall dbdelete dbunlock dbappend exit else elseif endif export empty endclass endcase end endmenu enddo ...

... oBrw:lColDividerComplete := .t. oBrw:nHeaderLines := 3 oBrw:nFooterLines := 1 oBrw:nDataLines := 3 oBrw:lFooter := .t. oBrw:SetRDD() oBrw:GoTop() oBrw:Refresh(.t.) Muchas gracias. Saludos Ruben Fernandez. La estructura es Mesa1,mesa2,mesa3,; H00A1,H00A2,H00A3,; ... H15A1,H15A2,H15A3...

... que TXBrowse no se refesca bien si por ejemplo está en el renglon 4 y con el nuevo indice estamos en la clave 2. Y hacer un Refresh(.T.) hace un gotop que no es lo que quiero. Hay que tocar el refresh antes para que pivotee de manera correcta sobre el registro actual. Un saludo, Carlos.

... oBrw:lColDividerComplete := .t. oBrw:nHeaderLines := 3 oBrw:nFooterLines := 1 oBrw:nDataLines := 3 oBrw:lFooter := .t. oBrw:SetRDD() oBrw:GoTop() oBrw:Refresh(.t.) Muchas gracias nuevamente.

... RDD seamlessly insulate legacy code when it comes to basic Clipper database navagation commands and functions work? SEEK, LOCATE, USE, GOTO #, GOTOP, GOBOTTOM, recno(), dbseek(), dbgotop(), etc. If these all work properly on the MS-SQL database, that would in turn minimize the changes to legacy ...

... "" If ::GoLeft() ::Refresh() EndIf case nKey == VK_RIGHT ::cBuffer:= "" If ::GoRight() ::Refresh() EndIf case nKey == VK_HOME ::cBuffer:= "" ::GoTop() case nKey == VK_END ::cBuffer:= "" ::GoBottom() case nKey == VK_PRIOR ::cBuffer:= "" if GetKeyState( VK_CONTROL ) ::GoTop() else ::PageUp() ...

... "Ordenar por Categoría"; ACTION oSay:SetText("ORDENADO POR CATEGORIA"),; oDbf:SetOrder(4) ENDMENU ACTIVATE POPUP oMenu AT nRow,nCol OF oLbx oDbf:GoTop() oLbx:Refresh() Return nil // Hola a todos como se ve en la función que escribí anteriormente, la función es un simple Menú Popup, pero quisiera ...

... Local D:="\\PIII\C\WPSDatos\" USE (D+"STOCK.DBF") INDEX (D+"STOCK01.NTX") NEW SHARED ALIAS STOCK DATABASE oDbfSto oDbfSto:bEoF:=nil oDbfSto:GoTop() Tambien probé USE (D+"STOCK.DBF") INDEX (D+"STOCK01.NTX") NEW ALIAS STOCK SHARED DATABASE oDbfSto oDbfSto:bEoF:=nil oDbfSto:GoTop() Return nil ...

Hola, yo lo hago asi: ( observa el ON RESIZE) ACTIVATE DIALOG oDlg CENTER NOWAIT ; ON INIT ( oDlg:Move( 0, 0 ), oLbx:GoTop()) ; VALID (oWndK:End(), lSalir ) oWndK:bGotFocus = { || oDlg:SetFocus() } ACTIVATE WINDOW oWndK ; ON INIT (oWndK:Move(0,0), oWndK:SetSize( oDlg:nWidth, oDlg:nHeight ...

... SI ES COMO LO ESTOY COLOCANDO MINVEN->( OrdScope( 0, "01"+cCODTIPO+cNOMBRE ) ) MINVEN->( OrdScope( 1, "01"+cCODTIPO+cNOMBRE ) ) ***** oBrw72:GoTop() ESTABA QUI ANTERIORMENTE @ 3 , 2 LISTBOX oBrw72 FIELDS MINVEN->CODIGO,MINVEN->DESCRIP,STR(MINVEN->PRECIO,8,2); COLSIZES 35,135,30 PIXEL ...

Tienes que crear el browse antes de llamar a oBrw72:GoTop()

ANTONIO MINVEN->( OrdScope( 0, "01"+cCODTIPO+cNOMBRE ) ) MINVEN->( OrdScope( 1, "01"+cCODTIPO+cNOMBRE ) ) oBrw72:GoTop() _________________ LA OPCION OBRW72:GOTOP() ME DA ERROR DE : NO EXPORTED METHOD GOTOP ARGS: 1 = U ANTES NO LO HABIA PUESTO EN EL PROGRAMA PERO PROBANDOLO EL ...

... que puede ser. MINVEN->( OrdScope( 0, "01"+cCODTIPO+cNOMBRE ) ) / error de argument MINVEN->( OrdScope( 1, "01"+cCODTIPO+cNOMBRE ) ) oBrw72:GoTop() _________________ P.S Has got acquainted with the girl, http://cyberblady.com, how it to you? Only it is fair!