//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) {