TBrowse:InsCol() bug ?

[Gejza Horvath]

Hi,
I think, it's a problem in InsCol method of Tbrowse class. Here is my code:
WITH OBJECT TDBBrwColumn():New(::oDBBrowseStrojMat )
:cHeader := "NAZOV"
:nWidth := 120
:oDataField := ::oDbfMaterial2:aFields[2]
:Create()
::oDBBrowseStrojMat:InsCol(3,HB_QWith(),.T.)
END
The code works fine, but terminating the App, I get an error:
******************************* Error log file ********************************
Date: 07/19/07
Time: 15:46:29
Available Memory: 163796
Current Area: 8
---------------------------- Compiler Information -----------------------------
Xailer Version: Xailer 1.5.6 Version 1.5
Compiler: xHarbour build 0.99.61 Intl. (SimpLex) PCode Version: 7
C/C++ Compiler: Borland C++ 5.5.1
Windows Platform: Windows XP Professional 5.01.2600 Service Pack 2
--------------------- Internal Error Handling Information ---------------------
Subsystem Call: BASE
System Code: 1004
Default Status: .F.
Description: Class: 'NIL' has no exported method
Operation: HANDLE
Arguments:
Involved File:
Dos Error Code: 0
Trace Through:
TDBBRWCOLUMN:_ODATAFIELD (920)
TDBBRWCOLUMN:FREE (278)
TDBBRWCOLUMN:DESTROY (78)
TDBBRWCOLUMN:END (89)
(b)TDBBROWSE:RESET (3132)
AEVAL (0)
TDBBROWSE:RESET (3132)
TDBBROWSE:SETDATASET (404)
TDBBROWSE:FREE (115)
TDBBROWSE:WMNCDESTROY (918)
RUNFORM (0)
TAPPLICATION:RUN (209)
MAIN (15)
======================================
I changed the code using AddCol():
::oDBBrowseStrojMat:AddCol(HB_QWith(),.T.)
::oDBBrowseStrojMat:SwapCols(3,6)
everything is O.K, no error messages.
Gejza Horváth

[ignacio]

Gejza,
Thanks for your feedback. We will take a look to InsCol method.
Regards,
--
Ignacio Ortiz de Zúñiga
http://www.xailer.com
"Gejza Horvath" <_hsoftkn@nextra.sk> escribió en el mensaje
news:[email=469f6c90@ozsrv2.ozlan.local...]469f6c90@ozsrv2.ozlan.local...[/email]
> Hi,
>
> I think, it's a problem in InsCol method of Tbrowse class. Here is my
> code:
>
> WITH OBJECT TDBBrwColumn():New(::oDBBrowseStrojMat )
> :cHeader := "NAZOV"
> :nWidth := 120
> :oDataField := ::oDbfMaterial2:aFields[2]
> :Create()
> ::oDBBrowseStrojMat:InsCol(3,HB_QWith(),.T.)
> END
>
> The code works fine, but terminating the App, I get an error:
>
> ******************************* Error log file
> ********************************
>
> Date: 07/19/07
> Time: 15:46:29
> Available Memory: 163796
> Current Area: 8
>
> ---------------------------- Compiler
> Information -----------------------------
>
> Xailer Version: Xailer 1.5.6 Version 1.5
> Compiler: xHarbour build 0.99.61 Intl. (SimpLex) PCode Version: 7
> C/C++ Compiler: Borland C++ 5.5.1
> Windows Platform: Windows XP Professional 5.01.2600 Service Pack 2
>
> --------------------- Internal Error Handling
> Information ---------------------
>
> Subsystem Call: BASE
> System Code: 1004
> Default Status: .F.
> Description: Class: 'NIL' has no exported method
> Operation: HANDLE
> Arguments:
> Involved File:
> Dos Error Code: 0
>
> Trace Through:
> TDBBRWCOLUMN:_ODATAFIELD (920)
> TDBBRWCOLUMN:FREE (278)
> TDBBRWCOLUMN:DESTROY (78)
> TDBBRWCOLUMN:END (89)
> (b)TDBBROWSE:RESET (3132)
> AEVAL (0)
> TDBBROWSE:RESET (3132)
> TDBBROWSE:SETDATASET (404)
> TDBBROWSE:FREE (115)
> TDBBROWSE:WMNCDESTROY (918)
> RUNFORM (0)
> TAPPLICATION:RUN (209)
> MAIN (15)
> ======================================
>
> I changed the code using AddCol():
>
> ::oDBBrowseStrojMat:AddCol(HB_QWith(),.T.)
> ::oDBBrowseStrojMat:SwapCols(3,6)
>
> everything is O.K, no error messages.
>
>
> Gejza Horváth
>

[NoName]

Gejza,
Thanks for your feedback. We will take a look to InsCol method.
Regards,
--
Ignacio Ortiz de Zúñiga
http://www.xailer.com
"Gejza Horvath" <_hsoftkn@nextra.sk> escribió en el mensaje
news:[email=469f6c90@ozsrv2.ozlan.local...]469f6c90@ozsrv2.ozlan.local...[/email]
> Hi,
>
> I think, it's a problem in InsCol method of Tbrowse class. Here is my
> code:
>
> WITH OBJECT TDBBrwColumn():New(::oDBBrowseStrojMat )
> :cHeader := "NAZOV"
> :nWidth := 120
> :oDataField := ::oDbfMaterial2:aFields[2]
> :Create()
> ::oDBBrowseStrojMat:InsCol(3,HB_QWith(),.T.)
> END
>
> The code works fine, but terminating the App, I get an error:
>
> ******************************* Error log file
> ********************************
>
> Date: 07/19/07
> Time: 15:46:29
> Available Memory: 163796
> Current Area: 8
>
> ---------------------------- Compiler
> Information -----------------------------
>
> Xailer Version: Xailer 1.5.6 Version 1.5
> Compiler: xHarbour build 0.99.61 Intl. (SimpLex) PCode Version: 7
> C/C++ Compiler: Borland C++ 5.5.1
> Windows Platform: Windows XP Professional 5.01.2600 Service Pack 2
>
> --------------------- Internal Error Handling
> Information ---------------------
>
> Subsystem Call: BASE
> System Code: 1004
> Default Status: .F.
> Description: Class: 'NIL' has no exported method
> Operation: HANDLE
> Arguments:
> Involved File:
> Dos Error Code: 0
>
> Trace Through:
> TDBBRWCOLUMN:_ODATAFIELD (920)
> TDBBRWCOLUMN:FREE (278)
> TDBBRWCOLUMN:DESTROY (78)
> TDBBRWCOLUMN:END (89)
> (b)TDBBROWSE:RESET (3132)
> AEVAL (0)
> TDBBROWSE:RESET (3132)
> TDBBROWSE:SETDATASET (404)
> TDBBROWSE:FREE (115)
> TDBBROWSE:WMNCDESTROY (918)
> RUNFORM (0)
> TAPPLICATION:RUN (209)
> MAIN (15)
> ======================================
>
> I changed the code using AddCol():
>
> ::oDBBrowseStrojMat:AddCol(HB_QWith(),.T.)
> ::oDBBrowseStrojMat:SwapCols(3,6)
>
> everything is O.K, no error messages.
>
>
> Gejza Horváth
>