Crear Folder

[leandro]

Compañeros del foro tengan buen día...

Lo que pasa es que quiero crear un folder dinamicamente. Este debe tener 12 pestañas
las cuales corresponden a los doce meses del año... pero para evitar la fatiga, pretendo
hacerlo dinamicamente... hasta ahora he hecho lo siguiente:

Code: Select all  Expand view

DEFINE BRUSH oFondo FILE ".\res\res_403.BMP"
DEFINE DIALOG oCuadr1 RESOURCE "orLotesPri" ICON "#8001" TRANSPARENT BRUSH oFondo

  REDEFINE FOLDER oFld2 ID 4008 OF oCuadr1 ;
  PROMPT "Enero","Febrero","Marzo";
  DIALOGS "orLotesCa1","orLotesCa1","orLotesCa1" ON CHANGE (aMes[nOption:=oFld2:nOption])

  For ngrupo:= 1 to 3 step 1
    REDEFINE BUTTONBMP Btn_Limp ID 4003 OF oFld2:aDialogs[ ngrupo ] BITMAP "Blimpi2" TOOLTIP oLamcla:mTfil
    REDEFINE GET oA1og1 VAR oC1vg1[nOption] ID 4002 OF oFld2:aDialogs[ ngrupo ] UPDATE
  Next

  oCuadr1:cTitle := "Tabla Información Lotes"

ACTIVATE DIALOG oCuadr1 NOWAIT  On Init (Centra( oCuadr1 ),oCuadr1:refresh(),BarraLote( oCuadr1 )) CENTERED

 

Pero no me funciona bien, ya que no me toma las variables que estan definidas dentro del array
Alguna idea?
Me hace falta algo?

Saludos

[Antonio Linares]

Leandro,

Que error te dá ?

Copia aqui el error.log gracias

[Armando]

Leandro:

Me parece que debe ser así

Code: Select all  Expand view

DIALOGS "orLotesCa1","orLotesCa1","orLotesCa1" ON CHANGE (aMes[oFld2:nOption])
 

Saludos

[leandro]

Hola a todos gracias por responder

Antonio, no sale ningún error simplemente no funciona, lo hice manual y me funciono, de la siguiente manera:

Code: Select all  Expand view

DEFINE BRUSH oFondo FILE ".\res\res_403.BMP"
DEFINE DIALOG oCuadr1 RESOURCE "orLotesPri" ICON "#8001" TRANSPARENT BRUSH oFondo

  oProgress = TProgress():Redefine( 4004, oCuadr1 )
  oProgress:SetRange( 0, 0 )
  oProgress:SetPos( 0 )

  REDEFINE FOLDER oFld2 ID 4008 OF oCuadr1 ;
  PROMPT "Enero","Febrero","Marzo";
  DIALOGS "orLotesCa1","orLotesCa1","orLotesCa1" ON CHANGE (pCargaLotes2(oFld2:nOption))

  REDEFINE BUTTONBMP Btn_Limp ID 4003 OF oFld2:aDialogs[ 1 ] BITMAP "Blimpi2" TOOLTIP oLamcla:mTfil
  REDEFINE GET oA1og1 VAR oC1vg1 ID 4002 OF oFld2:aDialogs[ 1 ] UPDATE

  REDEFINE BUTTONBMP Btn_Limp ID 4003 OF oFld2:aDialogs[ 2 ] BITMAP "Blimpi2" TOOLTIP oLamcla:mTfil
  REDEFINE GET oA1og1 VAR oC1vg2 ID 4002 OF oFld2:aDialogs[ 2 ] UPDATE

  REDEFINE BUTTONBMP Btn_Limp ID 4003 OF oFld2:aDialogs[ 3 ] BITMAP "Blimpi2" TOOLTIP oLamcla:mTfil
  REDEFINE GET oA1og1 VAR oC1vg3 ID 4002 OF oFld2:aDialogs[ 3 ] UPDATE

  oCuadr1:cTitle := "Tabla Información Lotes"

ACTIVATE DIALOG oCuadr1 NOWAIT  On Init (Centra( oCuadr1 ),oCuadr1:refresh(),BarraLote( oCuadr1 )) CENTERED


 

Pero me gustaria agregarlo a un array por que este ejemplo es para dos controles, pero la verdad es que cada ventana va a tener aproximadamente 15 controles. Alguna idea?

[nageswaragunupudi]

Should not use the loop variable like this
GET oA1og1 VAR oC1vg1[nOption]
in a loop