Problema con oDbBrowse:MoveCol()

[Bingen Ugaldebere]

***************************** Registro de errores *****************************
Fecha: 18-09-2007
Hora: 08:40:06
Memoria libre: 815.43Kb /2046.94Kb
Area actual: 36
C: HD Size: 21.49Gb /74.53Gb
------------------------- Información del compilador --------------------------
Versión Xailer: Xailer 1.6.5 Version 1.65
Compilador: xHarbour build 0.99.61 Intl. (SimpLex) PCode Version: 7
Compilador C/C++: Borland C++ 5.5.1
Plataforma: Windows NT Professional 6.00.6000
----------------------- Información detallada del error -----------------------
Subsistema: BASE
Código de error: 1132
Estado: .F.
Descripción: Error de rango
Operación: acceso al array
Argumentos: [ 1] = Tipo: A Valor: [ 2] = Tipo: N Valor: 22
Fichero:
Código error SO: 0
Pila de llamadas:
(b)XBROWSE:XBROWSE (194)
TDBBROWSE:COLATPOS (0)
TDBBROWSE:MOVECOL (1170)
TBUSCADOR:BUTTONDOWNCLICK (451)
TBUTTON:ONCLICK (0)
TBUTTON:CLICK (99)
(b)XCONTROL:XCONTROL (140)
TBUTTON:COMMAND (0)
TFOLDERPAGE:WMCOMMAND (253)
TBUSCADOR:SHOWMODAL (0)
TFORMUSUARIOS:OPTIONLIST1ITEM6CLICK (179)
TOPTIONITEM:ONCLICK (0)
TOPTIONITEM:CLICK (273)
TOPTIONLIST:WMLBUTTONDOWN (0)
RUNFORM (0)
TAPPLICATION:RUN (209)
MAIN (16)
Argumentos :
[ 1] = A
[ 2] = N 22
Free Variable Space (KB) 23069659136
RDDs Linkados en la aplicación
____________________________________________________________ __________________
DBF
DBFFPT
DBFBLOB
DBFCDX
DBFNTX
ADS
ADT
ADSCDX
ADSNTX
DataBases en uso DbfStatus()
____________________________________________________________ __________________
Area 1: ACCIONES RddName: ADSCDX
============================================================
RecNo RecCount BOF EOF Fields 1 8 .F. .F. 1
TagName 1 ACCION En uso=> ACCION
Area 2: CEE RddName: ADSCDX
============================================================
RecNo RecCount BOF EOF Fields 1 27 .F. .F. 1
TagName 1 PAIS En uso=> PAIS
Area 3: CNPA RddName: ADSCDX
============================================================
RecNo RecCount BOF EOF Fields 2 9386 .F. .F. 2
TagName 1 CODIGO En uso=> CODIGO
Area 4: EMPRESASCE RddName: ADSCDX
============================================================
RecNo RecCount BOF EOF Fields 1 0 .T. .T. 3
TagName 1 CODIGO En uso=> CODIGO
Area 5: EMPRESASOF RddName: ADSCDX
============================================================
RecNo RecCount BOF EOF Fields 1 0 .T. .T. 7
TagName 1 CODIGO En uso=> CODIGO
Area 6: EMPRESASSU RddName: ADSCDX
============================================================
RecNo RecCount BOF EOF Fields 1 0 .T. .T. 6
TagName 1 CODIGO En uso=> CODIGO
Area 7: EMPRESASVI RddName: ADSCDX
============================================================
RecNo RecCount BOF EOF Fields 1 0 .T. .T. 3
TagName 1 CODIGO En uso=> CODIGO
Area 8: EMPRESAS RddName: ADSCDX
============================================================
RecNo RecCount BOF EOF Fields 10 247 .F. .F. 59
TagName 1 CIF En uso=> CIF
2 NOMBRE NOMBRE
Area 9: IAE RddName: ADSCDX
============================================================
RecNo RecCount BOF EOF Fields 1 1138 .F. .F. 2
Area 10: IDIOMAS RddName: ADSCDX
============================================================
RecNo RecCount BOF EOF Fields 1 121 .F. .F. 1
TagName 1 IDIOMA En uso=> IDIOMA
Area 11: INFORMATIC RddName: ADSCDX
============================================================
RecNo RecCount BOF EOF Fields 1 19 .F. .F. 2
Area 12: ISO RddName: ADSCDX
============================================================
RecNo RecCount BOF EOF Fields 1 6 .F. .F. 1
Area 13: OFERTASUSU RddName: ADSCDX
============================================================
RecNo RecCount BOF EOF Fields 1 0 .T. .T. 5
Area 14: OFERTAS RddName: ADSCDX
============================================================
RecNo RecCount BOF EOF Fields 1 2 .F. .F. 22
Area 15: PAISES RddName: ADSCDX
============================================================
RecNo RecCount BOF EOF Fields 1 244 .F. .F. 1
TagName 1 PAIS En uso=> PAIS
Area 16: PERMISOSCO RddName: ADSCDX
============================================================
RecNo RecCount BOF EOF Fields 1 9 .F. .F. 2
Area 17: PERMISOSTR RddName: ADSCDX
============================================================
RecNo RecCount BOF EOF Fields 1 22 .F. .F. 1
Area 18: POLIGONOS RddName: ADSCDX
============================================================
RecNo RecCount BOF EOF Fields 1 7 .F. .F. 1
TagName 1 POLIGONO En uso=> POLIGONO
Area 19: PROFESIONE RddName: ADSCDX
============================================================
RecNo RecCount BOF EOF Fields 1 136 .F. .F. 1
Area 20: SECTORESAC RddName: ADSCDX
============================================================
RecNo RecCount BOF EOF Fields 1 19 .F. .F. 1
Area 21: SUBVENCION RddName: ADSCDX
============================================================
RecNo RecCount BOF EOF Fields 1 246 .F. .F. 26
Area 22: TITULACION RddName: ADSCDX
============================================================
RecNo RecCount BOF EOF Fields 1 321 .F. .F. 4
TagName 1 CLAVE En uso=> STRZERO(CLAVE,3)
2 TITUL_TIPO TITUL_TIPO
3 TITUL_AREA TITUL_TIPO+TITUL_AREA
4 TITULO TITUL_TIPO+TITUL_AREA+TITULO
Area 23: USUARIOSBE RddName: ADSCDX
============================================================
RecNo RecCount BOF EOF Fields 243 243 .F. .F. 6
TagName 1 CODIGO En uso=> CODIGO
Area 24: USUARIOSCA RddName: ADSCDX
============================================================
RecNo RecCount BOF EOF Fields 405 2007 .F. .F. 3
TagName 1 CODIGO En uso=> CODIGO
Area 25: USUARIOSEX RddName: ADSCDX
============================================================
RecNo RecCount BOF EOF Fields 3112 3130 .F. .F. 9
TagName 1 CODIGO En uso=> CODIGO
Area 26: USUARIOSFO RddName: ADSCDX
============================================================
RecNo RecCount BOF EOF Fields 1110 1112 .F. .F. 5
TagName 1 CODIGO En uso=> CODIGO
Area 27: USUARIOSF0 RddName: ADSCDX
============================================================
RecNo RecCount BOF EOF Fields 1931 1933 .F. .F. 5
TagName 1 CODIGO En uso=> CODIGO
Area 28: USUARIOSID RddName: ADSCDX
============================================================
RecNo RecCount BOF EOF Fields 3252 3256 .F. .F. 4
TagName 1 CODIGO En uso=> CODIGO
Area 29: USUARIOSIN RddName: ADSCDX
============================================================
RecNo RecCount BOF EOF Fields 627 629 .F. .F. 4
TagName 1 CODIGO En uso=> CODIGO
Area 30: USUARIOSSE RddName: ADSCDX
============================================================
RecNo RecCount BOF EOF Fields 1330 1334 .F. .F. 4
TagName 1 CODIGO En uso=> CODIGO
Area 31: USUARIOSTR RddName: ADSCDX
============================================================
RecNo RecCount BOF EOF Fields 706 710 .F. .F. 2
TagName 1 CODIGO En uso=> CODIGO
Area 32: USUARIOS RddName: ADSCDX
============================================================
RecNo RecCount BOF EOF Fields 1842 3315 .F. .F. 39
TagName 1 NIF En uso=> NIF
2 APELLIDOS APELLIDOS
Area 33: USUARIOS0 RddName: ADSCDX
============================================================
RecNo RecCount BOF EOF Fields 1842 3315 .F. .F. 39
TagName 1 NIF En uso=> NIF
2 APELLIDOS APELLIDOS
Area 34: USUARIOSF1 RddName: ADSCDX
============================================================
RecNo RecCount BOF EOF Fields 1934 1933 .T. .T. 5
TagName 1 CODIGO En uso=> CODIGO
Area 35: USUARIOSF2 RddName: ADSCDX
============================================================
RecNo RecCount BOF EOF Fields 1113 1112 .T. .T. 5
TagName 1 CODIGO En uso=> CODIGO
Area 36: QUERYCONDI (Area actual) RddName: DBFCDX
============================================================
RecNo RecCount BOF EOF Fields 1 0 .T. .T. 8
Tareas activas en curso
____________________________________________________________ __________________
01 Conmutación de tareas
02 MSCTFIME UI
03 Default IME
04 Inicio
05 CiceroUIWndFrame
06 Brico ventiladores frigorifico.pdf (PROTEGIDO) - Adobe Reader
07 Red flotante
08 TF_FloatingLangBar_WndTitle
09 C:XailerProgramasBehargintzanconvert.exe
10 Consulta avanzada
11 Mungialdeko Behargintza
12 Debug - Behargintza.exe
13 Editor de código
14 Inspector de objetos
15 Gestor de proyectos
16 Cargar imagen
17 Xailer - Behargintza
18 Ayuda de HTML
19 local.xailer.pro.es en news.xailer.com - Thunderbird
20 Redacción: Problema con oDbBrowse:MoveCol()
21 NetscapeDispatchWnd
22 DDE Server Window
23 XPCOM:EventReceiver
24 MCI command handling window
25 Menú Inicio
26 Bingen
27 eMule Plus v1.2c
28 Windows Defender
29 Cobian Backup Black Moon
30 .NET-BroadcastEventWindow.2.0.0.0.5c39d4.0
31 TaskEng - Proceso del Motor de Programador de tareas
32 Encabezados de la fuente
33 El Tiempo
34 Medidor de CPU
35 Calendario
36 Reloj
37 AppBar Bullet
38 Windows Sidebar
39 .NET-BroadcastEventWindow.2.0.0.0.3d893c.0
40 AMD:CCC-AEMCapturingWindow
41 GettingStartedForm
42 {878390AD-434B-41EE-9110-49B69E4398F9}
43 Administrador de Extras de Skype™
44 {A3533AC8-A133-43D6-A112-361167D254CC}
45 Skype™ - mungia.informatica
46 ChatFormatter
47 ChatManager
48 TrayIconManager
49 Actions
50 .NET-BroadcastEventWindow.2.0.0.0.33c0d9d.0
51 C:UsersuserAppDataRoamingSkype
52 SkyLibEx
53 CAsyncSocketEx Helper Window
54 Socket Notification Sink
55 Emule Socket Wnd
56 aswDisp helper window
57 avast! UI Control Window
58 SidebarBroadcastWatcher
59 BluetoothNotificationAreaIconWindowClass
60 DSGAviso
61 Cobian Backup Black Moon Class Name
62 MS_WebcheckMonitor
63 MMDEVAPI Device Window
64 Medidor de la batería
65 LogMeIn: actualización de versión
66 LogMeInGui
67 iTouchWin
68 Realtek HD Audio CPL for Vista
69 LogMeIn Estado
70 ATI video bios poller client
71 DWM Notification Window
72 GDI+ Window
73 HiddenFaxWindow
74 Program Manager
--

