Optimizacion de actualizacion de Campo

marco3k · #1 22-10-2020

Cita:

Empezado por webmasterplc

Literal lo hice tal cual, me cambio de componentes de firedac a zeos porque zeos son menos hostiles

Si has hecho todo eso y te sale este mensaje:

Código Delphi [-]me da este error
[dcc32 Error] UnitTasa.pas(76): E2003 Undeclared identifier: 'sqlproductosPRECIO1'

De repente al definir los campos, delphi les puso otro nombre o con alguna diferencia, fijate en el nombre que le creo Delphi porque el mensaje es claro "identificado no declarado" y ese mensaje es claro y sólo se me ocurre:
1.- O no definiste los campos o
2.- Delphi le puso un nombre un poco diferente ejemplo: el nombre esperado es "sqlproductosPRECIO1" y delphi le puso "sqlTproductosPRECIO1".

Ahora con respecto a hacerlo en base de datos si puedes investigar un poco acerca de procedimientos almacenados en firebird, con eso encontraras solución para realizarlo en base de datos, en internet hay bastante documentación al respecto de procedimientos almacenados.

Saludos.

marco3k · #2 22-10-2020

Aca hay un ejemplo de procedimiento almacenado en firebird:
http://www.clubdelphi.com/~marcsc/fo...ad.php?t=11090

webmasterplc · #3 22-10-2020

Cita:

Empezado por marco3k

Si has hecho todo eso y te sale este mensaje:

Código Delphi [-]me da este error
[dcc32 Error] UnitTasa.pas(76): E2003 Undeclared identifier: 'sqlproductosPRECIO1'

De repente al definir los campos, delphi les puso otro nombre o con alguna diferencia, fijate en el nombre que le creo Delphi porque el mensaje es claro "identificado no declarado" y ese mensaje es claro y sólo se me ocurre:
1.- O no definiste los campos o
2.- Delphi le puso un nombre un poco diferente ejemplo: el nombre esperado es "sqlproductosPRECIO1" y delphi le puso "sqlTproductosPRECIO1".

Ahora con respecto a hacerlo en base de datos si puedes investigar un poco acerca de procedimientos almacenados en firebird, con eso encontraras solución para realizarlo en base de datos, en internet hay bastante documentación al respecto de procedimientos almacenados.

Saludos.

Ya voy a revisar yvcomento

cloayza · #4 22-10-2020

Estimado adjunto sugerencias para tu proceso de actualización:

Código SQL [-]--Opción 1: Sentencia SQL
update productos
set precio1= precio1 / :Tasa_Old * :Tasa_New,
    precio2= precio2 / :Tasa_Old * :Tasa_New,
    precio3= precio3 / :Tasa_Old * :Tasa_New,
    precio4= precio4 / :Tasa_Old * :Tasa_New,
    precio5= precio5 / :Tasa_Old * :Tasa_New,
    precio6= precio6 / :Tasa_Old * :Tasa_New;


--Opción 2: Sentencia SQL con filtro 
update productos
set precio1= precio1 / :Tasa_Old * :Tasa_New,
    precio2= precio2 / :Tasa_Old * :Tasa_New,
    precio3= precio3 / :Tasa_Old * :Tasa_New,
    precio4= precio4 / :Tasa_Old * :Tasa_New,
    precio5= precio5 / :Tasa_Old * :Tasa_New,
    precio6= precio6 / :Tasa_Old * :Tasa_New
where id_linea=:linea;



--Opción 3: Procedimiento almacenado con parámetros
create or alter procedure spUpdatePrecios ( Linea smallint,
                                            Tasa_Old numeric(6,2),
                                            Tasa_New numeric(6,2) )
as
begin
     if (Linea is null) then
        update productos
        set precio1= precio1 / :Tasa_Old * :Tasa_New,
            precio2= precio2 / :Tasa_Old * :Tasa_New,
            precio3= precio3 / :Tasa_Old * :Tasa_New,
            precio4= precio4 / :Tasa_Old * :Tasa_New,
            precio5= precio5 / :Tasa_Old * :Tasa_New,
            precio6= precio6 / :Tasa_Old * :Tasa_New,
     else
        --Update restringido de acuerdo a Linea=?
        update productos
        set precio1= precio1 / :Tasa_Old * :Tasa_New,
            precio2= precio2 / :Tasa_Old * :Tasa_New,
            precio3= precio3 / :Tasa_Old * :Tasa_New,
            precio4= precio4 / :Tasa_Old * :Tasa_New,
            precio5= precio5 / :Tasa_Old * :Tasa_New,
            precio6= precio6 / :Tasa_Old * :Tasa_New
        where id_linea=:linea;

end

Saludos cordiales

webmasterplc · #5 25-10-2020

Cita:

Empezado por cloayza

Estimado adjunto sugerencias para tu proceso de actualización:

Código SQL [-]--Opción 1: Sentencia SQL
update productos
set precio1= precio1 / :Tasa_Old * :Tasa_New,
    precio2= precio2 / :Tasa_Old * :Tasa_New,
    precio3= precio3 / :Tasa_Old * :Tasa_New,
    precio4= precio4 / :Tasa_Old * :Tasa_New,
    precio5= precio5 / :Tasa_Old * :Tasa_New,
    precio6= precio6 / :Tasa_Old * :Tasa_New;


--Opción 2: Sentencia SQL con filtro 
update productos
set precio1= precio1 / :Tasa_Old * :Tasa_New,
    precio2= precio2 / :Tasa_Old * :Tasa_New,
    precio3= precio3 / :Tasa_Old * :Tasa_New,
    precio4= precio4 / :Tasa_Old * :Tasa_New,
    precio5= precio5 / :Tasa_Old * :Tasa_New,
    precio6= precio6 / :Tasa_Old * :Tasa_New
