PARAMETER LIST
Publicado por Cristina (3 intervenciones) el 20/04/2005 16:17:36
Quiero pasar parámetros de un form a otro. Al compilar me tira el error
'FRM-40010: No se puede leer la pantalla DEPTEMP.'
Soy nueva en esto, lo que hice fué probar un ejemplo:
Los forms: dept y DEPTEMP ( master/detail form), en dept un botón para invocar a deptemp
En WHEN-BUTTON-PRESSED
DECLARE
pl_id ParamList;
BEGIN
pl_id := Get_Parameter_List('tmpdata');
IF NOT Id_Null(pl_id) THEN
Destroy_Parameter_List( pl_id );
END IF;
pl_id := Create_Parameter_List('tmpdata');
Add_Parameter(pl_id, 'DEPTO', TEXT_PARAMETER, :ID);
Run_Product(FORMS, 'depTEMP', SYNCHRONOUS, RUNTIME,
FILESYSTEM, pl_id, NULL);
END;
En deptemp WHEN-NEW-FORM-INSTANCE
DECLARE
blk_id Block;
BEGIN
blk_id := Find_Block('s_dept');
IF NOT Id_Null(blk_id) THEN
IF (:PARAMETER.depto is not null) THEN
SET_BLOCK_PROPERTY(blk_id,DEFAULT_WHERE,'dept_id=' || :PARAMETER.depto);
GO_BLOCK('s_dept');
EXECUTE_QUERY;
END IF;
END IF;
END;
Gracias
'FRM-40010: No se puede leer la pantalla DEPTEMP.'
Soy nueva en esto, lo que hice fué probar un ejemplo:
Los forms: dept y DEPTEMP ( master/detail form), en dept un botón para invocar a deptemp
En WHEN-BUTTON-PRESSED
DECLARE
pl_id ParamList;
BEGIN
pl_id := Get_Parameter_List('tmpdata');
IF NOT Id_Null(pl_id) THEN
Destroy_Parameter_List( pl_id );
END IF;
pl_id := Create_Parameter_List('tmpdata');
Add_Parameter(pl_id, 'DEPTO', TEXT_PARAMETER, :ID);
Run_Product(FORMS, 'depTEMP', SYNCHRONOUS, RUNTIME,
FILESYSTEM, pl_id, NULL);
END;
En deptemp WHEN-NEW-FORM-INSTANCE
DECLARE
blk_id Block;
BEGIN
blk_id := Find_Block('s_dept');
IF NOT Id_Null(blk_id) THEN
IF (:PARAMETER.depto is not null) THEN
SET_BLOCK_PROPERTY(blk_id,DEFAULT_WHERE,'dept_id=' || :PARAMETER.depto);
GO_BLOCK('s_dept');
EXECUTE_QUERY;
END IF;
END IF;
END;
Gracias
Valora esta pregunta


0