//El nuevo radicado hereda la informacion del expediente del radicado padre
if (isset($expRadi) && $expRadi != 0) {
$resultadoExp = $objExpediente->insertar_expediente($expRadi, $noRad, $dependencia, $codusuario, $usua_doc);
$radicados = "";
if ($resultadoExp == 1) {
$observa = "Se ingresa al expediente del radicado padre ({$numrad})";
include_once "{$ruta_raiz}/include/tx/Historico.php";
$radicados[] = $noRad;
$tipoTx = 53;
$Historico = new Historico($db);
$Historico->insertarHistoricoExp($expRadi, $radicados, $dependencia, $codusuario, $observa, $tipoTx, 0, 0);
} else {
die('<hr><font color=red>No se anexo este radicado al expediente. Verifique que el numero del expediente exista e intente de nuevo.</font><hr>');
}
}
$estQueryAdd = $objCtrlAplInt->queryAdds($noRad, $campos, $MODULO_RADICACION_DOCS_ANEXOS);
if ($estQueryAdd == "0") {
$db->conn->RollbackTrans();
die("fallo en la consulta de aplintegra");
}
$radicadosSel[0] = $noRad;
$hist->insertarHistorico($radicadosSel, $dependencia, $codusuario, $dependencia, $codusuario, " ", $codTx);
echo "<br/>";
echo "<br/>";
echo "<br/>";
//echo "inserto el historico tal rads=".var_dump($radicadosSel)."--dep=".$dependencia."--cod=".$codusuario."--dep2".$dependencia."---coduser".$codusuario."--codtx".$codTx;
if ($noRad == "-1") {
$db->conn->RollbackTrans();
die("<hr><b><font color=red><center>Error no genero un Numero de Secuencia o inserto el radicado </center></font></b><hr>");
}
$rad_salida = $noRad;
</center></font>
</td>
</tr>
</table>
</td>
</tr>
<?php
} else {
if (!$k) {
$rsEnviar->MoveFirst();
while (!$rsEnviar->EOF) {
$verrad_sal = $rsEnviar->fields["RADI_NUME_SALIDA"];
$verrad_padre = $rsEnviar->fields["RADI_NUME_DERI"];
$rem_destino = $rsEnviar->fields["SGD_DIR_TIPO"];
$campos["P_RAD_E"] = $verrad_sal;
$estQueryAdd = $objCtrlAplInt->queryAdds($verrad_sal, $campos, $MODULO_ENVIOS = 1);
if ($estQueryAdd == 0) {
$db->conn->RollbackTrans();
die;
}
if (!$rem_destino) {
$rem_destino = 1;
}
if (!trim($rem_destino)) {
$isql_w = " sgd_dir_tipo is null ";
} else {
$isql_w = " sgd_dir_tipo='{$rem_destino}' ";
}
$isql = "update ANEXOS set ANEX_ESTADO=4, ANEX_FECH_ENVIO= " . $db->conn->OffsetDate(0, $db->conn->sysTimeStamp) . "\n\t\t\t\t\t\t\twhere RADI_NUME_SALIDA ={$verrad_sal}\n\t\t\t\t\t\t\t\tand sgd_dir_tipo <>7 and {$isql_w}";
$rsUpdate = $db->query($isql);
if ($rsUpdate) {
