Analizando Maestro-Detalle

[ecfisa]

Hola.

Empezado por mRoman

Este campo forma parte de la llave primaria, definido como NOT NULL desde la base de datos, por lo tanto si requiere el dato.

Ah, correcto... y supongo que ya controlaste que tenga un valor ingresado. Pensé en esa columna por que era la que estaba señalizada en el mensaje de error.
Pero también podría ser cualquier otra que tenga su propiedad Required en True la que esté disparando la excepción y, como señaló orodriguezca, el problema se esté generando en otro lado.

Esa situación podría producirse cuando, por ejemplo, generas los campos en el IBDataSet y luego modificas (quitas) la restricción NOT NULL desde la bd. En ese caso tal vez te funcione volver a gererar las sentencias SQL de los IBDataSets que actuan en la relación.

Realmente es muy difícil tratar de reproducir la situación de error dado lo largo del código y los múltiples elementos que entran en juego.


Saludos

[mRoman]

Empezado por ecfisa

Hola.

Ah, correcto... y supongo que ya controlaste que tenga un valor ingresado. Pensé en esa columna por que era la que estaba señalizada en el mensaje de error.
Pero también podría ser cualquier otra que tenga su propiedad Required en True la que esté disparando la excepción y, como señaló orodriguezca, el problema se esté generando en otro lado.

Esa situación podría producirse cuando, por ejemplo, generas los campos en el IBDataSet y luego modificas (quitas) la restricción NOT NULL desde la bd. En ese caso tal vez te funcione volver a gererar las sentencias SQL de los IBDataSets que actuan en la relación.

Realmente es muy difícil tratar de reproducir la situación de error dado lo largo del código y los múltiples elementos que entran en juego.


Saludos

Ya hice las pruebas, hice lo q me sugierieron, revisé con el ShowMessage que el objeto edLecheria, tuviera datos en su propiedad Text y sí, si tiene.

Realice la verificacion de los campos del Maestro y el Detalle, dentro del DataSet respectivo y los campos que pertenecen a la PrimaryKey de la tabla, tenian en su propiedad Required=True, se lo cambie a False y ya no marco error al momento de realizar el Post al dataset del detalle, ahora lo marca en el ApplyUpdates.

Código Delphi [-]
procedure TfrmPBLCaptura.btnGuardarClick(Sender: TObject);
begin
     try
         dsPBLDetalle.DataSource:=nil;
         try
           ModDatos.dbFluida.ApplyUpdates( [dsPBLMaestro, dsPBLDetalle] );
         finally
           dsPBLDetalle.DataSource:=dSoPBLMaestro;
         end;
         ModDatos.trsFluida.CommitRetaining;
     except
       on E: Exception do
       begin
          Application.MessageBox('El o los registros no pueden ser grabados en este momento, probablemente el registro que estas consultando esta siendo editado por otro usuario','Error', mb_ok+mb_IconError);
          ShowMessage(E.Message);
          ModDatos.trsFluida.RollbackRetaining;
       end;
     end;
     mskAnio.SetFocus;
end;

 'validation error for column LECHER, value "*** null ***"'.

Quiere decir q entonces no se esta almacenando nada cuando se ejecuta este código:

Código Delphi [-]
procedure TfrmPBLCaptura.btnAgregarClick(Sender: TObject);
begin
    btnGuardar.Enabled:=True;
//    AbrirDetalle(Sender);
    RegNuevo:=1;
    dsPBLDetalle.Append;
        dsPBLDetalle.FieldByName('LECHER').AsString:=edLecheria.Text; // Como que aqui no esta haciendo la asignacion....raro!
    dsPBLDetalle.FieldByName('pbl_mes').AsInteger:=cbxMes.ItemIndex+1; //Por lo tanto aqui tampoco
    dsPBLDetalle.FieldByName('pbl_anio').AsString:=mskAnio.Text;
    dsPBLDetalle.FieldByName('id_pbl_tipo').AsInteger:=cbxTipoPBL.KeyValue;
    dsPBLDetalle.FieldByName('id_pbl_causa').AsInteger:=cbxCausasPBL.KeyValue;
    dsPBLDetalle.FieldByName('pbl_det_dias').AsString:=edDias.Text;
    dsPBLDetalle.FieldByName('pbl_det_diferencia').AsString:=edDiferencia.Text;
    dsPBLDetalle.Post;
    AbrirDetalleGrid(Sender);
    cbxTipoPBL.SetFocus;
