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