Code: Select all
procedure FillDB(oDlg)
*--------------------------
LOCAL n
LOCAL oFile := TFileRead():New( cFile )
LOCAL cTemp := "",cTemp1:= "",cTemp2:= "",cTemp3:= "",cTemp4:= "",cTemp_var:= ""
LOCAL cAcNb := ""
Local nRecNo:=0,old_nRecNo:=0
CreateDBF()
oFile:Open()
IF oFile:Error()
msgStop( oFile:ErrorMsg( "FileRead: " ) )
ELSE
WHILE oFile:MoreToRead()
cTemp1:=cTemp:= oFile:ReadLine()
IF "BANK OF ALEXANDRIA" $ cTemp1
cTemp1:= oFile:ReadLine()
cTemp2:= oFile:ReadLine()
cTemp3:= oFile:ReadLine()
cAcNb := padL( allTrim( subStr( cTemp3, 30 ) ), 12 )
test->( dbAppend() )
test->ACNB := cAcNb
oDlg:aControls[ 3 ]:SetText( cAcNb )
SysWait( 0.01 ) // just for delay
? cAcNb
cTemp_var := cTemp1 + chr(013) + chr (010) +;
cTemp2 + chr(013) + chr (010) +;
cTemp3 + chr(013) + chr (010)
test->TEXT += cTemp_var
endif
test->TEXT += ( " " + allTrim( cTemp ) + chr(013) + chr (010) )
ENDDO
//for n := 1000 to 2000
//next
oDlg:aControls[ 3 ]:SetText( 0 )
oFile:Close()
ENDIF
test->( dbCloseArea() )
RETURN
Application
===========
Path and name: F:\programs\clipper\FWH\DocuCollect\DocuCollect.exe (32 bits)
Size: 1,397,248 bytes
Time from start: 0 hours 0 mins 8 secs
Error occurred at: 18/05/2013, 18:21:18
Error description: Error BASE/1132 Bound error: array access
Args:
[ 1] = A { ... }
[ 2] = N 3
Stack Calls
===========
Called from: DocuCollect.prg => FILLDB(239)
Called from: DocuCollect.prg => (b)DLG32TEST(200)
Called from: => TBUTTON:CLICK(0)
Called from: => TBUTTON:HANDLEEVENT(0)
Called from: .\source\classes\WINDOW.PRG => _FWH(0)
Called from: => SENDMESSAGE(0)
Called from: => TDIALOG:COMMAND(0)
Called from: => TWINDOW:HANDLEEVENT(0)
Called from: => TDIALOG:HANDLEEVENT(0)
Called from: => DIALOGBOXINDIRECT(0)
Called from: => TDIALOG:ACTIVATE(0)
Called from: DocuCollect.prg => DLG32TEST(203)
Called from: DocuCollect.prg => (b)BUILDMENU(129)
Called from: => TMENU:COMMAND(0)
Called from: => TWINDOW:COMMAND(0)
Called from: => TWINDOW:HANDLEEVENT(0)
Called from: .\source\classes\WINDOW.PRG => _FWH(0)
Called from: => WINRUN(0)
Called from: => TWINDOW:ACTIVATE(0)
Called from: DocuCollect.prg => MAIN(80)
System
======
CPU type: Intel(R) Core(TM) i7 CPU Q 720 @ 1.60GHz 1533 Mhz
Hardware memory: 1600 megs
Free System resources: 90 %
GDI resources: 90 %
User resources: 90 %
Compiler version: Harbour 1.0.0 Intl. (Rev. 9201)
Windows version: 5.1, Build 2600 Service Pack 3
Windows total applications running: 23
1
2 M
3 Default IME
4 Start Menu
5 CiceroUIWndFrame
6 SysFader
7 TF_FloatingLangBar_WndTitle
8 VBoxSharedClipboardClass
9 VBoxTrayToolWnd
10 Choose File
11 XMS Data Manager
12 C:\WINDOWS\system32\cmd.exe
13 DocuCollect
14 F:\programs\clipper\FWH\DocuCollect\DocuCollect.prg - Notepad++
15 {A7E495BF-9589-4a6e-8479-DDA2D8D3C05F}
16 MCI command handling window
17 Acrobat IEHelper
18 Connections Tray
19 Power Meter
20 MS_WebcheckMonitor
21 DDE Server Window
22 AcrobatTrayIcon
23 Program Manager
Variables in use
================
Procedure Type Value
==========================
FILLDB
Param 1: O Class: ERROR
(b)DLG32TEST
Param 1: O Class: TDIALOG
Local 1: U
Local 2: O Class: TFILEREAD
Local 3: C "** BANK OF ALEXANDRIA"
Local 4: C "A ط§ظ„ظ‚ط§ظ‡ط±ط©"
Local 5: C " ظ†ظˆط¹ طط³ط§ط¨ RETAILطھظˆظپظٹط± ط°ظˆ ظ…ط²ط§ظٹط§ ظˆط¬ظˆط§ 12-07-2012 ط§ظ„طھط§ط±ظٹط®"
Local 6: C " طط³ط§ط¨ ط±ظ‚ظ… 101000963001 P SEND BY POST 1 طµظپطط© ط±ظ‚ظ…"
Local 7: C ""
Local 8: C ""
Local 9: C "101000963001"
Local 10: N 0
Local 11: N 0
Local 12: S
Local 13: A Len: 2
Local 14: N 3
Local 15: U
Local 16: N 0
TBUTTON:CLICK
TBUTTON:HANDLEEVENT
Local 1: O Class: TBUTTON
_FWH
Param 1: N 2048
Param 2: N 0
Param 3: N 0
Local 1: O Class: TBUTTON
Local 2: U
SENDMESSAGE
Param 1: N 0
Param 2: N 2048
Param 3: N 0
Param 4: N 0
Param 5: N 4
Local 1: O Class: TBUTTON
TDIALOG:COMMAND
Param 1: N 66236
Param 2: N 2048
Param 3: N 0
Param 4: N 0
TWINDOW:HANDLEEVENT
Param 1: N 102
Param 2: N 66236
Local 1: O Class: TDIALOG
Local 2: O Class: TBUTTON
Local 3: N 0
Local 4: N 102
Local 5: N 66236
TDIALOG:HANDLEEVENT
Param 1: N 273
Param 2: N 102
Param 3: N 66236
DIALOGBOXINDIRECT
Param 1: N 273
Param 2: N 102
Param 3: N 66236
Local 1: O Class: TDIALOG
TDIALOG:ACTIVATE
Param 1: N 4194304
Param 2: C "€ ب€ َ C h o o s e F i l e P L e B U T T O N G e t F i l e P - L f B U T T O N P r o c e s s A p p l i c a t i o n "
Param 3: N 131760
Param 4: O Class: TDIALOG
DLG32TEST
Param 1: U
Param 2: U
Param 3: U
Param 4: L .T.
Param 5: U
Param 6: L .T.
Param 7: B {|| ... }
Param 8: U
Param 9: U
Param 10: L .F.
Local 1: O Class: TDIALOG
Local 2: N 131760
Local 3: U
Local 4: U
Local 5: S
Local 6: O Class: TDIALOG
(b)BUILDMENU
Local 1: O Class: TDIALOG
Local 2: U
Local 3: U
Local 4: C "Text files (*.txt)|*.txt|All files (*.*)|*.*|"
TMENU:COMMAND
Param 1: O Class: TMENUITEM
TWINDOW:COMMAND
Param 1: N 20023
Local 1: O Class: TMENU
Local 2: O Class: TMENUITEM
TWINDOW:HANDLEEVENT
Param 1: N 20023
Param 2: N 0
Local 1: O Class: TWINDOW
Local 2: N 0
Local 3: N 20023
Local 4: N 0
_FWH
Param 1: N 273
Param 2: N 20023
Param 3: N 0
WINRUN
Param 1: N 0
Param 2: N 273
Param 3: N 20023
Param 4: N 0
Param 5: N 1
Local 1: O Class: TWINDOW
TWINDOW:ACTIVATE
Param 1: N 131760
MAIN
Param 1: C "MAXIMIZED"
Param 2: U
Param 3: U
Param 4: U
Param 5: U
Param 6: B {|| ... }
Param 7: U
Param 8: U
Param 9: U
Param 10: U
Param 11: U
Param 12: U
Param 13: U
Param 14: U
Param 15: U
Param 16: U
Param 17: U
Param 18: U
Param 19: U
Local 1: O Class: TWINDOW
Local 2: U
Local 3: U
Linked RDDs
===========
ADS
ADT
ADSVFP
ADSCDX
ADSNTX
DBF
DBFFPT
DBFBLOB
DBFNTX
DataBases in use
================
1: => TEST RddName: ADSCDX
==============================
RecNo RecCount BOF EOF
1 1 .F. .F.
Indexes in use TagName
Relations in use
Classes in use:
===============
1 ERROR
2 HBCLASS
3 HBOBJECT
4 HBDEBUGGER
5 HBDBMENU
6 HBDBMENUITEM
7 HBDBWINDOW
8 GET
9 HBGETLIST
10 HBDBBROWSER
11 TBCOLUMN
12 TWINDOW
13 TMENU
14 TMENUITEM
15 TBRUSH
16 TFONT
17 TCONTROL
18 TBITMAP
19 TMSGBAR
20 TRECT
21 TMSGITEM
22 TTIMER
23 TDIALOG
24 TBUTTON
25 TFILEREAD
26 TREG32
Memory Analysis
===============
180 Static variables
Dynamic memory consume:
Actual Value: 0 bytes
Highest Value: 0 bytes
