FOR OBLIGA ENTRAR A UN ELSE
Publicado por Henry (1 intervención) el 12/02/2013 21:45:23
Tengo este código
Declare
CURSOR c_Verificar IS
SELECT campo1, campo2, campo3, seccarg, NUM_PEDI, COD_AUTO
FROM CCTVISANET
Where NUM_PEDI is not null
and COD_AUTO is not null;
CURSOR c_VerificarConci IS
SELECT NUM_PED, COD_AUT
FROM TEMPEXCREC
Where NUM_PED is not null
and COD_AUT is not null;
lv_error cctvisanet_canal01_error.COD_ERRO%type;
i NUMBER:=1;
j NUMBER:=1;
BEGIN
FOR X IN c_Verificar
LOOP
FOR Y IN c_VerificarConci
LOOP
If ((ltrim(substr(X.NUM_PEDI,1,13))) = (ltrim(substr(Y.NUM_PED,1,13)))) AND ((ltrim(substr(X.COD_AUTO,1,6))) = (ltrim(substr(Y.COD_AUT,1,6)))) Then
util.aceptar('AL_AC',i);
i:=i+1;
else
lv_error:='87';
Pck_Canales_Alt_V4_DJL.Prc_Registra_Errores(X.campo1,X.campo2,X.seccarg,lv_error,X.NUM_PEDI);
util.aceptar('AL_AC','Guarda '||j);
j:=j+1;
End If;
END LOOP;
END LOOP;
END
PERO ME OBLIGA A ENTRAR AL ELSE SI O SI, NOSE PORQUE, ALGUIEN ME PUEDE AYUDAR, ES PROGRAMACION EN ORACLE FORM
Declare
CURSOR c_Verificar IS
SELECT campo1, campo2, campo3, seccarg, NUM_PEDI, COD_AUTO
FROM CCTVISANET
Where NUM_PEDI is not null
and COD_AUTO is not null;
CURSOR c_VerificarConci IS
SELECT NUM_PED, COD_AUT
FROM TEMPEXCREC
Where NUM_PED is not null
and COD_AUT is not null;
lv_error cctvisanet_canal01_error.COD_ERRO%type;
i NUMBER:=1;
j NUMBER:=1;
BEGIN
FOR X IN c_Verificar
LOOP
FOR Y IN c_VerificarConci
LOOP
If ((ltrim(substr(X.NUM_PEDI,1,13))) = (ltrim(substr(Y.NUM_PED,1,13)))) AND ((ltrim(substr(X.COD_AUTO,1,6))) = (ltrim(substr(Y.COD_AUT,1,6)))) Then
util.aceptar('AL_AC',i);
i:=i+1;
else
lv_error:='87';
Pck_Canales_Alt_V4_DJL.Prc_Registra_Errores(X.campo1,X.campo2,X.seccarg,lv_error,X.NUM_PEDI);
util.aceptar('AL_AC','Guarda '||j);
j:=j+1;
End If;
END LOOP;
END LOOP;
END
PERO ME OBLIGA A ENTRAR AL ELSE SI O SI, NOSE PORQUE, ALGUIEN ME PUEDE AYUDAR, ES PROGRAMACION EN ORACLE FORM
Valora esta pregunta


0