Refrescar gets desde listbox

[JoseLuis]

Hola amigos

No se porqué ahora me pasa ésto

Tengo un diálogo en que que en la parte izquierda tengo un listbox, con matriculas de vehículos, y en la parte derecha, verticalmente una serie de gets con la información del mismo que se encuentra en el mismo registro de la base de datos, bien pues al cambiar de matrícula no cambia el get, sólo cuando el get recibe el foco, me pone la información que corresponde, y le tengo puesto los refrescos correspondientes:

Code: Select all  Expand view  RUN

      DEFINE FONT OFONT  NAME 'ARIAL' SIZE 0, -10
      DEFINE FONT OFONT1 NAME 'ARIAL' SIZE 0, -10 BOLD
      DEFINE DIALOG oDlg RESOURCE "INTERVALO"
      REDEFINE LISTBOX oLbx FIELDS Coche->Matricula;
        HEADER "Matricula";
                  FIELDSIZES 100;
                  ALIAS "Coche";
                  COLOR CLR_BLACK,  nRGB(226,226,208) ;
        FONT oFont ID 300 OF oDlg
      oLbx:bChange:={|| oDlg:Refresh()}
      REDEFINE SAY oSay                    ID 201 OF oDlg  ;
               FONT oFont1 ;
               COLOR CLR_BLACK, CLR_WHITE
      REDEFINE GET oGet VAR coche->Ifaire ID 101 OF oDlg Update ;
               COLOR CLR_BLUE, CLR_WHITE
      REDEFINE SAY oSay                     ID 202 OF oDlg  ;
               FONT oFont1 ;
               COLOR CLR_BLACK, CLR_WHITE
      REDEFINE GET oGet VAR coche->Ifaceite    ID 102 OF oDlg Update ;
               COLOR CLR_BLUE, CLR_WHITE
      REDEFINE SAY oSay                     ID 203 OF oDlg  ;
               FONT oFont1 ;
               COLOR CLR_BLACK, CLR_WHITE
Etc......

Que se me olvida?

Saludos

[Willi Quintana]

Hola,
Seria mejor (a mi me funciona ok), qye los objetos de tus GET los manejes desde un arreglo

oGet := ARRAY(2)

DEFINE FONT OFONT NAME 'ARIAL' SIZE 0, -10
DEFINE FONT OFONT1 NAME 'ARIAL' SIZE 0, -10 BOLD
DEFINE DIALOG oDlg RESOURCE "INTERVALO"
REDEFINE LISTBOX oLbx FIELDS Coche->Matricula;
HEADER "Matricula";
FIELDSIZES 100;
ALIAS "Coche";
COLOR CLR_BLACK, nRGB(226,226,208) ;
FONT oFont ID 300 OF oDlg
oLbx:bChange:={|| RRefresh(oGet)}
REDEFINE SAY oSay ID 201 OF oDlg ;
FONT oFont1 ;
COLOR CLR_BLACK, CLR_WHITE
REDEFINE GET oGet[1] VAR coche->Ifaire ID 101 OF oDlg Update ;
COLOR CLR_BLUE, CLR_WHITE
REDEFINE SAY oSay ID 202 OF oDlg ;
FONT oFont1 ;
COLOR CLR_BLACK, CLR_WHITE
REDEFINE GET oGet[2] VAR coche->Ifaceite ID 102 OF oDlg Update ;
COLOR CLR_BLUE, CLR_WHITE
REDEFINE SAY oSay ID 203 OF oDlg ;
FONT oFont1 ;
COLOR CLR_BLACK, CLR_WHITE


FUNCTION RRefresh(oObj)
local nLen, nCont
nLen := LEN(oObt)
FOR nCont :=1 to nLen
REFRESH(oObj[nCont])
NEXT nCont
Returb(Nil)
....
..

Salu2

[Daniel Garcia-Gil]

oLbx:bChange:={|| oDlg:Refresh()}

prueba esto.
intentar usar la clausula UPDATE en vez de REFRESH
oLbx:bChange:={|| oDlg:Update()}

debrias usar un OBJ por cada GET y por cada SAY, mira la idea que te dice Willy.
oLbx:bChange:={|| aEval( aGets, {| o | o:refresh() } ) }
recuerda que aGets = Array ( n Elementos Get )

[JoseLuis]

Muchas gracias,

Lo he solucionado gracias a vosotros

Saludos

[Armando Picon]

Lo que te faltó es colocar UPDATE a cada Get y Say