decodificar_post();
require_once("../../shared/class_folder/grid_param.php");
$io_grid=new grid_param();
require_once("class_funciones_sep.php");
$io_funciones_sep=new class_funciones_sep();
require_once("sigesp_sep_c_solicitud.php");
$io_solicitud=new sigesp_sep_c_solicitud("../../");
$ruta = '../../';
require_once("../../shared/class_folder/sigesp_conexiones.php");
$io_conexiones=new conexiones();
// tipo de SEP si es de BIENES ó de SERVICIOS
$ls_tipo=$io_funciones_sep->uf_obtenervalor("tipo","-");
// proceso a ejecutar
$ls_proceso=$io_funciones_sep->uf_obtenervalor("proceso","");
// total de filas de Bienes
$li_totalbienes=$io_funciones_sep->uf_obtenervalor("totalbienes","1");
// total de filas de Servicios
$li_totalservicios=$io_funciones_sep->uf_obtenervalor("totalservicios","1");
// total de filas de Servicios
$li_totalconceptos=$io_funciones_sep->uf_obtenervalor("totalconceptos","1");
// total de filas de Cargos
$li_totalcargos=$io_funciones_sep->uf_obtenervalor("totalcargos","1");
// total de filas de Cuentas
$li_totalcuentas=$io_funciones_sep->uf_obtenervalor("totalcuentas","1");
// total de filas de Cuentas cargos
$li_totalcuentascargo=$io_funciones_sep->uf_obtenervalor("totalcuentascargo","1");
// Indica si se deben cargar los cargos de un bien ó servicios ó si solo se deben pintar
$ls_cargarcargos=$io_funciones_sep->uf_obtenervalor("cargarcargos","1");
// Valor del Subtotal de la SEP
$li_subtotal=$io_funciones_sep->uf_obtenervalor("subtotal","0,00");
// Valor del Cargo de la SEP
$li_cargos=$io_funciones_sep->uf_obtenervalor("cargos","0,00");
// Valor del Total de la SEP
$li_total=$io_funciones_sep->uf_obtenervalor("total","0,00");
// Número de solicitud si se va a cargar
$ls_numsol=$io_funciones_sep->uf_obtenervalor("numsol","");
$ls_tipconpro = $io_funciones_sep->uf_obtenervalor("tipconpro","");
$ls_coduniadm = $io_funciones_sep->uf_obtenervalor("coduniadm","");
$ls_titulo="";
$la_cuentacargo[0]="";
$li_cuenta=1;
$ls_tipafeiva=$_SESSION["la_empresa"]["confiva"]; //print $ls_proceso;
switch($ls_proceso)
{
case "LIMPIAR":
switch(substr($ls_tipo,3,1))
{
case "B": // Bienes
$ls_titulo="Bien o Material";
uf_print_bienes($li_totalbienes);
uf_print_creditos($ls_titulo,$li_totalcargos,$ls_cargarcargos,$ls_tipconpro,"B");
break;
case "S": // Servicios
$ls_titulo="Servicios";
uf_print_servicios($li_totalservicios);
uf_print_creditos($ls_titulo,$li_totalcargos,$ls_cargarcargos,$ls_tipconpro,"S");
break;
case "O": // Conceptos
$ls_titulo="Conceptos";
uf_print_conceptos($li_totalconceptos);
uf_print_creditos($ls_titulo,$li_totalcargos,$ls_cargarcargos,$ls_tipconpro,"O");
break;
}
break;
case "AGREGARBIENES":
$ls_titulo="Bien o Material";
uf_print_bienes($li_totalbienes,$ls_tipconpro);
uf_print_creditos($ls_titulo,$li_totalcargos,$ls_cargarcargos,$ls_tipconpro,"B");
break;
case "LOADBIENES":
$ls_titulo="Bien o Material";
uf_load_bienes($ls_numsol);
uf_load_creditos($ls_titulo,$ls_numsol,"B");
uf_load_cuentas($ls_numsol,"B");
if ($ls_tipafeiva=='P')
{
uf_load_cuentas_cargo($ls_numsol,"B");
}
uf_load_total($li_subtotal,$li_cargos,$li_total);
break;
case "AGREGARSERVICIOS":
$ls_titulo="Servicios";
uf_print_servicios($li_totalservicios);
uf_print_creditos($ls_titulo,$li_totalcargos,$ls_cargarcargos,$ls_tipconpro,"S");
break;
case "LOADSERVICIOS":
$ls_titulo="Servicios";
uf_load_servicios($ls_numsol);
uf_load_creditos($ls_titulo,$ls_numsol,"S");
uf_load_cuentas($ls_numsol,"S");
if ($ls_tipafeiva=='P')
{
uf_load_cuentas_cargo($ls_numsol,"S");
}
uf_load_total($li_subtotal,$li_cargos,$li_total);
break;
case "AGREGARCONCEPTOS":
$ls_titulo="Conceptos";
if($_POST['codmon'] and $_POST['tascam']>0){
echo "
";
}
$io_grid->makegrid($ai_total,$lo_title,$lo_object,840,"Detalle de Bienes","gridbienes");
}// end function uf_print_bienes
//-----------------------------------------------------------------------------------------------------------------------------------
//-----------------------------------------------------------------------------------------------------------------------------------
function uf_print_servicios($ai_total,$autcan=false)
{
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Function: uf_print_servicios
// Access: private
// Arguments: ai_total // Total de filas a imprimir
// Description: Método que imprime el grid de los servicios
// Creado Por: Ing. Yesenia Moreno/ Ing. Luis Lang
// Fecha Creación: 17/03/2007 Fecha Última Modificación :
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
global $io_grid, $io_funciones_sep, $io_solicitud;
$i=0;
$lo_title[1]="Código";
$lo_title[2]="Denominación";
$lo_title[3]="Cantidad";
if ($autcan) {
$lo_title[4]="Cantidad Autorizada";
$i=1;
}
$lo_title[4+$i]="Precio";
$lo_title[5+$i]="Sub-Total";
$lo_title[6+$i]="Cargos";
$lo_title[7+$i]="Total";
$lo_title[8+$i]="";
$ls_estmodpart=$io_solicitud->uf_validar_cambio_imputacion();//verifica si tiene permiso para modificar las partidas
if ($ls_estmodpart==1)
{
$lo_title[9+$i]="";
}
for($li_fila=1;$li_fila<=$ai_total;$li_fila++)
{
$ls_codser=$io_funciones_sep->uf_obtenervalor("txtcodser".$li_fila,"");
$ls_denser=$io_funciones_sep->uf_obtenervalor("txtdenser".$li_fila,"");
$li_canser=$io_funciones_sep->uf_obtenervalor("txtcanser".$li_fila,"0,00");
if ($autcan) {
$li_canserauto=$io_funciones_sep->uf_obtenervalor("txtcanserauto".$li_fila,"0,00");
}
$li_preser=$io_funciones_sep->uf_obtenervalor("txtpreser".$li_fila,"0,00");
$li_subtotser=$io_funciones_sep->uf_obtenervalor("txtsubtotser".$li_fila,"0,00");
$li_carser=$io_funciones_sep->uf_obtenervalor("txtcarser".$li_fila,"0,00");
$li_totser=$io_funciones_sep->uf_obtenervalor("txttotser".$li_fila,"0,00");
$ls_spgcuenta=$io_funciones_sep->uf_obtenervalor("txtspgcuenta".$li_fila,"");
///---------campos relacionados al gasto----------------------------------------
$ls_codproser=trim($io_funciones_sep->uf_obtenervalor("txtcodgas".$li_fila,""));
$ls_cuentaser=trim($io_funciones_sep->uf_obtenervalor("txtcodspg".$li_fila,""));
$ls_estclaser=trim($io_funciones_sep->uf_obtenervalor("txtstatus".$li_fila,""));
//-------------------------------------------------------------------------------
$lo_object[$li_fila][1]="
";
$lo_object[$li_fila][2]="";
if ($autcan) {
$lo_object[$li_fila][3]="";
$lo_object[$li_fila][4]="";
}
else {
$lo_object[$li_fila][3]="";
}
$lo_object[$li_fila][4+$i]="";
$lo_object[$li_fila][5+$i]="";
$lo_object[$li_fila][6+$i]="";
$lo_object[$li_fila][7+$i]="".
" ";
if($li_fila==$ai_total)// si el la última fila no pinto el eliminar
{
$lo_object[$li_fila][8+$i]="";
if ($ls_estmodpart==1)
{
$lo_object[$li_fila][9+$i]="";
}
}
else
{
$lo_object[$li_fila][8+$i] ="";
if ($ls_estmodpart==1)
{
$lo_object[$li_fila][9+$i]="";
}
}
}
if ($autcan) {
print "
";
$io_grid->makegrid($ai_total,$lo_title,$lo_object,840,"Detalle de Conceptos","gridconceptos");
}// end function uf_print_conceptos
//-----------------------------------------------------------------------------------------------------------------------------------
//-----------------------------------------------------------------------------------------------------------------------------------
function uf_print_creditos($as_titulo,$ai_total,$as_cargarcargos,$as_tipconpro,$as_tipo,$autcan=false)
{
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Function: uf_print_creditos
// Access: private
// Arguments: ai_total // Total de filas a imprimir
// as_titulo // Titulo de bienes o servicios
// as_cargarcargos // Si cargamos los cargos ó solo pintamos
// as_tipo // Tipo de SEP si es de bienes ó de servicios
// Description: Método que imprime el grid de créditos y busca los creditos de un Bien, un Servicio ò un concepto
// Creado Por: Ing. Yesenia Moreno/ Ing. Luis Lang
// Fecha Creación: 17/03/2007 Fecha Última Modificación :
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
global $io_grid, $io_funciones_sep, $la_cuentacargo, $li_cuenta, $io_solicitud,$ls_coduniadm;
$li_f=0;
// Titulos del Grid
$lo_title[1]=$as_titulo;
$lo_title[2]="Código";
$lo_title[3]="Denominación";
$lo_title[4]="Base Imponible";
$lo_title[5]="Monto del Cargo";
$lo_title[6]="Sub-Total";
$ls_estmodpart=$io_solicitud->uf_validar_cambio_imputacion();//verifica si tiene permiso para modificar las partidas
if ($ls_estmodpart==1)
{
$lo_title[7]="";
}
$lo_object[0]="";
// Recorrido de el grid de Cargos
for($li_fila=1;$li_fila<=$ai_total;$li_fila++)
{
$ls_codservic = $io_funciones_sep->uf_obtenervalor("txtcodservic".$li_fila,"");
$ls_codcar = $io_funciones_sep->uf_obtenervalor("txtcodcar".$li_fila,"");
$ls_dencar = $io_funciones_sep->uf_obtenervalor("txtdencar".$li_fila,"");
$li_bascar = $io_funciones_sep->uf_obtenervalor("txtbascar".$li_fila,"");
$li_moncar = $io_funciones_sep->uf_obtenervalor("txtmoncar".$li_fila,"");
$li_subcargo = $io_funciones_sep->uf_obtenervalor("txtsubcargo".$li_fila,"");
$ls_spg_cuenta = $io_funciones_sep->uf_obtenervalor("cuentacargo".$li_fila,"");
$ls_formula = $io_funciones_sep->uf_obtenervalor("formulacargo".$li_fila,"");
$ls_codpro = trim($io_funciones_sep->uf_obtenervalor("txtcodgascre".$li_fila,""));
$ls_cuenta = trim($io_funciones_sep->uf_obtenervalor("txtcodspgcre".$li_fila,""));
$ls_estcla = trim($io_funciones_sep->uf_obtenervalor("txtstatuscre".$li_fila,""));
if ($autcan) {
if ($li_moncar!="0,00") {
$li_f++;
$lo_object[$li_f][1]="
";
$lo_object[$li_f][2]="";
$lo_object[$li_f][3]="";
$lo_object[$li_f][4]="";
$lo_object[$li_f][5]="";
$lo_object[$li_f][6]="".
"".
"
";
if ($ls_estmodpart==1)
{
$lo_object[$li_f][7]="";
}
}
}
else{
$lo_object[$li_fila][1]="
";
$lo_object[$li_fila][2]="";
$lo_object[$li_fila][3]="";
$lo_object[$li_fila][4]="";
$lo_object[$li_fila][5]="";
$lo_object[$li_fila][6]="".
"".
"
";
if ($ls_estmodpart==1)
{
$lo_object[$li_fila][7]="";
}
}
}
if($as_cargarcargos=="1")
{ // Si se deben cargar los cargos Buscamos el Código del último Bien cargado
// y obtenemos los cargos de dicho Bien
if($as_tipconpro!="F")
{
require_once("sigesp_sep_c_solicitud.php");
$io_solicitud=new sigesp_sep_c_solicitud("../../");
$ls_codigo = $io_funciones_sep->uf_obtenervalor("txtcodservic","");
$ls_codprounidad = $io_funciones_sep->uf_obtenervalor("codprounidad","");
$ls_estcla = $io_funciones_sep->uf_obtenervalor("estcla","");
switch ($as_tipo)
{
case "B":
$rs_data = $io_solicitud->uf_load_cargosbienes($ls_codigo,$ls_codprounidad,$ls_estcla);
break;
case "S":
$rs_data = $io_solicitud->uf_load_cargosservicios($ls_codigo,$ls_codprounidad,$ls_estcla);
break;
case "O":
$rs_data = $io_solicitud->uf_load_cargosconceptos($ls_codigo,$ls_codprounidad,$ls_estcla);
break;
}
while($row=$io_solicitud->io_sql->fetch_row($rs_data))
{
$lb_existecargo = true;
$ls_codservic = $row["codigo"];
$ls_codcar = $row["codcar"];
$ls_dencar = $row["dencar"];
$ls_spg_cuenta = trim($row["spg_cuenta"]);
$ls_formula = $row["formula"];
$li_bascar = "0,00";
$li_moncar = "0,00";
$li_subcargo = "0,00";
$ls_existecuenta = $row["existecuenta"];
if($ls_spg_cuenta!="")
{// Si la cuenta presupuestaria es diferente de blanco llenamos un arreglo de cuentas
$la_cuentacargo[$li_cuenta]["cargo"]=$ls_codcar;
$la_cuentacargo[$li_cuenta]["cuenta"]=$ls_spg_cuenta;
$ls_estceniva=$_SESSION["la_empresa"]["estceniva"];
if($ls_estceniva=="1")
{
require_once("sigesp_sep_c_solicitud.php");
$io_solicitud=new sigesp_sep_c_solicitud("../../");
$lb_valido= $io_solicitud->uf_load_estructura_central($ls_coduniadm,$ls_codestprocen1,$ls_codestprocen2,$ls_codestprocen3,$ls_codestprocen4,$ls_codestprocen5,$ls_esclacen);
$ls_codestprocen=$ls_codestprocen1.$ls_codestprocen2.$ls_codestprocen3.$ls_codestprocen4.$ls_codestprocen5;
$la_cuentacargo[$li_cuenta]["programatica"]=$ls_codestprocen;
$la_cuentacargo[$li_cuenta]["estcla"]=$ls_esclacen;
}
else
{
if($ls_existecuenta==0)
{
$la_cuentacargo[$li_cuenta]["programatica"]="";
$la_cuentacargo[$li_cuenta]["estcla"]=$ls_estcla;
}
else
{
$la_cuentacargo[$li_cuenta]["programatica"]=$ls_codprounidad;
$la_cuentacargo[$li_cuenta]["estcla"]=$ls_estcla;
}
}
$li_cuenta++;
}
$ai_total++;
///---------campos relacionados al gasto----------------------------------------
$ls_codpro=trim($io_funciones_sep->uf_obtenervalor("txtcodprocar".$ai_total,""));
$ls_cuenta=trim($io_funciones_sep->uf_obtenervalor("txtcuentacar".$ai_total,""));
$ls_estcla=trim($io_funciones_sep->uf_obtenervalor("txtestclacar".$ai_total,""));
//------------------------------------------------------------------------------
if ($as_cargarcargos=="1")
{ // si los cargos se deben cargar recorremos el arreglo de cuentas
// que se lleno con los cargos
$ls_estcla ="";
$li_cuenta=count($la_cuentacargo);
for ($li_fila2=1;($li_fila2<$li_cuenta);$li_fila2++)
{
$ls_cuenta = trim($la_cuentacargo[$li_fila2]["cuenta"]);
$ls_programatica = trim($la_cuentacargo[$li_fila2]["programatica"]);
$ls_estcla = $la_cuentacargo[$li_fila2]["estcla"];
}
$ls_codpro=$ls_programatica;
$ls_cuenta=$ls_cuenta;
$ls_estcla=$ls_estcla;
}
$lo_object[$ai_total][1]="
";
$lo_object[$ai_total][2]="";
$lo_object[$ai_total][3]="";
$lo_object[$ai_total][4]="";
$lo_object[$ai_total][5]="";
$lo_object[$ai_total][6]="".
"".
"
";
if ($ls_estmodpart==1)
{
$lo_object[$ai_total][7]="";
}
}
}
}
print "
";
if ($autcan) {
$ai_total=$li_f;
}
$io_grid->makegrid($ai_total,$lo_title,$lo_object,840,"Créditos","gridcreditos");
unset($io_solicitud);
print "
";
print "
";
print "
";
print "
";
print "
";
}// end function uf_print_creditos
//-----------------------------------------------------------------------------------------------------------------------------------
//-----------------------------------------------------------------------------------------------------------------------------------
function uf_print_cuentas_gasto($ai_total,$as_tipo,$li_loncodestpro1,$li_loncodestpro2,$li_loncodestpro3,$li_loncodestpro4,$li_loncodestpro5)
{
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Function: uf_print_cuentas_gasto
// Access: private
// Arguments: ai_total // Total de filas a imprimir
// as_tipo // Tipo de SEP si es de bienes ó de servicios
// Description: Método que imprime el grid de las cuentas presupuestarias del Gasto
// Creado Por: Ing. Yesenia Moreno/ Ing. Luis Lang
// Fecha Creación: 17/03/2007 Fecha Última Modificación :
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
global $io_grid, $io_funciones_sep, $la_cuentacargo;
require_once("../../shared/class_folder/class_datastore.php");
$io_dscuentas=new class_datastore();
// Titulos el Grid
$lo_title[1]="Estructura Programatica";
$lo_title[2]="Cuenta";
$lo_title[3]="Monto";
//$lo_title[4]="";
$ls_codpro="";
// Recorrido del Grid de Cuentas Presupuestarias
for($li_fila=1;$li_fila<=$ai_total;$li_fila++)
{
$ls_codpro=trim($io_funciones_sep->uf_obtenervalor("txtcodprogas".$li_fila,""));
$ls_cuenta=trim($io_funciones_sep->uf_obtenervalor("txtcuentagas".$li_fila,""));
$ls_estcla=trim($io_funciones_sep->uf_obtenervalor("txtestclagas".$li_fila,""));
$li_moncue=trim($io_funciones_sep->uf_obtenervalor("txtmoncuegas".$li_fila,"0,00"));
$li_moncue=str_replace(".","",$li_moncue);
$li_moncue=str_replace(",",".",$li_moncue);
if($ls_cuenta!="")
{
$io_dscuentas->insertRow("codprogas",$ls_codpro);
$io_dscuentas->insertRow("estclagas",$ls_estcla);
$io_dscuentas->insertRow("cuentagas",$ls_cuenta);
$io_dscuentas->insertRow("moncuegas",$li_moncue);
}
}
// Agrupamos las cuentas por programatica y cuenta
$io_dscuentas->group_by(array('0'=>'codprogas','1'=>'cuentagas'),array('0'=>'moncuegas'),'moncuegas');
$li_total=$io_dscuentas->getRowCount('codprogas');
// Recorremos el data stored de cuentas que se lleno y se agrupo anteriormente
for($li_fila=1;$li_fila<=$li_total;$li_fila++)
{
$ls_codpro=$io_dscuentas->getValue('codprogas',$li_fila);
$ls_cuenta=$io_dscuentas->getValue('cuentagas',$li_fila);
$ls_estcla=$io_dscuentas->getValue('estclagas',$li_fila);
$li_moncue=number_format($io_dscuentas->getValue('moncuegas',$li_fila),2,",",".");
$ls_codest1=substr($ls_codpro,0,$li_loncodestpro1);
$ls_codest2=substr($ls_codpro,$li_loncodestpro1,$li_loncodestpro2);
$ls_codest3=substr($ls_codpro,$li_loncodestpro1+$li_loncodestpro2,$li_loncodestpro3);
$ls_codest4=substr($ls_codpro,$li_loncodestpro1+$li_loncodestpro2+$li_loncodestpro3,$li_loncodestpro4);
$ls_codest5=substr($ls_codpro,$li_loncodestpro1+$li_loncodestpro2+$li_loncodestpro3+$li_loncodestpro4,$li_loncodestpro5);
$ls_programatica=$ls_codest1.$ls_codest2.$ls_codest3.$ls_codest4.$ls_codest5;
if($ls_cuenta!="")
{
$lo_object[$li_fila][1]=""."";
$lo_object[$li_fila][2]="";
$lo_object[$li_fila][3]="";
/*$lo_object[$li_fila][4]="".
"";*/
}
}
$ai_total=$li_total+1;
$lo_object[$ai_total][1]=""."";;
$lo_object[$ai_total][2]="";
$lo_object[$ai_total][3]="";
$lo_object[$ai_total][4]="";
print "
";
$io_grid->makegrid($ai_total,$lo_title,$lo_object,840,"Cuentas","gridcuentas");
unset($io_dscuentas);
}// end function uf_print_cuentas
//-----------------------------------------------------------------------------------------------------------------------------------
//-----------------------------------------------------------------------------------------------------------------------------------
function uf_print_cuentas_cargo($ai_total,$as_cargarcargos,$as_tipo,$li_loncodestpro1,$li_loncodestpro2,$li_loncodestpro3,$li_loncodestpro4,$li_loncodestpro5)
{
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Function: uf_print_cuentas
// Access: private
// Arguments: ai_total // Total de filas a imprimir
// as_cargarcargos // Si cargamos los cargos ó solo pintamos
// as_tipo // Tipo de SEP si es de bienes ó de servicios
// Description: Método que imprime el grid de las cuentas presupuestarias de los cargos
// Creado Por: Ing. Yesenia Moreno/ Ing. Luis Lang
// Fecha Creación: 17/03/2007 Fecha Última Modificación :
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
global $io_grid, $io_funciones_sep, $la_cuentacargo;
require_once("../../shared/class_folder/class_datastore.php");
$io_dscuentas=new class_datastore();
// Titulos el Grid
$lo_title[1]="Cargo";
$lo_title[2]="Estructura Programatica";
$lo_title[3]="Cuenta";
$lo_title[4]="Monto";
//$lo_title[5]="";
$ls_codpro="";
// Recorrido del Grid de Cuentas Presupuestarias del Cargo
for($li_fila=1;$li_fila<=$ai_total;$li_fila++)
{
$ls_cargo = trim($io_funciones_sep->uf_obtenervalor("txtcodcargo".$li_fila,""));
$ls_estcla = trim($io_funciones_sep->uf_obtenervalor("txtestclacar".$li_fila,""));
$ls_codpro = trim($io_funciones_sep->uf_obtenervalor("txtcodprocar".$li_fila,""));
$ls_cuenta = trim($io_funciones_sep->uf_obtenervalor("txtcuentacar".$li_fila,""));
$li_moncue = trim($io_funciones_sep->uf_obtenervalor("txtmoncuecar".$li_fila,"0,00"));
$li_moncue = str_replace(".","",$li_moncue);
$li_moncue = str_replace(",",".",$li_moncue);
if($ls_cuenta!="")
{
$io_dscuentas->insertRow("codcargo",$ls_cargo);
$io_dscuentas->insertRow("codprocar",$ls_codpro);
$io_dscuentas->insertRow("cuentacar",$ls_cuenta);
$io_dscuentas->insertRow("moncuecar",$li_moncue);
$io_dscuentas->insertRow("estclacar",$ls_estcla);
}
}
if($as_cargarcargos=="1")
{ // si los cargos se deben cargar recorremos el arreglo de cuentas
// que se lleno con los cargos
$li_cuenta=count($la_cuentacargo)-1;
for($li_fila=1;($li_fila<=$li_cuenta);$li_fila++)
{
$ls_cargo = trim($la_cuentacargo[$li_fila]["cargo"]);
$ls_cuenta = trim($la_cuentacargo[$li_fila]["cuenta"]);
$ls_programatica = trim($la_cuentacargo[$li_fila]["programatica"]);
$ls_estcla = $la_cuentacargo[$li_fila]["estcla"];
$li_moncue="0.00";
if($ls_cuenta!="")
{
$io_dscuentas->insertRow("codcargo",$ls_cargo);
$io_dscuentas->insertRow("codprocar",$ls_programatica);
$io_dscuentas->insertRow("estclacar",$ls_estcla);
$io_dscuentas->insertRow("cuentacar",$ls_cuenta);
$io_dscuentas->insertRow("moncuecar",$li_moncue);
}
}
}
// Agrupamos las cuentas por programatica y cuenta
$io_dscuentas->group_by(array('0'=>'codcargo','1'=>'codprocar','2'=>'cuentacar'),array('0'=>'moncuecar'),'moncuecar');
$li_total=$io_dscuentas->getRowCount('codcargo');
$ls_modalidad=$_SESSION["la_empresa"]["estmodest"];
switch($ls_modalidad)
{
case "1": // Modalidad por Proyecto
$li_len1=20;
$li_len2=6;
$li_len3=3;
$li_len4=2;
$li_len5=2;
break;
case "2": // Modalidad por Presupuesto
$li_len1=2;
$li_len2=2;
$li_len3=2;
$li_len4=2;
$li_len5=2;
break;
}
// Recorremos el data stored de cuentas que se lleno y se agrupo anteriormente
for($li_fila=1;$li_fila<=$li_total;$li_fila++)
{
$ls_cargo = $io_dscuentas->getValue('codcargo',$li_fila);
$ls_codpro = $io_dscuentas->getValue('codprocar',$li_fila);
$ls_cuenta = $io_dscuentas->getValue('cuentacar',$li_fila);
$ls_estclacar = $io_dscuentas->getValue('estclacar',$li_fila);
$li_moncue = number_format($io_dscuentas->getValue('moncuecar',$li_fila),2,",",".");
$ls_codest1=substr($ls_codpro,0,$li_loncodestpro1);
$ls_codest2=substr($ls_codpro,$li_loncodestpro1,$li_loncodestpro2);
$ls_codest3=substr($ls_codpro,$li_loncodestpro1+$li_loncodestpro2,$li_loncodestpro3);
$ls_codest4=substr($ls_codpro,$li_loncodestpro1+$li_loncodestpro2+$li_loncodestpro3,$li_loncodestpro4);
$ls_codest5=substr($ls_codpro,$li_loncodestpro1+$li_loncodestpro2+$li_loncodestpro3+$li_loncodestpro4,$li_loncodestpro5);
$ls_programatica=$ls_codest1.$ls_codest2.$ls_codest3.$ls_codest4.$ls_codest5;
if($ls_cuenta!="")
{
$lo_object[$li_fila][1]="";
$lo_object[$li_fila][2]="".
"";
$lo_object[$li_fila][3]="";
$lo_object[$li_fila][4]="".
"";
/*$lo_object[$li_fila][5]="".
"";*/
}
}
$ai_total=$li_total+1;
$lo_object[$ai_total][1]="";
$lo_object[$ai_total][2]=""."";
$lo_object[$ai_total][3]="";
$lo_object[$ai_total][4]="";
$lo_object[$ai_total][5]="";
print "
";
$io_grid->makegrid($ai_total,$lo_title,$lo_object,840,"Cuentas Cargos","gridcuentascargos");
unset($io_dscuentas);
}// end function uf_print_cuentas_cargo
//-----------------------------------------------------------------------------------------------------------------------------------
//-----------------------------------------------------------------------------------------------------------------------------------
function uf_print_total($ai_totrowitem,$as_tipsol)
{
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Function: uf_print_total
// Access: private
// Arguments: ai_subtotal // Valor del subtotal
// ai_cargos // Valor total de los cargos
// ai_total // Total de la solicitu de pago
// Description: Método que imprime los totales de la SEP
// Creado Por: Ing. Yesenia Moreno/ Ing. Luis Lang
// Fecha Creación: 17/03/2007 Fecha Última Modificación :
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
global $io_funciones_sep;
$li_totalgasto=0;
$li_totalcargo=0;
$li_totalgeneral=0;
switch($as_tipsol)
{
case "B":
for($li_i=1;$li_i<$ai_totrowitem;$li_i++)
{
$li_subtotart = $io_funciones_sep->uf_obtenervalor("txtsubtotart".$li_i,"0,00");
$li_carart = $io_funciones_sep->uf_obtenervalor("txtcarart".$li_i,"0,00");
$li_totart = $io_funciones_sep->uf_obtenervalor("txttotart".$li_i,"0,00");
$li_subtotart= str_replace(".","",$li_subtotart);
$li_subtotart= str_replace(",",".",$li_subtotart);
$li_carart= str_replace(".","",$li_carart);
$li_carart= str_replace(",",".",$li_carart);
$li_totart= str_replace(".","",$li_totart);
$li_totart= str_replace(",",".",$li_totart);
$li_totalgasto=$li_totalgasto+$li_subtotart;
$li_totalcargo=$li_totalcargo+$li_carart;
$li_totalgeneral=$li_totalgeneral+$li_totart;
}
break;
case "S":
for($li_i=1;$li_i<$ai_totrowitem;$li_i++)
{
$li_subtotser=$io_funciones_sep->uf_obtenervalor("txtsubtotser".$li_i,"0,00");
$li_carser=$io_funciones_sep->uf_obtenervalor("txtcarser".$li_i,"0,00");
$li_totser=$io_funciones_sep->uf_obtenervalor("txttotser".$li_i,"0,00");
$li_subtotser= str_replace(".","",$li_subtotser);
$li_subtotser= str_replace(",",".",$li_subtotser);
$li_carser= str_replace(".","",$li_carser);
$li_carser= str_replace(",",".",$li_carser);
$li_totser= str_replace(".","",$li_totser);
$li_totser= str_replace(",",".",$li_totser);
$li_totalgasto=$li_totalgasto+$li_subtotser;
$li_totalcargo=$li_totalcargo+$li_carser;
$li_totalgeneral=$li_totalgeneral+$li_totser;
}
break;
case "O":
for($li_i=1;$li_i<$ai_totrowitem;$li_i++)
{
$li_subtotcon = $io_funciones_sep->uf_obtenervalor("txtsubtotcon".$li_i,"0,00");
$li_totcon = $io_funciones_sep->uf_obtenervalor("txttotcon".$li_i,"0,00");
$li_carcon = $io_funciones_sep->uf_obtenervalor("txtcarcon".$li_i,"0,00");
$li_subtotcon= str_replace(".","",$li_subtotcon);
$li_subtotcon= str_replace(",",".",$li_subtotcon);
$li_carcon= str_replace(".","",$li_carcon);
$li_carcon= str_replace(",",".",$li_carcon);
$li_totcon= str_replace(".","",$li_totcon);
$li_totcon= str_replace(",",".",$li_totcon);
$li_totalgasto=$li_totalgasto+$li_subtotcon;
$li_totalcargo=$li_totalcargo+$li_carcon;
$li_totalgeneral=$li_totalgeneral+$li_totcon;
}
break;
}
$li_totalgasto=number_format($li_totalgasto,2,',','.');
$li_totalcargo=number_format($li_totalcargo,2,',','.');
$li_totalgeneral=number_format($li_totalgeneral,2,',','.');
print "
";
print "
";
print "
Totales
";
print "
";
print "
";
print "
";
print "
";
print "
";
print "
";
print "
";
print "
";
print "
";
print "
";
print "
Subtotal
";
print "
";
print "
";
print "
";
print "
";
print "
";
print "
Otros Créditos
";
print "
";
print "
";
print "
";
print "
";
print "
";
print "
Total General
";
print "
";
print "
";
print "
";
print "
";
print "
";
print "
";
}// end function uf_print_total
//-----------------------------------------------------------------------------------------------------------------------------------
//-----------------------------------------------------------------------------------------------------------------------------------
function uf_print_total_monext($ai_totrowitem,$as_tipsol)
{
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Function: uf_print_total_monext
// Access: private
// Arguments: ai_subtotal // Valor del subtotal
// ai_cargos // Valor total de los cargos
// ai_total // Total de la solicitu de pago
// Description: Método que imprime los totales de la SEP
// Creado Por: Lic. Edgar A. Quintero
// Fecha Creación: 01/12/2012 Fecha Última Modificación :
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
global $io_funciones_sep,$io_conexiones;
$li_totalgasto=0;
$li_totalcargo=0;
$li_totalgeneral=0;
switch($as_tipsol)
{
case "B":
for($li_i=1;$li_i<$ai_totrowitem;$li_i++)
{
$li_subtotart = $io_funciones_sep->uf_obtenervalor("txtsubtotart".$li_i,"0,00");
$li_carart = $io_funciones_sep->uf_obtenervalor("txtcarart".$li_i,"0,00");
$li_totart = $io_funciones_sep->uf_obtenervalor("txttotart".$li_i,"0,00");
$li_subtotart= str_replace(".","",$li_subtotart);
$li_subtotart= str_replace(",",".",$li_subtotart);
$li_carart= str_replace(".","",$li_carart);
$li_carart= str_replace(",",".",$li_carart);
$li_totart= str_replace(".","",$li_totart);
$li_totart= str_replace(",",".",$li_totart);
$li_totalgasto=$li_totalgasto+$li_subtotart;
$li_totalcargo=$li_totalcargo+$li_carart;
$li_totalgeneral=$li_totalgeneral+$li_totart;
}
break;
case "S":
for($li_i=1;$li_i<$ai_totrowitem;$li_i++)
{
$li_subtotser=$io_funciones_sep->uf_obtenervalor("txtsubtotser".$li_i,"0,00");
$li_carser=$io_funciones_sep->uf_obtenervalor("txtcarser".$li_i,"0,00");
$li_totser=$io_funciones_sep->uf_obtenervalor("txttotser".$li_i,"0,00");
$li_subtotser= str_replace(".","",$li_subtotser);
$li_subtotser= str_replace(",",".",$li_subtotser);
$li_carser= str_replace(".","",$li_carser);
$li_carser= str_replace(",",".",$li_carser);
$li_totser= str_replace(".","",$li_totser);
$li_totser= str_replace(",",".",$li_totser);
$li_totalgasto=$li_totalgasto+$li_subtotser;
$li_totalcargo=$li_totalcargo+$li_carser;
$li_totalgeneral=$li_totalgeneral+$li_totser;
}
break;
case "O":
for($li_i=1;$li_i<$ai_totrowitem;$li_i++)
{
$li_subtotcon = $io_funciones_sep->uf_obtenervalor("txtsubtotcon".$li_i,"0,00");
$li_totcon = $io_funciones_sep->uf_obtenervalor("txttotcon".$li_i,"0,00");
$li_carcon = $io_funciones_sep->uf_obtenervalor("txtcarcon".$li_i,"0,00");
$li_subtotcon= str_replace(".","",$li_subtotcon);
$li_subtotcon= str_replace(",",".",$li_subtotcon);
$li_carcon= str_replace(".","",$li_carcon);
$li_carcon= str_replace(",",".",$li_carcon);
$li_totcon= str_replace(".","",$li_totcon);
$li_totcon= str_replace(",",".",$li_totcon);
$li_totalgasto=$li_totalgasto+$li_subtotcon;
$li_totalcargo=$li_totalcargo+$li_carcon;
$li_totalgeneral=$li_totalgeneral+$li_totcon;
}
break;
}
$li_totalgasto=number_format($li_totalgasto,2,',','.');
$li_totalcargo=number_format($li_totalcargo,2,',','.');
$li_totalgeneral=number_format($li_totalgeneral,2,',','.');
$tascam = $io_conexiones->formato_numerico_us($_POST['tascam']);
$li_totalgasto = $io_conexiones->formato_numerico_us($li_totalgasto)/$tascam;
$li_totalcargo = $io_conexiones->formato_numerico_us($li_totalcargo)/$tascam;
$li_totalgeneral = $io_conexiones->formato_numerico_us($li_totalgeneral)/$tascam;
$li_totalgasto=number_format($li_totalgasto,2,",",".");
$li_totalcargo=number_format($li_totalcargo,2,",",".");
$li_totalgeneral=number_format($li_totalgeneral,2,",",".");
print "
";
print "
";
print "
Totales (MONEDA EXTRANJERA)
";
print "
";
print "
";
print "
";
print "
";
print "
";
print "
";
print "
";
print "
";
print "
";
print "
";
print "
Subtotal
";
print "
";
print "
";
print "
";
print "
";
print "
";
print "
Otros Créditos
";
print "
";
print "
";
print "
";
print "
";
print "
";
print "
Total General
";
print "
";
print "
";
print "
";
print "
";
print "
";
print "
";
}// end function uf_print_total
//-----------------------------------------------------------------------------------------------------------------------------------
//-----------------------------------------------------------------------------------------------------------------------------------
function uf_load_total($ai_subtotal,$ai_cargos,$ai_total)
{
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Function: uf_load_total
// Access: private
// Arguments: ai_subtotal // Valor del subtotal
// ai_cargos // Valor total de los cargos
// ai_total // Total de la solicitu de pago
// Description: Método que imprime los totales de la SEP
// Creado Por: Ing. Yesenia Moreno/ Ing. Luis Lang
// Fecha Creación: 17/03/2007 Fecha Última Modificación :
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
print "
";
print "
";
print "
Totales
";
print "
";
print "
";
print "
";
print "
";
print "
";
print "
";
print "
";
print "
";
print "
";
print "
";
print "
Subtotal
";
print "
";
print "
";
print "
";
print "
";
print "
";
print "
Otros Créditos
";
print "
";
print "
";
print "
";
print "
";
print "
";
print "
Total General
";
print "
";
print "
";
print "
";
print "
";
print "
";
print "
";
}// end function uf_print_total
//-----------------------------------------------------------------------------------------------------------------------------------
function uf_load_total_monext($ai_subtotal,$ai_cargos,$ai_total)
{
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Function: uf_load_total
// Access: private
// Arguments: ai_subtotal // Valor del subtotal
// ai_cargos // Valor total de los cargos
// ai_total // Total de la solicitu de pago
// Description: Método que imprime los totales de la SEP en Moneda Extranjera
// Creado Por: Lic. Edgar A. Quintero
// Fecha Creación: 01/12/2012 Fecha Última Modificación :
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
global $io_conexiones;
$tascam = $io_conexiones->formato_numerico_us($_POST['tascam']);
$ai_subtotal = $io_conexiones->formato_numerico_us($ai_subtotal)/$tascam;
$ai_cargos = $io_conexiones->formato_numerico_us($ai_cargos)/$tascam;
$ai_total = $io_conexiones->formato_numerico_us($ai_total)/$tascam;
$ai_subtotal=number_format($ai_subtotal,2,",",".");
$ai_cargos=number_format($ai_cargos,2,",",".");
$ai_total=number_format($ai_total,2,",",".");
print "
";
print "
";
print "
Totales (MONEDA EXTRANJERA)
";
print "
";
print "
";
print "
";
print "
";
print "
";
print "
";
print "
";
print "
";
print "
";
print "
";
print "
Subtotal
";
print "
";
print "
";
print "
";
print "
";
print "
";
print "
Otros Créditos
";
print "
";
print "
";
print "
";
print "
";
print "
";
print "
Total General
";
print "
";
print "
";
print "
";
print "
";
print "
";
print "
";
}// end function uf_print_total
//-----------------------------------------------------------------------------------------------------------------------------------
//-----------------------------------------------------------------------------------------------------------------------------------
function uf_load_bienes($as_numsol,$autcan=false)
{
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Function: uf_load_bienes
// Access: private
// Arguments: as_numsol // Numero de solicitud
// Description: Método que busca los bienes de la solicitud y los imprime
// Creado Por: Ing. Yesenia Moreno/ Ing. Luis Lang
// Fecha Creación: 17/03/2007 Fecha Última Modificación :
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
$i=0;
global $io_grid, $io_funciones_sep;
// Titulos del Grid de Bienes
$lo_title[1]="Código";
$lo_title[2]="Denominación";
$lo_title[3]="Cantidad";
if ($autcan) {
$lo_title[4]="Cantidad Autorizada";
$i++;
}
$lo_title[4+$i]="Modalidad";
$lo_title[5+$i]="U/M";
$lo_title[6+$i]="Precio/Unid.";
$lo_title[7+$i]="Sub-Total";
$lo_title[8+$i]="Cargos";
$lo_title[9+$i]="Total";
$lo_title[10+$i]="";
require_once("sigesp_sep_c_solicitud.php");
$io_solicitud=new sigesp_sep_c_solicitud("../../");
$rs_data = $io_solicitud->uf_load_bienes($as_numsol);
$li_fila=0;
while($row=$io_solicitud->io_sql->fetch_row($rs_data))
{
$li_fila=$li_fila+1;
$ls_codart=$row["codart"];
$ls_denart=utf8_encode($row["denart"]);
$ls_unidad=$row["unidad"];
$ls_medida=$row["denunimed"];
$li_canart=$row["canart"];
$li_preart=$row["monpre"];
$li_totart=$row["monart"];
$ls_spgcuenta=$row["spg_cuenta"];
$li_unimed=$row["unimed"];
$ls_codpro=$row["codestpro1"].$row["codestpro2"].$row["codestpro3"].$row["codestpro4"].$row["codestpro5"];
$ls_estcla=$row["estcla"];
if($ls_unidad=="M") // Si es al Mayor
{
$ls_maysel="selected";
$ls_detsel="";
$li_subtotart=$li_preart*($li_canart*$li_unimed);
}
else // Si es al Detal
{
$ls_maysel="";
$ls_detsel="selected";
$li_subtotart=$li_preart*$li_canart;
}
$li_totart=number_format($li_totart,2,".","");
$li_subtotart=number_format($li_subtotart,2,".","");
$li_carart=$li_totart-$li_subtotart;
$li_subtotart=number_format($li_subtotart,2,",",".");
$li_totart=number_format($li_totart,2,",",".");
$li_canart=number_format($li_canart,2,",",".");
$li_preart=number_format($li_preart,2,",",".");
$li_carart=number_format($li_carart,2,",",".");
$lo_object[$li_fila][1]="
";
$lo_object[$li_fila][2]="";
if($autcan){
$lo_object[$li_fila][3]="";
$lo_object[$li_fila][4]="";
}
else{
$lo_object[$li_fila][3]="";
}
$lo_object[$li_fila][4+$i]="";
$lo_object[$li_fila][5+$i]="";
$lo_object[$li_fila][6+$i]="";
$lo_object[$li_fila][7+$i]="";
$lo_object[$li_fila][8+$i]="";
$lo_object[$li_fila][9+$i]="".
" ".
" ";
$lo_object[$li_fila][10+$i]="";
}
$li_fila=$li_fila+1;
$lo_object[$li_fila][1]="";
$lo_object[$li_fila][2]="";
if($autcan){
$lo_object[$li_fila][3]="";
$lo_object[$li_fila][4]="";
}
else{
$lo_object[$li_fila][3]="";
}
$lo_object[$li_fila][4+$i]="";
$lo_object[$li_fila][5+$i]="";
$lo_object[$li_fila][6+$i]="";
$lo_object[$li_fila][7+$i]="";
$lo_object[$li_fila][8+$i]="";
$lo_object[$li_fila][9+$i]="".
" ".
" ";
$lo_object[$li_fila][10+$i]="";
if ($autcan){
print "
";
$io_grid->makegrid($li_fila,$lo_title,$lo_object,840,"Detalle de Conceptos","gridconceptos");
}// end function uf_load_conceptos
//-----------------------------------------------------------------------------------------------------------------------------------
//-----------------------------------------------------------------------------------------------------------------------------------
function uf_load_conceptos_monext($as_numsol)
{
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Function: uf_load_conceptos
// Access: private
// Arguments: as_numsol // Numero de solicitud
// Description: Método que busca los conceptos de la solicitud y los imprime en Moneda Extranjera
// Creado Por: Lic. Edgar A. Quintero
// Fecha Creación: 01/12/2012 Fecha Última Modificación :
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
global $io_grid, $io_funciones_sep,$io_conexiones;
// Titulos del Grid de Servicios
$lo_title[1]="Código";
$lo_title[2]="Denominación";
$lo_title[3]="Cantidad";
$lo_title[4]="Precio";
$lo_title[5]="Sub-Total";
$lo_title[6]="Cargos";
$lo_title[7]="Total";
require_once("sigesp_sep_c_solicitud.php");
$io_solicitud=new sigesp_sep_c_solicitud("../../");
$rs_data = $io_solicitud->uf_load_conceptos($as_numsol);
$li_fila=0;
while($row=$io_solicitud->io_sql->fetch_row($rs_data))
{
$li_fila=$li_fila+1;
$ls_codcon=$row["codconsep"];
$ls_dencon=utf8_encode($row["denconsep"]);
$li_cancon=$row["cancon"];
$li_precon=$row["monpre"];
$li_subtotcon=$li_precon*$li_cancon;
$li_totcon=$row["moncon"];
$li_totcon=number_format($li_totcon,2,".","");
$li_subtotcon=number_format($li_subtotcon,2,".","");
$li_carcon=$li_totcon-$li_subtotcon;
$tascam = $io_conexiones->formato_numerico_us($_POST['tascam']);
//echo $tascam1.' ';
$li_precon=($li_precon)/$tascam;
$li_subtotcon=($li_subtotcon)/$tascam;
$li_carcon=($li_carcon)/$tascam;
$li_totcon=($li_totcon)/$tascam;
$ls_spgcuenta=$row["spg_cuenta"];
$ls_codproser=$row["codestpro1"].$row["codestpro2"].$row["codestpro3"].$row["codestpro4"].$row["codestpro5"];
$ls_estclaser=$row["estcla"];
$li_cancon=number_format($li_cancon,2,",",".");
$li_precon=number_format($li_precon,2,",",".");
$li_subtotcon=number_format($li_subtotcon,2,",",".");
$li_carcon=number_format($li_carcon,2,",",".");
$li_totcon=number_format($li_totcon,2,",",".");
$lo_object[$li_fila][1]="";
$lo_object[$li_fila][2]="";
$lo_object[$li_fila][3]="";
$lo_object[$li_fila][4]="";
$lo_object[$li_fila][5]="";
$lo_object[$li_fila][6]="";
$lo_object[$li_fila][7]="";
}
$li_fila=$li_fila+1;
//print "
";
print "
";
print "
";
print " ";
print "
";
$io_grid->makegrid($li_fila,$lo_title,$lo_object,840,"Detalle de Conceptos (Moneda Extranjera)","gridextconceptos");
}// end function uf_load_conceptos
//-----------------------------------------------------------------------------------------------------------------------------------
//-----------------------------------------------------------------------------------------------------------------------------------
function uf_print_conceptos_monext($ai_total)
{
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Function: uf_print_conceptos
// Access: private
// Arguments: ai_total // Total de filas a imprimir
// Description: Método que imprime el grid de los conceptos
// Creado Por: Lic. Edgar A. Quintero
// Fecha Creación: 01/12/2012 Fecha Última Modificación :
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
global $io_grid, $io_funciones_sep,$io_solicitud,$io_conexiones;
$lo_title[1]="Código";
$lo_title[2]="Denominación";
$lo_title[3]="Cantidad";
$lo_title[4]="Precio";
$lo_title[5]="Sub-Total";
$lo_title[6]="Cargos";
$lo_title[7]="Total";
$ls_estmodpart=$io_solicitud->uf_validar_cambio_imputacion();//verifica si tiene permiso para modificar las partidas
for($li_fila=1;$li_fila<=$ai_total;$li_fila++)
{
$ls_codcon = $io_funciones_sep->uf_obtenervalor("txtcodcon".$li_fila,"");
$ls_dencon = $io_funciones_sep->uf_obtenervalor("txtdencon".$li_fila,"");
$ld_cancon = $io_funciones_sep->uf_obtenervalor("txtcancon".$li_fila,"0,00");
$ld_precon = $io_funciones_sep->uf_obtenervalor("txtprecon".$li_fila,"0,00");
$ld_subtotcon = $io_funciones_sep->uf_obtenervalor("txtsubtotcon".$li_fila,"0,00");
$ld_totcon = $io_funciones_sep->uf_obtenervalor("txttotcon".$li_fila,"0,00");
$ld_carcon = $io_funciones_sep->uf_obtenervalor("txtcarcon".$li_fila,"0,00");
$ls_spgcuenta = $io_funciones_sep->uf_obtenervalor("txtspgcuenta".$li_fila,"");
///---------campos relacionados al gasto----------------------------------------
$ls_codprocon=trim($io_funciones_sep->uf_obtenervalor("txtcodgas".$li_fila,""));
$ls_cuentacon=trim($io_funciones_sep->uf_obtenervalor("txtcodspg".$li_fila,""));
$ls_estclacon=trim($io_funciones_sep->uf_obtenervalor("txtstatus".$li_fila,""));
//-------------------------------------------------------------------------------
$tascam = $io_conexiones->formato_numerico_us($_POST['tascam']);
//echo $tascam1.' ';
$ld_precon=$io_conexiones->formato_numerico_us($ld_precon)/$tascam;
$ld_subtotcon=$io_conexiones->formato_numerico_us($ld_subtotcon)/$tascam;
$ld_totcon=$io_conexiones->formato_numerico_us($ld_totcon)/$tascam;
$ld_carcon=$io_conexiones->formato_numerico_us($ld_carcon)/$tascam;
$ld_precon=number_format($ld_precon,2,",",".");
$ld_subtotcon=number_format($ld_subtotcon,2,",",".");
$ld_totcon=number_format($ld_totcon,2,",",".");
$ld_carcon=number_format($ld_carcon,2,",",".");
$lo_object[$li_fila][1]="";
$lo_object[$li_fila][2]="";
$lo_object[$li_fila][3]="";
$lo_object[$li_fila][4]="";
$lo_object[$li_fila][5]="";
$lo_object[$li_fila][6]="";
$lo_object[$li_fila][7]="";
}
//print "
";
print "
";
print "
";
print " ";
print "
";
$io_grid->makegrid($ai_total,$lo_title,$lo_object,840,"Detalle de Conceptos","gridextconceptos");
}// end function uf_print_conceptos
//-----------------------------------------------------------------------------------------------------------------------------------
//-----------------------------------------------------------------------------------------------------------------------------------
function uf_load_creditos($as_titulo,$as_numsol,$as_tipo)
{
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Function: uf_print_creditos
// Access: private
// Arguments: as_numsol // Número de Solicitud
// as_titulo // Titulo de bienes o servicios
// as_tipo // Tipo de SEP si es de bienes ó de servicios
// Description: Método que busca los creditos de una solicitud y las imprime
// Creado Por: Ing. Yesenia Moreno/ Ing. Luis Lang
// Fecha Creación: 17/03/2007 Fecha Última Modificación :
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
global $io_grid, $io_funciones_sep, $la_cuentacargo, $li_cuenta;
// Titulos del Grid
$lo_title[1]=$as_titulo;
$lo_title[2]="Código";
$lo_title[3]="Denominación";
$lo_title[4]="Base Imponible";
$lo_title[5]="Monto del Cargo";
$lo_title[6]="Sub-Total";
$lo_object[0]="";
switch($as_tipo)
{
case "B": // Si es de Bienes
$ls_tabla = "sep_dta_cargos";
$ls_campo = "codart";
break;
case "S": // Si es de Servicios
$ls_tabla = "sep_dts_cargos";
$ls_campo = "codser";
break;
case "O": // Si es de Conceptos
$ls_tabla = "sep_dtc_cargos";
$ls_campo = "codconsep";
break;
}
require_once("sigesp_sep_c_solicitud.php");
$io_solicitud=new sigesp_sep_c_solicitud("../../");
$rs_data = $io_solicitud->uf_load_cargos($as_numsol,$ls_tabla,$ls_campo);
$li_fila=0;
while($row=$io_solicitud->io_sql->fetch_row($rs_data))
{
$li_fila=$li_fila+1;
$ls_codservic=$row["codigo"];
$ls_codcar=$row["codcar"];
$ls_dencar=utf8_encode($row["dencar"]);
$li_bascar=number_format($row["monbasimp"],2,",",".");
$li_moncar=number_format($row["monimp"],2,",",".");
$li_subcargo=number_format($row["monto"],2,",",".");
$ls_spg_cuenta=$row["spg_cuenta"];
$ls_formula=$row["formula"];
$ls_codestpro1=$row["codestpro1"];
$ls_codestpro2=$row["codestpro2"];
$ls_codestpro3=$row["codestpro3"];
$ls_codestpro4=$row["codestpro4"];
$ls_codestpro5=$row["codestpro5"];
$ls_estcla=$row["estcla"];
$ls_codestpro=$ls_codestpro1.$ls_codestpro2.$ls_codestpro3.$ls_codestpro4.$ls_codestpro5;
$lo_object[$li_fila][1]="".
"".
"".
"";
$lo_object[$li_fila][2]="";
$lo_object[$li_fila][3]="";
$lo_object[$li_fila][4]="";
$lo_object[$li_fila][5]="";
$lo_object[$li_fila][6]="".
"".
"";
}
print "
";
$io_grid->makegrid($ai_total,$lo_title,$lo_object,840,"Cuentas Otros Créditos","gridcuentascargos");
unset($io_dscuentas);
}// end function uf_print_cuentas_cargo
//-----------------------------------------------------------------------------------------------------------------------------------
?>
";
}
}
}
if ($autocan){
print "
Agregar Detalle Bienes