Primero disculparme por el retraso, pero debido a un problema en el apartado de configuración de un programa y a los dos componentes que ya he puesto
aquí, no he podido seguir adecuadamente con el programa, en primer lugar un cambio en Data Module, quedando el código al final de la siguiente manera;
Código Delphi
[-]
procedure conectar;
procedure DataModuleCreate(Sender: TObject);
implementation
{$R *.dfm}
procedure TDM.conectar;
begin
IBDatabase1.Connected:=True; IBTransaction1.Active:=True; IBDCLIEN.Active:=True; IBDirecciones.Active:=True; IBDPC.Active:=True; IBDContacto.Active:=True; IBDBcos.Active:=True; IBDCONFI.Active:=True; IBDUSUA.Active:=True; end;
procedure TDM.DataModuleCreate(Sender: TObject);
begin
VarBPrimeraConeccion:=False; IBDatabase1BeforeConnect(Sender);
end;
procedure TDM.IBDatabase1BeforeConnect(Sender: TObject);
var Ruta:string;
VarBPaso:Boolean;
begin
VarBPaso:=false;
if VarBPrimeraConeccion=False then
begin
Ruta:=ExtractFilePath(Application.ExeName); if FileExists(Ruta+ 'PGF2.FDB') then
begin
IBDatabase1.DatabaseName:=ruta + 'PGF2.FDB';
VarBPaso:=True;
end else
begin
if FileExists(ruta+'bd\'+'PGF2.FDB') then
begin
IBDatabase1.DatabaseName:=Ruta+'bd\' + 'PGF2.FDB';
VarBPaso:=True;
end else Showmessage('Lo sentimos pero no encontramos el archivo PGF.FDB, donde se encuentra el ejecutable, o en la capeta BD de la ubicación del Ejecutable'+#13+#10+'La Aplicación se cerrara');
end;
VarBPrimeraConeccion:=True;
if VarBPaso then conectar else Application.Terminate; end;
end;
end.
Ahora las tablas (las dejo como estaban pues supone cambiar todo el código, las que tenga que hacer nuevas ya aplicare los sabios concejos de los compañeros)
Cita:
CREATE TABLE CLIENTES (
ID INTEGER NOT NULL,
NOMMODULO T20 /* T20 = VARCHAR(20) */, //Nombre del módulo*
CODIGO T20 /* T20 = VARCHAR(20) */, //Código asignado en este Módulo
NOMBRE T80 /* T80 = VARCHAR(80) */, //Nombre del cliente
FORMAPAGO T40 /* T40 = VARCHAR(40) */, //Forma de pago
FECHAALTA DATE, //Fecha de alta
DTO NUMERIC(15,4), //Dto máximo a aplicar (1)
NOTAS MEMO /* MEMO = BLOB SUB_TYPE 1 SEGMENT SIZE 80 */, //Campo memo para notas (se podría poner en una tabla independiente)
IMG IMG /* IMG = BLOB SUB_TYPE 0 SEGMENT SIZE 80 */, //Campo Imagen (se podría poner en una tabla independiente)
IMPUESTOS LOG /* LOG = CHAR(1) */, //Aplicar impuestos en nuestro caso sería S o N
TIPOIMP INTEGER, //Tipo de impuesto vinculado a La tabla de configuración
CIF T20 /* T20 = VARCHAR(20) */, //C.I.F., N.I.F. etc. (no ponemos comprobador, para que funcione con otros tipos de documentos)
RET LOG /* LOG = CHAR(1) */, //Usar la retenciones en nuestro caso sería S o N
PORRET POR /* POR = NUMERIC(15,4) */, //Porcentaje de retenciones vinculado a La tabla de configuración
TARIFA T20 /* T20 = VARCHAR(20) */, //Que tarifa de precios aplicaremos de la tabla artículos
USARRAPEL LOG /* LOG = CHAR(1) */, //Usar Rapel, si el cliente usa albaranes, sumaremos los artículos del código y se aplica el precio según el rapel
DIASPRESENT T20 /* T20 = VARCHAR(20) */, //Días de presentación de la factura/s
DIASDECOBRO T20 /* T20 = VARCHAR(20) */, //Días de cobro de la factura/s
AVISOS MEMO /* MEMO = BLOB SUB_TYPE 1 SEGMENT SIZE 80 */, //Campo memo para avisos (se podría poner en una tabla independiente) a la hora de facturar
LIMITECREDITO POR /* POR = NUMERIC(15,4) */, // Limite de crédito que asignamos, si lo sobrepasa nos avisa
PENDIENTEPAGO POR /* POR = NUMERIC(15,4) */, //El pendiente actual de crédito que tiene dispuesto
SECTOR T20 /* T20 = VARCHAR(20) */, //Sector que tipo de sector de trabaja (Hostelería, Automoción, etc)
CODAGENTE T20 /* T20 = VARCHAR(20) */ //Código del Agente (Comercial) asignado
);
|