Capturar el resultado de un Procedure desde un BAT

JuJoGuAl · #1 (**permalink**) 13/02/2013, 13:12

Buenas amigos, tengo una duda con SQL y nose si este es el foro indicado para postear, veran tengo un sistema administrativo llamado VALERY que maneja una BD con extension MDF, para poder sacar unas estadisticas arme un PROCEDURE, usando "SQL MANAGER INTERBASE AND FIREBIRD" este es el PROCEDURE

Código SQL:

Ver originalSET TERM ^ ;
 
CREATE OR ALTER PROCEDURE indicadores_ventas_por_producto (INICIAL DATE, FINAL DATE)
RETURNS (FRANQ INTEGER, TE_CANT INTEGER, TE_MONTO DOUBLE PRECISION, ENSREG_CANT INTEGER, ENSREG_MONTO DOUBLE PRECISION, ENSGDE_CANT INTEGER, ENSGDE_MONTO DOUBLE PRECISION, SAND_CANT INTEGER, SAND_MONTO DOUBLE PRECISION, POST_CANT INTEGER, POST_MONTO DOUBLE PRECISION, CREM_CANT INTEGER, CREM_MONTO DOUBLE PRECISION, MINIS_CANT INTEGER, MINIS_MONTO DOUBLE PRECISION, ADC_CANT INTEGER, ADC_MONTO DOUBLE PRECISION, DESA_CANT INTEGER, DESA_MONTO DOUBLE PRECISION, WRAP_ENS INTEGER, WRAP_SUB INTEGER, FEC_REG DATE
)
AS
BEGIN
 
    BEGIN
    /* Variable de la Franquicia */
    FRANQ = 14;
    TE_CANT = 0;
    TE_MONTO = 0;
    ENSREG_CANT = 0;
    ENSREG_MONTO = 0;
    ENSGDE_CANT = 0;
    ENSGDE_MONTO = 0;
    SAND_CANT = 0;
    SAND_MONTO = 0;
    POST_CANT = 0;
    POST_MONTO = 0;
    CREM_CANT = 0;
    CREM_MONTO = 0;
    MINIS_CANT = 0;
    MINIS_MONTO = 0;
    ADC_CANT = 0;
    ADC_MONTO = 0;
    DESA_CANT = 0;
    DESA_MONTO = 0;
    WRAP_ENS  = 0;
    WRAP_SUB  = 0;
    FEC_REG = :INICIAL;
    
    SELECT
    (SUM(IIF(VENTAS.tipo_documento = 'FAC',ventas_detalles.CANTIDAD,0))-SUM(IIF(VENTAS.tipo_documento = 'DEV',ventas_detalles.CANTIDAD,0))) AS cantidad,
    (SUM(IIF(VENTAS.tipo_documento = 'FAC',ventas_detalles.total_base_imponible,0))-SUM(IIF(VENTAS.tipo_documento = 'DEV',ventas_detalles.total_base_imponible,0))) AS monto
    FROM ventas_detalles JOIN ventas ON VENTAS_DETALLES.CORRELATIVO_PRINCIPAL=ventas.CORRELATIVO
    WHERE
    (VENTAS.FECHA_EMISION BETWEEN :INICIAL AND :FINAL)
    AND
    (VENTAS_DETALLES.PRODUCTO_NOMBRE LIKE 'TE %')
    INTO :TE_CANT, :TE_MONTO;
    
    SELECT
    (SUM(IIF(VENTAS.tipo_documento = 'FAC',ventas_detalles.CANTIDAD,0))-SUM(IIF(VENTAS.tipo_documento = 'DEV',ventas_detalles.CANTIDAD,0))) AS cantidad,
    (SUM(IIF(VENTAS.tipo_documento = 'FAC',ventas_detalles.total_base_imponible,0))-SUM(IIF(VENTAS.tipo_documento = 'DEV',ventas_detalles.total_base_imponible,0))) AS monto
    FROM ventas_detalles JOIN ventas ON VENTAS_DETALLES.CORRELATIVO_PRINCIPAL=ventas.CORRELATIVO JOIN PRODUCTOS ON VENTAS_DETALLES.PRODUCTO_CODIGO=productos.CODIGO_PRODUCTO
    WHERE
    (VENTAS.FECHA_EMISION BETWEEN :INICIAL AND :FINAL)
    AND
    (PRODUCTOS.DEPARTAMENTO_CODIGO='101')
    INTO :ENSREG_CANT, :ENSREG_MONTO;
    
    SELECT
    (SUM(IIF(VENTAS.tipo_documento = 'FAC',ventas_detalles.CANTIDAD,0))-SUM(IIF(VENTAS.tipo_documento = 'DEV',ventas_detalles.CANTIDAD,0))) AS cantidad,
    (SUM(IIF(VENTAS.tipo_documento = 'FAC',ventas_detalles.total_base_imponible,0))-SUM(IIF(VENTAS.tipo_documento = 'DEV',ventas_detalles.total_base_imponible,0))) AS monto
    FROM ventas_detalles JOIN ventas ON VENTAS_DETALLES.CORRELATIVO_PRINCIPAL=ventas.CORRELATIVO JOIN PRODUCTOS ON VENTAS_DETALLES.PRODUCTO_CODIGO=productos.CODIGO_PRODUCTO
    WHERE
    (VENTAS.FECHA_EMISION BETWEEN :INICIAL AND :FINAL)
    AND
    (PRODUCTOS.DEPARTAMENTO_CODIGO='10')    
    INTO :ENSGDE_CANT, :ENSGDE_MONTO;
    
    SELECT
    (SUM(IIF(VENTAS.tipo_documento = 'FAC',ventas_detalles.CANTIDAD,0))-SUM(IIF(VENTAS.tipo_documento = 'DEV',ventas_detalles.CANTIDAD,0))) AS cantidad,
    (SUM(IIF(VENTAS.tipo_documento = 'FAC',ventas_detalles.total_base_imponible,0))-SUM(IIF(VENTAS.tipo_documento = 'DEV',ventas_detalles.total_base_imponible,0))) AS monto
    FROM ventas_detalles JOIN ventas ON VENTAS_DETALLES.CORRELATIVO_PRINCIPAL=ventas.CORRELATIVO JOIN PRODUCTOS ON VENTAS_DETALLES.PRODUCTO_CODIGO=productos.CODIGO_PRODUCTO
    WHERE
    (VENTAS.FECHA_EMISION BETWEEN :INICIAL AND :FINAL)
    AND
    (PRODUCTOS.DEPARTAMENTO_CODIGO='06')
    INTO :SAND_CANT, :SAND_MONTO;
    
    SELECT
    (SUM(IIF(VENTAS.tipo_documento = 'FAC',ventas_detalles.CANTIDAD,0))-SUM(IIF(VENTAS.tipo_documento = 'DEV',ventas_detalles.CANTIDAD,0))) AS cantidad,
    (SUM(IIF(VENTAS.tipo_documento = 'FAC',ventas_detalles.total_base_imponible,0))-SUM(IIF(VENTAS.tipo_documento = 'DEV',ventas_detalles.total_base_imponible,0))) AS monto
    FROM ventas_detalles JOIN ventas ON VENTAS_DETALLES.CORRELATIVO_PRINCIPAL=ventas.CORRELATIVO JOIN PRODUCTOS ON VENTAS_DETALLES.PRODUCTO_CODIGO=productos.CODIGO_PRODUCTO
    WHERE
    (VENTAS.FECHA_EMISION BETWEEN :INICIAL AND :FINAL)
    AND
    (PRODUCTOS.DEPARTAMENTO_CODIGO='11')
    INTO :POST_CANT, :POST_MONTO;
    
    SELECT
    (SUM(IIF(VENTAS.tipo_documento = 'FAC',ventas_detalles.CANTIDAD,0))-SUM(IIF(VENTAS.tipo_documento = 'DEV',ventas_detalles.CANTIDAD,0))) AS cantidad,
    (SUM(IIF(VENTAS.tipo_documento = 'FAC',ventas_detalles.total_base_imponible,0))-SUM(IIF(VENTAS.tipo_documento = 'DEV',ventas_detalles.total_base_imponible,0))) AS monto
    FROM ventas_detalles JOIN ventas ON VENTAS_DETALLES.CORRELATIVO_PRINCIPAL=ventas.CORRELATIVO
    WHERE
    (VENTAS.FECHA_EMISION BETWEEN :INICIAL AND :FINAL)
    AND
    (VENTAS_DETALLES.PRODUCTO_NOMBRE = 'CREMA DEL DIA')
    INTO :CREM_CANT, :CREM_MONTO;
    
    SELECT
    (SUM(IIF(VENTAS.tipo_documento = 'FAC',ventas_detalles.CANTIDAD,0))-SUM(IIF(VENTAS.tipo_documento = 'DEV',ventas_detalles.CANTIDAD,0))) AS cantidad,
    (SUM(IIF(VENTAS.tipo_documento = 'FAC',ventas_detalles.total_base_imponible,0))-SUM(IIF(VENTAS.tipo_documento = 'DEV',ventas_detalles.total_base_imponible,0))) AS monto
    FROM ventas_detalles JOIN ventas ON VENTAS_DETALLES.CORRELATIVO_PRINCIPAL=ventas.CORRELATIVO JOIN PRODUCTOS ON VENTAS_DETALLES.PRODUCTO_CODIGO=productos.CODIGO_PRODUCTO
    WHERE
        (VENTAS.FECHA_EMISION BETWEEN :INICIAL AND :FINAL)
    AND
        (PRODUCTOS.DEPARTAMENTO_CODIGO='05')
    INTO :MINIS_CANT, :MINIS_MONTO;
    
    SELECT
    (SUM(IIF(VENTAS.tipo_documento = 'FAC',ventas_detalles.CANTIDAD,0))-SUM(IIF(VENTAS.tipo_documento = 'DEV',ventas_detalles.CANTIDAD,0))) AS cantidad,
    (SUM(IIF(VENTAS.tipo_documento = 'FAC',ventas_detalles.total_base_imponible,0))-SUM(IIF(VENTAS.tipo_documento = 'DEV',ventas_detalles.total_base_imponible,0))) AS monto
    FROM ventas_detalles JOIN ventas ON VENTAS_DETALLES.CORRELATIVO_PRINCIPAL=ventas.CORRELATIVO JOIN PRODUCTOS ON VENTAS_DETALLES.PRODUCTO_CODIGO=productos.CODIGO_PRODUCTO
    WHERE
        (VENTAS.FECHA_EMISION BETWEEN :INICIAL AND :FINAL)
    AND
        (PRODUCTOS.DEPARTAMENTO_CODIGO='09')
    INTO :ADC_CANT, :ADC_MONTO;
    
    SELECT
    (SUM(IIF(VENTAS.tipo_documento = 'FAC',ventas_detalles.CANTIDAD,0))-SUM(IIF(VENTAS.tipo_documento = 'DEV',ventas_detalles.CANTIDAD,0))) AS cantidad,
    (SUM(IIF(VENTAS.tipo_documento = 'FAC',ventas_detalles.total_base_imponible,0))-SUM(IIF(VENTAS.tipo_documento = 'DEV',ventas_detalles.total_base_imponible,0))) AS monto
    FROM ventas_detalles JOIN ventas ON VENTAS_DETALLES.CORRELATIVO_PRINCIPAL=ventas.CORRELATIVO JOIN PRODUCTOS ON VENTAS_DETALLES.PRODUCTO_CODIGO=productos.CODIGO_PRODUCTO
    WHERE
        (VENTAS.FECHA_EMISION BETWEEN :INICIAL AND :FINAL)
    AND
        (PRODUCTOS.DEPARTAMENTO_CODIGO='12')
    INTO :DESA_CANT, :DESA_MONTO;
    
    SELECT
    (SUM(IIF(VENTAS.tipo_documento = 'FAC' AND PRODUCTOS.CODIGO_PRODUCTO = '12019',ventas_detalles.CANTIDAD,0))-SUM(IIF(VENTAS.tipo_documento = 'DEV' AND PRODUCTOS.CODIGO_PRODUCTO = '12019',ventas_detalles.CANTIDAD,0))) AS wrapENS,
    (SUM(IIF(VENTAS.tipo_documento = 'FAC' AND PRODUCTOS.CODIGO_PRODUCTO = '12020',ventas_detalles.CANTIDAD,0))-SUM(IIF(VENTAS.tipo_documento = 'DEV' AND PRODUCTOS.CODIGO_PRODUCTO = '12020',ventas_detalles.CANTIDAD,0))) AS wrapSAN
    FROM ventas_detalles JOIN ventas ON VENTAS_DETALLES.CORRELATIVO_PRINCIPAL=ventas.CORRELATIVO JOIN PRODUCTOS ON VENTAS_DETALLES.PRODUCTO_CODIGO=productos.CODIGO_PRODUCTO
    WHERE
        (VENTAS.FECHA_EMISION BETWEEN '2012.12.01' AND '2012.12.31')
    INTO :WRAP_ENS, :WRAP_SUB;
    
    SUSPEND;
    END