[Bingen Ugaldebere]

Dentro de mi humilde conocimiento he hecho los siguientes cambios para
que funcione correctamente aunque no se si esto puede causar algún otro
problema.
En la lí­nea 1170 he sustituido
::ColAtPos( xCol )que falla por
oCol := ::aCols[xCol] ya que en este punto xCol solo debe ser numérico
(aunque podrí­a hacerse un control extra para asegurarse) y por lo tanto
no es necesario buscar la columna si no simplemente tomarla de aCols.
Y en la lí­nea 1178 he sustituido
nScanDes := AScan( ::aCols, {|v| v:nPos == nDes } ) que falla por
nScanDes := nDes Ya que el destino siempre es numérico no entiendo por
que hay que buscarlo simplemente ya sabemos cual es la posición de
destino que le damos.
Ahora si funciona pero espero a ver si los masters de Xailer me dan la
razón o rebaten mi pequeña chapuza.
Salu2.

[Xevi]

Bingen,
> Y en la línea 1178 he sustituido
> nScanDes := AScan( ::aCols, {|v| v:nPos == nDes } ) que falla por
>
> nScanDes := nDes Ya que el destino siempre es numérico no entiendo por
> que hay que buscarlo simplemente ya sabemos cual es la posición de destino
> que le damos.
El tema de buscar el destino digo yo que será por si se introduce una
columna que NO existe... por ejemplo ponle en tu ejemplo que se vaya a la
100... verás como te casca.
Un Saludo,
Xevi.
"Bingen Ugaldebere" <bingen@muninser.com> escribió en el mensaje
news:46ef7b0f$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
> Dentro de mi humilde conocimiento he hecho los siguientes cambios para que
> funcione correctamente aunque no se si esto puede causar algún otro
> problema.
>
> En la línea 1170 he sustituido
> ::ColAtPos( xCol )que falla por
>
> oCol := ::aCols[xCol] ya que en este punto xCol solo debe ser numérico
> (aunque podría hacerse un control extra para asegurarse) y por lo tanto no
> es necesario buscar la columna si no simplemente tomarla de aCols.
>
> Y en la línea 1178 he sustituido
> nScanDes := AScan( ::aCols, {|v| v:nPos == nDes } ) que falla por
>
> nScanDes := nDes Ya que el destino siempre es numérico no entiendo por
> que hay que buscarlo simplemente ya sabemos cual es la posición de destino
> que le damos.
>
> Ahora si funciona pero espero a ver si los masters de Xailer me dan la
> razón o rebaten mi pequeña chapuza.
>
> Salu2.
>

