unit datostrazabilidad;

interface

uses
  System.SysUtils, System.Classes,datos, Data.DB, ZAbstractRODataset,
  ZAbstractDataset, ZAbstractTable, ZDataset;

type
  TDMTr2 = class(TDataModule)
    procedure dsqcampanyasDataChange(Sender: TObject; Field: TField);
    procedure documentos_tmpBeforePost(DataSet: TDataSet);
    procedure documentos_tmpAfterPost(DataSet: TDataSet);
    procedure dsqlotesDataChange(Sender: TObject; Field: TField);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DMTr2: TDMTr2;

implementation

{%CLASSGROUP 'Vcl.Controls.TControl'}

uses principal;

{$R *.dfm}

procedure TDMTr2.documentos_tmpAfterPost(DataSet: TDataSet);
begin
//      base.btdnuevo.SetFocus;
end;

procedure TDMTr2.documentos_tmpBeforePost(DataSet: TDataSet);
var  archivo:TMemorystream;
     ext,nomarchivo: string;
begin
  //    archivo.loadFromFile(dialoglotes.FileName);

  //    dmtr.documentos.Post;

end;

procedure TDMTr2.dsqcampanyasDataChange(Sender: TObject; Field: TField);
begin
{   qlotes.close;
   qlotes.Open;
   base.combocampanyas.KeyValue:=qcampanyasdescripcion.asstring;}
end;

procedure TDMTr2.dsqlotesDataChange(Sender: TObject; Field: TField);
begin
//    base.Paneldocumentos.Visible:=false;

end;

end.