topic-30448

Posts: 1818

Joined: Wed Oct 26, 2005 02:49 PM

Crear Folder

Posted: Wed Mar 25, 2015 04:19 PM

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 (fw): Select all Collapse

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

Saludos
LEANDRO AREVALO
Bogotá (Colombia)
https://hymlyma.com
https://hymplus.com/
leandroalfonso111@gmail.com
leandroalfonso111@hotmail.com

[ Turbo Incremental Link64 6.98 Embarcadero 7.70 ] [ FiveWin 25.01 ] [ xHarbour 64 bits) ]

Antonio Linares

Posts: 44162

Joined: Thu Oct 06, 2005 05:47 PM

Re: Crear Folder

Posted: Wed Mar 25, 2015 05:08 PM

Leandro,

Que error te dá ?

Copia aqui el error.log gracias

regards, saludos

Antonio Linares
www.fivetechsoft.com

Armando

Posts: 3358

Joined: Fri Oct 07, 2005 08:20 PM

Re: Crear Folder

Posted: Wed Mar 25, 2015 07:07 PM

Leandro:

Me parece que debe ser así

Code (fw): Select all Collapse

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

Saludos

SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero

leandro

Posts: 1818

Joined: Wed Oct 26, 2005 02:49 PM

Re: Crear Folder

Posted: Wed Mar 25, 2015 07:51 PM

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 (fw): Select all Collapse

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?

Saludos
LEANDRO AREVALO
Bogotá (Colombia)
https://hymlyma.com
https://hymplus.com/
leandroalfonso111@gmail.com
leandroalfonso111@hotmail.com

[ Turbo Incremental Link64 6.98 Embarcadero 7.70 ] [ FiveWin 25.01 ] [ xHarbour 64 bits) ]

nageswaragunupudi

Posts: 10733

Joined: Sun Nov 19, 2006 05:22 AM

Re: Crear Folder

Posted: Thu Mar 26, 2015 06:37 AM

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

Regards

G. N. Rao.

Hyderabad, India

FiveTech Support Forums

Crear Folder

Re: Crear Folder

Re: Crear Folder

Re: Crear Folder

Re: Crear Folder

Continue the discussion