where id_linea=:linea;



--Opción 3: Procedimiento almacenado con parámetros
create or alter procedure spUpdatePrecios ( Linea smallint,
                                            Tasa_Old numeric(6,2),
                                            Tasa_New numeric(6,2) )
as
begin
     if (Linea is null) then
        update productos
        set precio1= precio1 / :Tasa_Old * :Tasa_New,
            precio2= precio2 / :Tasa_Old * :Tasa_New,
            precio3= precio3 / :Tasa_Old * :Tasa_New,
            precio4= precio4 / :Tasa_Old * :Tasa_New,
            precio5= precio5 / :Tasa_Old * :Tasa_New,
            precio6= precio6 / :Tasa_Old * :Tasa_New,
     else
        --Update restringido de acuerdo a Linea=?
        update productos
        set precio1= precio1 / :Tasa_Old * :Tasa_New,
            precio2= precio2 / :Tasa_Old * :Tasa_New,
            precio3= precio3 / :Tasa_Old * :Tasa_New,
            precio4= precio4 / :Tasa_Old * :Tasa_New,
            precio5= precio5 / :Tasa_Old * :Tasa_New,
            precio6= precio6 / :Tasa_Old * :Tasa_New
        where id_linea=:linea;

end

Saludos cordiales

El procedimiento almacenado funciona, aunque debo hacerlo por sql porque es un modulo para una app de tercero y cuando actualicen las estructuras borran el procedimiento

cloayza · #6 27-10-2020

En las Opcion 1 y Opción 2, estan como setencias SQL...

Código SQL [-]--Opción 1: Sentencia SQL
update productos
set precio1= precio1 / :Tasa_Old * :Tasa_New,
    precio2= precio2 / :Tasa_Old * :Tasa_New,
    precio3= precio3 / :Tasa_Old * :Tasa_New,
    precio4= precio4 / :Tasa_Old * :Tasa_New,
    precio5= precio5 / :Tasa_Old * :Tasa_New,
    precio6= precio6 / :Tasa_Old * :Tasa_New;


--Opción 2: Sentencia SQL con filtro 
update productos
set precio1= precio1 / :Tasa_Old * :Tasa_New,
    precio2= precio2 / :Tasa_Old * :Tasa_New,
    precio3= precio3 / :Tasa_Old * :Tasa_New,
    precio4= precio4 / :Tasa_Old * :Tasa_New,
    precio5= precio5 / :Tasa_Old * :Tasa_New,
    precio6= precio6 / :Tasa_Old * :Tasa_New
where id_linea=:linea;

Saludos

webmasterplc · #7 25-10-2020

Cita:

Empezado por marco3k

Si has hecho todo eso y te sale este mensaje:

Código Delphi [-]me da este error
[dcc32 Error] UnitTasa.pas(76): E2003 Undeclared identifier: 'sqlproductosPRECIO1'

De repente al definir los campos, delphi les puso otro nombre o con alguna diferencia, fijate en el nombre que le creo Delphi porque el mensaje es claro "identificado no declarado" y ese mensaje es claro y sólo se me ocurre:
1.- O no definiste los campos o
2.- Delphi le puso un nombre un poco diferente ejemplo: el nombre esperado es "sqlproductosPRECIO1" y delphi le puso "sqlTproductosPRECIO1".

Ahora con respecto a hacerlo en base de datos si puedes investigar un poco acerca de procedimientos almacenados en firebird, con eso encontraras solución para realizarlo en base de datos, en internet hay bastante documentación al respecto de procedimientos almacenados.

Saludos.

efectivamente me los cambia

Código Delphi [-]precio1:=datos.sqlproductoswdstrngfldPRECIO1.value

me sigue saliendo el mismo error

webmasterplc · #8 29-10-2020

Cita:

Empezado por marco3k

Si has hecho todo eso y te sale este mensaje:

Código Delphi [-]me da este error
[dcc32 Error] UnitTasa.pas(76): E2003 Undeclared identifier: 'sqlproductosPRECIO1'

De repente al definir los campos, delphi les puso otro nombre o con alguna diferencia, fijate en el nombre que le creo Delphi porque el mensaje es claro "identificado no declarado" y ese mensaje es claro y sólo se me ocurre:
1.- O no definiste los campos o
2.- Delphi le puso un nombre un poco diferente ejemplo: el nombre esperado es "sqlproductosPRECIO1" y delphi le puso "sqlTproductosPRECIO1".

Ahora con respecto a hacerlo en base de datos si puedes investigar un poco acerca de procedimientos almacenados en firebird, con eso encontraras solución para realizarlo en base de datos, en internet hay bastante documentación al respecto de procedimientos almacenados.

Saludos.

buenas volvi a colocar firedac y si me dunciona, puede ser un error de zeos

marco3k · #9 29-10-2020

Que bueno que ya te funciono y ¿Se pudo optimizar a como estaba anteriormente?

Saludos.

webmasterplc · #10 29-10-2020

El Rendimieto es mejor, ademas de que veo algun error antes de compilar

Temas Similares
Tema	Autor	Foro	Respuestas	Último mensaje
Problema con actualizacion de campo calculado	rloayzal	Conexión con bases de datos	9	18-12-2008 18:10:36
Actualizacion de un campo desde un trigger	fedat	Firebird e Interbase	2	14-11-2007 01:13:00
Actualización de campo Boolean	PINO72	Firebird e Interbase	1	09-02-2005 21:28:21
Actualización de campo BLOB.	mlara	Firebird e Interbase	0	13-03-2004 18:10:35