gracias hasta donde recuerdo si pase por presentaciones cuando abri la cuenta en este foro.
Este es el codigo del TN, basicamente le he borrado algo para no hacerlo tan grande pero que no influye en el paso que me esta quedando pendiente. Espero se comprenda,. No soy programador como tal, pero si he realizado querys y TN variados. Gracias
CREATE PROCEDURE “SBO_SP_TransactionNotification_VE_OFERTA_DE_VENTAS”
(
in object_type nvarchar(20), – SBO Object Type
in transaction_type nchar(1), – [A]dd, [U]pdate, [D]elete, [C]ancel, C[L]ose
in num_of_cols_in_key int,
in list_of_key_cols_tab_del nvarchar(255),
in list_of_cols_val_tab_del nvarchar(255),
out error integer,
out error_message varchar(255)
)
LANGUAGE SQLSCRIPT
AS
Ingresadopor nvarchar(10);
EstadoCoti varchar;
NoVenta nvarchar(100);
Begin
DECLARE EXIT HANDLER FOR SQLEXCEPTION --Error SQL
BEGIN --Accion a realizar si de produce un error SQL
error := ::SQL_ERROR_CODE;
error_message := 'Error SQL: ’ || ::SQL_ERROR_MESSAGE;
END;
error := 0;
error_message := N’Ok’;
– Query General
select T0.“U_Empl_Ingr”
,T0.“DocStatus”
,T0.“U_Denegada”
into
Ingresadopor
,EstadoCoti
,NoVenta
from OQUT T0
Inner Join OCRD T1 On T0.“CardCode”=T1.“CardCode” —DM Socios de Negocios
Inner Join OCRG T2 On T1.“GroupCode”=T2.“GroupCode” --Grupos de SN
Inner Join NNM1 T3 On T0.“Series”=T3.“Series” --Series de Numeración
where T0.“DocEntry” = :list_of_cols_val_tab_del;
/*** VALIDACIONES PARA OFERTA DE VENTAS" ***/
if ifnull(:Ingresadopor,’’) = ‘’
and :error=0
then
error := 12002;
error_message := ‘Ingrese iniciales de Usuario. UBICACION = Campos definidos por el Usuario.’;
end if;
/*** VALIDACIONES A NIVEL DE DETALLE ADICIONALES GLOBALES /
IF :transaction_type <> ‘A’ THEN
** if :EstadoCoti = ‘C’ and ifnull(:NoVenta,’-’)=’-’ and :error =0 then
** error := 12003;*
** error_message :=‘Ingrese el motivo de la no aprobacion en esta cotizacion. Campos definidos por el usuario’;**
** end if;**
End if;
end;