FiveTech Software tech support forums

www.FiveTechSoft.com

Skip to content

Ayuda xbrowse

Post a reply

Ayuda xbrowse

Postby leandro » Sat Mar 11, 2006 10:30 pm

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:
Saludos
LEANDRO AREVALO
Bogotá (Colombia)
https://hymlyma.com
https://hymplus.com/
leandroalfonso111@gmail.com
leandroalfonso111@hotmail.com

[ Embarcadero C++ 7.60 for Win32 ] [ FiveWin 23.07 ] [ xHarbour 1.3.0 Intl. (SimpLex) (Build 20230914) ]
User avatar
leandro
 
Posts: 1676
Joined: Wed Oct 26, 2005 2:49 pm
Location: Colombia
Top

Re: Ayuda xbrowse

Postby wmormar » Sun Mar 12, 2006 1:48 am

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.
William, Morales
Saludos

méxico.sureste
User avatar
wmormar
 
Posts: 1074
Joined: Fri Oct 07, 2005 10:41 pm
Location: México
Top

Postby Marco A. Delgado » Mon Mar 13, 2006 5:16 pm

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  Expand view  RUN

  Pruebalo y me dices..

Saludos

Marco A. Delgado
User avatar
Marco A. Delgado
 
Posts: 126
Joined: Fri Oct 07, 2005 4:20 pm
Location: Veracruz, México
Top

Postby Marco A. Delgado » Mon Mar 13, 2006 5:17 pm

upps... mil disculpas


un momentus torpus.....jeje


Saludos

Marco A. Delgado
User avatar
Marco A. Delgado
 
Posts: 126
Joined: Fri Oct 07, 2005 4:20 pm
Location: Veracruz, México
Top

Aqui esta el codigo...

Postby leandro » Mon Mar 13, 2006 6:55 pm

Así defino el Dialogo con el folder y los demas recursos

Code: Select all  Expand view  RUN
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  Expand view  RUN

******************************************************
*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

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

[ Embarcadero C++ 7.60 for Win32 ] [ FiveWin 23.07 ] [ xHarbour 1.3.0 Intl. (SimpLex) (Build 20230914) ]
User avatar
leandro
 
Posts: 1676
Joined: Wed Oct 26, 2005 2:49 pm
Location: Colombia
Top

Postby Marco A. Delgado » Tue Mar 14, 2006 4:20 pm

Leandro

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

Code: Select all  Expand view  RUN
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  Expand view  RUN
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.
User avatar
Marco A. Delgado
 
Posts: 126
Joined: Fri Oct 07, 2005 4:20 pm
Location: Veracruz, México
Top

ok Gracias

Postby leandro » Tue Mar 14, 2006 6:43 pm

Listo Marco :D de nuevo gracias amigo, estupenda solución. Funciono perfectamente.
Saludos
LEANDRO AREVALO
Bogotá (Colombia)
https://hymlyma.com
https://hymplus.com/
leandroalfonso111@gmail.com
leandroalfonso111@hotmail.com

[ Embarcadero C++ 7.60 for Win32 ] [ FiveWin 23.07 ] [ xHarbour 1.3.0 Intl. (SimpLex) (Build 20230914) ]
User avatar
leandro
 
Posts: 1676
Joined: Wed Oct 26, 2005 2:49 pm
Location: Colombia
Top
Post a reply

Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 57 guests

Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group