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.

tMemDataset

Foro de Xailer profesional en español
Responder
Christian
Mensajes: 290
Registrado: Mié Abr 23, 2008 10:18 pm

tMemDataset

Mensaje por Christian »

Hola, quisiera una recomendacion, estoy programando un sistema de sueldos y
uso un TBBrowse asociado con un tMemDataSet el tema es al actualizar el
codigo de concepto o la cantidad el sistema deberia recorrer el tMemDataSet
y recalcular todos los conceptos ya que puedo estar modificando las horas
extras y esa modificacion me afecta la jubilacion.
Cuando modifico alguno de estos datos pongo un variable en .T. y en el
evento onUpdate del tMemDataSet hago el recalculo, el tema es que cuando
recorro el tMemDataSet por cada registro siempre me devuelve el valor del
registro donde estoy parado yo creo que cuando el tMemDataSet esta en modo
de edicion pasa esto pero no se como solucionarlo en este sistema.
Si alguien me indica como solucionarlo se lo agradecere o si tiene otra
propuesta distinta la tomare desde ya muchas gracias.
Aqui abajo estan los metodos de actualizacion del codigo, el onUpdate del
tMemDataSet y la funcion que recalcula todo.
//---------------------------------------------------------- --------------------
METHOD DBBrowseColumn1PostEdit( oSender, Value, lCanceled, nKey ) CLASS
tLiquidacionHaberes
local nCantidad, nForm, cTipoCol
if ::aHaberes:lOpen .and. !lCanceled
::aHaberes:Codigo :=Value
::aHaberes:Descripcion:=DataFieldSql('ConceptosSue','Descrip cion','CodigoCon',Value,'')
nCantidad:=::aHaberes:Cantidad
nForm :=::oHab:CalcConcepto(::aHaberes:Codigo,@nCantidad,@cTipoCol )
::aHaberes:Cantidad:=nCantidad
::lRecalc:=.T.
endif
RETURN Nil
//---------------------------------------------------------- --------------------
METHOD aHaberesUpdate( oSender ) CLASS tLiquidacionHaberes
local lUpd:=.F.
if ::lRecalc
::lRecalc:=.F.
::oHab:Recalcula()
::tHaberes:Value :=::oHab:TT_Haberes
::tDescuento:Value :=::oHab:TT_Descuentos
::tAsigFam:Value :=::oHab:TT_Asig_Fam
::tRetenciones:Value :=::oHab:TT_Retenciones
::tNoRemunera:Value :=::oHab:TT_No_Remunera
::tAportes:Value :=::oHab:TT_Aportes
::tACobrar:Value :=::oHab:TT_ACobrar
endif
RETURN Nil
//---------------------------------------------------------- --------------------
METHOD Recalcula() CLASS LiquidacionEmpleado
local nRec:=::oHaberes:recno(), j, nForm, nCantidad, cTipoCol, cTipo, cAux
private TOT_HABERES, TOT_ASIG_FAM, TOT_NO_REMUNERA
private TOT_RETENCIONES, TOT_DESCUENTOS, TOT_APORTES, TOT_ACOBRAR
::oHaberes:lUpdLinked:=.F.
M->TOT_HABERES :=0
M->TOT_ASIG_FAM :=0
M->TOT_NO_REMUNERA:=0
M->TOT_RETENCIONES:=0
M->TOT_DESCUENTOS :=0
M->TOT_APORTES :=0
M->TOT_ACOBRAR :=0
::oHaberes:gotop()
while !::oHaberes:eof()
nCantidad:=::oHaberes:Cantidad
cTipoCol :=' '
nForm
:=::CalcConcepto(::oHaberes:Codigo,@nCantidad,@cTipoCol,@cTi po)
::oHaberes:Edit()
::oHaberes:Cantidad:=nCantidad
if cTipoCol=='I'
::oHaberes:Ingreso:=nForm
::oHaberes:Egreso :=0
else
::oHaberes:Ingreso:=0
::oHaberes:Egreso :=nForm
endif
::oHaberes:UpDate()
do case
case cTipo=='HAB'
M->TOT_HABERES +=nForm
case cTipo=='NRE'
M->TOT_NO_REMUNERA+=nForm
case cTipo=='FAM'
M->TOT_ASIG_FAM +=nForm
case cTipo=='APO'
M->TOT_APORTES +=nForm
case cTipo=='DES'
M->TOT_DESCUENTOS +=nForm
case cTipo=='RET'
M->TOT_RETENCIONES+=nForm
endcase
::oHaberes:skip(1)
enddo
::oHaberes:goto(nRec)
::oHaberes:lUpdLinked:=.T.
M->TOT_ACOBRAR :=M->TOT_HABERES+M->TOT_ASIG_FAM+M->TOT_NO_REMUNERA -
;
M->TOT_RETENCIONES-M->TOT_DESCUENTOS
::TT_HABERES :=M->TOT_HABERES
::TT_ASIG_FAM :=M->TOT_ASIG_FAM
::TT_NO_REMUNERA:=M->TOT_NO_REMUNERA
::TT_RETENCIONES :=M->TOT_RETENCIONES
::TT_DESCUENTOS :=M->TOT_DESCUENTOS
::TT_APORTES :=M->TOT_APORTES
::TT_ACOBRAR :=M->TOT_ACOBRAR
RETURN Nil
//---------------------------------------------------------- --------------------
Arriba
Avatar de Usuario
ignacio
Site Admin
Mensajes: 9457
Registrado: Lun Abr 06, 2015 8:00 pm
Ubicación: Madrid, Spain
Contactar:
Contactar ignacio

