<form name="form1" method="post" action="">
<?php
require_once("../shared/class_folder/sigesp_include.php");
$in=new sigesp_include();
$con=$in->uf_conectar();
require_once("../shared/class_folder/class_mensajes.php");
$msg=new class_mensajes();
require_once("../shared/class_folder/class_sql.php");
$SQL=new class_sql($con);
$ds=new class_datastore();
require_once("../shared/class_folder/class_funciones.php");
$fun=new class_funciones();
$ls_codemp=$arr["codemp"];
require_once("sigesp_c_cuentas_banco.php");
$io_ctaban = new sigesp_c_cuentas_banco();
if(array_key_exists("operacion",$_POST))
{
$ls_operacion=$_POST["operacion"];
$ls_codigo=$_POST["codigo"];
$ls_denban=$_POST["denban"];
$ls_ctaban="%".$_POST["cuenta"]."%";
$ls_denominacion="%".$_POST["denominacion"]."%";
}
else
{
$ls_operacion="";
$ls_codigo=$_GET["codigo"];
$ls_denban=$_GET["denban"];
}
print "close();";
print "opener.document.form1.submit();";
print "</script>";
}
require_once("../shared/class_folder/sigesp_include.php");
$in=new sigesp_include();
$con=$in->uf_conectar();
$io_msg=new class_mensajes();
require_once("../shared/class_folder/class_funciones.php");
$io_function=new class_funciones();
require_once("../shared/class_folder/class_sql.php");
$SQL=new class_sql($con);
$ds=new class_datastore();
$ds_procedencias=new class_datastore();
require_once("sigesp_c_cuentas_banco.php");
$io_ctabanco=new sigesp_c_cuentas_banco();
$SQL_mov=new class_sql($con);
$arr=$_SESSION["la_empresa"];
$as_codemp=$arr["codemp"];
function uf_cargar_procedencias($sql)
{
global $ds_procedencias;
$ls_sql="SELECT * FROM sigesp_procedencias";
$data=$sql->select($ls_sql);
//$data=$rs_cta;
if(($data===false))
{
}
function uf_print_ordenespago($as_origen)
{
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Function: uf_print_ordenespago
// Access: private
// Arguments:
// Description: Método que imprime el resultado de la busqueda de las Ordenes de Pago Ministerio.
// Creado Por: Ing. Néstor Falcón
// Fecha Creación: 11/02/2009. Fecha Última Modificación : 11/02/2009.
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
require_once "../sigesp_c_cuentas_banco.php";
require_once "../../shared/class_folder/class_sql.php";
require_once "../../shared/class_folder/sigesp_include.php";
require_once "../../shared/class_folder/class_mensajes.php";
require_once "../../shared/class_folder/class_funciones.php";
$io_include = new sigesp_include();
$io_mensajes = new class_mensajes();
$io_funciones = new class_funciones();
$io_conexion = $io_include->uf_conectar();
$io_sql = new class_sql($io_conexion);
$io_ctaban = new sigesp_c_cuentas_banco();
$ls_numordpagmin = $_POST['numordpagmin'];
$ls_codban = $_POST['codban'];
$ls_ctaban = $_POST['ctaban'];
$ls_fecmov = $_POST['fecmov'];
$ls_sqlaux = "";
$li_fila = 0;
if (!empty($ls_fecmov)) {
$ls_fecmov = $io_funciones->uf_convertirdatetobd($ls_fecmov);
$ls_sqlaux = "AND scb_movbco.fecmov = '" . $ls_fecmov . "'";
}
$ls_codope = $_POST['codope'];
if ($ls_codope != '-') {
$ls_sqlaux = $ls_sqlaux . "AND scb_movbco.codope='" . $ls_codope . "'";
} else {
$ls_sqlaux = $ls_sqlaux . "AND (scb_movbco.codope = 'DP' OR scb_movbco.codope = 'NC')";
}
$ls_sql = "SELECT scb_movbco.numordpagmin, scb_movbco.codban, scb_movbco.ctaban, scb_banco.nomban, scb_ctabanco.dencta, \n\t\t scb_tipofondo.porrepfon, scb_movbco.fecmov, scb_tipocuenta.codtipcta, scb_tipocuenta.nomtipcta, \n\t\t\t\t\t\ttrim(scb_ctabanco.sc_cuenta) as sc_cuenta, scb_movbco.monto, scb_movbco.codtipfon, scb_tipofondo.dentipfon\n\t\t\t\t FROM scb_movbco, scb_banco, scb_ctabanco, scb_tipocuenta, scb_tipofondo\n\t\t\t\t WHERE scb_movbco.codemp = '" . $_SESSION["la_empresa"]["codemp"] . "'\n\t\t\t\t AND trim(scb_movbco.numordpagmin) <>''\n\t\t\t\t\tAND trim(scb_movbco.numordpagmin) <>'-'\t{$ls_sqlaux}\t\t\t\t\n\t\t\t\t\tAND scb_movbco.codtipfon<>'----'\n\t\t\t\t\tAND scb_movbco.codban like '%" . $ls_codban . "%'\n\t\t\t\t\tAND scb_movbco.ctaban like '%" . $ls_ctaban . "%'\n\t\t\t\t AND scb_movbco.numordpagmin like '%" . $ls_numordpagmin . "%'\n\t\t\t\t\tAND scb_movbco.codemp = scb_banco.codemp\n\t\t\t\t\tAND scb_movbco.codban = scb_banco.codban\t\t\t\t\t\n\t\t\t\t\tAND scb_movbco.codemp = scb_ctabanco.codemp\n\t\t\t\t\tAND scb_movbco.codban = scb_ctabanco.codban\n\t\t\t\t\tAND scb_movbco.ctaban = scb_ctabanco.ctaban\n\t\t\t\t\tAND scb_ctabanco.codtipcta=scb_tipocuenta.codtipcta\n\t\t\t\t\tAND scb_movbco.codemp=scb_tipofondo.codemp\n\t\t\t\t\tAND scb_movbco.codtipfon=scb_tipofondo.codtipfon\n\t\t\t\t ORDER BY scb_movbco.numordpagmin, scb_movbco.fecmov ASC";
//echo $ls_sql.'<br><br>';
$rs_data = $io_sql->select($ls_sql);
if ($rs_data === false) {
$io_mensajes->uf_mensajes_ajax("Error al Ordenes de Pago Ministerio ", "ERROR->" . $io_funciones->uf_convertirmsg($io_sql->message), false, "");
print $io_sql->message;
} else {
echo "<table width=760 border=0 cellpadding=1 cellspacing=1 class=fondo-tabla align=center>";
echo "<tr class=titulo-celda>";
echo "<td style='cursor:pointer' title='Ordenar por No. Orden Pago' style=text-align:center width=100 >No. Orden Pago</td>";
echo "<td style='cursor:pointer' title='Ordenar por Banco' style=text-align:center width=150 >Banco</td>";
echo "<td style='cursor:pointer' title='Ordenar por Cuenta Bancaria' style=text-align:center width=250 >Cuenta</td>";
echo "<td style='cursor:pointer' style=text-align:center width=50>Monto</td>";
echo "<td style='cursor:pointer' style=text-align:center width=50>% Reposición</td>";
echo "<td style='cursor:pointer' style=text-align:center width=50>% Consumido</td>";
echo "<td style='cursor:pointer' style=text-align:center width=80>Disponible</td>";
echo "</tr>";
while (!$rs_data->EOF) {
$li_fila++;
$ls_codban = $rs_data->fields["codban"];
$ls_ctaban = $rs_data->fields["ctaban"];
$io_ctaban->uf_verificar_saldo($ls_codban, $ls_ctaban, &$ld_mondiscta);
$ld_mondiscta = number_format($ld_mondiscta, 2, ',', '.');
$ls_scgcta = $rs_data->fields["sc_cuenta"];
$ls_nomban = $rs_data->fields["nomban"];
$ls_fecmov = $rs_data->fields["fecmov"];
$ls_denctaban = $rs_data->fields["dencta"];
$ls_codtipcta = $rs_data->fields["codtipcta"];
$ls_dentipcta = $rs_data->fields["nomtipcta"];
$ls_numordpagmin = $rs_data->fields["numordpagmin"];
$ld_monordpagmin = $rs_data->fields["monto"];
//Monto Total de la Orden de Pago Ministerio.
$ls_codtipfon = $rs_data->fields["codtipfon"];
$ls_dentipfon = $rs_data->fields["dentipfon"];
$ld_porrepfon = $rs_data->fields["porrepfon"];
//Porcentaje de Reposición.
$ld_totmoncon = uf_load_monto_consumido($ls_numordpagmin, $ls_codtipfon);
//Monto Consumido del Monto Original.
$ld_monmaxmov = $ld_monordpagmin * ($ld_porrepfon / 100) - $ld_totmoncon;
$ld_monmaxmov = number_format($ld_monmaxmov, 2, '.', '');
$ld_totporcon = $ld_totmoncon * 100 / $ld_monordpagmin;
//Porcentaje Consumido.
if ($as_origen == 'EC' || $as_origen == 'CO' || $ld_totporcon < $ld_porrepfon) {
if ($ld_monmaxmov > 0) {
echo "<tr class=celdas-azules>";
} else {
echo "<tr class=celdas-blancas>";
}
echo "<td style=text-align:center width=100><a href=\"javascript:aceptar_ordenespago('{$ls_numordpagmin}','{$ls_codban}','{$ls_nomban}','{$ls_ctaban}','{$ls_denctaban}','{$ls_codtipcta}','{$ls_dentipcta}','{$ls_scgcta}','{$ld_mondiscta}','{$ls_codtipfon}','{$ls_dentipfon}','{$ld_monmaxmov}');\">" . $ls_numordpagmin . "</a></td>";
echo "<td style=text-align:left width=100 title='" . $ls_nomban . "'>" . $ls_codban . ' - ' . $ls_nomban . "</td>";
echo "<td style=text-align:left width=300 title='" . $ls_denctaban . "'>" . $ls_ctaban . ' - ' . $ls_denctaban . "</td>";
echo "<td style=text-align:right width=80>" . number_format($ld_monordpagmin, 2, ',', '.') . "</td>";
echo "<td style=text-align:right width=50>" . number_format($ld_porrepfon, 2, ',', '.') . "</td>";
echo "<td style=text-align:right width=50>" . number_format($ld_totporcon, 2, ',', '.') . "</td>";
echo "<td style=text-align:right width=80>" . number_format($ld_monmaxmov, 2, ',', '.') . "</td>";
echo "</tr>";
}
$rs_data->MoveNext();
}
$io_sql->free_result($rs_data);
}
unset($io_include, $io_conexion, $io_sql, $io_mensajes, $io_funciones, $ls_codemp);
}
require_once("../shared/class_folder/grid_param.php");
require_once("../shared/class_folder/ddlb_conceptos.php");
require_once("../shared/class_folder/class_sql.php");
require_once("../shared/class_folder/sigesp_include.php");
$io_msg = new class_mensajes();
$fun = new class_funciones();
$lb_guardar = true;
$io_grid = new grid_param();
$ls_codemp = $_SESSION["la_empresa"]["codemp"];
$ls_casacon = $_SESSION["la_empresa"]["casconmov"];//verifica si lo cocneptos estas casdaos a una cueta contable
$io_include = new sigesp_include();
$ls_conect = $io_include->uf_conectar();
$obj_con = new ddlb_conceptos($ls_conect);
$li_estciespg = $io_fun_banco->uf_load_estatus_cierre($li_estciespi,$li_estciescg);
$io_ctaban = new sigesp_c_cuentas_banco();
require_once("sigesp_scb_c_progpago.php");
$io_propag=new sigesp_scb_c_progpago($la_seguridad);
if (array_key_exists("chktipvia",$_POST))
{
$li_tipvia = $_POST["chktipvia"];
}
else
{
$li_tipvia = 0;
}
if ($li_tipvia=='0')
{
$ls_checked = '';
</tr>
</table>
<p><br>
</p>
<?php
echo "<table width=570 border=0 cellpadding=1 cellspacing=1 class=fondo-tabla align=center>";
echo "<tr class=titulo-celda>";
echo "<td width=90 style=text-align:center>Cédula/Código</td>";
echo "<td width=250 style=text-align:center>Nombre</td>";
echo "<td width=100 style=text-align:center>Banco</td>";
echo "<td width=130 style=text-align:center>Cuenta</td>";
echo "</tr>";
if ($ls_operacion=="BUSCAR")
{
require_once("sigesp_c_cuentas_banco.php");
$io_ctaban = new sigesp_c_cuentas_banco();
$ld_fecdesde = $io_funcion->uf_convertirdatetobd($ld_fecdesde);
$ld_fechasta = $io_funcion->uf_convertirdatetobd($ld_fechasta);
$ls_sql = "SELECT DISTINCT trim(cxp_solicitudes.ced_bene) as ced_bene,rpc_beneficiario.nombene, rpc_beneficiario.apebene,
scb_prog_pago.codban,scb_prog_pago.ctaban, scb_banco.nomban, scb_ctabanco.dencta,
TRIM(scb_ctabanco.sc_cuenta) as sc_cuenta
FROM cxp_solicitudes, rpc_beneficiario, scb_prog_pago, scb_banco, scb_ctabanco
WHERE scb_prog_pago.codemp='".$ls_codemp."'
AND scb_prog_pago.numsol like '%".$ls_numsolpag."%'
AND cxp_solicitudes.estprosol='S'
AND scb_prog_pago.estmov='P'
AND cxp_solicitudes.tipproben='B'
AND scb_prog_pago.fecpropag BETWEEN '".$ld_fecdesde."' AND '".$ld_fechasta."'
AND scb_prog_pago.codemp=scb_banco.codemp
AND scb_prog_pago.codban=scb_banco.codban