$ds->data=$data;
$totrow=$ds->getRowCount("ctaban");
for($z=1;$z<=$totrow;$z++)
{
$codban=$data["codban"][$z];
$nomban=$data["nomban"][$z];
$ctaban=$data["ctaban"][$z];
$dencta=$data["dencta"][$z];
$codtipcta=$data["codtipcta"][$z];
$nomtipcta=$data["nomtipcta"][$z];
$ctascg=$data["sc_cuenta"][$z];
$denctascg=$data["denominacion"][$z];
$fecapertura=$fun->uf_convertirfecmostrar($data["fecapr"][$z]);
$feccierre=$fun->uf_convertirfecmostrar($data["feccie"][$z]);
$io_ctaban->uf_verificar_saldo($codban,$ctaban,&$adec_saldo);
if ($adec_saldo>0)
{
echo "<tr class=celdas-azules>";
}
else
{
echo "<tr class=celdas-blancas>";
}
$ldec_saldo = number_format($adec_saldo,2,',','.');
$status=$data["estact"][$z];
print "<td><a href=\"javascript: aceptar('$codban','$nomban','$ctaban','$dencta','$ctascg','$denctascg','$fecapertura','$feccierre','$status','$codtipcta','$nomtipcta','$ldec_saldo');\">".$ctaban."</a></td>";
print "<td>".$dencta."</td>";
print "<td>".$nomtipcta."</td>";
print "<td>".$ctascg."</td>";
print "<td>".$denctascg."</td>";
$ldec_monret=$data["monret"][$z];
$ls_procedencia=$data["procede"][$z];
$ls_voucher =$data["chevau"][$z];
$ls_prov=$data["cod_pro"][$z];
$ls_bene=$data["ced_bene"][$z];
$ls_provbene=$data["nomproben"][$z];
$ls_codban=$data["codban"][$z];
$ls_nomban=uf_select_data($SQL,"SELECT * FROM scb_banco WHERE codemp='".$as_codemp."' AND codban='".$ls_codban."'","nomban");
$ls_ctaban=$data["ctaban"][$z];
$ls_dencta=uf_select_data($SQL,"SELECT * FROM scb_ctabanco WHERE codemp='".$as_codemp."' AND codban='".$ls_codban."' AND ctaban='".$ls_ctaban."'","dencta");
$ls_estmov=$data["estmov"][$z];
$ls_cuenta_scg=uf_select_data($SQL,"SELECT * FROM scb_ctabanco WHERE codemp='".$as_codemp."' AND codban='".$ls_codban."' AND ctaban='".$ls_ctaban."'","sc_cuenta");
$li_cobing=$data["estcobing"][$z];
$li_estint=$data["estmovint"][$z];
$ls_codconmov=$data["codconmov"][$z];
$io_ctabanco->uf_verificar_saldo($ls_codban,$ls_ctaban,&$ldec_saldo);
$ldec_saldo=number_format($ldec_saldo,2,",",".");
print "<tr class=celdas-blancas>";
print "<td><a href=\"javascript: uf_aceptar('$ls_documento','$ls_codope','$ls_fecha','$ls_descripcion','$ldec_monto','$ldec_monobjret','$ldec_monret','$ls_prov','$ls_bene','$ls_provbene','$ls_codban','$ls_nomban','$ls_ctaban','$ls_dencta','$ls_estmov','$ls_cuenta_scg','$li_cobing','$li_estint','$ls_codconmov','$ldec_saldo');\">".$ls_documento."</a></td>";
print "<td>".$ls_codope."</td>";
print "<td>".$ls_fecha."</td>";
print "<td>".$ls_descripcion."</td>";
print "<td>".$ldec_monto."</td>";
print "<td>".$ldec_monobjret."</td>";
print "<td>".$ldec_monret."</td>";
print "<td>".$ls_procedencia."</td>";
print "<td>".$ls_voucher."</td>";
print "<td>".$ls_prov."</td>";
print "<td>".$ls_bene."</td>";
print "<td>".$ls_provbene."</td>";
print "<td>".$ls_codban."</td>";
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);
}
{
$ls_nomproben = $ls_nomproben.', '.$ls_apeben;
}
}
$ls_procede = $rs_solpag->fields["procede"];
$ls_valor=$io_propag->uf_buscar_detalles_pre($ls_codemp,$ls_numsol, $ls_tipproben);
if (($li_estciespg==1 || $li_estciespi==1) && ($ls_valor==0 && $li_estciescg==0) ||
($li_estciespg==0 && $li_estciespi==0 && $li_estciescg==0))
{
$li_i++;
$ls_numordpagmin = $rs_solpag->fields["numordpagmin"];
$ls_codtipfon = $rs_solpag->fields["codtipfon"];
if (!empty($ls_numordpagmin) && !empty($ls_codtipfon) && $ls_codtipfon!='----' && $ls_numordpagmin!='-')
{
$ls_banco = $io_propag->uf_load_datos_orden_pago($ls_numordpagmin,$ls_codtipfon,$ls_cuenta,$ls_nomban,$ls_dencta);
$io_ctaban->uf_verificar_saldo($ls_banco,$ls_cuenta,&$ld_totmondis);
}
else
{
$ls_cuenta = $ls_banco = $ls_nomban = $ls_dencta = $ld_totmondis = "";
$ld_totmondis = "0,00";
}
$object[$li_i][1] = "<input type=checkbox name=chksel".$li_i." id=chksel".$li_i." value=1 onClick=javascript:uf_registrar($li_i,'$ls_numsol','$ld_montotsal','$ls_fecemisol','$ls_codproben',this);>";
$object[$li_i][2] = "<input type=text name=txtnumsol".$li_i." id=txtnumsol".$li_i." value='".$ls_numsol."' class=sin-borde readonly style=text-align:center size=15 maxlength=15 onClick=javascript:uf_registrar($li_i,'$ls_numsol','$ld_montotsal','$ls_fecemisol','$ls_codproben',this);><input type=hidden name=hidcodban".$li_i." value='".$ls_banco."';><input type=hidden name=hidctaban".$li_i." value='".$ls_cuenta."';>";
$object[$li_i][3] = "<input type=text name=txtmonsol".$li_i." id=txtmonsol".$li_i." value='".number_format($ld_monsolpag,2,",",".")."' class=sin-borde readonly style=text-align:right size=18 maxlength=18 onClick=javascript:uf_registrar($li_i,'$ls_numsol','$ld_montotsal','$ls_fecemisol','$ls_codproben',this);><input type=hidden name=hidnomban".$li_i." value='".$ls_nomban."';><input type=hidden name=hiddenctaban".$li_i." value='".$ls_dencta."';>";
$object[$li_i][4] = "<input type=text name=txtsaldo".$li_i." id=txtsaldo".$li_i." value='".number_format($ld_montotsal,2,",",".")."' class=sin-borde readonly style=text-align:right size=18 maxlength=18 onClick=javascript:uf_registrar($li_i,'$ls_numsol','$ld_montotsal','$ls_fecemisol','$ls_codproben',this);><input type=hidden name=hidmondis".$li_i." value='".number_format($ld_totmondis,2,',','.')."';>";
$object[$li_i][5] = "<input type=text name=txtfecsol".$li_i." id=txtfecsol".$li_i." value='".$ls_fecemisol."' class=sin-borde readonly style=text-align:center size=10 maxlength=10 onClick=javascript:uf_registrar($li_i,'$ls_numsol','$ld_montotsal','$ls_fecemisol','$ls_codproben',this);>";
$object[$li_i][6] = "<input type=hidden name=txtcodproben".$li_i." id=txtcodproben".$li_i." value='".$ls_codproben."'><input type=text name=txtnomprovbene".$li_i." value='".$ls_nomproben."' title='".$ls_nomproben."' class=sin-borde readonly style=text-align:left size=60 maxlength=60 onClick=javascript:uf_registrar($li_i,'$ls_numsol','$ld_montotsal','$ls_fecemisol','$ls_codproben',this);>";
$object[$li_i][7] = "<input type=text name=txtfecprog".$li_i." id=txtfecprog".$li_i." value='' class=sin-borde readonly style=text-align:center size=10 maxlength=10 onClick=javascript:uf_registrar($li_i,'$ls_numsol','$ld_montotsal','$ls_fecemisol','$ls_codproben',this);><input type=hidden name=hidprocede".$li_i." value='".$ls_procede."' class=sin-borde readonly style=text-align:left size=10 maxlength=6;>";
}//fin del if ($ls_valor==0 && $li_estciescg==0)
$rs_solpag->MoveNext();
else
{
$li_totrows = $io_sql->num_rows($rs_data);
if ($li_totrows>0)
{
while(!$rs_data->EOF)
{
echo "<tr class=celdas-blancas>";
$ls_cedben = $rs_data->fields["ced_bene"];
$ls_nomben = $rs_data->fields["nombene"].", ".$rs_data->fields["apebene"];
$ls_codban = $rs_data->fields["codban"];
$ls_nomban = $rs_data->fields["nomban"];
$ls_ctaban = $rs_data->fields["ctaban"];
$ls_nomcta = $rs_data->fields["dencta"];
$ls_scgcta = $rs_data->fields["sc_cuenta"];
$lb_valido = $io_ctaban->uf_verificar_saldo($ls_codban,$ls_ctaban,&$adec_saldo);
echo "<td width=90 style=text-align:center><a href=\"javascript: uf_aceptar('$ls_cedben','$ls_nomben','$ls_codban','$ls_nomban','$ls_ctaban','$ls_nomcta','$ls_scgcta','$adec_saldo');\">".$ls_cedben."</a></td>";
echo "<td width=250 style=text-align:left title='".$ls_nomben."'>".$ls_nomben."</td>";
echo "<td width=100 style=text-align:center title='".$ls_codban.' - '.$ls_nomban."'>".$ls_codban." - ".$ls_nomban."</td>";
echo "<td width=130 style=text-align:center title='".$ls_ctaban.' - '.$ls_nomcta."'>".$ls_ctaban." - ".$ls_nomcta."</td>";
echo "</tr>";
$rs_data->MoveNext();
}
}
else
{
$io_msg->message("No se han realizado programaciones !!!");
}
}
}
echo "</table>";
