FiveTech Software tech support forums

Agregale oBrw:MakeTotals() despues de salir de la edicion.

Hola amigo como Actualizo los Total en este Archivo TestMerg,prg ya que le agregue el edit


WITH OBJECT oBrw:aCols[ 5 ]
:nEditType := EDIT_GET
:nFooterType := AGGR_SUM
END
pero no actuliza el total solo el gran total
Saludos

... Yes. Very simple oCol:lMergeVert := .t. Please see sample \fwh\samples\testmerg.prg http://imagizer.imageshack.us/v2/xq90/924/3JFUtR.png

Antonio,
Thanks for your suggestion.
Already I had previously seen the code you mention as well the "testmerg.prg" code, but what I need is something like Horacio did.

Adriano: por lo que veo, es muy diferente tu codigo a lo que yo tome del ejemplo \samples\testmerg.prg Sí, cada cabeza es un mundo. con la instruccion "WITH OBJECT oBrw2" y dentro del dialogo las funciones que Cargadato1 y CargaDato2, Esta instruccion te ahorra ...

... contestar, y por postear tu ejemplo que adaptare a mi sistema, por lo que veo, es muy diferente tu codigo a lo que yo tome del ejemplo \samples\testmerg.prg, y se supone que deberia dar mismo resultado, pero con solo ver tu codigo es muy diferente con la instruccion "WITH OBJECT oBrw2" ...

Rao

The number was 3 .. it created a new group. .. If I click on the line, it repaints otherwise it does not refresh

Rick

if the field value of Goal of the new record is 2, then you will see it grouped under 2

Rao Thank you .. that solved the error .. but when the new record is added .. the row does not seem to be painted properly even though I refreshed the browse.. see pic below. The same problem happens with the .dbf version when a record is added. Thanks Rick Lipkin http://img228.imageshack...

In the function _Manual, before oBrw:Refresh(), please insert the following code:

Code: Select all  Expand view

oBrw:Goal:WorkMergeData()
oBrw:Obj1:WorkMergeData()

To All I have created a self contained sample derived from TestMerg.prg. I have tried it with .dbf as well as using MS Access ( ado ) and found the .dbf version had some painting problems but did not error like the ADO version. Please compile this example ...

Please try \fwh\samples\testmerg.prg for a similar example.

... I tested my code and added the two columns I wanted merged like in the .. TestMerg.prg sample : // Following two lines for vertical cell merging oBrw:Customer:lMergeVert := .t. oBrw:Description:lMergeVert := .t. But it did ...

Francisco en "Samples" fíjate en Testmerg.prg. Ahi hace lo que vos queres.
Un abrazo.

Another much more better solution:

Merge columns similar to merge rows, see testmerg.prg

Unfortunately this feature is not (yet) implemented in xBrowse.