CREATE OR REPLACE PROCEDURE insertar_tablon(anuncio VARCHAR2, enviar VARCHAR2) AS
usuario VARCHAR2(10);
var_anuncio VARCHAR2(512);
fecha_inicio DATE;
fecha_fin DATE;

BEGIN
var_anuncio:=anuncio;
usuario := wwctx_api.get_user;
IF var_anuncio IS NULL OR USUARIO = 'PUBLIC' THEN
form_tablon;
ELSE
usuario := wwctx_api.get_user;
fecha_inicio:= TO_DATE(SYSDATE,'dd/mm/yy');
fecha_fin:= TO_DATE(SYSDATE,'dd/mm/yy')+30;

INSERT INTO tablon VALUES(usuario,fecha_inicio,fecha_fin,var_anuncio);
muestra_tablon;
END IF;


EXCEPTION
 WHEN OTHERS THEN
  NULL;
END;
/