Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Bases de datos > Firebird e Interbase
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 21-11-2019
novato_erick novato_erick is offline
Miembro
 
Registrado: ago 2010
Ubicación: Panamá
Posts: 397
Poder: 15
novato_erick Va por buen camino
Optimizando Consulta

Hola Amigos:
Es un placer siempre saber como están y como siempre aprovechando de sus conocimiento avanzados me encargo de sacar provecho del mismo:

Tengo esta consulta la cual en mi db en Firebird 2.5.7.27050 de Desarrollo con diferencia de 150 mil registros a la de producción noto de no es el mismo rendimiento a pesar que ya se realizaron los indexados correcto en cada tabla aquí mostrada no veo porque la direrencia en hacer la misma consulta en tiempo de traer los datos es significativamente amplio una de la otra:

Código:
Base de Datos de producción
Prepare       : 16 ms
Execute       : 0 ms
Avg fetch time: 0 ms

Memory Usage
------------------------------------------------
Current: 1.11 MB
Max    : 1.12 MB
Buffers: 75

Database Operations
------------------------------------------------
Reads  : 63417
Writes : 4
Fetches: 15903532

Plan:
------------------------------------------------
PLAN SORT (JOIN (FAC_CAJA NATURAL, CAJAS INDEX (RDB$PRIMARY77), FACTURAS_VENTAS INDEX (RDB$PRIMARY45), FAC_CLIENTE INDEX (IDX_FAC_CLIENTE), CLIENTES INDEX (RDB$PRIMARY85)))

Table Operations:
+--------------------------+-----------+-----------+-----------+-----------+-----------+
|        Table Name        |   Index   | Non-Index |  Updates  |  Deletes  |  Inserts  |
|                          |   reads   |   reads   |           |           |           |
+--------------------------+-----------+-----------+-----------+-----------+-----------+
|                  FAC_CAJA|         0 | 1,321,933 |         0 |         0 |         0 |
|           FACTURAS_VENTAS| 1,321,933 |         0 |         0 |         0 |         0 |
|               FAC_CLIENTE|        52 |         0 |         0 |         0 |         0 |
|                     CAJAS| 1,321,933 |         0 |         0 |         0 |         0 |
|                  CLIENTES|        52 |         0 |         0 |         0 |         0 |
+--------------------------+-----------+-----------+-----------+-----------+-----------+
ahora base de datos producción
Código:
Query Performance
------------------------------------------------
Prepare       : 0 ms
Execute       : 0 ms
Avg fetch time: 0 ms

Memory Usage
------------------------------------------------
Current: 98.30 MB
Max    : 98.31 MB
Buffers: 2048

Database Operations
------------------------------------------------
Reads  : 9495
Writes : 4
Fetches: 5132412

Plan:
------------------------------------------------

PLAN SORT (JOIN (FACTURAS_VENTAS NATURAL, FAC_CLIENTE INDEX (IDX_FAC_CLIENTE), CLIENTES INDEX (RDB$PRIMARY85), FAC_CAJA INDEX (IDX_FAC_CAJA), CAJAS INDEX (RDB$PRIMARY77)))

Table Operations:
+--------------------------+-----------+-----------+-----------+-----------+-----------+
|        Table Name        |   Index   | Non-Index |  Updates  |  Deletes  |  Inserts  |
|                          |   reads   |   reads   |           |           |           |
+--------------------------+-----------+-----------+-----------+-----------+-----------+
|           FACTURAS_VENTAS|         0 | 1,287,862 |         0 |         0 |         0 |
|                  FAC_CAJA|   140,898 |         0 |         0 |         0 |         0 |
|               FAC_CLIENTE|   140,898 |         0 |         0 |         0 |         0 |
|                     CAJAS|   140,898 |         0 |         0 |         0 |         0 |
|                  CLIENTES|   140,898 |         0 |         0 |         0 |         0 |
+--------------------------+-----------+-----------+-----------+-----------+-----------+
esta es la consulta
Código SQL [-]
select 
CAST(FACTURAS_VENTAS.FECHA AS DATE) AS FECHA_COMPRA,
CLIENTES.ID_CLIENTE,
CLIENTES.NOMBRE_1 ||' '||  CLIENTES.NOMBRE_2 ||' '|| CLIENTES.APELLIDO_1||' '|| CLIENTES.APELLIDO_2 AS CLIENTE_NOMBRE,
CLIENTES.CEDULA,
CLIENTES.CELULAR,
CLIENTES.TELEFONO,
CLIENTES.DIRECCION,
CLIENTES.EMAIL,
CAJAS.NUM_CAJA,
FACTURAS_VENTAS.CONSECUTIVO AS NUM_REGISTRO,
FACTURAS_VENTAS.MONTOIMPUESTO,
FACTURAS_VENTAS.MONTOSUBTOTAL,
FACTURAS_VENTAS.MONTODESCUENTO,
FACTURAS_VENTAS.MONTOSUBTOTALCONDESC,
FACTURAS_VENTAS.MONTOTOTAL,
FACTURAS_VENTAS.NUM_CUPONIMPRESORA,
FACTURAS_VENTAS.ID_FACTURA
FROM FAC_CLIENTE
INNER JOIN CLIENTES ON FAC_CLIENTE.ID_CLIENTE = CLIENTES.ID_CLIENTE
INNER JOIN FACTURAS_VENTAS ON FAC_CLIENTE.ID_FACTURA = FACTURAS_VENTAS.ID_FACTURA
INNER JOIN FAC_CAJA ON FACTURAS_VENTAS.ID_FACTURA = FAC_CAJA.ID_FACTURA
INNER JOIN CAJAS ON CAJAS.ID_CAJA = FAC_CAJA.ID_CAJA
WHERE CAST(FACTURAS_VENTAS.FECHA AS DATE) BETWEEN :FECHAINI AND :FECHAFIN 
ORDER BY FAC_CLIENTE.ID_FACTURA DESCENDING

