FiveTech Software tech support forums

... completa de las referencias de TXBrowse para saber cada evento para que sirve y que funcion hace, por ejemplo: :bPastEof := { || AddRow( oBrw ) } GoLeftMost() oBrw:GoDown() Etc etc. Gracias. Saludos :bPastEof := { || AddRow( oBrw ) } CodeBlock a ejecutar cuando se trata de pasar el fin del fichero. ...

... completa de las referencias de TXBrowse para saber cada evento para que sirve y que funcion hace, por ejemplo: :bPastEof := { || AddRow( oBrw ) } GoLeftMost() oBrw:GoDown() Etc etc. Gracias. Saludos

... end of Adjust() method    if ::lLockFreeze      ::nColSel   := ::nFreeze + 1   endif  3. Go to METHOD GoLeftMost(). and find this line at the beginning    ::nColSel := 1  Modify this line as:    ::nColSel   := If( ::lLockFreeze, ...

... 2) Provide info on the new Xbrowse function mentioned in the list of what is new * XBrowse: New Method GoFirstEditCol() Just like GoLeftMost() takes the cursor to the first column on a row, the new method GoFirstEditCol() takes the cursor to the first editable column of the row. ...

... para tomar los datos, el puntero del browse pasaba a la siguiente columna, lo cual resultaba incomodo. Claro que lo había resuelto llamanda a GoleftMost() después de retornar los datos, pero como dije: incomodo y anti-estetico. Aquí está como lo solucioné: :bKeyDown := {|nKey| if( nKey == ...

... para tomar los datos, el puntero del browse pasaba a la siguiente columna, lo cual resultaba incomodo. Claro que lo había resuelto llamanda a GoleftMost() después de retornar los datos, pero como dije: incomodo y anti-estetico. Aquí está como lo solucioné: :bKeyDown := {|nKey| if( nKey == ...

... } STATIC FUNCTION NewReg(aTrabajo,oBrw1) *------------------------------------- AADD(aTrabajo,{0.00,space(300),0,0}) oBrw1:GoDown() // oBrw1:GoLeftMost() // SysRefresh() RETURN .T. STATIC Function DelReg( aTrabajo, oBrw1, TotVal, oDlg ) *------------------------------------------------------ ...

Lucas,

I missed your email and your post, sorry

Have you tried with this change ?

( oBrw:cAlias )->( DbAppend() )
oBrw:GoBottom()
oBrw:RefreshCurrent()
oBrw:GoLeftMost()
oBrw:aCols[ 4 ]:Edit()

... := oBrw:bClrStd oBrw:aCols[7]:bOnPostEdit := { | oCol, xVal, nKey | If( nKey == VK_RETURN, aDatos[ oBrw:nArrayAt,7] := xVal,),oBrw:GoDown(),oBrw:GoLeftMost() } oBrw:aCols[7]:nEditType := EDIT_GET oBrw:aCols[7]:bEditValid := { | oGet, oCol | CalTotal(oDlg1,oBrw,aDatos,TotVal,oGet) } oBrw:aCols[7]:nDataStrAlign:= ...

... a new record"),; (oServer:Query("INSERT INTO " + cAlias + " () VALUES() ;"),; oAlias:Refresh(),oBrw:GoBottom(), oBrw:GoLeftMost(), oBrw:Refresh()),) } Regards.

Hola Francisco Así lo he puesto pero no funciona,  oCol = oBrw:AddCol()   oCol:bStrData      := { ||(cAlias1)->codigo }    oCol:nEditType     := EDIT_GET   oCol:cHEADER       := "CODIGO"...

Pedro, Tengo un sist de Contabilidad en el que hago algo parecido a lo que necesitas. Prueba asi: oCol:bOnPostEdit = { | oCol, xVal, nKey | If( RecCount() == 0, ( DbAppend(), oBrw:Refresh() ),) ,; If( nKey == VK_RETURN, ((cAlias)->SSSCta := xVal,if(lCtaOK(oBrw), (oBrw:nColSel:=1,DBAPPEND()) ,)) ,...

Francisco, he probado lo que me indicas, y me hace lo mismo que con el GoleftMost, es decir, ni caso, va a la segunda columna. Mario, yo también tengo un bOnposEdit en todas las columnas, el tema es que con un lector de códigos de barra los datos entran a partir ...

fe de erratas: donde dice JM debe decir Pedro

JM; En mi caso tengo tres columnas de edicion: Una EDIT_GET y dos EDIT_LISTBOX, en las dos primeras indico, como bien decis por defecto MOVE_RIGHT y en la última incluyo en :bOnPostEdit := {|...|... oLst:GoDown(), oLst:nColSel := col_3 ...} para ir a la columna 3 (como bien sugiere Francisco, aunque...