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) {