function uf_print_compromisos()
{
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Function: uf_print_compromisos
// 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("../../");
$ls_numdoc=$_POST['numdoc'];
$ls_codtipdoc=$_POST["codtipdoc"];
$ls_codigo=$_POST['codigo'];
$ls_tipodes=$_POST['tipodes'];
$ld_fechareg=$io_funciones->uf_convertirdatetobd($_POST['fechareg']);
switch($ls_tipodes)
{
case "P":
$ls_codprov=$ls_codigo;
$ls_cedbene="----------";
break;
case "B":
$ls_codprov="----------";
$ls_cedbene=$ls_codigo;
break;
}
$lb_valido=$io_recepcion->uf_select_solicitudes_pago($ls_numdoc,$ls_codtipdoc,$ls_codprov,$ls_cedbene);
if($lb_valido==true)
{
$io_mensajes->uf_mensajes_ajax("Error al cargar Compromisos ","ERROR->".$io_funciones->uf_convertirmsg($io_sql->message),false,"");
}
else
{
$lb_valido=$io_recepcion->uf_load_comprobantes_positivos($ls_tipodes,$ls_codprov,$ls_cedbene,$ld_fechareg);
if($lb_valido)
{
$li_totrow=$io_recepcion->io_ds_compromisos->getRowCount('comprobante');
if($li_totrow>0)
{
print "<table width=600 border=0 cellpadding=1 cellspacing=1 class=fondo-tabla align=center>";
print "<tr class=titulo-celda>";
print " <td align='center' >Comprobante</td>";
print " <td align='center' >Procede</td>";
print " <td align='center' >Fecha</td>";
print " <td align='left' >Descripción</td>";
print " <td align='rigth' >Total</td>";
print "</tr>";
for($li_i=1;($li_i<=$li_totrow)&&($lb_valido);$li_i++)
{
$ls_procede=$io_recepcion->io_ds_compromisos->data["procede"][$li_i];
$ls_comprobante=$io_recepcion->io_ds_compromisos->data["comprobante"][$li_i];
$li_total=$io_recepcion->io_ds_compromisos->data["total"][$li_i];
$ls_descripcion=$io_recepcion->io_ds_compromisos->data["descripcion"][$li_i];
$ls_fecha=$io_recepcion->io_ds_compromisos->data["fecha"][$li_i];
$li_monto_ajuste=0;
$li_monto_causado=0;
$li_monto_anulado=0;
$li_monto_recepcion=0;
$li_monto_ordenpago=0;
$li_monto_cargo=0;
$li_monto_solicitud=0;
$li_disponible=0;
$ls_numcomanu="";
$lb_valido=$io_recepcion->uf_load_monto_ajustes($ls_comprobante,$ls_procede,$ls_tipodes,$ls_codprov,
$ls_cedbene,&$li_monto_ajuste);
if($lb_valido)
{
$lb_valido=$io_recepcion->uf_load_monto_causados($ls_comprobante,$ls_procede,$ls_tipodes,$ls_codprov,
$ls_cedbene,&$li_monto_causado);
}
if($lb_valido)
{
$lb_valido=$io_recepcion->uf_load_comprobantes_anulados($ls_comprobante,$ls_tipodes,$ls_codprov,
$ls_cedbene,$ld_fechareg,&$ls_numcomanu);
}
if($lb_valido)
{
$lb_valido=$io_recepcion->uf_load_monto_anulados($ls_numcomanu,$ls_procede,$ls_tipodes,$ls_codprov,
$ls_cedbene,&$li_monto_anulado);
}
if($lb_valido)
{
$lb_valido=$io_recepcion->uf_load_monto_recepciones($ls_comprobante,$ls_procede,&$li_monto_recepcion);
}
if($lb_valido)
{
$lb_valido=$io_recepcion->uf_load_monto_ordenespago_directa($ls_comprobante,$ls_procede,&$li_monto_ordenpago);
}
/*if($lb_valido)
{
$lb_valido=$io_recepcion->uf_load_monto_cargos($ls_comprobante,$ls_procede,&$li_monto_cargo);
}*/
if($lb_valido)
{
// $li_disponible=($li_total+$li_monto_ajuste)-$li_monto_causado+$li_monto_anulado-$li_monto_recepcion-$li_monto_cargo;
$li_disponible=($li_total+$li_monto_ajuste)-($li_monto_causado+$li_monto_anulado)-$li_monto_recepcion;
//print" DISPONIBLE->".$li_disponible." TOTAL->".$li_total." AJUSTE->".$li_monto_ajuste." CAUSADO->".$li_monto_causado." Anulado->".$li_monto_anulado." Recepcion->".$li_monto_recepcion."<br><br>";
if($li_disponible>0)
{
$lb_valido=$io_recepcion->uf_load_acumulado_solicitudes($ls_numdoc,$ls_codtipdoc,$ls_codprov,
$ls_cedbene,&$li_monto_solicitud);
if($lb_valido)
{
if($li_total==$li_monto_solicitud)
{//Verificar que no existan solicitudes de pago con el monto igual a la RD.
$lb_valido=false;
}
}
if($lb_valido)
{
print "<tr class=celdas-blancas>";
print " <td width=110 align=center><a href=\"javascript: ue_aceptar('$ls_comprobante','$ls_procede',";
print " '$ls_descripcion','$ls_fecha','$li_disponible','$li_monto_cargo');\">".$ls_comprobante."</a></td>";
print " <td width=80 align=center>".$ls_procede."</td>";
print " <td width=80 align=center>".$io_funciones->uf_convertirfecmostrar($ls_fecha)."</td>";
print " <td width=330 align=left>".$ls_descripcion."</td>";
print " <td width=100 align=right>".number_format($li_disponible,2,',','.')."</td>";
print "</tr>";
}
}
}
}
print "</table>";
}
else
{
$io_mensajes->message("ERROR->No hay comprobantes asociados a este Proveedor ó Beneficiario");
}
}
}
unset($io_mensajes);
unset($io_funciones);
unset($io_recepcion);
}// end function uf_print_compromisos