end;

(Lo marcado con color son los campos de la llave primaria de la tabla DETALLE)

Sinceramente esta es la primera vez que trabajo Maestro-Detalle usando el enlace entre los dataset, mediante la propiedad DataSource.

Ahora por donde va la cosa???...

Gracias por su tiempo !. Saludos

[ecfisa]

Hola.

Cuando la estructura del algoritmo se complejiza y estamos en una situación nueva, es muy útil crearse un ejemplo simple para cotejar con lo echo.

Te hice uno basado en Firebird+IBX, espero te sirva de guía.

Tablas:

Código SQL [-]
SET TERM ^ ;

CREATE TABLE MAESTRO(
  ID         INTEGER NOT NULL,
  TEXT       VARCHAR(30) CHARACTER SET ISO8859_1 COLLATE ES_ES_CI_AI,
  CONSTRAINT PK_MAESTRO PRIMARY KEY(ID)

)^

CREATE TABLE DETALLE (
  ID         INTEGER NOT NULL,
  TEXT       VARCHAR(30) CHARACTER SET ISO8859_1 COLLATE ES_ES_CI_AI,
  MAESTRO_ID INTEGER NOT NULL,
  CONSTRAINT PK_DETALLE PRIMARY KEY(ID),
  CONSTRAINT FK_DETALLE FOREIGN KEY(MAESTRO_ID) REFERENCES MAESTRO(ID)
) ^

SET TERM ; ^

DataModule:

Código Delphi [-]
unit Unit2;

interface

uses SysUtils, Classes, DB, IBCustomDataSet, IBDatabase;

type
  TDataModule1 = class(TDataModule)
    IBDatabase1: TIBDatabase;
    IBTransaction1: TIBTransaction;
    tbMaster: TIBDataSet;
    tbDetail: TIBDataSet;
    dsMaster: TDataSource;
    dsDetail: TDataSource;
    procedure DataModuleCreate(Sender: TObject);
    procedure DataModuleDestroy(Sender: TObject);
  private
  public
  end;

var
  DM: TDataModule1;

implementation {$R *.dfm}

procedure TDataModule1.DataModuleCreate(Sender: TObject);
begin
  IBTransaction1.DefaultDatabase := IBDatabase1;

  // Master table
  tbMaster.Database := IBDatabase1;
  tbMaster.SelectSQL.Text  := 'SELECT * FROM MAESTRO';
  tbMaster.RefreshSQL.Text := 'SELECT ID, TEXT FROM MAESTRO WHERE ID = :ID';
  tbMaster.ModifySQL.Text  := 'UPDATE MAESTRO SET ID  = :ID, TEXT = :TEXT WHERE ID = :OLD_ID';
  tbMaster.InsertSQL.Text  := 'INSERT INTO MAESTRO(ID, TEXT) VALUES(:ID, :TEXT)';
  tbMaster.DeleteSQL.Text  := 'DELETE FROM MAESTRO WHERE ID = :OLD_ID';
  dsMaster.DataSet         := tbMaster;
  tbMaster.CachedUpdates   := True;

  // Detail table
  tbDetail.Database := IBDatabase1;
  tbDetail.SelectSQL.Text  := 'SELECT * FROM DETALLE WHERE MAESTRO_ID = :ID';
  tbDetail.RefreshSQL.Text := 'SELECT ID, TEXT, MAESTRO_ID FROM DETALLE WHERE ID = :ID';
  tbDetail.ModifySQL.Text  := 'UPDATE DETALLE SET ID = :ID, TEXT = :TEXT, MAESTRO_ID = :MAESTRO_ID WHERE ID = :OLD_ID';
  tbDetail.InsertSQL.Text  := 'INSERT INTO DETALLE(ID, TEXT, MAESTRO_ID) VALUES(:ID, :TEXT, :MAESTRO_ID)';
  tbDetail.DeleteSQL.Text  := 'DELETE FROM DETALLE WHERE ID = :OLD_ID';
  tbDetail.DataSource      := dsMaster;
  dsDetail.DataSet         := tbDetail;
  tbDetail.CachedUpdates   := True;
