unit uDM;

interface

uses
  System.SysUtils, System.Classes, Data.DB, Data.Win.ADODB;

type
  TDM = class(TDataModule)
    MDBConnection: TADOConnection;
    InvoicesInsert: TADOQuery;
    ConsigneesInsert: TADOQuery;
    ConsignorsInsert: TADOQuery;
    DocumentsInsert: TADOQuery;
    RosterInsert: TADOQuery;
    DescriptionsInsert: TADOQuery;
    SelectVariousPredprs: TADOQuery;
    UpdateAsComplete: TADOQuery;
    SelPredprByUnn: TADOQuery;
    SelPredprByUnnidPredpr: TAutoIncField;
    SelNastr: TADOQuery;
    SelNastrUNN: TStringField;
    DeleteInvoice: TADOQuery;
    FindSkl: TADOQuery;
    FindOriginal: TADOQuery;
    DocCheck: TADOQuery;
    Check: TADOQuery;
    DelZero: TADOQuery;
    qSelectInvPredprs: TADOQuery;
    qSelectInvPredprsDS: TDataSource;
    qSelectInvPredprsunn: TStringField;
    qSelectInvPredprsdopUnn: TIntegerField;
    qSelectInvPredprsnewDopUnn: TIntegerField;
    qSelectInvPredpr: TADOQuery;
    qSelectInvPredprnewDopUnn: TIntegerField;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DM: TDM;

implementation

{%CLASSGROUP 'Vcl.Controls.TControl'}

{$R *.dfm}

end.
