function uf_print_cuentas_cargo_sep($as_numsol,$ai_total,$as_cargarcargos,$as_tipo,$as_tipsol,$as_tipconpro)
{
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Function: uf_print_cuentas_cargo_sep
// Access: private
// Arguments: as_numsol --> numero de la solicitud a buscar los detalles
// ai_total ---> total de filas a imprimir del los cargos
// as_cargarcargos ---> Si cargamos los cargos ó solo pintamos
// as_tipo ---> Tipo de SEP si es de bienes ó de servicios
// Description: Se encarga de imprimir los cargos de una sep
// Creado Por: Ing. Yozelin Barragan
// Fecha Creación: 12/05/2007 Fecha Última Modificación :
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
global $io_grid, $io_funciones_soc, $la_cuentacargo,$li_loncodestpro1,$li_loncodestpro2,
$li_loncodestpro3,$li_loncodestpro4,$li_loncodestpro5,$li_estmodest,$ls_codestpro,$ls_denestcla;
require_once("../../shared/class_folder/class_datastore.php");
$io_dscuenta_cargos=new class_datastore();
// Titulos el Grid
$lo_title[1] = "Crédito";
$lo_title[2] = "Estructura Presupuestaria";
$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_codcargo = trim($io_funciones_soc->uf_obtenervalor("txtcodcargo".$li_fila,""));
$ls_programaticacar = trim($io_funciones_soc->uf_obtenervalor("txtprogramaticacar".$li_fila,""));
$ls_cuentacar = trim($io_funciones_soc->uf_obtenervalor("txtcuentacar".$li_fila,""));
$ld_moncuecar = trim($io_funciones_soc->uf_obtenervalor("txtmoncuecar".$li_fila,"0,00"));
$ls_estcla = $io_funciones_soc->uf_obtenervalor("estclacar".$li_fila,"");
$ld_moncuecar = str_replace(".","",$ld_moncuecar);
$ld_moncuecar = str_replace(",",".",$ld_moncuecar);
$ls_codprocar = trim($io_funciones_soc->uf_obtenervalor("txtcodprocar".$li_fila,""));
if (!empty($ls_cuentacar))
{
$io_dscuenta_cargos->insertRow("codcargo",$ls_codcargo);
$io_dscuenta_cargos->insertRow("estcla",$ls_estcla);
$io_dscuenta_cargos->insertRow("programaticacar",$ls_programaticacar);
$io_dscuenta_cargos->insertRow("cuentacar",$ls_cuentacar);
$io_dscuenta_cargos->insertRow("moncuecar",$ld_moncuecar);
$io_dscuenta_cargos->insertRow("codprocar",$ls_codprocar);
$ls_codestpro1 = substr($ls_codprocar,0,25);
$ls_codestpro2 = substr($ls_codprocar,25,25);
$ls_codestpro3 = substr($ls_codprocar,50,25);
$ls_codestpro4 = substr($ls_codprocar,75,25);
$ls_codestpro5 = substr($ls_codprocar,100,25);
$io_dscuenta_cargos->insertRow("codestpro1",$ls_codestpro1);
$io_dscuenta_cargos->insertRow("codestpro2",$ls_codestpro2);
$io_dscuenta_cargos->insertRow("codestpro3",$ls_codestpro3);
$io_dscuenta_cargos->insertRow("codestpro4",$ls_codestpro4);
$io_dscuenta_cargos->insertRow("codestpro5",$ls_codestpro5);
}
}
if(($as_tipconpro=="O")||($as_tipconpro=="E"))
{
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_cuentas_cargo($as_numsol,$as_tipo,$as_tipsol);
while ($row=$io_registro_orden->io_sql->fetch_row($rs_data))
{
$ls_codcargo = $row["codcar"];
$ls_estcla = $row["estcla"];
$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_codprocar = $ls_codestpro1.$ls_codestpro2.$ls_codestpro3.$ls_codestpro4.$ls_codestpro5;
$ls_cuentacar = trim($row["spg_cuenta"]);
$ld_moncuecar = $row["total"];
$ls_codestpro1com =$ls_codestpro1;
$ls_codestpro2com =$ls_codestpro2;
$ls_codestpro3com =$ls_codestpro3;
$ls_codestpro4com =$ls_codestpro4;
$ls_codestpro5com =$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_dscuenta_cargos->insertRow("estcla",$ls_estcla);
$io_dscuenta_cargos->insertRow("codcargo",$ls_codcargo);
$io_dscuenta_cargos->insertRow("programaticacar",$ls_codestpro);
$io_dscuenta_cargos->insertRow("cuentacar",$ls_cuentacar);
$io_dscuenta_cargos->insertRow("moncuecar",$ld_moncuecar);
$io_dscuenta_cargos->insertRow("codprocar",$ls_codprocar);
$io_dscuenta_cargos->insertRow("codestpro1",$ls_codestpro1com);
$io_dscuenta_cargos->insertRow("codestpro2",$ls_codestpro2com);
$io_dscuenta_cargos->insertRow("codestpro3",$ls_codestpro3com);
$io_dscuenta_cargos->insertRow("codestpro4",$ls_codestpro4com);
$io_dscuenta_cargos->insertRow("codestpro5",$ls_codestpro5com);
}
}
//Recorremos el datastore llenado antenriormente para vaciar la informacion al grid
$io_dscuenta_cargos->group_by(array('0'=>'codcargo','1'=>'codestpro1','2'=>'codestpro2','3'=>'codestpro3',
'4'=>'codestpro4','5'=>'codestpro5','6'=>'estcla','7'=>'cuentacar'),
array('0'=>'moncuecar'),'moncuecar');
$li_rows=$io_dscuenta_cargos->getRowCount('codestpro1');
for($li_fila=1;$li_fila<=$li_rows;$li_fila++)
{
$ls_estcla = $io_dscuenta_cargos->getValue('estcla',$li_fila);
$ls_codcargo = $io_dscuenta_cargos->getValue('codcargo',$li_fila);
$ls_programaticacar = $io_dscuenta_cargos->getValue('programaticacar',$li_fila);
$ls_cuentacar = $io_dscuenta_cargos->getValue('cuentacar',$li_fila);
$ld_moncuecar = number_format($io_dscuenta_cargos->getValue('moncuecar',$li_fila),2,",",".");
$ls_codprocar = $io_dscuenta_cargos->getValue('codprocar',$li_fila);
$lo_object[$li_fila][1]="<input name=txtcodcargo".$li_fila." type=text id=txtcodcargo".$li_fila." class=sin-borde style=text-align:center size=12 value='".$ls_codcargo."' readonly>";
$lo_object[$li_fila][2]="<input name=txtprogramaticacar".$li_fila." type=text id=txtprogramaticacar".$li_fila." class=sin-borde style=text-align:center size=75 value='".$ls_programaticacar."' readonly title='".$ls_codestpro.' - '.$ls_denestcla."'>";
$lo_object[$li_fila][3]="<input name=txtcuentacar".$li_fila." type=text id=txtcuentacar".$li_fila." class=sin-borde style=text-align:center size=25 value='".$ls_cuentacar."' readonly>";
$lo_object[$li_fila][4]="<input name=txtmoncuecar".$li_fila." type=text id=txtmoncuecar".$li_fila." class=sin-borde style=text-align:right size=25 onKeyPress=return(ue_formatonumero(this,'.',',',event)); value='".$ld_moncuecar."' readonly>".
"<input name=txtcodprocar".$li_fila." type=hidden id=txtcodprocar".$li_fila." value='".$ls_codprocar."'><input name=estclacar".$li_fila." type=hidden id=estclacar".$li_fila." value='".$ls_estcla."'>";
//$lo_object[$li_fila][5]="<a href=javascript:ue_delete_cuenta_cargo('".$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=txtcodcargo".$li_fila." type=text id=txtcodcargo".$li_fila." class=sin-borde style=text-align:center size=12 value='' readonly>";
$lo_object[$li_fila][2]="<input name=txtprogramaticacar".$li_fila." type=text id=txtprogramaticacar".$li_fila." class=sin-borde style=text-align:center size=75 value='' readonly>";
$lo_object[$li_fila][3]="<input name=txtcuentacar".$li_fila." type=text id=txtcuentacar".$li_fila." class=sin-borde style=text-align:center size=25 value='' readonly>";
$lo_object[$li_fila][4]="<input name=txtmoncuecar".$li_fila." type=text id=txtmoncuecar".$li_fila." class=sin-borde style=text-align:right size=25 value='' readonly>";
$lo_object[$li_fila][5]="<input name=txtcodprocar".$li_fila." type=hidden id=txtcodprocar".$li_fila." value=''><input name=estclacar".$li_fila." type=hidden id=estclacar".$li_fila." 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_cargos();'><img src='../shared/imagebank/tools/nuevo.gif' width='20' height='20' border='0' title='Agregar Cuenta'>Agregar Cuenta Otros Créditos</a> </td>";
print " </tr>";
print " </table>";
$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
<!--
#Layer1 {
position:absolute;
left:9px;
top:151px;
width:214px;
height:28px;
z-index:1;
}
-->
</style>
</head>
<body onLoad="writetostatus('<?php print "Base de Datos: ".$_SESSION["ls_database"].". Usuario: ".$_SESSION["la_logusr"];?>')">
<?php
require_once("class_folder/sigesp_soc_c_registro_orden_compra.php");
$io_soc=new sigesp_soc_c_registro_orden_compra("../");
uf_limpiarvariables();
switch ($ls_operacion)
{
case "GUARDAR":
/* CÓDIGO AGRAGADO PARA CARGAR POR LOTE SIMULTANEAMENTE */
require_once("../shared/class_folder/sigesp_c_generar_consecutivo.php");
$io_id_process_socV= new sigesp_c_generar_consecutivo();
$ls_numordcombieV = $io_id_process_socV->uf_generar_numero_nuevo('SOC','soc_ordencompra','numordcom','SOCCOC',15,'numordcom','estcondat','B');
$ls_numordcomserV = $io_id_process_socV->uf_generar_numero_nuevo('SOC','soc_ordencompra','numordcom','SOCCOS',15,'numordser','estcondat','S');
unset($io_id_process_socV);
$verificar = 'verifica';
/* FIN CÓDIGO AGREAGADO */
uf_load_variables();
$ls_tipsol= $_POST["txttipsol"];
$ls_numordcom=$_POST["txtnumordcom"];
