7152-devToTest_2414 #2228
|
|
@ -0,0 +1,52 @@
|
||||||
|
DELIMITER $$
|
||||||
|
CREATE OR REPLACE DEFINER=`root`@`localhost` PROCEDURE `vn`.`balanceNestTree_addChild`(
|
||||||
|
vSelf INT,
|
||||||
|
vName VARCHAR(45)
|
||||||
|
)
|
||||||
|
BEGIN
|
||||||
|
/**
|
||||||
|
* Agrega un nuevo nodo hijo a un nodo existente dentro de la estructura
|
||||||
|
* de árbol de vn.balanceNestTree.
|
||||||
|
*
|
||||||
|
* @param vSelf Identificador del nodo
|
||||||
|
* @param vName Nombre del nuevo nodo hijo
|
||||||
|
*/
|
||||||
|
DECLARE vTable VARCHAR(45) DEFAULT util.quoteIdentifier('balanceNestTree');
|
||||||
|
DECLARE vLeft INT;
|
||||||
|
|
||||||
|
CREATE OR REPLACE TEMPORARY TABLE tAux
|
||||||
|
SELECT 0 lft;
|
||||||
|
|
||||||
|
EXECUTE IMMEDIATE CONCAT(
|
||||||
|
'UPDATE tAux
|
||||||
|
SET lft = (SELECT lft
|
||||||
|
FROM ', vTable,
|
||||||
|
' WHERE id = ?)')
|
||||||
|
USING vSelf;
|
||||||
|
|
||||||
|
SELECT lft INTO vLeft FROM tAux;
|
||||||
|
|
||||||
|
EXECUTE IMMEDIATE CONCAT(
|
||||||
|
'UPDATE ', vTable, '
|
||||||
|
SET rgt = rgt + 2
|
||||||
|
WHERE rgt > ?
|
||||||
|
ORDER BY rgt DESC')
|
||||||
|
USING vLeft;
|
||||||
|
|
||||||
|
EXECUTE IMMEDIATE CONCAT(
|
||||||
|
'UPDATE ', vTable, '
|
||||||
|
SET lft = lft + 2
|
||||||
|
WHERE lft > ?
|
||||||
|
ORDER BY lft DESC')
|
||||||
|
USING vLeft;
|
||||||
|
|
||||||
|
EXECUTE IMMEDIATE CONCAT(
|
||||||
|
'INSERT INTO ', vTable, ' (name, lft, rgt)
|
||||||
|
VALUES(?, ? + 1, ? + 2)')
|
||||||
|
USING vName,
|
||||||
|
vLeft,
|
||||||
|
vLeft;
|
||||||
|
|
||||||
|
DROP TEMPORARY TABLE tAux;
|
||||||
|
END$$
|
||||||
|
DELIMITER ;
|
||||||
|
|
@ -0,0 +1,53 @@
|
||||||
|
DELIMITER $$
|
||||||
|
CREATE OR REPLACE DEFINER=`root`@`localhost` PROCEDURE `vn`.`balanceNestTree_delete`(
|
||||||
|
vSelf INT
|
||||||
|
)
|
||||||
|
BEGIN
|
||||||
|
/**
|
||||||
|
* Elimina un nodo dentro de la estructura de árbol de vn.balanceNestTree.
|
||||||
|
*
|
||||||
|
* @param vSelf Identificador del nodo
|
||||||
|
*/
|
||||||
|
DECLARE vTable VARCHAR(45) DEFAULT util.quoteIdentifier('balanceNestTree');
|
||||||
|
DECLARE vRight INT;
|
||||||
|
DECLARE vLeft INT;
|
||||||
|
DECLARE vWidth INT;
|
||||||
|
|
||||||
|
CREATE OR REPLACE TEMPORARY TABLE tAux
|
||||||
|
SELECT 0 rgt, 0 lft, 0 wdt;
|
||||||
|
|
||||||
|
EXECUTE IMMEDIATE CONCAT(
|
||||||
|
'UPDATE tAux a
|
||||||
|
JOIN ', vTable, ' t
|
||||||
|
SET a.rgt = t.rgt,
|
||||||
|
a.lft = t.lft,
|
||||||
|
a.wdt = t.rgt - t.lft + 1
|
||||||
|
WHERE t.id = ?')
|
||||||
|
USING vSelf;
|
||||||
|
|
||||||
|
SELECT rgt, lft, wdt
|
||||||
|
INTO vRight, vLeft, vWidth
|
||||||
|
FROM tAux;
|
||||||
|
|
||||||
|
EXECUTE IMMEDIATE CONCAT(
|
||||||
|
'DELETE FROM ', vTable,
|
||||||
|
' WHERE lft BETWEEN ? AND ?')
|
||||||
|
USING vLeft, vRight;
|
||||||
|
|
||||||
|
EXECUTE IMMEDIATE CONCAT(
|
||||||
|
'UPDATE ', vTable,
|
||||||
|
' SET rgt = rgt - ?
|
||||||
|
WHERE rgt > ?
|
||||||
|
ORDER BY rgt')
|
||||||
|
USING vWidth,vRight;
|
||||||
|
|
||||||
|
EXECUTE IMMEDIATE CONCAT(
|
||||||
|
'UPDATE ', vTable,
|
||||||
|
' SET lft = lft - ?
|
||||||
|
WHERE lft > ?
|
||||||
|
ORDER BY lft')
|
||||||
|
USING vWidth, vRight;
|
||||||
|
|
||||||
|
DROP TEMPORARY TABLE tAux;
|
||||||
|
END$$
|
||||||
|
DELIMITER ;
|
||||||
|
|
@ -0,0 +1,117 @@
|
||||||
|
DELIMITER $$
|
||||||
|
CREATE OR REPLACE DEFINER=`root`@`localhost` PROCEDURE `vn`.`balanceNestTree_move`(
|
||||||
|
vSelf INT,
|
||||||
|
vFather INT
|
||||||
|
)
|
||||||
|
BEGIN
|
||||||
|
/**
|
||||||
|
* Mueve un nodo dentro de la estructura de árbol de vn.balanceNestTree.
|
||||||
|
*
|
||||||
|
* @param vSelf Identificador del nodo
|
||||||
|
* @param vFather Identificador del nuevo padre del nodo
|
||||||
|
*/
|
||||||
|
DECLARE vTable VARCHAR(45) DEFAULT util.quoteIdentifier('balanceNestTree');
|
||||||
|
DECLARE vRight INT;
|
||||||
|
DECLARE vLeft INT;
|
||||||
|
DECLARE vWidth INT;
|
||||||
|
DECLARE vFatherRight INT;
|
||||||
|
DECLARE vFatherLeft INT;
|
||||||
|
DECLARE vGap INT;
|
||||||
|
|
||||||
|
CREATE OR REPLACE TEMPORARY TABLE tAux
|
||||||
|
SELECT 0 rgt, 0 lft, 0 wdt, 0 frg, 0 flf;
|
||||||
|
|
||||||
|
-- Averiguamos el ancho de la rama
|
||||||
|
EXECUTE IMMEDIATE CONCAT(
|
||||||
|
'UPDATE tAux a
|
||||||
|
JOIN ', vTable, ' t
|
||||||
|
SET a.wdt = t.rgt - t.lft + 1
|
||||||
|
WHERE t.id = ?')
|
||||||
|
USING vSelf;
|
||||||
|
|
||||||
|
-- Averiguamos la posicion del nuevo padre
|
||||||
|
EXECUTE IMMEDIATE CONCAT(
|
||||||
|
'UPDATE tAux a
|
||||||
|
JOIN ', vTable, ' t
|
||||||
|
SET a.frg = t.rgt,
|
||||||
|
a.flf = t.lft
|
||||||
|
WHERE t.id = ?')
|
||||||
|
USING vFather;
|
||||||
|
|
||||||
|
SELECT wdt, frg, flf
|
||||||
|
INTO vWidth, vFatherRight, vFatherLeft
|
||||||
|
FROM tAux;
|
||||||
|
|
||||||
|
-- 1º Incrementamos los valores de todos los nodos a la derecha
|
||||||
|
-- del punto de inserción (vFatherRight) , para hacer sitio
|
||||||
|
EXECUTE IMMEDIATE CONCAT(
|
||||||
|
'UPDATE ', vTable,
|
||||||
|
'SET rgt = rgt + ?
|
||||||
|
WHERE rgt >= ?
|
||||||
|
ORDER BY rgt DESC')
|
||||||
|
USING vWidth,
|
||||||
|
vFatherRight;
|
||||||
|
|
||||||
|
EXECUTE IMMEDIATE CONCAT(
|
||||||
|
'UPDATE ', vTable,
|
||||||
|
'SET lft = lft + ?
|
||||||
|
WHERE lft >= ?
|
||||||
|
ORDER BY lft DESC')
|
||||||
|
USING vWidth,
|
||||||
|
vFatherRight;
|
||||||
|
|
||||||
|
-- Es preciso recalcular los valores del nodo en el
|
||||||
|
-- caso de que estuviera a la derecha del nuevo padre
|
||||||
|
EXECUTE IMMEDIATE CONCAT(
|
||||||
|
'UPDATE tAux a
|
||||||
|
JOIN ', vTable, ' t
|
||||||
|
SET a.rgt = t.rgt,
|
||||||
|
a.lft = t.lft
|
||||||
|
WHERE t.id = ?')
|
||||||
|
USING vSelf;
|
||||||
|
|
||||||
|
SELECT lft, rgt, frg - lft
|
||||||
|
INTO vLeft, vRight, vGap
|
||||||
|
FROM tAux;
|
||||||
|
|
||||||
|
-- 2º Incrementamos el valor de todos los nodos a
|
||||||
|
-- trasladar hasta alcanzar su nueva posicion
|
||||||
|
EXECUTE IMMEDIATE CONCAT(
|
||||||
|
'UPDATE ', vTable,
|
||||||
|
'SET lft = lft + ?
|
||||||
|
WHERE lft BETWEEN ? AND ?
|
||||||
|
ORDER BY lft DESC')
|
||||||
|
USING vGap,
|
||||||
|
vLeft,
|
||||||
|
vRight;
|
||||||
|
|
||||||
|
EXECUTE IMMEDIATE CONCAT(
|
||||||
|
'UPDATE ', vTable,
|
||||||
|
'SET rgt = rgt + ?
|
||||||
|
WHERE rgt BETWEEN ? AND ?
|
||||||
|
ORDER BY rgt DESC')
|
||||||
|
USING vGap,
|
||||||
|
vLeft,
|
||||||
|
vRight;
|
||||||
|
|
||||||
|
-- 3º Restaremos a todos los nodos resultantes, a la derecha
|
||||||
|
-- de la posicion arrancada el ancho de la rama escindida
|
||||||
|
EXECUTE IMMEDIATE CONCAT(
|
||||||
|
'UPDATE ', vTable,
|
||||||
|
'SET lft = lft - ?
|
||||||
|
WHERE lft > ?
|
||||||
|
ORDER BY lft')
|
||||||
|
USING vWidth,
|
||||||
|
vLeft;
|
||||||
|
|
||||||
|
EXECUTE IMMEDIATE CONCAT(
|
||||||
|
'UPDATE ', vTable,
|
||||||
|
'SET rgt = rgt - ?
|
||||||
|
WHERE rgt > ?
|
||||||
|
ORDER BY rgt')
|
||||||
|
USING vWidth,
|
||||||
|
vRight;
|
||||||
|
|
||||||
|
DROP TEMPORARY TABLE tAux;
|
||||||
|
END$$
|
||||||
|
DELIMITER ;
|
||||||
|
|
@ -0,0 +1,84 @@
|
||||||
|
DELIMITER $$
|
||||||
|
CREATE OR REPLACE DEFINER=`root`@`localhost` PROCEDURE `vn`.`payment_add`(
|
||||||
|
vDated DATE,
|
||||||
|
vSupplierFk INT,
|
||||||
|
vAmount DOUBLE,
|
||||||
|
vCurrencyFk INT,
|
||||||
|
vForeignValue DOUBLE,
|
||||||
|
vBankFk INT,
|
||||||
|
vPayMethodFk INT,
|
||||||
|
vExpenseFk DOUBLE,
|
||||||
|
vConcept VARCHAR(40),
|
||||||
|
vCompanyFk INT)
|
||||||
|
BEGIN
|
||||||
|
/**
|
||||||
|
* Registra un pago realizado a un proveedor y
|
||||||
|
* su correspondiente registro en caja.
|
||||||
|
*
|
||||||
|
* @param vDated Fecha del pago
|
||||||
|
* @param vSupplierFk Id del proveedor
|
||||||
|
* @param vAmount Cantidad a pagar
|
||||||
|
* @param vCurrencyFk Id de la moneda
|
||||||
|
* @param vForeignValue Tipo de cambio utilizado
|
||||||
|
* @param vBankFk Id del banco
|
||||||
|
* @param vPayMethodFk Id del método de pago
|
||||||
|
* @param vExpenseFk Id de gasto
|
||||||
|
* @param vConcept Concepto del pago
|
||||||
|
* @param vCompanyFk Id de la empresa
|
||||||
|
* @return paymentFk Id de pago insertado
|
||||||
|
*/
|
||||||
|
INSERT INTO till(
|
||||||
|
concept,
|
||||||
|
serie,
|
||||||
|
`number`,
|
||||||
|
`out`,
|
||||||
|
dated,
|
||||||
|
isAccountable,
|
||||||
|
bankFk,
|
||||||
|
workerFk,
|
||||||
|
companyFk,
|
||||||
|
isConciliate
|
||||||
|
)
|
||||||
|
SELECT CONCAT('n/pago a ', `name`),
|
||||||
|
'R',
|
||||||
|
vSupplierFk,
|
||||||
|
vAmount,
|
||||||
|
vDated,
|
||||||
|
1,
|
||||||
|
vBankFk,
|
||||||
|
account.myUser_getId(),
|
||||||
|
vCompanyFk,
|
||||||
|
1
|
||||||
|
FROM supplier
|
||||||
|
WHERE id = vSupplierFk;
|
||||||
|
|
||||||
|
INSERT INTO payment(
|
||||||
|
received,
|
||||||
|
dueDated,
|
||||||
|
supplierFk,
|
||||||
|
amount,
|
||||||
|
currencyFk,
|
||||||
|
divisa,
|
||||||
|
bankFk,
|
||||||
|
payMethodFk,
|
||||||
|
bankingFees,
|
||||||
|
concept,
|
||||||
|
companyFk
|
||||||
|
)
|
||||||
|
VALUES(
|
||||||
|
vDated,
|
||||||
|
vDated,
|
||||||
|
vSupplierFk,
|
||||||
|
vAmount,
|
||||||
|
vCurrencyFk,
|
||||||
|
IF(NOT vForeignValue, NULL, vForeignValue),
|
||||||
|
vBankFk,
|
||||||
|
vPayMethodFk,
|
||||||
|
vExpenseFk,
|
||||||
|
vConcept,
|
||||||
|
vCompanyFk
|
||||||
|
);
|
||||||
|
|
||||||
|
SELECT LAST_INSERT_ID() paymentFk;
|
||||||
|
END$$
|
||||||
|
DELIMITER ;
|
||||||
|
|
@ -1,48 +0,0 @@
|
||||||
DELIMITER $$
|
|
||||||
CREATE OR REPLACE DEFINER=`root`@`localhost` PROCEDURE `vn2008`.`nest_child_add`(
|
|
||||||
vTable VARCHAR(45)
|
|
||||||
,vChild VARCHAR(45)
|
|
||||||
,vFatherId INT
|
|
||||||
)
|
|
||||||
BEGIN
|
|
||||||
DECLARE vMyLeft INT;
|
|
||||||
|
|
||||||
SET vTable = util.quoteIdentifier(vTable);
|
|
||||||
|
|
||||||
DROP TEMPORARY TABLE IF EXISTS aux;
|
|
||||||
CREATE TEMPORARY TABLE aux
|
|
||||||
SELECT 0 as lft;
|
|
||||||
|
|
||||||
EXECUTE IMMEDIATE CONCAT(
|
|
||||||
'UPDATE aux
|
|
||||||
SET lft = (SELECT lft
|
|
||||||
FROM ', vTable,
|
|
||||||
' WHERE id = ?)')
|
|
||||||
USING vFatherId;
|
|
||||||
|
|
||||||
SELECT lft INTO vMyLeft FROM aux;
|
|
||||||
DROP TEMPORARY TABLE aux;
|
|
||||||
|
|
||||||
EXECUTE IMMEDIATE CONCAT(
|
|
||||||
'UPDATE ', vTable, '
|
|
||||||
SET rgt = rgt + 2
|
|
||||||
WHERE rgt > ?
|
|
||||||
ORDER BY rgt DESC')
|
|
||||||
USING vMyLeft;
|
|
||||||
|
|
||||||
EXECUTE IMMEDIATE CONCAT(
|
|
||||||
'UPDATE ', vTable, '
|
|
||||||
SET lft = lft + 2
|
|
||||||
WHERE lft > ?
|
|
||||||
ORDER BY lft DESC')
|
|
||||||
USING vMyLeft;
|
|
||||||
|
|
||||||
EXECUTE IMMEDIATE CONCAT(
|
|
||||||
'INSERT INTO ', vTable, ' (name, lft, rgt)
|
|
||||||
VALUES(?, ? + 1, ? + 2)')
|
|
||||||
USING vChild,
|
|
||||||
vMyLeft,
|
|
||||||
vMyLeft;
|
|
||||||
|
|
||||||
END$$
|
|
||||||
DELIMITER ;
|
|
||||||
|
|
@ -1,51 +0,0 @@
|
||||||
DELIMITER $$
|
|
||||||
CREATE OR REPLACE DEFINER=`root`@`localhost` PROCEDURE `vn2008`.`nest_delete`(
|
|
||||||
vTable VARCHAR(45)
|
|
||||||
,vNodeId INT
|
|
||||||
)
|
|
||||||
BEGIN
|
|
||||||
DECLARE vMyRight INT;
|
|
||||||
DECLARE vMyLeft INT;
|
|
||||||
DECLARE vMyWidth INT;
|
|
||||||
|
|
||||||
DROP TEMPORARY TABLE IF EXISTS aux;
|
|
||||||
CREATE TEMPORARY TABLE aux
|
|
||||||
SELECT 0 rgt, 0 lft, 0 wdt;
|
|
||||||
|
|
||||||
SET vTable = util.quoteIdentifier(vTable);
|
|
||||||
|
|
||||||
EXECUTE IMMEDIATE CONCAT(
|
|
||||||
'UPDATE aux a
|
|
||||||
JOIN ', vTable, ' t
|
|
||||||
SET a.rgt = t.rgt,
|
|
||||||
a.lft = t.lft,
|
|
||||||
a.wdt = t.rgt - t.lft + 1
|
|
||||||
WHERE t.id = ?')
|
|
||||||
USING vNodeId;
|
|
||||||
|
|
||||||
SELECT rgt, lft, wdt
|
|
||||||
INTO vMyRight, vMyLeft, vMyWidth
|
|
||||||
FROM aux;
|
|
||||||
|
|
||||||
DROP TEMPORARY TABLE aux;
|
|
||||||
|
|
||||||
EXECUTE IMMEDIATE CONCAT(
|
|
||||||
'DELETE FROM ', vTable,
|
|
||||||
' WHERE lft BETWEEN ? AND ?')
|
|
||||||
USING vMyLeft, vMyRight;
|
|
||||||
|
|
||||||
EXECUTE IMMEDIATE CONCAT(
|
|
||||||
'UPDATE ', vTable,
|
|
||||||
' SET rgt = rgt - ?
|
|
||||||
WHERE rgt > ?
|
|
||||||
ORDER BY rgt')
|
|
||||||
USING vMyWidth,vMyRight;
|
|
||||||
|
|
||||||
EXECUTE IMMEDIATE CONCAT(
|
|
||||||
'UPDATE ', vTable,
|
|
||||||
' SET lft = lft - ?
|
|
||||||
WHERE lft > ?
|
|
||||||
ORDER BY lft')
|
|
||||||
USING vMyWidth, vMyRight;
|
|
||||||
END$$
|
|
||||||
DELIMITER ;
|
|
||||||
|
|
@ -1,108 +0,0 @@
|
||||||
DELIMITER $$
|
|
||||||
CREATE OR REPLACE DEFINER=`root`@`localhost` PROCEDURE `vn2008`.`nest_move`(
|
|
||||||
vTable VARCHAR(45)
|
|
||||||
,idNODE INT
|
|
||||||
,idFATHER INT
|
|
||||||
)
|
|
||||||
BEGIN
|
|
||||||
DECLARE myRight INT;
|
|
||||||
DECLARE myLeft INT;
|
|
||||||
DECLARE myWidth INT;
|
|
||||||
DECLARE fatherRight INT;
|
|
||||||
DECLARE fatherLeft INT;
|
|
||||||
DECLARE gap INT;
|
|
||||||
|
|
||||||
SET vTable = util.quoteIdentifier(vTable);
|
|
||||||
|
|
||||||
DROP TEMPORARY TABLE IF EXISTS aux;
|
|
||||||
CREATE TEMPORARY TABLE aux
|
|
||||||
SELECT 0 as rgt, 0 as lft, 0 as wdt, 0 as frg, 0 as flf;
|
|
||||||
|
|
||||||
-- Averiguamos el ancho de la rama
|
|
||||||
EXECUTE IMMEDIATE CONCAT(
|
|
||||||
'UPDATE aux a
|
|
||||||
JOIN ', vTable, ' t
|
|
||||||
SET a.wdt = t.rgt - t.lft + 1
|
|
||||||
WHERE t.id = ?')
|
|
||||||
USING idNODE;
|
|
||||||
|
|
||||||
-- Averiguamos la posicion del nuevo padre
|
|
||||||
EXECUTE IMMEDIATE CONCAT(
|
|
||||||
'UPDATE aux a
|
|
||||||
JOIN ', vTable, ' t
|
|
||||||
SET a.frg = t.rgt,
|
|
||||||
a.flf = t.lft
|
|
||||||
WHERE t.id = ?')
|
|
||||||
USING idFATHER;
|
|
||||||
|
|
||||||
SELECT wdt, frg, flf INTO myWidth, fatherRight, fatherLeft
|
|
||||||
FROM aux;
|
|
||||||
|
|
||||||
-- 1º Incrementamos los valores de todos los nodos a la derecha del punto de inserción (fatherRight) , para hacer sitio
|
|
||||||
EXECUTE IMMEDIATE CONCAT(
|
|
||||||
'UPDATE ', vTable,
|
|
||||||
'SET rgt = rgt + ?
|
|
||||||
WHERE rgt >= ?
|
|
||||||
ORDER BY rgt DESC')
|
|
||||||
USING myWidth,
|
|
||||||
fatherRight;
|
|
||||||
|
|
||||||
EXECUTE IMMEDIATE CONCAT(
|
|
||||||
'UPDATE ', vTable,
|
|
||||||
'SET lft = lft + ?
|
|
||||||
WHERE lft >= ?
|
|
||||||
ORDER BY lft DESC')
|
|
||||||
USING myWidth,
|
|
||||||
fatherRight;
|
|
||||||
|
|
||||||
-- Es preciso recalcular los valores del nodo en el caso de que estuviera a la derecha del nuevo padre
|
|
||||||
EXECUTE IMMEDIATE CONCAT(
|
|
||||||
'UPDATE aux a
|
|
||||||
JOIN ', vTable, ' t
|
|
||||||
SET a.rgt = t.rgt,
|
|
||||||
a.lft = t.lft
|
|
||||||
WHERE t.id = ?')
|
|
||||||
USING idNODE;
|
|
||||||
|
|
||||||
SELECT lft, rgt, frg - lft INTO myLeft, myRight, gap
|
|
||||||
FROM aux;
|
|
||||||
|
|
||||||
-- 2º Incrementamos el valor de todos los nodos a trasladar hasta alcanzar su nueva posicion
|
|
||||||
EXECUTE IMMEDIATE CONCAT(
|
|
||||||
'UPDATE ', vTable,
|
|
||||||
'SET lft = lft + ?
|
|
||||||
WHERE lft BETWEEN ? AND ?
|
|
||||||
ORDER BY lft DESC')
|
|
||||||
USING gap,
|
|
||||||
myLeft,
|
|
||||||
myRight;
|
|
||||||
|
|
||||||
EXECUTE IMMEDIATE CONCAT(
|
|
||||||
'UPDATE ', vTable,
|
|
||||||
'SET rgt = rgt + ?
|
|
||||||
WHERE rgt BETWEEN ? AND ?
|
|
||||||
ORDER BY rgt DESC')
|
|
||||||
USING gap,
|
|
||||||
myLeft,
|
|
||||||
myRight;
|
|
||||||
|
|
||||||
-- 3º Restaremos a todos los nodos resultantes, a la derecha de la posicion arrancada el ancho de la rama escindida
|
|
||||||
EXECUTE IMMEDIATE CONCAT(
|
|
||||||
'UPDATE ', vTable,
|
|
||||||
'SET lft = lft - ?
|
|
||||||
WHERE lft > ?
|
|
||||||
ORDER BY lft')
|
|
||||||
USING myWidth,
|
|
||||||
myLeft;
|
|
||||||
|
|
||||||
EXECUTE IMMEDIATE CONCAT(
|
|
||||||
'UPDATE ', vTable,
|
|
||||||
'SET rgt = rgt - ?
|
|
||||||
WHERE rgt > ?
|
|
||||||
ORDER BY rgt')
|
|
||||||
USING myWidth,
|
|
||||||
myRight;
|
|
||||||
|
|
||||||
DROP TEMPORARY TABLE aux;
|
|
||||||
END$$
|
|
||||||
DELIMITER ;
|
|
||||||
|
|
@ -1,67 +0,0 @@
|
||||||
DELIMITER $$
|
|
||||||
CREATE OR REPLACE DEFINER=`root`@`localhost` PROCEDURE `vn2008`.`pay`(IN datFEC DATE
|
|
||||||
, IN idPROV INT
|
|
||||||
, IN dblIMPORTE DOUBLE
|
|
||||||
, IN idMONEDA INT
|
|
||||||
, IN dblDIVISA DOUBLE
|
|
||||||
, IN idCAJA INT
|
|
||||||
, IN idPAYMET INT
|
|
||||||
, IN dblGASTOS DOUBLE
|
|
||||||
, IN strCONCEPTO VARCHAR(40)
|
|
||||||
, IN idEMP INT)
|
|
||||||
BEGIN
|
|
||||||
|
|
||||||
-- Registro en la tabla Cajas
|
|
||||||
INSERT INTO Cajas ( Concepto
|
|
||||||
, Serie
|
|
||||||
, Numero
|
|
||||||
, Salida
|
|
||||||
, Cajafecha
|
|
||||||
, Partida
|
|
||||||
, Id_Banco
|
|
||||||
, Id_Trabajador
|
|
||||||
,empresa_id
|
|
||||||
,conciliado)
|
|
||||||
|
|
||||||
SELECT CONCAT('n/pago a ', Proveedor)
|
|
||||||
, 'R'
|
|
||||||
, idPROV
|
|
||||||
, dblIMPORTE
|
|
||||||
, datFEC
|
|
||||||
, 1
|
|
||||||
, idCAJA
|
|
||||||
, account.myUser_getId()
|
|
||||||
, idEMP
|
|
||||||
, 1
|
|
||||||
FROM Proveedores
|
|
||||||
WHERE Id_Proveedor = idPROV;
|
|
||||||
|
|
||||||
-- Registro en la tabla pago
|
|
||||||
INSERT INTO pago(fecha
|
|
||||||
, dueDated
|
|
||||||
, id_proveedor
|
|
||||||
, importe
|
|
||||||
, id_moneda
|
|
||||||
, divisa
|
|
||||||
, id_banco
|
|
||||||
, pay_met_id
|
|
||||||
, g_bancarios
|
|
||||||
, concepte
|
|
||||||
, empresa_id)
|
|
||||||
|
|
||||||
VALUES(datFEC
|
|
||||||
, datFEC
|
|
||||||
, idPROV
|
|
||||||
, dblIMPORTE
|
|
||||||
, idMONEDA
|
|
||||||
, IF(dblDIVISA = 0, NULL, dblDIVISA)
|
|
||||||
, idCAJA
|
|
||||||
, idPAYMET
|
|
||||||
, dblGASTOS
|
|
||||||
, strCONCEPTO
|
|
||||||
, idEMP);
|
|
||||||
|
|
||||||
SELECT LAST_INSERT_ID() as pago_id;
|
|
||||||
|
|
||||||
END$$
|
|
||||||
DELIMITER ;
|
|
||||||
|
|
@ -0,0 +1,31 @@
|
||||||
|
DELIMITER $$
|
||||||
|
CREATE OR REPLACE DEFINER=`root`@`localhost` PROCEDURE `vn`.`balanceNestTree_addChild`()
|
||||||
|
BEGIN
|
||||||
|
SELECT 1;
|
||||||
|
END$$
|
||||||
|
DELIMITER ;
|
||||||
|
GRANT EXECUTE ON PROCEDURE vn.balanceNestTree_addChild TO adminBoss;
|
||||||
|
|
||||||
|
DELIMITER $$
|
||||||
|
CREATE OR REPLACE DEFINER=`root`@`localhost` PROCEDURE `vn`.`balanceNestTree_delete`()
|
||||||
|
BEGIN
|
||||||
|
SELECT 1;
|
||||||
|
END$$
|
||||||
|
DELIMITER ;
|
||||||
|
GRANT EXECUTE ON PROCEDURE vn.balanceNestTree_delete TO adminBoss;
|
||||||
|
|
||||||
|
DELIMITER $$
|
||||||
|
CREATE OR REPLACE DEFINER=`root`@`localhost` PROCEDURE `vn`.`balanceNestTree_move`()
|
||||||
|
BEGIN
|
||||||
|
SELECT 1;
|
||||||
|
END$$
|
||||||
|
DELIMITER ;
|
||||||
|
GRANT EXECUTE ON PROCEDURE vn.balanceNestTree_move TO adminBoss;
|
||||||
|
|
||||||
|
DELIMITER $$
|
||||||
|
CREATE OR REPLACE DEFINER=`root`@`localhost` PROCEDURE `vn`.`payment_add`()
|
||||||
|
BEGIN
|
||||||
|
SELECT 1;
|
||||||
|
END$$
|
||||||
|
DELIMITER ;
|
||||||
|
GRANT EXECUTE ON PROCEDURE vn.payment_add TO financial;
|
||||||
Loading…
Reference in New Issue