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
karinha wrote:Mi primero ejemplo en fivewin the best: a long long time ago. jejejejejejejejejej
Saludos.
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,
Contestado en viewtopic.php?f=3&t=34394
Gracias,
José Luis Sánchez wrote:Contestado en viewtopic.php?f=3&t=34394
Gracias,
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()