![]() |
|
![]() |
Proceso
de verificación de la información... |
||
";
}
if ($err4==1) {
?>
Señor(a), se ha producido un error:
";
}
if ($err5==1) {
?>
Señor(a), se ha producido un error:
|
||
Proceso de creaciòn y radicación de la queja o reclamo... | ||
Señor(a) , se ha producido un error: No se pudo crear la queja porque...no se pudo buscar si su identificacion estaba registrada, "; }else{ //echo "es ahi"; while (OCIFetchInto($stmt, $value)) { $nextel = $value[0]; $in1++; } } }else{ $in1 = 0; } //echo $nombre; //echo $in1; //echo $nextel; if ($in1 == 0 and $nombre != "ANONIMO") { //echo "sipasa"; $stmt = ociparse($c1,"select esq_contacto.nextval from dual"); $result = OCIExecute($stmt); while (OCIFetchInto($stmt, $cur)) { $nextel = $cur[0]; //echo $nextel; } if ($id == "00000000") { require('conexion3.php'); $datos = $nombre . $id . $direccion . $telefono; $query ="INSERT INTO con_cons VALUES('','$datos')"; $result = mysql_query($query,$db); $id=mysql_insert_id(); $id = "A" . $id; } $stmt = ociparse($c1, "Insert Into contacto (contacto_id,nombre,direccion,telefono,identificacion) values ($nextel,'$nombre','$direccion','$telefono','$id')"); $result = OCIExecute($stmt); if ($result == false) { echo "Fallo al ingresar el Contacto:"; echo OCIError($stmt); $err10==1; }else{ ?> Señor(a) , Ya que sus datos, no estaban registrados en nuestro sistema de contactos, se creo correctamente un registro a su nombre. Señor(a) , se ha producido un error: No se pudo crear la queja porque...no se pudo obtener el consecutivo, "; $err11=1; }else{ while (OCIFetchInto($stmt, $value)) { foreach ($value as $val) { //$val++; $pn = $year . "ER" . $val; } }} // $val es el número solo y $pn es el número con el año y el indicador de si es externa o interna. $stmt = ociparse($c1,"SELECT OBJETO_DESC, TIPO_DESC, CODIGO, INFRACCION_ID FROM SIA_INFRACCION where INFRACCION_ID=$clase"); $result = OCIExecute($stmt); while (OCIFetchInto($stmt, $cur)) { $un = $cur[0]; $do = $cur[1]; $tr = $cur[3]; $st = $un . "-" . $do; } if ($err11 == 0) { $as1 = "W" . $st; $as = "Queja o Reclamo via Web de clase: " . $st . " Direccion: " . $dirinfra; // A partir del número elegido, se inserta un nuevo registro en la base de correspondencia. $stmt = ociparse($c1,"Insert Into COR_DOCUMENTO (CODIGO_DOCUMENTO ,VIGENCIA ,EXTERNA_INTERNA ,ENVIADA_RECIBIDA ,FECHA ,ASUNTO ,TIPO_DOCUMENTO ,DEPENDENCIA_DESTINO ,FUNCIONARIO_DESTINO ,FOLIOS_DOCUMENTOS ,NUMERO ,PERSONA_ORIGEN ,USUARIO ,OBSERVACIONES ,SIA ,ENTIDAD_ORIGEN ) VALUES ($val, '$year', 'E', 'R', SYSDATE, '$as', 'SAQ', 53, 568, 1, '$pn', '$nextel', '$usuario', '$observaciones', 'S', 2)"); $result = OCIExecute($stmt); if ($result == false) { ?>Señor(a) , se ha producido un error: No se pudo crear la queja porque...no se pudo ingresar el registro en nuestro sistema de correspondencia, "; $err12=1; } if ($err12 == 0) { $stmt = ociparse($c1,"update binconsecutivo set secuencial=$val WHERE grupo = 'COR' AND nombre = 'COR_DOCUMENTO' AND vigencia = '$year' AND codigo_compania = 1 AND codigo_unidad_ejecutora = 'ER'"); $result = OCIExecute($stmt); if ($result == false) { ?>Señor(a) , se ha producido un error: No se pudo crear la queja porque...no se pudo actualizar el consecutivo, "; $err13=1; } if ($err13 == 0) { // Se consulta el consecutivo en el SIA $stmt = Ociparse($c1, "SELECT ESQ_DOCUMENTO.NEXTVAL FROM DUAL"); $result = OCIExecute($stmt); if ($result == false) { ?>Señor(a) , se ha producido un error: No se pudo crear la queja porque...no se pudo obtener el consecutivo del SIA, "; $err14=1; }else{ while (OCIFetchInto($stmt, $value1)) { foreach ($value1 as $val1) { $radSIA = $val1; } }} if ($err14 == 0) { // Se inserta el registro en el SIA $stmt = Ociparse($c1, "INSERT INTO ENVISTA.DOCUMENTO (DOCUMENTO_ID,NUMERO,NOMBRE,DESCRIPCION,FOLIOS,NUMERO_RADICADO, FECHA_EXPEDIDO,ACTIVO,TIPO,EXTERNA_INTERNA,ENVIADA_RECIBIDA,INGRESADO_POR,INGRESADO_FECHA_HORA,TIPO_OPERACION,CLASE_ARENDAMIENTO) VALUES ($radSIA,'$pn','$as1','$observaciones',1,'$pn',SYSDATE,1,'SAQ','E','R','EMAIL',SYSDATE,'Q','M')"); $result = OCIExecute($stmt); // Seleccionar el id del contacto para el que va la queja... $stmta = Ociparse($c1, "SELECT ESQ_CONTACTO_DOCUMENTO.NEXTVAL FROM DUAL"); $result = OCIExecute($stmta); while (OCIFetchInto($stmta, $cur)) { $secuencia = $cur[0]; } // Se inserta la relacion del contacto. $stmt = Ociparse($c1, "INSERT INTO ENVISTA.CONTACTO_DOCUMENTO (CONDOCUMENTO_ID, CONTACTO_ID, DOCUMENTO_ID, ROL, INGRESADO_POR, INGRESADO_FECHA_HORA) VALUES ($secuencia,568,'$radSIA','E','$usuario',SYSDATE)"); $result = OCIExecute($stmt); // Seleccionar el id del contacto que pone la queja... $stmta = Ociparse($c1, "SELECT ESQ_CONTACTO_DOCUMENTO.NEXTVAL FROM DUAL"); $result = OCIExecute($stmta); while (OCIFetchInto($stmta, $cur)) { $secuencia = $cur[0]; } // Se inserta el registro en el SIA $stmt = Ociparse($c1, "INSERT INTO ENVISTA.CONTACTO_DOCUMENTO (CONDOCUMENTO_ID, CONTACTO_ID, DOCUMENTO_ID, ROL, INGRESADO_POR, INGRESADO_FECHA_HORA) VALUES ($secuencia,'$nextel','$radSIA','A','$usuario',SYSDATE)"); $result = OCIExecute($stmt); if ($result == false) { ?>Señor(a) , se ha producido un error: No se pudo crear la queja porque...no se pudo generar el registro en el SIA, "; }else{ // $stmtf = Ociparse($c1, "SELECT ESQ_DOCUMENTO_OBJETO.NEXTVAL FROM DUAL"); $result = OCIExecute($stmtf); while (OCIFetchInto($stmtf, $curf)) { $secuenciaf = $curf[0]; } $stmt = Ociparse($c1, "INSERT INTO ENVISTA.DOCUMENTO_OBJETO ( DOCOBJ_ID, DOCUMENTO_ID, EO_ID, ROL, INGRESADO_POR, INGRESADO_FECHA_HORA) VALUES ('$secuenciaf','$radSIA',2,'EMI','EMAIL',SYSDATE)"); $result = OCIExecute($stmt); $stmt = Ociparse($c1, "INSERT INTO COR_QUEJA (NUMERO,ITEM,INFRACCION_ID,DIRECCION,LOCALIDAD_ID,BARRIO,OBSERVACION,INFRACTOR) VALUES ('$pn',1,$clase,'$dirinfra',$localidad,$barrio,'$observaciones','$razoninfra')"); $result = OCIExecute($stmt); if ($result == false) { ?>Señor(a) , se ha producido un error: No se pudo crear la queja porque...no se pudo generar el registro complementario de la queja, "; }else{ ?>Gracias,
Queja o Reclamo radicado correctamente, |
||
|
Todos
los Derechos Reservados para el DAMA. |