function uf_print_cuentas_gasto_sep($as_numsol,$ai_total,$as_tipo,$as_tipsol)
{
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Function: uf_print_cuentas_gasto
// Access: private
// Arguments: as_numsol --> numero de solicitud a buscar
// ai_total ---> total de filas a imprimir de los cargos
// as_tipo --> tipo de orden de compra si es de bienes ó de servicios
// as_tipsol ---> tipo de la solicitud si es sep o soc
// Description: Método que imprime el grid de las cuentas presupuestarias del Gasto
// Creado Por: Ing. Yozelin Barragan
// Fecha Creación: 12/05/2007 Fecha Última Modificación :
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
global $io_grid, $io_funciones_soc,$li_estmodest,$li_loncodestpro1,$li_loncodestpro2,$li_loncodestpro3,
$li_loncodestpro4,$li_loncodestpro5;
require_once("../../shared/class_folder/class_datastore.php");
$io_ds_cuentas=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 del opener
for ($li=1;$li<=$ai_total;$li++)
{
$ls_estcla = trim($io_funciones_soc->uf_obtenervalor("estclapre".$li,""));
$ls_codestpro = trim($io_funciones_soc->uf_obtenervalor("txtprogramaticagas".$li,""));
$ls_codprogas = trim($io_funciones_soc->uf_obtenervalor("txtcodprogas".$li,""));
$ls_cuentagas = trim($io_funciones_soc->uf_obtenervalor("txtcuentagas".$li,""));
$ld_moncuegas = trim($io_funciones_soc->uf_obtenervalor("txtmoncuegas".$li,"0,00"));
$ld_moncuegas = str_replace(".","",$ld_moncuegas);
$ld_moncuegas = str_replace(",",".",$ld_moncuegas);
if ($ls_cuentagas!="")
{
//$io_ds_cuentas->insertRow("programaticagas",$ls_programaticagas);
$io_ds_cuentas->insertRow("programaticagas",$ls_codestpro);
$io_ds_cuentas->insertRow("estcla",$ls_estcla);
$io_ds_cuentas->insertRow("codprogas",$ls_codprogas);
$io_ds_cuentas->insertRow("cuentagas",$ls_cuentagas);
$io_ds_cuentas->insertRow("moncuegas",$ld_moncuegas);
$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);
$io_ds_cuentas->insertRow("codestpro1",$ls_codestpro1);
$io_ds_cuentas->insertRow("codestpro2",$ls_codestpro2);
$io_ds_cuentas->insertRow("codestpro3",$ls_codestpro3);
$io_ds_cuentas->insertRow("codestpro4",$ls_codestpro4);
$io_ds_cuentas->insertRow("codestpro5",$ls_codestpro5);
}
}
//buscamos la programatica y la cuenta gasto de la sep seleccionada
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_numsol,$as_tipo,$as_tipsol);
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)
{
$ls_cuentagas = trim($io_dscuentas->data["spg_cuenta"][$li_i]);
$ld_moncuegas = $io_dscuentas->data["total"][$li_i];
$ls_estcla = $io_dscuentas->data["estcla"][$li_i];
$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_codestpro1com = trim($io_dscuentas->data["codestpro1"][$li_i]);
$ls_codestpro2com = trim($io_dscuentas->data["codestpro2"][$li_i]);
$ls_codestpro3com = trim($io_dscuentas->data["codestpro3"][$li_i]);
$ls_codestpro4com = trim($io_dscuentas->data["codestpro4"][$li_i]);
$ls_codestpro5com = trim($io_dscuentas->data["codestpro5"][$li_i]);
$ls_codprogas = $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_denestcla = $_SESSION["la_empresa"]["nomestpro1"];
$ls_codestpro4 = substr($ls_codestpro4,-$li_loncodestpro4);
$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';
}
}
$io_ds_cuentas->insertRow("programaticagas",$ls_codestpro);
$io_ds_cuentas->insertRow("estcla",$ls_estcla);
$io_ds_cuentas->insertRow("codprogas",$ls_codprogas);
$io_ds_cuentas->insertRow("cuentagas",$ls_cuentagas);
$io_ds_cuentas->insertRow("moncuegas",$ld_moncuegas);
$io_ds_cuentas->insertRow("codestpro1",$ls_codestpro1com);
$io_ds_cuentas->insertRow("codestpro2",$ls_codestpro2com);
$io_ds_cuentas->insertRow("codestpro3",$ls_codestpro3com);
$io_ds_cuentas->insertRow("codestpro4",$ls_codestpro4com);
$io_ds_cuentas->insertRow("codestpro5",$ls_codestpro5com);
}
}
}
//Recorremos el datastore llenado antenriormente para vaciar la informacion al grid
$io_ds_cuentas->group_by(array('0'=>'codestpro1','1'=>'codestpro2','2'=>'codestpro3','3'=>'codestpro4',
'4'=>'codestpro5','5'=>'estcla','6'=>'cuentagas'),array('0'=>'moncuegas'),'moncuegas');
$li_rows=$io_ds_cuentas->getRowCount('codestpro1');
for($li_fila=1;$li_fila<=$li_rows;$li_fila++)
{
$ls_programaticagas = trim($io_ds_cuentas->getValue('programaticagas',$li_fila));
$ls_codprogas = $io_ds_cuentas->getValue('codprogas',$li_fila);
$ls_cuentagas = $io_ds_cuentas->getValue('cuentagas',$li_fila);
$ld_moncuegas = number_format($io_ds_cuentas->getValue('moncuegas',$li_fila),2,",",".");
$ls_estcla = $io_ds_cuentas->getValue('estcla',$li_fila);
$lo_object[$li_fila][1]="<input name=txtprogramaticagas".$li_fila." id=txtprogramaticagas".$li_fila." type=text class=sin-borde style=text-align:center size=80 value='".$ls_programaticagas."' readonly title='".$ls_programaticagas.' - '.$ls_denestcla."'>";
$lo_object[$li_fila][2]="<input name=txtcuentagas".$li_fila." id=txtcuentagas".$li_fila." type=text class=sin-borde style=text-align:center size=30 value='".$ls_cuentagas."' readonly>";
$lo_object[$li_fila][3]="<input name=txtmoncuegas".$li_fila." id=txtmoncuegas".$li_fila." type=text class=sin-borde style=text-align:right size=30 onKeyPress=return(ue_formatonumero(this,'.',',',event)); value='".$ld_moncuegas."' >".
"<input name=txtcodprogas".$li_fila." id=txtcodprogas".$li_fila." type=hidden value='".$ls_codprogas."'><input name=estclapre".$li_fila." id=estclapre".$li_fila." type=hidden value='".$ls_estcla."'>";
// $lo_object[$li_fila][4]="<a href=javascript:ue_delete_cuenta_gasto('".$li_fila."','".$as_tipo."');><img src=../shared/imagebank/tools15/eliminar.gif title=Eliminar width=15 height=10 border=0></a>".
}
$lo_object[$li_fila][1]="<input name=txtprogramaticagas".$li_fila." type=text id=txtprogramaticagas".$li_fila." class=sin-borde style=text-align:center size=80 value='' readonly>";
$lo_object[$li_fila][2]="<input name=txtcuentagas".$li_fila." type=text id=txtcuentagas".$li_fila." class=sin-borde style=text-align:center size=30 value='' readonly>";
$lo_object[$li_fila][3]="<input name=txtmoncuegas".$li_fila." type=text id=txtmoncuegas".$li_fila." class=sin-borde style=text-align:right size=30 value='' readonly>";
$lo_object[$li_fila][4]="<input name=txtcodprogas".$li_fila." type=hidden id=txtcodprogas".$li_fila." value=''><input name=estclapre".$li_fila." id=estclapre".$li_fila." type=hidden value=''>";
print "<p> </p>";
print " <table width='840' border='0' align='center' cellpadding='0' cellspacing='0'";
print " <tr>";
//print " <td align='left'><a href='javascript:ue_catalogo_cuentas_spg('".$li_fila."');'><img src='../shared/imagebank/tools/nuevo.gif' width='20' height='20' border='0' title='Agregar Cuenta'>Agregar Cuenta</a> </td>";
print " </tr>";
print " </table>";
$io_grid->makegrid($li_fila,$lo_title,$lo_object,840,"Cuentas","gridcuentas");
unset($io_dscuentas,$io_ds_cuentas,$io_registro_orden);
}// end function uf_print_cuentas_gasto_sep