END
^
SET TERM ; ^

Como veran consulto cada dato que necesito y lo guardo dentro de una Var, ahora el procedure lo ejecuto asi desde un BAT

"isql HOST:"C:\VALERY_POS\datos\valery.mdf" -user 'SYSDBA' -password 'masterkey' -i procedure_producots.sql"

y el .SQL
"delete from numeros;
commit;
execute procedure indicadores_ventas_por_producto('2013.01.01','2013 .01.31');
commit;
quit;"

Como puedo hacer para que el procedure me Retorne algo como
"INSERT INTO indicadores_ventas_xproducto(ID_FRANQUICIA,TE_CANT ,TE_MONTO,ENSREG_CANT,ENSREG_MONTO,ENSGDE_CANT,ENS GDE_MONTO,SAND_CANT,SAND_MONTO,POST_CANT,POST_MONT O,CREM_CANT,CREM_MONTO,MINIS_CANT,MINIS_MONTO,ADC_ CANT,ADC_MONTO,DESA_CANT,DESA_MONTO,WRAP_ENS,WRAP_ SUB,FEC_REG)
VALUES(:FRANQ,:TE_CANT,:TE_MONTO,:ENSREG_CANT,:ENS REG_MONTO,:ENSGDE_CANT,:ENSGDE_MONTO,:SAND_CANT,:S AND_MONTO,:POST_CANT,:POST_MONTO,:CREM_CANT,:CREM_ MONTO,:MINIS_CANT,:MINIS_MONTO,:ADC_CANT,:ADC_MONT O,:DESA_CANT,:DESA_MONTO,:WRAP_ENS,:WRAP_SUB,:FEC_ REG);"
y dicha cadena poderla leer desde el bat? alguna idea?