otra parte interesante es que porque firebird me muestra las bases de datos diferente plan sort ejemplo:

Código:
db de produccion:
PLAN SORT (JOIN (FAC_CAJA NATURAL, CAJAS INDEX (RDB$PRIMARY77), FACTURAS_VENTAS INDEX (RDB$PRIMARY45), FAC_CLIENTE INDEX (IDX_FAC_CLIENTE), CLIENTES INDEX (RDB$PRIMARY85)))

db de desarrollo
PLAN SORT (JOIN (FACTURAS_VENTAS NATURAL, FAC_CLIENTE INDEX (IDX_FAC_CLIENTE), CLIENTES INDEX (RDB$PRIMARY85), FAC_CAJA INDEX (IDX_FAC_CAJA), CAJAS INDEX (RDB$PRIMARY77)))

¿Podrían sacarme de la duda?

saludos cordial;


novato_erick
Responder Con Cita
  #2  
Antiguo 21-11-2019
lbuelvas lbuelvas is offline
Miembro
 
Registrado: may 2003
Ubicación: Colombia
Posts: 378
Poder: 22
lbuelvas Va por buen camino
Cordial saludo. Puedes regalarnos los scripts SQL para generar esa parte de la base de datos, con algunos datos. Esto para poder reproducir la consulta.

Personalmente al trabajar un proyecto de una base de datos, hago scripts para llenar las tablas con el estimado de información de 10 años. Allí me doy cuenta de que optimizaciones se deben hacer.
__________________
Luis Fernando Buelvas T.
Responder Con Cita
  #3  
Antiguo 21-11-2019
lbuelvas lbuelvas is offline
Miembro
 
Registrado: may 2003
Ubicación: Colombia
Posts: 378
Poder: 22
lbuelvas Va por buen camino
Bueno, de lo que alcanzo a observar, la parte

Código SQL [-]
WHERE CAST(FACTURAS_VENTAS.FECHA AS DATE) BETWEEN :FECHAINI AND :FECHAFIN

hace que la operación cast tenga que hacerse en todos los registros convirtiendo el valor a fecha y luego ver si se encuentre en el rango fechaini y fechafin, por tanto hará un recorrido natural de la tabla.

Si un campo es para almacenar una fecha lo mejor es que sea del tipo correspondiente, es decir, Date; ahora, si es un timestamp no es necesario hacer el cast.
__________________
Luis Fernando Buelvas T.
Responder Con Cita
  #4  
Antiguo 21-11-2019
lbuelvas lbuelvas is offline
Miembro
 
Registrado: may 2003
Ubicación: Colombia
Posts: 378
Poder: 22
lbuelvas Va por buen camino
Sobre el código
Código SQL [-]
FROM FAC_CLIENTE
INNER JOIN CLIENTES ON FAC_CLIENTE.ID_CLIENTE = CLIENTES.ID_CLIENTE
INNER JOIN FACTURAS_VENTAS ON FAC_CLIENTE.ID_FACTURA = FACTURAS_VENTAS.ID_FACTURA
INNER JOIN FAC_CAJA ON FACTURAS_VENTAS.ID_FACTURA = FAC_CAJA.ID_FACTURA
INNER JOIN CAJAS ON CAJAS.ID_CAJA = FAC_CAJA.ID_CAJA
Decir que de si las llaves foráneas son "not null" (es decir que debe ir un valor para esos campos) utilizar LEFT JOIN en lugar de INNER JOIN puede hacer que el plan de la consulta utilice mejor los índices. Con Firebird llevo años usando LEFT JOIN sobre INNER JOIN.
__________________
Luis Fernando Buelvas T.
Responder Con Cita
  #5  
Antiguo 21-11-2019
lbuelvas lbuelvas is offline
Miembro
 
Registrado: may 2003
Ubicación: Colombia
Posts: 378
Poder: 22
lbuelvas Va por buen camino
Si envías el script de esa parte del proyecto con algunos datos personalmente te podría colaborar un poco más.
__________________
Luis Fernando Buelvas T.
Responder Con Cita
  #6  
Antiguo 21-11-2019
Avatar de Casimiro Notevi
Casimiro Notevi Casimiro Notevi is offline
Moderador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.257
Poder: 10
Casimiro Notevi Tiene un aura espectacularCasimiro Notevi Tiene un aura espectacular
Cita:
Empezado por lbuelvas Ver Mensaje
Si envías el script de esa parte del proyecto con algunos datos personalmente te podría colaborar un poco más.
Totalmente necesario, sin eso no podemos hacer gran cosa.

Y además debe verificar que ambas bases de datos son realmente iguales.
Responder Con Cita
  #7  
Antiguo 21-11-2019
Avatar de mamcx
mamcx mamcx is offline
Moderador
 
Registrado: sep 2004
Ubicación: Medellín - Colombia
Posts: 3.927
Poder: 26
mamcx Tiene un aura espectacularmamcx Tiene un aura espectacularmamcx Tiene un aura espectacular
Cita:
Empezado por lbuelvas Ver Mensaje
utilizar LEFT JOIN en lugar de INNER JOIN
No, eso no esta bien. Eso altera los resultados (semantica diferente!)
__________________
El malabarista.
Responder Con Cita
  #8  
