unit Caja;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Spin, Buttons;

type
  TFormaCaja = class(TForm)
    NumeroCaja: TSpinEdit;
    Label1: TLabel;
    Label2: TLabel;
    Formato: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Label3: TLabel;
    ClaveVendedor: TEdit;
    Ruta: TLabel;
    NoCaja: TEdit;
    Label4: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure NumeroCajaChange(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

type
RegistroCaja=record
No_caja:string[3];
Cl_vendedor:string[5];
Nom_formato:string[25];

end;

var
  FormaCaja: TFormaCaja;

implementation

{$R *.DFM}

procedure TFormaCaja.FormCreate(Sender: TObject);
begin
NumeroCaja.Text:='1';
end;

procedure TFormaCaja.BitBtn1Click(Sender: TObject);
begin
Tag:=1;
Close;
end;

procedure TFormaCaja.BitBtn2Click(Sender: TObject);
begin
Tag:=0;
Close;

end;

procedure TFormaCaja.NumeroCajaChange(Sender: TObject);
var
arch:File of RegistroCaja;
datos:RegistroCaja;

begin
if NumeroCaja.Text='' then
NumeroCaja.Text:='1';
Assignfile(arch,Ruta.Caption+'\caja.cnf');
if (FileExists(Ruta.Caption+'\caja.cnf')) then
begin
Reset(arch);

if (NumeroCaja.Value-1<FileSize(arch)) then
begin
//ShowMessage('leyendo '+IntToStr(FormaCaja.NumeroCaja.Value-1));
seek(arch,FormaCaja.NumeroCaja.Value-1);
read(arch,datos);
FormaCaja.NoCaja.Text:=datos.No_caja;
FormaCaja.ClaveVendedor.Text:=datos.Cl_vendedor;
FormaCaja.Formato.Text:=datos.Nom_formato;

end
else
begin

FormaCaja.NoCaja.Text:='';
FormaCaja.ClaveVendedor.Text:='';
FormaCaja.Formato.Text:='';
end;
CloseFile(arch);
end;


end;


end.