FiveTech Software tech support forums

www.FiveTechSoft.com
https://forums.fivetechsoft.com/

Ayuda xbrowse

https://forums.fivetechsoft.com/viewtopic.php?f=6&t=2154

Page 1 of 1

Ayuda xbrowse

Posted: Sat Mar 11, 2006 10:30 pm
by leandro
Amigos del foro tengo el siguiente problema->

Defino un folder con tres pestañas, cada una contiene unicamente un xbrowse. Al hacer clic sobre cada pestaña se llena un array con datos de una consulta de mysq, luego se los asigno al array del xbrowse así:

aBrw:=array(resultado consulta sql)
oBrw:SetArray(aBrw)
oBrw:refresh()

luego refresco el xbrowse....

Pero cuando hago esto no me refresca los titulos de las columnas ni los tamaños de las columnas, estas las defini al momento de REDEFINE el xbrowse en el dialogo.

Como hago para actualizar esos datos en tiempo de ejecuccion? ó estoy haciendo algo incorrectamente?

Alguien me puede ayudar? :shock:

Re: Ayuda xbrowse

Posted: Sun Mar 12, 2006 1:48 am
by wmormar
leandro wrote:Amigos del foro tengo el siguiente problema->

Defino un folder con tres pestañas, cada una contiene unicamente un xbrowse. Al hacer clic sobre cada pestaña se llena un array con datos de una consulta de mysq, luego se los asigno al array del xbrowse así:

aBrw:=array(resultado consulta sql)
oBrw:SetArray(aBrw)
oBrw:refresh()

luego refresco el xbrowse....

Pero cuando hago esto no me refresca los titulos de las columnas ni los tamaños de las columnas, estas las defini al momento de REDEFINE el xbrowse en el dialogo.

Como hago para actualizar esos datos en tiempo de ejecuccion? ó estoy haciendo algo incorrectamente?

Alguien me puede ayudar? :shock:
Mi estimado, mi estimado,

Lo he resuelto, volviendo a redefinir los titulos y columnas, pues sería como volver (por no decir, rehacer) el xBrowse de nuevo.

No sería lo mas elegante, pero, me funciona, si alguien tiene una opción adicional, agradecería también la comparta.

Posted: Mon Mar 13, 2006 5:16 pm
by Marco A. Delgado
Hola Leandro

Podria poner un poco de tu codigo, ahora si utilizas xharbour y array, deberias de hacer algo como esto:

[/code]
aBrw:=array(resultado consulta sql)
oBrw:aArrayData := ACLONE(aBrw)
oBrw:refresh()

Code: Select all


  Pruebalo y me dices..

Saludos

 Marco A. Delgado

Posted: Mon Mar 13, 2006 5:17 pm
by Marco A. Delgado
upps... mil disculpas


un momentus torpus.....jeje


Saludos

Marco A. Delgado

Aqui esta el codigo...

Posted: Mon Mar 13, 2006 6:55 pm
by leandro
Así defino el Dialogo con el folder y los demas recursos

Code: Select all

