$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; } }