Antiguo 22-11-2019
[egostar] egostar is offline
Registrado
 
Registrado: feb 2006
Posts: 6.562
Poder: 25
egostar Va camino a la fama
Cita:
Empezado por mamcx Ver Mensaje
No, eso no esta bien. Eso altera los resultados (semantica diferente!)
Ciertamente....


__________________
"La forma de empezar es dejar de hablar y empezar a hacerlo." - Walt Disney
Responder Con Cita
  #9  
Antiguo 22-11-2019
Avatar de Casimiro Notevi
Casimiro Notevi Casimiro Notevi is offline
Moderador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.257
Poder: 10
Casimiro Notevi Tiene un aura espectacularCasimiro Notevi Tiene un aura espectacular
Cita:
Empezado por egostar Ver Mensaje
Ciertamente....
Muy bueno
Responder Con Cita
  #10  
Antiguo 22-11-2019
lbuelvas lbuelvas is offline
Miembro
 
Registrado: may 2003
Ubicación: Colombia
Posts: 378
Poder: 22
lbuelvas Va por buen camino
Ya hicieron la prueba ? Si la llave foránea es "not null" funciona como un inner join. Sigo trabajando con bases de datos Firebird 1.5 y el preprocesador (el que define el plan de la consulta) no selecciona algunos índices como uno esperaría. Mis consultas funcionan como espero que funcionen. En Firebird 3 he tratado de usar inner join pero si no toma el índice que espero paso a usar left join siempre y cuando la llave foránea tenga valor (definiéndola not null). Lo que pasa es que trabajo casi exclusivamente con Interbase y luego Firebird desde el año 1998. Firebird 1.5 es suficiente para todo, pero ahora Windows 10 cada vez que hace una actualización importante desinstala el motor de base de datos por el defecto que tiene el instalador de Firebird 1.5 que el Applet que se adiciona al panel de control hace que éste cuando se abre se cierra inmediatamente. Para instalar Firebird 1.5 toca cambia el nombre del instalador pero de tanto en tanto Windows 10 lo desinstala. Estoy moviéndome a Firebird 3 pero los componentes IBX no van bien con este motor por lo que adquirí UniDac y estamos pasando de VCL a uniGui y de IBX a uniDac.
__________________
Luis Fernando Buelvas T.
Responder Con Cita
  #11  
Antiguo 22-11-2019
Avatar de Casimiro Notevi
Casimiro Notevi Casimiro Notevi is offline
Moderador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.257
Poder: 10
Casimiro Notevi Tiene un aura espectacularCasimiro Notevi Tiene un aura espectacular
Cita:
Empezado por lbuelvas Ver Mensaje
Estoy moviéndome a Firebird 3 pero los componentes IBX no van bien con este motor...
¿En qué no van bien?
Responder Con Cita
  #12  
Antiguo 22-11-2019
Avatar de mamcx
mamcx mamcx is offline
Moderador
 
Registrado: sep 2004
Ubicación: Medellín - Colombia
Posts: 3.927
Poder: 26
mamcx Tiene un aura espectacularmamcx Tiene un aura espectacularmamcx Tiene un aura espectacular
Cita:
Empezado por lbuelvas Ver Mensaje
Ya hicieron la prueba ?
Si la llave foránea es "not null" funciona como un inner join.
Estas "abusando" del comportamiento interno, pero es semántica errónea. Al ver con LEFT uno asume que hay nulos. Eso es lo que dice el codigo.

Cita:
Empezado por lbuelvas Ver Mensaje
Sigo trabajando con bases de datos Firebird 1.5 y el preprocesador (el que define el plan de la consulta) no selecciona algunos índices como uno esperaría. Mis consultas funcionan como espero que funcionen. En Firebird 3 he tratado de usar inner join pero si no toma el índice que espero paso a usar left join siempre y cuando la llave foránea tenga valor (definiéndola not null).
Aquí hay un error de apreciación de cómo funcionan los motores de BD. De entrada, hay que dudar MUCHISIMO que un motor mas nuevo sea menos eficiente que el mas viejo.

Ni te imaginas lo mucho que ha avanzado el tema de los RDBMS estos años. Y esos avances están siendo aplicados constantemente. Los RDBMs son MUY competitivos entre ellos.

---

No siempre elegir un indice es lo mejor.

Una de las tareas del query planer es determinar la manera menos costosa de ejecutar la consulta. Si este determina que usar el indice trae un mayor costo, lo DESCARTA.

Ahora, es posible que este se "equivoque?". Si. Y es posible que DIO LA CASUALIDAD que en la version vieja no cometa el error y en la nueva sí? Claro. Y eso significa que es mejor usar la vieja? NOOOOOOOO.

Porque es MUY probable que la nueva manifieste un ERROR de logica y/o diseño que la vieja, por casualidad NO VE.

