Ayuda xbrowse

Post Reply
User avatar
leandro
Posts: 958
Joined: Wed Oct 26, 2005 2:49 pm
Location: Colombia
Contact:
Contact leandro

Ayuda xbrowse

Post 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:
Saludos
LEANDRO ALFONSO
SISTEMAS LYMA - BASE
Bogotá (Colombia)
[ FWH 19.09 ] [ xHarbour 1.2.3 Intl. (SimpLex) (Build 20190613) ] [ Embarcadero C++ 7.30 for Win32 ]
Top
User avatar
wmormar
Posts: 1050
Joined: Fri Oct 07, 2005 10:41 pm
Location: México
Contact:
Contact wmormar

Re: Ayuda xbrowse

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

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

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

Post by Marco A. Delgado »

upps... mil disculpas


un momentus torpus.....jeje


Saludos

Marco A. Delgado
Top
User avatar
leandro
Posts: 958
Joined: Wed Oct 26, 2005 2:49 pm
Location: Colombia
Contact:
Contact leandro

Aqui esta el codigo...

Post 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
Saludos
LEANDRO ALFONSO
SISTEMAS LYMA - BASE
Bogotá (Colombia)
[ FWH 19.09 ] [ xHarbour 1.2.3 Intl. (SimpLex) (Build 20190613) ] [ Embarcadero C++ 7.30 for Win32 ]
Top
User avatar
Marco A. Delgado
Posts: 126
Joined: Fri Oct 07, 2005 4:20 pm
Location: Veracruz, México

Post 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.
Top
User avatar
leandro
Posts: 958
Joined: Wed Oct 26, 2005 2:49 pm
Location: Colombia
Contact:
Contact leandro

ok Gracias

Post by leandro »

Listo Marco :D de nuevo gracias amigo, estupenda solución. Funciono perfectamente.
Saludos
LEANDRO ALFONSO
SISTEMAS LYMA - BASE
Bogotá (Colombia)
[ FWH 19.09 ] [ xHarbour 1.2.3 Intl. (SimpLex) (Build 20190613) ] [ Embarcadero C++ 7.30 for Win32 ]
Top
Post Reply

Return to “FiveWin para Harbour/xHarbour”