Onde encontar exemplo com 2 ou mas files DBF/ntx

Onde encontar exemplo com 2 ou mas files DBF/ntx

Postby PeterBaga » Thu Feb 04, 2010 6: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
User avatar
PeterBaga
 
Posts: 52
Joined: Sun Jan 24, 2010 3:39 pm

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

Postby jrestojeda » Thu Feb 04, 2010 8:16 pm

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.
Ojeda Esteban Eduardo.
Buenos Aires - Argentina.
FWH - PellesC - DBF/CDX - ADS - Gloriosos .Bat - MySql - C# .net - FastReport
Skype: jreduojeda
User avatar
jrestojeda
 
Posts: 583
Joined: Wed Jul 04, 2007 3:51 pm
Location: Buenos Aires - Argentina

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

Postby PeterBaga » 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
User avatar
PeterBaga
 
Posts: 52
Joined: Sun Jan 24, 2010 3:39 pm

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

Postby Antonio Linares » Fri Feb 05, 2010 7:16 am

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"
 
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 41206
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

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

Postby PeterBaga » Sat Feb 06, 2010 9:38 am

Ok. Muito Obrigado.
Cumprimentos.
Pedro Alexandre C. Bagarrão
User avatar
PeterBaga
 
Posts: 52
Joined: Sun Jan 24, 2010 3:39 pm


Return to FiveWin para Pocket PC

Who is online

Users browsing this forum: No registered users and 7 guests