Asi que:
  • Usa la version(estable) mas nueva del motor siempre. Eso te dara de "gratis" todo lo que lo nuevo traiga y este estara compilado con las mejores que hay en lo mas nuevo (como soporte a SIMD).
  • Ejecuta la consulta que quieres. Sea que use o no indices, si esta se ejecuta rapido entonces paras.
  • Si ves un problema, es porque hay un problema en el codigo! Que es:
  • Como le estas diciendo LEFT JOIN en vez de INNER JOIN le estas diciendo al query planer que es MAS COSTOSO UNIR AMBAS TABLAS. Inner join es MUCHO más eficiente de ejecutar. Lo se, estoy armando un lenguaje relacional y la implementación del inner join es pan comido, y cada otro es mas y mas complejo.
  • Estas metiendo una condición que hace ineficiente el uso de indices. Al 100% esta en los wheres o los group by, o lo anulas con un sort. Pero los wheres es mas común. Si necesitas ejecutar una expresión, indexa por esta: https://firebirdsql.org/rlsnotesh/in...xpression.html
  • Una mala configuracion del motor pudiera ser el problema. Si el motor esta bajo precion (por estar configurado de forma negativa versus su entorno de hardware, ej: Falta de memoria) entonces puede verse forzado a optimizar por bajo recursos vs velocidad
  • Luego de mover mucho la BD (ej: un insert masivo, o grandes cambios en la estructura) las estadisticas se pueden desbalancear. Firebird usa estadisticas para ESTIMAR los costos. Si estas estan mal, puede pensar que la tabla es "pequeña" donde meter indices es bobada. Resetea: http://www.firebirdfaq.org/faq110/
  • Por ultimo, puedes decirle al motor que deje de fumarsela y que tu REALMENTE sabes mas: Fuerza al query planer a hacer lo que tu dices: http://www.firebirdfaq.org/faq224/

Pero en toda mi vida, usando como 8 rdbms diferentes solo he tenido que forzar a Mysql (que en versiones antes tenia el query planer mas imbecil del mundo. Todos los join era nested loops, que asco!) y aun asi, termine reescribiendo el query mejor. Siempre sigue estos pasos:
  • Haz que funciones
  • Hazlo correcto
  • Hazlo rapido
Y en el caso de compiladores eficientes como SQL, los 2 primeros pasos logran el tercero.
__________________
El malabarista.
Responder Con Cita
  #13  
Antiguo 22-11-2019
novato_erick novato_erick is offline
Miembro
 
Registrado: ago 2010
Ubicación: Panamá
Posts: 397
Poder: 15
novato_erick Va por buen camino
Cita:
Empezado por lbuelvas Ver Mensaje
Si envías el script de esa parte del proyecto con algunos datos personalmente te podría colaborar un poco más.
Código SQL [-]
/* SQL Manager for InterBase and Firebird 5.5.4.52620    */
/* ----------------------------------------------------- */
/* Host     : localhost                                  */
/* Database : C:\MIDB\BDASCII.FDB */


CREATE DATABASE 'localhost/3050:C:\MIDB\BDASCII.FDB'
  USER 'SYSDBA'
  PASSWORD 'masterkey'
  PAGE_SIZE = 4096
  DEFAULT CHARACTER SET ASCII
  COLLATION ASCII;

SET AUTODDL ON;

/* Structure for the `FAC_CLIENTE` table :  */

CREATE TABLE FAC_CLIENTE (
  ID_FACCLIENTE INTEGER NOT NULL,
  ID_CLIENTE INTEGER NOT NULL,
  ID_FACTURA INTEGER NOT NULL);


ALTER TABLE FAC_CLIENTE ADD PRIMARY KEY (ID_FACCLIENTE);

CREATE INDEX IDX_FAC_CLIENTE ON FAC_CLIENTE(ID_FACTURA);

CREATE INDEX IDX_FAC_CLIENTE1 ON FAC_CLIENTE(ID_CLIENTE);

/* Definition for the `FAC_CLIENTE_ID_FACCLIENTE_GEN` generator :  */

CREATE GENERATOR FAC_CLIENTE_ID_FACCLIENTE_GEN;

/* Definition for the `BI_FAC_CLIENTE_ID_FACCLIENTE` trigger :  */

SET TERM ^ ;

CREATE TRIGGER BI_FAC_CLIENTE_ID_FACCLIENTE FOR FAC_CLIENTE
ACTIVE BEFORE
  INSERT
POSITION 0
AS
BEGIN
  IF (NEW.ID_FACCLIENTE IS NULL) THEN
      NEW.ID_FACCLIENTE = GEN_ID(FAC_CLIENTE_ID_FACCLIENTE_GEN, 1);
END^

SET TERM ; ^

/* Structure for the `FAC_TARJETAS` table :  */

CREATE TABLE FAC_TARJETAS (
  ID_FACTARJETAS INTEGER NOT NULL,
  ID_TARJETA INTEGER NOT NULL,
  ID_FACTURA INTEGER NOT NULL,
  NUM_TARJETA INTEGER NOT NULL,
  NUM_TRANSTARJETA INTEGER NOT NULL,
  MONTOTARJETA DECIMAL(12, 2) NOT NULL);


ALTER TABLE FAC_TARJETAS ADD PRIMARY KEY (ID_FACTARJETAS);

CREATE INDEX IDX_FAC_TARJETAS ON FAC_TARJETAS(ID_FACTURA);

/* Definition for the `FAC_TARJETAS_ID_FACTARJETAS_GEN` generator :  */

CREATE GENERATOR FAC_TARJETAS_ID_FACTARJETAS_GEN;

/* Definition for the `BI_FAC_TARJETAS_ID_FACTARJETAS` trigger :  */

SET TERM ^ ;

CREATE TRIGGER BI_FAC_TARJETAS_ID_FACTARJETAS FOR FAC_TARJETAS
ACTIVE BEFORE
  INSERT
