FiveTech Software tech support forums

Posted: **Fri Jul 28, 2017 4:11 pm**

Hola,

estoy migrando una vieja aplicación y quiero usar TDatabase de FWH. Revisando los ejemplos y demás, hay una cosa que no tengo clara y es el uso de la clase con varios DBF. ¿ Se puede crear un tdatabase para cada dbf que abro o al crear el objeto dbf y cambiar de alias mediante un select se cambia el objeto database de manera automática ? ¿ Algún ejemplo de uso de TDatabase con varios DBF ?

Saludos,
José Luis

Posted: **Fri Jul 28, 2017 4:21 pm**

Mira se ayuda, vários ejemplos simples de uso.

https://www.4shared.com/rar/rFE4iUitei/AULAINI.html

Saludos.

Posted: **Fri Jul 28, 2017 4:52 pm**

Mi primero ejemplo en fivewin the best: a long long time ago. jejejejejejejejejej

Saludos.

Posted: **Fri Jul 28, 2017 10:36 pm**

karinha wrote:Mi primero ejemplo en fivewin the best: a long long time ago. jejejejejejejejejej

Saludos.

this program is made by another man (Aulaware - A. Canudas) , you cannot be this man

Posted: **Sat Jul 29, 2017 9:50 am**

Gracias Joao,
no puedo ejecutar la aplicación porque tengo Windows 10 y no hay manera. He estado revisando el código y lo que hace es que cada vez que abre un DBF le asocia un objeto TDatabase. Creo que no es la manera de hacer las cosas, porque se puede quedar a mitad de editar un registro por no poder abrir otro dbf simplemente para seleccionar un registro como clave ajena.
Yo lo que quiero hacer es tener varias DBF abiertas, cada una con su objeto TDatabse asociado. ¿ Como puedo hacer esto ?

Saludos,

Posted: **Sun Jul 30, 2017 8:28 am**

Contestado en viewtopic.php?f=3&t=34394

Gracias,

Posted: **Tue Aug 01, 2017 1:50 pm**

José Luis Sánchez wrote:Contestado en viewtopic.php?f=3&t=34394

Gracias,

José, el intento, és que cuando posible, cambie los ejemplos a 32 ó 64 bits. Gracias, saludos.

Posted: **Tue Aug 01, 2017 1:56 pm**

Como yo uso:

Code: Select all Expand view: IF DeOndeVem != [DELIVERY] .AND. DeOndeVem != [RESERVAS] .AND. ; DeOndeVem != [LOCACAO] IF NetUse( "CADETIQ", .T. ) OrdListAdd( "CADETIQ", "RAZ_MATRIC", "DEST_NOME", "END", ; "NOME_ARTIS", "CPF", "CNPJ", ; "TELEFONE" ) //OrdDescend( ,,.T. ) // - Crescente OrdDescend( ,,.F. ) // - Decrescente DATABASE DbClientes DbClientes:Gotop() DbClientes:Load() DbClientes:SetBuffer( .T. ) ELSE MsgStop( "Banco de Dados dos CLIENTES Bloqueado", "Cuidado!" ) RETURN NIL ENDIF ENDIF IF NetUse( "CABCLALF", .T. ) // Exclusive: .F. Shared: .T. DATABASE DbCabec DbCabec:Load() DbCabec:SetBuffer( .T. ) DbCabec:GoTop() DbSkip(-1) ELSE MsgStop( "Banco de Dados Bloqueado", "Cuidado!" ) RETURN NIL ENDIF IF NetUse( "PAIEMAE", .T. ) OrdListAdd( "PAIEMAE", "RAZ_MATRIC" ) OrdDescend( ,,.F. ) // - Decrescente DATABASE DbPaieMae DbPaieMae:Gotop() DbPaieMae:Load() DbPaieMae:SetBuffer( .T. ) ELSE MsgStop( "Banco de Dados dos CLIENTES Bloqueado", "Cuidado!" ) RETURN NIL ENDIF DbSelectArea( ( DbClientes:cAlias ) ) DbClientes:SetOrder( 2 ) DbGoTop()

Saludos.

FiveTech Software tech support forums

Tdatabase con varios DBF

Tdatabase con varios DBF

Re: Tdatabase con varios DBF

Re: Tdatabase con varios DBF

Re: Tdatabase con varios DBF

Re: Tdatabase con varios DBF

Re: Tdatabase con varios DBF

Re: Tdatabase con varios DBF

Re: Tdatabase con varios DBF