unit concep;

interface

uses
  SysUtils, Windows, Messages, Classes, Graphics, Controls,
  StdCtrls, Forms, DBCtrls, DB, DBGrids, DBTables, Grids, ExtCtrls,checa,
  Buttons,Apertura;

type
  TFormaConceptos = class(TForm)
    RejillaConceptos: TDBGrid;
    DBNavigator: TDBNavigator;
    Panel1: TPanel;
    DataSource1: TDataSource;
    Panel2: TPanel;
    TablaConcepto: TTable;
    Shape1: TShape;
    Panel3: TPanel;
    Bevel20: TBevel;
    Bevel21: TBevel;
    Bevel22: TBevel;
    Panel4: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    BotonNuevo: TSpeedButton;
    BotonGuardar: TSpeedButton;
    BotonEliminar: TSpeedButton;
    BotonSalir: TSpeedButton;
    procedure RejillaConceptosDblClick(Sender: TObject);
    procedure RejillaConceptosKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormActivate(Sender: TObject);
    procedure Panel4Click(Sender: TObject);
    procedure Panel3MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Label2MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure BotonNuevoClick(Sender: TObject);
    procedure BotonGuardarClick(Sender: TObject);
    procedure BotonEliminarClick(Sender: TObject);
    procedure BotonSalirClick(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  FormaConceptos: TFormaConceptos;

implementation

uses cxcd, cxpd;

{$R *.DFM}

procedure rutas;
var
  I: Integer;
begin

with FormaConceptos do
begin
  for I := 0 to ComponentCount -1 do
    begin
     if Components[I] is TTable  then
     begin
       TTable(Components[I]).DatabaseName:=ruta(8);
       AbreTablaTotal(TTable(Components[I]));
//       TTable(Components[I]).Open;
     end;
    end;
end;

end;


procedure TFormaConceptos.RejillaConceptosDblClick(Sender: TObject);
begin

FormaCxCDetalle.TablaCxC.Edit;
FormaCxCDetalle.TablaCxC.FieldByName('TIMOV_CC').AsString:=TablaConcepto.FieldByName('NUMOV_MO').AsString;
FormaCxCDetalle.TablaCxC.FieldByName('CONCE_CC').AsString:=TablaConcepto.FieldByName('CONCE_MO').AsString;
FormaConceptos.Close;

end;

procedure TFormaConceptos.RejillaConceptosKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=27 then
Close;

if RejillaConceptos.Tag=1 then
if Key= 13 then
begin
FormaCxCDetalle.TablaCxC.Edit;
FormaCxCDetalle.TablaCxC.FieldByName('TIMOV_CC').AsString:=TablaConcepto.FieldByName('NUMOV_MO').AsString;
FormaCxCDetalle.TablaCxC.FieldByName('CONCE_CC').AsString:=TablaConcepto.FieldByName('CONCE_MO').AsString;
FormaCxCDetalle.Detalle.Tag:=0;
FormaConceptos.Close;
end;

if RejillaConceptos.Tag=2 then
if Key= 13 then
begin
FormaCxPDetalle.TablaCxP.Edit;
FormaCxPDetalle.TablaCxP.FieldByName('TIMOV_CP').AsString:=TablaConcepto.FieldByName('NUMOV_MO').AsString;
FormaCxPDetalle.TablaCxP.FieldByName('CONCE_CP').AsString:=TablaConcepto.FieldByName('CONCE_MO').AsString;
FormaCxPDetalle.TablaCxP.Tag:=0;
FormaConceptos.Close;
end;


end;

procedure TFormaConceptos.FormActivate(Sender: TObject);
begin
if FormaConceptos.tag=0 then
rutas;
RejillaConceptos.SetFocus;
Formaconceptos.Tag:=1;
end;


procedure TFormaConceptos.Panel4Click(Sender: TObject);
begin
Close;
end;

procedure TFormaConceptos.Panel3MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
ReleaseCapture;
SendMessage(FormaConceptos.Handle, WM_SYSCOMMAND, $F012, 0);
end;

procedure TFormaConceptos.Label2MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
ReleaseCapture;
SendMessage(FormaConceptos.Handle, WM_SYSCOMMAND, $F012, 0);
end;




procedure TFormaConceptos.BotonNuevoClick(Sender: TObject);
begin
TablaConcepto.Insert;
end;

procedure TFormaConceptos.BotonGuardarClick(Sender: TObject);
begin
TablaConcepto.Post;
end;

procedure TFormaConceptos.BotonEliminarClick(Sender: TObject);
begin
TablaConcepto.Delete;
end;

procedure TFormaConceptos.BotonSalirClick(Sender: TObject);
begin
Close;
end;

end.