include "{$ruta_raiz}/radicacion/busca_direcciones.php";
$a = new LOCALIZACION($codep_us1, $muni_us1, $db);
$dpto_nombre_us1 = $a->departamento;
$muni_nombre_us1 = $a->municipio;
$a = new LOCALIZACION($codep_us2, $muni_us2, $db);
$dpto_nombre_us2 = $a->departamento;
$muni_nombre_us2 = $a->municipio;
$a = new LOCALIZACION($codep_us3, $muni_us3, $db);
$dpto_nombre_us3 = $a->departamento;
$muni_nombre_us3 = $a->municipio;
$espObjeto->Esp_nit($cc_documento_us3);
$nuir_e = $espObjeto->getNuir();
// Inicializacion de la fecha que va a pasar al reemplazable *F_RAD_S*
$fecha_hoy_corto = "";
include "{$ruta_raiz}/class_control/class_gen.php";
$b = new CLASS_GEN();
$date = date("m/d/Y");
$fecha_hoy = $b->traducefecha($date);
$fecha_e = $b->traducefecha($radi_fech_radi);
$fechaDocumento2 = $b->traducefecha_sinDia($fechaDocumento);
$fechaDocumento = $b->traducefechaDocto($fechaDocumento);
if ($vp == "n") {
$archivoFinal = $linkArchSimple;
} else {
$archivoFinal = $linkArchivoTmpSimple;
}
//almacena la extension del archivo a procedar
$extension = strrchr($archivoFinal, ".");
$archSinExt = substr($archivoFinal, 0, strpos($archivoFinal, $extension));
//Almacena el path completo hacia el archivo a producirse luego de la combinacion
if (substr($archSinExt, -1) == "d") {
function combinar_csv($dependencia, $codusuario, $usua_doc, $usua_nomb, $depe_codi_territorial, $codiTRD, $TipoRad)
{
$odt = new OpenDocText();
$b = new CLASS_GEN();
//Var que contiene el arreglo de radicados genrados a partir de la masiva
$arrRadicados = array();
//echo "<hr> TipoRas es $TipoRad <hr>";
//Instancia de la dependencia
$objDependecia = new Dependencia($this->conexion);
$objDependecia->Dependencia_codigo($dependencia);
//Almacena la secuencia de radicacion para esta dependencia
$secRadicacion = "secr_tp" . $TipoRad . "_" . $objDependecia->getSecRadicTipDepe($dependencia, $TipoRad);
// $this->conexion->conn->debug = true;
$archivo = $this->arcFinal;
$archivo = trim(substr($archivo, strpos($archivo, $this->carpetaBodega) + strlen($this->carpetaBodega), strlen($archivo) - strpos($archivo, $this->carpetaBodega) + strlen($this->carpetaBodega)));
// INICIALIZA EL PDF
$this->pdf = new Cezpdf("LETTER", "landscape");
$objHist = new Historico($this->conexion);
$year = date("Y");
$day = date("d");
$month = date("m");
// orientaci�n izquierda
$orientCentro = array("left" => 0);
// justificaci�n centrada
$justCentro = array("justification" => "center");
$estilo1 = array("justification" => "left", "leading" => 8);
$estilo2 = array("left" => 0, "leading" => 12);
$estilo3 = array("left" => 0, "leading" => 15);
$this->pdf->ezSetCmMargins(1, 1, 3, 2);
//top,botton,left,right
/* Se establece la fuente que se utilizara para el texto. */
$this->pdf->selectFont($this->ruta_raiz . "/include/pdf/fonts/Times-Roman.afm");
$this->pdf->ezText("LISTADO DE RADICACION MASIVA\n", 15, $justCentro);
$this->pdf->ezText("Dependencia: {$dependencia} \n", 12, $estilo2);
$this->pdf->ezText("Usuario Responsable: {$usua_nomb} \n", 12, $estilo2);
$this->pdf->ezText("Fecha: {$day}-{$month}-{$day} \n", 12, $estilo2);
$this->pdf->ezText($txtformat, 12, $estilo2);
$data = array();
$columna = array();
$contador = 0;
require_once $this->ruta_raiz . "/class_control/class_control.php";
$this->btt = new CONTROL_ORFEO($this->conexion);
echo "<table border=0 width 80% cellpadding='0' cellspacing='5' class='borde_tab' >";
echo "<tr><td class='titulos4'>Registro</td><td class='titulos4'>Radicado</td><td class='titulos4' >Nombre</td><td class='titulos4'>Direccion</td><td class='titulos4'>Depto</td><td class='titulos4'>Municipio</td><td class='titulos4'>Expediente</td></tr>";
//Referencia el archivo a abrir
$ruta = $this->ruta_raiz . "/" . $this->carpetaBodega . "/masiva/" . $this->archivo_insumo;
clearstatcache();
unlink($ruta);
$fp = fopen($ruta, 'wb');
if ($fp) {
fputs($fp, "plantilla={$this->arcPlantilla}" . "\n");
fputs($fp, "csv={$this->arcCSV}" . "\n");
fputs($fp, "archFinal={$this->arcFinal}" . "\n");
fputs($fp, "archTmp={$this->arcTmp}" . "\n");
// Comentariada por HLP. Cambiar , por ;
fputs($fp, implode(",", $this->encabezado[0]) . ",*RAD_S*,*F_RAD_S*,*F_HOY*" . "\n");
//fputs ($fp,implode( ";", $this->encabezado[0]).";*RAD_S*;*F_RAD_S*"."\n");
//Recorre el arrego de los datos
for ($ii = 0; $ii < count($this->datos); $ii++) {
$i = 0;
$numeroExpediente = "";
// Aqui se accede a la clase class_control para actualizar expedientes.
$ruta_raiz = $this->ruta_raiz;
// Por cada etiqueta de los campos del encabezado del CSV efect�a un reemplazo
foreach ($this->encabezado[0] as $campos_d) {
if (strlen(trim($this->datos[$ii][$i])) < 1) {
$this->datos[$ii][$i] = "";
}
$dato_r = str_replace("'", "''", trim($this->datos[$ii][$i]));
$texto_tmp = str_replace($campos_d, $dato_r, $texto_tmp);
if ($campos_d == "*TIPO*") {
$tip_doc = $dato_r;
}
if ($campos_d == "*NOMBRE*") {
$nombre = $dato_r;
}
if ($campos_d == "*DOCUMENTO*") {
$doc_us1 = $dato_r;
}
if ($campos_d == "*NOMBRE*") {
$nombre_us1 = $dato_r;
}
if ($campos_d == "*PRIM_APEL*") {
$prim_apell_us1 = $dato_r;
}
if ($campos_d == "*SEG_APEL*") {
$seg_apell_us1 = $dato_r;
}
if ($campos_d == "*DIGNATARIO*") {
$otro_us1 = $dato_r;
}
if ($campos_d == "*CARGO*") {
$cargo_us1 = $dato_r;
}
if ($campos_d == "*DIR*") {
$direccion_us1 = $dato_r;
}
if ($campos_d == "*TELEFONO*") {
$telefono_us1 = $dato_r;
}
if ($campos_d == "*MUNI*") {
$muni_codi = $dato_r;
}
if ($campos_d == "*DEPTO*") {
$dpto_codi = $dato_r;
}
if ($campos_d == "*ASUNTO*") {
$asu = $dato_r;
}
if ($campos_d == "*ID*") {
$sgd_esp_codigo = $dato_r;
}
if ($campos_d == "*DESC_ANEXOS*") {
$desc_anexos = $dato_r;
}
if ($campos_d == "*MUNI_NOMBRE*") {
$muni_nombre = $dato_r;
}
if ($campos_d == "*DEPTO_NOMBRE*") {
$dpto_nombre = $dato_r;
}
if ($campos_d == "*PAIS_NOMBRE*") {
$pais = $dato_r;
}
if ($campos_d == "*TIPO_DOC*") {
$tdoc = trim($dato_r);
}
if ($campos_d == "*NUM_EXPEDIENTE*") {
$numeroExpediente = trim($dato_r);
}
if ($campos_d == "*ESP_CODIGO*") {
$codigoESP = $dato_r;
if ($codigoESP == "") {
$codigoESP = null;
}
}
if ($campos_d == "*RAD_ANEXO*") {
$radicadopadre = $dato_r;
$tipoanexo = 0;
if ($radicadopadre == "") {
$radicadopadre = "";
$tipoanexo = "";
}
} else {
$radicadopadre = "";
}
$tipo_anexo = "0";
$cuentai = "";
$documento_us3 = "";
$med = "";
$fec = "";
$ane = "";
//$pais="COLOMBIA";
$carp_codi = "12";
$i++;
}
$tip_rem = "1";
// Si no se especifico el tipo de documento
if (!$tdoc) {
$tdoc = 0;
}
// $this->validarLugar();
$pais_codi = $this->arrCodPais[$pais . $dpto_nombre . $muni_nombre];
if ($pais_codi == '') {
$pais_codi = '170';
}
$dpto_codi = $pais_codi . "-" . $this->arrCodDepto[$dpto_nombre];
$muni_codi = $dpto_codi . "-" . $this->arrCodMuni[$dpto_nombre . $muni_nombre];
$tmp_objMuni = new Municipio($this->conexion);
//Creamos esto para traer el codigo del continente y transmitirlo
$tmp_objMuni->municipio_codigo($dpto_codi, $muni_codi);
//por las diferentes tablas.
$cont_codi = $tmp_objMuni->get_cont_codi();
$muni_codi = $cont_codi . "-" . $muni_codi;
//Se agregan las dos variables siguientes, para corregir el error que se estaba presentando en la radicación masiva
$codigo_depto = $this->arrCodDepto[$dpto_nombre];
$codigo_muni = $this->arrCodMuni[$dpto_nombre . $muni_nombre];
//Fin Variables agregadas
$muni_us1 = $muni_codi;
$codep_us1 = $dpto_codi;
$nombre_us = "{$nombre_us1} {$prim_apell_us1} {$seg_apell_us1}";
unset($tmp_objMuni);
$documento_us3 = $codigoESP;
if (!$documento_us3) {
$documento_us3 = null;
}
//Si se trata de una combinacion de correspondencia definitiva
if ($this->definitivo == "si") {
// Segun el tipo de remitente se graba en la tabla respectiva.
// 0 - ESP 1 - OTRA EMPRESA 2 - PERSONA NATURAL
$nurad = $this->btt->radicar_salida_masiva($tipoanexo, $cuentai, $documento_us3, $med, $fec, $radicadopadre, $codusuario, $tip_doc, $ane, $pais, $asu, $dependencia, $tip_rem, $usua_doc, $this->tipoDocto, $muni_codi, $archivo, $usua_doc, $depe_codi_territorial, $secRadicacion, $numeroExpediente, $TipoRad);
//include_once("$this->ruta_raiz/include/tx/Expediente.php");
//$this->objExp = new Expediente($this->conexion);
if (strlen($numeroExpediente) >= 10) {
$this->objExp = new Expediente($this->conexion);
$resultadoExp = $this->objExp->insertar_expediente($numeroExpediente, $nurad, $dependencia, $codusuario, $usua_doc);
$observa = "Por Rad. Masiva.";
if ($this->codProceso) {
$radicados[] = $nurad;
$tipoTx = 50;
$objFlujo = new Flujo($this->conexion, $this->codProceso, $usua_doc);
$expEstadoActual = $objFlujo->actualNodoExpediente($numeroExpediente);
$objFlujo->cambioNodoExpediente($numeroExpediente, $nurad, $this->codFlujo, $this->codArista, 1, $observa, $this->codProceso);
}
}
$nombre_us1 = trim($nombre_us1);
$direccion_us1 = trim($direccion_us1);
if ($tip_doc == 2) {
$codigo_us = $this->btt->grabar_usuario($doc_us1, $nombre_us1, $direccion_us1, $prim_apell_us1, $seg_apell_us1, $telefono_us1, $mail_us1, $muni_us1);
$tipo_emp_us1 = 0;
$documento_us1 = $codigo_us;
}
if ($tip_doc == 1) {
$codigo_oem = $this->btt->grabar_oem($doc_us1, $nombre_us1, $direccion_us1, $prim_apell_us1, $seg_apell_us1, $telefono_us1, $mail_us1, $muni_us1);
$tipo_emp_us1 = 2;
$documento_us1 = $codigo_oem;
}
if ($tip_doc == 0) {
$sgd_esp_codigo = $this->arregloEsp[$nombre_us1];
$tipo_emp_us1 = 1;
$documento_us1 = $sgd_esp_codigo;
}
$documento_us2 = "";
$documento_us3 = "";
$mail_us1;
$cc_documento_us1 = "documento";
$grbNombresUs1 = trim($nombre_us1) . " " . trim($prim_apel_us1) . " " . trim($seg_apel_us1);
$conexion =& $this->conexion;
include "{$ruta_raiz}/radicacion/grb_direcciones.php";
// En esta parte registra el envio en la tabla SGD_RENV_REGENVIO
if (!$this->codigo_envio) {
$isql = "select max(SGD_RENV_CODIGO) as MAX FROM SGD_RENV_REGENVIO";
$rs = $this->conexion->query($isql);
if (!$rs->EOF) {
$nextval = $rs->fields['MAX'];
}
$nextval++;
$this->codigo_envio = $nextval;
$this->radi_nume_grupo = $nurad;
$radi_nume_grupo = $this->radi_nume_grupo;
} else {
$nextval = $this->codigo_envio;
}
$dep_radicado = substr($verrad_sal, 4, 3);
$carp_codi = substr($dep_radicado, 0, 2);
$dir_tipo = 1;
$nombre_us = substr(trim($nombre_us), 0, 49);
$direccion_us1 = substr(trim($direccion_us1), 0, 29);
if (!$muni_nomb) {
$muni_nomb = $muni_tmp1;
}
if (!$valor_unit) {
$valor_unit = 0;
}
//
$isql = "INSERT INTO SGD_RENV_REGENVIO (USUA_DOC, SGD_RENV_CODIGO, SGD_FENV_CODIGO, SGD_RENV_FECH,\n\t\t\t\t\t\tRADI_NUME_SAL, SGD_RENV_DESTINO, SGD_RENV_TELEFONO, SGD_RENV_MAIL, SGD_RENV_PESO, SGD_RENV_VALOR,\n\t\t\t\t\t\tSGD_RENV_CERTIFICADO, SGD_RENV_ESTADO, SGD_RENV_NOMBRE, SGD_DIR_CODIGO, DEPE_CODI, SGD_DIR_TIPO,\n\t\t\t\t\t\tRADI_NUME_GRUPO, SGD_RENV_PLANILLA, SGD_RENV_DIR, SGD_RENV_PAIS, SGD_RENV_DEPTO, SGD_RENV_MPIO,\n\t\t\t\t\t\tSGD_RENV_TIPO, SGD_RENV_OBSERVA,SGD_DEPE_GENERA)\n\t\t\t\t\t\tVALUES\n\t\t\t\t\t\t({$usua_doc}, {$nextval}, 101, " . $this->btt->sqlFechaHoy . ", {$nurad}, '{$muni_nomb}', '{$telefono_us1}', '{$mail}','',\n\t\t\t\t\t\t'{$valor_unit}', 0, 1, '{$nombre_us}', NULL, {$dependencia}, '{$dir_tipo}', " . $this->radi_nume_grupo . ", '00',\n\t\t\t\t\t\t'{$direccion_us1}', '{$pais}','{$dpto_nombre}', '{$muni_nombre}', 1, 'Masiva grupo " . $this->radi_nume_grupo . "',\n\t\t\t\t\t\t{$dependencia}) ";
$rs = $this->conexion->conn->Execute($isql);
if (!$rs) {
$this->conexion->conn->RollbackTrans();
die("<span class='etextomenu'>No se ha podido insertar la información en SGD_RENV_REGENVIO.");
}
/*
* Registro de la clasificacion TRD
*/
$isql = "INSERT INTO SGD_RDF_RETDOCF(USUA_DOC, SGD_MRD_CODIGO, SGD_RDF_FECH, RADI_NUME_RADI, DEPE_CODI, USUA_CODI)\n\t\t\t\t\t\tVALUES({$usua_doc}, {$codiTRD}," . $this->btt->sqlFechaHoy . ", {$nurad}, '{$dependencia}', {$codusuario} )";
$rs = $this->conexion->query($isql);
if (!$rs) {
$this->conexion->conn->RollbackTrans();
die("<span class='etextomenu'>No se ha podido insertar la informaci&ocute;n en SGD_RENV_REGENVIO");
}
} else {
$sec = $ii;
$sec = str_pad($sec, 5, "X", STR_PAD_LEFT);
$nurad = date("Y") . $dependencia . $sec . "1X";
}
// Comentariada por HLP. Cambiar , por ;
fputs($fp, implode(",", $this->datos[$ii]) . ",{$nurad}," . date("d/m/Y") . "," . str_ireplace(",", " ", $b->traducefecha(date("m/d/Y"))) . " \n");
//fputs ($fp,implode( ";", $this->datos[$ii]).";$nurad;".date("d/m/Y")."\n");
$contador = $ii + 1;
echo "<tr><td class='listado2'>{$contador}</td><td class='listado2' >{$nurad}</td>\n\t\t \t <td class='listado2'>" . unhtmlspecialchars($nombre_us) . "</td><td class='listado2'>" . unhtmlspecialchars($direccion_us1) . "</td>\n\t\t \t<td class='listado2' >{$dpto_nombre}</td><td class='listado2'>{$muni_nombre}</td>\n\t\t \t<td class='listado2'>{$numeroExpediente}</td></tr>";
if (connection_status() != 0) {
echo "<h1>Error de conexión</h1>";
$objError = new CombinaError(NO_DEFINIDO);
echo $objError->getMessage();
die;
}
$nombPdf = iconv($odt->codificacion($nombre_us), 'ISO-8859-1', $nombre_us);
$dirPdf = iconv($odt->codificacion($direccion_us1), 'ISO-8859-1', $direccion_us1);
$dptoPdf = iconv($odt->codificacion($dpto_nombre), 'ISO-8859-1', $dpto_nombre);
$muniPdf = iconv($odt->codificacion($muni_nombre), 'ISO-8859-1', $muni_nombre);
$data = array_merge($data, array(array('#' => $contador, 'Radicado' => $nurad, 'Nombre' => $nombPdf, 'Direccion' => $dirPdf, 'Departamento' => $dptoPdf, 'Municipio' => $muniPdf)));
$arrRadicados[] = $nurad;
}
fclose($fp);
echo "</table>";
echo "<span class='info'>Número de registros {$contador}</span>";
$this->pdf->ezTable($data);
$this->pdf->ezText("\n", 15, $justCentro);
$this->pdf->ezText("Total Registros {$contador} \n", 15, $justCentro);
$pdfcode = $this->pdf->ezOutput();
$fp = fopen($this->arcPDF, 'wb');
fwrite($fp, $pdfcode);
fclose($fp);
if ($this->definitivo == "si") {
$objHist->insertarHistorico($arrRadicados, $dependencia, $codusuario, $dependencia, $codusuario, "Radicado insertado del grupo de masiva {$radi_nume_grupo}", 30);
}
$this->resulComb = $data;
} else {
exit("No se pudo crear el archivo {$this->archivo_insumo}");
}
}
require "{$ruta_raiz}/ver_datosrad.php";
include "{$ruta_raiz}/radicacion/busca_direcciones.php";
$a = new LOCALIZACION($codep_us1, $muni_us1, $db);
$dpto_nombre_us1 = $a->departamento;
$muni_nombre_us1 = $a->municipio;
$a = new LOCALIZACION($codep_us2, $muni_us2, $db);
$dpto_nombre_us2 = $a->departamento;
$muni_nombre_us2 = $a->municipio;
$a = new LOCALIZACION($codep_us3, $muni_us3, $db);
$dpto_nombre_us3 = $a->departamento;
$muni_nombre_us3 = $a->municipio;
$espObjeto->Esp_nit($cc_documento_us3);
$nuir_e = $espObjeto->getNuir();
$fecha_hoy_corto = date("d-m-Y");
include "{$ruta_raiz}/class_control/class_gen.php";
$b = new CLASS_GEN();
$fecha_hoy = $b->traducefecha($date);
$fecha_e = $b->traducefecha($radi_fech_radi);
$fechaDocumento2 = $b->traducefecha_sinDia($fechaDocumento);
$fechaDocumento = $b->traducefechaDocto($fechaDocumento);
//print ("Fecha en letras $fechaDocumento2 ") ;
//$campos = array ("*RAD_S*" ,"*RAD_E_PADRE*" ,"*CTA_INT*","*ASUNTO*","*F_RAD_E*" ,"*NOM_R*" ,"*DIR_R*" ,"*DEPTO_R*" ,"*MPIO_R*" ,"*TEL_R*" ,"*MAIL_R*","*DOC_R*" ,"*NOM_P*" ,"*DIR_P*" ,"*DEPTO_P*" ,"*MPIO_P*" ,"*TEL_P*" ,"*MAIL_P*","*DOC_P*" ,"*NOM_E*" ,"*DIR_E*" ,"*MPIO_E*" ,"*DEPTO_E*" ,"*TEL_E*" ,"*MAIL_E*","*NIT_E*" ,"*NUIR_E*","*F_RAD_S*" ,"*RAD_E*","*SECTOR*" ,"*NRO_PAGS*" ,"*DESC_ANEXOS*","*F_HOY_CORTO*" ,"*F_HOY*","*NUM_DOCTO*","*F_DOCTO*" ,"*NOM_REC*" ,"*F_DOCTO1*" ,"*FUNCIONARIO*","*LOGIN*","*DEP_NOMB*" ,"*CUI_TER*" ,"*DEP_SIGLA*");
//$datos = array ($rad_salida ,$radicado_p ,$cuentai ,$ra_asun ,$fecha_e ,$nombret_us1_u ,$direccion_us1 , $dpto_nombre_us1,$muni_nombre_us1 ,$telefono_us1 ,$mail_us1 ,$cc_documentous1 ,$nombret_us2_u ,$direccion_us2 ,$dpto_nombre_us2 ,$muni_nombre_us2 ,$telefono_us1 ,$mail_us2 ,$cc_documento_us2 ,$nombret_us3_u,$direccion_us3 ,$muni_nombre_us3,$dpto_nombre_us3 ,$telefono_us3 ,$mail_us3 ,$cc_documento_us3 ,$nuir_e ,$fecha_hoy_corto ,$nurad ,$sector_nombre ,$radi_nume_hoja,$radi_desc_anex,$fecha_hoy_corto ,$fecha_hoy,$secuenciaDocto,$fechaDocumento ,$tipoDocumentoDesc,$fechaDocumento2,$usua_nomb ,$krd ,$dependencianomb,$depe_municipio,$dep_sigla);
$campos = array();
$datos = array();
$anex->obtenerArgumentos($campos, $datos);
//print(" LA SECUENCIA ES ($secuenciaDocto)($fechaDocumento2)");
if ($vp == "n") {
$archivoFinal = $linkArchSimple;
} else {
$archivoFinal = $linkArchivoTmpSimple;
$terr_nombre = $dep->getTerrNombre();
//Var que almacena el nombre del recurso
$nom_recurso = $tdoc2->get_sgd_tpr_descrip();
$tipoDocumento =& new TipoDocumento($conexion);
$num = count($documentosPaquete);
$i = 0;
$j = 0;
//almacena el número de archivos que va siendo procesado
$numArchs = 0;
$no_digitos = 6;
$linkarchivo_grabar = str_replace("bodega", "", $linkarchivo);
$linkarchivo_grabar = str_replace("./", "", $linkarchivo_grabar);
$trozosPath = explode("/", $linkarchivo_grabar);
$num2 = count($trozosPath);
$pathParcial = "";
$obj_class_gen = new CLASS_GEN();
$fecha_hoy_corto = date("d-m-Y");
$hora = date("H") . "_" . date("i") . "_" . date("s");
// var que almacena el dia de la fecha
$ddate = date('d');
// var que almacena el mes de la fecha
$mdate = date('m');
// var que almacena el año de la fecha
$adate = date('Y');
// var que almacena la fecha formateada
$fechaArchivo = $adate . "_" . $mdate . "_" . $ddate;
//var que almacena el nombre que tendrá la pantilla
$archInsumo = "tmp_" . $usua_doc . "_" . $fechaArchivo . "_" . $hora . ".txt";
//Arma el link hacia el lugar donde se encuentran los archivos físicos que hacen parte del paquete
while ($j < $num2 - 1) {
if (strlen($trozosPath[$j])) {
include "{$ruta_raiz}/class_control/usuario.php";
$objUsu = new Usuario($db);
$retorno = $objUsu->validaUsuario($txtLogin, $txtContrasena);
die($retorno);
break;
}
}
$verClave = 0;
$query = "select PARAM_VALOR from SGD_PARAMETRO where PARAM_NOMB='PRESTAMO_PASW'";
$rs = $db->conn->query($query);
if ($rs && !$rs->EOF) {
$verClave = $rs->fields("PARAM_VALOR");
}
if ($tipoEnvio == 'prestar') {
include "{$ruta_raiz}/class_control/class_gen.php";
$objFec = new CLASS_GEN();
$fechaVenc = $objFec->suma_fechas(date('d/m/y'), $DIASVENC);
$accion = 'Prestar';
$titulo = 'Prestamo de Documentos';
} else {
if ($tipoEnvio == 'devolver') {
$accion = 'Devolver';
$titulo = 'Devolución de Documentos';
}
}
if ($checkValue) {
$regList = implode(',', array_keys($checkValue));
$txtLogin = $checkValue[key($checkValue)];
$sqlPRES_FECH_PEDI = $db->conn->SQLDate("Y-m-d H:i A", "p.PRES_FECH_PEDI");
$sqlPRES_FECH_CANC = $db->conn->SQLDate("Y-m-d H:i A", "p.PRES_FECH_CANC");
$sqlPRES_FECH_DEVO = $db->conn->SQLDate("Y-m-d H:i A", "p.PRES_FECH_DEVO");
define(FPDF_FONTPATH, '../fpdf/font/');
$radAnulados = join(",", $radAnularE);
error_reporting(7);
$radicadosPdf = "<table>\n\t\t<tr><td><b> Radicado</b> \n\t\t</td><td><b>Motivo Anulación</b></td></tr>";
foreach ($radAnularE as $id => $noRadicado) {
$radicadosPdf .= "<tr><td> " . $radAnularE[$id] . " </td><td>" . iconv($odt->codificacion($radObservaE[$id]), 'ISO-8859-1', $radObservaE[$id]) . "</td></tr>";
}
$anoActual = date("Y");
$radicadosPdf .= "</table>";
error_reporting(7);
$ruta_raiz = "..";
include "{$ruta_raiz}/fpdf/html2pdf.php";
$fecha = date("d-m-Y");
$fecha_hoy_corto = date("d-m-Y");
include "{$ruta_raiz}/class_control/class_gen.php";
$b = new CLASS_GEN();
$date = date("m/d/Y");
$fecha_hoy = $b->traducefecha($date);
$html = "<table width='100%' align='left'><tr><td></td></tr><tr><td colspan=3 > </td><td align='left'><b>" . strtoupper($ent) . "</b></td></tr></table>\n\t\t<p><p>\n\t\t<br><br><br>\n\t\t<b><center> \n\t\t \n\t\t \n\t\tACTA DE ANULACIÓN No. {$actaNo} </center></b><p><br>\n\t\t<CENTER><B>\n\t\t \n\t\tNUMEROS DE RADICACIÓN DE CORRESPONDENCIA ENVIADA AÑO {$anoActual}</B></CENTER><p>\n\t\t<CENTER><B> \n\t\t \n\t\t \n\t\tGESTIÓN DOCUMENTAL Y ARCHIVO </B></CENTER><p>\n\t\t<br>\n <p text-align:justify; padding:3px >\n\t\tEn cumplimiento a lo establecido en el Acuerdo No. 060 del 30 de octubre de 2001 expedido por el Archivo General de la Nación, en el cual se establecen pautas para la administración de las comunicaciones oficiales en las entidades públicas y privadas que cumplen funciones públicas, y con base especialmente en el parágrafo del Artículo Quinto, el cual establece que cuando existan errores en la radicación y se anulen los números, se debe dejar constancia por escrito, con la respectiva justificación y firma del Jefe de la unidad de correspondencia; el coordinador de Gestión Documental y Correspondencia de {$entidad} procede a anular los siguientes números de radicación de {$TituloActam} que no fueron tramitados por las dependencias radicadoras:\n </p><br><br><br><br>\n\t\t1.- Números de radicación de {$TituloActam} a anular: <br>\n\t\t {$radicadosPdf}\n\t\t<br><br>\n\t\t2.- Se deja copia de la presente acta en el archivo central de la Entidad para el trámite <br>\n\t\t respectivo de la organización física de los archivos.<p>\n\t\tSe firma la presente el {$fecha_hoy}\n\t\t<p><p>\t\n\t\t______________________________________________________ <br>\n\t\t" . iconv($odt->codificacion($usua_nomb), 'ISO-8859-1', $usua_nomb) . "<BR>\nCentro de Administración Documental";
$ruta_raiz = "..";
$pdf = new PDF();
$pdf->Open();
$pdf->SetCreator("HTML2PDF");
$pdf->SetTitle("Acta de Anulacion de Radicados");
$pdf->SetSubject("Anulacion radicados");
$pdf->SetAuthor("Correspondencia");
$pdf->SetFont('Arial', '', 12);
$pdf->AddPage();
if (ini_get('magic_quotes_gpc') == '1') {
$html = stripslashes($html);
}
case 'oci805':
case 'oci8po':
case 'ocipo':
$fechaLimiteVencimiento = " (p.PRES_FECH_PRES + par.PARAM_VALOR + (par.PARAM_VALOR /2 )) ";
$diasEspera = " cast((" . $db->conn->sysTimeStamp . " - p.PRES_FECH_PEDI)as number(3)) ";
break;
case 'mssql':
default:
$fechaLimiteVencimiento = " " . $db->conn->SQLDate('Y/m/d', 'p.PRES_FECH_PRES') . "::date + cast((cast(par.PARAM_VALOR as integer) + (cast(par.PARAM_VALOR as integer)/2 ))||' days' as interval) ";
break;
}
if ($btn_accion) {
switch ($btn_accion) {
case 'Renovar':
include "{$ruta_raiz}/class_control/class_gen.php";
$objFec = new CLASS_GEN();
$regList = implode(',', array_keys($checkValue));
$sql = "select p.pres_id, p.pres_fech_renovacion1 ,p.sgd_exp_numero,{$fechaLimiteVencimiento} as fecLimite,par.PARAM_VALOR AS DIASVENCIMIENTO from prestamo p \n\t\t\t\t join sgd_parametro par on par.PARAM_NOMB='PRESTAMO_DIAS_PREST'\n\t\t\t\t\t where p.pres_id in ({$regList}) ";
$rs = $db->conn->Execute($sql);
if ($rs and !$rs->EOF) {
while (!$rs->EOF) {
$limiteVencimiento = $rs->fields['FECLIMITE'];
$vencimiento = $objFec->suma_fechas(date('d-m-Y'), (int) $rs->fields['FECLIMITE'] / 2);
$fLim = str_ireplace('-', '', $limiteVencimiento);
$fVec = str_ireplace('-', '', $vencimiento);
$fLim = (int) $fLim;
$fVec = (int) $fVec;
if ($fVec > $fLim) {
$setFec = $limiteVencimiento;
} else {
$setFec = $vencimiento;