DEFINE DIALOG oDlg RESOURCE "plano" OF oWinp

   REDEFINE BUTTONBMP Btng ID 10   OF oDlg BITMAP "Bsalid" ACTION oDlg:end()
   REDEFINE BUTTONBMP Btna ID 4033 OF oDlg BITMAP "Bagre" ACTION pAgreDat()
   REDEFINE BUTTONBMP Btnm ID 4034 OF oDlg BITMAP "Bmodi"
   REDEFINE BUTTONBMP Btnb ID 4035 OF oDlg BITMAP "Bborr"

   REDEFINE GET oT1og01 VAR oT1vg01 ID 4006 OF oDlg UPDATE
   REDEFINE GET oT1og02 VAR oT1vg02 ID 4007 OF oDlg UPDATE VALID(pVerDat(),.T.)
   REDEFINE GET oT1og03 VAR oT1vg03 ID 4009 OF oDlg UPDATE
   REDEFINE GET oT1og04 VAR oT1vg04 ID 4008 OF oDlg UPDATE
   REDEFINE GET oT1og05 VAR oT1vg05 ID 4012 OF oDlg UPDATE PICTURE "999,999"
   REDEFINE GET oT1og06 VAR oT1vg06 ID 4017 OF oDlg UPDATE PICTURE "999,999"
   REDEFINE GET oT1og07 VAR oT1vg07 ID 4014 OF oDlg UPDATE PICTURE "999,999"
   REDEFINE GET oT1og08 VAR oT1vg08 ID 4018 OF oDlg UPDATE PICTURE "999,999"
   REDEFINE GET oT1og09 VAR oT1vg09 ID 4016 OF oDlg UPDATE PICTURE "999,999"
   REDEFINE GET oT1og10 VAR oT1vg10 ID 4019 OF oDlg UPDATE PICTURE "999,999"
   REDEFINE GET oT1og11 VAR oT1vg11 ID 4025 OF oDlg UPDATE PICTURE "999,999"
   REDEFINE GET oT1og12 VAR oT1vg12 ID 4028 OF oDlg UPDATE PICTURE "999,999"
   REDEFINE GET oT1og13 VAR oT1vg13 ID 4027 OF oDlg UPDATE PICTURE "999,999"
   REDEFINE GET oT1og14 VAR oT1vg14 ID 4029 OF oDlg UPDATE PICTURE "999,999"

   REDEFINE SAY oT3os01 ID 4003 OF oDlg COLOR oLamcla:cClr5
   REDEFINE SAY oT3os02 ID 4002 OF oDlg COLOR oLamcla:cClr5
   REDEFINE SAY oT3os03 ID 4004 OF oDlg COLOR oLamcla:cClr5
   REDEFINE SAY oT3os04 ID 4005 OF oDlg COLOR oLamcla:cClr5
   REDEFINE SAY oT3os05 ID 4011 OF oDlg COLOR oLamcla:cClr5
   REDEFINE SAY oT3os06 ID 4013 OF oDlg COLOR oLamcla:cClr5
   REDEFINE SAY oT3os07 ID 4015 OF oDlg COLOR oLamcla:cClr5
   REDEFINE SAY oT3os08 ID 4024 OF oDlg COLOR oLamcla:cClr5
   REDEFINE SAY oT3os09 ID 4026 OF oDlg COLOR oLamcla:cClr5

   REDEFINE FOLDER oFld1 ID 11 OF oDlg ;
   PROMPT "&Semana 1","S&emana 2","Se&mana 3";
   DIALOGS "Plano1","Plano2","Plano4" ON CHANGE (semana:=oFld1:nOption,semana())

   *PRIMERA PESTAÑA

   oBrw := TXBrowse():New( oFld1:aDialogs[ 1 ] )
   oBrw:SetArray(aBrw1)

   oBrw:SetColor( CLR_WHITE, CLR_BLACK )
   oBrw:nMarqueeStyle       := MARQSTYLE_HIGHLCELL //MARQSTYLE_HIGHLROW
   //oBrw:nColDividerStyle    := LINESTYLE_RAISED
   //oBrw:nRowDividerStyle    := LINESTYLE_BLACK
   oBrw:SetColor(CLR_BLACK, RGB(255,255,235))
   oBrw:bClrSelFocus        := {|| { CLR_WHITE, RGB(24, 116, 205) } }
   oBrw:nHeaderLines        := 1
   oBrw:lColDividerComplete := .t.
   //oBrw:lRecordSelector     := .t.

   //oBrw:nFreeze             := 1 //DEJA ESTABLE LA COLUMNA
   //oBrw:blDblClick          := {|| If( (AllTrim(tUsuario) = "Admon.Rec" .OR. AllTrim(tUsuario) = "Supervisor"), NuevaRec( oWndPrinc, .F. ), ) }
   //oBrw:bKeyDown            := { | nKey | KeyExecute( nKey, oWndPrinc ) }

   oBrw:aCols[1]:cHeader       := "Concepto"
   oBrw:aCols[1]:bStrData      := { || IF(aBrw1[oBrw:nArrayAt][ 11]="071","Nuevas",;
                                      (IF(aBrw1[oBrw:nArrayAt][ 11]="072","Reingresos",;
   				      (IF(aBrw1[oBrw:nArrayAt][ 11]="073","P.Egresos",;
   				      (IF(aBrw1[oBrw:nArrayAt][ 11]="074","Visitas",;
   				      (IF(aBrw1[oBrw:nArrayAt][ 11]="075","Motivación",;
   				      (IF(aBrw1[oBrw:nArrayAt][ 11]="076","Ventas",;
   				      (IF(aBrw1[oBrw:nArrayAt][ 11]="077","Ped.Entregados",;
   				      (IF(aBrw1[oBrw:nArrayAt][ 11]="078","R.Cartera",;
   			              (IF(aBrw1[oBrw:nArrayAt][ 11]="079","I.S.M.",;
   			       	      (IF(aBrw1[oBrw:nArrayAt][ 11]="080","I.S.V.",;
   				      (IF(aBrw1[oBrw:nArrayAt][ 11]="081","I.S.CONSIG.",(" "))))))))))))))))))))))}
   oBrw:aCols[1]:nHeadStrAlign := AL_LEFT
   oBrw:aCols[1]:nDataStrAlign := AL_LEFT
   oBrw:aCols[1]:nWidth        := 90

   oBrw:aCols[2]:cHeader       := "Lunes"
   oBrw:aCols[2]:bStrData      := { || Transform(aBrw1[oBrw:nArrayAt][ 4], "999,999" ) }
   oBrw:aCols[2]:nHeadStrAlign := AL_RIGHT
   oBrw:aCols[2]:nDataStrAlign := AL_RIGHT
   oBrw:aCols[2]:nWidth        := 60

   oBrw:aCols[3]:cHeader       := "Martes"
   oBrw:aCols[3]:bStrData      := { || Transform(aBrw1[oBrw:nArrayAt][ 5], "999,999" ) }
   oBrw:aCols[3]:nHeadStrAlign := AL_RIGHT
   oBrw:aCols[3]:nDataStrAlign := AL_RIGHT
   oBrw:aCols[3]:nWidth        := 60

   oBrw:aCols[4]:cHeader       := "Miércoles"
   oBrw:aCols[4]:bStrData      := { || Transform(aBrw1[oBrw:nArrayAt][ 6], "999,999" ) }
   oBrw:aCols[4]:nHeadStrAlign := AL_RIGHT
   oBrw:aCols[4]:nDataStrAlign := AL_RIGHT
   oBrw:aCols[4]:nWidth        := 60

   oBrw:aCols[5]:cHeader       := "Jueves"
   oBrw:aCols[5]:bStrData      := { || Transform(aBrw1[oBrw:nArrayAt][ 7], "999,999" ) }
   oBrw:aCols[5]:nHeadStrAlign := AL_RIGHT
   oBrw:aCols[5]:nDataStrAlign := AL_RIGHT
   oBrw:aCols[5]:nWidth        := 60

   oBrw:aCols[6]:cHeader       := "Viernes"
   oBrw:aCols[6]:bStrData      := { || Transform(aBrw1[oBrw:nArrayAt][ 8], "999,999" ) }
   oBrw:aCols[6]:nHeadStrAlign := AL_RIGHT
   oBrw:aCols[6]:nDataStrAlign := AL_RIGHT
   oBrw:aCols[6]:nWidth        := 60

   oBrw:aCols[7]:cHeader       := "Sábado"
   oBrw:aCols[7]:bStrData      := { || Transform(aBrw1[oBrw:nArrayAt][ 9], "999,999" ) }
   oBrw:aCols[7]:nHeadStrAlign := AL_RIGHT
   oBrw:aCols[7]:nDataStrAlign := AL_RIGHT
   oBrw:aCols[7]:nWidth        := 60

   oBrw:aCols[8]:cHeader       := "Total"
   oBrw:aCols[8]:bStrData      := { || Transform(aBrw1[oBrw:nArrayAt][ 12], "999,999" ) }
   oBrw:aCols[8]:nHeadStrAlign := AL_RIGHT
   oBrw:aCols[8]:nDataStrAlign := AL_RIGHT
   oBrw:aCols[8]:nWidth        := 60

   oBrw:DelCol(9)
   oBrw:DelCol(10)
   oBrw:DelCol(11)
   oBrw:DelCol(12)

   oBrw:CreateFromResource( 101 )

   *SEGUNDA PESTAÑA

   oBrw1 := TXBrowse():New( oFld1:aDialogs[ 2 ] )
   oBrw1:SetArray(aBrw2)

   oBrw1:SetColor( CLR_WHITE, CLR_BLACK )
   oBrw1:nMarqueeStyle       := MARQSTYLE_HIGHLCELL
   oBrw1:SetColor(CLR_BLACK, RGB(255,255,235))
   oBrw1:bClrSelFocus        := {|| { CLR_WHITE, RGB(24, 116, 205) } }
   oBrw1:nHeaderLines        := 1
   oBrw1:lColDividerComplete := .t.

   oBrw1:aCols[1]:cHeader       := "Concepto"
   oBrw1:aCols[1]:bStrData      := { || IF(aBrw2[oBrw1:nArrayAt][ 11]="071","Nuevas",;
                                      (IF(aBrw2[oBrw1:nArrayAt][ 11]="072","Reingresos",;
   				      (IF(aBrw2[oBrw1:nArrayAt][ 11]="073","P.Egresos",;
   				      (IF(aBrw2[oBrw1:nArrayAt][ 11]="074","Visitas",;
   				      (IF(aBrw2[oBrw1:nArrayAt][ 11]="075","Motivación",;
   				      (IF(aBrw2[oBrw1:nArrayAt][ 11]="076","Ventas",;
   				      (IF(aBrw2[oBrw1:nArrayAt][ 11]="077","Ped.Entregados",;
   				      (IF(aBrw2[oBrw1:nArrayAt][ 11]="078","R.Cartera",;
   			              (IF(aBrw2[oBrw1:nArrayAt][ 11]="079","I.S.M.",;
   			       	      (IF(aBrw2[oBrw1:nArrayAt][ 11]="080","I.S.V.",;
   				      (IF(aBrw2[oBrw1:nArrayAt][ 11]="081","I.S.CONSIG.",(" "))))))))))))))))))))))}
   oBrw1:aCols[1]:nHeadStrAlign := AL_LEFT
   oBrw1:aCols[1]:nDataStrAlign := AL_LEFT
   oBrw1:aCols[1]:nWidth        := 90

   oBrw1:aCols[2]:cHeader       := "Lunes"
   oBrw1:aCols[2]:bStrData      := { || Transform(aBrw2[oBrw1:nArrayAt][ 4], "999,999" ) }
   oBrw1:aCols[2]:nHeadStrAlign := AL_RIGHT
   oBrw1:aCols[2]:nDataStrAlign := AL_RIGHT
   oBrw1:aCols[2]:nWidth        := 60

   oBrw1:aCols[3]:cHeader       := "Martes"
   oBrw1:aCols[3]:bStrData      := { || Transform(aBrw2[oBrw1:nArrayAt][ 5], "999,999" ) }
   oBrw1:aCols[3]:nHeadStrAlign := AL_RIGHT
   oBrw1:aCols[3]:nDataStrAlign := AL_RIGHT
   oBrw1:aCols[3]:nWidth        := 60

   oBrw1:aCols[4]:cHeader       := "Miércoles"
   oBrw1:aCols[4]:bStrData      := { || Transform(aBrw2[oBrw1:nArrayAt][ 6], "999,999" ) }
   oBrw1:aCols[4]:nHeadStrAlign := AL_RIGHT
   oBrw1:aCols[4]:nDataStrAlign := AL_RIGHT
   oBrw1:aCols[4]:nWidth        := 60

   oBrw1:aCols[5]:cHeader       := "Jueves"
   oBrw1:aCols[5]:bStrData      := { || Transform(aBrw2[oBrw1:nArrayAt][ 7], "999,999" ) }
   oBrw1:aCols[5]:nHeadStrAlign := AL_RIGHT
   oBrw1:aCols[5]:nDataStrAlign := AL_RIGHT
   oBrw1:aCols[5]:nWidth        := 60

   oBrw1:aCols[6]:cHeader       := "Viernes"
   oBrw1:aCols[6]:bStrData      := { || Transform(aBrw2[oBrw1:nArrayAt][ 8], "999,999" ) }
   oBrw1:aCols[6]:nHeadStrAlign := AL_RIGHT
   oBrw1:aCols[6]:nDataStrAlign := AL_RIGHT
   oBrw1:aCols[6]:nWidth        := 60

   oBrw1:aCols[7]:cHeader       := "Sábado"
   oBrw1:aCols[7]:bStrData      := { || Transform(aBrw2[oBrw1:nArrayAt][ 9], "999,999" ) }
   oBrw1:aCols[7]:nHeadStrAlign := AL_RIGHT
   oBrw1:aCols[7]:nDataStrAlign := AL_RIGHT
   oBrw1:aCols[7]:nWidth        := 60

   oBrw1:aCols[8]:cHeader       := "Total"
   oBrw1:aCols[8]:bStrData      := { || Transform(aBrw2[oBrw1:nArrayAt][ 12], "999,999" ) }
   oBrw1:aCols[8]:nHeadStrAlign := AL_RIGHT
   oBrw1:aCols[8]:nDataStrAlign := AL_RIGHT
   oBrw1:aCols[8]:nWidth        := 60

   oBrw1:DelCol(9)
   oBrw1:DelCol(10)
   oBrw1:DelCol(11)
   oBrw1:DelCol(12)

   oBrw1:CreateFromResource( 102 )

   *TERCERA PESTAÑA

   oBrw2 := TXBrowse():New( oFld1:aDialogs[ 3 ] )
   oBrw2:SetArray(aBrw3)

   oBrw2:SetColor( CLR_WHITE, CLR_BLACK )
   oBrw2:nMarqueeStyle       := MARQSTYLE_HIGHLCELL
   oBrw2:SetColor(CLR_BLACK, RGB(255,255,235))
   oBrw2:bClrSelFocus        := {|| { CLR_WHITE, RGB(24, 116, 205) } }
   oBrw2:nHeaderLines        := 1
   oBrw2:lColDividerComplete := .t.

   oBrw2:aCols[1]:cHeader       := "Concepto"
   oBrw2:aCols[1]:bStrData      := { || IF(aBrw3[oBrw2:nArrayAt][ 11]="071","Nuevas",;
                                      (IF(aBrw3[oBrw2:nArrayAt][ 11]="072","Reingresos",;
   				      (IF(aBrw3[oBrw2:nArrayAt][ 11]="073","P.Egresos",;
   				      (IF(aBrw3[oBrw2:nArrayAt][ 11]="074","Visitas",;
   				      (IF(aBrw3[oBrw2:nArrayAt][ 11]="075","Motivación",;
   				      (IF(aBrw3[oBrw2:nArrayAt][ 11]="076","Ventas",;
   				      (IF(aBrw3[oBrw2:nArrayAt][ 11]="077","Ped.Entregados",;
   				      (IF(aBrw3[oBrw2:nArrayAt][ 11]="078","R.Cartera",;
   			              (IF(aBrw3[oBrw2:nArrayAt][ 11]="079","I.S.M.",;
   			       	      (IF(aBrw3[oBrw2:nArrayAt][ 11]="080","I.S.V.",;
   				      (IF(aBrw3[oBrw2:nArrayAt][ 11]="081","I.S.CONSIG.",(" "))))))))))))))))))))))}
   oBrw2:aCols[1]:nHeadStrAlign := AL_LEFT
   oBrw2:aCols[1]:nDataStrAlign := AL_LEFT
   oBrw2:aCols[1]:nWidth        := 90

   oBrw2:aCols[2]:cHeader       := "Lunes"
   oBrw2:aCols[2]:bStrData      := { || Transform(aBrw3[oBrw2:nArrayAt][ 4], "999,999" ) }
   oBrw2:aCols[2]:nHeadStrAlign := AL_RIGHT
   oBrw2:aCols[2]:nDataStrAlign := AL_RIGHT
   oBrw2:aCols[2]:nWidth        := 60

   oBrw2:aCols[3]:cHeader       := "Martes"
   oBrw2:aCols[3]:bStrData      := { || Transform(aBrw3[oBrw2:nArrayAt][ 5], "999,999" ) }
   oBrw2:aCols[3]:nHeadStrAlign := AL_RIGHT
   oBrw2:aCols[3]:nDataStrAlign := AL_RIGHT
   oBrw2:aCols[3]:nWidth        := 60

   oBrw2:aCols[4]:cHeader       := "Miércoles"
   oBrw2:aCols[4]:bStrData      := { || Transform(aBrw3[oBrw2:nArrayAt][ 6], "999,999" ) }
   oBrw2:aCols[4]:nHeadStrAlign := AL_RIGHT
   oBrw2:aCols[4]:nDataStrAlign := AL_RIGHT
   oBrw2:aCols[4]:nWidth        := 60

   oBrw2:aCols[5]:cHeader       := "Jueves"
   oBrw2:aCols[5]:bStrData      := { || Transform(aBrw3[oBrw2:nArrayAt][ 7], "999,999" ) }
   oBrw2:aCols[5]:nHeadStrAlign := AL_RIGHT
   oBrw2:aCols[5]:nDataStrAlign := AL_RIGHT
   oBrw2:aCols[5]:nWidth        := 60

   oBrw2:aCols[6]:cHeader       := "Viernes"
   oBrw2:aCols[6]:bStrData      := { || Transform(aBrw3[oBrw2:nArrayAt][ 8], "999,999" ) }
   oBrw2:aCols[6]:nHeadStrAlign := AL_RIGHT
   oBrw2:aCols[6]:nDataStrAlign := AL_RIGHT
   oBrw2:aCols[6]:nWidth        := 60

   oBrw2:aCols[7]:cHeader       := "Sábado"
   oBrw2:aCols[7]:bStrData      := { || Transform(aBrw3[oBrw2:nArrayAt][ 9], "999,999" ) }
   oBrw2:aCols[7]:nHeadStrAlign := AL_RIGHT
   oBrw2:aCols[7]:nDataStrAlign := AL_RIGHT
   oBrw2:aCols[7]:nWidth        := 60

   oBrw2:aCols[8]:cHeader       := "Total"
   oBrw2:aCols[8]:bStrData      := { || Transform(aBrw3[oBrw2:nArrayAt][ 12], "999,999" ) }
   oBrw2:aCols[8]:nHeadStrAlign := AL_RIGHT
   oBrw2:aCols[8]:nDataStrAlign := AL_RIGHT
   oBrw2:aCols[8]:nWidth        := 60

   oBrw2:DelCol(9)
   oBrw2:DelCol(10)
   oBrw2:DelCol(11)
   oBrw2:DelCol(12)

   oBrw2:CreateFromResource( 103 )

