strange error on index with ftp

[Silvio.Falconi]

I have a strange error making index with dbf and ftp


on main.prg I set


REQUEST DBFCDX
REQUEST DBFFPT
EXTERNAL ORDKEYNO,ORDKEYCOUNT,ORDCREATE,ORDKEYGOTO

FUNCTION Main()

PUBLIC oApp

RddSetDefault( "DBFCDX" )
SetHandleCount( 100 )

SET DATE FORMAT "dd-mm-yyyy"
SET DELETED ON
SET CENTURY ON
SET EPOCH TO year( date() ) - 20
SET MULTIPLE OFF

SetBalloon( .T. )









WITH OBJECT oApp := TApplication():New()
:Activate()
END

RETURN nil






when I make the index it make error because it go to found DBT file and not FPT why ?

Code: Select all  Expand view

Application
===========
   Path and name: C:\Work\Prg\Studio\Studio.Exe (32 bits)
   Size: 7,020,544 bytes
   Compiler version: Harbour 3.2.0dev (r1703231115)
   FiveWin  version: FWH 17.12
   C compiler version: Borland/Embarcadero C++ 7.0 (32-bit)
   Windows version: 6.1, Build 7600

   Time from start: 0 hours 0 mins 14 secs
   Error occurred at: 22-03-2018, 19:49:37
   Error description: (DOS Error 2) DBFCDX/1002  Errore in apertura: .\2013\Data\Agenda.dbt

Stack Calls
===========
   Called from:  => DBUSEAREA( 0 )
   Called from: source\ut\ut_dbf.prg => DB_OPENNOINDEX( 66 )
   Called from: source\ut\ut_index.prg => UT_CREARCDX( 1295 )
   Called from: source\ut\ut_index.prg => (b)UT_INDEXAR( 770 )
   Called from: .\source\classes\DIALOG.PRG => (b)TDIALOG( 95 )
   Called from: .\source\classes\DIALOG.PRG => TDIALOG:DISPLAY( 0 )
   Called from: .\source\classes\DIALOG.PRG => TDIALOG:HANDLEEVENT( 909 )
   Called from:  => DIALOGBOXINDIRECT( 0 )
   Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE( 296 )
   Called from: source\ut\ut_index.prg => UT_INDEXAR( 774 )
   Called from: source\Main.prg => (b)TAPPLICATION_BUILDBTNBAR2( 1224 )
   Called from: .\source\classes\TRBTN.PRG => TRBTN:CLICK( 717 )
   Called from: .\source\classes\TRBTN.PRG => TRBTN:LBUTTONUP( 917 )
   Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( 1721 )
   Called from: .\source\classes\TRBTN.PRG => TRBTN:HANDLEEVENT( 1575 )
   Called from: .\source\classes\WINDOW.PRG => _FWH( 3356 )
   Called from:  => WINRUN( 0 )
   Called from: .\source\classes\WINDOW.PRG => TWINDOW:ACTIVATE( 1037 )
   Called from: source\Main.prg => TAPPLICATION:ACTIVATE( 451 )
   Called from: source\Main.prg => MAIN( 66 )

on Index I open the file with no index and make the index

[Otto]

Hello Silvio,
did you found a solution?
Best regards,
Otto

[Silvio.Falconi]

no. I 'm working to resolve it

[Enrico Maria Giordano]

It shouldn't be needed but try this:

Code: Select all  Expand view

RDDINFO( RDDI_MEMOEXT, ".FPT" )

You are going to need this too:

Code: Select all  Expand view

#include "Dbinfo.ch"

EMG

[Silvio.Falconi]

enrico,
i use other files with ftp and only one make error

[Busmatic_wpb]

Estimado Silvio .
Mira haber si te sirve algpo de esto..

viewtopic.php?f=6&t=35464

Creo que si , pronto hare la proxima entrega.

Oscar Chacon.
www.SITUSR.com