Modificar Record Group en tiempo de ejecucion
Publicado por Hernán (2 intervenciones) el 12/02/2009 19:54:37
Saludo a todos
Soy nuevo trabajando con oracle y tengo este problema
Debo tener dos LIst item uno con nombres de proyecto y el segundo con los suproyectos.
el problemas es que no logro que cuando cambie el nombre de proyecto automaticamente se modifique el list item de Subproyectos
Estoy utilizando este codigo para intentar generarlo:
DECLARE
RG_NAME VARCHAR2(40):='SUBPROYECTOS';
RG_ID RECORDGROUP;
IT ITEM;
the_rowcount NUMBER;
status NUMBER;
BEGIN
IT:=FIND_ITEM('REGISTRO.TXTSUBPROYECTO');
RG_ID:=CREATE_GROUP_FROM_QUERY(RG_NAME,'SELECT NOMBRE_SUBPRO,COD_SUBPRO FROM SUBPROYECTOS WHERE COD_PRO='||:REGISTRO.NOMBRE_PRO);
status:=Populate_Group(RG_ID);
IF status=0 THEN
the_rowcount := Get_Group_Row_Count( RG_ID );
Message('Existen '||to_CHAR(the_rowcount)||'Subproyectos');
Clear_List(IT);
POPULATE_LIST(IT,RG_NAME);
ELSE
message('Error creando la consulta en record group');
RAISE Form_trigger_Failure;
END IF;
END;
pero solo funciona la primera vez, cuando intento volver a cambiar el proyecto me manda este error: "FRM-41072: Cannot create Group SUBPROYECTOS"
Soy nuevo trabajando con oracle y tengo este problema
Debo tener dos LIst item uno con nombres de proyecto y el segundo con los suproyectos.
el problemas es que no logro que cuando cambie el nombre de proyecto automaticamente se modifique el list item de Subproyectos
Estoy utilizando este codigo para intentar generarlo:
DECLARE
RG_NAME VARCHAR2(40):='SUBPROYECTOS';
RG_ID RECORDGROUP;
IT ITEM;
the_rowcount NUMBER;
status NUMBER;
BEGIN
IT:=FIND_ITEM('REGISTRO.TXTSUBPROYECTO');
RG_ID:=CREATE_GROUP_FROM_QUERY(RG_NAME,'SELECT NOMBRE_SUBPRO,COD_SUBPRO FROM SUBPROYECTOS WHERE COD_PRO='||:REGISTRO.NOMBRE_PRO);
status:=Populate_Group(RG_ID);
IF status=0 THEN
the_rowcount := Get_Group_Row_Count( RG_ID );
Message('Existen '||to_CHAR(the_rowcount)||'Subproyectos');
Clear_List(IT);
POPULATE_LIST(IT,RG_NAME);
ELSE
message('Error creando la consulta en record group');
RAISE Form_trigger_Failure;
END IF;
END;
pero solo funciona la primera vez, cuando intento volver a cambiar el proyecto me manda este error: "FRM-41072: Cannot create Group SUBPROYECTOS"
Valora esta pregunta


0