unit fremesas;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls, Data.DB, ZDataset,
  ZAbstractRODataset, ZAbstractDataset, Vcl.StdCtrls, Vcl.ComCtrls, Vcl.Grids,
  Vcl.DBGrids;

type
  Tremesas = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Panel4: TPanel;
    Panel5: TPanel;
    Panel6: TPanel;
    Panel3: TPanel;
    Panel7: TPanel;
    DBGrid1: TDBGrid;
    DBGrid2: TDBGrid;
    DBGrid3: TDBGrid;
    DateTimePicker1: TDateTimePicker;
    Button1: TButton;
    Label1: TLabel;
    Button2: TButton;
    dsqremesas: TDataSource;
    qremesas: TZQuery;
    qrecibos: TZReadOnlyQuery;
    dsqrecibos: TDataSource;
    dsqremesadetalle: TDataSource;
    qremesadetalle: TZQuery;
    qrecibosid: TIntegerField;
    qreciboside: TIntegerField;
    qrecibosidc: TIntegerField;
    qrecibosida: TIntegerField;
    qrecibosfecharecibo: TDateField;
    qrecibosconcepto: TWideStringField;
    qrecibospagado: TIntegerField;
    qrecibosdomiciliado: TIntegerField;
    qrecibosdoc_pago: TWideStringField;
    qrecibosdescuento: TIntegerField;
    qrecibosimportefinal: TFloatField;
    qremesasid: TIntegerField;
    qremesasfecha: TDateField;
    qremesasfecha_ejecucion: TDateField;
    qremesasordenante: TWideStringField;
    qremesascuenta: TWideStringField;
    qremesastotal: TFloatField;
    qremesadetalleide: TIntegerField;
    qremesadetalleidr: TIntegerField;
    qremesadetalleid: TIntegerField;
    qremesadetallecliente: TWideStringField;
    qremesadetallecuenta: TWideStringField;
    qremesadetalleimporte: TFloatField;
    qclientes: TZReadOnlyQuery;
    qclientesid: TIntegerField;
    qclienteside: TIntegerField;
    qclientesnif: TWideStringField;
    qclientesnombre_completo: TWideStringField;
    qclientesdireccion: TWideStringField;
    qclientespoblacion: TWideStringField;
    qclientescodpost: TWideStringField;
    qclientesprovincia: TWideStringField;
    qclientesentidad: TWideStringField;
    qclientesiban: TWideStringField;
    qclientescuenta: TWideStringField;
    qclientesswift: TWideStringField;
    qalumnos: TZReadOnlyQuery;
    qalumnosid: TIntegerField;
    qalumnoside: TIntegerField;
    qalumnosnombre_completo: TWideStringField;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  remesas: Tremesas;

implementation

{$R *.dfm}

end.