";
$err=1;
}
if ($objeto == "") {
echo "Error: El objeto del CDP que usted ingreso no es valido.
";
$err=1;
}
if ($valor == "" or $valor == 0) {
echo "Error: El valor del CDP que usted ingreso no es valido.
";
$err=1;
}
if ($valor != $total) {
echo "Error: El valor del CDP que usted ingreso no corresponde con el total asignado a las metas que apunta.
";
$err=1;
}
if ($valor > $money) {
echo "Error: El valor del CDP que usted ingreso es mayor que el saldo de la actividad.
";
$err=1;
}
$sum1 = 0;
foreach ($meta as $value) {
$sum1 = $sum1 + $value;
}
if ($sum1 == 0) {
echo "Error: Usted no ha asignado a ninguna meta su CDP.
";
$err=1;
}
$in = 1;
$sum2 = 0;
foreach ($meta as $value) {
if ($value == 0) {
$val[$in] = 0;
}
$sum2 = $sum2 + $val[$in];
$in++;
}
//echo $sum2;
if ($sum2 != $valor) {
echo "Error: La sumatoria de los valores atados a las metas validas a las que apunta en el plan de desarrollo es diferente al valor suministrado.
";
$err=1;
}
if ($err == 0) {
///////////////////////////////////// Comenzar el Insert
// 1. Obtener secuencia del documento
require('conexion2.php');
$stmt = ociparse($c1,"SELECT nvl(max(secuencial),0) + 1 FROM binconsecutivo WHERE grupo = 'DOC' AND nombre = 'SCD' AND vigencia = '$vigencia' AND codigo_compania = 1 AND codigo_unidad_ejecutora = 'IE'");
$result = OCIExecute($stmt);
if ($result == false) {
$err=1;
echo "No ha sido posible asignar un número de documento, por favor reintente.";
}else{
while (OCIFetchInto($stmt, $value)) {
foreach ($value as $sec34)
{
$pn = $vigencia . "SCD" . $sec34;
}
}
$stmt = ociparse($c1,"update binconsecutivo
set secuencial=$sec34
WHERE grupo = 'DOC' AND
nombre = 'SCD' AND
vigencia = '$vigencia' AND
codigo_compania = 1 AND
codigo_unidad_ejecutora = 'IE'");
$result = OCIExecute($stmt);
}
//echo $pn;
////////////////////////
// 2. Obtener secuencia del documento a insertar
if ($err==0) {
$stmt = ociparse($c1,"select esq_documento.nextval from dual");
$result = OCIExecute($stmt);
if ($result == false) {
$err=1;
echo "No ha sido posible obtener un número de secuencia para el documento en correspondencia, por favor intente de nuevo";
}else{
while (OCIFetchInto($stmt, $cur)) {
$nextel = $cur[0];
}}
//echo $nextel;
/////////////////////////
// 3. Insertar el documento en Correspondencia
if ($err==0) {
// 3.1 Validar Objeto
$descripcion = substr($objeto, 0, 900);
$descripcion = "Generado desde Planeación: (CDP) " . $descripcion;
// 3.2 Obtener Vencimiento
require('vence.php');
$stmt = ociparse($c1,"Insert Into ENVISTA.DOCUMENTO
(DOCUMENTO_ID
,NUMERO
,NOMBRE
,TIPO
,DESCRIPCION
,FECHA_EXPEDIDO
,FECHA_VENCE
,FOLIOS
,FECHA_RADICADO
,ACTIVO
,NUMERO_RADICADO
,EXTERNA_INTERNA
,ENVIADA_RECIBIDA
)
VALUES
($nextel,
'$pn',
'Solicitud de Certificado de Disponibilidad Presupuestal (CDP)',
'SCD',
'$descripcion',
SYSDATE,
'$future',
1,
SYSDATE,
1,
'$pn',
'I',
'E')");
$result = OCIExecute($stmt);
if ($result == false) {
$err=1;
echo "No ha sido posible insertar el documento en Correspondencia, por favor intente de nuevo";
}
///////////////////////////////////////////////////
// 4. Sacar Id para encabezado
if ($err==0) {
$stmt = ociparse($c1,"select esq_plan_cdp_enc.nextval from dual");
$result = OCIExecute($stmt);
if ($result == false) {
$err=1;
echo "No ha sido posible obtener un número de secuencia para el encabezado del CDP, por favor intente de nuevo.";
}else{
while (OCIFetchInto($stmt, $cur)) {
$id_enc = $cur[0];
}
//echo $id_enc;
}
///////////////////////////////////////////////////
// 5. Insertar encabezado
if ($err==0) {
if ($mes == 1) {
$lmes = "Jan";
}
if ($mes == 2) {
$lmes = "Feb";
}
if ($mes == 3) {
$lmes = "Mar";
}
if ($mes == 4) {
$lmes = "Apr";
}
if ($mes == 5) {
$lmes = "May";
}
if ($mes == 6) {
$lmes = "Jun";
}
if ($mes == 7) {
$lmes = "Jul";
}
if ($mes == 8) {
$lmes = "Aug";
}
if ($mes == 9) {
$lmes = "Sep";
}
if ($mes == 10) {
$lmes = "Oct";
}
if ($mes == 11) {
$lmes = "Nov";
}
if ($mes == 12) {
$lmes = "Dec";
}
if ($ano == 2004) {
$anov = "04";
}
if ($ano == 2005) {
$anov = "05";
}
if ($ano == 2006) {
$anov = "06";
}
if ($ano == 2007) {
$anov = "07";
}
if ($ano == 2008) {
$anov = "08";
}
$fechaini = $dia . "/" . $mes . "/" . $anov;
$f = date("d/m/y");
$stmt = ociparse($c1,"Insert Into ENVISTA.PLAN_CDP_ENC
(PLAN_CDP_ENC_ID
,OBJETIVO
,ESTADO
,PLAN_ACTIVIDADES_ID
,PLAN_CATEGORIAS_ID
,DOCUMENTO_ID
,INGRESADO_POR
,INGRESADO_FECHA_HORA
,ACTUALIZADO_POR
,ACTUALIZADO_FECHA_HORA
,PLAN_PRESUPUESTO_ID
,DURACION
,FECHA_INICIO
)
VALUES
($id_enc,
'$objeto',
'P',
$actividad,
$categoria,
$nextel,
'$user',
SYSDATE,
'$user',
SYSDATE,
$presupuesto,
$duracion,
'$fechaini')");
$result = OCIExecute($stmt);
if ($result == false) {
$err=1;
echo "No ha sido posible insertar el encabezado del CDP, por favor intente de nuevo";
}
////////////////////////////
// 6. Funcion de grabado del detalle
if ($err==0) {
$i = 1;
foreach ($meta as $value) {
// 6.1 Obtencion del ID
$price = $val[$i];
if ($price != 0) {
$stmt = ociparse($c1,"select esq_plan_cdp_det.nextval from dual");
$result = OCIExecute($stmt);
if ($result == false) {
$err=1;
}else{
while (OCIFetchInto($stmt, $cur)) {
$id_det = $cur[0];
// 6.1.1 Guardar cada meta en el detalle
$stmt1 = ociparse($c1,"Insert Into ENVISTA.PLAN_CDP_DET
(PLAN_CDP_DET_ID
,PLAN_CDP_ENC_ID
,PLAN_METAS_ID
,VALOR
,INGRESADO_POR
,INGRESADO_FECHA_HORA
,ACTUALIZADO_POR
,ACTUALIZADO_FECHA_HORA
)
VALUES
($id_det,
$id_enc,
$value,
$price,
'$user',
SYSDATE,
'$user',
SYSDATE)");
$result1 = OCIExecute($stmt1);
// End 6.11
}}
$i++;
}
}
// 7. Presentacion de resultados
if ($err==0) {
?>
CDP,
Certificado de Disponibilidad Presupuestal |
Ok,
se agregó el CDP con los siguientes DATOS: |
| Solicitado
por: |
Dependencia:
|
| Objeto:
|
|
|
| Valor:
$ |
|
| Actividad: |
|
|
| Proyecto: |
|
|
- |
|
| Solicitó: |
Autorizó: |
| ___________________________ |
___________________________ |
|
Oficina
Asesora de Planeación |
