$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>