function uf_imprimirresultados($as_codpai, $as_despai)
{
require_once "../shared/class_folder/sigesp_include.php";
$in = new sigesp_include();
$con = $in->uf_conectar();
require_once "../shared/class_folder/class_mensajes.php";
$io_msg = new class_mensajes();
require_once "../shared/class_folder/class_sql.php";
$io_sql = new class_sql($con);
$ds = new class_datastore();
print "<table width=500 border=0 cellpadding=1 cellspacing=1 class=fondo-tabla align=center>";
print "<tr class=titulo-celda>";
print "<td width=60>Código</td>";
print "<td width=440>Descripción</td>";
print "</tr>";
$ls_sql = "SELECT codpai,despai FROM sigesp_pais" . " WHERE codpai like '" . $as_codpai . "'" . " AND despai like '" . $as_despai . "'";
$rs_pai = $io_sql->select($ls_sql);
if ($row = $io_sql->fetch_row($rs_pai)) {
$data = $io_sql->obtener_datos($rs_pai);
$ds->data = $data;
$li_rows = $ds->getRowCount("codpai");
for ($li_index = 1; $li_index <= $li_rows; $li_index++) {
print "<tr class=celdas-blancas>";
$ls_codpai = $data["codpai"][$li_index];
$ls_despai = $data["despai"][$li_index];
print "<td><a href=\"javascript: aceptar('{$ls_codpai}','{$ls_despai}');\">" . $ls_codpai . "</a></td>";
print "<td>" . $ls_despai . "</td>";
print "</tr>";
}
} else {
$io_msg->message("No hay registros");
}
print "</table>";
}
function uf_imprimirresultados($as_codpai, $as_codest, $as_desest)
{
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();
print "<table width=500 border=0 cellpadding=1 cellspacing=1 class=fondo-tabla align=center>";
print "<tr class=titulo-celda>";
print "<td width=60>Código</td>";
print "<td width=440>Descripción</td>";
print "</tr>";
$ls_sql="SELECT codest,desest FROM sigesp_estados".
" WHERE (codpai='".$as_codpai."')".
" AND(codest like '".$as_codest."'".
" AND desest like '".$as_desest."')";
$rs_est=$SQL->select($ls_sql);
if($row=$SQL->fetch_row($rs_est))
{
$data=$SQL->obtener_datos($rs_est);
$ds->data=$data;
$li_rows=$ds->getRowCount("codest");
for($li_index=1;$li_index<=$li_rows;$li_index++)
{
print "<tr class=celdas-blancas>";
$ls_codest=$data["codest"][$li_index];
$ls_desest=$data["desest"][$li_index];
print "<td><a href=\"javascript: aceptar('$ls_codest','$ls_desest');\">".$ls_codest."</a></td>";
print "<td>".$ls_desest."</td>";
print "</tr>";
}
}
print "</table>";
}
$ls_cadena = "";
if ($li_estmodest == '2') {
$ls_cadena = " AND codestpro4 = '" . $ls_codestpro4 . "' AND codestpro5 = '" . $ls_codestpro5 . "'";
}
$ls_sql = "SELECT spg_cuenta,denominacion,sc_cuenta,status" . " FROM spg_cuentas" . " WHERE codemp = '" . $as_codemp . "'" . " AND spg_cuenta like '" . $ls_codestpro . "%'" . " AND denominacion like '%" . $ls_denestpro . "%'" . " AND sc_cuenta like '" . $ls_codscg . "%'" . " AND codestpro1 = '" . $ls_codestpro1 . "'" . " AND estcla = '" . $ls_estcla . "'" . " AND codestpro2 = '" . $ls_codestpro2 . "'" . " AND codestpro3 = '" . $ls_codestpro3 . "'" . $ls_cadena . "ORDER BY spg_cuenta\t ";
$rs_data = $io_sql->select($ls_sql);
if ($rs_data === false) {
$io_msg->message($io_funcion->uf_convertirmsg($io_sql->message));
} else {
$data = $rs_data;
if ($row = $io_sql->fetch_row($rs_data)) {
$data = $io_sql->obtener_datos($rs_data);
$arrcols = array_keys($data);
$totcol = count($arrcols);
$io_ds->data = $data;
$totrow = $io_ds->getRowCount("spg_cuenta");
if ($totrow > 0) {
for ($z = 1; $z <= $totrow; $z++) {
$cuenta = $data["spg_cuenta"][$z];
$denominacion = $data["denominacion"][$z];
$cuentascg = $data["sc_cuenta"][$z];
$status = $data["status"][$z];
if ($status == 'C') {
$object[$z][1] = "<input name=chkcta" . $z . " type=checkbox id=chkcta" . $z . " value=1 class=sin-borde><input name=status" . $z . " type=hidden id=status" . $z . " value='" . $status . "'> ";
$object[$z][4] = "<input type=text name=txtcuentascg" . $z . " value='" . $cuentascg . "' id=txtcuentascg" . $z . " class=sin-borde readonly style=text-align:center size=16 maxlength=25>";
} else {
$object[$z][1] = "<input name=status" . $z . " type=hidden id=status" . $z . " value='" . $status . "'> ";
$object[$z][4] = "<input type=text name=txtcuentascg" . $z . " value='' id=txtcuentascg" . $z . " class=sin-borde readonly style=text-align:center size=16 maxlength=25>";
}
$object[$z][2] = "<input type=text name=txtcuenta" . $z . " value='" . $cuenta . "' id=txtcuenta" . $z . " class=sin-borde readonly style=text-align:center size=16 maxlength=20 >";
$object[$z][3] = "<input type=text name=txtdencuenta" . $z . " value='" . $denominacion . "' id=txtdencuenta" . $z . " class=sin-borde readonly style=text-align:left size=50 maxlength=254>";
require_once "../../shared/class_folder/class_sql.php";
$io_in = new sigesp_include();
$con = $io_in->uf_conectar();
$io_ds = new class_datastore();
$io_sql = new class_sql($con);
$arr = $_SESSION["la_empresa"];
$ls_sql = " SELECT codtipdoc,dentipdoc,estpre,estcon,tipodocanti " . " FROM cxp_documento " . " ORDER BY codtipdoc ASC";
$rs_doc = $io_sql->select($ls_sql);
$data = $rs_doc;
if ($row = $io_sql->fetch_row($rs_doc)) {
//1
$data = $io_sql->obtener_datos($rs_doc);
$arrcols = array_keys($data);
$totcol = count($arrcols);
$io_ds->data = $data;
$totrow = $io_ds->getRowCount("codtipdoc");
print "<table width=500 border=0 cellpadding=1 cellspacing=1 class=fondo-tabla>";
print "<tr class=titulo-celda>";
print "<td>Código </td>";
print "<td>Denominación</td>";
print "</tr>";
for ($z = 1; $z <= $totrow; $z++) {
//2
print "<tr class=celdas-blancas>";
$codigo = $data["codtipdoc"][$z];
$denominacion = $data["dentipdoc"][$z];
$ls_presu = $data["estpre"][$z];
$ls_conta = $data["estcon"][$z];
$anticipo = $data["tipodocanti"][$z];
if ($ls_conta == 1) {
$contable = "C";
function uf_calcular($data,$ls_mesano)
{
$ds_mov=new class_datastore();
$ds_mov->data=$data;
$li_total=$ds_mov->getRowCount("numdoc");
$ldec_CreditosTmp=0;
$ldec_CreditosTmpNeg=0;
$ldec_DebitosTmp=0;
$ldec_DebitosTmpNeg=0;
for($li_i=1;$li_i<=$li_total;$li_i++)
{
$ls_codope=$ds_mov->getValue("codope",$li_i);
$ls_estmov=$ds_mov->getValue("estmov",$li_i);
$ldec_monto=$ds_mov->getValue("monto",$li_i);
if((($ls_codope=='CH')||($ls_codope=='ND')||($ls_codope=='RE'))&&($ls_estmov<>'A'))
{
$ldec_CreditosTmp=$ldec_CreditosTmp+$ldec_monto;
}
if((($ls_codope=='CH')||($ls_codope=='ND')||($ls_codope=='RE'))&&($ls_estmov=='A'))
{
$ldec_CreditosTmpNeg=$ldec_CreditosTmpNeg+$ldec_monto;
}
if((($ls_codope=='DP')||($ls_codope=='NC'))&&($ls_estmov<>'A'))
{
$ldec_DebitosTmp=$ldec_DebitosTmp+$ldec_monto;
}
if((($ls_codope=='DP')||($ls_codope=='NC'))&&($ls_estmov=='A'))
{
$ldec_DebitosTmpNeg=$ldec_DebitosTmpNeg+$ldec_monto;
}
}
$ldec_DebitosAnt = $ldec_DebitosTmp-$ldec_DebitosTmpNeg;
$ldec_CreditosAnt = $ldec_CreditosTmp-$ldec_CreditosTmpNeg;
$ldec_SaldoAnterior = $ldec_DebitosAnt - $ldec_CreditosAnt;
return round($ldec_SaldoAnterior,2);
}
error_reporting(E_ALL);
set_time_limit(1800);
$io_pdf = new Cezpdf('LETTER', 'portrait');
// Instancia de la clase PDF
$io_pdf->selectFont('../../shared/ezpdf/fonts/Helvetica.afm');
// Seleccionamos el tipo de letra
$io_pdf->ezSetCmMargins(4, 2.5, 3, 3);
// Configuración de los margenes en centímetros
$li_totrow = $io_report->DS->getRowCount("numsol");
if ($li_totrow > 1) {
for ($li_i = 1; $li_i <= $li_totrow; $li_i++) {
$ls_denominacion = $io_report->DS->data["dentipdoc"][$li_i];
$ds_dentipdoc->insertRow("dentipsol", $ls_denominacion);
}
$ds_dentipdoc->group("dentipsol");
$li_fila = $ds_dentipdoc->getRowCount("dentipsol");
for ($li_i = 1; $li_i <= $li_fila; $li_i++) {
$ls_denominacion = $ds_dentipdoc->getValue("dentipsol", $li_i);
if ($ls_denominacion != "") {
if ($li_i == 1) {
$ls_dentipdoc = $ls_denominacion;
} else {
$ls_dentipdoc = $ls_dentipdoc . ", " . $ls_denominacion;
}
}
}
} else {
$ls_dentipdoc = $io_report->DS->data["dentipdoc"][1];
}
for ($li_i = 1; $li_i <= $li_totrow; $li_i++) {
$ls_numsol = $io_report->DS->data["numsol"][$li_i];
if($ls_operacion=="BUSCAR")
{
$ls_sql="SELECT * FROM scv_transportes".
" WHERE codtra LIKE '".$ls_codtra."'".
" AND codtiptra LIKE '".$ls_codtiptra."'".
" AND dentra LIKE '".$ls_dentra."'";
$rs_cta=$io_sql->select($ls_sql);
$data=$rs_cta;
if($row=$io_sql->fetch_row($rs_cta))
{
$data=$io_sql->obtener_datos($rs_cta);
$arrcols=array_keys($data);
$totcol=count($arrcols);
$ds->data=$data;
$totrow=$ds->getRowCount("codtra");
for($z=1;$z<=$totrow;$z++)
{
print "<tr class=celdas-blancas>";
$ls_codtra= $data["codtra"][$z];
$ls_codtiptra= trim($data["codtiptra"][$z]);
switch($ls_codtiptra)
{
case "01":
$ls_dentiptra="Aéreo";
break;
case "02":
$ls_dentiptra="Marítimo";
break;
case "03":
$ls_dentiptra="Terrestre";
}
}
print("Pais".$ls_codpais);
$ls_sql="SELECT CodEst,DesEst FROM sigesp_estados where CodPai= '".$ls_codpais."' ORDER BY CodEst ASC";
$rs_estado=$io_sql->select($ls_sql);
$data=$rs_estado;
if($row=$io_sql->fetch_row($rs_estado))
{
$data=$io_sql->obtener_datos($rs_estado);
$arrcols=array_keys($data);
$totcol=count($arrcols);
$io_dsest->data=$data;
$totrow=$io_dsest->getRowCount("CodEst");
print "<table width=500 border=0 cellpadding=1 cellspacing=1 class=fondo-tabla>";
print "<tr class=titulo-celda>";
print "<td>Código</td>";
print "<td>Denominación</td>";
print "</tr>";
for($z=1;$z<=$totrow;$z++)
{
print "<tr class=celdas-blancas>";
$codigo=$data["CodEst"][$z];
$denominacion=$data["DesEst"][$z];
print "<td><a href=\"javascript: aceptar('$codigo','$denominacion');\">".$codigo."</a></td>";
print "<td>".$denominacion."</td>";
print "</tr>";
}
print "</table>";
" AND (a.sc_cuenta=d.sc_cuenta AND a.codemp=d.codemp)";
$rs_cta=$SQL->select($ls_sql);
if($rs_cta==false)
{
$msg->message("No se han creado cuentas");
}
else
{
if($row=$SQL->fetch_row($rs_cta))
{
$data=$SQL->obtener_datos($rs_cta);
$arrcols=array_keys($data);
$totcol=count($arrcols);
$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)
<tr>
<td width="496" colspan="2" class="titulo-celda">Catálogo de Unidades de Medida </td>
</tr>
</table>
<br>
<table width="600" border="0" cellpadding="0" cellspacing="0" class="formato-blanco" align="center">
<tr>
<td width="67" height="28"><div align="right">Tipo Unidad </div></td>
<td width="431"><div align="left">
<?Php
$lb_vali=$io_cunid->uf_llenarcombo_tipouni(&$la_tipoun);
if($lb_vali)
{
$io_data->data=$la_tipoun;
$totrow=$io_data->getRowCount("codtun");
}
?>
<select name="cmbtipouni" id="cmbtipouni">
<option value="">Seleccione</option>
<?Php
for($z=1;$z<=$totrow;$z++)
{
$ls_tipoun=$io_data->getValue("codtun",$z);
$ls_nombreun=$io_data->getValue("nomtun",$z);
if ($ls_tipoun==$ls_tipounidad)
{
print "<option value='$ls_tipoun' selected>$ls_nombreun</option>";
}
else
{
$io_conect=new sigesp_include();
$conn=$io_conect->uf_conectar();
$io_dstipocontrato=new class_datastore();
$io_sql=new class_sql($conn);
$ls_sql=" SELECT *
FROM sob_tipocontrato
ORDER BY $ls_campo $ls_orden";
$rs_data=$io_sql->select($ls_sql);
$data=$rs_data;
if($row=$io_sql->fetch_row($rs_data))
{
$data=$io_sql->obtener_datos($rs_data);
$la_arrcols=array_keys($data);
$li_totcol=count($la_arrcols);
$io_dstipocontrato->data=$data;
$li_totrow=$io_dstipocontrato->getRowCount("codtco");
print "<table width=500 border=0 cellpadding=1 cellspacing=1 class=fondo-tabla>";
print "<tr class=titulo-celda>";
print "<td><a href=javascript:ue_ordenar('codtco','');><font color=#FFFFFF>Código</font></a></td>";
print "<td><a href=javascript:ue_ordenar('nomtco','');><font color=#FFFFFF>Nombre</font></a></td>";
print "<td><a href=javascript:ue_ordenar('destco','');><font color=#FFFFFF>Descripción</font></a></td>";
print "</tr>";
for($li_z=1;$li_z<=$li_totrow;$li_z++)
{
print "<tr class=celdas-blancas>";
$ls_codigo=$data["codtco"][$li_z];
$ls_nombre=$data["nomtco"][$li_z];
$ls_descripcion=$data["destco"][$li_z];
print "<td><a href=\"javascript: aceptar('$ls_codigo','$ls_nombre','$ls_descripcion');\">".$ls_codigo."</a></td>";
print "<td>".$ls_nombre."</td>";
print "<td>".$ls_descripcion."</td>";
$ls_fechasta=substr($ls_fechasta,6,4)."/".substr($ls_fechasta,3,2)."/".substr($ls_fechasta,0,2);
$ls_sql=$ls_sql." AND fecha>='".$ls_fecdesde."' AND fecha<='".$ls_fechasta."'";
}
if($ls_procedencia!="N")
{
$ls_sql=$ls_sql." AND procede ='".$ls_procedencia."'";
}
$rs_cta=$SQL_cmp->select($ls_sql);
$data=$rs_cta;
if($row=$SQL_cmp->fetch_row($rs_cta))
{
$data=$SQL_cmp->obtener_datos($rs_cta);
$arrcols=array_keys($data);
$totcol=count($arrcols);
$ds->data=$data;
$totrow=$ds->getRowCount("comprobante");
for($z=1;$z<=$totrow;$z++)
{
$ls_comprobante=$data["comprobante"][$z];
$ls_descripcion=$data["descripcion"][$z];
$ls_procedencia=$data["procede"][$z];
$ls_fecha=$data["fecha"][$z];
$ls_fecha=substr($ls_fecha,8,2)."/".substr($ls_fecha,5,2)."/".substr($ls_fecha,0,4);
$ls_prov=$data["cod_pro"][$z];
$ls_bene=$data["ced_bene"][$z];
if(($ls_prov=="----------")&&($ls_bene=="----------"))
{
$ls_tip="-";
}
elseif(($ls_prov=="----------")&&($ls_bene!="----------"))
{
$ls_sql="SELECT * FROM scb_banco WHERE codemp='".$ls_codemp."' AND codban like '".$ls_codigo."' AND nomban like '".$ls_denominacion."' ORDER BY codban ";
$rs_cta=$SQL->select($ls_sql);
$data=$rs_cta;
if(($rs_cta==false)&&($SQL->message!=""))
{
$msg->message("No hay registros");
}
else
{
if($row=$SQL->fetch_row($rs_cta))
{
$data=$SQL->obtener_datos($rs_cta);
$arrcols=array_keys($data);
$totcol=count($arrcols);
$ds->data=$data;
$totrow=$ds->getRowCount("codban");
for($z=1;$z<=$totrow;$z++)
{
print "<tr class=celdas-blancas>";
$codigo=$data["codban"][$z];
$denominacion=$data["nomban"][$z];
$gerente=$data["gerban"][$z];
$direccion=$data["dirban"][$z];
$telefono=$data["telban"][$z];
$celular=$data["movcon"][$z];
$email=$data["conban"][$z];
print "<td><a href=\"javascript: aceptar('$codigo','$denominacion','$direccion','$gerente','$telefono','$celular','$email');\">".$codigo."</a></td>";
print "<td>".$denominacion."</td>";
print "</tr>";
}
$ls_monto= $numalet->letra();
uf_print_encabezado_pagina(number_format($ldec_total,2,",","."),$ls_nomproben,$ls_monto,$_SESSION["la_empresa"]["ciuemp"].", ".$ld_fecmov,$io_pdf); // Imprimimos el encabezado de la página
$io_pdf->ezStartPageNumbers(570,30,10,'','',1); // Insertar el número de página
uf_print_cabecera($ls_numdoc,$ls_nomban,$ls_ctaban,$ls_chevau,$ls_nomproben,$ls_solicitudes,$ls_conmov,$io_pdf); // Imprimimos la cabecera del registro
$ds_dt_scg->data=$class_report->uf_cargar_dt_scg($ls_numdoc,$ls_codban,$ls_ctaban,$ls_codope); // Obtenemos el detalle del reporte
$la_items = array('0'=>'scg_cuenta');
$la_suma = array('0'=>'monto');
$ds_dt_scg->group_by($la_items,$la_suma,'scg_cuenta');
$li_totrow_det=$ds_dt_scg->getRowCount("scg_cuenta");
$ds_dt_spg->data=$class_report->uf_cargar_dt_spg($ls_numdoc,$ls_codban,$ls_ctaban,$ls_codope);
$la_items = array('0'=>'estpro','1'=>'spg_cuenta');
$la_suma = array('0'=>'monto');
$ds_dt_spg->group_by($la_items,$la_suma,'spg_cuenta');
$li_totrow_spg=$ds_dt_spg->getRowCount("spg_cuenta");
///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Ciclo para unir en una sola matriz los detalles de presupuesto y los contables para proceder luego a imprimirlos.
///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
if ($li_totrow_det>=$li_totrow_spg)
{
for ($li_s=1;$li_s<=$li_totrow_det;$li_s++)
{
$ls_scg_cuenta = trim($ds_dt_scg->data["scg_cuenta"][$li_s]);
$ls_debhab = $ds_dt_scg->data["debhab"][$li_s];
$ldec_monto = $ds_dt_scg->data["monto"][$li_s];
if ($ls_debhab=='D')
{
$ldec_mondeb = number_format($ldec_monto,2,",",".");
$ldec_monhab = "";
}
$title[4] = "Porcentaje";
$grid1 = "grid";
if (empty($ls_operacion)) {
$ls_codemp = $la_emp["codemp"];
$ls_sql = " SELECT codcar,dencar,formula,codestpro,spg_cuenta,porcar " . " FROM sigesp_cargos " . " ORDER BY codcar ASC";
$rs = $io_sql->select($ls_sql);
if ($rs == false) {
$msg->message($fun->uf_convertirmsg($io_sql->message));
} else {
$data = $rs;
if ($row = $io_sql->fetch_row($rs)) {
$data = $io_sql->obtener_datos($rs);
$arrcols = array_keys($data);
$totcol = count($arrcols);
$io_ds->data = $data;
$totrow = $io_ds->getRowCount("codcar");
if ($totrow > 0) {
for ($z = 1; $z <= $totrow; $z++) {
$ls_codcar = $data["codcar"][$z];
$ls_dencar = $data["dencar"][$z];
$ld_porcar = $data["porcar"][$z];
$object[$z][1] = "<input name=chk" . $z . " type=checkbox id=chk" . $z . " value=1 class=sin-borde>";
$object[$z][2] = "<input type=text name=txtcodcar" . $z . " value='" . $ls_codcar . "' id=txtcodcar" . $z . " class=sin-borde readonly style=text-align:center size=15 maxlength=10 >";
$object[$z][3] = "<input type=text name=txtdencar" . $z . " value='" . $ls_dencar . "' id=txtdencar" . $z . " class=sin-borde readonly style=text-align:left size=60 maxlength=254>";
$object[$z][4] = "<input type=text name=txtporcar" . $z . " value='" . $ld_porcar . "' id=txtporcar" . $z . " class=sin-borde readonly style=text-align:right size=10 maxlength=20>";
}
} else {
$object[1][1] = "<input name=chk1 type=checkbox id=chk1 value=1>";
$object[1][2] = "<input type=text name=txtcodcar value='' id=txtcodcar class=sin-borde readonly style=text-align:center size=15 maxlength=10>";
$object[1][3] = "<input type=text name=txtdencar value='' id=txtdencar class=sin-borde readonly style=text-align:left size=25 maxlength=254>";
$object[1][4] = "<input type=text name=txtporcar value='' id=txtporcar class=sin-borde readonly style=text-align:right size=10 maxlength=20>";
<table width="500" border="0" align="center" cellpadding="1" cellspacing="1">
<tr>
<td width="496" colspan="2" class="titulo-celda">Catálogo de Categorías de Viáticos</td>
</tr>
</table>
<br>
<form name="form1" method="post" action="">
<div align="center">
<?php
if ($row=$io_sql->fetch_row($rs_data))
{
$data= $io_sql->obtener_datos($rs_data);
$arrcols= array_keys($data);
$totcol= count($arrcols);
$io_dstar->data= $data;
$totrow= $io_dstar->getRowCount("codcat");
print "<table width=500 border=0 cellpadding=1 cellspacing=1 class=fondo-tabla align=center>";
print "<tr class=titulo-celda>";
print "<td>Código</td>";
print "<td>Denominación</td>";
print "</tr>";
for ($z=1;$z<=$totrow;$z++)
{
print "<tr class=celdas-blancas>";
$ls_codcat= $data["codcat"][$z];
$ls_dencar= $data["dencat"][$z];
print "<td><a href=\"javascript: aceptar('$ls_codcat','$ls_dencar');\">".$ls_codcat."</a></td>";
print "<td>".$ls_dencar."</td>";
print "</tr>";
}
print "</table>";
$data=$rs_fuente;
?>
<table width="500" border="0" align="center" cellpadding="1" cellspacing="1">
<tr>
<td width="496" colspan="2" class="titulo-celda">Catálogo de Tipo de Modificaciones Presupuestarias </td>
</tr>
</table>
<br>
<form name="form1" method="post" action="">
<div align="center">
<?php
if ($row=$io_sql->fetch_row($rs_fuente))
{
$data=$io_sql->obtener_datos($rs_fuente);
$io_dsfuente->data=$data;
$totrow=$io_dsfuente->getRowCount("codtipmodpre");
print "<table width=500 border=0 cellpadding=1 cellspacing=1 class=fondo-tabla align=center>";
print "<tr class=titulo-celda>";
print "<td>Código</td>";
print "<td style=text-align:left>Denominación</td>";
print "<td style=text-align:left>Prefijo</td>";
print "</tr>";
for ($z=1;$z<=$totrow;$z++)
{
print "<tr class=celdas-blancas>";
$ls_codtipmodpre= $data["codtipmodpre"][$z];
$ls_dentipmodpre= $data["dentipmodpre"][$z];
$ls_pretipmodpre= $data["pretipmodpre"][$z];
$ls_contipmodpre= $data["contipmodpre"][$z];
print "<td><a href=\"javascript: aceptar('$ls_codtipmodpre','$ls_dentipmodpre','$ls_contipmodpre','$ls_pretipmodpre');\">".$ls_codtipmodpre."</a></td>";
print "<td style=text-align:left>".$ls_dentipmodpre."</td>";
print "<table width=500 border=0 cellpadding=1 cellspacing=1 class=fondo-tabla align=center>";
print "<tr class=titulo-celda>";
print "<td style=text-align:center>Código </td>";
print "<td style=text-align:center>Denominación</td>";
print "<td style=text-align:center>Operación</td>";
print "</tr>";
if ($ls_operacion == "BUSCAR") {
$ls_sql = "SELECT * FROM scb_concepto WHERE codconmov like '" . $ls_codigo . "' AND denconmov like '" . $ls_denominacion . "' AND codconmov<>'---'";
$rs_cta = $SQL->select($ls_sql);
$data = $rs_cta;
if ($row = $SQL->fetch_row($rs_cta)) {
$data = $SQL->obtener_datos($rs_cta);
$arrcols = array_keys($data);
$totcol = count($arrcols);
$ds->data = $data;
$totrow = $ds->getRowCount("codconmov");
for ($z = 1; $z <= $totrow; $z++) {
print "<tr class=celdas-blancas>";
$codigo = $data["codconmov"][$z];
$denominacion = $data["denconmov"][$z];
$codope = $data["codope"][$z];
switch ($ls_destino) {
case "":
print "<td style=text-align:center><a href=\"javascript: aceptar('{$codigo}','{$denominacion}','{$codope}');\">" . $codigo . "</a></td>";
print "<td style=text-align:left>" . $denominacion . "</td>";
print "<td style=text-align:center>" . $codope . "</td>";
print "</tr>";
break;
case "destino":
print "<td style=text-align:center><a href=\"javascript: aceptar2('{$codigo}','{$denominacion}');\">" . $codigo . "</a></td>";
print "<td style=text-align:left>" . $denominacion . "</td>";
$ls_strfecha = " AND fecregdoc BETWEEN '" . $ls_fecdes . "' AND '" . $ls_fechas . "' ORDER BY fecregdoc ASC";
}
$ls_sql = " SELECT * " . " FROM cxp_rd " . " WHERE codemp='" . $ls_codemp . "' AND numrecdoc like '" . $ls_numrec . "' AND " . " estprodoc like '" . $ls_estatus . "' AND codcla like '" . $ls_concepto . "'";
$ls_sql = $ls_sql . $ls_strfecha;
}
}
}
}
$rs = $io_sql->select($ls_sql);
$data = $rs;
if ($row = $io_sql->fetch_row($rs)) {
$data = $io_sql->obtener_datos($rs);
$arrcols = array_keys($data);
$totcol = count($arrcols);
$io_ds->data = $data;
$totrow = $io_ds->getRowCount("numrecdoc");
for ($z = 1; $z <= $totrow; $z++) {
print "<tr class=celdas-blancas>";
$ls_numrec = $data["numrecdoc"][$z];
$ls_tiprec = $data["codtipdoc"][$z];
//*****************************************************************************************************
$ls_sql = " SELECT dentipdoc " . " FROM cxp_documento " . " WHERE codtipdoc='" . $ls_tiprec . "'";
$rs = $io_sql->select($ls_sql);
if ($row = $io_sql->fetch_row($rs)) {
$ls_denrec = $row["dentipdoc"];
}
//****************************************************************************************************
$ls_codclasrec = $data["codcla"][$z];
$ls_sql = " SELECT dencla FROM cxp_clasificador_rd WHERE codcla='" . $ls_codclasrec . "'";
$rs = $io_sql->select($ls_sql);
if ($row = $io_sql->fetch_row($rs)) {
" AND codusu LIKE '".$ls_codigo."'".
" AND nomusu LIKE '".$ls_nombre."'".
$ls_criterio.
"ORDER BY codusu";
$rs_cta=$io_sql->select($ls_sql);
$data=$rs_cta;
if($row=$io_sql->fetch_row($rs_cta))
{
$data=$io_sql->obtener_datos($rs_cta);
$arrcols=array_keys($data);
$totcol=count($arrcols);
$ds->data=$data;
$totrow=$ds->getRowCount("codemp");
for($z=1;$z<=$totrow;$z++)
{
print "<tr class=celdas-blancas>";
$ls_empresa=$data["codemp"][$z];
$ls_codigo=$data["codusu"][$z];
$ls_loginviejo=$data["codusu"][$z];
$ls_cedula=$data["cedusu"][$z];
$ls_nombre=$data["nomusu"][$z];
$ls_apellido=$data["apeusu"][$z];
$ls_telefono=$data["telusu"][$z];
$ls_codigovie=$data["codusu"][$z];
$ls_nota=$data["nota"][$z];
$ls_foto=trim($data["fotousu"][$z]);
if($ls_foto=="")
{$ls_foto="blanco.jpg";}
function uf_select_cmp_ret($as_numcom,$as_codret,&$object,&$li_total_rows)
{
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Function: uf_cargar_dt_cmp_ret
// Description: - Metodo que se encarga de seleccionar los detalles de un comprobante de retencion y los retorna en
// un arreglo de Objects que sera enviado a la clase grid_param.
// Arguments: - $as_numcom: - Numero del comprobante de retenci�n a buscar.
// - $as_codret: - Codigo de la Retenci� a buscar.
// - $object: - Arreglo de object que se retorna como referencia, lleno con los detalles del
// comprobante en caso de poseer.
// - $li_total_rows - Total de filas retornadas en la consulta.
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
$ds_temp=new class_datastore();
$li_total_rows=0;
$ls_codemp=$this->dat_emp["codemp"];
$ls_sql="SELECT codemp, codret, numcom, numope, fecfac, numfac, numcon, numnd, numnc,
tiptrans, totcmp_sin_iva, totcmp_con_iva, basimp, porimp, totimp,
iva_ret, desope, numsop, codban, ctaban, numdoc, codope
FROM scb_dt_cmp_ret
WHERE codemp='".$ls_codemp."' AND numcom='".$as_numcom."' AND codret='".$as_codret."'";
$rs_result=$this->io_sql->select($ls_sql);
if($rs_result===false)
{
$this->is_msg_error="Error en uf_cargar_dt_cmp_ret, ".$this->io_function->uf_convertirmsg($this->io_sql->message);
$lb_valido=false;
}
else
{
if($row=$this->io_sql->fetch_row($rs_result))
{
$ds_temp->data=$this->io_sql->obtener_datos($rs_result);
$li_total_rows=$ds_temp->getRowCount("numcom");
for($li_i=1;$li_i<=$li_total_rows;$li_i++)
{
$ls_numope = $ds_temp->getValue("numope",$li_i);
$ls_numfac = $ds_temp->getValue("numfac",$li_i);
$ls_numcon = $ds_temp->getValue("numcon",$li_i);
$ld_fecfac = $ds_temp->getValue("fecfac",$li_i);
$ld_fecfac = $this->io_function->uf_convertirfecmostrar($ld_fecfac);
$ldec_totalsiniva= $ds_temp->getValue("totcmp_sin_iva",$li_i);
$ldec_totalconiva= $ds_temp->getValue("totcmp_con_iva",$li_i);
$ldec_baseimp = $ds_temp->getValue("basimp",$li_i);
$ldec_porimp = $ds_temp->getValue("porimp",$li_i);
$ldec_totimp = $ds_temp->getValue("totimp",$li_i);
$ldec_ivaret = $ds_temp->getValue("iva_ret",$li_i);
$ls_numdoc = $ds_temp->getValue("numdoc",$li_i);
$ldec_totalsiniva = number_format($ldec_totalsiniva,2,",",".");
$ldec_totalconiva = number_format($ldec_totalconiva,2,",",".");
$ldec_baseimp = number_format($ldec_baseimp,2,",",".");
$ldec_porimp = number_format($ldec_porimp,2,",",".");
$ldec_totimp = number_format($ldec_totimp,2,",",".");
$ldec_ivaret = number_format($ldec_ivaret,2,",",".");
$object[$li_i][1] = "<input type=text name=txtnumope".$li_i." value='$ls_numope' style=text-align:center class=sin-borde size=15 readonly>";
$object[$li_i][2] = "<input type=text name=txtnumfac".$li_i." value='$ls_numfac' style=text-align:center class=sin-borde size=16 readonly>";
$object[$li_i][3] = "<input type=text name=txtnrocon".$li_i." value='$ls_numcon' style=text-align:center class=sin-borde size=16 readonly>";
$object[$li_i][4] = "<input type=text name=txtfecfac".$li_i." value='$ld_fecfac' style=text-align:center class=sin-borde size=13 readonly>";
$object[$li_i][5] = "<input type=text name=txtsiniva".$li_i." value='$ldec_totalsiniva' style=text-align:right class=sin-borde size=15 onKeyPress=return(currencyFormat(this,'.',',',event)) >";
$object[$li_i][6] = "<input type=text name=txtconiva".$li_i." value='$ldec_totalconiva' style=text-align:right class=sin-borde size=15 onKeyPress=return(currencyFormat(this,'.',',',event)) >";
$object[$li_i][7] = "<input type=text name=txtbasimp".$li_i." value='$ldec_baseimp' style=text-align:right class=sin-borde size=15 onKeyPress=return(currencyFormat(this,'.',',',event)) >";
$object[$li_i][8] = "<input type=text name=txtporiva".$li_i." value='$ldec_porimp' style=text-align:right class=sin-borde size=15 onKeyPress=return(currencyFormat(this,'.',',',event)) <a href=javascript:uf_iva(".$li_i.");><img src=../shared/imagebank/tools15/buscar.gif width=15 height=15 border=0></a>";
$object[$li_i][9] = "<input type=text name=txttotimp".$li_i." value='$ldec_totimp' style=text-align:right class=sin-borde size=15 onKeyPress=return(currencyFormat(this,'.',',',event)) >";
$object[$li_i][10] = "<input type=text name=txtivaret".$li_i." value='$ldec_ivaret' style=text-align:right class=sin-borde size=15 onKeyPress=return(currencyFormat(this,'.',',',event)) >";
$object[$li_i][11]= "<input type=text name=txtnumdoc".$li_i." value='$ls_numdoc' style=text-align:right class=sin-borde size=16 onKeyPress=return(currencyFormat(this,'.',',',event)) >";
$object[$li_i][12]= "<a href=javascript:uf_delete_dt('$ls_numope','$ls_numfac');><img src=../shared/imagebank/tools15/eliminar.gif alt='Eliminar Retencion' width=15 height=10 border=0></a><input type=hidden name=hidforcar".$li_i." value=''><input type=hidden name=hidcodded".$li_i." value=''><input type=hidden name=hidforded".$li_i." value=''>";
}
}
}
}
$ls_cuenta = $io_fun_cfg->uf_obtenervalor_get("cuenta", "");
print "<table width=500 border=0 cellpadding=1 cellspacing=1 class=fondo-tabla align=center>";
print "<tr class=titulo-celda>";
print "<td style=text-align:center width=100>Cuenta Contable</td>";
print "<td style=text-align:center width=400>Denominación</td>";
print "</tr>";
if ($ls_operacion == "BUSCAR") {
$ls_cadena = " SELECT sc_cuenta, denominacion, status, asignado, distribuir, " . " enero, febrero, marzo, abril, mayo, junio, julio, agosto, septiembre," . " octubre, noviembre, diciembre, nivel, referencia " . " FROM scg_cuentas " . " WHERE codemp='" . $as_codemp . "' AND sc_cuenta like '" . $ls_codigo . "%' AND " . " denominacion like '" . $ls_denominacion . "' " . " ORDER BY sc_cuenta";
$rs_cta = $io_sql->select($ls_cadena);
$data = $rs_cta;
if ($row = $io_sql->fetch_row($rs_cta)) {
$data = $io_sql->obtener_datos($rs_cta);
$arrcols = array_keys($data);
$totcol = count($arrcols);
$ds->data = $data;
$totrow = $ds->getRowCount("sc_cuenta");
for ($z = 1; $z <= $totrow; $z++) {
$cuenta = $data["sc_cuenta"][$z];
$cuenta = trim($cuenta);
$denominacion = $data["denominacion"][$z];
$status = $data["status"][$z];
switch ($ls_cuenta) {
case "":
if ($status == "S") {
print "<tr class=celdas-blancas>";
print "<td style=text-align:center width=100>" . $cuenta . "</td>";
print "<td style=text-align:left width=400>" . $denominacion . "</td>";
} else {
print "<tr class=celdas-azules>";
print "<td style=text-align:center width=100><a href=\"javascript: aceptar('{$cuenta}','{$denominacion}','{$status}');\">" . $cuenta . "</a></td>";
print "<td style=text-align:left width=400>" . $denominacion . "</td>";
$io_conect=new sigesp_include();
$conn=$io_conect->uf_conectar();
$io_datastore=new class_datastore();
$io_sql=new class_sql($conn);
$ls_sql=" SELECT *
FROM sob_sistemaconstructivo
WHERE codemp='".$ls_empresa["codemp"]."' ORDER BY $ls_campo $ls_orden ";
$rs_data=$io_sql->select($ls_sql);
$data=$rs_data;
if($row=$io_sql->fetch_row($rs_data))
{
$data=$io_sql->obtener_datos($rs_data);
$la_arrcols=array_keys($data);
$li_totcol=count($la_arrcols);
$io_datastore->data=$data;
$li_totrow=$io_datastore->getRowCount("codsiscon");
print "<table width=600 border=0 cellpadding=1 cellspacing=1 class=fondo-tabla>";
print "<tr class=titulo-celda>";
print "<td><a href=javascript:ue_ordenar('codsiscon','');><font color=#FFFFFF>Código</font></a></td>";
print "<td><a href=javascript:ue_ordenar('nomsiscon','');><font color=#FFFFFF>Nombre</font></a></td>";
print "<td><a href=javascript:ue_ordenar('dessiscon','');><font color=#FFFFFF>Descripción</font></a></td>";
print "</tr>";
for($li_z=1;$li_z<=$li_totrow;$li_z++)
{
print "<tr class=celdas-blancas>";
$ls_codigo=$data["codsiscon"][$li_z];
$ls_nombre=$data["nomsiscon"][$li_z];
$ls_descripcion=$data["dessiscon"][$li_z];
print "<td><a href=\"javascript: aceptar('$ls_codigo','$ls_nombre','$ls_descripcion');\">".$ls_codigo."</a></td>";
print "<td align=left>".$ls_nombre."</td>";
print "<td align=left>".$ls_descripcion."</td>";
$io_valuacion->uf_select_contrato($ls_codcon,&$la_contrato);
$io_valuacion->uf_select_anticipos($ls_codcon,&$ls_totant);
$io_valuacion->uf_select_variaciones($ls_codcon,&$ld_aum,1);
$io_valuacion->uf_select_variaciones($ls_codcon,&$ld_dis,2);
$ls_desobr=$la_contrato["desobr"][1];
$ls_puncue=$la_contrato["codasi"][1];
$ls_estcon=$io_funcsob->uf_convertir_numeroestado ($la_contrato["estcon"][1]);
$ls_moncon=$la_contrato["monto"][1];
$ls_feccon=$io_function->uf_convertirfecmostrar($la_contrato["feccon"][1]);
$ls_totcon=$la_contrato["monto"][1]+$ld_aum+$ld_dis;
$lb_validop=$io_valuacion->uf_select_partidasasignadas($ls_codcon,&$la_partidas,&$li_totalfilas);
if($lb_validop)
{
$io_datastore->data=$la_partidas;
$li_filaspartidas=$io_datastore->getRowCount("codpar");
for($li_i=1;$li_i<=$li_filaspartidas;$li_i++)
{
$ls_codigo=$io_datastore->getValue("codpar",$li_i);
$ls_nombre=$io_datastore->getValue("nompar",$li_i);
$ls_unidad=$io_datastore->getValue("nomuni",$li_i);
$ls_preuni=$io_datastore->getValue("prerefparasi",$li_i);
$ls_preunimod=$io_datastore->getValue("preparasi",$li_i);
$ls_canttot=$io_datastore->getValue("canxeje",$li_i);
$ls_canpareje=$io_datastore->getValue("canasipareje",$li_i);
$ls_codasi=$io_datastore->getValue("codasi",$li_i);
$ls_codobr=$io_datastore->getValue("codobr",$li_i);
$la_objectpartidas[$li_i][1]="<input type=checkbox name=flagpar".$li_i." value=1 class=sin-borde>";
$la_objectpartidas[$li_i][2]="<input name=txtcodpar".$li_i." type=text id=txtcodpar".$li_i." value='".$ls_codigo."' class=sin-borde style= text-align:center size=8 readonly><input name=canpareje".$li_i." type=hidden id=canpareje".$li_i." value='".$ls_canpareje."'><input name=codasi".$li_i." type=hidden id=codasi".$li_i." value='".$ls_codasi."'><input name=codobr".$li_i." type=hidden id=codobr".$li_i." value='".$ls_codobr."'>";
$la_objectpartidas[$li_i][3]="<input name=txtnompar".$li_i." type=text id=txtnompar".$li_i." value='".$ls_nombre."' class=sin-borde style= text-align:left size=25 readonly>";
$la_objectpartidas[$li_i][4]="<input name=txtnomuni".$li_i." type=text id=txtnomuni".$li_i." value='".$ls_unidad."' class=sin-borde size=5 style= text-align:center readonly>";
$ls_sql=" SELECT * ".
" FROM sigesp_fuentefinanciamiento ".
" WHERE codemp = '".$ls_codemp."' ".
//" codfuefin <> '--' ".
" ORDER BY codfuefin ASC ";
$rs=$io_sql->select($ls_sql);
$data=$rs;
if ($row=$io_sql->fetch_row($rs))
{
$data=$io_sql->obtener_datos($rs);
$arrcols=array_keys($data);
$totcol=count($arrcols);
$io_ds->data=$data;
$totrow=$io_ds->getRowCount("codfuefin");
print "<table width=500 border=0 cellpadding=1 cellspacing=1 class=fondo-tabla>";
print "<tr class=titulo-celda>";
print "<td>Código </td>";
print "<td>Denominación</td>";
print "</tr>";
for($z=1;$z<=$totrow;$z++)
{
$ls_estatus="";
print "<tr class=celdas-blancas>";
$codigo =$data["codfuefin"][$z];
$denominacion=$data["denfuefin"][$z];
if ($ls_tipo=="")
{
print "<td align=center><a href=\"javascript: aceptar('$codigo','$denominacion');\">".$codigo."</a></td>";
<td width="254"><div align="left">
<input name="txtdocumento" type="text" id="txtdocumento" onBlur="javascript: rellenar_cad(document.form1.txtdocumento.value,15,'doc');">
</div></td>
<?php
if(array_key_exists("procede",$_POST))
{
$ls_procede_ant=$_POST["procede"];
$sel_N="";
}
else
{
$ls_procede_ant="N";
$sel_N="selected";
}
uf_cargar_procedencias($SQL);
$li_rowcount=$ds_procedencias->getRowCount("procede");
?>
<td width="78" align="right"> Procedencia </td>
<td align="left" width="118">
<select name="procede" id="procede">
<option value="N" "<? print $sel_N?>" >Ninguno</option>
<?php
for($li_i=1;$li_i<=$li_rowcount;$li_i++)
{
$ls_procede=$ds_procedencias->getValue("procede",$li_i);
if($ls_procede_ant==$ls_procede)
{
?>
function uf_spg_reporte_disponibilidad_formato2($as_codestpro1_ori,$as_codestpro2_ori,$as_codestpro3_ori,$as_codestpro4_ori,
$as_codestpro5_ori,$as_codestpro1_des,$as_codestpro2_des,$as_codestpro3_des,
$as_codestpro4_des,$as_codestpro5_des,$adt_fecini,$adt_fecfin,
$as_cuenta_from,$as_cuenta_to)
{//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Function : uf_spg_reporte_disponibilidad_formato2
// Access : private
// Argumentos : as_codestpro1_ori .. $as_codestpro5_ori // codigo de la estructura programatica origen
// as_codestpro1_des .. $as_codestpro5_des // codigo de la estructura programatica destino
// $adt_fecini // fecha de inicio
// $adt_fecfin // fecha de fin
// $as_cuenta_from // cuenta desde
// $as_cuenta_to // desde hasta
// Returns : Retorna true en caso de exito de la consulta o false en otro caso
// Description : Reporte que genera la salida para el disponible presupuestario acumulada segun fecha seleccionada
// Creado por : Ing. Yozelin Barragán.
// Fecha Creación : 26/01/2007 Fecha última Modificacion : Hora :
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
$lb_existe = false;
$lb_valido = true;
$ls_codemp = $this->dts_empresa["codemp"];
$this->dts_reporte->reset_ds();
$ls_str_sql_where="";
$dts_disponible=new class_datastore();
$rs_data=0;
$ls_estructura_desde=$as_codestpro1_ori.$as_codestpro2_ori.$as_codestpro3_ori.$as_codestpro4_ori.$as_codestpro5_ori;
$ls_estructura_hasta=$as_codestpro1_des.$as_codestpro2_des.$as_codestpro3_des.$as_codestpro4_des.$as_codestpro5_des;
$this->uf_obtener_rango_programatica($as_codestpro1_ori,$as_codestpro2_ori,$as_codestpro3_ori,$as_codestpro4_ori,$as_codestpro5_ori,
$as_codestpro1_des,$as_codestpro2_des,$as_codestpro3_des,$as_codestpro4_des,$as_codestpro5_des,
$ls_Sql_Where,$ls_str_estructura_from,$ls_str_estructura_to);
$ls_Sql_Where = trim($ls_Sql_Where);
if ( !empty($ls_Sql_Where) )
{
$ls_str_sql_where=$ls_Sql_Where." AND ";
}
else
{
$ls_str_sql_where="";
}
$ls_gestor = $_SESSION["ls_gestor"];
if(strtoupper($ls_gestor)=="MYSQL")
{
$ls_concat="CONCAT(PCT.codestpro1, PCT.codestpro2, PCT.codestpro3, PCT.codestpro4,PCT.codestpro5)";
}
else
{
$ls_concat="(PCT.codestpro1||PCT.codestpro2||PCT.codestpro3||PCT.codestpro4||PCT.codestpro5)";
}
$ls_sql=" SELECT ".$ls_concat." AS programatica, PCT.codestpro1, PCT.codestpro2, PCT.codestpro3, PCT.codestpro4, ".
" PCT.codestpro5, PCT.spg_cuenta, PCT.denominacion, PCT.status, EP.denestpro5 ".
" FROM spg_cuentas PCT, spg_ep5 EP ".
" WHERE PCT.codemp='".$ls_codemp."' AND PCT.codemp=EP.codemp AND PCT.codestpro1=EP.codestpro1 AND ".
" PCT.codestpro2=EP.codestpro2 AND PCT.codestpro3=EP.codestpro3 AND PCT.codestpro4=EP.codestpro4 AND ".
" PCT.codestpro5=EP.codestpro5 AND ".$ls_str_sql_where." ".
" PCT.spg_cuenta between '".$as_cuenta_from."' AND '".$as_cuenta_to."' ".
" ORDER BY PCT.codestpro1, PCT.codestpro2, PCT.codestpro3, PCT.codestpro4, PCT.codestpro5, PCT.spg_cuenta ";
$rs_data=$this->SQL->select($ls_sql);
if($rs_data===false)
{
$lb_valido=false;
$this->io_msg->message("CLASE->sigesp_spg_class_report MÉTODO->uf_spg_reporte_disponibilidad_presupuestaria ERROR->".$this->fun->uf_convertirmsg($this->SQL->message));
}
else
{
if($row=$this->SQL->fetch_row($rs_data))
{
$dts_disponible->data=$this->SQL->obtener_datos($rs_data);
$lb_existe=true;
}
$this->SQL->free_result($rs_data);
if($lb_existe==false)
{
return false; // no hay registro
}
$li_total_row=$dts_disponible->getRowCount("spg_cuenta");
for ($li_i=1;$li_i<=$li_total_row;$li_i++)
{
$ls_codestpro1 = $dts_disponible->getValue("codestpro1",$li_i);
$ls_codestpro2 = $dts_disponible->getValue("codestpro2",$li_i);
$ls_codestpro3 = $dts_disponible->getValue("codestpro3",$li_i);
$ls_codestpro4 = $dts_disponible->getValue("codestpro4",$li_i);
$ls_codestpro5 = $dts_disponible->getValue("codestpro5",$li_i);
$ls_programatica = $ls_codestpro1.$ls_codestpro2.$ls_codestpro3.$ls_codestpro4.$ls_codestpro5;
$ls_spg_cuenta = $dts_disponible->getValue("spg_cuenta",$li_i);
$ls_denominacion = $dts_disponible->getValue("denominacion",$li_i);
$ls_status = $dts_disponible->getValue("status",$li_i);
$ls_denestpro5 = $dts_disponible->getValue("denestpro5",$li_i);
$ld_monto_asignado=0;
$ld_monto_aumento=0;
$ld_monto_disminucion=0;
$ld_monto_precompromiso=0;
$ld_monto_compromiso=0;
$ld_monto_causado=0;
$ld_monto_pagado=0;
$ld_monto_aumento_a=0;
$ld_monto_disminucion_a=0;
$ld_monto_precompromiso_a=0;
$ld_monto_compromiso_a=0;
if(!$this->uf_calcular_disponible_operacion_por_cuenta($ls_codestpro1,$ls_codestpro2,$ls_codestpro3,$ls_codestpro4,
$ls_codestpro5,$ls_spg_cuenta,$adt_fecini,$adt_fecfin,
&$ld_monto_asignado,&$ld_monto_aumento,&$ld_monto_disminucion,
&$ld_monto_precompromiso,&$ld_monto_compromiso,&$ld_monto_causado,
&$ld_monto_pagado,&$ld_monto_aumento_a,&$ld_monto_disminucion_a,
&$ld_monto_precompromiso_a,&$ld_monto_compromiso_a))
{
return false;
}
else
{
$ld_asignado=$ld_monto_asignado+$ld_monto_aumento_a+$ld_monto_aumento-$ld_monto_disminucion_a-$ld_monto_disminucion;
$ld_disponible=$ld_monto_asignado+$ld_monto_aumento-$ld_monto_disminucion-$ld_monto_compromiso-$ld_monto_precompromiso;
$ld_monto_ejecutado=0;
$ld_monto_acumulado=0;
$ldt_fecini=$this->fun->uf_convertirfecmostrar($adt_fecini);
$ldt_fecfin=$this->fun->uf_convertirfecmostrar($adt_fecfin);
$lb_valido=$this->uf_spg_reporte_calcular_ejecutado($ls_spg_cuenta,$ls_estructura_desde,$ls_estructura_hasta,
$ldt_fecini,$ldt_fecfin,$ld_monto_ejecutado,$ld_monto_acumulado);
$this->dts_reporte->insertRow("programatica",$ls_programatica);
$this->dts_reporte->insertRow("spg_cuenta",$ls_spg_cuenta);
$this->dts_reporte->insertRow("denominacion",$ls_denominacion);
$this->dts_reporte->insertRow("status",$ls_status);
$this->dts_reporte->insertRow("denestpro5",$ls_denestpro5);
$this->dts_reporte->insertRow("asignado",$ld_asignado);
$this->dts_reporte->insertRow("disponible",$ld_disponible);
$this->dts_reporte->insertRow("monto_ejecutado",$ld_monto_ejecutado);
$this->dts_reporte->insertRow("monto_acumulado",$ld_monto_acumulado);
$lb_valido = true;
}
}//for
}//else
return $lb_valido;
}//fin uf_spg_reporte_disponibilidad_formato2
$data = $class_report->uf_cargar_chq_voucher($ls_numdoc,$ls_chevau,$ls_codban,$ls_ctaban,$ls_codope);
$lb_valido = $class_report->uf_actualizar_status_impreso($ls_numdoc,$ls_chevau,$ls_codban,$ls_ctaban,$ls_codope);
$class_report->SQL->begin_transaction();
if (!$lb_valido)
{
print "Error al actualizar";
$class_report->is_msg_error;
$class_report->SQL->rollback();
}
else
{
$class_report->SQL->commit();
}
$ds_voucher->data=$data;
$li_totrow=$ds_voucher->getRowCount("numdoc");
$io_pdf->transaction('start'); // Iniciamos la transacci�n
$thisPageNum=$io_pdf->ezPageCount;
for($li_i=1;$li_i<=$li_totrow;$li_i++)
{
$li_totprenom = 0;
$ldec_mondeb = 0;
$ldec_monhab = 0;
$li_totant = 0;
$ls_numdoc = $ds_voucher->data["numdoc"][$li_i];
$ls_codban = $ds_voucher->data["codban"][$li_i];
$ls_nomban = $class_report->uf_select_data($io_sql,"SELECT nomban FROM scb_banco WHERE codban ='".$ls_codban."' AND codemp='".$ls_codemp."'","nomban");
$ls_ctaban = $ds_voucher->data["ctaban"][$li_i];
$ls_chevau = $ds_voucher->data["chevau"][$li_i];
}//if($lb_valido)
else
{
$msg->message("Error al cargar los datos");
}
}//if($ls_cod_report==0409")
}//($li_rtn>0)
elseif(($lb_valido)&&($ai_cuantos>0))
{
$rs_cta=$iscg_procesos->uf_select_datastore_trim( $ls_codemp, $ls_cod_report );
$data=$SQL->obtener_datos($rs_cta);
$ds_proaf=new class_datastore();
$ds_proaf->data=$data;
$li_num=$ds_proaf->getRowCount("cod_report");
for($i=1;$i<=$li_num;$i++)
{
$ls_status=$ds_proaf->getValue("status",$i);
if($ls_status=="C")
{
?>
<tr class="celdas-azules">
<td ><a href="javascript: aceptar('<?php print $ds_proaf->getValue("asignado",$i);?>','<?php print $ds_proaf->getValue("sc_cuenta",$i);?>','<?php print $i?>','<?php print $li_num?>','<?php print $ls_status ?>');"><?php print $ds_proaf->getValue("sc_cuenta",$i);?></a></td>
<?php
}
elseif($ls_status=="S")
{
?>
<tr class="celdas-blancas">
<td ><a href="javascript: aceptar('<?php print $ds_proaf->getValue("asignado",$i);?>','<?php print $ds_proaf->getValue("sc_cuenta",$i);?>','<?php print $i?>','<?php print $li_num?>','<?php print $ls_status ?>');"><?php print $ds_proaf->getValue("sc_cuenta",$i);?></a></td>
$ls_sql=" SELECT * FROM sigesp_deducciones";
$rs=$io_sql->select($ls_sql);
if($rs===false)
{
$io_msg->message($fun->uf_convertirmsg($io_sql->message));
}
else
{
$data=$rs;
if($row=$io_sql->fetch_row($rs))
{
$data=$io_sql->obtener_datos($rs);
$arrcols=array_keys($data);
$totcol=count($arrcols);
$io_ds->data=$data;
$totrow=$io_ds->getRowCount("codded");
if($totrow>0)
{
for($z=1;$z<=$totrow;$z++)
{
$ls_codded=$data["codded"][$z];
$ls_dended=$data["dended"][$z];
$ls_formula=$data["formula"][$z];
$li_status_islr=$data["islr"][$z];
$li_status_iva=$data["iva"][$z];
$li_status_retmun=$data["estretmun"][$z];
$ldec_monded=$data["monded"][$z];
$ls_cuenta=$data["sc_cuenta"][$z];
if($li_status_islr==1)
{