tMemDataset

Mensaje por ignacio »

Christian,
Utiliza oDataSet:cField( dsFIELD )
para recuperar el dato.
De la documentación:
También es posible en el caso de recuperación del valor de un campo del
DataSet forzar su recuperaración a un tipo en concreto, dato de la tabla o
buffer de edición, independiente de que nos encontremos en edición o no, y
para ello podemos pasarle un parametro al miembro simulado:
oDataSet:Codigo( dsFIELD ) // Recupera valor del campo codigo de la tabla
oDataSet:Codigo( dsVAR ) // Recupera valor del buffer de edición del
DataSet
Saludos,
--
Ignacio Ortiz de Zúñiga
http://www.xailer.com
"Christian" <christianassenza@yahoo.com.ar> escribió en el mensaje
news:[email=450179d3@news.xailer.com...]450179d3@news.xailer.com...[/email]
> Hola, quisiera una recomendacion, estoy programando un sistema de sueldos
> y uso un TBBrowse asociado con un tMemDataSet el tema es al actualizar el
> codigo de concepto o la cantidad el sistema deberia recorrer el
> tMemDataSet y recalcular todos los conceptos ya que puedo estar
> modificando las horas extras y esa modificacion me afecta la jubilacion.
>
> Cuando modifico alguno de estos datos pongo un variable en .T. y en el
> evento onUpdate del tMemDataSet hago el recalculo, el tema es que cuando
> recorro el tMemDataSet por cada registro siempre me devuelve el valor del
> registro donde estoy parado yo creo que cuando el tMemDataSet esta en modo
> de edicion pasa esto pero no se como solucionarlo en este sistema.
>
> Si alguien me indica como solucionarlo se lo agradecere o si tiene otra
> propuesta distinta la tomare desde ya muchas gracias.
>
>
> Aqui abajo estan los metodos de actualizacion del codigo, el onUpdate del
> tMemDataSet y la funcion que recalcula todo.
>
>
> //---------------------------------------------------------- --------------------
> METHOD DBBrowseColumn1PostEdit( oSender, Value, lCanceled, nKey ) CLASS
> tLiquidacionHaberes
> local nCantidad, nForm, cTipoCol
>
> if ::aHaberes:lOpen .and. !lCanceled
> ::aHaberes:Codigo :=Value
>
> ::aHaberes:Descripcion:=DataFieldSql('ConceptosSue','Descrip cion','CodigoCon',Value,'')
>
> nCantidad:=::aHaberes:Cantidad
> nForm
> :=::oHab:CalcConcepto(::aHaberes:Codigo,@nCantidad,@cTipoCol )
> ::aHaberes:Cantidad:=nCantidad
> ::lRecalc:=.T.
> endif
>
> RETURN Nil
> //---------------------------------------------------------- --------------------
> METHOD aHaberesUpdate( oSender ) CLASS tLiquidacionHaberes
> local lUpd:=.F.
>
> if ::lRecalc
> ::lRecalc:=.F.
>
> ::oHab:Recalcula()
>
> ::tHaberes:Value :=::oHab:TT_Haberes
> ::tDescuento:Value :=::oHab:TT_Descuentos
> ::tAsigFam:Value :=::oHab:TT_Asig_Fam
> ::tRetenciones:Value :=::oHab:TT_Retenciones
> ::tNoRemunera:Value :=::oHab:TT_No_Remunera
> ::tAportes:Value :=::oHab:TT_Aportes
> ::tACobrar:Value :=::oHab:TT_ACobrar
> endif
> RETURN Nil
> //---------------------------------------------------------- --------------------
> METHOD Recalcula() CLASS LiquidacionEmpleado
> local nRec:=::oHaberes:recno(), j, nForm, nCantidad, cTipoCol, cTipo, cAux
> private TOT_HABERES, TOT_ASIG_FAM, TOT_NO_REMUNERA
> private TOT_RETENCIONES, TOT_DESCUENTOS, TOT_APORTES, TOT_ACOBRAR
>
> ::oHaberes:lUpdLinked:=.F.
> M->TOT_HABERES :=0
> M->TOT_ASIG_FAM :=0
> M->TOT_NO_REMUNERA:=0
> M->TOT_RETENCIONES:=0
> M->TOT_DESCUENTOS :=0
> M->TOT_APORTES :=0
> M->TOT_ACOBRAR :=0
>
> ::oHaberes:gotop()
> while !::oHaberes:eof()
>
> nCantidad:=::oHaberes:Cantidad
> cTipoCol :=' '
> nForm
> :=::CalcConcepto(::oHaberes:Codigo,@nCantidad,@cTipoCol,@cTi po)
>
> ::oHaberes:Edit()
> ::oHaberes:Cantidad:=nCantidad
> if cTipoCol=='I'
> ::oHaberes:Ingreso:=nForm
> ::oHaberes:Egreso :=0
> else
> ::oHaberes:Ingreso:=0
> ::oHaberes:Egreso :=nForm
> endif
> ::oHaberes:UpDate()
>
> do case
> case cTipo=='HAB'
> M->TOT_HABERES +=nForm
> case cTipo=='NRE'
> M->TOT_NO_REMUNERA+=nForm
> case cTipo=='FAM'
> M->TOT_ASIG_FAM +=nForm
> case cTipo=='APO'
> M->TOT_APORTES +=nForm
> case cTipo=='DES'
> M->TOT_DESCUENTOS +=nForm
> case cTipo=='RET'
> M->TOT_RETENCIONES+=nForm
> endcase
>
> ::oHaberes:skip(1)
>
> enddo
> ::oHaberes:goto(nRec)
> ::oHaberes:lUpdLinked:=.T.
> M->TOT_ACOBRAR :=M->TOT_HABERES+M->TOT_ASIG_FAM+M->TOT_NO_REMUNERA -
> ;
>
> M->TOT_RETENCIONES-M->TOT_DESCUENTOS
> ::TT_HABERES :=M->TOT_HABERES
> ::TT_ASIG_FAM :=M->TOT_ASIG_FAM
> ::TT_NO_REMUNERA:=M->TOT_NO_REMUNERA
> ::TT_RETENCIONES :=M->TOT_RETENCIONES
> ::TT_DESCUENTOS :=M->TOT_DESCUENTOS
> ::TT_APORTES :=M->TOT_APORTES
> ::TT_ACOBRAR :=M->TOT_ACOBRAR
> RETURN Nil
> //---------------------------------------------------------- --------------------
>
>
>
Ignacio Ortiz de Zúñiga
[OZ Software]
https://www.ozs.es
--
[Equipo de Xailer / Xailer team]
https://www.xailer.com
Arriba
Responder

Volver a “Xailer Pro Spanish”