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,
Su Número de Radicado para la verificación de su proceso
es: