";
print "
";
print "| Presupuestaria | ";
print "".$arr["nomestpro1"]." | ";
print "".$arr["nomestpro2"]." | ";
print "".$arr["nomestpro3"]." | ";
if($li_estmodest==2)
{
print "".$arr["nomestpro4"]." | ";
print "".$arr["nomestpro5"]." | ";
}
print "Denominación | ";
print "Contable | ";
if ($ls_estmodprog==0)
{
print "Disponible | ";
}
else
{
$fecha = date("d/m/Y");
$ano=substr($arr["periodo"],0,4);
$mes1=substr($fecha,3,2);
if ($ls_estmodape==0)
{
switch ($mes1)
{
case "01":
$mes_="Enero";
break;
case "02":
$mes_="Febrero";
break;
case "03":
$mes_="Marzo";
break;
case "04":
$mes_="Abril";
break;
case "05":
$mes_="Mayo";
break;
case "06":
$mes_="Junio";
break;
case "07":
$mes_="Julio";
break;
case "8":
$mes_="Agosto";
break;
case "9":
$mes_="Septiembre";
break;
case "10":
$mes_="Octubre";
break;
case "11":
$mes_="Noviembre";
break;
case "12":
$mes_="Diciembre";
break;
}
print "Disponible $mes_ | ";
}
else
{
switch ($mes1)
{
case "01":
$mes_="Enero-Marzo";
break;
case "02":
$mes_="Enero-Marzo";
break;
case "03":
$mes_="Enero-Marzo";
break;
case "04":
$mes_="Abril-Junio";
break;
case "05":
$mes_="Abril-Junio";
break;
case "06":
$mes_="Abril-Junio";
break;
case "07":
$mes_="Julio-Septiembre";
break;
case "8":
$mes_="Julio-Septiembre";
break;
case "9":
$mes_="Julio-Septiembre";
break;
case "10":
$mes_="Octubre-Diciembre";
break;
case "11":
$mes_="Octubre-Diciembre";
break;
case "12":
$mes_="Octubre-Diciembre";
break;
}
print "Disponible Trimestre $mes_ | ";
}
}
print "
";
if($ls_operacion=="BUSCAR")
{
$ls_estmodprog=$arr["estmodprog"];// si esta configurado para realizar la modificaciòn al monto programado
if($ls_opera=="DI")
{
$ls_cadena="AND spg_cuenta like '498%' ";
}
else
{
$ls_cadena=" ";
}
$li_validacion = "";
$ls_ctaspgrec = "";
$ls_ctaspgced = "";
$ls_cadenaval = "";
$ls_cuentas = "";
$io_validacion->uf_obtener_validacion_spg($as_codemp,$li_validacion,$ls_ctaspgrec,$ls_ctaspgced);
if($li_validacion == 1)
{
if(($ls_procede == "SPGTRA")&&($ls_opeaumdis == "AU"))
{
$ls_cuentas = str_replace(",","",$ls_ctaspgrec);
$la_cuenta = str_split($ls_cuentas,3);
$li_total = count($la_cuenta);
for($i=0;$i<$li_total;$i++)
{
if ($i ==0)
{
$ls_cadenaval = " AND substr(spg_cuenta,1,3) IN('".$la_cuenta[$i]."'";
}
else
{
$ls_cadenaval = $ls_cadenaval.",'".$la_cuenta[$i]."'";
}
}
$ls_cadenaval = $ls_cadenaval.")";
}
elseif(($ls_procede == "SPGTRA")&&($ls_opeaumdis == "DI"))
{
$ls_cuentas = str_replace(",","",$ls_ctaspgced);
$la_cuenta = str_split($ls_cuentas,3);
$li_total = count($la_cuenta);
for($i=0;$i<$li_total;$i++)
{
if ($i ==0)
{
$ls_cadenaval = " AND substr(spg_cuenta,1,3) IN('".$la_cuenta[$i]."'";
}
else
{
$ls_cadenaval = $ls_cadenaval.",'".$la_cuenta[$i]."'";
}
}// fin del for
$ls_cadenaval = $ls_cadenaval.")";
}
}
$ls_logusr = $_SESSION["la_logusr"];
$ls_gestor = $_SESSION["ls_gestor"];
$ls_sql_seguridad = "";
if (strtoupper($ls_gestor) == "MYSQLT")
{
$ls_sql_seguridad = " AND CONCAT('".$as_codemp."','SPG','".$ls_logusr."',codestpro1,codestpro2,codestpro3,codestpro4,codestpro5,estcla) IN (SELECT distinct CONCAT(codemp,codsis,codusu,codintper)
FROM sss_permisos_internos WHERE codusu = '".$ls_logusr."' AND codsis = 'SPG' AND enabled=1) ";
}
else
{
$ls_sql_seguridad = " AND '".$as_codemp."'||'SPG'||'".$ls_logusr."'||codestpro1||codestpro2||codestpro3||codestpro4||codestpro5||estcla IN (SELECT distinct codemp||codsis||codusu||codintper
FROM sss_permisos_internos WHERE codusu = '".$ls_logusr."' AND codsis = 'SPG' AND enabled=1) ";
}
if ($ls_estmodprog==0)// se utiliza el monto asignado
{
if($li_estmodest==2)
{
$ls_estpro1=$fun->uf_cerosizquierda($ls_estpro1,25);
$ls_estpro2=$fun->uf_cerosizquierda($ls_estpro2,25);
$ls_estpro3=$fun->uf_cerosizquierda($ls_estpro3,25);
$ls_estpro4=$fun->uf_cerosizquierda($ls_estpro4,25);
$ls_estpro5=$fun->uf_cerosizquierda($ls_estpro5,25);
$ls_sql =" SELECT *,(asignado-(comprometido+precomprometido)+aumento-disminucion) as disponible ".
" FROM spg_cuentas ".
" WHERE codemp = '".$as_codemp."' AND spg_cuenta like '".$ls_codigo."' AND ".
" denominacion like '".$ls_denominacion."' AND sc_cuenta like '".$ls_codscg."' AND ".
" codestpro1 = '".$ls_estpro1."' AND codestpro2 = '".$ls_estpro2."' AND ".
" codestpro3 = '".$ls_estpro3."' AND codestpro4 = '".$ls_estpro4."' AND ".
" codestpro5 = '".$ls_estpro5."' AND estcla='".$ls_estcla."' ".$ls_cadena." ".$ls_sql_seguridad.$ls_cadenaval.
" ORDER BY spg_cuenta";
}
else
{
$ls_estpro1=$fun->uf_cerosizquierda($ls_estpro1,25);
$ls_estpro2=$fun->uf_cerosizquierda($ls_estpro2,25);
$ls_estpro3=$fun->uf_cerosizquierda($ls_estpro3,25);
$ls_sql =" SELECT *,(asignado-(comprometido+precomprometido)+aumento-disminucion) as disponible ".
" FROM spg_cuentas ".
" WHERE codemp = '".$as_codemp."' AND spg_cuenta like '".$ls_codigo."' AND ".
" denominacion like '".$ls_denominacion."' AND sc_cuenta like '".$ls_codscg."' AND ".
" codestpro1 = '".$ls_estpro1."' AND codestpro2 = '".$ls_estpro2."' AND ".
" codestpro3 = '".$ls_estpro3."' AND estcla='".$ls_estcla."' ".$ls_cadena." ".$ls_sql_seguridad.$ls_cadenaval.
" ORDER BY spg_cuenta";
}
$rs_data = $io_sql->select($ls_sql);
//echo $ls_sql;
if ($rs_data==false)
{
$msg->message($fun->uf_convertirmsg($io_sql->message));
}
else
{
$li_numrows = $io_sql->num_rows($rs_data);
if ($li_numrows>0)
{
$ld_fecini=substr($arr["periodo"],0,4)."-01-01";
$ld_fecha = date("d/m/Y");
$ld_fecfin=$fun->uf_convertirdatetobd($ld_fecha);
while(!$rs_data->EOF)
{
$ls_spgcta = trim($rs_data->fields["spg_cuenta"]);
$ls_denctaspg =$rs_data->fields["denominacion"];
$ls_codestpro1 = substr($rs_data->fields["codestpro1"],-$li_loncodestpro1);
$ls_codestpro2 = substr($rs_data->fields["codestpro2"],-$li_loncodestpro2);
$ls_codestpro3 = substr($rs_data->fields["codestpro3"],-$li_loncodestpro3);
if ($li_estmodest==2)
{
$ls_codestpro4 = substr($rs_data->fields["codestpro4"],-$li_loncodestpro4);
$ls_codestpro5 = substr($rs_data->fields["codestpro5"],-$li_loncodestpro5);
}
$ls_scgcta = trim($rs_data->fields["sc_cuenta"]);
$ls_status = $rs_data->fields["status"];
$ld_mondis = 0;
$ls_aumento=0;
$ls_opera="aumento";
$ls_aumento=$io_buscar->uf_buscar_monto($ls_opera,$ld_fecini,$ld_fecfin,$rs_data->fields["codestpro1"],$rs_data->fields["codestpro2"],
$rs_data->fields["codestpro3"],$rs_data->fields["codestpro4"],$rs_data->fields["codestpro5"],$ls_estcla,$ls_spgcta);
$ls_disminucion=0;
$ls_opera="disminucion";
$ls_disminucion=$io_buscar->uf_buscar_monto($ls_opera,$ld_fecini,$ld_fecfin, $rs_data->fields["codestpro1"],$rs_data->fields["codestpro2"],
$rs_data->fields["codestpro3"],$rs_data->fields["codestpro4"],$rs_data->fields["codestpro5"],$ls_estcla,$ls_spgcta);
$ls_comprometer=0;
$ls_opera="comprometer";
$ls_comprometer=$io_buscar->uf_buscar_monto($ls_opera,$ld_fecini,$ld_fecfin, $rs_data->fields["codestpro1"],$rs_data->fields["codestpro2"],
$rs_data->fields["codestpro3"],$rs_data->fields["codestpro4"],$rs_data->fields["codestpro5"],$ls_estcla,$ls_spgcta);
$ls_precomprometer=0;
$ls_opera="precomprometer";
$ls_precomprometer=$io_buscar->uf_buscar_monto($ls_opera,$ld_fecini,$ld_fecfin, $rs_data->fields["codestpro1"],$rs_data->fields["codestpro2"],
$rs_data->fields["codestpro3"],$rs_data->fields["codestpro4"],$rs_data->fields["codestpro5"],$ls_estcla,$ls_spgcta);
$ld_mondis =($rs_data->fields["asignado"]+$ls_aumento)-($ls_disminucion+$ls_comprometer+$ls_precomprometer);
if ($li_estmodest==2)
{
if ($ls_status=="S")
{
print "
";
print "| ".$ls_spgcta." | ";
print "".$ls_codestpro1." | ";
print "".$ls_codestpro2." | ";
print "".$ls_codestpro3." | ";
print "".$ls_codestpro4." | ";
print "".$ls_codestpro5." | ";
print "".$ls_denctaspg." | ";
print "".$ls_scgcta." | ";
print "".number_format($ld_mondis,2,",",".")." | ";
}
else
{
print "
";
print "| ".$ls_spgcta." | ";
print "".$ls_codestpro1." | ";
print "".$ls_codestpro2." | ";
print "".$ls_codestpro3." | ";
print "".$ls_codestpro4." | ";
print "".$ls_codestpro5." | ";
print "".$ls_denctaspg." | ";
print "".$ls_scgcta." | ";
print "".number_format($ld_mondis,2,",",".")." | ";
}
print "
";
}
else
{
if ($ls_status=="S")
{
print "
";
print "| ".$ls_spgcta." | ";
print "".$ls_codestpro1." | ";
print "".$ls_codestpro2." | ";
print "".$ls_codestpro3." | ";
print "".$ls_denctaspg." | ";
print "".$ls_scgcta." | ";
print "".number_format($ld_mondis,2,",",".")." | ";
}
else
{
print "
";
print "| ".$ls_spgcta." | ";
print "".$ls_codestpro1." | ";
print "".$ls_codestpro2." | ";
print "".$ls_codestpro3." | ";
print "".$ls_denctaspg." | ";
print "".$ls_scgcta." | ";
print "".number_format($ld_mondis,2,",",".")." | ";
}
print "
";
}
$rs_data->MoveNext();
}
$io_sql->free_result($rs_data);
$io_sql->close();
}
else
{
?>
uf_convertirdatetobd($fecha);
}
else
{
switch ($mes)
{
case "01":
$ls_mes="marzo";
$fecIni=$ano."-01-01";// primer mes del I Trimestre
$diames=$io_fecha->uf_last_day(3,$ano);// ultimo mes del I trimestre
$fechaFinal=$diames;
break;
case "02":
$ls_mes="marzo";
$fecIni=$ano."-01-01";
$diames=$io_fecha->uf_last_day(3,$ano);// ultimo mes del I trimestre
$fechaFinal=$diames;
break;
case "03":
$ls_mes="marzo";
$fecIni=$ano."-01-01";
$diames=$io_fecha->uf_last_day(3,$ano);// ultimo mes del I trimestre
$fechaFinal=$diames;
break;
case "04":
$ls_mes="junio";
$fecIni=$ano."-04-01";// primer mes del II Trimestre
$diames=$io_fecha->uf_last_day(6,$ano);// ultimo mes del I trimestre
$fechaFinal=$diames;
break;
case "05":
$ls_mes="junio";
$fecIni=$ano."-04-01";
$diames=$io_fecha->uf_last_day(6,$ano);// ultimo mes del I trimestre
$fechaFinal=$diames;
break;
case "06":
$ls_mes="junio";
$fecIni=$ano."-04-01";
$diames=$io_fecha->uf_last_day(6,$ano);// ultimo mes del I trimestre
$fechaFinal=$diames;
break;
case "07":
$ls_mes="septiembre";
$fecIni=$ano."-07-01";// primer mes del III Trimestre
$diames=$io_fecha->uf_last_day(9,$ano);// ultimo mes del I trimestre
$fechaFinal=$diames;
break;
case "8":
$ls_mes="septiembre";
$fecIni=$ano."-07-01";
$diames=$io_fecha->uf_last_day(9,$ano);// ultimo mes del I trimestre
$fechaFinal=$diames;
break;
case "9":
$ls_mes="septiembre";
$fecIni=$ano."-07-01";
$diames=$io_fecha->uf_last_day(9,$ano);// ultimo mes del I trimestre
$fechaFinal=$diames;
break;
case "10":
$ls_mes="diciembre";
$fecIni=$ano."-10-01";// primer mes del IV Trimestre
$diames=$io_fecha->uf_last_day(12,$ano);// ultimo mes del I trimestre
$fechaFinal=$diames;
break;
case "11":
$ls_mes="diciembre";
$fecIni=$ano."-10-01";
$diames=$io_fecha->uf_last_day(9,$ano);// ultimo mes del I trimestre
$fechaFinal=$diames;
break;
case "12":
$ls_mes="diciembre";
$fecIni=$ano."-10-01";
$diames=$io_fecha->uf_last_day(9,$ano);// ultimo mes del I trimestre
$fechaFinal=$diames;
break;
}
$ls_fecfin="";
$li_pos=strpos($fechaFinal,"/");
$li_pos2=strpos($fechaFinal,"-");
if(($li_pos==2)||($li_pos2==2))
{
$fecFin=(substr($fechaFinal,5,4)."-".str_pad(substr($fechaFinal,3,1),2,"0",0)."-".substr($fechaFinal,0,2));
}
}
if($ls_opera=="DI")
{
$ls_cadena="AND spg_cuentas.spg_cuenta like '498%' ";
}
else
{
$ls_cadena=" ";
}
$ls_sql=" select trim(spg_cuentas.spg_cuenta) as spg_cuenta, spg_cuentas.denominacion, spg_cuentas.status,".
" spg_cuentas.codestpro1, ".
" spg_cuentas.codestpro2, spg_cuentas.codestpro3,spg_cuentas.codestpro4,spg_cuentas.codestpro5, ".
" spg_cuentas.estcla, spg_cuentas.$ls_mes as programado, spg_cuentas.spg_cuenta, spg_cuentas.sc_cuenta".
" from spg_cuentas ".
" where codemp = '".$as_codemp."' ".
" and spg_cuenta like '".$ls_codigo."' ".
" and denominacion like '".$ls_denominacion."' ".
" and sc_cuenta like '".$ls_codscg."' ".
" and codestpro1 = '".$ls_estpro1."' ".
" and codestpro2 = '".$ls_estpro2."' ".
" and codestpro3 = '".$ls_estpro3."' ".
" and codestpro4 = '".$ls_estpro4."' ".
" and codestpro5 = '".$ls_estpro5."' ".
" and spg_cuentas.estcla='".$ls_estcla."'".$ls_cadena.$ls_sql_seguridad.$ls_cadenaval.
" ORDER BY spg_cuentas.spg_cuenta";
$rs_data = $io_sql->select($ls_sql);
if ($rs_data==false)
{
$msg->message($fun->uf_convertirmsg($io_sql->message));
}
else
{
$li_numrows = $io_sql->num_rows($rs_data);
if ($li_numrows>0)
{
while($row=$io_sql->fetch_row($rs_data))
{
$ls_spgcta = $row["spg_cuenta"];
$ls_denctaspg = $row["denominacion"];
$ls_codestpro1 = $row["codestpro1"];
$ls_codestpro2 = $row["codestpro2"];
$ls_codestpro3 = $row["codestpro3"];
if ($li_estmodest==2)
{
$ls_codestpro4 = $row["codestpro4"];
$ls_codestpro5 = $row["codestpro5"];
}
else
{
$ls_codestpro4 = str_pad(0,25,"0",0);
$ls_codestpro5 = str_pad(0,25,"0",0);
}
$ls_scgcta = $row["sc_cuenta"];
$ls_status = $row["status"];
$ls_estcla= $row["estcla"];
$ls_aumento="";
$ls_opera="aumento";
$ls_aumento=$io_buscar->uf_buscar_monto($ls_opera,$fecIni,$fecFin, $ls_codestpro1,$ls_codestpro2,
$ls_codestpro3,$ls_codestpro4,$ls_codestpro5,$ls_estcla,$ls_spgcta);
$ls_disminucion="";
$ls_opera="disminucion";
$ls_disminucion=$io_buscar->uf_buscar_monto($ls_opera,$fecIni,$fecFin, $ls_codestpro1,$ls_codestpro2,
$ls_codestpro3,$ls_codestpro4,$ls_codestpro5,$ls_estcla,$ls_spgcta);
$ls_comprometer="";
$ls_opera="comprometer";
$ls_comprometer=$io_buscar->uf_buscar_monto($ls_opera,$fecIni,$fecFin, $ls_codestpro1,$ls_codestpro2,
$ls_codestpro3,$ls_codestpro4,$ls_codestpro5,$ls_estcla,$ls_spgcta);
$ls_precomprometer="";
$ls_opera="precomprometer";
$ls_precomprometer=$io_buscar->uf_buscar_monto($ls_opera,$fecIni,$fecFin, $ls_codestpro1,$ls_codestpro2,
$ls_codestpro3,$ls_codestpro4,$ls_codestpro5,$ls_estcla,$ls_spgcta);
$ld_mondis =($row["programado"]+$ls_aumento)-($ls_disminucion+$ls_comprometer+$ls_precomprometer);
if ($li_estmodest==2)
{
$ls_codestpro1 = substr($ls_codestpro1,18,2);
$ls_codestpro2 = substr($ls_codestpro2,4,2);
$ls_codestpro3 = substr($ls_codestpro3,1,2);
$ls_codestpro4 = substr($ls_codestpro4,0,2);
$ls_codestpro5 = substr($ls_codestpro5,0,2);
if ($ls_status=="S")
{
print "
";
print "| ".$ls_spgcta." | ";
print "".$ls_codestpro1." | ";
print "".$ls_codestpro2." | ";
print "".$ls_codestpro3." | ";
print "".$ls_codestpro4." | ";
print "".$ls_codestpro5." | ";
print "".$ls_denctaspg." | ";
print "".$ls_scgcta." | ";
print "".number_format($ld_mondis,2,",",".")." | ";
}
else
{
print "
";
print "| ".$ls_spgcta." | ";
print "".$ls_codestpro1." | ";
print "".$ls_codestpro2." | ";
print "".$ls_codestpro3." | ";
print "".$ls_codestpro4." | ";
print "".$ls_codestpro5." | ";
print "".$ls_denctaspg." | ";
print "".$ls_scgcta." | ";
print "".number_format($ld_mondis,2,",",".")." | ";
}
print "
";
}
else
{
if ($ls_status=="S")
{
print "
";
print "| ".$ls_spgcta." | ";
print "".$ls_codestpro1." | ";
print "".$ls_codestpro2." | ";
print "".$ls_codestpro3." | ";
print "".$ls_denctaspg." | ";
print "".$ls_scgcta." | ";
print "".number_format($ld_mondis,2,",",".")." | ";
}
else
{
print "
";
print "| ".$ls_spgcta." | ";
print "".$ls_codestpro1." | ";
print "".$ls_codestpro2." | ";
print "".$ls_codestpro3." | ";
print "".$ls_denctaspg." | ";
print "".$ls_scgcta." | ";
print "".number_format($ld_mondis,2,",",".")." | ";
}
print "
";
}
}
$io_sql->free_result($rs_data);
$io_sql->close();
}
else
{
?>
";
?>