Re: FastEdit
Publicado: Lun Jun 18, 2007 12:56 pm
Te adjunto las propiedades y eventos del browse.
(Este es el metodo en el cual controlo la edición)
METHOD GuardaDatos( oSender, lCanceled, nKey ) CLASS FRMVoEdit
LOCAL cMatricula, cConcepto, dFecha, nBaseImp, nIVA, nTotal
cMatricula:=::cMatricula
cConcepto :=ALLTRIM(oSender:aCols[2]:Value)
dFecha :=oSender:aCols[3]:Value
nBaseImp :=oSender:aCols[4]:Value
nIva :=oSender:aCols[5]:Value
nTotal :=oSender:aCols[6]:Value
IF(EMPTY(cConcepto) .OR. EMPTY(dFecha) .OR. EMPTY(nBaseImp))
//Si esta vacío alguno de los campos, no guarda el registro y se sale
MSGINFO("Para guardar los cambios realizados, ha de rellenar todos
los campos obligatoriamente.")
RETURN NIL
END IF
WITH OBJECT ::oDataSetGastos
:Append()
:MATRICULA:=cMatricula
:CONCEPTO:=cConcepto
:FECHA:=dFecha
:BASEIMP:=nBaseImp
:IVA:=nIva
:TOTAL:=nTotal
:Commit()
END WITH
::oBrwGastos:Refresh()
RETURN Nil
--
(Este es el metodo en el cual controlo la edición)
METHOD GuardaDatos( oSender, lCanceled, nKey ) CLASS FRMVoEdit
LOCAL cMatricula, cConcepto, dFecha, nBaseImp, nIVA, nTotal
cMatricula:=::cMatricula
cConcepto :=ALLTRIM(oSender:aCols[2]:Value)
dFecha :=oSender:aCols[3]:Value
nBaseImp :=oSender:aCols[4]:Value
nIva :=oSender:aCols[5]:Value
nTotal :=oSender:aCols[6]:Value
IF(EMPTY(cConcepto) .OR. EMPTY(dFecha) .OR. EMPTY(nBaseImp))
//Si esta vacío alguno de los campos, no guarda el registro y se sale
MSGINFO("Para guardar los cambios realizados, ha de rellenar todos
los campos obligatoriamente.")
RETURN NIL
END IF
WITH OBJECT ::oDataSetGastos
:Append()
:MATRICULA:=cMatricula
:CONCEPTO:=cConcepto
:FECHA:=dFecha
:BASEIMP:=nBaseImp
:IVA:=nIva
:TOTAL:=nTotal
:Commit()
END WITH
::oBrwGastos:Refresh()
RETURN Nil
--