[Giniromero]

Hola a todos,

Tiene que ser algo del propio TBClientes, pues he puesto en dbedits campos de otro IBDataSet que también está conectado con el de TbAlumnos de la misma forma, y ese me lo refresca sin necesidad de hacer click sobre cada dbedit.

Las propiedades de la tabla que me da problemas son:


object TbClientes: TIBDataSet
Database = IBDBFX
Transaction = IBTransFX
AfterCancel = AfterCancel
AfterPost = AfterPost
BufferChunks = 1000
CachedUpdates = True
DeleteSQL.Strings = (
'delete from CLIENTES'
'where'
' NIC = :OLD_NIC')
InsertSQL.Strings = (
'insert into CLIENTES'

' (ACTCL, APELCL, CCCCL, CL2, CODPCL, CONDICL, CONTACTO, DOMICL,' +
' EMAIL, '

' NIC, NIFCL, NOMAILCLIEN, NOMCL, NOMCLAN, PAISCL, POBCL, PROVC' +
'L, SEXCL, '
' TELFCL, VIACL)'
'values'

' (:ACTCL, :APELCL, :CCCCL, :CL2, :CODPCL, :CONDICL, :CONTACTO, ' +
'OMICL, '

' :EMAIL, :NIC, :NIFCL, :NOMAILCLIEN, :NOMCL, :NOMCLAN, :PAISCL' +
', :POBCL, '
' :PROVCL, :SEXCL, :TELFCL, :VIACL)')
RefreshSQL.Strings = (
'Select '
' NIC,'
' APELCL,'
' NOMCL,'
' SEXCL,'
' ACTCL,'
' CL2,'
' CONTACTO,'
' VIACL,'
' DOMICL,'
' CODPCL,'
' POBCL,'
' PROVCL,'
' PAISCL,'
' TELFCL,'
' NOMCLAN,'
' CONDICL,'
' NIFCL,'
' NOMAILCLIEN,'
' EMAIL,'
' CCCCL'
'from CLIENTES '
'where'
' NIC = :NIC')
SelectSQL.Strings = (

'select ACTCL, APELCL, CCCCL, CL2, CODPCL, CONDICL, CONTACTO, DOM' +
'ICL, EMAIL, NIC, NIFCL, NOMAILCLIEN, NOMCL, NOMCLAN, PAISCL, POB' +
'CL, PROVCL, SEXCL, TELFCL, VIACL from CLIENTES'
'WHERE NIC =:NIC')
ModifySQL.Strings = (
'update CLIENTES'
'set'
' ACTCL = :ACTCL,'
' APELCL = :APELCL,'
' CCCCL = :CCCCL,'
' CL2 = :CL2,'
' CODPCL = :CODPCL,'
' CONDICL = :CONDICL,'
' CONTACTO = :CONTACTO,'
' DOMICL = OMICL,'
' EMAIL = :EMAIL,'
' NIC = :NIC,'
' NIFCL = :NIFCL,'
' NOMAILCLIEN = :NOMAILCLIEN,'
' NOMCL = :NOMCL,'
' NOMCLAN = :NOMCLAN,'
' PAISCL = :PAISCL,'
' POBCL = :POBCL,'
' PROVCL = :PROVCL,'
' SEXCL = :SEXCL,'
' TELFCL = :TELFCL,'
' VIACL = :VIACL'
'where'
' NIC = :OLD_NIC')
GeneratorField.Field = 'NIC'
GeneratorField.Generator = 'GEN_CLIENTES_ID'
GeneratorField.ApplyEvent = gamOnPost
DataSource = SrcAlumnos
Left = 168
Top = 184
object TbClientesACTCL: TIBStringField
FieldName = 'ACTCL'
Origin = 'CLIENTES.ACTCL'
end
object TbClientesAPELCL: TIBStringField
FieldName = 'APELCL'
Origin = 'CLIENTES.APELCL'
Size = 50
end
object TbClientesCCCCL: TIBStringField
FieldName = 'CCCCL'
Origin = 'CLIENTES.CCCCL'
Size = 25
end
object TbClientesCL2: TIBStringField
FieldName = 'CL2'
Origin = 'CLIENTES.CL2'
Size = 35
end
object TbClientesCODPCL: TIBStringField
FieldName = 'CODPCL'
Origin = 'CLIENTES.CODPCL'
Size = 5
end
object TbClientesCONDICL: TIBStringField
FieldName = 'CONDICL'
Origin = 'CLIENTES.CONDICL'
Size = 50
end
object TbClientesCONTACTO: TIBStringField
FieldName = 'CONTACTO'
Origin = 'CLIENTES.CONTACTO'
Size = 50
end
object TbClientesDOMICL: TIBStringField
FieldName = 'DOMICL'
Origin = 'CLIENTES.DOMICL'
Size = 50
end
object TbClientesEMAIL: TIBStringField
FieldName = 'EMAIL'
Origin = 'CLIENTES.EMAIL'
Size = 40
end
object TbClientesNIC: TSmallintField
FieldName = 'NIC'
Origin = 'CLIENTES.NIC'
Required = True
end
object TbClientesNIFCL: TIBStringField
FieldName = 'NIFCL'
Origin = 'CLIENTES.NIFCL'
Size = 10
end
object TbClientesNOMAILCLIEN: TIBStringField
FieldName = 'NOMAILCLIEN'
Origin = 'CLIENTES.NOMAILCLIEN'
Size = 1
end
object TbClientesNOMCL: TIBStringField
FieldName = 'NOMCL'
Origin = 'CLIENTES.NOMCL'
Size = 15
end
object TbClientesNOMCLAN: TIBStringField
FieldName = 'NOMCLAN'
Origin = 'CLIENTES.NOMCLAN'
Size = 15
end
object TbClientesPAISCL: TIntegerField
FieldName = 'PAISCL'
Origin = 'CLIENTES.PAISCL'
end
object TbClientesPOBCL: TIBStringField
FieldName = 'POBCL'
Origin = 'CLIENTES.POBCL'
Size = 35
end
object TbClientesPROVCL: TIBStringField
FieldName = 'PROVCL'
Origin = 'CLIENTES.PROVCL'
Size = 15
end
object TbClientesSEXCL: TIBStringField
FieldName = 'SEXCL'
Origin = 'CLIENTES.SEXCL'
Size = 1
end
object TbClientesTELFCL: TIBStringField
FieldName = 'TELFCL'
Origin = 'CLIENTES.TELFCL'
Size = 30
end
object TbClientesVIACL: TIBStringField
FieldName = 'VIACL'
Origin = 'CLIENTES.VIACL'
Size = 3
end
end


Si alguien ve algo en esto que pueda tener que ver.... os agradecería que me lo digeseis.... por que yo no he encontrado nada, por ahora.

Bueno, muchas gracias por todo.

Seguiré investigando.

Virginia