Libras · #2 (**permalink**) 13/02/2013, 13:19

primero puedes modificar el procedure? si es asi puedes poner que los valores del select te los regrese en variables usando output, o que tu procedure retorne una tabla e insertarla dentro de una tabla temporal, o si no dentro del mismo procedure puedes poner tu insert...porque hacerlo desde bat?

JuJoGuAl · #3 (**permalink**) 13/02/2013, 13:46

si claro que puedo modificarle, pues el insert no sera interno es decir el procedure se ejecutara en una maquina local y necesito esos datos insertarlos en una bd montada a la red, por eso neesito el comando para COPIAR y PEGAR, al menos que existan otras opciones

Libras · #4 (**permalink**) 13/02/2013, 13:54

a ok entonces lo que necesitas es hacer un bcp out y despues un bcp in, que es unbcp out es una instruccion que te pone en un archivo de texto el contenido de tu base de datos asi puedes enviar este archivo a la maquina de la red y desde ahi hacer un bcp in(que es meter este archivo a la base de datos), sencillo :)

JuJoGuAl · #5 (**permalink**) 13/02/2013, 13:56

ni idea de como hacer eso q dijiste

JuJoGuAl · #6 (**permalink**) 13/02/2013, 14:09

Te mostrare de donde me estoy guiando, que un amigo hizo:
1- El inserto el procedure dentro de la BD (valery.mdf) (su procedure al final hace un INSERT en una tabla para almacenar temporalmente los datos q necesita).
2- llama al procedure con este bat, y de inmediato selecciona el renglon q inserto, para guardarlo en un SQL con el formato INSERT:
"isql SERVIDOR:"C:\VALERY_POS\datos\valery.mdf" -user 'SYSDBA' -password 'masterkey' -i procedure_numeros.sql
fbexport -Si -H SERVIDOR -D "C:\VALERY_POS\datos\valery.mdf" -P masterkey -Q "select id_franquicia,fact,dev, facturado,devolucion,compras_tienda,compras_kepen, EXTRACT(year FROM fec_reg)||'-'|| EXTRACT(month FROM fec_reg)||'-'|| EXTRACT(day FROM fec_reg) from numeros" -F "numeros.sql"
pause"

