Consulta para inserción
Publicado por Luis De Araujo (1 intervención) el 11/12/2015 15:52:12
Buen día,
Tengo el siguiente inconveniente:
Estoy creando un nuevo registro. al momento de cargar el nombre tengo una validación en la que al cambiar de campo ejecuto un cursor para que me traiga unos valores que deben aparecer en pantalla, sin embargo me arroja el último valor del cursor.
Agradecería muchísimo la ayuda de alguien.
Tengo el siguiente inconveniente:
Estoy creando un nuevo registro. al momento de cargar el nombre tengo una validación en la que al cambiar de campo ejecuto un cursor para que me traiga unos valores que deben aparecer en pantalla, sin embargo me arroja el último valor del cursor.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
WHEN-VALIDATE-ITEM
DECLARE
v_direccion number;
CURSOR CUR_COD_PRD IS
SELECT P_PEN_PRD.COD_C_PRD, C_PRD.NOM
FROM P_PEN_PRD, C_PRDWHERE C_PRD.COD = P_PEN_PRD.COD_C_PRD
AND (P_PEN_PRD.COD_P_CLIENTE=:P_PEN.COD_P_CLIENTE)
AND (P_PEN_PRD.COD_P_PEN IN (SELECT MIN(COD)
FROM P_PEN
WHERE COD_P_CLIENTE = :P_PEN.COD_P_CLIENTE))
order by C_PRD.NOM;BEGIN
SELECT SEC_G_DIRECCION
INTO V_DIRECCION
FROM P_PEN
WHERE COD_P_CLIENTE = :P_PEN.COD_P_CLIENTE
AND COD IN (SELECT MIN(COD)
FROM P_PEN
WHERE COD_P_CLIENTE = :P_PEN.COD_P_CLIENTE);
if :p_pen.nom is not null
then
if :p_pen_prd.nom_c_prd is null
then
/*Se recorre el cursor de CUR_COD_PRD*/for T_COD_PRD in CUR_COD_PRD loop
:p_pen_prd.cod_c_prd := t_cod_prd.cod_c_prd;
:p_pen_prd.nom_c_prd := T_COD_PRD.NOM;
end loop;
end if;
end if;
END;
Agradecería muchísimo la ayuda de alguien.
Valora esta pregunta
0