POSITION 0
AS
BEGIN
  IF (NEW.ID_FACTARJETAS IS NULL) THEN
      NEW.ID_FACTARJETAS = GEN_ID(FAC_TARJETAS_ID_FACTARJETAS_GEN, 1);
END^

SET TERM ; ^

/* Structure for the `FAC_CHEQUES` table :  */

CREATE TABLE FAC_CHEQUES (
  ID_FACCHEQUE INTEGER NOT NULL,
  ID_FACTURA INTEGER NOT NULL,
  MONTOCHEQUE DOUBLE PRECISION DEFAULT 0.0,
  NUM_CHEQUE INTEGER NOT NULL,
  BANCOCHEQUE VARCHAR(150) NOT NULL,
  FECHA_CHEQUE TIMESTAMP NOT NULL,
  VUELTOCHEQUE DECIMAL(12, 2) DEFAULT 0.0 NOT NULL);


ALTER TABLE FAC_CHEQUES ADD PRIMARY KEY (ID_FACCHEQUE);


CREATE INDEX IDX_FAC_CHEQUES ON FAC_CHEQUES(ID_FACTURA);

/* Definition for the `FAC_CHEQUES_ID_FACCHEQUE_GEN` generator :  */

CREATE GENERATOR FAC_CHEQUES_ID_FACCHEQUE_GEN;

/* Definition for the `BI_FAC_CHEQUES_ID_FACCHEQUE` trigger :  */

SET TERM ^ ;

CREATE TRIGGER BI_FAC_CHEQUES_ID_FACCHEQUE FOR FAC_CHEQUES
ACTIVE BEFORE
  INSERT
POSITION 0
AS
BEGIN
  IF (NEW.ID_FACCHEQUE IS NULL) THEN
      NEW.ID_FACCHEQUE = GEN_ID(FAC_CHEQUES_ID_FACCHEQUE_GEN, 1);
END^

SET TERM ; ^

/* Structure for the `FAC_COMBINADA` table :  */

CREATE TABLE FAC_COMBINADA (
  ID_FACCOMBI INTEGER NOT NULL,
  ID_FACTURA INTEGER NOT NULL);


ALTER TABLE FAC_COMBINADA ADD PRIMARY KEY (ID_FACCOMBI);

/* Definition for the `FAC_COMBINADA_ID_FACCOMBI_GEN` generator :  */

CREATE GENERATOR FAC_COMBINADA_ID_FACCOMBI_GEN;

/* Definition for the `BI_FAC_COMBINADA_ID_FACCOMBI` trigger :  */

SET TERM ^ ;

CREATE TRIGGER BI_FAC_COMBINADA_ID_FACCOMBI FOR FAC_COMBINADA
ACTIVE BEFORE
  INSERT
POSITION 0
AS
BEGIN
  IF (NEW.ID_FACCOMBI IS NULL) THEN
      NEW.ID_FACCOMBI = GEN_ID(FAC_COMBINADA_ID_FACCOMBI_GEN, 1);
END^

SET TERM ; ^

/* Structure for the `FAC_CREDITO` table :  */

CREATE TABLE FAC_CREDITO (
  ID_FACCREDITO INTEGER NOT NULL,
  ID_FACTURA INTEGER NOT NULL,
  ID_CLIENTE INTEGER NOT NULL,
  PENDIENTE CHAR(1) DEFAULT 'S' NOT NULL,
  FECHAINI_CRE TIMESTAMP NOT NULL,
  FECHAFIN_CRE TIMESTAMP NOT NULL,
  M_VENTACREDITO DECIMAL(12, 2) DEFAULT 0.0,
  DETALLE_FAC_CREDITO VARCHAR(125) NOT NULL,
  CONSECUTIVO_FAC INTEGER);


ALTER TABLE FAC_CREDITO ADD PRIMARY KEY (ID_FACCREDITO);


CREATE INDEX IDX_FAC_CREDITO ON FAC_CREDITO(ID_FACTURA);

/* Definition for the `FAC_CREDITO_ID_FACCREDITO_GEN` generator :  */

CREATE GENERATOR FAC_CREDITO_ID_FACCREDITO_GEN;

/* Definition for the `BI_FAC_CREDITO_ID_FACCREDITO` trigger :  */

SET TERM ^ ;

CREATE TRIGGER BI_FAC_CREDITO_ID_FACCREDITO FOR FAC_CREDITO
ACTIVE BEFORE
  INSERT
POSITION 0
AS
BEGIN
  IF (NEW.ID_FACCREDITO IS NULL) THEN
      NEW.ID_FACCREDITO = GEN_ID(FAC_CREDITO_ID_FACCREDITO_GEN, 1);
END^

SET TERM ; ^

/* Structure for the `FORMA_PAGO` table :  */

CREATE TABLE FORMA_PAGO (
  ID_FORMAPAGO INTEGER NOT NULL,
  FORMAPAGO VARCHAR(50));


ALTER TABLE FORMA_PAGO ADD PRIMARY KEY (ID_FORMAPAGO);

/* Structure for the `FAC_F_PAGO` table :  */

CREATE TABLE FAC_F_PAGO (
  ID_FAC_F_PAGO INTEGER NOT NULL,
  ID_FORMAPAGO INTEGER NOT NULL,
  ID_FACTURA INTEGER NOT NULL);


ALTER TABLE FAC_F_PAGO ADD PRIMARY KEY (ID_FAC_F_PAGO);