procedure_numeros.sql:
"delete from numeros;
commit;
execute procedure generales('2013.01.01','2013.01.31');
commit;
quit;"

lo que yo trato de hacer es lo mismo sin tener que guardar para luego extraer, si no que el procedure me haga un return de una cadena "INSERT INTO..." con los datos q obtubo y meter ese return en un archivo sql, o que el procedure me genere un BACKUP de solo ese registro, pero nose como hacer eso ni desde el procedure ni desde el bat

Libras · #7 (**permalink**) 13/02/2013, 14:14

ocupas un bcp out, busca informacion sobre el comando bcp, lo que quieres hacer es lo mismo pero complicandote las cosas...

saludos!

JuJoGuAl · #8 (**permalink**) 13/02/2013, 14:17

Bueno voy a leer pero si me hechas una ayuda no estaria mal, otra cosa que se me ocurre (dezconoz si se trata de lo mismo) es ver si puedo hacer un BACKUP de la consulta osea que el procedure se ejecute guarde la data y le haga un select y el resultado de dicho select lo exporte...

JuJoGuAl · #9 (**permalink**) 13/02/2013, 15:05

No consigo nada que me ayude

lo poco que entendi tengo q instalar BCP en las maquinas (porque ellas no tienen instalado ningun motor de BD) y eso seria un lio... y de verdad me e enredado con esos datos :(

Libras · #10 (**permalink**) 13/02/2013, 15:43

a ver ya no entendi que necesitas, dices que quieres pasar los datos de una base a otra no?

JuJoGuAl · #11 (**permalink**) 13/02/2013, 15:55

si para ser super especificos de un archivo MDF a phpmyadmin... por eso uso el "SQL MANAGER for InterBase and Firebird puesto que en las pcs donde estan los archivos ".mdf" no hay ningun gestor de bd (x eso nopuedo usar el bcp) entnces estoy tratando de crear un .bat que me jale los datos que necesito para llevarlos a mysql... por eso necesito que el procedure haga un "export" de la data que el mismo esta manejando.