Ayuda con TSBrowse movimiento del cursor

[Fco_Ozuna]

Hola tenia tiempo de no estar por aqui dando lata, espero que alguien me pueda ayudar en esto.

Tengo un browse con 5 columnas, lo tengo en modo de SetAppendMode( .T. ), estando editando la columna 3 en POSTEDIT, necesito que si el valor es diferente a cero, se mueva al siguiente renglon, si es el ultimo que agrege otro, lo tengo asi pero no funciona:

.....

ADD COLUMN TO ::oLbx2 ; // 3
HEADER "Cargos" ;
SIZE 100 PIXELS ;
DATA FieldWblock( "M_CARGO", Select() ) ;
PICTURE "99999,999.99" ;
FOOTER { || ::aTotal[1] } ;
3DLOOK TRUE ALIGN DT_RIGHT, DT_CENTER, DT_RIGHT;
EDITABLE MOVE DT_MOVE_NEXT

ADD COLUMN TO ::oLbx2 ; // 4
HEADER "Abonos" ;
SIZE 100 PIXELS ;
DATA FieldWblock( "M_ABONO", Select() ) ;
PICTURE "99999,999.99" ;
FOOTER { || ::aTotal[2] } ;
3DLOOK TRUE ALIGN DT_RIGHT, DT_CENTER, DT_RIGHT ;
EDITABLE MOVE DT_MOVE_NEXT

ADD COLUMN TO ::oLbx2 ; // 5
HEADER "Nombre de la Cuenta" ;
SIZE 180 PIXELS ;
DATA (ContCat->Nombre) ;
3DLOOK TRUE ALIGN DT_LEFT, DT_CENTER, DT_CENTER

.....

if uVal # 0
ContMov->( RLock() )
Replace ContMov->M_Abono with 0
ContMov->( DbCommit() )
ContMov->( DbUnLock() )
::oLbx2:aColumns[ 3 ]:nEditMove := DT_MOVE_DOWN
endif

Alguien que me pueda echar una mano con esto.

Gracias de antemano.

Francisco Ozuna

[Armando]

Francisco:

Veo que es la captura de pólizas contables y si entiendo bien la idea es que cuando hayan tecleado el DEBE el HABER no es necesario. Si esto es correcto tal vez te funcione la clausula WHEN en la columna del HABER algo así:

WHEN M_CARGO = 0;

Esto forzará a que si ya registraron el DEBE el HABER se bloquea y avanzará al siguiente registro.

Ojala te ayude

Saludos

[Fco_Ozuna]

Muchas gracias Armando.


Parece ser una opcion muy acertada, hoy la pruebo y te lo comunico.

Muchas gracias.

Francisco Ozuna