Ver Mensaje Individual
  #8  
Antiguo 11-12-2007
Avatar de Caral
[Caral] Caral is offline
Miembro Premium
 
Registrado: ago 2006
Posts: 7.659
Reputación: 26
Caral Va por buen camino
Hola
Vamos a ver, recuerda que soy novato, asi que no esperes mucho.
Para empezar, tenemos una tabla clientes (al que pertenece el dbedit, el nombre cliente es una variable tipo string, el cual contendra ese valor.)
El dbnavigator esta enlazado a la tabla soporte (Table_Soporte).

Lo que se pretende es que cuando se le de click al dbnavigator (en la opcion post), este haga un post en la tabla soporte y que cambie el valor del campo cli_cod de esa tabla.

Ahora veamos el codigo:
Primero, (para mi) se necesita que la tabla este o bien en edit o bien en insert antes de hacer un post.
Esto lo haria en un boton independiente (para ver que pasa).
Se pondria en edit o en insert el dbnavigator y en el evento onclick del boton pondria esto:
Para empezar creo que la tabla Table_Soporte ya tiene que estar activa, ya que si no es asi, como se puede hacer un edit o un insert?.
Código Delphi [-]
begin
// aqui le preguntamos si esta en edit o en insert la tabla.
If (Unit_DataSoporte.DataModule_Soporte.Table_Soporte.State = dsEdit) or (Unit_DataSoporte.DataModule_Soporte.Table_Soporte.State = dsInsert) then
     begin
with Unit_DataSoporte.DataModule_Soporte.Table_Soporte do
begin
Unit_DataSoporte.DataModule_Soporte.Table_Soporte.Filter := 'cli_cod=' + cliente; // filtramos y encontramos el codigo Soporte = al codigo Cliente.
Filtered := True; // indicamos que filtre
Unit_DataSoporte.DataModule_Soporte.Table_Soporte.Filter := Cliente; // le indicamos que el campo cli_cod de soporte sea igual que cliente.
Unit_DataSoporte.DataModule_Soporte.Table_Soporte.post; // lo grabamos.
end;

end;
Pura especulacion, pero seguro que te dara mucha mas idea del asunto.
Saludos
Responder Con Cita