unit SistemaCajaRegistradoraElCampo;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, Menus,
StdCtrls, ExtCtrls, Buttons, Grids, ColorBox, ValEdit, PairSplitter,
sistemacajaregistradoraelcampoagregarproducto,
sistemacajaregistradoraelcampoiniciarsesioncajero,
sistemacajaregistradoraelcampometododepago,
sistemacajaregistradoraelcampoagregarcliente;
type
{ TSistemaDeCajaSupermercadoElCampo }
TSistemaDeCajaSupermercadoElCampo = class(TForm)
BotonAgregarProducto: TBitBtn;
BotonEliminarProducto: TBitBtn;
BotonFacturarProducto: TButton;
BotonIniciarSesion: TButton;
BotonAgregarCliente: TButton;
BotonBorrarCliente: TButton;
DatosDelCliente: TLabel;
Nombrecajero: TEdit;
TotalAPagarBarra: TEdit;
IVABarra: TEdit;
IVA: TLabel;
TotalAPagar: TLabel;
SubTotalBarra: TEdit;
SubTotal: TLabel;
NombreRazonSocialBarra: TEdit;
ApellidoBarra: TEdit;
CedulaRifBarra: TEdit;
DireccionBarra: TEdit;
NombreRazonSocial: TLabel;
Apellido: TLabel;
CedulaRif: TLabel;
Direccion: TLabel;
CajeroLogeado: TLabel;
NombredelSupermercado: TLabel;
VentanaDeIngresoProductos: TPanel;
ListadoDeProductosEscaneadosOIngresados: TStringGrid;
procedure ApellidoBarraChange(Sender: TObject);
procedure BotonAgregarClienteClick(Sender: TObject);
procedure BotonAgregarProductoClick(Sender: TObject);
procedure BotonFacturarProductoClick(Sender: TObject);
procedure BotonIniciarSesionClick(Sender: TObject);
procedure BotonBorrarClienteClick(Sender: TObject);
procedure CedulaRifBarraChange(Sender: TObject);
procedure DatosDelClienteClick(Sender: TObject);
procedure DireccionClick(Sender: TObject);
procedure NombrecajeroChange(Sender: TObject);
procedure IVABarraChange(Sender: TObject);
procedure NombredelSupermercadoClick(Sender: TObject);
procedure NombreRazonSocialControlBorderSpacingChange(Sender: TObject);
procedure SubTotalClick(Sender: TObject);
procedure NombreRazonSocialBarraChange(Sender: TObject);
procedure Edit2Change(Sender: TObject);
procedure DireccionBarraChange(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure NombreRazonSocialClick(Sender: TObject);
procedure Label2Click(Sender: TObject);
procedure Label3Click(Sender: TObject);
procedure CajeroLogeadoClick(Sender: TObject);
procedure Label7Click(Sender: TObject);
procedure ListBox1Click(Sender: TObject);
private
public
end;
var
SistemaDeCajaSupermercadoElCampo: TSistemaDeCajaSupermercadoElCampo;
NombreORazonSocial_ing,Apellido_ing,CedulaORIF_ing,Direccion_ing:String;
implementation
{$R *.lfm}
{ TSistemaDeCajaSupermercadoElCampo }
procedure TSistemaDeCajaSupermercadoElCampo.NombreRazonSocialBarraChange(Sender: TObject);
begin
end;
procedure TSistemaDeCajaSupermercadoElCampo.DatosDelClienteClick(Sender: TObject);
begin
end;
procedure TSistemaDeCajaSupermercadoElCampo.DireccionClick(Sender: TObject);
begin
end;
procedure TSistemaDeCajaSupermercadoElCampo.NombrecajeroChange(Sender: TObject);
begin
end;
procedure TSistemaDeCajaSupermercadoElCampo.IVABarraChange(Sender: TObject);
begin
end;
procedure TSistemaDeCajaSupermercadoElCampo.NombredelSupermercadoClick(Sender: TObject);
begin
end;
procedure TSistemaDeCajaSupermercadoElCampo.NombreRazonSocialControlBorderSpacingChange(Sender: TObject);
begin
end;
procedure TSistemaDeCajaSupermercadoElCampo.SubTotalClick(Sender: TObject);
begin
end;
procedure TSistemaDeCajaSupermercadoElCampo.BotonAgregarProductoClick(Sender: TObject);
begin
VentanaAgregarProducto.ShowModal;
end;
procedure TSistemaDeCajaSupermercadoElCampo.BotonFacturarProductoClick(
Sender: TObject);
begin
VentanaMetodoDePago.ShowModal;
end;
procedure TSistemaDeCajaSupermercadoElCampo.BotonIniciarSesionClick(Sender: TObject);
begin
IniciarSesion.ShowModal;
end;
procedure TSistemaDeCajaSupermercadoElCampo.BotonBorrarClienteClick(Sender: TObject);
begin
end;
procedure TSistemaDeCajaSupermercadoElCampo.CedulaRifBarraChange(Sender: TObject);
begin
end;
procedure TSistemaDeCajaSupermercadoElCampo.ApellidoBarraChange(Sender: TObject);
begin
end;
procedure TSistemaDeCajaSupermercadoElCampo.BotonAgregarClienteClick(
Sender: TObject);
begin
VentanaAgregarCliente.ShowModal;
end;
procedure TSistemaDeCajaSupermercadoElCampo.Edit2Change(Sender: TObject);
begin
end;
procedure TSistemaDeCajaSupermercadoElCampo.DireccionBarraChange(Sender: TObject);
begin
end;
procedure TSistemaDeCajaSupermercadoElCampo.FormCreate(Sender: TObject);
begin
end;
procedure TSistemaDeCajaSupermercadoElCampo.NombreRazonSocialClick(Sender: TObject);
begin
end;
procedure TSistemaDeCajaSupermercadoElCampo.Label2Click(Sender: TObject);
begin
end;
procedure TSistemaDeCajaSupermercadoElCampo.Label3Click(Sender: TObject);
begin
end;
procedure TSistemaDeCajaSupermercadoElCampo.CajeroLogeadoClick(Sender: TObject);
begin
end;
procedure TSistemaDeCajaSupermercadoElCampo.Label7Click(Sender: TObject);
begin
end;
procedure TSistemaDeCajaSupermercadoElCampo.ListBox1Click(Sender: TObject);
begin
end;
end.