Procedimientos Almacenados en SAP Business One – Parte 4

Post-Transaction Notification (PTN)

Este procedimiento almacenado es ejecutado por SAP B1 luego de cada transacción de alta, baja, modificación, cancelación o cierre de un registro o una operación.

Dentro de este procedimiento podremos incluir sentencias SQL para realizar diferentes acciones que se ejecutaran posteriormente a la transacción ocurrida.

Las posibilidades de acciones no son muchas, solamente se utiliza en casos específicos y adaptándose a las reglas de seguridad de SAP (No se puede realizar INSERTS o UPDATES a tablas o campos del sistema), algunos ejemplos claros de la utilización del PTN:

• Realizar un update en un campo de usuarios luego de que termina una transacción.
• Realizar un Insert a una tabla de usuarios luego de finalizada una transacción.

El PTN utiliza los mismos parámetros y las mismas variables que el TN.

El procedimiento PTN estándar de SAP Business ONE es el siguiente:

PTN – Ejemplos

• Ejemplo 1: Actualiza un campo de usuarios de los asientos luego de registrar una factura de proveedores.

IF ((:object_type = ’18’) AND (:transaction_type = ‘A’)) THEN

–obtengo el Nro de asiento.

SELECT (SELECT “TransId” FROM OPCH WHERE “DocEntry” = :list_of_cols_val_tab_deL) INTO TransId FROM DUMMY;

SELECT (SELECT “Number” FROM OJDT WHERE “TransId” = :TransId and “CreatedBy” = :list_of_cols_val_tab_deL Order By “Number” desc) INTO Number FROM DUMMY;

–obtengo y guardo en una variable el campo a insertar en el asiento.

SELECT (SELECT “CardCode” FROM OPCH WHERE “DocEntry” = :list_of_cols_val_tab_deL) INTO BPCode FROM DUMMY;

–Hago el UPDATE

UPDATE T0 SET T0.”U_BPCode” = :BPCode FROM JDT1 T0 INNER JOIN OJDT T1 ON T0.”TransId” = T1.”TransId” WHERE T1.”Number” = :Number and T0.”Account” IN (SELECT TX.”AcctCode” FROM OACT TX WHERE TX.”U_CardType” <> ‘NP’);

END IF;

• Ejemplo 2: Inserta el código y nombre de un Interlocutor Comercial en una tabla de usuario luego de crearlo.

IF ((:object_type = ‘2’) AND (:transaction_type = ‘A’)) THEN

–obtengo los datos del cliente.

SELECT (SELECT “CardCode” FROM OCRD WHERE “CardCode” = :list_of_cols_val_tab_deL) INTO CardCode FROM DUMMY;

SELECT (SELECT “CardName” FROM OCRD WHERE “CardCode” = :list_of_cols_val_tab_deL) INTO CardName FROM DUMMY;

–obtengo el ultimo código de la tabla +1

SELECT (SELECT MAX(“Code”)+1 FROM “@NIN_OBJ_AUTO”) INTO Code FROM DUMMY;

–Hago el INSERT

INSERT INTO “@NIN_OBJ_AUTO” (“Code”,”Name”,”U_CardCode”, “U_CardName”) VALUES (:Code,:CardName,:CardCode,:CardName);

END IF;