FiveTech Support Forums

bPostEdit1 := {|o,v,n|  iif( n != VK_ESCAPE, ::GrabarCampo(1,v),)
bPostEdit2 := {|o,v,n|  iif( n != VK_ESCAPE, ::GrabarCampo(2,v),)
bPostEdit3 := {|o,v,n|  iif( n != VK_ESCAPE, ::GrabarCampo(3,v),)

oCol:=ATail(oBrw:aCols) //Recupero la última columna del Browse.
oCol:bOnPostEdit:={|o, v, n| PostEdit(o,v,n)}  //Cambio postedit para que salte de linea

//---------------------------------------------------------------------------
STATIC FUNCTION PostEdit( oCol, xValue, nLastKey )
   LOCAL nOldVal, nFldNo
   LOCAL cAlias := oCol:oBrw:cAlias
   IF nLastKey == 13
      nOldVal  := Eval( oCol:bEditValue )
      if !( nOldVal == xValue )
         if (cAlias)->(dbrLock())
            Eval( oCol:bEditValue, xValue )
            (cAlias)->( dbUnlock() )
            oCol:oBrw:GoDown()     //Aqui movemos a siguiente linea
            oCol:oBrw:GoLeftMost() //Campo + a la izquierda.
         ENDIF
      ENDIF
   endif
return nil