/* Definition for the `FAC_F_PAGO_ID_FAC_F_PAGO_GEN` generator :  */

CREATE GENERATOR FAC_F_PAGO_ID_FAC_F_PAGO_GEN;

/* Definition for the `BI_FAC_F_PAGO_ID_FAC_F_PAGO` trigger :  */

SET TERM ^ ;

CREATE TRIGGER BI_FAC_F_PAGO_ID_FAC_F_PAGO FOR FAC_F_PAGO
ACTIVE BEFORE
  INSERT
POSITION 0
AS
BEGIN
  IF (NEW.ID_FAC_F_PAGO IS NULL) THEN
      NEW.ID_FAC_F_PAGO = GEN_ID(FAC_F_PAGO_ID_FAC_F_PAGO_GEN, 1);
END^

SET TERM ; ^

/* Definition for the `FORMA_PAGO_ID_FORMAPAGO_GEN` generator :  */

CREATE GENERATOR FORMA_PAGO_ID_FORMAPAGO_GEN;

/* Definition for the `BI_FORMA_PAGO_ID_FORMAPAGO` trigger :  */

SET TERM ^ ;

CREATE TRIGGER BI_FORMA_PAGO_ID_FORMAPAGO FOR FORMA_PAGO
ACTIVE BEFORE
  INSERT
POSITION 0
AS
BEGIN
  IF (NEW.ID_FORMAPAGO IS NULL) THEN
      NEW.ID_FORMAPAGO = GEN_ID(FORMA_PAGO_ID_FORMAPAGO_GEN, 1);
END^

SET TERM ; ^

/* Structure for the `FAC_NCRECIB` table :  */

CREATE TABLE FAC_NCRECIB (
  ID_FACNC INTEGER NOT NULL,
  SUB_TOTALNC DECIMAL(12, 2) DEFAULT 0.0 NOT NULL,
  DESC_NC DECIMAL(12, 2) DEFAULT 0.0 NOT NULL,
  MONTO_IVANC DECIMAL(12, 2) DEFAULT 0.0 NOT NULL,
  MONTO_NC DECIMAL(12, 2) DEFAULT 0.0 NOT NULL,
  FECHA_RECIBO TIMESTAMP NOT NULL,
  ID_CAJA INTEGER NOT NULL,
  ID_USUARIO INTEGER NOT NULL,
  ID_CLIENTE INTEGER NOT NULL,
  ID_FACTURA INTEGER NOT NULL,
  CONSECUTIVO_FAC INTEGER NOT NULL,
  ID_NOTACRED INTEGER NOT NULL);


ALTER TABLE FAC_NCRECIB ADD PRIMARY KEY (ID_FACNC);


CREATE INDEX IDX_FAC_NCRECIB ON FAC_NCRECIB(ID_FACTURA);

/* Definition for the `FAC_NCRECIB_ID_FACNC_GEN` generator :  */

CREATE GENERATOR FAC_NCRECIB_ID_FACNC_GEN;

/* Definition for the `BI_FAC_NCRECIB_ID_FACNC` trigger :  */

SET TERM ^ ;

CREATE TRIGGER BI_FAC_NCRECIB_ID_FACNC FOR FAC_NCRECIB
ACTIVE BEFORE
  INSERT
POSITION 0
AS
BEGIN
  IF (NEW.ID_FACNC IS NULL) THEN
      NEW.ID_FACNC = GEN_ID(FAC_NCRECIB_ID_FACNC_GEN, 1);
END^

SET TERM ; ^

/* Structure for the `FAC_VENDEDOR` table :  */

CREATE TABLE FAC_VENDEDOR (
  ID_FACVENDEDOR INTEGER NOT NULL,
  ID_VENDEDOR INTEGER NOT NULL,
  ID_FACTURA INTEGER NOT NULL);


ALTER TABLE FAC_VENDEDOR ADD PRIMARY KEY (ID_FACVENDEDOR);

/* Definition for the `FAC_VENDEDOR_ID_FACVENDEDOR_GEN` generator :  */

CREATE GENERATOR FAC_VENDEDOR_ID_FACVENDEDOR_GEN;

/* Definition for the `BI_FAC_VENDEDOR_ID_FACVENDEDOR` trigger :  */

SET TERM ^ ;

CREATE TRIGGER BI_FAC_VENDEDOR_ID_FACVENDEDOR FOR FAC_VENDEDOR
ACTIVE BEFORE
  INSERT
POSITION 0
AS
BEGIN
  IF (NEW.ID_FACVENDEDOR IS NULL) THEN
      NEW.ID_FACVENDEDOR = GEN_ID(FAC_VENDEDOR_ID_FACVENDEDOR_GEN, 1);
END^

SET TERM ; ^

/* Structure for the `FACTURAS_VENTAS` table :  */

