Para MMercado TSBrowse
Posted: Mon Sep 28, 2009 11:04 pm
Hola Sr. Manuel
Tengo algunos problemas con TSBrowse relacionados con el REFRESH:
Tengo 2 DBFs
1. Cuentas.DBF
2. TRANSAC.DBF
Utilizo 2 tsbrowse para mostrar en el de la izq. la lista de cuentas y en der. la lista de los movimientos de cada cuenta.
El primer BROWSE presenta la lista por medio de un arreglo y usando ON CHANGE tomo el valor del elemento correspondiente del arreglo para hacer un SCOPE de la base de datos de transacciones. He puesto un boton con un BROWSE() que me ha permitido comprobar que el SCOPE esta funcionando. El problema es que en el segundo TSBrowse la informacion no se presenta en forma correcta ya que aveces se muestra el 1er registro, otras veces los dos ultimos, etc.
// browse 1
REDEFINE BROWSE oBrw5 ID 101 OF oDlg ;
ON CHANGE TCRED->(OrdScope(0,aTCRED[oBrw5:nAt,2]),OrdScope(1,aTCRED[oBrw5:nAt,2]),DBGOTOP(),oBrw6:GOTOP(),oBrw6:REFRESH())
oBrw5:SetArray(aTCRED)
ADD COLUMN TO oBrw5 DATA ARRAY ELEMENT 1 HEADER "NOMBRE" ALIGN 0,1,1 SIZE 240
ADD COLUMN TO oBrw5 DATA ARRAY ELEMENT 3 HEADER "SALDO" ALIGN 2,1,1 SIZE 70
// browse 2
SELE TCRED
REDEFINE BROWSE oBrw6 ID 102 OF oFld3:aDialogs[3] ALIAS "TCRED"
ADD COLUMN TO oBrw6 DATA FieldWBlock('FECHA',SELECT()) HEADER 'FECHA' SIZE 70 ALIGN 1,1,1
La pregunta es: Esta es la forma correcta de hacer el refresh de la segunda dbf, existe alguna clausula que no este incluyendo.
Gracias por su valioso tiempo
PD. Este mismo problema lo tengo en varias secciones del programa. Antes cuando estaba en FW23 todo estaba de maravilla.
Tengo algunos problemas con TSBrowse relacionados con el REFRESH:
Tengo 2 DBFs
1. Cuentas.DBF
2. TRANSAC.DBF
Utilizo 2 tsbrowse para mostrar en el de la izq. la lista de cuentas y en der. la lista de los movimientos de cada cuenta.
El primer BROWSE presenta la lista por medio de un arreglo y usando ON CHANGE tomo el valor del elemento correspondiente del arreglo para hacer un SCOPE de la base de datos de transacciones. He puesto un boton con un BROWSE() que me ha permitido comprobar que el SCOPE esta funcionando. El problema es que en el segundo TSBrowse la informacion no se presenta en forma correcta ya que aveces se muestra el 1er registro, otras veces los dos ultimos, etc.
// browse 1
REDEFINE BROWSE oBrw5 ID 101 OF oDlg ;
ON CHANGE TCRED->(OrdScope(0,aTCRED[oBrw5:nAt,2]),OrdScope(1,aTCRED[oBrw5:nAt,2]),DBGOTOP(),oBrw6:GOTOP(),oBrw6:REFRESH())
oBrw5:SetArray(aTCRED)
ADD COLUMN TO oBrw5 DATA ARRAY ELEMENT 1 HEADER "NOMBRE" ALIGN 0,1,1 SIZE 240
ADD COLUMN TO oBrw5 DATA ARRAY ELEMENT 3 HEADER "SALDO" ALIGN 2,1,1 SIZE 70
// browse 2
SELE TCRED
REDEFINE BROWSE oBrw6 ID 102 OF oFld3:aDialogs[3] ALIAS "TCRED"
ADD COLUMN TO oBrw6 DATA FieldWBlock('FECHA',SELECT()) HEADER 'FECHA' SIZE 70 ALIGN 1,1,1
La pregunta es: Esta es la forma correcta de hacer el refresh de la segunda dbf, existe alguna clausula que no este incluyendo.
Gracias por su valioso tiempo
PD. Este mismo problema lo tengo en varias secciones del programa. Antes cuando estaba en FW23 todo estaba de maravilla.