Onde encontar exemplo com 2 ou mas files DBF/ntx

[PeterBaga]

Ola.

Onde posso encontar um exemplo PRG que abre 2 ou mais files DBF com 2 ou mais NTX em sinultaneo.
Em todos os test*.prg e tut*.prg que vem com FWPPC so se abre un unico file com um unico index.
Preciso de um exemplo que abra mais que um ficheiro DBF e com mais que um index por DBF.

Estou a comecar a utilizar FWPPC e estou com dificuldades em manipular varis DBF/NTX em simulataneo.
Muito grato pela atencao
Cumprimentos
Pedro Alexandre

[jrestojeda]

Hola Pedro...
Hace rato que no utilizo archivos NTX pero era algo así...

Code: Select all  Expand view

USE (CURDIR()+"\DATOS\ARTICULO.DBF") INDEX (CURDIR()+"\DATOS\Artic1.NTX"),(CURDIR()+"\DATOS\Artic2.NTX"),;
                                           (CURDIR()+"\DATOS\Artic3.NTX"),(CURDIR()+"\DATOS\Artic4.NTX"),;
                                     NEW SHARED ALIAS ARTICU
 

Espero te sirva.
Saludos desde Argentina, Esteban.

[PeterBaga]

Muchas Gracias por feed Back.
Lo que me passa y no entendo es... lo seguinte :

Este es mi programa:

#include "FWCE.ch"
//----------------------------------------------------------------------------//
REQUEST DBFCDX
//----------------------------------------------------------------------------//
Procedure Main()
local oWnd, oBtn1, oBtn2, oBtn3, oBmp1

SET DELETED ON
SET DATE TO ITALIAN
SET CENTURY ON
SET EPOCH TO 2000

If IsExeRunning( cFileName( HB_ArgV( 0 ) ) )
MsgInfo( "O SISPDA ja esta em execucao." )
return nil
Endif

USE ( CurDir() + "\CLIMES" ) VIA "DBFCDX" ALIAS "CLIMES" EXCLUSIVE NEW
if ! File( CurDir() + "\CLNUM.CDX" )
INDEX ON CLIMES->NUMERO TO ( CurDir() + "\CLNUM" )
Endif
if ! File( CurDir() + "\CLNOM.CDX" )
INDEX ON CLIMES->NOME TO ( CurDir() + "\CLNOM" )
Endif
SET INDEX TO (CurDir()+"\CLNUM"),(CurDir()+"\CLNOM")
CLIMES->( OrdSetFocus( "CLNUM" ) )
CLIMES->( DbGoTop() )

USE ( CurDir() + "\CLIPEN" ) VIA "DBFCDX" ALIAS "CLIPEN" EXCLUSIVE NEW
if ! File( CurDir() + "\CLPEN.CDX" )
INDEX ON CLIPEN->CLIENTE TO ( CurDir() + "\CLPEN" )
Endif
SET INDEX TO ( CurDir() + "\CLPEN" )
CLIPEN->( OrdSetFocus( "CLPEN" ))
CLIPEN->( DbGoTop() )


DEFINE WINDOW oWnd TITLE "SisPda 1.0"

@ 0, 0 LISTBOX oBrwCli ;
FIELDS LTrim(Str(CLIMES->NUMERO)), CLIMES->NOME ;
COLSIZES 50,60 ;
HEADERS "Nº.", "Nome" ;
SIZE 240, 180 ;
OF oWnd

ACTIVATE WINDOW oWnd

Return nil

Lo que passa es que el browse solo mostra siempre el mismo registo do file CLIMES. El registro nº.1.
Pero si abro solamente el CLIMES tudo esta bien.
So tengo este problema si abro el segundo file CLIPEN.

Gracias por cualquer ayuda.

[Antonio Linares]

Pedro,

Hazlo asi:

Code: Select all  Expand view

@ 0, 0 LISTBOX oBrwCli ;
FIELDS LTrim(Str(CLIMES->NUMERO)), CLIMES->NOME ;
COLSIZES 50,60 ;
HEADERS "Nº.", "Nome" ;
SIZE 240, 180 ;
OF oWnd ALIAS "CLIMES"
 

[PeterBaga]

Ok. Muito Obrigado.
Cumprimentos.