unit datos;

interface

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

type
  Tdm = class(TDataModule)
    DBfactugest: TZConnection;
    dsqempresas: TDataSource;
    qempresas: TZReadOnlyQuery;
    qempresasid: TIntegerField;
    qempresasnombre: TWideStringField;
    qempresascif: TWideStringField;
    qempresasdireccion: TWideStringField;
    qempresascodpost: TWideStringField;
    qempresaspoblacion: TWideStringField;
    qempresasprovincia: TWideStringField;
    qempresasemail: TWideStringField;
    qempresastelefono1: TWideStringField;
    qempresastelefono2: TWideStringField;
    qempresascontacto: TWideStringField;
    qempresascontingenciacomfij: TFloatField;
    qempresassalariobasedia: TFloatField;
    qempresascontingenciasdia: TFloatField;
    qempresasirpf: TFloatField;
    qempresasdesempleo: TFloatField;
    qempresasformacion: TFloatField;
    qempresascontingencias: TFloatField;
    qempresasirpf2: TFloatField;
    qempresasdesempleo2: TFloatField;
    qempresasformacion2: TFloatField;
    qempresascontingencias2: TFloatField;
    qempresascc_iban: TWideStringField;
    qempresascc_entidad: TWideStringField;
    qempresascc_oficina: TWideStringField;
    qempresascc_dc: TWideStringField;
    qempresascc_cc: TWideStringField;
    qempresasajusteentrada: TIntegerField;
    qempresasajustesalida: TIntegerField;
    qempresasporcbloqueo: TIntegerField;
    qempresasult_envio: TIntegerField;
    qempresasregistro_sanitario: TWideStringField;
    qempresascoste_kg_gen: TFloatField;
    qempresasporc_segsocial: TFloatField;
    qempresasprecio_venta_desperdicios: TFloatField;
    qempresasvercodtrazabilidad: TIntegerField;
    qempresascodcomision: TWideStringField;
    qempresascodtransporte: TWideStringField;
    qempresasactiva: TIntegerField;
    qempresasgestor: TSmallintField;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  dm: Tdm;

implementation

{%CLASSGROUP 'Vcl.Controls.TControl'}

{$R *.dfm}

end.