end;

procedure TDataModule1.DataModuleDestroy(Sender: TObject);
begin
  tbDetail.CachedUpdates := False;
  tbMaster.CachedUpdates := False;
end;
end.

(el DataModule deberá ser el primero en Auto-create forms )

Prueba:

Código Delphi [-]
unit Unit1;

interface

uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, 
  DBCtrls, Grids, DBGrids, StdCtrls;

type
  TForm1 = class(TForm)
    GroupBox1: TGroupBox;
    DBGrid1: TDBGrid;
    DBNavigator1: TDBNavigator;
    GroupBox2: TGroupBox;
    DBGrid2: TDBGrid;
    DBNavigator2: TDBNavigator;
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
  public
  end;

var
  Form1: TForm1;

implementation {$R *.dfm}

uses Unit2;

procedure TForm1.FormCreate(Sender: TObject);
begin
  DBGrid1.DataSource      := DM.dsMaster;
  DBNavigator1.DataSource := DM.dsMaster;
  DBGrid2.DataSource      := DM.dsDetail;
  DBNavigator1.DataSource := DM.dsDetail;
  DM.tbMaster.Open;
  DM.tbDetail.Open;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
   DM.tbDetail.Close;
   DM.tbMaster.Close;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  // add some data to master
  DM.tbMaster.Append;
  DM.tbMaster.FieldByName('ID').AsInteger  := 5;
  DM.tbMaster.FieldByName('TEXT').AsString := 'ROW 5';
  // add some data to detail
  DM.tbDetail.Append;
  DM.tbDetail.FieldByName('ID').AsInteger  := 6;
  DM.tbDetail.FieldByName('TEXT').AsString := '';
  DM.tbDetail.FieldByName('MAESTRO_ID').AsInteger := 5;
  // Save cache data
  DM.tbDetail.DataSource := nil;
  try
    DM.IBDatabase1.ApplyUpdates([DM.tbMaster, DM.tbDetail]);
  finally
    DM.tbDetail.DataSource := DM.dsMaster;
  end;
end;
end.

Resultado:


Saludos

Pd: Si el código de prueba te pudiera ser útil avisame y te lo adjunto.

[mRoman]

Ok....te agradezco ecfisa, Muchas gracias por dedicarle tiempo a mi problema.

Haré los cambios a mi código y te (les) comentó como me fue. Pendiente con el aviso para el envío de tu código.

Saludos y nuevamente gracias.

[mRoman]

Oye....no haría falta en esta parte del código...el POST para ambos DataSets??

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  // add some data to master
  DM.tbMaster.Append;
  DM.tbMaster.FieldByName('ID').AsInteger  := 5;
  DM.tbMaster.FieldByName('TEXT').AsString := 'ROW 5';
  // add some data to detail
  DM.tbDetail.Append;
  DM.tbDetail.FieldByName('ID').AsInteger  := 6;
  DM.tbDetail.FieldByName('TEXT').AsString := '';
  DM.tbDetail.FieldByName('MAESTRO_ID').AsInteger := 5;
  // Save cache data
// DONDE IRIA EL POST???.....AQUI?
  DM.tbDetail.DataSource := nil;
  try
    DM.IBDatabase1.ApplyUpdates([DM.tbMaster, DM.tbDetail]);
  finally
    DM.tbDetail.DataSource := DM.dsMaster;
  end;
end;

[ecfisa]

Hola Miguel.

El método ApplyUpdates se encarga de realizar el guardado (post) de los datos almacenados en caché para cada TDataSet que se le pasa como argumento.

Te adjunto la prueba mas afinada y un script SQL para generar las tablas y algunos datos para el archivo maestro.

Saludos

[mRoman]

Empezado por ecfisa

Hola Miguel.

El método ApplyUpdates se encarga de realizar el guardado (post) de los datos almacenados en caché para cada TDataSet que se le pasa como argumento.

Te adjunto la prueba mas afinada y un script SQL para generar las tablas y algunos datos para el archivo maestro.

Saludos

Te agradezco....no sabia que el metodo ApplyUpdate incluia esto!. Entonces por ahi va la cosa.
Lo reviso gracias.