oDlg:cTitle := "Captura Información"
oT1og01:disable()

ACTIVATE DIALOG oDlg
En esta funcion actualizo los arrays y los asigno al xbrowse y refresco

Code: Select all


******************************************************
*actualiza el array acorde a la seleccion de la semana
******************************************************
PROC semana()

aData:={aBrw1,aBrw2,aBrw3}
vfsem:=alltrim(str(semana))
MSGINFO( "SELECT * from " + oLamcla:tMovi +" WHERE Campana='"+oT1vg02+"' AND Zona='"+oT1vg01+"' AND Semana="+vfsem)

oTable := oLamcla:oServer:Query( "SELECT * from " + oLamcla:tMovi +" WHERE Campana='"+oT1vg02+"' AND Zona='"+oT1vg01+"' AND Semana="+vfsem )
oTable:GoTop()
nReg   := oTable:Reccount()
nLen   := 0
nMax   := nReg
IF Empty(nReg)
  aData[semana] := Array(1)
  nLen++
  aData[semana][nLen] := ({ 0,"","","","","","","","","","",0})
  Asize( aData[semana], nLen )
ELSE
  aData[semana] := Array(nReg)
  DO WHILE !oTable:Eof()
    oTable:GetRow()
    nLen++
    IF nLen > nMax
      aSize( aData[semana], (nMax += K_Ajuste))
    ENDIF
    aData[semana][nLen] := ({ oTable:FieldGet('Consecutivo'),oTable:FieldGet('Campana'),oTable:FieldGet('Zona'),;
                              oTable:FieldGet('Lunes'),oTable:FieldGet('Martes'),oTable:FieldGet('Miercoles'),;
                              oTable:FieldGet('Jueves'),oTable:FieldGet('Viernes'),oTable:FieldGet('Sabado'),;
                              oTable:FieldGet('Semana'),oTable:FieldGet('Concepto'),oTable:FieldGet('Total') 	})
    oTable:Skip()
  ENDDO
  Asize( aData[semana], nLen )
