 | ||||
| Flexibilidad en cada columna. |
 |
| La etiquetas del reporte también son edita bles desde esta pantalla |
 |
| Son 33 columnas para el nivel Proyecto |
 |
| Y esto se puede configurar tanto para el nivel proyecto como para tarea y Recursos. |
BEGIN
FND_GLOBAL.APPS_INITIALIZE(1117,50719,275);
/*FND_GLOBAL.APPS_INITIALIZE(user_id,resp_id,resp_appl_id);*/
MO_GLOBAL.init('PA');
/*MO_GLOBAL.init(application short name);*/
pa_budget_utils.set_entry_level_code('A');
pa_security.SET_VALUE('ALLOW_QUERY','Y');
APPS.PA_STATUS.pa_status_driver(38,NULL
,NULL,NULL,'AC','AR'
,TRUNC(SYSDATE,'MM'),LAST_DAY(SYSDATE),1);
/*PROCEDURE pa_status_driver (
x_project_id =>Id Proyecto
, x_task_id => Id tarea
, x_resource_list_id => Id lista de recursos
, x_resource_list_member_id => id miembro
, x_cost_budget_code =>codigo del tipo de presuspuesto de costos
, x_rev_budget_code IN => codigo del tipo de presupuesto de Ingresos
, x_start_date IN DATE =>Fecha inicial de periodo a analizar
, x_end_date IN DATE =>Fecha final de periodo a finalizar
, x_factor IN NUMBER=>Factor entre el que se dividirán las operaciones
);
*/
END;
/
Select datos
Into variables
from tabla
Dentro de las mas grandes bendiciones/maldiciones que existen en pl/sql esta esta bendita/maldita sentencia, porque se preguntaran?, bueno pues resulta de que cuando te enseñan esta sentencia, debería venir de la mano con un manual de por que deberías evitar utilizarla, a que me refiero:
begin
Select datos
Into variables
from tabla
exceptions
when no_data_found then
/*lo que quieras hacer cuando no encuentre datos*/
when too_many_rows
/*lo que quieras hacer cuando encuentre mas de un registro */
end;
drop sequence my_seq;
create sequence my_seq
start with 1234
nocache
order;
/
EL siguiente procedimiento de pl se encarga de realizar el truco mas cómodamente :
CREATE OR REPLACE PROCEDURE XXX_RESET_SEQUENCE (
PS_SEQ_NAME IN VARCHAR2, P_STARTVALUE IN NUMBER) AS
LN_VAL NUMBER (30);
MIN_VAL NUMBER (30);
LS_BUFF VARCHAR2(25);
LS_CYCLE_FLAG VARCHAR2(25);
BEGIN
SELECT CYCLE_FLAG
INTO LS_CYCLE_FLAG FROM USER_SEQUENCES
WHERE SEQUENCE_NAME =PS_SEQ_NAME;
EXECUTE IMMEDIATE 'SELECT ' PS_SEQ_NAME '.NEXTVAL FROM dual'INTO LN_VAL;
LN_VAL := -1*(LN_VAL - P_STARTVALUE 1);
EXECUTE IMMEDIATE 'ALTER SEQUENCE ' PS_SEQ_NAME' MINVALUE 0';
LS_BUFF := ' INCREMENT BY ';
EXECUTE IMMEDIATE 'ALTER SEQUENCE ' PS_SEQ_NAME LS_BUFF LN_VAL;
EXECUTE IMMEDIATE 'SELECT ' PS_SEQ_NAME '.NEXTVAL FROM dual'
INTO LN_VAL;
EXECUTE IMMEDIATE 'ALTER SEQUENCE ' PS_SEQ_NAME ' INCREMENT BY 1';
END XXX_RESET_SEQUENCE;
/
Y de la siguiente manera se cambiaria el valor de la secuencia;
BEGIN
XXX_RESET_SEQUENCE('MY_SEQ',2);
END;
/
Ventajas y Desventajas
Drop:
Ventaja puede iniciar desde 0(cero), es directo.
Desventaja, al hacer drop del objeto se invalidan todas las dependencias de este.
Procedimiento:
Desventaja: No me permitió iniciar en 0(cero) el valor más bajo al que llego es 1.
Ventaja: No requiere recompilación de dependencias.
Espero que les sea útil.
Navegando por Internet de lo que uno se entera y hoy me toco toparme con los Plug-Ins para APEX, Que es esto?
Pues muchas veces en vez de desarrollar una complicada herramienta para nuestro sistema, debemos darnos la oportunidad de revisar si lo que queremos hacer ya lo hizo alguien mas y es ahí donde entran los plugins que oracle ya a liberado muchas herramientas para que tus aplicaciones sean aun mas completas con un par de clics extra, por ejemplo:
Agregarle el Boton Me gusta de Facebook , cambiar tu estatus en tweeter o agregar la funcionalidad del captcha de google a tu aplicación.
En el siguiente link encontraran una lista de los Plug-Ins que Oracle recomienda, así como los links a el repositorio de Plug-Ins:
Sitio Oficial de Plug-Ins APEX
Espero les sean de utilidad.
Existen ocasiones donde nos encontramos con bugs dentro de nuestros programas y no podemos mostrar la salida de nuestro programa para ir dándonos una idea de donde ocurre el error, para ese tipo de situaciones Oracle nos brinda herramientas como el trace y a este aplicarle el famoso tkprof sin embargo no siempre tenemos a la mano el acceso al servidor por shell o simplemente no tenemos a un dba de cabecera ( yo sigo sin tener el mio y eso que en este proyecto hay 2 ) bueno pues para estas ocaciones lo que yo uso normalmente es un procedimiento que escribe en una tabla y me va dejando una pista te lo que ocurre en mi código.
El script de instalación es el siguiente:
CREATE SEQUENCE XXX_DEBUG_S;
CREATE TABLE "XXX_DEBUG_TAB"
( "ID" NUMBER,
"IDENTIFIER" VARCHAR2(50),
"CHAR_TIME" VARCHAR2(50),
"TEXT" VARCHAR2(4000) );
CREATE OR REPLACE PROCEDURE "XXX_DEBUG_TXT" (pIdentifier In Varchar2, pText In Varchar2) Is pragma autonomous_transaction;
Begin Insert into XXX_debug_tab
(id, identifier, char_time, text)
values
(XXX_DEBUG_S.nextval, pIdentifier, to_char(SYSTIMESTAMP, 'DD/MM/YYYY HH24:MI:SS FF6'), pText);
commit;
End; /
Ahora y esto para que nos sirve, pues es muy sencillo el procedimiento de arriba se encarga de insertar a una tabla cada ves que lo llaman, algo asi:
begin
XXX_DEBUG_TXT('DEPURA','AQUI ESTOY:'||VAR1);
end;
Que tiene esto de practico? Pues que lo puedes meter en cualquier parte de tu código y no altera tu procesamiento natural, ya que al utilizar la sentencia "pragma autonomous_transaction" este procedimiento se ejecuta dentro de una sesión diferente y su commit no afecta tu programa natural permitiendo que tu transacción continúe como si nada hubiese pasado y tu puedes seguir monitoreando desde otra sesión.
Y si ocurre algun error tu puedes ir guardando tus variables o datos que te puedan ayudar a identificar los bugs de tus programas o aquellos programas que te toque revisar.
Espero les sea útil y felices compilaciones ¡¡¡
