unit datostrazabilidad;

interface

uses
  FireDAC.Stan.Intf, FireDAC.Stan.Option, FireDAC.Stan.Param, FireDAC.Stan.Error, FireDAC.DatS, FireDAC.Phys.Intf, FireDAC.DApt.Intf, FireDAC.Stan.Async, FireDAC.DApt, FireDAC.Comp.DataSet, FireDAC.Comp.Client, uFireDacHelper,
  System.SysUtils, System.Classes,datos, Data.DB;

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.