CREATE TABLE FACTURAS_VENTAS (
  ID_FACTURA INTEGER NOT NULL,
  NUMEROFAC INTEGER,
  FECHA TIMESTAMP DEFAULT 'NOW' NOT NULL,
  MONTOSUBTOTAL DECIMAL(12, 2) DEFAULT 0.0,
  MONTOSUBTOTALCONDESC DECIMAL(12, 2) DEFAULT 0.0,
  MONTODESCUENTO DECIMAL(12, 2) DEFAULT 0.0 NOT NULL,
  MONTOIMPUESTO DECIMAL(12, 2) DEFAULT 0.0 NOT NULL,
  MONTOTOTAL DECIMAL(12, 2) DEFAULT 0.0 NOT NULL,
  PAGACON DECIMAL(12, 2) DEFAULT 0.0 NOT NULL,
  CAMBIO DECIMAL(12, 2) NOT NULL,
  MONTO_EFECTIVO DECIMAL(12, 2) DEFAULT 0.0 NOT NULL,
  SERIAL_IMPRESORA VARCHAR(25),
  NUM_CUPONIMPRESORA INTEGER NOT NULL,
  FACTURA_IMPRESORA INTEGER NOT NULL,
  DATE_DEV DATE DEFAULT 'NOW' NOT NULL,
  CONSECUTIVO INTEGER NOT NULL,
  VENTASEXENTAS DECIMAL(12, 2) DEFAULT 0.0 NOT NULL,
  VENTASSIETE DECIMAL(12, 2) DEFAULT 0.0 NOT NULL,
  VENTASDIEZ DECIMAL(12, 2) DEFAULT 0.0 NOT NULL,
  VENTASQUINCE DECIMAL(12, 2) DEFAULT 0.0 NOT NULL);


ALTER TABLE FACTURAS_VENTAS ADD PRIMARY KEY (ID_FACTURA);


CREATE INDEX IDX_FACTURAS_VENTAS ON FACTURAS_VENTAS(ID_FACTURA);

CREATE INDEX IDX_FACTURAS_VENTAS1 ON FACTURAS_VENTAS(CONSECUTIVO);

/* Structure for the `CONSECUTIVO` table :  */

CREATE TABLE CONSECUTIVO (
  IDCONSECUTIVO INTEGER NOT NULL,
  ULTIMOASIGNADO INTEGER NOT NULL);


ALTER TABLE CONSECUTIVO ADD PRIMARY KEY (IDCONSECUTIVO);

/* Definition for the `SIGUIENTECONSECUTIVO` procedure :  */

SET TERM ^ ;

CREATE PROCEDURE SIGUIENTECONSECUTIVO(
  AIDCONSECUTIVO INTEGER NOT NULL)
RETURNS(
  CONSECUTIVO INTEGER)
AS
DECLARE VARIABLE BANDERA INTEGER;
BEGIN
   bandera = 0;
  while (bandera = 0) do
  begin
    update Consecutivo
       set IDConsecutivo = IDConsecutivo
     where IDConsecutivo = :AIDConsecutivo;
    bandera = 1;
    --901: Lock conflict
    --903: Deadlock
    when sqlcode -901 do
    begin
      bandera = 0;
    end
  end
  select UltimoAsignado + 1
    from Consecutivo
   where IDConsecutivo = :AIDConsecutivo
    into :Consecutivo;
  update Consecutivo
     set UltimoAsignado = :Consecutivo
   where IDConsecutivo = :AIDConsecutivo;
    SUSPEND;
END^

SET TERM ; ^

/* Definition for the `TOMACONSECUTIVO` procedure :  */

SET TERM ^ ;

CREATE OR ALTER PROCEDURE TOMACONSECUTIVO(
  AIDCONSECUTIVO INTEGER)
AS
DECLARE VARIABLE BANDERA INTEGER;
BEGIN
  bandera = 0;
  while (bandera = 0) do
  begin
    update Consecutivo
       set IDConsecutivo = IDConsecutivo
     where IDConsecutivo = :AIDConsecutivo;
    bandera = 1;
    --901: Lock conflict
    --903: Deadlock
    when sqlcode -901 do
    begin
      bandera = 0;
    end
  end
  SUSPEND;
END^


/* Structure for the `DETALLE_FACTURASVENTAS` table :  */

CREATE TABLE DETALLE_FACTURASVENTAS (
  ID_FACDET INTEGER DEFAULT 0 NOT NULL,
  ID_FACTURA INTEGER NOT NULL,
  ID_ARTICULO INTEGER DEFAULT 0,
  ID_DEPTO INTEGER NOT NULL,
  CODIGO_BARRAS VARCHAR(30) NOT NULL,
  PRECIO_UNITARIO DECIMAL(12, 2) DEFAULT 0.0,
  CANTIDAD DECIMAL(12, 2) DEFAULT 0.0 NOT NULL,
  IMPUESTO DECIMAL(12, 2),
  MONTOIMPUESTO DECIMAL(12, 2),
  DESCUENTO DECIMAL(12, 2),
  MONTO_DESCUENTO DECIMAL(12, 2),
  TOTAL DECIMAL(12, 2),
  DEVUELTO INTEGER DEFAULT 0 NOT NULL);

Disculpa la demora..


Saludos;
Responder Con Cita
  #14  
Antiguo 22-11-2019
novato_erick novato_erick is offline
Miembro
 
Registrado: ago 2010
Ubicación: Panamá
Posts: 397
Poder: 15
novato_erick Va por buen camino
Cita:
Empezado por Casimiro Notevi Ver Mensaje
Muy bueno
Ciertamente Si...

egostar, Casimiro, mamcx es un gran privilegio que lean mi post ayudadome como siempre.. Bendiciones Totales....



Por cierto uso el inner join porque se que cada fila de la tabla A exista una fila en la tabla B. bueno en teoría.


Provaré la sugerencia de lbuelvas del uso del CAST..

Saludos y les informo
Responder Con Cita
  #15  
Antiguo 23-11-2019
novato_erick novato_erick is offline
Miembro
 
Registrado: ago 2010
Ubicación: Panamá
Posts: 397
Poder: 15
novato_erick Va por buen camino
Descartado funcion CAST en Campo TimesTamp