[Bingen Ugaldebere]

Jaja muy bueno no lo habia pensado, ahora lo controlo.
nScanDes := If(nDes>Len(::aCols),Len(::aCols),nDes)
Así­ como mucho la pone al final.
Muchas gracias.

[ignacio]

Bingen,
Sólo puedes mover columnas que estén visibles. Para cambiar columnas no
visibles es preferible que manejes el array TBrowse:aCols
Saludos,
"Bingen Ugaldebere" <bingen@muninser.com> escribió en el mensaje
news:[email=46ef742c@ozsrv2.ozlan.local...]46ef742c@ozsrv2.ozlan.local...[/email]
> He hecho varias pruebas y me pasa algo muy curioso
>
> Tengo un Browse de 44 columnas y lógicamente no están todas a la vista
> solo caben 6 y para ver el resto uso el scroll horizontal.
>
> Si hago oDbBrowse:MoveCol(2,3) funciona me alterna de orden las columnas
> 2 y 3, pero si hago oDbBrowse:MoveCol(22,23) como estas columnas no
> están a la vista me casca un error
>
> Descripción: Error de rango
> Operación: acceso al array
> Argumentos: [ 1] = Tipo: A Valor: [ 2] = Tipo: N Valor: 22
>
> No es muy lógico tener que saber que columnas están visibles antes de
> hacer MoveCol no? o hay otra manera de hacerlo?
>
> Gracias y salu2.
>
------------------------------------------------------------ --------------------
> ***************************** Registro de errores
> *****************************
>
> Fecha: 18-09-2007
> Hora: 08:40:06
> Memoria libre: 815.43Kb /2046.94Kb
> Area actual: 36
>
> C: HD Size: 21.49Gb /74.53Gb
> ------------------------- Información del
> compilador --------------------------
>
> Versión Xailer: Xailer 1.6.5 Version 1.65
> Compilador: xHarbour build 0.99.61 Intl. (SimpLex) PCode Version: 7
> Compilador C/C++: Borland C++ 5.5.1
> Plataforma: Windows NT Professional 6.00.6000
>
> ----------------------- Información detallada del
> error -----------------------
>
> Subsistema: BASE
> Código de error: 1132
> Estado: .F.
> Descripción: Error de rango
> Operación: acceso al array
> Argumentos: [ 1] = Tipo: A Valor: [ 2] = Tipo: N Valor: 22
> Fichero:
> Código error SO: 0
>
> Pila de llamadas:
> (b)XBROWSE:XBROWSE (194)
> TDBBROWSE:COLATPOS (0)
> TDBBROWSE:MOVECOL (1170)
> TBUSCADOR:BUTTONDOWNCLICK (451)
> TBUTTON:ONCLICK (0)
> TBUTTON:CLICK (99)
> (b)XCONTROL:XCONTROL (140)
> TBUTTON:COMMAND (0)
> TFOLDERPAGE:WMCOMMAND (253)
> TBUSCADOR:SHOWMODAL (0)
> TFORMUSUARIOS:OPTIONLIST1ITEM6CLICK (179)
> TOPTIONITEM:ONCLICK (0)
> TOPTIONITEM:CLICK (273)
> TOPTIONLIST:WMLBUTTONDOWN (0)
> RUNFORM (0)
> TAPPLICATION:RUN (209)
> MAIN (16)
>
> Argumentos :
> [ 1] = A
> [ 2] = N 22
> Free Variable Space (KB) 23069659136
>
> RDDs Linkados en la aplicación
> ____________________________________________________________ __________________
> DBF
> DBFFPT
> DBFBLOB
> DBFCDX
> DBFNTX
> ADS
> ADT
> ADSCDX
> ADSNTX
>
> DataBases en uso DbfStatus()
> ____________________________________________________________ __________________
>
>
> Area 1: ACCIONES RddName: ADSCDX
> ============================================================
> RecNo RecCount BOF EOF Fields 1
> 8 .F. .F. 1
> TagName 1 ACCION En uso=> ACCION
>
>
> Area 2: CEE RddName: ADSCDX
> ============================================================
> RecNo RecCount BOF EOF Fields 1
> 27 .F. .F. 1
> TagName 1 PAIS En uso=> PAIS
>
>
> Area 3: CNPA RddName: ADSCDX
> ============================================================
> RecNo RecCount BOF EOF Fields 2
> 9386 .F. .F. 2
> TagName 1 CODIGO En uso=> CODIGO
>
>
> Area 4: EMPRESASCE RddName: ADSCDX
> ============================================================
> RecNo RecCount BOF EOF Fields 1
> 0 .T. .T. 3
> TagName 1 CODIGO En uso=> CODIGO
>
>
> Area 5: EMPRESASOF RddName: ADSCDX
> ============================================================
> RecNo RecCount BOF EOF Fields 1
> 0 .T. .T. 7
> TagName 1 CODIGO En uso=> CODIGO
>
>
> Area 6: EMPRESASSU RddName: ADSCDX
> ============================================================
> RecNo RecCount BOF EOF Fields 1
> 0 .T. .T. 6
> TagName 1 CODIGO En uso=> CODIGO
>
>
> Area 7: EMPRESASVI RddName: ADSCDX
> ============================================================
> RecNo RecCount BOF EOF Fields 1
> 0 .T. .T. 3
> TagName 1 CODIGO En uso=> CODIGO
>
>
> Area 8: EMPRESAS RddName: ADSCDX
> ============================================================
> RecNo RecCount BOF EOF Fields 10
> 247 .F. .F. 59
> TagName 1 CIF En uso=> CIF
> 2 NOMBRE NOMBRE
>
>
> Area 9: IAE RddName: ADSCDX
> ============================================================
> RecNo RecCount BOF EOF Fields 1
> 1138 .F. .F. 2
>
>
> Area 10: IDIOMAS RddName: ADSCDX
> ============================================================
> RecNo RecCount BOF EOF Fields 1
> 121 .F. .F. 1
> TagName 1 IDIOMA En uso=> IDIOMA
>
>
> Area 11: INFORMATIC RddName: ADSCDX
> ============================================================
> RecNo RecCount BOF EOF Fields 1
> 19 .F. .F. 2
>
>
> Area 12: ISO RddName: ADSCDX
> ============================================================
> RecNo RecCount BOF EOF Fields 1
> 6 .F. .F. 1
>
>
> Area 13: OFERTASUSU RddName: ADSCDX
> ============================================================
> RecNo RecCount BOF EOF Fields 1
> 0 .T. .T. 5
>
>
> Area 14: OFERTAS RddName: ADSCDX
> ============================================================
> RecNo RecCount BOF EOF Fields 1
> 2 .F. .F. 22
>
>
> Area 15: PAISES RddName: ADSCDX
> ============================================================
> RecNo RecCount BOF EOF Fields 1
> 244 .F. .F. 1
> TagName 1 PAIS En uso=> PAIS
>
>
> Area 16: PERMISOSCO RddName: ADSCDX
> ============================================================
> RecNo RecCount BOF EOF Fields 1
> 9 .F. .F. 2
>
>
> Area 17: PERMISOSTR RddName: ADSCDX
> ============================================================
> RecNo RecCount BOF EOF Fields 1
> 22 .F. .F. 1
>
>
> Area 18: POLIGONOS RddName: ADSCDX
> ============================================================
> RecNo RecCount BOF EOF Fields 1
> 7 .F. .F. 1
> TagName 1 POLIGONO En uso=> POLIGONO
>
>
> Area 19: PROFESIONE RddName: ADSCDX
> ============================================================
> RecNo RecCount BOF EOF Fields 1
> 136 .F. .F. 1
>
>
> Area 20: SECTORESAC RddName: ADSCDX
> ============================================================
> RecNo RecCount BOF EOF Fields 1
> 19 .F. .F. 1
>
>
> Area 21: SUBVENCION RddName: ADSCDX
> ============================================================
> RecNo RecCount BOF EOF Fields 1
> 246 .F. .F. 26
>
>
> Area 22: TITULACION RddName: ADSCDX
> ============================================================
> RecNo RecCount BOF EOF Fields 1
> 321 .F. .F. 4
> TagName 1 CLAVE En uso=> STRZERO(CLAVE,3)
> 2 TITUL_TIPO TITUL_TIPO
> 3 TITUL_AREA TITUL_TIPO+TITUL_AREA
> 4 TITULO TITUL_TIPO+TITUL_AREA+TITULO
>
>
> Area 23: USUARIOSBE RddName: ADSCDX
> ============================================================
> RecNo RecCount BOF EOF Fields 243
> 243 .F. .F. 6
> TagName 1 CODIGO En uso=> CODIGO
>
>
> Area 24: USUARIOSCA RddName: ADSCDX
> ============================================================
> RecNo RecCount BOF EOF Fields 405
> 2007 .F. .F. 3
> TagName 1 CODIGO En uso=> CODIGO
>
>
> Area 25: USUARIOSEX RddName: ADSCDX
> ============================================================
> RecNo RecCount BOF EOF Fields 3112
> 3130 .F. .F. 9
> TagName 1 CODIGO En uso=> CODIGO
>
>
> Area 26: USUARIOSFO RddName: ADSCDX
> ============================================================
> RecNo RecCount BOF EOF Fields 1110
> 1112 .F. .F. 5
> TagName 1 CODIGO En uso=> CODIGO
>
>
> Area 27: USUARIOSF0 RddName: ADSCDX
> ============================================================
> RecNo RecCount BOF EOF Fields 1931
> 1933 .F. .F. 5
> TagName 1 CODIGO En uso=> CODIGO
>
>
> Area 28: USUARIOSID RddName: ADSCDX
> ============================================================
> RecNo RecCount BOF EOF Fields 3252
> 3256 .F. .F. 4
> TagName 1 CODIGO En uso=> CODIGO
>
>
> Area 29: USUARIOSIN RddName: ADSCDX
> ============================================================
> RecNo RecCount BOF EOF Fields 627
> 629 .F. .F. 4
> TagName 1 CODIGO En uso=> CODIGO
>
>
> Area 30: USUARIOSSE RddName: ADSCDX
> ============================================================
> RecNo RecCount BOF EOF Fields 1330
> 1334 .F. .F. 4
> TagName 1 CODIGO En uso=> CODIGO
>
>
> Area 31: USUARIOSTR RddName: ADSCDX
> ============================================================
> RecNo RecCount BOF EOF Fields 706
> 710 .F. .F. 2
> TagName 1 CODIGO En uso=> CODIGO
>
>
> Area 32: USUARIOS RddName: ADSCDX
> ============================================================
> RecNo RecCount BOF EOF Fields 1842
> 3315 .F. .F. 39
> TagName 1 NIF En uso=> NIF
> 2 APELLIDOS APELLIDOS
>
>
> Area 33: USUARIOS0 RddName: ADSCDX
> ============================================================
> RecNo RecCount BOF EOF Fields 1842
> 3315 .F. .F. 39
> TagName 1 NIF En uso=> NIF
> 2 APELLIDOS APELLIDOS
>
>
> Area 34: USUARIOSF1 RddName: ADSCDX
> ============================================================
> RecNo RecCount BOF EOF Fields 1934
> 1933 .T. .T. 5
> TagName 1 CODIGO En uso=> CODIGO
>
>
> Area 35: USUARIOSF2 RddName: ADSCDX
> ============================================================
> RecNo RecCount BOF EOF Fields 1113
> 1112 .T. .T. 5
> TagName 1 CODIGO En uso=> CODIGO
>
>
> Area 36: QUERYCONDI (Area actual) RddName: DBFCDX
> ============================================================
> RecNo RecCount BOF EOF Fields 1
> 0 .T. .T. 8
>
> Tareas activas en curso
> ____________________________________________________________ __________________
> 01 Conmutación de tareas
> 02 MSCTFIME UI
> 03 Default IME
> 04 Inicio
> 05 CiceroUIWndFrame
> 06 Brico ventiladores frigorifico.pdf (PROTEGIDO) - Adobe Reader
> 07 Red flotante
> 08 TF_FloatingLangBar_WndTitle
> 09 C:XailerProgramasBehargintzanconvert.exe
> 10 Consulta avanzada
> 11 Mungialdeko Behargintza
> 12 Debug - Behargintza.exe
> 13 Editor de código
> 14 Inspector de objetos
> 15 Gestor de proyectos
> 16 Cargar imagen
> 17 Xailer - Behargintza
> 18 Ayuda de HTML
> 19 local.xailer.pro.es en news.xailer.com - Thunderbird
> 20 Redacción: Problema con oDbBrowse:MoveCol()
> 21 NetscapeDispatchWnd
> 22 DDE Server Window
> 23 XPCOM:EventReceiver
> 24 MCI command handling window
> 25 Menú Inicio
> 26 Bingen
> 27 eMule Plus v1.2c
> 28 Windows Defender
> 29 Cobian Backup Black Moon
> 30 .NET-BroadcastEventWindow.2.0.0.0.5c39d4.0
> 31 TaskEng - Proceso del Motor de Programador de tareas
> 32 Encabezados de la fuente
> 33 El Tiempo
> 34 Medidor de CPU
> 35 Calendario
> 36 Reloj
> 37 AppBar Bullet
> 38 Windows Sidebar
> 39 .NET-BroadcastEventWindow.2.0.0.0.3d893c.0
> 40 AMD:CCC-AEMCapturingWindow
> 41 GettingStartedForm
> 42 {878390AD-434B-41EE-9110-49B69E4398F9}
> 43 Administrador de Extras de SkypeT
> 44 {A3533AC8-A133-43D6-A112-361167D254CC}
> 45 SkypeT - mungia.informatica
> 46 ChatFormatter
> 47 ChatManager
> 48 TrayIconManager
> 49 Actions
> 50 .NET-BroadcastEventWindow.2.0.0.0.33c0d9d.0
> 51 C:UsersuserAppDataRoamingSkype
> 52 SkyLibEx
> 53 CAsyncSocketEx Helper Window
> 54 Socket Notification Sink
> 55 Emule Socket Wnd
> 56 aswDisp helper window
> 57 avast! UI Control Window
> 58 SidebarBroadcastWatcher
> 59 BluetoothNotificationAreaIconWindowClass
> 60 DSGAviso
> 61 Cobian Backup Black Moon Class Name
> 62 MS_WebcheckMonitor
> 63 MMDEVAPI Device Window
> 64 Medidor de la batería
> 65 LogMeIn: actualización de versión
> 66 LogMeInGui
> 67 iTouchWin
> 68 Realtek HD Audio CPL for Vista
> 69 LogMeIn Estado
> 70 ATI video bios poller client
> 71 DWM Notification Window
> 72 GDI+ Window
> 73 HiddenFaxWindow
> 74 Program Manager
>

[Bingen Ugaldebere]

Gracias Ignacio
> Sólo puedes mover columnas que estén visibles.
Vaya eso me temí­a, eso no importa si las mueves a mano pero es posible
saber cuales están a la vista desde código? o por lo menos que no pete
el programa no estarí­a mal.
Antes de que pierda tiempo sabes si pasa lo mismo con el método Swap
> Para cambiar columnas no visibles es preferible que manejes el array TBrowse:aCols
Con los cambios que he hecho me funciona pero será mejor que deje la
clase tal cual estaba y la sobrecargue con un método que haga lo que quiero.
Muchas gracias.
Salu2.

[Bingen Ugaldebere]

Que bien con el método SwapCols funciona correctamente se vea la columna
o no.
Salu2.