$anoSec = substr($nurad, 0, 4);
$tipoRad = substr($radicar_documento, -1);
} else {
$isql = "select * from ANEXOS\n where ANEX_CODIGO={$anexo} AND ANEX_RADI_NUME={$numrad}";
$rs = $db->query($isql);
if (!$rs->EOF) {
$radicado_salida = $rs->fields['RADI_NUME_SALIDA'];
} else {
$db->conn->RollbackTrans();
die("<span class='etextomenu'>No se ha podido obtener la informacion del radicado");
}
if (!$radicado_salida) {
//print ("Genera secuencia antigua");
$isql_hl = "select sec_{$depe_codi_territorial}.nextval as SEC from dual";
//print ("Genera secuencia antigua $isql_hl");
$sec = $db->nextId("secr_tp1_" . $dep->getDepSecRadic(1));
if ($sec == -1) {
$db->conn->RollbackTrans();
die("<span class='etextomenu'>No se encontr� la secuencia sec_{$depe_codi_territorial} ");
}
//print ("Trata de alcular la secuencia y obtiene ... (sec_$depe_codi_territorial,$sec)".$db->conn->_genIDSQL."---".$db->conn->hasGenID);
$no_digitos = 6;
$tipoRad = "1";
} else {
$sec = substr($radicado_salida, 7, $no_digitos);
$tipoRad = substr($radicar_documento, -1);
$anoSec = substr($radicado_salida, 0, 4);
echo "<span class='etextomenu'><br>Ya estaba radicado<br>";
$radicar_a = $radicado_salida;
}
}
