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;