Page 1 of 1

Onde encontar exemplo com 2 ou mas files DBF/ntx

Posted: Thu Feb 04, 2010 6:22 pm
by 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

Re: Onde encontar exemplo com 2 ou mas files DBF/ntx

Posted: Thu Feb 04, 2010 8:16 pm
by jrestojeda
Hola Pedro...
Hace rato que no utilizo archivos NTX pero era algo así...

Code: Select all

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.

Re: Onde encontar exemplo com 2 ou mas files DBF/ntx

Posted: Thu Feb 04, 2010 10:30 pm
by 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.

Re: Onde encontar exemplo com 2 ou mas files DBF/ntx

Posted: Fri Feb 05, 2010 7:16 am
by Antonio Linares
Pedro,

Hazlo asi:

Code: Select all

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

Re: Onde encontar exemplo com 2 ou mas files DBF/ntx

Posted: Sat Feb 06, 2010 9:38 am
by PeterBaga
Ok. Muito Obrigado.
Cumprimentos.