Posts: 52

Joined: Sun Jan 24, 2010 03:39 PM

Onde encontar exemplo com 2 ou mas files DBF/ntx
Posted: Thu Feb 04, 2010 06:22 PM

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

Pedro Alexandre C. Bagarrão

jrestojeda

Posts: 601

Joined: Wed Jul 04, 2007 03:51 PM

Re: Onde encontar exemplo com 2 ou mas files DBF/ntx
Posted: Thu Feb 04, 2010 08:16 PM

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

Code (fw): Select all Collapse

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.

Ojeda Esteban Eduardo.

Buenos Aires - Argentina.

FWH - PellesC - DBF/CDX - ADS - Gloriosos .Bat - MySql - C# .net - FastReport

Skype: jreduojeda

PeterBaga

Posts: 52

Joined: Sun Jan 24, 2010 03:39 PM

Re: Onde encontar exemplo com 2 ou mas files DBF/ntx
Posted: Thu Feb 04, 2010 10:30 PM

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.

Pedro Alexandre C. Bagarrão

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: Onde encontar exemplo com 2 ou mas files DBF/ntx
Posted: Fri Feb 05, 2010 07:16 AM

Pedro,

Hazlo asi:

Code (fw): Select all Collapse

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

regards, saludos

Antonio Linares
www.fivetechsoft.com

PeterBaga

Posts: 52

Joined: Sun Jan 24, 2010 03:39 PM

Re: Onde encontar exemplo com 2 ou mas files DBF/ntx
Posted: Sat Feb 06, 2010 09:38 AM

Ok. Muito Obrigado.
Cumprimentos.

Pedro Alexandre C. Bagarrão

FiveTech Support Forums

include "FWCE.ch"

Continue the discussion