procedure get_ubigeo (p_id in varchar2 default null,
p_level in varchar2 default null)
is
l_contador integer;
cursor c is
select
DISTINCT
SUBSTR(codigo,1,2) codigo,
substr(descripcion, instr(descripcion,'/', instr(descripcion,'/',-1))+1,
LENGTH(DESCRIPCION) ) descripcion
from ubigeo;
cursor d (p_codigo varchar2)
is
select
distinct
SUBSTR(codigo,1,4) codigo,
substr(descripcion,
instr(descripcion,'/',1) +1 , (instr(descripcion,'/', instr(descripcion,'/',1)+1) ) - (instr(descripcion,'/',1) +1)) descripcion
from ubigeo
where
SUBSTR(codigo,1,2) like p_codigo;
cursor e (p_codigo varchar2) is
select codigo,
substr(descripcion ,1,(instr(descripcion,'/',1) -1)) descripcion
from ubigeo
where
SUBSTR(codigo,1,4) like p_codigo;
l_retorno varchar2(4000);
BEGIN
if p_id is null and p_level is null then
htp.p(' --->>Sin Informacion Disponible<<'); return;
end if;
case p_level
when '1' then
select count(*) into l_contador
from (select
DISTINCT
SUBSTR(codigo,1,2) codigo,
substr(descripcion, instr(descripcion,'/', instr(descripcion,'/',-1))+1, LENGTH(DESCRIPCION) )
descripcion
from ubigeo);
l_retorno := lpad(l_contador,5,'0');
for cc in c loop
l_retorno := l_retorno ||'---'|| cc.codigo ||'---'|| cc.descripcion;
end loop;
when '2' then
select count(*) into l_contador
from
(select
DISTINCT
SUBSTR(codigo,1,4) codigo,
substr(descripcion, instr(descripcion,'/',
instr(descripcion,'/',-1))+1,
LENGTH(DESCRIPCION) ) descripcion
from ubigeo
where
SUBSTR(codigo,1,2) like p_id);
l_retorno := lpad(l_contador,5,'0');
for dd in d(p_id) loop
l_retorno := l_retorno ||'---'|| dd.codigo ||'---'|| dd.descripcion;
end loop;
when '3' then
select count(*) into l_contador
from (select
DISTINCT
codigo,
substr(descripcion, instr(descripcion,'/', instr(descripcion,'/',-1))+1, LENGTH(DESCRIPCION) ) descripcion
from ubigeo
where
SUBSTR(codigo,1,4) like p_id);
l_retorno := lpad(l_contador,5,'0');
for ee in e(p_id) loop
l_retorno := l_retorno ||'---'|| ee.codigo ||'---'|| ee.descripcion;
end loop;
end case;
htp.p(l_retorno);
exception when others then
htp.p(' --- >>Sin Informacion Disponible<<'); END ;
end;
A este package le hacemos un
GRANT execute ON PKG_AJAX to ANNONYMOUS;
GRANT execute ON PKG_AJAX to PUBLIC;
Para el punto 2 este seria el JScript que requerimos
<script type="text/javascript" language="javascript">
function AddItem(Text,Value)
{
// Create an Option object
var opt = document.createElement("option");
opt.text = Text;
opt.value = Value;
// Add an Option object to Drop Down/List Box
document.fSolicitud.p_direccion.options.add(opt);
// Assign text and value to Option object
}
function AddItemEnt(Text,Value)
{
// Create an Option object
var opt = document.createElement("option");
opt.text = Text;
opt.value = Value;
// Add an Option object to Drop Down/List Box
document.fSolicitud.p_direcciondest.options.add(opt);
// Assign text and value to Option object
}
function makeRequest(tipo,url) {
//
// This javascript function makes the connection
// to the server to execute a script
//
var httpRequest;
if (window.XMLHttpRequest)
{ // Mozilla, Safari, ...
//alert("Create a new httpRequest for Mozilla");
httpRequest = new XMLHttpRequest();
if (httpRequest.overrideMimeType)
{ httpRequest.overrideMimeType('text/xml'); }
}
else if (window.ActiveXObject)
{ // IE
//alert("Create a new httpRequest for IE");
try {httpRequest = new ActiveXObject("Msxml2.XMLHTTP"); }
catch (e)
{ try {httpRequest = new ActiveXObject("Microsoft.XMLHTTP"); }
catch (e) {}
}
}
if (!httpRequest)
{
alert('Giving up :( Cannot create an XMLHTTP instance');
return false;
}
httpRequest.onreadystatechange = function() { alertContents(httpRequest,tipo); };
httpRequest.open('GET', url, true);
httpRequest.send(null);
} //end function makeRequest(url)
function alertContents(httpRequest,tipo)
{
//
// This function collects the response from the server
// and puts it into a form variable
//
if (httpRequest.readyState == 4)
{
if (httpRequest.status == 200)
{
if (httpRequest.responseText == "Valid\n")
{ alert("A valid response was returned"); }
else
{
var str=httpRequest.responseText;
var strRazonSocial=str.substr(6,100);
var strCODUSU=str.substr(0,5);
var strTotal=str.substring(107,109);
var numTotal=strTotal.to
var strDirecciones=str.substring(115,str.length -65);
var strcoddir;
var strcodsubdir;
var strdireccion;
var pos1;
var pos2;
var cadena = "XYZW";
if (tipo == 5 )
{
document.fSolicitud2.p_provinciapartida.options.length=0;
document.fSolicitud2.p_ubigeo.options.length=0;
strcodubigeo="";
strdescripcion="";
strTotal=str.substring(0,5);
strUBIGEO=str.substring(8,str.legth);
document.fSolicitud2.p_provinciapartida.add(new Option("", ""), null)
for (i=1;i<=strTotal;i++)
{
pos2 = strUBIGEO.search("---");
strcodubigeo= strUBIGEO.substring(0,pos2);
strUBIGEO=strUBIGEO.substring(pos2+3,strUBIGEO.length)
pos2 = strUBIGEO.search("---");
if (pos2 == -1 )
{
pos2 = strUBIGEO.length-66;
}
strdescripcion= strUBIGEO.substring(0,pos2);
strUBIGEO=strUBIGEO.substring(pos2+3,strUBIGEO.length)
document.fSolicitud2.p_provinciapartida.add(new Option(strdescripcion, strcodubigeo), null)
}
}
if (tipo == 6 )
{
document.fSolicitud2.p_ubigeo.options.length=0;
strcodubigeo="";
strdescripcion="";
strTotal=str.substring(0,5);
strUBIGEO=str.substring(8,str.legth);
for (i=1;i<=strTotal;i++)
{
pos2 = strUBIGEO.search("---");
strcodubigeo= strUBIGEO.substring(0,pos2);
strUBIGEO=strUBIGEO.substring(pos2+3,strUBIGEO.length)
pos2 = strUBIGEO.search("---");
if (pos2 == -1 )
{
pos2 = strUBIGEO.length-66;
}
strdescripcion= strUBIGEO.substring(0,pos2);
strUBIGEO=strUBIGEO.substring(pos2+3,strUBIGEO.length)
document.fSolicitud2.p_ubigeo.add(new Option(strdescripcion, strcodubigeo), null)
}
}
}
}
else
{
alert('There was a problem with the request.');
}
}
} //end function alertContents(httpRequest)
</script> Para el punto 3, aca la setencia de codigo PLSQL
htp.p('<tr>');
htp.p('<td>');
l_text_name := 'Dep\Prov\Dist.:';
l_text := wwui_api_portlet.portlet_heading(p_string => l_text_name, p_level => 1);htp.p(l_text);
htp.p('</td>');
htp.p('<td colspan=3>');
htp.formSelectOpen('p_departamentopartida',cattributes=> 'onchange="makeRequest(5,''/portal/pls/portal/comun.pkg_ajax.get_ubigeo?p_level=2&p_id='' + p_departamentopartida[p_departamentopartida.selectedIndex].value);"');
/*Para verificar el codigo extranido*/--htp.formSelectOpen('p_departamentopartida',cattributes=> 'onchange="alert( p_departamentopartida[p_departamentopartida.selectedIndex].value);"');
htp.formselectOption('');
for zz in z loop
if SUBSTR(lpad(L_CODUBIGEO,6,'0'),1,2) = zz.codigo then
htp.formselectOption(zz.descripcion,'selected','VALUE="'||zz.codigo||'"');
else
htp.formselectOption(zz.descripcion,null,'VALUE="'||zz.codigo||'"');
end if;
end loop;
htp.formSelectClose;
htp.formSelectOpen('p_provinciapartida',cattributes=> 'onchange="makeRequest(6,''/portal/pls/portal/comun.pkg_ajax.get_ubigeo?p_level=3&p_id='' + p_provinciapartida[p_provinciapartida.selectedIndex].value);"');
for zz1 in z1(SUBSTR(lpad(L_CODUBIGEO,6,'0'),1,2)) loop
if SUBSTR(lpad(L_CODUBIGEO,6,'0'),1,4) = zz1.codigo then
htp.formselectOption(zz1.descripcion,'selected','VALUE="'||zz1.codigo||'"');
else
htp.formselectOption(zz1.descripcion,null,'VALUE="'||zz1.codigo||'"');
end if;end loop;
htp.formSelectClose;
htp.formSelectOpen('p_ubigeo');
for zz2 in z2(substr(lpad(L_CODUBIGEO,6,'0'),1,4)) loop
if lpad(L_CODUBIGEO,6,'0') = zz2.codigo then
htp.formselectOption(zz2.descripcion,'selected','VALUE="'||zz2.codigo||'"');
else
htp.formselectOption(zz2.descripcion,null,'VALUE="'||zz2.codigo||'"');
end if;
end loop;
htp.formSelectClose;
htp.p('</td></tr>');Para mayor informacion o Aopoyo, pueden contactarme al sigueinte correo: javier.delgado@evolvenetwork.com
Saludos
