unit frpgresos;

interface

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

type
  Tprogresos = class(TForm)
    DBGrid1: TDBGrid;
    Panel1: TPanel;
    DBMemo6: TDBMemo;
    DBMemo5: TDBMemo;
    Label9: TLabel;
    Label6: TLabel;
    Label5: TLabel;
    DBMemo4: TDBMemo;
    DBMemo3: TDBMemo;
    Label4: TLabel;
    DBMemo2: TDBMemo;
    Label3: TLabel;
    DBMemo1: TDBMemo;
    Label2: TLabel;
    Label195: TLabel;
    DBCheckBox3: TDBCheckBox;
    Button30: TButton;
    ImageList1: TImageList;
    DBMemo7: TDBMemo;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    Panel2: TPanel;
    Calendar1: TCalendar;
    Label1: TLabel;
    Panel3: TPanel;
    Panel4: TPanel;
    Label8: TLabel;
    Button1: TButton;
    DBGrid2: TDBGrid;
    Panel5: TPanel;
    procedure Button30Click(Sender: TObject);
    procedure Calendar1GetDayOfWeekName(Sender: TObject;DayOfWeek: Integer; var DayOfWeekName: string);
    procedure Button1Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  progresos: Tprogresos;

implementation

{$R *.dfm}

uses DATOS;

procedure Tprogresos.Button1Click(Sender: TObject);
var  archivo,ubicacion:string;
begin
    archivo:=dm.qrecursosarchivo.AsString;
    ubicacion:=dm.qrecursosubicacion.AsString;
    deletefile('c:\formagest\tmp\*.*');
    CopyFile(PChar(ubicacion+'\'+archivo), PChar('c:\formagest\tmp\'+archivo), false);
    ShellExecute(Handle,nil,PChar('c:\formagest\tmp\'+archivo),'','',SW_SHOWNORMAL);

end;

procedure Tprogresos.Button30Click(Sender: TObject);
begin
    if dm.qprogresos.State in [dsedit] then dm.qprogresos.Post;
    dm.qprogresos.Refresh;
    dm.qprogresos.First;
end;

procedure Tprogresos.Calendar1GetDayOfWeekName(Sender: TObject;
  DayOfWeek: Integer; var DayOfWeekName: string);
begin
  case DayOfWeek of
    1: DayOfWeekName := 'Lunes';
    2: DayOfWeekName := 'Martes';
    3: DayOfWeekName := 'Miércoles';
    4: DayOfWeekName := 'Jueves';
    5: DayOfWeekName := 'Viernes';
    6: DayOfWeekName := 'Sábado';
    7: DayOfWeekName := 'Domingo';
  end;
end;



end.