function ScdIniciaCodigo() {
    // MENUS VERTICALES. Matrices con id's y dimensiones.
    OPCVER[0] = new Array("areas","mcost","matla","mmedi");
    OPCVER_X0[0] = new Array(27,27,27,27);
    OPCVER_Y0[0] = new Array(20,20,20,20);

    Yopcverini[0] = 140;

    // MENUS HORIZONTALES. Matrices con id's y dimensiones.
    OPCHOR[0] = new Array("alcan","proxh","proxx");
    OPCHOR_X0[0] = new Array(75,100,100);
    OPCHOR_Y0[0] = new Array(120,120,120);

    Xopchorini[0] = 170;

    indiceCorte[0] = 100;
    posiciCorte[0] = 0;


    vermen('predi');
    versub(1,'marit');

    posx('docuid',170);
    posy('docuid',160);

    ver('docuid');
    verOpcHor(0,'alcanid');
    verOpcVer(0,'areasid');
    ver('p23tiid');
    
    producto="p23t";
    zona="";
    proopi = new Array("p23ti","p24ti");
}

function ScdResaltarMap(queRegion) {
    nombreQueRegion = queRegion + "oid";
    ver(nombreQueRegion);
}

function ScdDesResaltarMap(queRegion) {
    nombreQueRegion = queRegion + "oid";
    ocultar(nombreQueRegion);
}


function ScdInforma (zona) {
    for (j=0;j<proopi.length;j++) {
        ocultar(proopi[j] + "id");
    }
    zonai = zona + "id";
    ver(zonai);
}



function ScdVerPredCosteraP () {
    producto=arguments[0];
    //ScdVerPredCostera();
}
function ScdVerPredCosteraZ () {
    zona=arguments[0];
    ScdVerPredCostera();
}

function ScdVerPredCostera () {
    if ( producto != "" && zona != "" ) {
    url = "http://www.inm.es/cgi-bin/mariti.cgi.2001?PRODUCTO=" + producto + "&ZONA=" + zona;
    ScdVentana(url,'nuevo',1,0,0,1,565,600,0,0);
    }

}

function verpredaltamar(valor1,valor2) {
    url = "http://www.inm.es/cgi-bin/mariti.cgi.2001?PRODUCTO=" + valor1 + "&ZONA=" + valor2;
    ScdVentana(url,'nuevo',1,0,0,1,523,600,0,0);
}