$rad->tdidCodi = $tip_doc;
$rad->carpCodi = $carp_codi;
$rad->carPer = $carp_per;
$rad->trteCodi = $tip_rem;
$rad->fechrd = $fechrd;
$rad->pclave = $pclave;
$rad->ra_asun = htmlspecialchars(stripcslashes($asu));
// HLP Este si sirve? Para radicar se utiliza la variable $rad->raAsun (linea 1342)
$rad->radiPath = 'null';
if (strlen(trim($aplintegra)) == 0) {
$aplintegra = "0";
}
$rad->sgd_apli_codi = $aplintegra;
$codTx = 2;
$flag = 1;
$noRad = $rad->newRadicado($ent, $tpDepeRad[$ent]);
if ($noRad == "0") {
echo "<font color=red >Ha ocurrido un Problema<br>Verfique los datos e intente de nuevo</font>";
} else {
if ($radicadopadre and ($tpRadicado == 2 or $tpRadicado == 1)) {
$sqlE = "select sgd_exp_numero from sgd_exp_expediente where radi_nume_radi like '" . $radicadopadre . "'";
$rsE = $db->conn->Execute($sqlE);
$expe = $rsE->fields['SGD_EXP_NUMERO'];
$et = $Exp->insertar_expediente($expe, $noRad, $dependencia, $codusuario, ' ', ' ');
}
if (!$noRad) {
echo "<hr>RADICADO GENERADO <HR>{$noRad}<hr>";
}
$radicadosSel[0] = $noRad;
$hist->insertarHistorico($radicadosSel, $dependencia, $codusuario, $coddepe, $radi_usua_actu, " ", $codTx);
$nurad = $noRad;
$rad->carpCodi = $tpradic;
//por revisar como recoger el valor
$rad->carPer = 0;
$rad->trteCodi = "null";
$rad->ra_asun = "'{$asunto}'";
$rad->radiPath = "'{$archUpdateRad}'";
if (strlen(trim($apliCodiaux)) > 0 && $apliCodiaux > 0) {
$aplinteg = $apliCodiaux;
} else {
$aplinteg = "0";
}
$rad->sgd_apli_codi = $aplinteg;
$codTx = 2;
$flag = 1;
// Se genera el numero de radicado del anexo
$noRad = $rad->newRadicado($tpradic, $tpDepeRad[$tpradic]);
// Se instancia un objeto para el radicado generado y obtener la fecha real de radicacion
$radGenerado = new Radicado($db);
$radGenerado->radicado_codigo($noRad);
// Asgina la fecha de radicacion
$fecha_hoy_corto = $radGenerado->getRadi_fech_radi("d-m-Y");
//BUSCA QUERYS ADICIONALES RESPECTO DE APLICATIVOS INTEGRADOS
$campos["P_RAD_E"] = $noRad;
$campos["P_USUA_CODI"] = $codusuario;
$campos["P_DEPENDENCIA"] = $dependencia;
$campos["P_USUA_DOC"] = $usua_doc;
$campos["P_COD_REF"] = $anexo;
//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 = "";
$objradi->radiNumeDeri = 0;
$objradi->usuaCodi = $usuariopqr;
$objradi->radiPais = $paisresi;
$objradi->raAsun = $mensaje;
$objradi->descAnex = "'" . $descripcionAnexos . "'";
$objradi->radiDepeRadi = $dependencipqr;
$objradi->radiUsuaActu = $usuariopqr;
$objradi->carpCodi = 0;
$objradi->trteCodi = 0;
$objradi->dependencia = $dependencipqr;
$objradi->radiDepeActu = $dependencipqr;
$objradi->tdocCodi = $tdoccodigo;
$objradi->tdidCodi = "''";
$objradi->sgd_apli_codi = 1;
$objradi->nivelRad = 0;
$numeroRadicado = $objradi->newRadicado(2, $dependencipqr, 1);
$objclaseformulario->cargarArchivos($dependencipqr, $numeroRadicado, $adjuntosSubidos);
if ($numeroRadicado) {
$codigodir = $objclaseformulario->direciones($num_dir, $empresa, $ciudadano, $numeroRadicado, $munisipioresi, $departamentoresi, $direcion, $primernombre, $segunnombre, $primerapellido, $segundoapellido, $sgdttrcodigo, $numid, $paisresi, $continenteresi, $email, $conticonta, $paisconta, $departaconta, $municonta, $direcioncontac, $emailconta, $telefonocontac, $celularcontac);
$objhist->insertarHistorico($numeroRadicado, $dependencipqr, $usuariopqr, $dependencipqr, $usuariopqr, "....", 2);
$objclaseformulario->AnexarArchivos($numeroRadicado, $dependencipqr, $usuariopqr);
include 'funciones.php';
require 'barcode.php';
$textpdf = "Señor(a) " . $primernombre . " " . $segunnombre . "" . $primerapellido . " " . $segundoapellido . ", Número de identificación: " . $numid . ", gracias por utilizar los canales de Atención al Ciudadano del servicio geologico colombiano, usted ha recibido el radicado de su PQR número " . $numeroRadicado . " de fecha " . date("Y/m/d") . " a las " . date("H:i:s") . ", con este podrá realizar el seguimiento de su solicitud y conocer su estado, para realizarlo usted deberá consultar el siguiente link: http://sgc.gov.co Al ingresar usted deberá digitar el número del radicado y verificar (" . $codigoverificacion . ") el estado de su PQR.";
$textpdf = utf8_encode($textpdf);
$sql_depeNomb = "select depe_nomb from dependencia where depe_codi = " . $dependencipqr;
$rs_depeNomb = $objclaseformulario->db->conn->Execute($sql_depeNomb);
if (!$rs_depeNomb->EOF) {
$depeNomb = substr($rs_depeNomb->fields["depe_nomb"], 0, 40);
}
$sql_muniNomb = "select muni_nomb from municipio where muni_codi = " . $munisipioresi . " and dpto_codi = " . $departamentoresi;
$rad->tdidCodi = 0;
//$tip_doc;
$rad->carpCodi = 0;
//$carp_codi;
$rad->carPer = "null";
//$carp_per;
$rad->trteCodi = 0;
//$tip_rem;
$rad->ra_asun = "radicado(a) via WEB";
// HLP Este si sirve? Para radicar se utiliza la variable $rad->raAsun )
$rad->radiPath = 'null';
//
$aplintegra = "0";
// Por defecto aplicaciones integradas Cero
$rad->sgd_apli_codi = $aplintegra;
$a = $rad->newRadicado(1, 100);
require_once $ruta_raiz . "/include/tx/Historico.php";
$codTx = 2;
$radicadosSel[0] = $noRad;
$dependencia = $depDestino;
$codusuario = $usuaCodi;
$coddepe = $depDestino;
$radi_usua_actu = $usuaCodi;
$observacion = "Radicacion de QRS por WEB";
$hist = new Historico($db);
$hist->insertarHistorico($radicadosSel, $dependencia, $codusuario, $coddepe, $radi_usua_actu, $observacion, $codTx);
if (!empty($noRad) && $noRad != "-1") {
$nurad = $noRad;
$barnumber = $noRad;
include_once $ruta_raiz . "/radicacion/grb_direcciones.php";
include_once $ruta_raiz . "/include/barcode/index.php";
$rad->trteCodi = 0;
//ok, tipo de codigo de remitente
$rad->tdocCodi = $tdoc;
//ok, tipo documental
$rad->tdidCodi = 0;
//ok, ????
$rad->carpCodi = 1;
//ok, carpeta entradas
$rad->carPer = 0;
//ok, carpeta personal
$rad->ra_asun = "Respuesta al radicado " . $numRadicadoPadre;
$rad->radiPath = 'null';
$rad->sgd_apli_codi = '0';
$rad->usuaDoc = $radUsuaDoc;
$codTx = 62;
$nurad = $rad->newRadicado($ent, $tpDepeRad);
if ($nurad == "-1") {
header("Location: salidaRespuesta.php?{$encabe}&error=1");
die;
}
//datos para guardar los anexos en la carpeta del nuevo radicado
$primerno = substr($nurad, 0, 4);
$segundono = $_SESSION["dependencia"];
$ruta1 = $primerno . "/" . $segundono . "/docs/";
$adjuntos = 'bodega/' . $ruta1;
$nextval = $db->nextId("sec_dir_direcciones");
//se buscan los datos del radicado padre y se
//insertaran en los del radicado hijo
$isql = "insert into SGD_DIR_DRECCIONES(\t\t\t\n SGD_TRD_CODIGO,\n SGD_DIR_NOMREMDES,\n SGD_DIR_DOC,\n DPTO_CODI,\n MUNI_CODI,\n id_pais,\n id_cont,\n SGD_DOC_FUN,\n SGD_OEM_CODIGO,\n SGD_CIU_CODIGO,\n SGD_ESP_CODI,\n RADI_NUME_RADI,\n SGD_SEC_CODIGO,\n SGD_DIR_DIRECCION,\n SGD_DIR_TELEFONO,\n SGD_DIR_MAIL,\n SGD_DIR_TIPO,\n SGD_DIR_CODIGO,\n SGD_DIR_NOMBRE)\n values( 1,\n '{$dir_nombre}',\n NULL,\n 11,\n 1,\n 170,\n 1,\n '{$usua_doc}',\n NULL,\n NULL,\n NULL,\n {$nurad},\n 0,\n '{$dir_direccion}',\n '{$dir_telefono}',\n '{$dir_mail}',\n 1,\n {$nextval},\n '{$dir_nombre}')";
$rsg = $db->conn->Execute($isql);
$mensajeHistorico = "Se envia respuesta rapida";
function combinar_csv($dependencia, $codusuario, $usua_doc, $usua_nomb, $depe_codi_territorial, $codiTRD, $tipoRad)
{
//Var que contiene el arreglo de radicados genrados a partir de la masiva
$arrRadicados = array();
//Instancia de la dependencia
$objDependecia = new Dependencia($this->conexion);
$objDependecia->Dependencia_codigo($dependencia);
$tdocumental = $this->tipoDocto;
//Inicializa el pdf
$this->pdf = new Cezpdf("LEGAL", "landscape");
$objHist = new Historico($this->conexion);
$year = date("Y");
$day = date("d");
$month = date("m");
// orientacion izquierda
$orientCentro = array("left" => 0);
// justificacion 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_controlExcel.php";
$this->btt = new CONTROL_ORFEO($this->conexion);
$this->rad = new Radicacion($this->conexion);
echo "<table border=0 width 80% cellpadding='0' cellspacing='5' class='borde_tab' >";
echo "<tr>\n <td class='titulos4'>Registro</td>\n <td class='titulos4'>Radicado</td>\n <td class='titulos4'>Nombre</td>\n <td class='titulos4'>Direccion</td>\n <td class='titulos4'>Depto</td>\n <td class='titulos4'>Municipio</td>\n <td class='titulos4'>Expediente</td>\n </tr>";
//Referencia el archivo a abrir
$ruta = $this->ruta_raiz . "/" . $this->carpetaBodega . "masiva/" . $this->arcCSV;
clearstatcache();
$fp = fopen($ruta, 'r');
//wb 2 r
if ($fp) {
//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 efecta un reemplazo
foreach ($this->encabezado as $campos_d) {
if (strlen(trim($this->datos[$ii][$i])) < 1) {
$this->datos[$ii][$i] = "<ESPACIO>";
}
//Agregamos los radicados de manera automatica
//El usuario envia el csv con los demas datos y
//se realiza la radicacion asignando los nuevos radicados
$dato_r = trim($this->datos[$ii][$i]);
$dato_r = mb_strtoupper(trim($dato_r), 'UTF-8');
$dato_r = str_replace(array("\r\n", "\n", "\r", "\t"), '', $dato_r);
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 = $dato_r;
}
if ($campos_d == "*NUM_EXPEDIENTE*") {
$numeroExpediente = $dato_r;
}
//Duplican campos para masiva con copia
if ($campos_d == "*TIPO2*") {
$tip_doc2 = $dato_r;
}
if ($campos_d == "*NOMBRE2*") {
$nombre2 = $dato_r;
}
if ($campos_d == "*DOCUMENTO2*") {
$doc_us12 = $dato_r;
}
if ($campos_d == "*NOMBRE2*") {
$nombre_us12 = $dato_r;
}
if ($campos_d == "*PRIM_APEL2*") {
$prim_apell_us12 = $dato_r;
}
if ($campos_d == "*SEG_APEL2*") {
$seg_apell_us12 = $dato_r;
}
if ($campos_d == "*DIGNATARIO2*") {
$otro_us12 = $dato_r;
}
if ($campos_d == "*CARGO2*") {
$cargo_us12 = $dato_r;
}
if ($campos_d == "*DIR2*") {
$direccion_us12 = $dato_r;
}
if ($campos_d == "*TELEFONO2*") {
$telefono_us12 = $dato_r;
}
if ($campos_d == "*MUNI2*") {
$muni_codi2 = $dato_r;
}
if ($campos_d == "*DEPTO2*") {
$dpto_codi2 = $dato_r;
}
if ($campos_d == "*ASUNTO2*") {
$asu2 = $dato_r;
}
if ($campos_d == "*ID2*") {
$sgd_esp_codigo2 = $dato_r;
}
if ($campos_d == "*DESC_ANEXOS2*") {
$desc_anexos2 = $dato_r;
}
if ($campos_d == "*MUNI_NOMBRE2*") {
$muni_nombre2 = $dato_r;
}
if ($campos_d == "*DEPTO_NOMBRE2*") {
$dpto_nombre2 = $dato_r;
}
if ($campos_d == "*PAIS_NOMBRE2*") {
$pais2 = $dato_r;
}
if ($campos_d == "*TIPO_DOC2*") {
$tdoc2 = $dato_r;
}
if ($campos_d == "*NUM_EXPEDIENTE2*") {
$numeroExpediente2 = $dato_r;
}
if (!empty($tip_doc2) && !empty($muni_nombre2)) {
$dir2 = True;
}
$tipo_anexo = "0";
$cuentai = "";
$documento_us3 = "";
$med = "1";
$fec = NULL;
if ($campos_d == "*ESP_CODIGO*") {
$codigoESP = $dato_r;
if ($codigoESP == "<ESPACIO>") {
$codigoESP = null;
}
}
if ($campos_d == "*RAD_ANEXO*") {
$radicadopadre = $dato_r;
$tipoanexo = 0;
if ($radicadopadre == "<ESPACIO>") {
$radicadopadre = "";
$tipoanexo = "";
}
} else {
$radicadopadre = "";
}
$ane = "";
$carp_codi = "12";
$i++;
}
$tip_rem = "1";
// Si no se especifico el tipo de documento
if (!$tdoc) {
$tdoc = 0;
}
$this->validarLugar();
// Si no se especifico el tipo de documento
if (!$tdoc2) {
$tdoc2 = 0;
}
if ($dir2) {
$this->validarLugar2();
}
$pais_codi = $this->arrCodPais[$pais . $dpto_nombre . $muni_nombre];
if ($dir2) {
$pais_codi2 = $this->arrCodPais[$pais2 . $dpto_nombre2 . $muni_nombre2];
}
if ($pais_codi == '') {
$pais_codi = '170';
}
if ($dir2) {
if ($pais_codi2 == '') {
$pais_codi2 = '170';
}
}
$dpto_codi = $pais_codi . "-" . $this->arrCodDepto[$dpto_nombre];
$muni_codi = $dpto_codi . "-" . $this->arrCodMuni[$dpto_nombre . $muni_nombre];
if ($dir2) {
$dpto_codi2 = $pais_codi2 . "-" . $this->arrCodDepto2[$dpto_nombre2];
$muni_codi2 = $dpto_codi2 . "-" . $this->arrCodMuni2[$dpto_nombre2 . $muni_nombre2];
}
$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;
if ($dir2) {
$tmp_objMuni2 = new Municipio($this->conexion);
//Creamos esto para traer el codigo del continente y transmitirlo
$tmp_objMuni2->municipio_codigo($dpto_codi2, $muni_codi2);
//por las diferentes tablas.
$cont_codi2 = $tmp_objMuni2->get_cont_codi();
$muni_codi2 = $cont_codi2 . "-" . $muni_codi2;
}
//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
//Se agregan las dos variables siguientes, para corregir
//el error que se estaba presentando en la radicación masiva
if ($dir2) {
$codigo_depto2 = $this->arrCodDepto2[$dpto_nombre2];
$codigo_muni2 = $this->arrCodMuni2[$dpto_nombre2 . $muni_nombre2];
}
//Fin Variables agregadas
$muni_us1 = $muni_codi;
$codep_us1 = $dpto_codi;
$nombre_us = "{$nombre_us1} {$prim_apell_us1} {$seg_apell_us1}";
if ($dir2) {
$muni_us12 = $muni_codi2;
$codep_us12 = $dpto_codi2;
$nombre_us2 = "{$nombre_us12} {$prim_apell_us12} {$seg_apell_us12}";
}
unset($tmp_objMuni);
$documento_us3 = $codigoESP;
if (!$documento_us3) {
$documento_us3 = null;
}
$rad = new Radicacion($this->conexion);
$rad->radiTipoDeri = $tipoanexo;
$rad->radiCuentai = "'{$cuentai}'";
$rad->eespCodi = $documento_us3;
$rad->mrecCodi = $med;
$rad->radiFechOfic = $fec;
$rad->radiNumeDeri = null;
$rad->radiPais = "{$pais}";
$rad->descAnex = $ane;
$rad->raAsun = substr(htmlspecialchars(stripcslashes($asu)), 0, 349);
$rad->radiDepeRadi = $dependencia;
$rad->radiDepeActu = $dependencia;
$rad->radiUsuaActu = $codusuario;
$rad->trteCodi = 0;
if (!$tdocumental) {
$tdocumental = 0;
}
$rad->tdocCodi = $tdocumental;
if (!$tip_doc) {
$tip_doc = 0;
}
$rad->tdidCodi = $tip_doc;
$rad->nofolios = 1;
$rad->noanexos = 0;
$rad->carpCodi = 5;
$rad->carpPer = 1;
$rad->trteCodi = 0;
$rad->ra_asun = $asu;
$rad->sgd_apli_codi = 0;
$rad->radiPath = '';
$codTx = 2;
$flag = 1;
$tpDepeRad = $_SESSION["tpDepeRad"];
$nurad = $rad->newRadicado($tipoRad, $tpDepeRad[$tipoRad]);
$this->radarray[] = $nurad;
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);
$nombre_us12 = trim($nombre_us12);
$direccion_us12 = trim($direccion_us12);
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, $codigo_depto, $codigo_muni);
$tipo_emp_us1 = 0;
$documento_us1 = $codigo_us;
}
//copia
if ($tip_doc2 == 2) {
$codigo_us2 = $this->btt->grabar_usuario($doc_us12, $nombre_us12, $direccion_us12, $prim_apell_us12, $seg_apell_us12, $telefono_us12, $mail_us12, $codigo_depto2, $codigo_muni2);
$tipo_emp_us12 = 0;
$documento_us12 = $codigo_us2;
}
if ($tip_doc == 1) {
$codigo_oem = $this->arregloOem[$nombre_us1];
//Agregada 24 Noviembre por Lucia Ojeda
if (!$codigo_oem > 0) {
//Agregada 24 Noviembre por Lucia Ojeda
$codigo_oem = $this->btt->grabar_oem($doc_us1, $nombre_us1, $direccion_us1, $prim_apell_us1, $seg_apell_us1, $telefono_us1, $mail_us1, $codigo_depto, $codigo_muni);
}
$tipo_emp_us1 = 2;
$documento_us1 = $codigo_oem;
}
//copia
if ($tip_doc2 == 1) {
$codigo_oem2 = $this->arregloOem[$nombre_us12];
if (!$codigo_oem2 > 0) {
$codigo_oem2 = $this->btt->grabar_oem($doc_us12, $nombre_us12, $direccion_us12, $prim_apell_us12, $seg_apell_us12, $telefono_us12, $mail_us12, $codigo_depto2, $codigo_muni2);
}
$tipo_emp_us12 = 2;
$documento_us12 = $codigo_oem2;
}
if ($tip_doc == 0) {
$sgd_esp_codigo = $this->arregloEsp[$nombre_us1];
$tipo_emp_us1 = 1;
$documento_us1 = $sgd_esp_codigo;
}
//copia
if ($tip_doc2 == 0) {
$sgd_esp_codigo2 = $this->arregloEsp[$nombre_us12];
$tipo_emp_us12 = 1;
$documento_us12 = $sgd_esp_codigo2;
}
$documento_us2 = "";
$documento_us3 = "";
$cc_documento_us1 = "documento";
$grbNombresUs1 = trim($nombre_us1) . " " . trim($prim_apel_us1) . " " . trim($seg_apel_us1);
//copia
$documento_us22 = "";
$documento_us32 = "";
$cc_documento_us12 = "documento";
$grbNombresUs12 = trim($nombre_us12) . " " . trim($prim_apel_us12) . " " . trim($seg_apel_us12);
$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;
if (empty($this->radi_nume_grupo)) {
$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 = mb_substr(trim($nombre_us), 0, 100, 'UTF-8');
$direccion_us1 = mb_substr(trim($direccion_us1), 0, 200, 'UTF-8');
$isql = "INSERT INTO SGD_RENV_REGENVIO (\n USUA_DOC, \n SGD_RENV_CODIGO, \n SGD_FENV_CODIGO, \n SGD_RENV_FECH,\n RADI_NUME_SAL, \n SGD_RENV_DESTINO, \n SGD_RENV_TELEFONO, \n SGD_RENV_MAIL, \n SGD_RENV_PESO, \n SGD_RENV_VALOR,\n SGD_RENV_CERTIFICADO, \n SGD_RENV_ESTADO, \n SGD_RENV_NOMBRE, \n SGD_DIR_CODIGO, \n DEPE_CODI, \n SGD_DIR_TIPO,\n RADI_NUME_GRUPO, \n SGD_RENV_PLANILLA, \n SGD_RENV_DIR, \n SGD_RENV_PAIS, \n SGD_RENV_DEPTO, \n SGD_RENV_MPIO,\n SGD_RENV_TIPO, \n SGD_RENV_OBSERVA,\n SGD_DEPE_GENERA)\n VALUES\n ({$usua_doc}, \n {$nextval}, \n 0, \n " . $this->btt->sqlFechaHoy . ", \n {$nurad}, \n '{$muni_nomb}', \n '{$telefono_us1}', \n '{$mail}','',\n '{$valor_unit}', \n 0, \n 1, \n '{$nombre_us}', \n NULL, \n {$dependencia}, \n '{$dir_tipo}', \n " . $this->radi_nume_grupo . ", \n '00',\n '{$direccion_us1}', \n '{$pais}',\n '{$dpto_nombre}', \n '{$muni_nombre}', \n 1, \n 'Masiva grupo " . $this->radi_nume_grupo . "',\n {$dependencia}) ";
$rs = $this->conexion->query($isql);
if (!$rs) {
$this->conexion->conn->RollbackTrans();
die("<span class='etextomenu'>No se ha \n podido insertar la informacion en SGD_RENV_REGENVIO:1");
}
// En esta parte registra el envio en la tabla SGD_RENV_REGENVIO para
// la direccion 2
if ($dir2) {
$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;
$dep_radicado = substr($verrad_sal, 4, 3);
$carp_codi = substr($dep_radicado, 0, 2);
$dir_tipo = 1;
$nombre_us = substr(trim($nombre_us2), 0, 29);
$direccion_us12 = substr(trim($direccion_us12), 0, 29);
$isql = "INSERT INTO SGD_RENV_REGENVIO (\n USUA_DOC, \n SGD_RENV_CODIGO, \n SGD_FENV_CODIGO, \n SGD_RENV_FECH,\n RADI_NUME_SAL, \n SGD_RENV_DESTINO, \n SGD_RENV_TELEFONO, \n SGD_RENV_MAIL, \n SGD_RENV_PESO, \n SGD_RENV_VALOR,\n SGD_RENV_CERTIFICADO, \n SGD_RENV_ESTADO, \n SGD_RENV_NOMBRE, \n SGD_DIR_CODIGO, \n DEPE_CODI, \n SGD_DIR_TIPO,\n RADI_NUME_GRUPO, \n SGD_RENV_PLANILLA, \n SGD_RENV_DIR, \n SGD_RENV_PAIS, \n SGD_RENV_DEPTO, \n SGD_RENV_MPIO,\n SGD_RENV_TIPO, \n SGD_RENV_OBSERVA,\n SGD_DEPE_GENERA)\n VALUES\n ({$usua_doc}, \n {$nextval}, \n 0, \n " . $this->btt->sqlFechaHoy . ", \n {$nurad}, \n '{$muni_nomb}', \n '{$telefono_us1}', \n '{$mail}',\n '',\n '{$valor_unit}', \n 0, \n 1, \n '{$nombre_us}', \n NULL, \n {$dependencia}, \n '{$dir_tipo}', \n " . $this->radi_nume_grupo . ", \n '00',\n '{$direccion_us1}', \n '{$pais}',\n '{$dpto_nombre}', \n '{$muni_nombre}', \n 1, \n 'Masiva grupo " . $this->radi_nume_grupo . "',\n {$dependencia}) ";
$rs = $this->conexion->query($isql);
if (!$rs) {
$this->conexion->conn->RollbackTrans();
die("<span class='etextomenu'>No se ha podido isertar la informacion en SGD_RENV_REGENVIO :2");
}
}
/*
* Registro de la clasificacion TRD
*/
$isql = "INSERT INTO SGD_RDF_RETDOCF(\n USUA_DOC, \n SGD_MRD_CODIGO, \n SGD_RDF_FECH, \n RADI_NUME_RADI, \n DEPE_CODI, \n USUA_CODI)\n VALUES({$usua_doc}, \n {$codiTRD},\n " . $this->btt->sqlFechaHoy . ", \n {$nurad}, \n '{$dependencia}', \n {$codusuario} )";
$rs = $this->conexion->query($isql);
if (!$rs) {
$this->conexion->conn->RollbackTrans();
die("<span class='etextomenu'>No se ha podido isertar la informaci&ocute;n en SGD_RENV_REGENVIO");
}
$contador = $ii + 1;
echo "\n <tr>\n <td class='listado2'> {$contador} </td>\n <td class='listado2'> {$nurad} </td>\n <td class='listado2'> {$nombre_us} </td>\n <td class='listado2'> {$direccion_us1} </td>\n <td class='listado2'> {$dpto_nombre}</td>\n <td class='listado2'> {$muni_nombre}</td>\n <td class='listado2'> {$numeroExpediente} </td>\n </tr>";
if ($dir2) {
echo "\n <tr>\n <td class='listado2'>{$contador} cc</td>\n <td class='listado2'></td>\n <td class='listado2'>{$nombre_us2}</td>\n <td class='listado2'>{$direccion_us12}</td>\n <td class='listado2'>{$dpto_nombre2}</td>\n <td class='listado2'>{$muni_nombre2}</td>\n <td class='listado2'>{$numeroExpediente2}</td>\n </tr>";
}
if (connection_status() != 0) {
echo "<h1>Error de conexión</h1>";
$objError = new CombinaError(NO_DEFINIDO);
echo $objError->getMessage();
die;
}
$nombre_us = $this->presentacion($nombre_us);
$direccion_us1 = $this->presentacion($direccion_us1);
$dpto_nombre = $this->presentacion($dpto_nombre);
$muni_nombre = $this->presentacion($muni_nombre);
$nombre_us2 = $this->presentacion($nombre_us2);
$direccion_us12 = $this->presentacion($direccion_us12);
$dpto_nombre2 = $this->presentacion($dpto_nombre2);
$muni_nombre2 = $this->presentacion($muni_nombre2);
$data = array_merge($data, array(array('#' => $contador, 'Radicado' => $nurad, 'Nombre' => $nombre_us, 'Direccion' => $direccion_us1, 'Departamento' => $dpto_nombre, 'Municipio' => $muni_nombre)));
if ($dir2) {
$contador++;
$data = array_merge($data, array(array('#' => $contador, 'Radicado' => $nurad, 'Nombre' => $nombre_us2, 'Direccion' => $direccion_us12, 'Departamento' => $dpto_nombre2, 'Municipio' => $muni_nombre2)));
}
$arrRadicados[] = $nurad;
}
$queryUpdate = "update SGD_MASIVA_EXCEL set SGD_MASIVA_RADICADA = 1 where '{$nurad}' in ( SGD_MASIVA_RANGOINI , SGD_MASIVA_RANGOFIN ) AND SGD_MASIVA_DEPENDENCIA = {$dependencia}";
$rs = $this->conexion->query($queryUpdate);
if (!$rs) {
$this->conexion->conn->RollbackTrans();
die("<span class='etextomenu'>No se ha podido insertar la información de la secuencia '{$nurad}' con: {$queryUpdate}");
}
fclose($fp);
echo "</table>";
echo "<span class='info'>Numero 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);
$objHist->insertarHistorico($arrRadicados, $dependencia, $codusuario, $dependencia, $codusuario, "Radicado insertado del grupo de masiva {$radi_nume_grupo}", 30);
$this->resulComb = $data;
$fileExito = "{$ruta_raiz}/" . $this->carpetaBodega . "masiva/{$archInsumo}.ok";
$fp = fopen($fileExito, 'wb');
fwrite($fp, "Exito");
fclose($fp);
} else {
exit("No se pudo crear el archivo {$this->archivo_insumo}");
}
}
$rad->trteCodi = $tip_rem;
$rad->tdocCodi = $tdoc;
$rad->tdidCodi = $tip_doc;
$rad->carpCodi = $carp_codi;
$rad->carPer = $carp_per;
$rad->trteCodi = $tip_rem;
$rad->ra_asun = htmlspecialchars(stripcslashes($asu));
// HLP Este si sirve? Para radicar se utiliza la variable $rad->raAsun (linea 1342)
$rad->radiPath = 'null';
if (strlen(trim($aplintegra)) == 0) {
$aplintegra = 0;
}
$rad->sgd_apli_codi = $aplintegra;
$codTx = 2;
$flag = 1;
$noRad = $rad->newRadicado($ent, $tpDepeRad[$ent], $fecha_radicacion);
if ($noRad == '-1') {
die("<hr><b><font color=red><center>Error no genero un Numero de Secuencia o Inserto el radicado<br>SQL </center></font></b><hr>");
}
if (!$noRad) {
echo "<hr>RADICADO GENERADO <HR>{$noRad}<hr>";
}
$radicadosSel[0] = $noRad;
$hist->insertarHistorico($radicadosSel, $dependencia, $codusuario, $coddepe, $radi_usua_actu, " ", $codTx);
$nurad = $noRad;
echo "<INPUT TYPE=HIDDEN NAME=nurad value={$nurad}>";
echo "<INPUT TYPE=HIDDEN NAME=flag value={$flag}>";
if ($noRad) {
$var_envio = session_name() . "=" . session_id() . "&faxPath&leido=no&krd={$krd}&verrad={$nurad}&ent={$ent}";
?>
</p><center><img src='../iconos/img_alerta_2.gif'><font face='Arial' size='3'><b>
