- Code: Select all Expand view
0010:3E04 00692H ALLOC_TEXT CODE
This is strange because I use the same technique in all my apps when indexing. The code I use if as follows
[code]
STATIC cId1:="$Id: ADI_OPEN.PRG,v 1.1 2006/01/03 22:07:16 ΧΡΟΝΗΣ Exp $"
#include "SIXCDX2.CH"
#include "FiveWin.ch"
#command INDEX ON <key> TAG <(tag)> [OF <(cdx)>] ;
[FOR <for>] ;
[ALL] ;
[ASCENDING] ;
[<dec: DESCENDING>] ;
[<u: UNIQUE>] ;
[<cur: USECURRENT>] ;
[<cur: SUBINDEX>] ;
[EVAL <opt> [EVERY <step>]] ;
[OPTION <opt> [STEP <step>]] ;
[<add: ADDITIVE>] ;
[<filt: FILTERON>] ;
=> ;
m6_ordCondSet(<"for">, <{for}>, NIL, NIL, <{opt}>, ;
<step>, RECNO(), NIL, NIL, NIL, [<.dec.>], ;
.T., <(cdx)>, <.cur.>, .F., NIL, <.add.>, NIL, ;
<.filt.> ) ;
; m6_ordCreate( <(cdx)>, <(tag)>, <"key">, <{key}>, [<.u.>] )
FUNCTION OpenDbfs()
PRIVATE oDlg1,;
oMeter1,;
nMeter1 := 0,;
oMeter2,;
nMeter2 := 0,;
lRetVal := .F.,;
oOpenIco,;
lDlgKill
lDlgKill := .F.
DEFINE DIALOG oDlg1 NAME "FLS_OPEN";
FONT oMainFont OF oMainWin;
COLOR CLR_BLACK, CLR_HGRAY
REDEFINE BITMAP ID 101 NAME "FILES04" OF oDlg1
REDEFINE METER oMeter1 VAR nMeter1 ID 102 TOTAL 7 OF oDlg1 COLOR CLR_WHITE, CLR_BLACK BARCOLOR CLR_BLUE, CLR_WHITE
REDEFINE METER oMeter2 VAR nMeter2 ID 103 TOTAL 7 OF oDlg1 COLOR CLR_WHITE, CLR_BLACK BARCOLOR CLR_BLUE, CLR_WHITE
oDlg1:bStart := {|| FileOpn()}
ACTIVATE DIALOG oDlg1 VALID lDlgKill CENTER
CursorArrow()
RETURN lRetVal
STATIC FUNCTION FileOpn()
CursorWait()
SELECT 1
IF !FILE("ADIBOOK.DBF")
MSGStop(OemToAnsi("’¦ ˜¨®œε¦ «ΰ¤ ˜›œ ι¤ ƒ„Œ ™¨βŸž΅œ!!!" +CRLF+;
"륦›¦ ˜§ζ «¦ §¨ζš¨˜££˜"), OemToAnsi("
