if ($devolver_rad and $motivo_devol) {
if ($motivo_devol != 0) {
$btt->cursor->query($isql);
?>
<p><p><p>
<?php
while ($btt->cursor->next_record()) {
$dir_tipo = $btt->cursor->f("sgd_dir_tipo");
$radi_nume_salida = $btt->cursor->f("radi_nume_sal");
$radi_nume_padre = $btt->cursor->f("radi_nume_deri");
$isql = "update anexos\n\t\tset anex_estado=3, \n\t\t\tsgd_deve_fech=sysdate,\n\t\t\tsgd_deve_codigo = {$motivo_devol}\n\t\twhere sgd_dir_tipo={$dir_tipo}\n\t\t\tand radi_nume_salida={$radi_nume_salida}";
ora_commiton($handle);
$cursor1 = ora_open($handle);
ora_parse($cursor1, $isql);
ora_exec($cursor1);
$anexos_act = ora_numrows($cursor1);
$isql_hl = "insert \n\tinto hist_eventos(DEPE_CODI ,HIST_FECH,USUA_CODI ,RADI_NUME_RADI ,HIST_OBSE ,USUA_CODI_DEST,USUA_DOC ,SGD_TTR_CODIGO)\n\tvalues ({$dependencia}, sysdate ,{$codusuario},{$radi_nume_salida},'Devolucion ({$motivo}). {$comentarios_dev}','' ,'{$usua_doc}','9')";
ora_commiton($handle);
$cursor1 = ora_open($handle);
ora_parse($cursor, $isql_hl);
ora_exec($cursor);
if ($radi_nume_padre != $radi_nume_deri and $radi_nume_padre) {
$isql_hl = "insert \n\t\tinto hist_eventos(DEPE_CODI ,HIST_FECH,USUA_CODI ,RADI_NUME_RADI ,HIST_OBSE ,USUA_CODI_DEST,USUA_DOC ,SGD_TTR_CODIGO)\n\t\tvalues ({$dependencia}, sysdate ,{$codusuario},{$radi_nume_padre},'Devolucion({$radi_nume_salida}, {$motivo}). {$comentarios_dev}','' ,'{$usua_doc}','9')";
ora_commiton($handle);
$cursor1 = ora_open($handle);
ora_parse($cursor, $isql_hl);
ora_exec($cursor);
}
}
} else {
echo "<span class=etexto><b>No se actualizaron los registros <br>Debe seleccionar un tipo de devolución<br>";
$numrad = $verrad_sal;
$dep_radicado = substr($verrad_sal, 4, 3);
$ano_radicado = substr($verrad_sal, 0, 4);
error_reporting(0);
$carp_codi = substr($dep_radicado, 0, 2);
$isql = "SELECT b.RADI_NUME_RADI,a.ANEX_NOMB_ARCHIVO,a.ANEX_DESC,a.SGD_REM_DESTINO,a.SGD_DIR_TIPO\n\t\t,a.ANEX_RADI_NUME\n\t\tFROM ANEXOS a,RADICADO b\n\t\t\tWHERE a.radi_nume_salida=b.radi_nume_radi\n\t\t\tand a.RADI_NUME_SALIDA={$verrad_sal}\n\t\t\tand a.sgd_dir_tipo !=7 and anex_estado=2";
ora_commiton($handle);
$cursor = ora_open($handle);
ora_parse($cursor, $isql);
ora_exec($cursor);
if (!$cursor) {
$estado = "No se encontró";
$mensaje = "No hay registro";
}
$resultado = ora_fetch_into($cursor, $row2, ORA_FETCHINTO_NULLS | ORA_FETCHINTO_ASSOC);
$no_registros = ora_numrows($cursor);
$verrad = $row2["RADI_NUME_RADI"];
$ref_pdf = $row2["ANEX_NOMB_ARCHIVO"];
$asunto = $row2["ANEX_DESC"];
$sgd_dir_tipo = $row2["SGD_DIR_TIPO"];
$rem_destino = $row2["SGD_DIR_TIPO"];
$anex_radi_nume = $row2["ANEX_RADI_NUME"];
$dep_radicado = substr($verrad_sal, 4, 3);
$ano_radicado = substr($verrad_sal, 0, 4);
$carp_codi = substr($dep_radicado, 0, 2);
$radi_path_sal = "/{$ano_radicado}/{$dep_radicado}/docs/{$ref_pdf}";
//$verrad_sal = $radicados_sel[$i];
$ruta_raiz = "..";
if (substr($rem_destino, 0, 1) == "7") {
$anex_radi_nume = $verrad_sal;
}
?>
</font></p>
<p class=etexto><span class="etextomenu"><br>RADICADOS INVOLUCRADOS :</span><br>
<font color=blue><?php
echo $procard;
?>
</font></p>
<?php
if ($depsel == 999) {
$codus = 1;
}
$iisql = "select USUA_NOMB from usuario where depe_codi={$depsel} and usua_codi={$codus} ORDER BY USUA_NOMB ";
if ($enviara != 20) {
ora_parse($cursor, $iisql);
ora_exec($cursor);
$numerot = ora_numrows($cursor);
$row1 = array();
$result1 = ora_fetch_into($cursor, $row1, ORA_FETCHINTO_NULLS | ORA_FETCHINTO_ASSOC);
$usuanomb = ora_getcolumn($cursor, 0);
//$usuacodif = ora_getcolumn($cursor, 1) ;
?>
<p class=etexto><span class="etextomenu">USUARIO DESTINO :</span> <font color=blue>
<?php
if ($enviara == 21) {
echo "{$us_ant_nombre} ";
} else {
echo $usuanomb;
}
?>
</font></p>
<?php
error_reporting(7);
$radicado_grupo = "";
$no_digitos = 14;
$radi_nume_grupo = substr($radicados_sel[0], 0, $no_digitos);
if ($i != 0) {
$valor_unit = 0;
}
$verrad_sal = $radicados_sel[$i];
$verrad_sal = substr($verrad_sal, 0, $no_digitos);
include_once "{$ruta_raiz}/config.php";
$isql = "select RADI_NUME_RADI FROM RADICADO WHERE RADI_NUME_RADI like '{$verrad_sal}'";
ora_commiton($handle);
$cursor = ora_open($handle);
ora_parse($cursor, $isql) or $error_db = ora_error();
ora_exec($cursor) or $error_db = ora_error();
$encontrados = ora_numrows($cursor);
$resultado = ora_fetch_into($cursor, $row2, ORA_FETCHINTO_NULLS | ORA_FETCHINTO_ASSOC);
$encontrado_radi = $row2["RADI_NUME_RADI"];
$dep_radicado = substr($verrad_sal, 4, 3);
$carp_codi = substr($dep_radicado, 0, 2);
$dir_tipo = 1;
$nombre_us = substr(trim($nombre_us), 0, 29);
$verrad_sal = substr($verrad_sal, 0, $no_digitos);
if ($renv_codigo) {
$isql = "UPDATE SGD_RENV_REGENVIO\n\t\t\t\t\t SET\n\t\t\t\t\t\tUSUA_DOC='{$usua_doc}',\n\t\t\t\t\t\tSGD_FENV_CODIGO='{$empresa_envio}',\n\t\t\t\t\t\tSGD_RENV_DESTINO= '{$destino}',\n\t\t\t\t\t\tSGD_RENV_TELEFONO='{$telefono}',\n\t\t\t\t\t\tSGD_RENV_MAIL='{$mail}',\n\t\t\t\t\t\tSGD_RENV_PESO='{$envio_peso}',\n\t\t\t\t\t\tSGD_RENV_VALOR='{$valor_unit}',\n\t\t\t\t\t\tSGD_RENV_CERTIFICADO='0',\n\t\t\t\t\t\tSGD_RENV_ESTADO='1',\n\t\t\t\t\t\tSGD_RENV_NOMBRE='{$nombre_us}',\n\t\t\t\t\t\tDEPE_CODI='{$dependencia}',\n\t\t\t\t\t\tSGD_DIR_TIPO='{$dir_tipo}',\n\t\t\t\t\t\tRADI_NUME_GRUPO='{$radi_nume_grupo}',\n\t\t\t\t\t\tSGD_RENV_PLANILLA='{$planilla}',\n\t\t\t\t\t\tSGD_RENV_DIR='{$direccion_us}',\n\t\t\t\t\t\tSGD_RENV_DEPTO='{$departamento_us}',\n \t\t\tSGD_RENV_OBSERVA='{$observaciones}',\n\t\t\t\t\t\tSGD_RENV_MPIO='{$destino}' \n\t\t\t\t\twhere \n\t\t\t\t\tRADI_NUME_SAL={$radicados} and sgd_renv_codigo='{$renv_codigo}'\n\t\t\t";
Ora_commiton($handle);
$cursor = ora_open($handle);
ora_parse($cursor, $isql);
ora_exec($cursor);
echo "<span class=etexto>Se actualizo el radicado {$verrad_sal} en la planilla {$planilla} </span>";
} else {
$title = "";
if ($radicar_documento) {
$arpdf = "rad_salida/{$fano}/{$dependencia}/{$fmes}/2{$archivo_sal}.pdf";
$pdf->Output($arpdf);
echo "<B><CENTER><a href={$arpdf}?fecha_h={$fechah}> Ver Archivo Pdf </a><br>";
if ($sec) {
$plg_codi = str_pad($numero_pla, 4, "0", STR_PAD_left);
$plg_comentarios = "";
$plt_codi = $plt_codi;
$rad_salida = "2" . $rad_salida;
$isql = "update PL_GENERADO_PLG set PLT_CODI=2,RADI_NUME_SAL={$rad_salida},\n\t\t PLG_ARCHIVO_FINAL='{$arpdf}',PLG_CREA_FECH=SYSDATE\t\t \n\t\t where PLG_CODI={$plantillaper1} and RADI_NUME_RADI={$numrad}";
ora_commiton($handle);
$cursor = ora_open($handle);
ora_parse($cursor, $isql) or die("No se ha podido Grabar el Radicado");
ora_exec($cursor) or die("No se ha podido Grabar el Radicado");
$actualizados = ora_numrows($cursor);
ora_commit($handle);
?>
<p>
<center>
<?php
if ($actualizados > 0) {
?>
Ha sido Radicado el Documento con el Número <b>
2<?php
echo $rad_definitivo;
?>
<?php
} else {
?>
$carp_per = 1;
$radi_usua_actu = 1;
} else {
$carp_codi = 0;
if ($ent == 1) {
$carp_codi = 1;
}
$carp_per = 0;
$radi_usua_actu = 1;
}
}
$qw = "update radicado\n\t\t\t\t\t SET radi_tipo_deri={$tipoanexo},radi_cuentai='{$cuentai}'\n\t\t\t\t\t\t\t,mrec_codi={$med}\n\t\t\t\t\t\t\t,radi_fech_ofic=TO_DATE ('{$fechrdoc} {$hora}', 'DD-MM-YY HH24:MI:SS')\n\t\t\t\t\t\t\t,radi_nume_deri={$radicadopadre},radi_usua_radi={$codusuario}\n\t\t\t\t\t\t\t,tdid_codi={$tip_doc}, radi_desc_anex='{$ane}'\n\t\t\t\t\t\t\t,dpto_codi={$codep},radi_pais='{$pais}'\n\t\t\t\t\t\t\t,ra_asun='{$asu}'\n\t\t\t\t\t\t\t,radi_depe_radi={$coddepe}\n\t\t\t\t\t\t\t,radi_usua_actu={$radi_usua_actu}\n\t\t\t\t\t\t\t,carp_codi={$carp_codi}\n\t\t\t\t\t\t\t,carp_per={$carp_per}\n\t\t\t\t\t\t\t,trte_codi={$tip_rem}\n\t\t\t\t\t\t\t,tdoc_codi={$tdoc}\n\t\t\t\t\t\t\t,radi_nume_iden='{$numdoc}'\n\t\t\t\t\t\t\t,radi_depe_actu={$coddepe}\n\t\t\t\t\t\t\t,eesp_codi={$documento_us3} \n\t\t\t\t\t\twhere radi_nume_radi='{$nurad}' ";
ora_parse($cursor, $qw);
ora_exec($cursor);
ora_commiton($handle);
$rowsafec = ora_numrows($cursor);
if ($rowsafec > 0) {
echo "<center><b>Se ha modificado el radicado({$rowsafec}) <b> {$nurad} <br>";
echo "<INPUT TYPE=HIDDEN NAME=nurad value={$nurad}>";
echo "<INPUT TYPE=HIDDEN NAME=flag value={$flag}>";
$sgd_dir_us2 = 2;
include "grb_direcciones.php";
} else {
echo "<center><b>No se ha encontrado registros para modificar <br>";
}
if ($coddepeinf) {
$flag = 0;
$observa = "Inf. Envio de Copia al radicar";
$isql_inf = "insert into INFORMADOS(DEPE_CODI,INFO_FECH,USUA_CODI,RADI_NUME_RADI,INFO_DESC) \n\t\t\t\t\t values ({$coddepeinf}, to_date ('" . date('d-m-Y H:i:s') . "','dd-mm-yyyy hh24:mi:ss' ) ,1,{$nurad},'{$observa}')";
ora_parse($cursor, $isql_inf) or $flag = 1;
ora_exec($cursor) or $flag = 1;