//***********************************************
function fCrearArray(istrNombre){    
    strAuxiliar=istrNombre+"=new Array();"
    eval(strAuxiliar);
}
//*************************************************
function fCargarArrayPoblaciones(){    
    intFam=document.frmDatosReg.cboProvincia[document.frmDatosReg.cboProvincia.selectedIndex].value;
    fVaciarCombo(document.frmDatosReg.cboPoblacion);
    if(intFam!= -1){
        strAuxiliar="aCodAux=aP"+intFam;
        eval(strAuxiliar);
        strAuxiliar="aStrAux=aS"+intFam;
        eval(strAuxiliar);
        fRellenarCombo(document.frmDatosReg.cboPoblacion,aCodAux,aStrAux)
    }
}
//*************************************************
function fCargarArrayLineas(){    
    intLab=document.frmDatosReg.cboLaboratorio[document.frmDatosReg.cboLaboratorio.selectedIndex].value;
    fVaciarCombo(document.frmDatosReg.cboLinea);
    if(intLab!= -1){
        strLabAuxiliar="aCodLabAux=aLab"+intLab;
        eval(strLabAuxiliar);
        strLabAuxiliar="aStrLabAux=aLinea"+intLab;
        eval(strLabAuxiliar);
        fRellenarCombo(document.frmDatosReg.cboLinea,aCodLabAux,aStrLabAux)
    }
}
//*************************************************
function fCargarArrayGrupos(){    
    intLab=document.frmDatosReg.cboLaboratorio[document.frmDatosReg.cboLaboratorio.selectedIndex].value;
    fVaciarCombo(document.frmDatosReg.cboGrupo);
    if(intLab!= -1){
        strGrupAuxiliar="aCodGrupAux=aLabG"+intLab;
        eval(strGrupAuxiliar);
        strGrupAuxiliar="aStrGrupAux=aGrupo"+intLab;
        eval(strGrupAuxiliar);
        fRellenarCombo(document.frmDatosReg.cboGrupo,aCodGrupAux,aStrGrupAux)
    }
}
//*************************************************
function fVaciarCombo(eleCombo){
    for (i=eleCombo.length-1;i>0;i--)
    {    eleCombo[i]=null;
    }
}
//*************************************************
function fRellenarCombo(eleCombo,aCodAux,aStrAux)
{    for (i=1;i<aCodAux.length+1;i++)
    {    eleCombo.options[i]=new Option(aStrAux[i-1],aCodAux[i-1]);
    }
}