In order for this site to work correctly we need to store a small file (called a cookie) on your computer. Most every site in the world does this, however since the 25th of May 2011, by law we have to get your permission first. Please abandon the forum if you disagree.

Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.

Como solucionar lo siguiente: Se ha modificado la fila en curso despues de la edicion UPDATE&q

Foro público de Xailer en español
Gabriel Ornelas
Mensajes: 24
Registrado: Dom Jun 05, 2005 6:16 pm

Como solucionar lo siguiente: Se ha modificado la fila en curso despues de la edicion UPDATE&q

Mensaje por Gabriel Ornelas »

Hola,
Estoy editando una columna de un browse usando un dataset con el
resultado de una consulta. y con la propiedad del browse lAutoSave:=
..T., en el evento OnPosEdit de la columna hago las operaciones para
calcular el resultado de otras columnas de la misma fila. y en el evento
OnExit realizo la suma de todas la columnas y filas.
si edito una celda no hay problema. PERO cuando paso a editar una celda
de diferente fila.. me manda el mensaje
"Se ha modificado la fila en curso despues de la edicion UPDATE"
y Si es cierto en el evento OnExit barro todas los registros del dataset
para calcular la suma total. entonces se modifica la ubicacion del
registro actual. que estoy editando. alguien que me pueda dar una luz.
ESTE EVENTO FUNCIONA BIEN...
//---------------------------------------------------------- --------------------
METHOD BrwDetalleColumnPostEdit( oSender, Value, lCanceled, nKey ) CLASS
TFormAbcCompras
// Metodo OnPosEdit de la columna CANTIDAD
LOCAL nSubTotal, nRecno, nDescuentos, nDescto1, nDescto2, nImpTotal
nSubTotal:= ::oParent:oSqlDetalle:cantidad * ::oParent:oSqlDetalle:costo
..
..
..
..
RETURN Nil
Pero en el evento OnExit de la columna hago lo siguiente para calcular
los Totales de la suma de todas las filas del browse
//---------------------------------------------------------- --------------------
METHOD BrwDetalleColumn4Exit( oSender, oGridEdit, oNextCtl ) CLASS
TFormAbcCompras
// Metodo OnExit de la Columna de CANTIDAD
LOCAL nSubTotal, nIva, nTotal, nRecno, nSuma, nDescuentos
nSubTotal:= 0
nIva := 0
nTotal:= 0
nSuma := 0
nDescuentos:= 0
nRecno:=::oParent:oSqlDetalle:Recno()
::oParent:oSqlDetalle:GoTop()
DO WHILE !::oParent:oSqlDetalle:EoF()
nSuma += ::oParent:oSqlDetalle:subtotal
nDescuentos+= ::oParent:oSqlDetalle:descuentos
nTotal += ::oParent:oSqlDetalle:total
::oParent:oSqlDetalle:Skip()
ENDDO
::oParent:oSqlDetalle:GoTo( nRecno )
RETURN Nil
Responder