* 1 Radicar documentos, 2 Impresion de Doc's, 3 Radicacion e Impresion.
* (Por. Jh)
* Ademas verifica que el documento no este radicado con $rowwan[9] y [10]
* El jefe con $codusuario=1 siempre podra radicar
*/
if ($rs->fields["ANEX_SALIDA"] == 1 and ($codusuario == 1 or $perm_radi_sal == 1 or $perm_radi_sal == 3) and ($ruta_raiz != ".." and !$rs->fields["SGD_PNUFE_CODI"] or $rs->fields["SGD_PNUFE_CODI"] and $rs->fields["SGD_DOC_SECUENCIA"] and $rs->fields["SGD_DOC_SECUENCIA"] > 0)) {
if (!$rs->fields["RADI_NUME_SALIDA"]) {
if (substr($verrad, -1) == 2 && $puedeRadicarAnexo == 1) {
$rs->fields["SGD_PNUFE_CODI"] = 0;
$flag_regenerar = FALSE;
echo "<a class=vinculos href=javascript:radicarArchivo('{$coddocu}','{$linkarchivo}','si'," . $rs->fields["SGD_PNUFE_CODI"] . ",'{$tpradic}','{$aplinteg}','{$numextdoc}','{$radicado_rem}','{$sol_lect}',0,'{$flag_regenerar}')>Radicar(-{$tpradic})</a>";
$radicado = "false";
$anexo = $cod_radi;
} else {
if ($puedeRadicarAnexo != 1) {
$objError = new AplExternaError();
$objError->setMessage($puedeRadicarAnexo);
echo $objError->getMessage();
} else {
if (substr($verrad, -1) != 2 and $num_archivos == 1 and !$rs->fields["SGD_PNUFE_CODI"] and $swRadDesdeAnex == false) {
echo "<a class=vinculos href=javascript:asignarRadicado('{$coddocu}','{$linkarchivo}','{$cod_radi}','{$numextdoc}','{$radicado_rem}','{$sol_lect}',0)>Asignar Rad</a>";
$radicado = "false";
$anexo = $cod_radi;
} else {
if ($rs->fields["SGD_PNUFE_CODI"] && strcmp($cod_radi, $rs->fields["SGD_DOC_PADRE"]) == 0 && !$anex->seHaRadicadoUnPaquete($rs->fields["SGD_DOC_PADRE"])) {
$flag_regenerar = FALSE;
echo "<a class=vinculos href=javascript:radicarArchivo('{$coddocu}','{$linkarchivo}','si'," . $rs->fields["SGD_PNUFE_CODI"] . ",'{$tpradic}','{$aplinteg}','{$numextdoc}','{$radicado_rem}','{$sol_lect}',0,'{$flag_regenerar}')>Radicar(-{$tpradic})</a>";
$radicado = "false";
$anexo = $cod_radi;
} else {
if ($puedeRadicarAnexo == 1) {
$es_valido = $tiene_permisos && $es_formato_valido;
if ($es_valido) {
if (!$rs->fields["RADI_NUME_SALIDA"]) {
if (substr($verrad, -1) == 2 && $puedeRadicarAnexo == 1) {
$rs->fields["SGD_PNUFE_CODI"] = 0;
$anexos_radicado[$contador]['MOSTRAR_RADICAR'] = true;
$anexos_radicado[$contador]['COD_DOCU'] = $coddocu;
$anexos_radicado[$contador]['LINK_ARCHIVO'] = $linkarchivo;
$anexos_radicado[$contador]['TP_RADICADO'] = $tpradic;
$anexos_radicado[$contador]['APLINTEG'] = $aplinteg;
$anexos_radicado[$contador]['NUM_EXT_DOC'] = $numextdoc;
$anexos_radicado[$contador]['SGD_PNUFE_CODI'] = $rs->fields["SGD_PNUFE_CODI"];
$radicado = false;
$anexo = $cod_radi;
} elseif ($puedeRadicarAnexo != 1) {
$objError = new AplExternaError();
$objError->setMessage($puedeRadicarAnexo);
$anexos_radicado[$contador]['ERROR_RADICACION'] = $objError->getMessage();
} else {
$esta_validado = substr($verrad, -1) != 2 && $num_archivos == 1 && !$rs->fields["SGD_PNUFE_CODI"] && $swRadDesdeAnex == false;
$permitir_opc = $rs->fields["SGD_PNUFE_CODI"] && strcmp($cod_radi, $rs->fields["SGD_DOC_PADRE"]) == 0 && !$anex->seHaRadicadoUnPaquete($rs->fields["SGD_DOC_ PADRE"]);
if ($esta_validado) {
$anexos_radicado[$contador]['MOSTRAR_ASIGNAR_RADICADO'] = true;
$anexos_radicado[$contador]['COD_DOCU'] = $coddocu;
$anexos_radicado[$contador]['LINK_ARCHIVO'] = $linkarchivo;
$anexos_radicado[$contador]['COD_RADI'] = $cod_radi;
$anexos_radicado[$contador]['NUM_EXT_DOC'] = $numextdoc;
$radicado = false;
$anexo = $cod_radi;
} elseif ($permitir_opc) {
$anexos_radicado[$contador]['MOSTRAR_RADICAR_2'] = true;
/* FILTRO DE DATOS
* @$setFiltroSelect Contiene los valores digitados por el usuario separados por coma.
* @$filtroSelect Si SetfiltoSelect contiene algunvalor la siguiente rutina realiza el arreglo de la condición para la consulta a la base de datos y lo almacena en whereFiltro.
* @$whereFiltro Si filtroSelect trae valor la rutina del where para este filtro es almacenado aqui.
*
*/
if ($checkValue) {
$num = count($checkValue);
$i = 0;
while ($i < $num) {
$record_id = key($checkValue);
$setFiltroSelect .= $record_id;
//Validacion de anulación respecto de aplicativos externos
$puedeContinuar = $objCtrlAplInt->contiInstancia($record_id, $MODULO_ANULACION, 1);
if ($puedeContinuar != 1) {
$objError = new AplExternaError();
$objError->setMessage($puedeContinuar);
$mensaje_error = $objError->getMessage();
$mensaje_error = "<center><table class='borde_tab' width=100% CELSPACING=5><tr class=titulosError><td><center> < {$mensaje_error} > <BR> {$record_id}</CENTER></td></tr></table><center>";
die($mensaje_error);
}
if ($i <= $num - 2) {
$setFiltroSelect .= ",";
}
next($checkValue);
$i++;
}
if ($radicadosSel) {
$whereFiltro = " and b.radi_nume_radi in({$setFiltroSelect})";
}
}
