function uf_print_cierrecuentas_cargo($ai_total,$as_cargarcargos,$as_tipo)
{
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Function: uf_print_cierrecuentas_cargo
// 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
// Modificado Por: Ing. Yozelin Barragan
// Fecha Creación: 17/03/2007 Fecha Última Modificación : 12/05/2007
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
global $io_grid, $io_funciones_sep,$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]="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_cargo= trim($io_funciones_sep->uf_obtenervalor("txtcodcar".$li_fila,""));
$li_moncue= $io_funciones_sep->uf_obtenervalor("txtmoncar".$li_fila,"");
$ls_cuenta= trim($io_funciones_sep->uf_obtenervalor("txtcodspgcre".$li_fila,""));
$ls_codpro= $io_funciones_sep->uf_obtenervalor("txtcodgascre".$li_fila,"");
$ls_estcla= $io_funciones_sep->uf_obtenervalor("txtstatuscre".$li_fila,"");
$li_moncue = str_replace(".","",$li_moncue);
$li_moncue = str_replace(",",".",$li_moncue);
$ls_codestpro1 = substr($ls_codpro,0,25);
$ls_codestpro2 = substr($ls_codpro,25,25);
$ls_codestpro3 = substr($ls_codpro,50,25);
$ls_codestpro4 = substr($ls_codpro,75,25);
$ls_codestpro5 = substr($ls_codpro,100,25);
if($ls_cuenta!="")
{
$valores["codcargo"]=$ls_cargo;
$valores["cuentacar"]=$ls_cuenta;
$valores["estcla"]=$ls_estcla;
$valores["codestpro1"]=$ls_codestpro1;
$valores["codestpro2"]=$ls_codestpro2;
$valores["codestpro3"]=$ls_codestpro3;
$valores["codestpro4"]=$ls_codestpro4;
$valores["codestpro5"]=$ls_codestpro5;
$ll_row_found=$io_dscuentas->findValues($valores,"codcargo") ;
if($ll_row_found>0)
{
$ldec_monto=0;
$ldec_monto=$io_dscuentas->getValue("moncuecar",$ll_row_found);
$ldec_monto=$ldec_monto + $li_moncue;
$io_dscuentas->updateRow("moncuecar",$ldec_monto,$ll_row_found);
}
else
{
$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("estcla",$ls_estcla);
$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);
}
}
}
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 = trim($la_cuentacargo[$li_fila]["estcla"]);
$li_moncue="0.00";
$ls_codestpro1 = substr($ls_programatica,0,25);
$ls_codestpro2 = substr($ls_programatica,25,25);
$ls_codestpro3 = substr($ls_programatica,50,25);
$ls_codestpro4 = substr($ls_programatica,75,25);
$ls_codestpro5 = substr($ls_programatica,100,25);
if($ls_cuenta!="")
{
$valores["codcargo"]=$ls_cargo;
$valores["cuentacar"]=$ls_cuenta;
$valores["estcla"]=$ls_estcla;
$valores["codestpro1"]=$ls_codestpro1;
$valores["codestpro2"]=$ls_codestpro2;
$valores["codestpro3"]=$ls_codestpro3;
$valores["codestpro4"]=$ls_codestpro4;
$valores["codestpro5"]=$ls_codestpro5;
$ll_row_found=$io_dscuentas->findValues($valores,"codcargo") ;
if($ll_row_found>0)
{
$ldec_monto=0;
$ldec_monto=$io_dscuentas->getValue("moncuecar",$ll_row_found);
$ldec_monto=$ldec_monto + $li_moncue;
$io_dscuentas->updateRow("moncuecar",$ldec_monto,$ll_row_found);
}
else
{
$io_dscuentas->insertRow("codcargo",$ls_cargo);
$io_dscuentas->insertRow("codprocar",$ls_programatica);
$io_dscuentas->insertRow("cuentacar",$ls_cuenta);
$io_dscuentas->insertRow("moncuecar",$li_moncue);
$io_dscuentas->insertRow("estcla",$ls_estcla);
$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'=>'codcargo','1'=>'codprocar','2'=>'cuentacar','3'=>'estcla'),array('0'=>'moncuecar'),'moncuecar');
$io_dscuentas->group_by(array('0'=>'codcargo','1'=>'codestpro1','2'=>'codestpro2','3'=>'codestpro3','4'=>'codestpro4','5'=>'codestpro5',
'6'=>'estcla','7'=>'cuentacar'),array('0'=>'moncuecar'),'moncuecar');
$li_total=$io_dscuentas->getRowCount('codcargo');
//print_r($io_dscuentas->data);
// 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);
$li_moncue = number_format($io_dscuentas->getValue('moncuecar',$li_fila),2,",",".");
$ls_codestpro = "";
if (!empty($ls_codpro))
{
$ls_codestpro1 = substr($ls_codpro,0,25);
$ls_codestpro2 = substr($ls_codpro,25,25);
$ls_codestpro3 = substr($ls_codpro,50,25);
$ls_codestpro4 = substr($ls_codpro,75,25);
$ls_codestpro5 = substr($ls_codpro,100,25);
$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)
{
if (!empty($ls_codpro))
{
$ls_codestpro2 = substr($ls_codestpro2,-$li_loncodestpro2);
$ls_codestpro3 = substr($ls_codestpro3,-$li_loncodestpro3);
$ls_codestpro = $ls_codestpro.'-'.$ls_codestpro4.'-'.$ls_codestpro5;
}
}
$ls_estcla = $io_dscuentas->getValue('estcla',$li_fila);
if($ls_cuenta!="")
{
$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_cargo."' 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_codestpro."' 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='".$ls_cuenta."' 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='".$li_moncue."' readonly>".
"<input name=txtcodprocar".$li_fila." type=hidden id=txtcodprocar".$li_fila." value='".$ls_codpro."'>".
"<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>".
}
}
$ai_total=$li_total+1;
$lo_object[$ai_total][1]="<input name=txtcodcargo".$ai_total." type=text id=txtcodcargo".$ai_total." class=sin-borde style=text-align:center size=12 value='' readonly>";
$lo_object[$ai_total][2]="<input name=txtprogramaticacar".$ai_total." type=text id=txtprogramaticacar".$ai_total." class=sin-borde style=text-align:center size=75 value='' readonly>";
$lo_object[$ai_total][3]="<input name=txtcuentacar".$ai_total." type=text id=txtcuentacar".$ai_total." class=sin-borde style=text-align:center size=25 value='' readonly>";
$lo_object[$ai_total][4]="<input name=txtmoncuecar".$ai_total." type=text id=txtmoncuecar".$ai_total." class=sin-borde style=text-align:right size=25 value='' readonly>";
$lo_object[$ai_total][5]="<input name=txtcodprocar".$ai_total." type=hidden id=txtcodprocar".$ai_total." 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($ai_total,$lo_title,$lo_object,840,"Cuentas Otros Créditos","gridcuentascargos");
unset($io_dscuentas);
}// end function uf_print_cuentas_cargo
function uf_print_amortizacion()
{
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Function: uf_print_amortizacion
// Access: private
// Arguments:
// Description: Función que obtiene e imprime los resultados de la busqueda de compromisos
// Creado Por: Ing. Yesenia Moreno/ Ing. Luis Lang
// Fecha Creación: 09/05/2007 Fecha Última Modificación :
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
global $io_funciones_sob;
require_once("../../shared/class_folder/class_mensajes.php");
$io_mensajes=new class_mensajes();
require_once("../../shared/class_folder/class_funciones.php");
$io_funciones=new class_funciones();
require_once("sigesp_sob_c_recepcion.php");
$io_recepcion=new sigesp_sob_c_recepcion("../../");
require_once("../../shared/class_folder/class_datastore.php");
$io_ds_amortizacion=new class_datastore(); // Datastored de cuentas contables
$ls_codigo=$_POST['codigo'];
$ls_tipodes=$_POST['tipodes'];
switch($ls_tipodes)
{
case "P":
$ls_codprov=$ls_codigo;
$ls_cedbene="----------";
break;
case "B":
$ls_codprov="----------";
$ls_cedbene=$ls_codigo;
break;
}
if(array_key_exists("amortizacion",$_SESSION))
{
$io_ds_amortizacion->data=$_SESSION["amortizacion"];
}
$lb_valido=$io_recepcion->uf_select_amortizaciones($ls_codprov,$ls_cedbene);
if($lb_valido==true)
{
$li_totrow=$io_recepcion->io_ds_anticipos->getRowCount('numrecdoc');
if($li_totrow>0)
{//print_r($io_ds_amortizacion->data);
print "<table width=600 border=0 cellpadding=1 cellspacing=1 class=fondo-tabla align=center>";
print "<tr class=titulo-celda>";
print " <td align='center' >Recepcion</td>";
print " <td align='rigth' >Total Anticipo</td>";
print " <td align='rigth' >Saldo</td>";
print " <td align='rigth' >Amortizacion</td>";
print "</tr>";
for($li_i=1;($li_i<=$li_totrow)&&($lb_valido);$li_i++)
{
$ls_numrecdoc=trim($io_recepcion->io_ds_anticipos->data["numrecdoc"][$li_i]);
$ls_codtipdoc=trim($io_recepcion->io_ds_anticipos->data["codtipdoc"][$li_i]);
$li_monsal=$io_recepcion->io_ds_anticipos->data["monsal"][$li_i];
$li_montotamo=$io_recepcion->io_ds_anticipos->data["montotamo"][$li_i];
$ls_cuenta=$io_recepcion->io_ds_anticipos->data["cuenta"][$li_i];
$ls_codamo=$io_recepcion->io_ds_anticipos->data["codamo"][$li_i];
$li_monamo=0;
if($lb_valido)
{
$li_row=$io_ds_amortizacion->findValues(array('recdocant'=>$ls_numrecdoc,'codtipdoc'=>$ls_codtipdoc),"recdocant");
if($li_row>0)
{
$li_monamo=$io_ds_amortizacion->getValue("monto",$li_row);
}
print "<tr class=celdas-blancas>";
print " <td width=155 align=center><input name=txtnumrecdoc".$li_i." type=text class=sin-borde style=text-align:center id=txtnumrecdoc".$li_i."' value=".$ls_numrecdoc." readonly/>".
" <input name=txtcuenta".$li_i." type=hidden id=txtcuenta".$li_i."' value=".$ls_cuenta." /><input name=txtcodtipdoc".$li_i." type=hidden id=txtcodtipdoc".$li_i."' value=".$ls_codtipdoc." />".
" <input name=txtcodamo".$li_i." type=hidden id=txtcodamo".$li_i."' value=".$ls_codamo." /></td>";
print " <td width=155 align=right>".number_format($li_montotamo,2,',','.')."</td>";
print " <td width=155 align=right><input name=txtsaldo".$li_i." type=text class=sin-borde style=text-align:right id=txtsaldo".$li_i."' value=".number_format($li_monsal,2,',','.')." readonly/></td>";
print " <td width=155 align=right><input name=txtmonto".$li_i." type=text class=sin-borde style=text-align:right id=txtmonto".$li_i."' value=".number_format($li_monamo,2,',','.')." onKeyPress=return(ue_formatonumero(this,'.',',',event)); onBlur= ue_validarmonto(); /> </td>";
print "</tr>";
}
}
print "<tr><td>";
print "<input name=txttotrow type=hidden class=sin-borde id=txttotrow value=".$li_totrow." onKeyPress=return(ue_formatonumero(this,'.',',',event)); />";
print "</td></tr>";
print "</table>";
}
else
{
$io_mensajes->message("ERROR->No hay Anticipos asociados a este Proveedor ó Beneficiario");
}
}
unset($io_mensajes);
unset($io_funciones);
unset($io_recepcion);
}// end function uf_print_compromisos
function uf_print_deducciones()
{
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Function: uf_print_deducciones
// Access: private
// Arguments:
// Description: Método que imprime el resultado de la busqueda de las cdeducciones a aplicar en la recepción de documentos
// Creado Por: Ing. Néstor Falcón
// Fecha Creación: 22/04/2007 Fecha Última Modificación :
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
global $io_grid, $io_ds_deducciones;
require_once "../../shared/class_folder/sigesp_include.php";
$io_include = new sigesp_include();
$io_conexion = $io_include->uf_conectar();
require_once "../../shared/class_folder/class_sql.php";
$io_sql = new class_sql($io_conexion);
require_once "../../shared/class_folder/class_mensajes.php";
$io_mensajes = new class_mensajes();
require_once "../../shared/class_folder/class_funciones.php";
$io_funciones = new class_funciones();
require_once "../../shared/class_folder/class_datastore.php";
$io_ds_deducciones = new class_datastore();
// Datastored de cuentas contables
$ls_numrecdoc = $_POST['numrecdoc'];
$li_subtotal = $_POST['subtotal'];
$li_cargos = $_POST['cargos'];
$ls_procede = $_POST['procede'];
$ls_presupuestario = $_POST['presupuestario'];
$ls_contable = $_POST['contable'];
$ls_codemp = $_SESSION['la_empresa']['codemp'];
$ls_modageret = $_SESSION["la_empresa"]["modageret"];
$ls_orden = $_POST['orden'];
$ls_campoorden = $_POST['campoorden'];
$ls_tipo = $_POST['tipo'];
$li_fila = 0;
$ls_sql = "SELECT codded,dended,formula,porded,sc_cuenta,islr,iva,estretmun\n\t\t\t\t FROM sigesp_deducciones\n\t\t\t\t WHERE iva=1 \n\t\t\t\t AND estretmun=0 \n\t\t\t\t\tAND islr=0 \n\t\t\t\t\tAND otras=0\n\t\t\t\t ORDER BY codded ASC";
$rs_data = $io_sql->select($ls_sql);
if ($rs_data === false) {
$io_mensajes->uf_mensajes_ajax("Error al cargar Deducciones ", "ERROR->" . $io_funciones->uf_convertirmsg($io_sql->message), false, "");
} else {
$lo_title[1] = " ";
$lo_title[2] = utf8_encode("Código");
$lo_title[3] = utf8_encode("Denominación");
if ($ls_tipo == 'CMPRETIVA') {
$lo_title[4] = "Porcentaje";
$lo_title[5] = utf8_encode("Fórmula");
}
if (array_key_exists("deducciones", $_SESSION)) {
$io_ds_deducciones->data = $_SESSION["deducciones"];
}
while ($row = $io_sql->fetch_row($rs_data)) {
$li_fila++;
$ls_codded = $row["codded"];
$ls_dended = $row["dended"];
$ls_formula = $row["formula"];
$ld_porded = $row["porded"];
$ls_cuenta = $row["sc_cuenta"];
$li_iva = $row["iva"];
$li_islr = $row["islr"];
$li_estretmun = $row["estretmun"];
$ls_activo = "";
$li_monobjret = 0;
$li_monret = "0,00";
if ($li_islr == '1' || $li_estretmun == '1') {
$li_monobjret = number_format($li_subtotal, 2, ',', '.');
} else {
$li_monobjret = $li_cargos;
}
$li_row = $io_ds_deducciones->findValues(array('codded' => $ls_codded), "codded");
if ($li_row > 0) {
$ls_activo = "checked";
$li_monobjret = $io_ds_deducciones->getValue("monobjret", $li_row);
$li_monret = $io_ds_deducciones->getValue("monret", $li_row);
}
$lo_object[$li_fila][1] = "<input name=radiodeduccion type=radio id=radiodeduccion" . $li_fila . " class=sin-borde>";
$lo_object[$li_fila][2] = "<input name=txtcodded" . $li_fila . " type=text id=txtcodded" . $li_fila . " class=sin-borde style=text-align:center size=7 value='" . $ls_codded . "' readonly>";
$lo_object[$li_fila][3] = "<input name=txtdended" . $li_fila . " type=text id=txtdended" . $li_fila . " class=sin-borde style=text-align:left size=40 value='" . $ls_dended . "' readonly>";
$lo_object[$li_fila][4] = "<input name=porded" . $li_fila . " type=text id=porded" . $li_fila . " \t class=sin-borde style=text-align:right size=7 value='" . number_format($ld_porded, 2, ',', '.') . "' readonly >";
$lo_object[$li_fila][5] = "<input name=formula" . $li_fila . " type=text id=formula" . $li_fila . " class=sin-borde style=text-align:left size=50 value='" . $ls_formula . "' readonly>";
}
$io_sql->free_result($rs_data);
if ($ls_tipo == 'CMPRETIVA') {
echo "<table width=534 border=0 align=center cellpadding=0 cellspacing=0>";
echo "<tr>";
echo "<td width=532 colspan=6 align=center bordercolor=#FFFFFF>";
echo "<div align=center class=Estilo2>";
echo "<p align=right> <a href='javascript: uf_aceptar_deducciones({$li_fila});'><img src='../shared/imagebank/tools20/aprobado.gif' alt='Aceptar' width=20 height=20 border=0>Agregar Deducciones</a></p>";
echo "</div></td>";
echo "</tr>";
echo "</table>";
}
$io_grid->makegrid($li_fila, $lo_title, $lo_object, 580, "", "griddeduccion");
}
unset($io_include);
unset($io_conexion);
unset($io_sql);
unset($io_mensajes);
unset($io_funciones);
unset($ls_codemp);
}
