btnbmp

[surGom]

Hice un prg con la vista de 50 botones y el código que implemente fue primero fue el mas o menos fue el siguiente

for z = 1 to 50 // cantidad de cheques

REDEFINE BTNBMP btn[z] RESOURCE cResource(oCheque) ID (nId +z ) CENTER PROMPT (oCheque:numero) ACTION CAMBIOCH(ocheque) OF ODLG UPDATE

oCheque:skip()
next

//

Funcinó bien salvo cuando presionaba cualquier boton siempre iba al útlimo

el código final fue repetir 50 veces el mismo código , y en vez de usar database usar un array:

REDEFINE BTNBMP btn[1] RESOURCE cResource(aDetalle[ 1,2],aDetalle[ 1,5],aDetalle[1,6]) ID (nId) CENTER PROMPT (aDetalle[ 1,1]) ACTION CAMBIOCH(aDetalle[1,7],oCheque,btn[1],ODLG) OF ODLG UPDATE

mi pregunta es la siguiente se puede reducir este código como quise hacer más arriba


Gracias

[Patricio Avalos Aguirre]

hola

Revisa este post, debe ser algo similar

http://forums.fivetechsoft.com/viewtopic.php?t=8422&start=0&postdays=0&postorder=asc&highlight=patricio+avalos