Skip to content

Instantly share code, notes, and snippets.

View mgallego's full-sized avatar

Moises Gallego mgallego

View GitHub Profile
@mgallego
mgallego / ejemplos.sql
Created October 7, 2011 09:56 — forked from Osukaru/ejemplos.sql
tipos de datos
**********
Ejemplo de tipos de datos
**********
CREATE OR REPLACE TYPE pk_licencia AS OBJECT
(
cod_tipo_licencia VARCHAR2(10)
, num_licencia VARCHAR2(8)
, CONSTRUCTOR FUNCTION pk_licencia(licencia VARCHAR2) RETURN SELF AS RESULT
)
INSTANTIABLE FINAL;
CREATE OR REPLACE PACKAGE BODY AEGPA_EP.mod_licencias IS
PROCEDURE entrada (name_array IN OUT OWA.vc_arr,
value_array IN OUT OWA.vc_arr)
IS
submitAction VARCHAR2(255) := pspgen_parameter.get_value(name_array, value_array, 'submitAction');
BEGIN
IF submitAction IS NOT NULL THEN
mod_licencias_validators.entrada(name_array, value_array);
IF pspgen_parameter.get_value(name_array, value_array, '_form_action') IS NOT NULL THEN
CREATE OR REPLACE PACKAGE BODY AEGPA_EP.mod_licencias_test IS
v_numero_test mod_licencias_test_results.numero_test%TYPE;
v_nombre_funcion mod_licencias_test_results.nombre_funcion%TYPE;
v_descripcion_test mod_licencias_test_results.descripcion_test%TYPE;
v_resultado mod_licencias_test_results.resultado%TYPE;
v_resultado_esperado mod_licencias_test_results.resultado_esperado%TYPE;
v_test_ok mod_licencias_test_results.test_ok%TYPE;
PROCEDURE inicializar_test IS
BEGIN