topic-41124

Posts: 7318

Joined: Thu Oct 18, 2012 07:17 PM

DBT ->FPT
Posted: Sat Nov 27, 2021 09:21 AM

I'm converting a oldesta prg ( from clipper) and I have Dbf and Dbt, now I use Cdx and fpt
How I can change dbt on Fpt ?

Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com

Marc Venken

Posts: 1487

Joined: Tue Jun 14, 2016 07:51 AM

Re: DBT ->FPT
Posted: Sat Nov 27, 2021 10:00 AM

I did it like this...

Comix will become "DBFCDX" now

Code (fw): Select all Collapse

FUNCTION dbffpt()
   //use emaillog
   //copy to c:\marc\fpt\emaillog.dbf via "COMIX"
   //close all
   //*
    LOCAL aFiles[ADIR("c:\marc\*.dbf")]
    cursorwait()
    ADIR("c:\marc\*.dbf", aFiles)
    asort(afiles)
    for i = 1 to len(aFiles)
       cFile = alltrim(aFiles[i])
       use &cfile
       cTarget = "c:\marc\fpt\" + cfile
       copy to &cTarget via "COMIX"
       close all
    next
    */
   msginfo("Done")
RETURN

Marc Venken

Using: FWH 23.08 with Harbour

Silvio.Falconi

Posts: 7318

Joined: Thu Oct 18, 2012 07:17 PM

Re: DBT ->FPT
Posted: Sat Nov 27, 2021 10:06 AM

Marc Venken wrote:I did it like this...

Comix will become "DBFCDX" now

Code (fw): Select all Collapse

FUNCTION dbffpt()
   //use emaillog
   //copy to c:\marc\fpt\emaillog.dbf via "COMIX"
   //close all
   //*
    LOCAL aFiles[ADIR("c:\marc\*.dbf")]
    cursorwait()
    ADIR("c:\marc\*.dbf", aFiles)
    asort(afiles)
    for i = 1 to len(aFiles)
       cFile = alltrim(aFiles[i])
       use &cfile
       cTarget = "c:\marc\fpt\" + cfile
       copy to &cTarget via "COMIX"
       close all
    next
    */
   msginfo("Done")
RETURN

I made

Code (fw): Select all Collapse

#include "fivewin.ch"

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


FUNCTION dbffpt()
   //use emaillog
   //copy to c:\marc\fpt\emaillog.dbf via "COMIX"
   //close all
   //*
    LOCAL aFiles[ADIR("*.dbf")]
    cursorwait()
    ADIR("*.dbf", aFiles)
    asort(afiles)
    for i = 1 to len(aFiles)
       cFile = alltrim(aFiles[i])
       use &cfile
       cTarget = ".\fpt\" + cfile
       copy to &cTarget via "DBFCDX"
       close all
    next
    
   msginfo("Done")
RETURN

make me error
Error occurred at: 11/27/21, 11:05:02
Error description: Error DBFNTX/1001 Open error: Agenti

Stack Calls
===========
Called from: => DBUSEAREA( 0 )
Called from: test.prg => DBFFPT( 20 )

System

Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com

Marc Venken

Posts: 1487

Joined: Tue Jun 14, 2016 07:51 AM

Re: DBT ->FPT
Posted: Sat Nov 27, 2021 10:14 AM

Silvio..

You may have to set

RDDSetDefault( "DBFNTX" )
or
RDDSetDefault( "DBFCDX" )
or
use database via "DBFNTX"

Marc Venken

Using: FWH 23.08 with Harbour

Marc Venken

Posts: 1487

Joined: Tue Jun 14, 2016 07:51 AM

Re: DBT ->FPT
Posted: Sat Nov 27, 2021 10:27 AM

This is working :

Code (fw): Select all Collapse

#include "fivewin.ch"

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


FUNCTION dbffpt()
   //use emaillog
   //copy to c:\marc\fpt\emaillog.dbf via "COMIX"
   //close all
   //*
    LOCAL aFiles[ADIR("*.dbf")]
    cursorwait()
    ADIR("*.dbf", aFiles)
    asort(afiles)
    for i = 1 to len(aFiles)
       cFile = alltrim(aFiles[i])
       use &cfile via "DBFNTX"
       cTarget = ".\fpt\" + cfile
       copy to &cTarget via "DBFCDX"
       close all
       if I = 10  // for testing
          exit
       endif
    next

   msginfo("Done")
RETURN

Marc Venken

Using: FWH 23.08 with Harbour

Silvio.Falconi

Posts: 7318

Joined: Thu Oct 18, 2012 07:17 PM

Re: DBT ->FPT
Posted: Sat Nov 27, 2021 11:52 AM

thanks Great

Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com

FiveTech Support Forums

Continue the discussion