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 codigo y lo hace mas legible, sin embargo, puedes prescindir de ella, si lo deseas.
Respecto a donde coloco las funciones Cargadatos1() y Cargadatos2() es porque les envio los objetos oBrw1 y oBrw2, una vez definidos estos, ademas de enviarle los arrays, ya que es precisamente en estas funciones es donde cargo estos arrays con los datos de las dbfs correspondientes. De esta manera me aseguro que al pintarse por primera vez los browses, ya muestren los datos. Posteriormente, desde el primer oBrw, en el methodo bChange llamo a la funcion CargaDatos2(),
Fijate como declaro los arrays :
- Code: Select all Expand view
- local aDatos1:={{"","","",""}}, aDatos2:={{"","",""}}
Deben declararse con tantos elementos como columnas tendrá el Browse. Luego, en las mencionadas funciones, los recargo con :SetArray()
Espero te funcione, y estamos a la orden, igual que Cristóbal y resto de Fivewinners.
Saludos.
