Hello,
Can someone help me please.
I try with:
index on field-> ORDER DAY TmpAUFT6 TO TEMPUMS TEMPORARY
to create a temporary index.
Where is it created?
Error description: (DOS Error 267) DBFCDX/1006 Create error: TEMPUMS.cdx
Best regards
Otto
Otto wrote:Hello,
Can someone help me please.
I try with:
index on field-> ORDER DAY TmpAUFT6 TO TEMPUMS TEMPORARY
#include 'fivewin.ch'
//----------------------------------------------------------------------------//
REQUEST DBFCDX
REQUEST DBFFPT
//----------------------------------------------------------------------------//
Function main()
//----------------------------------------------------------------------------//
? GETENV("TMP")
use "umsatz.dbf" new
index on field->bezeichnun TAG TmpB5Nr TO TEMP5 TEMPORARY
xbrowse("umsatz")
msginfo( procname() + " " + str(procline()) + " " + str( 1 ) )
return nil
//----------------------------------------------------------------------------//
INIT PROCEDURE PrgInit
SET CENTURY ON
SET EPOCH TO YEAR(DATE())-98
SET DELETED ON
SET EXCLUSIVE OFF
REQUEST HB_Lang_DE
HB_LangSelect("DE")
SET DATE TO GERMAN
SetHandleCount(205)
rddsetdefault( "DBFCDX" )
SetGetColorFocus()
EXTERN DESCEND
SetBalloon( .F. )
SetKinetic( .T. )
fwNumFormat( 'E', .t. )
RETURN
#include 'Fivewin.ch'
#Include "Directry.ch"
#Include "Ord.Ch"
ANNOUNCE RDDSYS
REQUEST DBFCDX
REQUEST DBFFPT
EXTERNAL DESCEND
FUNCTION Main()
//----------------------------------------------------------------------------//
? GETENV( "TMP" )
// USE "umsatz.dbf" new
// INDEX ON field->bezeichnun TAG TmpB5Nr TO TEMP5 TEMPORARY
// xbrowse( "umsatz" )
USE CUSTOMER NEW
INDEX ON FIELD->FIRST TAG FIRST TO TEMP5 TEMPORARY // MEMORY
GO TOP
xbrowse( "CUSTOMER" )
msginfo( procname() + " " + str( procline() ) + " " + str( 1 ) )
RETURN nil
//----------------------------------------------------------------------------//
INIT PROCEDURE PrgInit
SET DATE TO GERMAN
SET CENTURY ON
// SET EPOCH TO YEAR( DATE() ) - 98 //??
SET EPOCH TO YEAR( DATE() ) - 50 // OR 30
SET DELETED ON
SET EXCLUSIVE OFF
SET MULTIPLE OFF
REQUEST HB_Lang_DE
HB_LangSelect( "DE" )
// SetHandleCount( 205 ) // 16 Bits ??
rddsetdefault( "DBFCDX" )
SetGetColorFocus()
SetBalloon( .F. )
SetKinetic( .T. )
fwNumFormat( 'E', .T. )
RETURN NIL
Return to FiveWin for Harbour/xHarbour
Users browsing this forum: nageswaragunupudi and 95 guests