decodificar_post();
// tipo de la orden de compra si es de BIENES ó de SERVICIOS
$ls_tipo=$io_funciones_soc->uf_obtenervalor("tipo","");
// tipo de la solicitud si es orden de compra o es una sep
$ls_tipsol=$io_funciones_soc->uf_obtenervalor("tipsol","");
// proceso a ejecutar
$ls_proceso=$io_funciones_soc->uf_obtenervalor("proceso","");
// total de filas de Bienes
$li_totalbienes=$io_funciones_soc->uf_obtenervalor("totalbienes","1");
// total de filas de Servicios
$li_totalservicios=$io_funciones_soc->uf_obtenervalor("totalservicios","1");
// total de filas de Cargos
$li_totalcargos=$io_funciones_soc->uf_obtenervalor("totalcargos","1");
// total de filas de Cuentas
$li_totalcuentas=$io_funciones_soc->uf_obtenervalor("totalcuentas","1");
// total de filas de Cuentas cargos
$li_totalcuentascargo=$io_funciones_soc->uf_obtenervalor("totalcuentascargo","1");
// Indica si se deben cargar los cargos de un bien ó servicios ó si solo se deben pintar
$ls_cargarcargos=$io_funciones_soc->uf_obtenervalor("cargarcargos","1");
// Valor del Subtotal de la orden de compra
$li_subtotal=$io_funciones_soc->uf_obtenervalor("subtotal","0,00");
// Valor del Cargo de la orden de compra
$li_cargos=$io_funciones_soc->uf_obtenervalor("cargos","0,00");
// Valor del Total de la orden de compra
$li_total=$io_funciones_soc->uf_obtenervalor("total","0,00");
// Número de orden de compra si se va a cargar
$ls_numsol=$io_funciones_soc->uf_obtenervalor("numsol","");
// Número de orden de compra si se va a cargar
$ls_numordcom=$io_funciones_soc->uf_obtenervalor("numordcom","");
// tipo de contribuyente del proveedor de la orden de compra
$ls_tipconpro = $io_funciones_soc->uf_obtenervalor("tipconpro","");
// codigo de unidad ejecutora
$ls_codunieje = $io_funciones_soc->uf_obtenervalor("codunieje","");
$ls_tipafeiva = $_SESSION["la_empresa"]["confiva"];//Tipo de la Afectación del IVA, P=Presupuesto y C=Contabilidad.
$ls_disabled = "";
$li_estciespg = $_SESSION["la_empresa"]["estciespg"];
$li_estciespi = $_SESSION["la_empresa"]["estciespi"];
if ($li_estciespg==1 || $li_estciespi==1)
{
$ls_disabled = "disabled";
}
global $li_estmodest,$li_loncodestpro1,$li_loncodestpro2,$li_loncodestpro3,$li_loncodestpro4,$li_loncodestpro5,$ls_disabled,
$ls_codunieje,$ls_tipsol;
$li_estmodest = $_SESSION["la_empresa"]["estmodest"];
$li_loncodestpro1 = $_SESSION["la_empresa"]["loncodestpro1"];
$li_loncodestpro2 = $_SESSION["la_empresa"]["loncodestpro2"];
$li_loncodestpro3 = $_SESSION["la_empresa"]["loncodestpro3"];
$li_loncodestpro4 = $_SESSION["la_empresa"]["loncodestpro4"];
$li_loncodestpro5 = $_SESSION["la_empresa"]["loncodestpro5"];
$ls_titulo="";
$la_cuentacargo[0]="";
$li_cuenta=1;
switch($ls_proceso)
{
case "CARGAR-COMBO":
switch($ls_tipo)
{
case "ESTADOS":
require_once("sigesp_soc_c_registro_orden_compra.php");
$io_registro_ordcom=new sigesp_soc_c_registro_orden_compra("../../");
$ls_codpai=$io_funciones_soc->uf_obtenervalor("cmbpais","-");
$ls_seleccionado=$io_funciones_soc->uf_obtenervalor("despai","");
$io_registro_ordcom->uf_soc_combo_estado($ls_seleccionado,$ls_codpai);
unset($io_registro_ordcom);
break;
case "MUNICIPIOS":
require_once("sigesp_soc_c_registro_orden_compra.php");
$io_registro_ordcom=new sigesp_soc_c_registro_orden_compra("../../");
$ls_codpai=$io_funciones_soc->uf_obtenervalor("cmbpais","-");
$ls_codest=$io_funciones_soc->uf_obtenervalor("cmbestado","-");
$ls_seleccionado=$io_funciones_soc->uf_obtenervalor("desest","");
$io_registro_ordcom->uf_soc_combo_municipio($ls_seleccionado,$ls_codpai,$ls_codest);
unset($io_registro_ordcom);
break;
case "PARROQUIAS":
require_once("sigesp_soc_c_registro_orden_compra.php");
$io_registro_ordcom=new sigesp_soc_c_registro_orden_compra("../../");
$ls_codpai=$io_funciones_soc->uf_obtenervalor("cmbpais","-");
$ls_codest=$io_funciones_soc->uf_obtenervalor("cmbestado","-");
$ls_codmun=$io_funciones_soc->uf_obtenervalor("cmbmunicipio","-");
$ls_seleccionado=$io_funciones_soc->uf_obtenervalor("denmun","");
$io_registro_ordcom->uf_soc_combo_parroquia($ls_seleccionado,$ls_codpai,$ls_codest,$ls_codmun);
unset($io_registro_ordcom);
break;
}
break;
case "LIMPIAR":
switch($ls_tipo)
{
case "B": // Bienes
$ls_titulo="Bien o Material";
uf_print_bienes($li_totalbienes,$ls_tipconpro,$ls_tipsol);
uf_print_creditos($ls_titulo,$li_totalcargos,$ls_cargarcargos,"B",$ls_tipconpro,$ls_tipsol);
break;
case "S": // Servicios
$ls_titulo="Servicios";
uf_print_servicios($li_totalservicios,$ls_tipconpro,$ls_tipsol);
uf_print_creditos($ls_titulo,$li_totalcargos,$ls_cargarcargos,"S",$ls_tipconpro,$ls_tipsol);
break;
}
break;
case "LOADBIENES":
$ls_titulo="Bien o Material";
if($_POST['codmon'] and $_POST['tascamordcom']>0){
echo "
";
$io_grid->makegrid($ai_total,$lo_title,$lo_object,840,"Cuentas Otros Créditos","gridcuentascargos");
unset($io_dscuentas);
}// end function uf_print_cuentas_cargo
//-----------------------------------------------------------------------------------------------------------------------------------
//-----------------------------------------------------------------------------------------------------------------------------------
function uf_print_total($ai_totbieser,$ai_cargos,$as_tipo)
{
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// 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 una orden de compra
// Creado Por: Ing. Yesenia Moreno/ Ing. Luis Lang
// Modificado Por: Ing. Yozelin Barragan
// Fecha Creación: 17/03/2007 Fecha Última Modificación : 12/05/2007
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
global $io_funciones_soc;
$li_totalgasto=0;
$li_totalcargo=0;
$li_totalgeneral=0;
if($as_tipo=="B")
{
for ($li_fila=1;$li_fila<=$ai_totbieser;$li_fila++)
{
$li_moncue= $io_funciones_soc->uf_obtenervalor("txtsubtotart".$li_fila,"0,00");
$li_carart= $io_funciones_soc->uf_obtenervalor("txtcarart".$li_fila,"0,00");
$li_moncue= str_replace(".","",$li_moncue);
$li_moncue= str_replace(",",".",$li_moncue);
$li_carart= str_replace(".","",$li_carart);
$li_carart= str_replace(",",".",$li_carart);
$li_totalgasto=$li_totalgasto+$li_moncue;
$li_totalcargo=$li_totalcargo+$li_carart;
}
}
else
{
for ($li_fila=1;$li_fila<=$ai_totbieser;$li_fila++)
{
$li_moncue= $io_funciones_soc->uf_obtenervalor("txtsubtotser".$li_fila,"0,00");
$li_carser= $io_funciones_soc->uf_obtenervalor("txtcarser".$li_fila,"0,00");
$li_moncue= str_replace(".","",$li_moncue);
$li_moncue= str_replace(",",".",$li_moncue);
$li_carser= str_replace(".","",$li_carser);
$li_carser= str_replace(",",".",$li_carser);
$li_totalgasto=$li_totalgasto+$li_moncue;
$li_totalcargo=$li_totalcargo+$li_carser;
}
}
$li_totalgeneral=$li_totalgasto+$li_totalcargo;
$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_totbieser,$ai_cargos,$as_tipo)
{
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// 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 una orden de compra
// Creado Por: Ing. Yesenia Moreno/ Ing. Luis Lang
// Modificado Por: Ing. Yozelin Barragan
// Fecha Creación: 17/03/2007 Fecha Última Modificación : 12/05/2007
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
global $io_funciones_soc,$io_conexiones ;
$li_totalgasto=0;
$li_totalcargo=0;
$li_totalgeneral=0;
if($as_tipo=="B")
{
for ($li_fila=1;$li_fila<=$ai_totbieser;$li_fila++)
{
$li_moncue= $io_funciones_soc->uf_obtenervalor("txtsubtotart".$li_fila,"0,00");
$li_carart= $io_funciones_soc->uf_obtenervalor("txtcarart".$li_fila,"0,00");
$li_moncue= str_replace(".","",$li_moncue);
$li_moncue= str_replace(",",".",$li_moncue);
$li_carart= str_replace(".","",$li_carart);
$li_carart= str_replace(",",".",$li_carart);
$li_totalgasto=$li_totalgasto+$li_moncue;
$li_totalcargo=$li_totalcargo+$li_carart;
}
}
else
{
for ($li_fila=1;$li_fila<=$ai_totbieser;$li_fila++)
{
$li_moncue= $io_funciones_soc->uf_obtenervalor("txtsubtotser".$li_fila,"0,00");
$li_carser= $io_funciones_soc->uf_obtenervalor("txtcarser".$li_fila,"0,00");
$li_moncue= str_replace(".","",$li_moncue);
$li_moncue= str_replace(",",".",$li_moncue);
$li_carser= str_replace(".","",$li_carser);
$li_carser= str_replace(",",".",$li_carser);
$li_totalgasto=$li_totalgasto+$li_moncue;
$li_totalcargo=$li_totalcargo+$li_carser;
}
}
$li_totalgeneral=$li_totalgasto+$li_totalcargo;
//$li_totalgasto=number_format($li_totalgasto,2,',','.');
//$li_totalcargo=number_format($li_totalcargo,2,',','.');
//$li_totalgeneral=number_format($li_totalgeneral,2,',','.');
$tascam1 = $io_conexiones->formato_numerico_us($_POST['tascamordcom']);
//$li_totalgasto = $io_conexiones->formato_numerico_us($li_totalgasto)/$tascam1;
//$li_totalcargo = $io_conexiones->formato_numerico_us($li_totalcargo)/$tascam1;
//$li_totalgeneral = $io_conexiones->formato_numerico_us($li_totalgeneral)/$tascam1;
//echo 'li_totalgasto:'.$li_totalgasto.' ';
//echo 'li_totalcargo:'.$li_totalcargo.' ';
//echo 'li_totalgeneral:'.$li_totalgeneral.' ';
$li_totalgasto=number_format($li_totalgasto/$tascam1,2,",",".");
$li_totalcargo=number_format($li_totalcargo/$tascam1,2,",",".");
$li_totalgeneral=number_format($li_totalgeneral/$tascam1,2,",",".");
//echo 'li_totalgasto:'.$li_totalgasto.' ';
//echo 'li_totalcargo:'.$li_totalcargo.' ';
//echo 'li_totalgeneral:'.$li_totalgeneral.' ';
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($li_totalgasto,$li_totalcargo,$li_totalgeneral)
{
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// 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 una orden de compra
// Creado Por: Ing. Yesenia Moreno/ Ing. Luis Lang
// Modificado Por: Ing. Yozelin Barragan
// Fecha Creación: 17/03/2007 Fecha Última Modificación : 12/05/2007
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
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($li_totalgasto,$li_totalcargo,$li_totalgeneral)
{
global $io_conexiones;
$tascam1 = $io_conexiones->formato_numerico_us($_POST['tascamordcom']);
$li_totalgasto = $io_conexiones->formato_numerico_us($li_totalgasto)/$tascam1;
$li_totalcargo = $io_conexiones->formato_numerico_us($li_totalcargo)/$tascam1;
$li_totalgeneral = $io_conexiones->formato_numerico_us($li_totalgeneral)/$tascam1;
$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_bienes($as_numordcom,$as_tipsol)
{
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Function: uf_load_bienes
// Access: private
// Arguments: as_numordcom // numero de la ordem de compra
// $as_tipsol ---> tipo de la solicitud sep o soc
// Description: Método que busca los bienes de la orden de compra y los imprime
// Creado Por: Ing. Yesenia Moreno/ Ing. Luis Lang
// Modificado Por: Ing. Yozelin Barragan
// Fecha Creación: 17/03/2007 Fecha Última Modificación : 12/05/2007
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
global $io_grid, $io_funciones_soc, $ls_disabled;
$ls_readonly="";
// Titulos del Grid de Bienes
$lo_title[1]="Código";
$lo_title[2]="Denominación";
$lo_title[3]="Cantidad";
$lo_title[4]="Unidad";
$lo_title[5]="Precio/Unid.";
$lo_title[6]="Sub-Total";
$lo_title[7]="Créditos";
$lo_title[8]="Total";
$lo_title[9]="";
require_once("sigesp_soc_c_registro_orden_compra.php");
$io_registro_orden=new sigesp_soc_c_registro_orden_compra("../../");
$rs_data = $io_registro_orden->uf_load_bienes($as_numordcom,$as_tipsol);
$li_fila=0;
$ls_estmodpart=$io_registro_orden->uf_validar_cambio_imputacion();//verifica si tiene permiso para modificar las partidas
$lb_analisiscot=$io_registro_orden->uf_validar_analisiscotizacion($as_numordcom);//verifica si proviene de un analisis de cot.
//******************************* Se modifico para permitir editar las ordenes de compra producto del análisis de cotización ************************************//
$lb_analisiscot="";
//************************************************************************************************************************************************************//
if($lb_analisiscot)
{
$ls_readonly="readonly";
}
if ($ls_estmodpart==1)
{
if($as_tipsol=="SOC")
{
$lo_title[10]="";
}
}
$rs_data1 = $io_registro_orden->uf_buscar_coduniadmsep($ls_numsolord);
if($rs_data1->RecordCount())
{
if($row=$io_registro_orden->io_sql->fetch_row($rs_data1))
{
$ls_coduniadmsepx = $row["coduniadm"];
$ls_denuniadmsepx = $row["denuniadm"];
}
}
while($row=$io_registro_orden->io_sql->fetch_row($rs_data))
{
$li_fila++;
$ls_codart = trim($row["codart"]);
$ls_denart = $row["denart"];
$ls_unidad = $row["unidad"];
$li_canart = $row["canart"];
$li_preart = $row["preuniart"];
$li_totart = $row["montotart"];
$ls_spgcuenta = trim($row["spg_cuenta"]);
$li_unimed = $row["unimed"];
$ls_numsolord = $row["numsol"];
if($ls_numsolord!="")
{
$ls_coduniadmsep = trim($row["coduniadm"]);
$ls_denuniadmsep = $row["denuniadm"];
}
else
{
$ls_coduniadmsep = "";
$ls_denuniadmsep = "";
}
$ls_codestpro = trim($row["codestpro1"]).trim($row["codestpro2"]).trim($row["codestpro3"]).trim($row["codestpro4"]).trim($row["codestpro5"]);
$ls_estcla = trim($row["estcla"]);
if($ls_numsolord!="")
{
if($rs_data1->RecordCount())
{
$ls_coduniadmsep = $ls_coduniadmsepx;
$ls_denuniadmsep = $ls_coduniadmsepx;
}
}
if($ls_unidad=="M") // Si es al Mayor
{
$ls_aux="Mayor";
$ls_maysel="selected";
$ls_detsel="";
$li_subtotart=$li_preart*($li_canart*$li_unimed);
}
else // Si es al Detal
{
$ls_aux="Detal";
$ls_maysel="";
$ls_detsel="selected";
$li_subtotart=$li_preart*$li_canart;
}
$li_subtotart=round($li_subtotart,2);
$li_carart=abs($li_totart-$li_subtotart);
/*
echo "li_canart:".$li_canart.' ';
echo "li_preart:".$li_preart.' ';
echo "li_carart:".$li_carart.' ';
echo "li_subtotart:".$li_subtotart.' ';
echo "ld_carartser:".$ld_carartser.' ';
echo "li_totart:".$li_totart.' ';
*/
$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]="".
"".
"".
"";
$lo_object[$li_fila][3]="";
if($lb_analisiscot)
{
$lo_object[$li_fila][4]="".
"";
}
else
{
$lo_object[$li_fila][4]="";
}
$lo_object[$li_fila][5]="";
$lo_object[$li_fila][6]="";
$lo_object[$li_fila][7]="";
$lo_object[$li_fila][8]="".
" ".
" ";
// $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]="";
// $lo_object[$li_fila][8]="".
// " ".
// "".
// "".
// "".
// "";
$lo_object[$li_fila][9]="";
if ($ls_estmodpart==1)
{
if($as_tipsol=="SOC")
{
$lo_object[$li_fila][10]="";
}
}
}
$li_fila++;
$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]="";
$lo_object[$li_fila][8]="".
" ".
"".
"".
"".
" ";
$lo_object[$li_fila][9]="";
if ($ls_estmodpart==1)
{
if($as_tipsol=="SOC")
{
$lo_object[$li_fila][10]="";
}
}
print "
";
unset($io_registro_orden);
$io_grid->makegrid($li_fila,$lo_title,$lo_object,840,"Detalle de Servicios","gridservicios");
}// end function uf_load_servicios
//-----------------------------------------------------------------------------------------------------------------------------------
function uf_load_servicios_monext($as_numordcom,$as_tipsol)
{
global $io_grid, $io_funciones_soc, $io_conexiones;
$ls_readonly="";
// 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]="Créditos";
$lo_title[7]="Total";
require_once("sigesp_soc_c_registro_orden_compra.php");
$io_registro_orden=new sigesp_soc_c_registro_orden_compra("../../");
$rs_data = $io_registro_orden->uf_load_servicios($as_numordcom,$as_tipsol);
$li_fila=0;
$lb_analisiscot=$io_registro_orden->uf_validar_analisiscotizacion($as_numordcom);//verifica si proviene de un analisis de cot.
if($lb_analisiscot)
{
$ls_readonly="readonly";
}
$ls_estmodpart=$io_registro_orden->uf_validar_cambio_imputacion();//verifica si tiene permiso para modificar las partidas
while($row=$io_registro_orden->io_sql->fetch_row($rs_data))
{
$li_fila++;
$ls_codser = trim($row["codser"]);
$ls_denser = $row["denser"];
$li_canser = $row["canser"];
$li_preser = $row["monuniser"];
$li_subtotser = $li_preser*$li_canser;
$li_totser = $row["montotser"];
$li_carser = $li_totser-$li_subtotser;
$ls_spgcuenta = trim($row["spg_cuenta"]);
$ls_codestpro = trim($row["codestpro1"]).trim($row["codestpro2"]).trim($row["codestpro3"]).trim($row["codestpro4"]).trim($row["codestpro5"]);
$ls_estcla = trim($row["estcla"]);
$ls_numsolord = trim($row["numsol"]);
$ls_coduniadmsep = trim($row["coduniadm"]);
$ls_denuniadmsep = $row["denuniadm"];
$tascam1 = $io_conexiones->formato_numerico_us($_POST['tascamordcom']);
//echo $tascam1.' ';
$li_preser=$li_preser/$tascam1;
$li_subtotser=$li_subtotser/$tascam1;
$li_totser=$li_totser/$tascam1;
$li_carser=$li_carser/$tascam1;
$li_canser=number_format($li_canser,2,",",".");
$li_preser=number_format($li_preser,2,",",".");
$li_subtotser=number_format($li_subtotser,2,",",".");
$li_carser=number_format($li_carser,2,",",".");
$li_totser=number_format($li_totser,2,",",".");
$ls_codproser=$ls_codestpro;
$ls_cuentaser=$ls_spgcuenta;
$ls_estclaser=$ls_estcla;
$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 "
";
unset($io_registro_orden);
$io_grid->makegrid($li_fila,$lo_title,$lo_object,840,"Detalle de Servicios (Moneda Extranjera)","gridextservicios");
}// end function uf_load_servicios
//-----------------------------------------------------------------------------------------------------------------------------------
//-----------------------------------------------------------------------------------------------------------------------------------
function uf_copiar_bienes($as_numordcom,$as_tipsol,$ai_totalbienes)
{
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Function: uf_copiar_bienes
// Access: private
// Arguments: as_numordcom // numero de la ordem de compra
// $as_tipsol ---> tipo de la solicitud sep o soc
// Description: Método que busca los bienes de la orden de compra y los imprime
// Creado Por: Ing. Yesenia Moreno/ Ing. Luis Lang
// Modificado Por: Ing. Yozelin Barragan
// Fecha Creación: 17/03/2007 Fecha Última Modificación : 12/05/2007
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
global $io_grid, $io_funciones_soc, $ls_disabled;
// Titulos del Grid de Bienes
$lo_title[1]="Código";
$lo_title[2]="Denominación";
$lo_title[3]="Cantidad";
$lo_title[4]="Unidad";
$lo_title[5]="Precio/Unid.";
$lo_title[6]="Sub-Total";
$lo_title[7]="Créditos";
$lo_title[8]="Total";
$lo_title[9]="";
$la_bienes=array();
// Recorrido de todos los Bienes del Grid
require_once("sigesp_soc_c_registro_orden_compra.php");
$io_registro=new sigesp_soc_c_registro_orden_compra("../../");
$ls_estmodpart=$io_registro->uf_validar_cambio_imputacion();//verifica si tiene permiso para modificar las partidasç
//$ls_mostrarcambio=$io_registro->uf_buscar_estatus_orden();//verifica si tiene permiso para modificar las partidas
$ls_codprounidad= $io_funciones_soc->uf_obtenervalor("codestpre","");
$ls_estclaunidad= $io_funciones_soc->uf_obtenervalor("estclauni","");
if ($ls_estmodpart==1)
{
if($as_tipsol=="SOC")
{
$lo_title[10]="";
}
}
for($li_fila=1;$li_fila<$ai_totalbienes;$li_fila++)
{
$ls_codart = trim($io_funciones_soc->uf_obtenervalor("txtcodart".$li_fila,""));
$ls_denart = $io_funciones_soc->uf_obtenervalor("txtdenart".$li_fila,"");
$li_canart = $io_funciones_soc->uf_obtenervalor("txtcanart".$li_fila,"0,00");
$ls_unidad = $io_funciones_soc->uf_obtenervalor("cmbunidad".$li_fila,"M");
$li_preart = $io_funciones_soc->uf_obtenervalor("txtpreart".$li_fila,"0,00");
$li_subtotart = $io_funciones_soc->uf_obtenervalor("txtsubtotart".$li_fila,"0,00");
$li_carart = $io_funciones_soc->uf_obtenervalor("txtcarart".$li_fila,"0,00");
$li_totart = $io_funciones_soc->uf_obtenervalor("txttotart".$li_fila,"0,00");
$ls_spgcuenta = trim($io_funciones_soc->uf_obtenervalor("txtspgcuenta".$li_fila,""));
$li_unidad = $io_funciones_soc->uf_obtenervalor("txtunidad".$li_fila,"");
$ls_numsolord = trim($io_funciones_soc->uf_obtenervalor("txtnumsolord".$li_fila,""));
$ls_coduniadmsep = trim($io_funciones_soc->uf_obtenervalor("txtcoduniadmsep".$li_fila,""));
$ls_denuniadmsep = trim($io_funciones_soc->uf_obtenervalor("txtdenuniadmsep".$li_fila,""));
$ls_codestpro = trim($io_funciones_soc->uf_obtenervalor("hidcodestpro".$li_fila,""));
$ls_estcla = trim($io_funciones_soc->uf_obtenervalor("estcla".$li_fila,""));
if($ls_numsolord=="")
{
$ls_numsolord = '---------------';
}
if($ls_unidad=="M") // Si es al Mayor
{
$ls_maysel="selected";
$ls_detsel="";
}
else // Si es al Detal
{
$ls_maysel="";
$ls_detsel="selected";
}
$la_bienes["codart"][$li_fila]=$ls_codart;
$la_bienes["numsolord"][$li_fila]=$ls_numsolord;
$la_bienes["codgas"][$li_fila]=$ls_codestpro;
$la_bienes["codspg"][$li_fila]=$ls_spgcuenta;
$la_bienes["status"][$li_fila]=$ls_estcla;
$la_bienes["coduniadmsep"][$li_fila]=$ls_coduniadmsep;
$la_bienes["denart"][$li_fila]=$ls_denart;
$la_bienes["denuniadmsep"][$li_fila]=$ls_denuniadmsep;
$la_bienes["hidcodestpro"][$li_fila]=$ls_codestpro;
$la_bienes["estcla"][$li_fila]=$ls_estcla;
$la_bienes["canart"][$li_fila]=$li_canart;
$la_bienes["maysel"][$li_fila]=$ls_maysel;
$la_bienes["detsel"][$li_fila]=$ls_detsel;
$la_bienes["preart"][$li_fila]=$li_preart;
$la_bienes["subtotart"][$li_fila]=$li_subtotart;
$la_bienes["carart"][$li_fila]=$li_carart;
$la_bienes["totart"][$li_fila]=$li_totart;
$la_bienes["spgcuenta"][$li_fila]=$ls_spgcuenta;
$la_bienes["unidad"][$li_fila]=$li_unidad;
}
print "
";
unset($io_registro_orden);
$io_grid->makegrid($li_fila,$lo_title,$lo_object,840,"Detalle de Servicios","gridservicios");
}// end function uf_copiar_servicios
//-----------------------------------------------------------------------------------------------------------------------------------
//-----------------------------------------------------------------------------------------------------------------------------------
function uf_load_creditos($as_titulo,$as_numordcom,$as_tipo,$as_tipsol,$as_estcondat)
{
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Function: uf_print_creditos
// Access: private
// Arguments: as_numordcom ---> numero de la orden de compra
// as_titulo ---> titulo de bienes o servicios
// as_tipo ---> tipo de la orden de compra si es de bienes ó de servicios
// Description: Método que busca los creditos de una orden de compra y las imprime
// Creado Por: Ing. Yesenia Moreno/ Ing. Luis Lang
// Modificado Por: Ing. Yozelin Barragan
// Fecha Creación: 17/03/2007 Fecha Última Modificación : 12/05/2007
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
global $io_grid, $io_funciones_soc, $la_cuentacargo, $li_cuenta;
global $io_grid, $io_funciones_soc, $la_cuentacargo,$li_estmodest,$li_loncodestpro1,$li_loncodestpro2,$li_loncodestpro3,
$li_loncodestpro4,$li_loncodestpro5;
// 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 Otros Créditos";
$lo_title[6]="Sub-Total";
$lo_object[0]="";
switch($as_tipo)
{
case "B": // Si es de Bienes de la orden de compra
$ls_tabla = "soc_dta_cargos";
$ls_campo = "codart";
break;
case "S": // Si es de Servicios de la orden de compra
$ls_tabla = "soc_dts_cargos";
$ls_campo = "codser";
break;
}
$ls_codigoartser="";
require_once("sigesp_soc_c_registro_orden_compra.php");
$io_registro_orden=new sigesp_soc_c_registro_orden_compra("../../");
$rs_data = $io_registro_orden->uf_load_cargos($as_numordcom,$ls_tabla,$ls_campo,"numordcom",$ls_codigoartser,$as_tipsol);
$li_fila=0;
$ls_estmodpart=$io_registro_orden->uf_validar_cambio_imputacion();//verifica si tiene permiso para modificar las partidas
if ($ls_estmodpart==1)
{
if($as_tipsol=="SOC")
{
$lo_title[7]="";
}
}
while($row=$io_registro_orden->io_sql->fetch_row($rs_data))
{
$li_fila++;
$ls_codservic = trim($row["codigo"]);
$ls_codcar = trim($row["codcar"]);
$ls_dencar = $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_numsep = trim($row["numsol"]);
$ls_codestpro1 = trim($row["codestpro1"]);
$ls_codestpro2 = trim($row["codestpro2"]);
$ls_codestpro3 = trim($row["codestpro3"]);
$ls_codestpro4 = trim($row["codestpro4"]);
$ls_codestpro5 = trim($row["codestpro5"]);
$ls_estcla = trim($row["estcla"]);
$ls_codprog=$ls_codestpro1.$ls_codestpro2.$ls_codestpro3.$ls_codestpro4.$ls_codestpro5;
if($as_tipsol=="SOC")
{
$ls_codestpro1 = substr($ls_codestpro1,-$li_loncodestpro1);
$ls_codestpro2 = substr($ls_codestpro2,-$li_loncodestpro2);
$ls_codestpro3 = substr($ls_codestpro3,-$li_loncodestpro3);
$ls_codestpro = $ls_codestpro1.'-'.$ls_codestpro2.'-'.$ls_codestpro3;
if ($li_estmodest=='2')
{
$ls_codestpro4 = substr($ls_codestpro4,-$li_loncodestpro4);
$ls_codestpro5 = substr($ls_codestpro5,-$li_loncodestpro5);
$ls_codestpro = $ls_codestpro.'-'.$ls_codestpro4.'-'.$ls_codestpro5;
}
$ls_cuenta=$ls_spg_cuenta;
$ls_codestpre=$ls_codprog;
$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]="";
if ($ls_estmodpart==1)
{
if($as_tipsol=="SOC")
{
$lo_object[$li_fila][7]="";
}
}
}
}
print "
";
}// end function uf_print_creditos
//-----------------------------------------------------------------------------------------------------------------------------------
//-----------------------------------------------------------------------------------------------------------------------------------
function uf_load_cuentas($as_numordcom,$as_estcondat,$as_tipsol)
{
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Function: uf_load_cuentas
// Access: private
// Arguments: as_numordcom ---> número de de la orden de compra
// as_estcondat ---> tipo de la orden de compra si es de bienes ó de servicios
// as_tipsol ---> tipo si es solicitud de ejecucion presupuetaria o orden de compra
// Description: Método que busca las cuentas presupuestarias asociadas a una orden de compra
// Creado Por: Ing. Yesenia Moreno/ Ing. Luis Lang
// Modificado Por: Ing. Yozelin Barragan
// Fecha Creación: 17/03/2007 Fecha Última Modificación : 12/05/2007
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
global $io_grid, $io_funciones_soc, $la_cuentacargo,$li_estmodest,$li_loncodestpro1,$li_loncodestpro2,$li_loncodestpro3,
$li_loncodestpro4,$li_loncodestpro5;
require_once("../../shared/class_folder/class_datastore.php");
$io_dscuentas=new class_datastore();
// Titulos el Grid
$lo_title[1]="Estructura Presupuestaria";
$lo_title[2]="Cuenta";
$lo_title[3]="Monto";
//$lo_title[4]="";
require_once("sigesp_soc_c_registro_orden_compra.php");
$io_registro_orden=new sigesp_soc_c_registro_orden_compra("../../");
$io_dscuentas = $io_registro_orden->uf_load_cuentas($as_numordcom,$as_estcondat,$as_tipsol);
$li_fila=0;
if($io_dscuentas!=false)
{
$li_totrow=$io_dscuentas->getRowCount("spg_cuenta");
for($li_i=1;($li_i<=$li_totrow);$li_i++)
{
$li_monto=$io_dscuentas->data["total"][$li_i];
if($li_monto>0)
{
$li_fila++;
$ls_codestpro1 = trim($io_dscuentas->data["codestpro1"][$li_i]);
$ls_codestpro2 = trim($io_dscuentas->data["codestpro2"][$li_i]);
$ls_codestpro3 = trim($io_dscuentas->data["codestpro3"][$li_i]);
$ls_codestpro4 = trim($io_dscuentas->data["codestpro4"][$li_i]);
$ls_codestpro5 = trim($io_dscuentas->data["codestpro5"][$li_i]);
$ls_codestpre = $ls_codestpro1.$ls_codestpro2.$ls_codestpro3.$ls_codestpro4.$ls_codestpro5;
$ls_codestpro1 = substr($ls_codestpro1,-$li_loncodestpro1);
$ls_codestpro2 = substr($ls_codestpro2,-$li_loncodestpro2);
$ls_codestpro3 = substr($ls_codestpro3,-$li_loncodestpro3);
$ls_codestpro = $ls_codestpro1.'-'.$ls_codestpro2.'-'.$ls_codestpro3;
if ($li_estmodest=='2')
{
$ls_codestpro4 = substr($ls_codestpro4,-$li_loncodestpro4);
$ls_codestpro5 = substr($ls_codestpro5,-$li_loncodestpro5);
$ls_codestpro = $ls_codestpro.'-'.$ls_codestpro4.'-'.$ls_codestpro5;
}
$ls_estcla = trim($io_dscuentas->data["estcla"][$li_i]);
$li_moncue = number_format($io_dscuentas->data["total"][$li_i],2,",",".");
$ls_cuenta = trim($io_dscuentas->data["spg_cuenta"][$li_i]);
$lo_object[$li_fila][1]="";
$lo_object[$li_fila][2]="";
$lo_object[$li_fila][3]="".
"".
"";
//$lo_object[$li_fila][4]="".
}
}
}
$li_fila++;
$lo_object[$li_fila][1]="";
$lo_object[$li_fila][2]="";
$lo_object[$li_fila][3]="";
$lo_object[$li_fila][4]="";
print "
";
$io_grid->makegrid($li_fila,$lo_title,$lo_object,840,"Cuentas Otros Créditos","gridcuentascargos");
unset($io_dscuentas);
}// end function uf_print_cuentas_cargo_sep
//-----------------------------------------------------------------------------------------------------------------------------------
//-----------------------------------------------------------------------------------------------------------------------------------
function uf_print_total_sep($ad_subordcom,$ad_creordcom)
{
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Function: uf_print_total
// Access: private
// Arguments: as_numsol ---> numero de la solicitud a buscar los totales
// ad_subtotal ---> valor del subtotal de la sep cargada en la orden de compra
// ad_cargos ---> valor total de los cargos de la sep cargada en la orden de compra
// ad_total ---> total de la solicitud de pago de la sep cargada en la orden de compra
// Description: Método que suma los totales de una sep cargada y los totales de una sep selecionada y los imprime
// Creado Por: Ing.Yozelin Barragan
// Fecha Creación: 12/05/2007 Fecha Última Modificación :
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
$ld_totordcom = 0;
$ld_totordcom = ($ad_subordcom+$ad_creordcom);
$ld_subordcom = number_format($ad_subordcom,2,',','.');
$ld_creordcom = number_format($ad_creordcom,2,',','.');
$ld_totordcom = number_format($ld_totordcom,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_sep
//-----------------------------------------------------------------------------------------------------------------------------------
//-----------------------------------------------------------------------------------------------------------------------------------
function uf_print_cierrecuentas_gasto($ai_total,$as_tipo)
{
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Function: uf_print_cierrecuentas_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. Luis Lang
// Fecha Creación: 17/03/2009 Fecha Última Modificación :
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
global $io_grid,$io_funciones_soc,$la_cuentacargo,$li_estmodest,$li_loncodestpro1,$li_loncodestpro2,$li_loncodestpro3,
$li_loncodestpro4,$li_loncodestpro5;
require_once("../../shared/class_folder/class_datastore.php");
$io_dscuentas=new class_datastore();
// Titulos del Grid
$lo_title[1]="Estructura Presupuestaria";
$lo_title[2]="Cuenta";
$lo_title[3]="Monto";
//$lo_title[4]="";
$ls_codpro="";
// Recorrido del Grid de Cuentas Presupuestarias
if($as_tipo=="B")
{
for ($li_fila=1;$li_fila<=$ai_total;$li_fila++)
{
$li_moncue= $io_funciones_soc->uf_obtenervalor("txtsubtotart".$li_fila,"0,00");
$ls_cuenta= trim($io_funciones_soc->uf_obtenervalor("txtspgcuenta".$li_fila,""));
$ls_codprogas= trim($io_funciones_soc->uf_obtenervalor("hidcodestpro".$li_fila,""));
$ls_estclapre= trim($io_funciones_soc->uf_obtenervalor("estcla".$li_fila,""));
$li_moncue= str_replace(".","",$li_moncue);
$li_moncue= str_replace(",",".",$li_moncue);
$ls_codestpro1= substr($ls_codprogas,0,25);
$ls_codestpro2= substr($ls_codprogas,25,25);
$ls_codestpro3= substr($ls_codprogas,50,25);
$ls_codestpro4= substr($ls_codprogas,75,25);
$ls_codestpro5= substr($ls_codprogas,100,25);
if (!empty($ls_cuenta))
{
$io_dscuentas->insertRow("estcla",$ls_estclapre);
$io_dscuentas->insertRow("codprogas",$ls_codprogas);
$io_dscuentas->insertRow("cuentagas",$ls_cuenta);
$io_dscuentas->insertRow("moncuegas",$li_moncue);
$io_dscuentas->insertRow("codestpro1",$ls_codestpro1);
$io_dscuentas->insertRow("codestpro2",$ls_codestpro2);
$io_dscuentas->insertRow("codestpro3",$ls_codestpro3);
$io_dscuentas->insertRow("codestpro4",$ls_codestpro4);
$io_dscuentas->insertRow("codestpro5",$ls_codestpro5);
}
}
}
else
{
for ($li_fila=1;$li_fila<=$ai_total;$li_fila++)
{
$li_moncue= $io_funciones_soc->uf_obtenervalor("txtsubtotser".$li_fila,"0,00");
$ls_cuenta= trim($io_funciones_soc->uf_obtenervalor("txtspgcuenta".$li_fila,""));
$ls_codprogas= trim($io_funciones_soc->uf_obtenervalor("hidcodestpro".$li_fila,""));
$ls_estclapre= trim($io_funciones_soc->uf_obtenervalor("estcla".$li_fila,""));
$li_moncue= str_replace(".","",$li_moncue);
$li_moncue= str_replace(",",".",$li_moncue);
$ls_codestpro1= substr($ls_codprogas,0,25);
$ls_codestpro2= substr($ls_codprogas,25,25);
$ls_codestpro3= substr($ls_codprogas,50,25);
$ls_codestpro4= substr($ls_codprogas,75,25);
$ls_codestpro5= substr($ls_codprogas,100,25);
if (!empty($ls_cuenta))
{
$io_dscuentas->insertRow("estcla",$ls_estclapre);
$io_dscuentas->insertRow("codprogas",$ls_codprogas);
$io_dscuentas->insertRow("cuentagas",$ls_cuenta);
$io_dscuentas->insertRow("moncuegas",$li_moncue);
$io_dscuentas->insertRow("codestpro1",$ls_codestpro1);
$io_dscuentas->insertRow("codestpro2",$ls_codestpro2);
$io_dscuentas->insertRow("codestpro3",$ls_codestpro3);
$io_dscuentas->insertRow("codestpro4",$ls_codestpro4);
$io_dscuentas->insertRow("codestpro5",$ls_codestpro5);
}
}
}
// Agrupamos las cuentas por programatica y cuenta
$io_dscuentas->group_by(array('0'=>'codestpro1','1'=>'codestpro2','2'=>'codestpro3','3'=>'codestpro4','4'=>'codestpro5',
'5'=>'cuentagas','6'=>'estcla'),array('0'=>'moncuegas'),'moncuegas');
$li_total=$io_dscuentas->getRowCount('codestpro1');
for ($li_fila=1;$li_fila<=$li_total;$li_fila++)
{
$ls_codprogas = trim($io_dscuentas->getValue('codprogas',$li_fila));
$ls_cuenta = trim($io_dscuentas->getValue('cuentagas',$li_fila));
$li_moncue = number_format($io_dscuentas->getValue('moncuegas',$li_fila),2,",",".");
$ls_estcla = $io_dscuentas->getValue('estcla',$li_fila);
$ls_codestpro1 = substr($ls_codprogas,0,25);
$ls_codestpro1 = substr($ls_codestpro1,-$li_loncodestpro1);
$ls_codestpro2 = substr($ls_codprogas,25,25);
$ls_codestpro2 = substr($ls_codestpro2,-$li_loncodestpro2);
$ls_codestpro3 = substr($ls_codprogas,50,25);
$ls_codestpro3 = substr($ls_codestpro3,-$li_loncodestpro3);
$ls_codestpro = "";
if (!empty($ls_codprogas))
{
$ls_codestpro = $ls_codestpro1.'-'.$ls_codestpro2.'-'.$ls_codestpro3;
}
if ($li_estmodest==2)
{
if (!empty($ls_codprogas))
{
$ls_denestcla = $_SESSION["la_empresa"]["nomestpro1"];
$ls_codestpro4 = substr($ls_codprogas,75,25);
$ls_codestpro4 = substr($ls_codestpro4,-$li_loncodestpro4);
$ls_codestpro5 = substr($ls_codprogas,100,25);
$ls_codestpro5 = substr($ls_codestpro5,-$li_loncodestpro5);
$ls_codestpro = $ls_codestpro.'-'.$ls_codestpro4.'-'.$ls_codestpro5;
}
}
elseif($li_estmodest==1)
{
if ($ls_estcla=='P')
{
$ls_denestcla = 'Proyecto';
}
elseif($ls_estcla=='A')
{
$ls_denestcla = 'Actividad';
}
}
if (!empty($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 Otros Créditos","gridcuentascargos");
unset($io_dscuentas);
}// end function uf_print_cuentas_cargo
//-----------------------------------------------------------------------------------------------------------------------------------
?>
";
}
}
}
}
print "
Agregar Detalle Bienes