ENDIF
oTable:Destroy()
CursorArrow()

IF semana=1
 oBrw:SetArray(aData[semana])
 oBrw:refresh()
ELSEIF semana=2
 oBrw1:SetArray(aData[semana])
 oBrw1:refresh()
ELSEIF semana=3
 oBrw2:SetArray(aData[semana])
 oBrw2:refresh()
ENDIF

Posted: Tue Mar 14, 2006 4:20 pm
by Marco A. Delgado
Leandro

esta bien como lo haces pero en tu codigo tienes esto:

Code: Select all

IF semana=1 
 oBrw:SetArray(aData[semana]) 
 oBrw:refresh() 
ELSEIF semana=2 
 oBrw1:SetArray(aData[semana]) 
 oBrw1:refresh() 
ELSEIF semana=3 
 oBrw2:SetArray(aData[semana]) 
 oBrw2:refresh() 
ENDIF
cambialo por algo asi:

Code: Select all

IF semana=1 
 oBrw:aArrayData := ACLONE(aData[semana]) 
 oBrw:refresh() 
ELSEIF semana=2 
 oBrw1:aArrayData := ACLONE(aData[semana]) 
 oBrw1:refresh() 
ELSEIF semana=3 
 oBrw2:aArrayData := ACLONE(aData[semana]) 
 oBrw2:refresh() 
ENDIF
pruebalo y me cuentas

Saludos

Marco A. Delgado.

ok Gracias

Posted: Tue Mar 14, 2006 6:43 pm
by leandro
Listo Marco :D de nuevo gracias amigo, estupenda solución. Funciono perfectamente.
All times are UTC
Page 1 of 1

Powered by phpBB® Forum Software © phpBB Limited