This repository has been archived on 2024-11-29. You can view files and clone it, but cannot push or open issues or pull requests.
Tecsitel_FactuGES/Almacenes/ListadoMovimientosAlmacen.pas
2007-06-21 15:47:20 +00:00

67 lines
1.6 KiB
ObjectPascal

unit ListadoMovimientosAlmacen;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
RDXFRAME, StdCtrls, RdxComboBox, RdxCampos,
ExtCtrls, Tipos, Grids, DBGrids,
RdxTitulos, RdxBotones, RdxPaneles, RdxBarras;
type
TfrListadoMovimientosAlmacen = class(TRdxFrame)
brGuardar: TRdxBarraInferior;
bGuardar: TRdxBoton;
bCancelarGuardar: TRdxBoton;
RdxScrollPanel1: TRdxScrollPanel;
pnlAlmacen: TRdxPanel;
RdxCabecera3: TRdxCabecera;
cbxAlmacen: TRdxComboBox;
eAlmacen: TLabel;
pnlCondiciones: TRdxPanel;
cCondiciones: TRdxCabecera;
Label4: TLabel;
RdxComboBox1: TRdxComboBox;
Label3: TLabel;
RdxComboBox2: TRdxComboBox;
Label9: TLabel;
RdxComboBox3: TRdxComboBox;
cbxFamilia: TRdxDBComboBox;
eFamilia: TLabel;
Codigo: TRdxDBEdit;
bBuscarCodigo: TRdxBoton;
eCodigo: TLabel;
eHastaArticulo: TLabel;
RdxDBEdit1: TRdxDBEdit;
pnlMovimientos: TRdxPanel;
RdxCabecera1: TRdxCabecera;
pnlGridMovimientos: TRdxPanel;
procedure bCancelarGuardarClick(Sender: TObject);
private
{ Private declarations }
public
Constructor Create (AOwner : TComponent); override;
end;
var
frListadoMovimientosAlmacen: TfrListadoMovimientosAlmacen;
implementation
{$R *.DFM}
constructor TfrListadoMovimientosAlmacen.Create(AOwner : TComponent);
begin
inherited Create(AOwner);
Entidad := entMovimiento;
end;
procedure TfrListadoMovimientosAlmacen.bCancelarGuardarClick(
Sender: TObject);
begin
inherited;
CloseFrame;
end;
end.