Página 1 de 1

Re: FastEdit

Publicado: Lun Jun 18, 2007 12:56 pm
por Angel
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
--

Re: FastEdit

Publicado: Lun Jun 18, 2007 1:12 pm
por ignacio
Ángel,
Me temo que no es suficiente, lo siento.
Un saludo
--
Ignacio Ortiz de Zúñiga
http://www.xailer.com
"Ángel Fernández" <angel@agelso.com> escribió en el mensaje
news:467664ca$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
> 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
>