Hi, 

I would like to do the same thing. Do you find solution ?

Thank you.

Nma

You simply add this to your code:

Gosub RELIT From GOBJSUB

It doesn't work for me. 

I've got error "TYPGES : unknown variable", and then "@X3.TRT/GOBJSUB$adx(2171)"

I want to refresh the left list after a field action. 

After updating to V12 Patch 19, I receive an error. I think this Subprogram isn't supported anymore. Not a surprise as they are gradually phasing these out.

After updating to V12 Patch 19, I receive an error. I think this Subprogram isn't supported anymore. Not a surprise as they are gradually phasing these out.

No other solutions to refresh the left list by code ? 

Thank you for your help. 

I decided to pursue this further and found that there are several variables beyond TYPGES that are missing. However, the good news is that I found we can capture them in OUVRE and supply them later within a custom Refresh subprogram. 

In OUVRE, capture them like so:

$OUVRE

  Global Integer YCLECUR : YCLECUR = CLECUR
  Global Char YCLECUR1(30) : YCLECUR1 = CLECUR1
  Global Char YCLECUR2(30) : YCLECUR1 = CLECUR2
  Global Integer YTYPGES : YTYPGES = TYPGES
  Global Char YABFIC(30) : YABFIC = ABFIC
  Global Char YCLEPRIM(30) : YCLEPRIM = CLEPRIM
  Global Char YPROGOBJ(30) : YPROGOBJ = PROGOBJ
  Global Integer YVERROU : YVERROU = VERROU
  Global Integer YOVERROU : YOVERROU = OVERROU
  Global Char YSYMBOLE(30) : YSYMBOLE = SYMBOLE
  Global Integer YNBMASK : YNBMASK = NBMASK
  Global Char YWINPROG(30) : YWINPROG = WINPROG
  Global Integer YAMA(dim(AMA)) : YAMA = AMA
  Global Integer AMAINDX : AMAINDX = dim(AMA)
  Global Integer YAIMGLCK : YAIMGLCK = AIMGLCK
Return

Then add and call this custom Refresh subprogram to implement it:

Subprog REFRESH_SCREEN()
Local Integer AMA(AMAINDX)

  TYPGES = YTYPGES
  CLECUR = YCLECUR
  CLECUR1 = YCLECUR1
  CLECUR2 = YCLECUR2
  ABFIC = YABFIC
  CLEPRIM = YCLEPRIM
  PROGOBJ = YPROGOBJ
  VERROU = YVERROU
  OVERROU = YOVERROU
  SYMBOLE = YSYMBOLE
  NBMASK = YNBMASK
  WINPROG = YWINPROG
  AMA = YAMA
  AIMGLCK = YAIMGLCK
  Gosub RELIT From GOBJSUB
End