La verdad como había mostrado dos resultado de respuesta a mi consulta en Base de datos de Desarrollo y la misma en producción obteniendo resultado lento en la de producción mas no en la de Desarrollo descarto totalmente el campo fecha como causa sugerido por nuestro compañero lbuelvas.

aun me encuentro en pruebas. Agregué el script solicitado por ustedes.

Saludos;
Responder Con Cita
  #16  
Antiguo 23-11-2019
Avatar de Casimiro Notevi
Casimiro Notevi Casimiro Notevi is offline
Moderador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.257
Poder: 10
Casimiro Notevi Tiene un aura espectacularCasimiro Notevi Tiene un aura espectacular
Otra cosa a tener en cuenta y que es más importante de lo que puedas pensar, usa dominios.
De siempre, en todos los campos, usar dominios.

Código Delphi [-]
CREATE DOMAIN DOMANO AS smallint NOT NULL;
CREATE DOMAIN DOMCODIGO AS integer;
CREATE DOMAIN DOMFECHA AS timestamp;
CREATE DOMAIN DOMHORA AS timestamp;
...

CREATE TABLE TBCABECERASALBARANESVENTAS
(
  CODIGO DOMCODIGONONULO,
  ANO DOMANO,
  TIPODOCUMENTO DOMTIPODOCUMENTO NOT NULL,
  SERIE DOMSERIE,
  NUMERO DOMCODIGONONULO,
  FECHA DOMFECHA,
  HORA DOMHORA,
Responder Con Cita
  #17  
Antiguo 23-11-2019
lbuelvas lbuelvas is offline
Miembro
 
Registrado: may 2003
Ubicación: Colombia
Posts: 378
Poder: 22
lbuelvas Va por buen camino
Hola, me alegra que se haya dado la discusión. Gracias por las recomendaciones sobre el uso de Inner Join, voy a revisar una parte de un proyecto actual donde en las pruebas generé 1.00.000 de registros en dos tablas que están relacionadas 1:M.

Colocaré los resultados para continuar con el tema que se me hace interesante, por eso respondí tan pronto el compañero escribió su inquietud.

Revisaré mañana el script y espero que mis comentarios sean de ayuda.

Un abrazo para todos.
__________________
Luis Fernando Buelvas T.
Responder Con Cita
  #18  
Antiguo 23-11-2019
novato_erick novato_erick is offline
Miembro
 
Registrado: ago 2010
Ubicación: Panamá
Posts: 397
Poder: 15
novato_erick Va por buen camino
Cita:
Empezado por Casimiro Notevi Ver Mensaje
Otra cosa a tener en cuenta y que es más importante de lo que puedas pensar, usa dominios.
De siempre, en todos los campos, usar dominios.

Interesante Casimiro Notevi nunca me pareció relevante usar los dominios en fin será porque en la teoría normalmente se lo dejo al motor de base de datos
En este caso según usar dominion en Firebird no son los tipos de datos estándar sino los creados por el programador la para cubrir sus propias necesidades. al principio mi necesidad fue simplemente usar tipos de Datos que normalmente están en el motor.

En fin ahora quedé con la duda 'Perdonen mi ignorancia' del uso del dominio a la hora de realizar consulta anidadas de diferentes tablas.


Saludos a todos;

novato_erick
Responder Con Cita
  #19  
Antiguo 23-11-2019
novato_erick novato_erick is offline
Miembro
 
Registrado: ago 2010
Ubicación: Panamá
Posts: 397
Poder: 15
novato_erick Va por buen camino
Cita:
Empezado por lbuelvas Ver Mensaje
Hola, me alegra que se haya dado la discusión. Gracias por las recomendaciones sobre el uso de Inner Join, voy a revisar una parte de un proyecto actual donde en las pruebas generé 1.00.000 de registros en dos tablas que están relacionadas 1:M.

Colocaré los resultados para continuar con el tema que se me hace interesante, por eso respondí tan pronto el compañero escribió su inquietud.

Revisaré mañana el script y espero que mis comentarios sean de ayuda.

Un abrazo para todos.
Hola tengo en un archivo rar los mas de 1.2 millones de registros para hacer las pruebas el que quiera puede mandarme su email o me sugiera donde subirlo ya que pesa como 70mb para que este al alcance de otros para realizar pruebas.


Saludos;
Responder Con Cita
  #20  
Antiguo 23-11-2019
Avatar de mamcx
mamcx mamcx is offline
Moderador
 
Registrado: sep 2004
Ubicación: Medellín - Colombia
Posts: 3.927
Poder: 26
mamcx Tiene un aura espectacularmamcx Tiene un aura espectacularmamcx Tiene un aura espectacular
Puedes ponerlo en un link de dropbox o similar.
__________________
El malabarista.
Responder Con Cita
Respuesta



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Consulta update desde una consulta select jafera SQL 3 08-05-2015 20:56:02
Consulta SQL basada en otra consulta anterior jafera SQL 5 19-11-2013 02:07:37
Optimizando velocidad de mis páginas lucasarts_18 PHP 2 25-09-2008 20:42:47
Optimizando Creación de Formularios MDI nelostanley OOP 20 08-01-2008 04:00:36
Realizar una consulta sobre los registros que devuelve otra consulta Borjaserrano Firebird e Interbase 12 02-10-2007 00:19:44


La franja horaria es GMT +2. Ahora son las 01:36:00.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi