function conexion($query_rs,$opciones,$informacion = '',$modo='select',$campo_id = '',$base_de_datos = '',$gestor = '',$usuario=''){
global $obj_sql,$msj_error_conex,$ruta;
if($_SESSION["ls_gestor"] == 'POSTGRES' and $modo=='insert'){$query_rs = $query_rs.'; SELECT lastval() AS valor_id; ';}
$in=new sigesp_include();
if($gestor == ''){$gestor = $_SESSION["ls_gestor"];}
if($usuario==''){$usuario = $_SESSION["ls_login"];}
if($base_de_datos==''){$con=$in->uf_conectar();}
else{$con=$in->uf_conectar_otra_bd($_SESSION["ls_hostname"],$usuario,$_SESSION["ls_password"],$base_de_datos,$gestor);}
$obj_sql=new class_sql($con);
$rs_data = $obj_sql->select($query_rs);
if($rs_data === false){
if($tipo_mensaje=='clase_msj'){
$msj_error = $informacion.'<br><br><b>ERROR:</b> <br>'.$obj_sql->message;
$this->obj_msj->message($msj_error,$mensaje_sigesp=2,$ruta);
}
else{
$msj_error_conex = $informacion.'<br><br><b>ERROR:</b> <br>'.$obj_sql->message;
echo '<input type="hidden" name="txt_msj_error" id="txt_msj_error" value="'.$msj_error_conex.'">';
//echo $msj_error_conex;
}
}
$cantidad = $obj_sql->num_rows($rs_data);
$row=$obj_sql->fetch_row($rs_data);
switch($modo){
case "update":
break;
case "delete":
break;
case "insert":
if($_SESSION["ls_gestor"] == 'MYSQLT' or $_SESSION["ls_gestor"] == 'MYSQLT'){ return mysql_insert_id();}
if($_SESSION["ls_gestor"] == 'POSTGRES'){$insert_id = $row['valor_id']; return $insert_id;}
break;
case "select":
if($opciones == 'arreglo'){return array('rs'=>$rs_data, 'fila'=>$row, 'cantidad'=>$cantidad);}
elseif($opciones == 'fila'){return $row;}
break;
}
$obj_sql->free_result($rs_data);
}
function uf_select_PlanUnico()
{
//require_once("sigesp_include.php");
$inc=new sigesp_include();
$con=$inc->uf_conectar();
$SQL=new class_sql($con);
$rs="";
$ls_sql="";
$lb_valido=true;
$ls_sql="SELECT * FROM sigesp_plan_unico";
$rs=$SQL->select($ls_sql);
$li_num=$SQL->num_rows($rs);
if ($li_num>0)
{
$lb_valido=true;
}
else
{
$lb_valido=false;
$is_msg_error = "Error en Select Plan Unico. ";
}
return $rs;
}
function uf_imprimirresultados($as_codact, $as_idact, $as_tiporesponsable, $as_destino)
{
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";
$io_sql = new class_sql($con);
$ds = new class_datastore();
require_once "../shared/class_folder/class_funciones.php";
$fun = new class_funciones();
$ls_codemp = $_SESSION["la_empresa"]["codemp"];
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=100>Cédula</td>";
print "<td width=440>Nombre y Apellido</td>";
print "</tr>";
switch ($as_tiporesponsable) {
case "uso":
$ls_sql = "SELECT DISTINCT(codres) AS codres," . "\t (SELECT nomper" . " \t\t FROM sno_personal" . "\t\t WHERE sno_personal.codemp=saf_dta.codemp" . "\t\t AND sno_personal.codper=saf_dta.codres) AS nomres1," . "\t (SELECT nombene" . " \t\t FROM rpc_beneficiario" . "\t\t WHERE rpc_beneficiario.codemp=saf_dta.codemp" . "\t\t AND rpc_beneficiario.ced_bene=saf_dta.codres) AS nomres2," . "\t (SELECT apeper" . " \t\t FROM sno_personal" . "\t\t WHERE sno_personal.codemp=saf_dta.codemp" . "\t\t AND sno_personal.codper=saf_dta.codres) AS aperes1," . "\t (SELECT apebene" . " \t\t FROM rpc_beneficiario" . "\t\t WHERE rpc_beneficiario.codemp=saf_dta.codemp" . "\t\t AND rpc_beneficiario.ced_bene=saf_dta.codres) AS aperes2" . " FROM saf_dta" . " WHERE codemp='" . $ls_codemp . "'" . " AND codact='" . $as_codact . "'";
break;
case "primario":
$ls_sql = "SELECT DISTINCT(codrespri) AS codres," . "\t (SELECT nomper" . " \t\t FROM sno_personal" . "\t\t WHERE sno_personal.codemp=saf_dta.codemp" . "\t\t AND sno_personal.codper=saf_dta.codrespri) AS nomres1," . "\t (SELECT nombene" . " \t\t FROM rpc_beneficiario" . "\t\t WHERE rpc_beneficiario.codemp=saf_dta.codemp" . "\t\t AND rpc_beneficiario.ced_bene=saf_dta.codrespri) AS nomres2," . "\t (SELECT apeper" . " \t\t FROM sno_personal" . "\t\t WHERE sno_personal.codemp=saf_dta.codemp" . "\t\t AND sno_personal.codper=saf_dta.codrespri) AS aperes1," . "\t (SELECT apebene" . " \t\t FROM rpc_beneficiario" . "\t\t WHERE rpc_beneficiario.codemp=saf_dta.codemp" . "\t\t AND rpc_beneficiario.ced_bene=saf_dta.codrespri) AS aperes2" . " FROM saf_dta" . " WHERE codemp='" . $ls_codemp . "'" . " AND codact='" . $as_codact . "'";
break;
}
$rs_data = $io_sql->select($ls_sql);
$li_num = $io_sql->num_rows($rs_data);
if ($li_num > 0) {
while ($row = $io_sql->fetch_row($rs_data)) {
$ls_codres = $row["codres"];
$ls_nomres1 = $row["nomres1"];
if ($ls_nomres1 == "") {
$ls_nomres = $row["nomres2"] . " " . $row["aperes2"];
} else {
$ls_nomres = $row["nomres1"] . " " . $row["aperes1"];
}
if ($ls_codres != "") {
print "<tr class=celdas-blancas>";
print "<td><a href=\"javascript: aceptar('{$ls_codres}','{$ls_nomres}');\">" . $ls_codres . "</a></td>";
print "<td>" . $ls_codres . "</td>";
print "<td>" . $ls_nomres . "</td>";
print "</tr>";
}
}
}
print "</table>";
}
$ds=new class_datastore();
$io_sql=new class_sql($con);
$arr=$_SESSION["la_empresa"];
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>";
if($ls_operacion=="BUSCAR")
{
$ls_sql=" SELECT * FROM saf_grupo".
" WHERE codgru like '".$ls_codigo."'".
" AND dengru like '".$ls_denominacion."'";
$rs_cta=$io_sql->select($ls_sql);
$li_numrows=$io_sql->num_rows($rs_cta);
if($li_numrows>0)
{
while($row=$io_sql->fetch_row($rs_cta))
{
print "<tr class=celdas-blancas>";
$ls_codigo=$row["codgru"];
$ls_denominacion=$row["dengru"];
switch($ls_tipo)
{
case '':
print "<td><a href=\"javascript: aceptar('$ls_codigo','$ls_denominacion');\">".$ls_codigo."</a></td>";
print "<td>".$ls_denominacion."</td>";
break;
case 'ACTIVOS':
print "</tr>";
if ($ls_operacion == "BUSCAR") {
$ls_cedbene = "%" . $_POST["txtcedula"] . "%";
$ls_nombene = "%" . $_POST["txtnombre"] . "%";
$ls_apebene = "%" . $_POST["txtapellido"] . "%";
$ls_codban = "%" . $_POST["cmbbanco"] . "%";
if ($ls_codban == "%s1%") {
$ls_codban = "%%";
}
$ls_sql = " SELECT rpc_beneficiario.ced_bene,rpc_beneficiario.rifben,rpc_beneficiario.nombene,rpc_beneficiario.apebene,\n\t\t\t\t\t\t rpc_beneficiario.dirbene,rpc_beneficiario.telbene,rpc_beneficiario.celbene,rpc_beneficiario.email,\n\t\t\t\t\t\t rpc_beneficiario.sc_cuenta,rpc_beneficiario.sc_cuentarecdoc,rpc_beneficiario.codban,\n\t\t\t\t\t\t rpc_beneficiario.ctaban,rpc_beneficiario.codtipcta,rpc_beneficiario.codpai,rpc_beneficiario.codest,\n\t\t\t\t\t\t rpc_beneficiario.codmun,rpc_beneficiario.codpar,rpc_beneficiario.codbansig,rpc_beneficiario.nacben,\n\t\t\t\t\t\t rpc_beneficiario.numpasben,rpc_beneficiario.fecregben,rpc_beneficiario.tipconben,\n\t\t\t\t\t\t scg_cuentas.denominacion as denscgcta,\n\t\t\t\t\t\t (SELECT COALESCE(denbansig,'') as denbansig \n\t\t\t\t\t\t FROM sigesp_banco_sigecof \n\t\t\t\t\t\t\t WHERE rpc_beneficiario.codbansig=sigesp_banco_sigecof.codbansig) as denbansig\n\t\t FROM rpc_beneficiario, scg_cuentas\n\t\t\t\t WHERE rpc_beneficiario.ced_bene like '" . $ls_cedbene . "' \n\t\t\t\t AND rpc_beneficiario.nombene like '" . $ls_nombene . "' \n\t\t\t\t\t AND rpc_beneficiario.apebene like '" . $ls_apebene . "'\n\t\t\t\t\t AND rpc_beneficiario.codban like '" . $ls_codban . "'\t\t\t\t\t \n\t\t\t\t\t AND rpc_beneficiario.ced_bene<>'----------'\n\t\t\t\t\t AND rpc_beneficiario.codemp=scg_cuentas.codemp\n\t\t\t\t\t AND rpc_beneficiario.sc_cuenta=scg_cuentas.sc_cuenta\n\t\t\t\t ORDER BY rpc_beneficiario.ced_bene ASC";
$rs_data = $io_sql->select($ls_sql);
//echo $ls_sql.'<br>';
if ($rs_data === false) {
$io_msg->message("Error en Consulta, Contacte al Administrador del Sistema !!!");
} else {
$li_totrows = $io_sql->num_rows($rs_data);
if ($li_totrows > 0) {
while (!$rs_data->EOF) {
echo "<tr class=celdas-blancas>";
$ls_cedbene = trim($rs_data->fields["ced_bene"]);
$ls_rifbene = trim($rs_data->fields["rifben"]);
$ls_tipperrif = substr($ls_rifbene, 0, 1);
//Tipo Persona RIF.(J=Juridico,G=Gubernamental,V=Natural Venezolano,E=Natural Extranjero).
$ls_numpririf = substr($ls_rifbene, 2, 8);
//Número Principal del RIF, 8 Dígitos (0-9).
$ls_numterrif = substr($ls_rifbene, 11, 1);
//Número Terminal del RIF, 1 Dígitos (0-9).
$ls_nombene = $rs_data->fields["nombene"];
$ls_apebene = ltrim($rs_data->fields["apebene"]);
if (!empty($ls_apebene)) {
$ls_nombre = $ls_apebene . ', ' . $ls_nombene;
}
$numalet->setNumero($ld_montot);
$ls_monto= $numalet->letra();
$ld_montot=number_format($ld_montot,2,",",".");
$ld_monsubtot=number_format($ld_monsubtot,2,",",".");
$ld_monimp=number_format($ld_monimp,2,",",".");
$ld_fecordcom=$io_funciones->uf_convertirfecmostrar($ld_fecordcom);
uf_print_encabezado_pagina($ls_estcondat,$ls_numordcom,$ld_fecordcom,$ls_coduniadm,$ls_denuniadm,
$ls_lugentdir,$ls_estlugcom,$ls_codpro,$ls_nompro,$ls_obscom,$ls_rifpro,
$ls_diaplacom,$ls_dirpro,$ls_forpagcom,&$io_pdf);
/////DETALLE DE LA ORDEN DE COMPRA
$rs_datos = $io_report->uf_select_detalle_orden_imprimir($ls_numordcom,$ls_estcondat,&$lb_valido);
if ($lb_valido)
{
$li_totrows = $io_sql->num_rows($rs_datos);
if ($li_totrows>0)
{
$li_i = 0;
while($row=$io_sql->fetch_row($rs_datos))
{
$li_i=$li_i+1;
$ls_codartser=$row["codartser"];
$ls_denartser=$row["denartser"];
if($ls_estcondat=="B")
{
$ls_unidad=$row["unidad"];
}
else
{
$ls_unidad="";
$lb_valido = true;
$rs_proveedor = $io_report->uf_load_proveedores($ls_codemp, $li_orden, $ls_tipo, $ls_codprov1, $ls_codprov2, $ls_codesp, $lb_valido);
if ($lb_valido) {
error_reporting(E_ALL);
set_time_limit(1800);
$io_pdf = new Cezpdf('LEGAL', 'landscape');
// Instancia de la clase PDF
$io_pdf->selectFont('../../shared/ezpdf/fonts/Helvetica.afm');
// Seleccionamos el tipo de letra
$io_pdf->ezSetCmMargins(4.5, 2.5, 3, 3);
// Configuración de los margenes en centímetros
uf_print_encabezado_pagina($ls_titulo, $io_pdf);
// Imprimimos el encabezado de la página
$io_pdf->ezStartPageNumbers(950, 50, 9, '', '', 1);
// Insertar el número de página
$li_total = $io_sql->num_rows($rs_proveedor);
$data = $io_sql->obtener_datos($rs_proveedor);
for ($z = 1; $z <= $li_total; $z++) {
//1
$ls_codpro = $data["cod_pro"][$z];
$ls_nompro = $data["nompro"][$z];
$ls_rifpro = $data["rifpro"][$z];
$ls_dirpro = $data["dirpro"][$z];
$ls_telpro = $data["telpro"][$z];
$ls_especialidad = $io_report->uf_load_especialidadproveedor2($ls_codpro, &$lb_valido);
$ls_nivel = $io_report->uf_load_niveldecontratacionporproveedor($ls_codpro, &$lb_valido);
$ls_clas = $io_report->uf_load_niveldeclasificacionporproveedor($ls_codpro, &$lb_valido);
$ld_moncapfin = number_format($data["monfincon"][$z], 2, ",", ".");
//Capacidad Financiera.
$la_data[$z] = array('codigo' => $ls_codpro, 'nombre' => $ls_nompro, 'rif' => $ls_rifpro, 'direccion' => $ls_dirpro, 'telefono' => $ls_telpro, 'especialidad' => $ls_especialidad, 'nivel' => $ls_nivel, 'calificacion' => $ls_clas, 'capacidad' => $ld_moncapfin);
}
if (!empty($ls_codestpro1) && !empty($ls_codestpro2) && !empty($ls_codestpro3)) {
$ls_codestpro1 = str_pad($ls_codestpro1, 25, 0, 0);
$ls_codestpro2 = str_pad($ls_codestpro2, 25, 0, 0);
$ls_codestpro3 = str_pad($ls_codestpro3, 25, 0, 0);
}
if ($li_estmodest == 1) {
if ($ls_tipo == "grid") {
$ls_sql = "SELECT SUBSTR(spg_ep3.codestpro1," . $li_longestpro1 . ",25) as codestpro1,\n\t\t SUBSTR(spg_ep3.codestpro2," . $li_longestpro2 . ",25) as codestpro2,\n\t\t SUBSTR(spg_ep3.codestpro3," . $li_longestpro3 . ",25) as codestpro3,\n\t\t spg_ep3.denestpro3, spg_ep3.estcla, spg_ep1.sc_cuenta,\n\t\t\t\t\t (SELECT denestpro1 \n\t\t\t\t\t\t\t FROM spg_ep1 \n\t\t\t\t\t\t\t WHERE spg_ep1.codestpro1=spg_ep3.codestpro1 \n\t\t\t\t\t\t\t AND spg_ep1.estcla=spg_ep3.estcla) as denestpro1,\n\t\t\t\t\t (SELECT denestpro2 \n\t\t\t\t\t\t\t FROM spg_ep2 \n\t\t\t\t\t\t\t WHERE spg_ep2.codestpro1=spg_ep3.codestpro1 \n\t\t\t\t\t\t\t AND spg_ep2.codestpro2=spg_ep3.codestpro2 \n\t\t\t\t\t\t\t\tAND spg_ep2.estcla=spg_ep3.estcla) as denestpro2 \n\t\t\t\t FROM spg_ep3, spg_ep1\t\n\t\t\t\t WHERE spg_ep3.codestpro3 like '%{$ls_codestpro}%' \n\t\t\t\t\t AND spg_ep3.denestpro3 like '%{$ls_denestpro}%' \n\t\t\t\t\t\tAND spg_ep1.codestpro1<>'-------------------------'\n\t\t\t\t\t\tAND spg_ep3.codemp=spg_ep1.codemp\n\t\t\t\t\t\tAND spg_ep3.codestpro1=spg_ep1.codestpro1\n\t\t\t\t\t\tAND spg_ep3.estcla=spg_ep1.estcla\n\t\t\t\t ORDER BY codestpro1,codestpro2,codestpro3,spg_ep3.estcla";
} else {
$ls_sql = "SELECT SUBSTR(spg_ep3.codestpro1," . $li_longestpro1 . ",25) as codestpro1,\n\t\t SUBSTR(spg_ep3.codestpro2," . $li_longestpro2 . ",25) as codestpro2,\n\t\t SUBSTR(spg_ep3.codestpro3," . $li_longestpro3 . ",25) as codestpro3,\n\t\t spg_ep3.denestpro3, spg_ep3.estcla, spg_ep1.sc_cuenta,\n\t\t\t\t\t (SELECT denestpro1 \n\t\t\t\t\t\t FROM spg_ep1 \n\t\t\t\t\t\t\t WHERE spg_ep1.codestpro1=spg_ep3.codestpro1\n\t\t\t\t\t\t\t AND spg_ep1.estcla=spg_ep3.estcla) as denestpro1, \n\t\t\t\t\t (SELECT denestpro2 \n\t\t\t\t\t\t FROM spg_ep2 \n\t\t\t\t\t\t\t WHERE spg_ep2.codestpro1=spg_ep3.codestpro1\n\t\t\t\t\t\t\t AND spg_ep2.codestpro2=spg_ep3.codestpro2\n\t\t\t\t\t\t\t AND spg_ep2.estcla=spg_ep3.estcla) as denestpro2 \n\t\t\t\t FROM spg_ep3, spg_ep1\t\n\t\t\t\t WHERE spg_ep3.codestpro3 like '%{$ls_codestpro}%'\n\t\t\t\t\t AND spg_ep3.denestpro3 like '%{$ls_denestpro}%' \n\t\t\t\t\t AND spg_ep1.codestpro1<>'-------------------------'\n\t\t\t\t\t AND spg_ep3.codemp=spg_ep1.codemp\n\t\t\t\t\t AND spg_ep3.codestpro1=spg_ep1.codestpro1\n\t\t\t\t\t AND spg_ep3.estcla=spg_ep1.estcla\n\t\t\t\t ORDER BY codestpro1,codestpro2,codestpro3,spg_ep3.estcla";
}
} else {
$ls_sql = "SELECT SUBSTR(a.codestpro1," . $li_longestpro1 . ",25) AS codestpro1,\n\t\t \t\t SUBSTR(b.codestpro2," . $li_longestpro2 . ",25) AS codestpro2,\n\t\t\t\t SUBSTR(c.codestpro3," . $li_longestpro3 . ",25) AS codestpro3,\n\t\t\t\t\t\t SUBSTR(d.codestpro4," . $li_longestpro4 . ",25) AS codestpro4,\n\t\t\t\t\t\t SUBSTR(e.codestpro5," . $li_longestpro5 . ",25) AS codestpro5,\n\t \t\t a.denestpro1 as denestpro1,b.denestpro2 as denestpro2,c.denestpro3 as denestpro3,d.denestpro4 as denestpro4,e.denestpro5 as denestpro5,\n\t\t\t\t a.estcla, a.sc_cuenta\n\t\t\t\t FROM spg_ep1 a,spg_ep2 b,spg_ep3 c, spg_ep4 d, spg_ep5 e\n\t\t\t\t WHERE e.codestpro5 like '%" . $ls_codestpro . "%'\n\t\t\t\t AND e.denestpro5 like '%" . $ls_denestpro . "%'\n\t\t\t\t\t AND a.codemp='" . $ls_codemp . "'\n\t\t\t\t\t AND a.codestpro1<>'-------------------------'\n\t\t\t\t\t AND a.codemp=b.codemp\n\t\t\t\t\t AND a.codemp=c.codemp\n\t\t\t\t\t AND a.codemp=d.codemp\n\t\t\t\t\t AND a.codemp=e.codemp \n\t\t\t\t\t AND a.codestpro1=b.codestpro1 \n\t\t\t\t\t AND a.codestpro1=c.codestpro1 \n\t\t\t\t\t AND b.codestpro2=c.codestpro2 \n\t\t\t\t\t AND a.codestpro1=d.codestpro1\n\t\t\t\t\t AND a.codestpro1=e.codestpro1\n\t\t\t\t\t AND b.codestpro2=d.codestpro2\n\t\t\t\t\t AND b.codestpro2=e.codestpro2\n\t\t\t\t\t AND c.codestpro3=d.codestpro3\n\t\t\t\t\t AND c.codestpro3=e.codestpro3\n\t\t\t\t\t AND d.codestpro4=e.codestpro4\n\t\t\t\t\t AND a.estcla=c.estcla";
}
$rs_data = $io_sql->select($ls_sql);
$num_row = $io_sql->num_rows($rs_data);
if ($num_row == 0) {
?>
<script language="javascript">alert('No Existen Estructuras Presupuestaria');close();</script>
<?php
} else {
while ($row = $io_sql->fetch_row($rs_data)) {
print "<tr class=celdas-blancas>";
$ls_estcla = trim($row["estcla"]);
$ls_codestpro1 = trim($row["codestpro1"]);
$ls_codestpro2 = trim($row["codestpro2"]);
$ls_codestpro3 = trim($row["codestpro3"]);
$ls_denestpro1 = ltrim($row["denestpro1"]);
$ls_denestpro2 = ltrim($row["denestpro2"]);
$ls_denestpro3 = ltrim($row["denestpro3"]);
$ls_scgctaint = trim($row["sc_cuenta"]);
function uf_print($ls_tipo, &$totrow)
{
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_datastore.php";
$ds = new class_datastore();
require_once "../shared/class_folder/class_sql.php";
$io_sql = new class_sql($con);
require_once "../shared/class_folder/class_funciones.php";
$io_fun = new class_funciones();
require_once "../shared/class_folder/class_fecha.php";
$io_fec = new class_fecha();
$arr = $_SESSION["la_empresa"];
$ls_codemp = $arr["codemp"];
require_once "../shared/class_folder/grid_param.php";
$grid = new grid_param();
$title[1] = "Todos <input name=chkall type=checkbox id=chkall value=T style=height:15px;width:15px \n\t\t\t\t onClick=javascript:uf_select_all(); >";
$title[2] = "Tipo de Material";
$title[3] = "Código";
$title[4] = "Denominación del componente";
$grid1 = "grid";
$ls_sql = " SELECT saf_componente.*, saf_tipoestructura.dentipest " . "\tFROM saf_componente " . "\tJOIN saf_tipoestructura ON (saf_tipoestructura.codemp=saf_componente.codemp " . " AND saf_tipoestructura.codtipest=saf_componente.codtipest) " . " ORDER BY saf_componente.codtipest, saf_componente.codcomp";
$rs_data = $io_sql->select($ls_sql);
if ($rs_data === false) {
$io_msg->message("Error en select");
} else {
$totrow = $io_sql->num_rows($rs_data);
if ($totrow > 0) {
while ($row = $io_sql->fetch_row($rs_data)) {
$ls_dentipest = $row["dentipest"];
$ls_codcomp = $row["codcomp"];
$ls_dencomp = $row["dencomp"];
$ls_codtipest = $row["codtipest"];
$z++;
$object[$z][1] = "<input name=chktip" . $z . " type=checkbox id=chktip" . $z . " value=1 class=sin-borde onClick=javascript:uf_selected('" . $z . "');>";
$object[$z][2] = "<input type=text name=txtdentipest" . $z . " value='" . $ls_dentipest . "' id=txtdentipest" . $z . " class=sin-borde readonly style=text-align:center size=30 maxlength=30 >\n\t\t\t\t\t<input type=hidden name=txtcodtipest" . $z . " value='" . $ls_codtipest . "' id=txtcodtipest" . $z . " readonly >";
$object[$z][3] = "<input type=text name=txtcodcomp" . $z . " value='" . $ls_codcomp . "' id=txtcodcomp" . $z . " class=sin-borde readonly style=text-align:left size=12 maxlength=12>";
$object[$z][4] = "<input type=text name=txtdencomp" . $z . " value='" . $ls_dencomp . "' id=txtdencomp" . $z . " class=sin-borde readonly style=text-align:left size=50 maxlength=50>";
}
} else {
$object[1][1] = "<input name=chktip1 type=checkbox id=chktip1 value=1 class=sin-borde onClick=javascript:uf_selected('1');>";
$object[1][2] = "<input type=text name=txtdentipest1 value='' id=txtdentipest1 class=sin-borde readonly style=text-alin:center size=30 maxlength=30>\n\t\t\t\t<input type=hidden name=txtcodtipest1 value='' id=txtcodtipest1 readonly >";
$object[1][3] = "<input type=text name=txtcodcomp1 value='' id=txtcodcomp1 class=sin-borde readonly style=text-align:left size=12 maxlength=12>";
$object[1][4] = "<input type=text name=txtdencomp1 value='' id=txtdencomp1 class=sin-borde readonly style=text-align:left size=50 maxlength=50>";
}
$grid->makegrid($totrow, $title, $object, 500, 'Catalogo de Materiales', $grid1);
print "</table>";
}
}
function uf_print(&$totrow, $provbene, $tipproben)
{
require_once("../shared/class_folder/grid_param.php");
require_once("../shared/class_folder/sigesp_include.php");
require_once("../shared/class_folder/class_sql.php");
require_once("../shared/class_folder/class_funciones.php");
$in = new sigesp_include();
$con = $in->uf_conectar();
$io_msg = new class_mensajes();
$io_sql = new class_sql($con);
$io_funcion = new class_funciones();
$arr = $_SESSION["la_empresa"];
$ls_codemp = $arr["codemp"];
$grid = new grid_param();
//----------------------------------------------------------------------------------------
if ($tipproben=="P")
{
$cod_prov=$provbene;
$ced_bene='----------';
}
else
{
$cod_prov='----------';
$ced_bene=$provbene;
}
//------------------------------------------------------------------------------------------
$title[1]="Documento";
$title[2]="Total Anticipo";
$title[3]="Saldo";
$title[4]="Amortización";
$grid1="grid";
$ls_sql= " SELECT scb_movbco_anticipo.codemp, scb_movbco_anticipo.codban, scb_movbco_anticipo.ctaban,
scb_movbco_anticipo.numdoc, scb_movbco_anticipo.codope, scb_movbco_anticipo.estmov,
scb_movbco_anticipo.codamo, scb_movbco_anticipo.monamo, scb_movbco_anticipo.monsal,
scb_movbco_anticipo.montotamo, scb_movbco_anticipo.sc_cuenta,
scb_movbco.cod_pro, scb_movbco.ced_bene, scb_banco.nomban,
(SELECT rpc_proveedor.sc_cuenta
FROM rpc_proveedor
WHERE rpc_proveedor.codemp=scb_movbco.codemp
AND rpc_proveedor.cod_pro=scb_movbco.cod_pro) as cta_pro,
(SELECT rpc_beneficiario.sc_cuenta
FROM rpc_beneficiario
WHERE rpc_beneficiario.codemp=scb_movbco.codemp
AND rpc_beneficiario.ced_bene=scb_movbco.ced_bene) as cta_bene
FROM scb_movbco_anticipo
JOIN scb_movbco ON (scb_movbco.codemp = scb_movbco_anticipo.codemp
AND scb_movbco.codban = scb_movbco_anticipo.codban
AND scb_movbco.ctaban = scb_movbco_anticipo.ctaban
AND scb_movbco.numdoc = scb_movbco_anticipo.numdoc
AND scb_movbco.codope = scb_movbco_anticipo.codope
AND scb_movbco.estmov = scb_movbco_anticipo.estmov)
JOIN scb_banco ON (scb_banco.codemp=scb_movbco_anticipo.codemp
AND scb_banco.codban=scb_movbco_anticipo.codban)
WHERE scb_movbco_anticipo.codemp='".$ls_codemp."'
AND scb_movbco_anticipo.estmov='C'
AND scb_movbco.estant='1'
AND scb_movbco.cod_pro='".$cod_prov."'
AND scb_movbco.ced_bene='".$ced_bene."'
AND scb_movbco_anticipo.monsal>0";
$rs_data=$io_sql->select($ls_sql);
if(($rs_data===false))
{
//$io_msg->message("Error en select");
}
else
{
$totrow=$io_sql->num_rows($rs_data);
$ls_monamo = 0;
$z=0;
if ($totrow>0)
{
while($row=$io_sql->fetch_row($rs_data))
{
$ls_codban = $row["codban"];
$ls_cta = $row["ctaban"];
$ls_montotant = $row["montotamo"];
$ls_saldo = $row["monsal"];
$ls_numdoc = $row["numdoc"];
$ls_codamo = $row["codamo"];
$ls_codope = $row["codope"];
$ls_estmov = $row["estmov"];
$ls_scgcta = trim($row["sc_cuenta"]);
$ls_montoamo2 = $row["monamo"];
$ls_codpro = $row["cta_pro"];
$ls_cedbene = $row["cta_bene"];
$z++;
$object[$z][1]="<input name=txtbnumdoc".$z." type=text id=txtnumdoc value='".$ls_numdoc."' class=sin-borde size=20 maxlength=20 style=text-align:center readonly>
<input name=txtcodamo".$z." type=hidden id=txtcodamo value='".$ls_codamo."' readonly>
<input name=txtcodban".$z." type=hidden id=txtcodban value='".$ls_codban."' readonly>
<input name=txtcta".$z." type=hidden id=txtcta value='".$ls_cta."' readonly>
<input name=txtcodope".$z." type=hidden id=txtcodope value='".$ls_codope."' readonly>
<input name=txtestmov".$z." type=hidden id=txtestmov value='".$ls_estmov."' readonly>
<input name=txtsccta".$z." type=hidden id=txtsccta value='".$ls_scgcta."' readonly>
<input name=txtmontamo2".$z." type=hidden id=txtmontamo2 value='".$ls_montoamo2 ."' readonly>
<input name=txtcodpro".$z." type=hidden id=txtcodpro value='".$ls_codpro."' readonly>
<input name=txtcedbene".$z." type=hidden id=txtcedbene value='".$ls_cedbene."' readonly>";
$object[$z][2]="<input type=text name=txtmontotant".$z." value='".number_format($ls_montotant,2,",",".")."' id=txtmontotantp class=sin-borde readonly style=text-align:right size=20 maxlength=20>";
$object[$z][3]="<input type=text name=txtmonsal".$z." value='".number_format($ls_saldo,2,",",".")."' id=txtmonsal class=sin-borde readonly style=text-align:right size=10 maxlength=10>";
$object[$z][4]="<input type=text name=txtmonamor".$z." value='".$ls_monamo."' id=txtmonamor class=sin-borde onKeyPress=return(ue_formatonumero(this,'.',',',event)); style=text-align:right size=10 maxlength=10>";
}// fin del while
}
else
{ $z=1;
$object[1][1]="<input name=txtbnumdoc".$z." type=text id=txtnumdoc value='' class=sin-borde size=20 maxlength=20 readonly>
<input name=txtcodamo".$z." type=hidden id=txtcodamo value='' readonly>
<input name=txtcodban".$z." type=hidden id=txtcodban value='' readonly>
<input name=txtcta".$z." type=hidden id=txtcta value='' readonly>
<input name=txtcodope".$z." type=hidden id=txtcodope value='' readonly>
<input name=txtestmov".$z." type=hidden id=txtestmov value='' readonly>
<input name=txtsccta".$z." type=hidden id=txtsccta value='' readonly>
<input name=txtmontamo2".$z." type=hidden id=txtmontamo2 value='' readonly>
<input name=txtcodpro".$z." type=hidden id=txtcodpro value='' readonly>
<input name=txtcedbene".$z." type=hidden id=txtcedbene value='' readonly>";
$object[1][2]="<input type=text name=txtmontotant".$z." value='' id=txtmontotantp class=sin-borde readonly style=text-align:right size=15 maxlength=15>";
$object[1][3]="<input type=text name=txtmonsal".$z." value='' id=txtmonsal class=sin-borde readonly style=text-align:right size=10 maxlength=10>";
$object[1][4]="<input type=text name=txtmonamor".$z." value='' id=txtmonamor class=sin-borde onKeyPress=return(ue_formatonumero(this,'.',',',event)); style=text-align:left size=10 maxlength=10>";
}
$grid->makegrid($totrow,$title,$object,400,'Amortización de Anticipos',$grid1);
print "</table>";
}
}// fin de la funcion print
echo "<td width=50>Código </td>";
echo "<td width=250>Denominación</td>";
echo "</tr>";
$ls_codestpro1 = str_pad($ls_codestpro1, 25, 0, 0);
$ls_codestpro2 = str_pad($ls_codestpro2, 25, 0, 0);
$ls_codestpro3 = str_pad($ls_codestpro3, 25, 0, 0);
$ls_codestpro4 = str_pad($ls_codestpro4, 25, 0, 0);
$ls_codestpro5 = str_pad($ls_codestpro5, 25, 0, 0);
if (array_key_exists('session_activa', $_SESSION)) {
$ls_sql = " SELECT SUBSTR(codestpro1," . $li_longestpro1 . ",25) as codestpro1," . " SUBSTR(codestpro2," . $li_longestpro2 . ",25) as codestpro2," . " SUBSTR(codestpro3," . $li_longestpro3 . ",25) as codestpro3," . " SUBSTR(codestpro4," . $li_longestpro4 . ",25) as codestpro4," . " SUBSTR(codestpro5," . $li_longestpro5 . ",25) as codestpro5," . " ep5.denestpro5,ep5.estcla,'' as codfuefin, '' as denfuefin" . " FROM spg_ep5 as ep5" . " WHERE ep5.codemp='" . $ls_codemp . "' AND ep5.codestpro1 like '%" . $ls_codestpro1 . "%' AND estcla='" . $ls_estcla5 . "' " . " AND ep5.codestpro2 like '%" . $ls_codestpro2 . "%' AND ep5.codestpro3 like '%" . $ls_codestpro3 . "%' " . " AND ep5.codestpro4 like '%" . $ls_codestpro4 . "%' " . " AND ep5.denestpro5 like '%" . $ls_denestpro5 . "%'";
} else {
$ls_sql = " SELECT SUBSTR(codestpro1," . $li_longestpro1 . ",25) as codestpro1," . " SUBSTR(codestpro2," . $li_longestpro2 . ",25) as codestpro2," . " SUBSTR(codestpro3," . $li_longestpro3 . ",25) as codestpro3," . " SUBSTR(codestpro4," . $li_longestpro4 . ",25) as codestpro4," . " SUBSTR(codestpro5," . $li_longestpro5 . ",25) as codestpro5," . " ep5.denestpro5,ep5.estcla,ff.codfuefin,ff.denfuefin" . " FROM spg_ep5 as ep5, sigesp_fuentefinanciamiento as ff " . " WHERE ep5.codfuefin= ff.codfuefin" . " AND ep5.codemp='" . $ls_codemp . "' AND ep5.codestpro1 like '%" . $ls_codestpro1 . "%' AND estcla='" . $ls_estcla5 . "' " . " AND ep5.codestpro2 like '%" . $ls_codestpro2 . "%' AND ep5.codestpro3 like '%" . $ls_codestpro3 . "%' " . " AND ep5.codestpro4 like '%" . $ls_codestpro4 . "%' " . " AND ep5.denestpro5 like '%" . $ls_denestpro5 . "%'";
}
$rs_data = $io_sql->select($ls_sql);
$data = $rs_data;
if ($io_sql->num_rows($rs_data) == 0) {
$io_msg->message("No se han definido " . $_SESSION["la_empresa"]["nomestpro3"]);
} else {
while ($row = $io_sql->fetch_row($rs_data)) {
print "<tr class=celdas-blancas>";
$ls_codestpro1 = $row["codestpro1"];
$ls_codestpro2 = $row["codestpro2"];
$ls_codestpro3 = $row["codestpro3"];
$ls_codestpro4 = $row["codestpro4"];
$ls_codestpro5 = $row["codestpro5"];
$ls_denestpro5 = $row["denestpro5"];
$ls_codfuefin = $row["codfuefin"];
$ls_denfuefin = $row["denfuefin"];
$ls_estcla = $row["estcla"];
if (array_key_exists('session_activa', $_SESSION)) {
print "<td width=250 align=\"center\"><a href=\"javascript: aceptar_v2('{$ls_codestpro5}','{$ls_denestpro5}','{$ls_estcla}');\">" . trim($ls_codestpro1) . "</td>";
$lb_valido = true;
$rs_proveedor = $io_report->uf_load_proveedores($ls_codemp, $li_orden, $ls_tipo, $ls_codprov1, $ls_codprov2, $ls_codesp, $lb_valido);
if ($lb_valido) {
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, 3, 3, 3);
// Configuración de los margenes en centímetros
uf_print_encabezado_pagina($ls_titulo, $io_pdf);
// Imprimimos el encabezado de la página
$io_pdf->ezStartPageNumbers(550, 50, 10, '', '', 1);
// Insertar el número de página
$li_total = $io_sql->num_rows($rs_proveedor);
//print "REGISTROS ENCONTRADOS--->".$li_total;
uf_print_cabecera($io_pdf);
$data = $io_sql->obtener_datos($rs_proveedor);
$la_documentos[0] = "";
for ($z = 1; $z <= $li_total; $z++) {
//1
$io_pdf->transaction('start');
// Iniciamos la transacción
$li_numpag = $io_pdf->ezPageCount;
// Número de página
$ls_codpro = $data["cod_pro"][$z];
$ls_nompro = $data["nompro"][$z];
$ls_rifpro = $data["rifpro"][$z];
$ls_ocei = $data["ocei_no_reg"][$z];
$ls_telpro = $data["telpro"][$z];
function uf_obtener_codempresa_bd($as_hostname, $as_login, $as_password,$as_database,$as_gestor,&$as_codempdes)
{
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Funcion uf_obtener_codempresa_bd
// Access public
// Arguments $as_hostname // hostname para conectar con la Base de Datos
// $as_login // login para conectar con la Base de Datos
// $as_password // password o clave para conectac con la Base de Datos
// $as_database // nombre de la Base Datos con la que se quiere conectar
// $as_gestor // nombre del gestor que maneja la Base de Datos
// $as_codempdes // Código de la Empresa destino
// Returns lb_valido. Retorna una variable booleana
// Description Devuelve el Código de Empresa de la Base de Datos referenciada
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
require_once("../shared/class_folder/sigesp_include.php");
$io_conect=new sigesp_include();
$io_conexion_destino = $io_conect->uf_conectar_otra_bd ($as_hostname, $as_login, $as_password,$as_database,$as_gestor);
$io_sql_destino = new class_sql($io_conexion_destino);
$lb_valido=true;
$ls_sql="SELECT codemp ".
" FROM sigesp_empresa ";
$rs_data = $io_sql_destino->select($ls_sql);
if ($rs_data===false)
{
$this->io_msg->message($this->io_funcion->uf_convertirmsg($io_sql_destino->message));
$lb_valido=false;
}
else
{
$li_numrows = $io_sql_destino->num_rows($rs_data);
if ($li_numrows>0)
{
$lb_valido=true;
if ($row=$io_sql_destino->fetch_row($rs_data))
{
$as_codempdes = $row["codemp"];
}
$io_sql_destino->free_result($rs_data);
}
else
{
$lb_valido=false;
}
}
return $lb_valido;
}
function uf_imprimirresultados($as_coduniadm, $as_denuniadm, $ls_destino, $ls_coddestino, $ls_dendestino)
{
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";
$io_sql = new class_sql($con);
$ds = new class_datastore();
require_once "../shared/class_folder/class_funciones.php";
$fun = new class_funciones();
$ls_codemp = $_SESSION["la_empresa"]["codemp"];
print "<table width=500 border=0 cellpadding=1 cellspacing=1 class=fondo-tabla align=center>";
print "<tr class=titulo-celda>";
print "<td width=40>Código</td>";
print "<td width=120>Denominación</td>";
print "</tr>";
//*** COMENTADO POR ANAIS SARABIA 26/07/2010 *****
/*$ls_sql="SELECT coduniadm, denuniadm".
" FROM saf_unidadadministrativa".
" WHERE codemp='".$ls_codemp."'".
" AND coduniadm like '".$as_coduniadm."'".
" AND denuniadm like '".$as_denuniadm."'".
" ORDER BY coduniadm ";
*/
$ls_sql = "SELECT spg_unidadadministrativa.coduniadm, \n\t\t count(spg_dt_unidadadministrativa.codestpro1)as items,\n max(spg_unidadadministrativa.denuniadm) as denuniadm,\n\t\t\t\t\t\tmax(spg_dt_unidadadministrativa.codestpro1) as codestpro1, \n\t\t\t\t\t\tmax(spg_dt_unidadadministrativa.codestpro2) as codestpro2, \n\t\t\t\t\t\tmax(spg_dt_unidadadministrativa.codestpro3) as codestpro3, \n\t\t\t\t\t\tmax(spg_dt_unidadadministrativa.codestpro4) as codestpro4, \n\t\t\t\t\t\tmax(spg_dt_unidadadministrativa.codestpro5) as codestpro5, \n\t\t\t\t\t\tmax(spg_dt_unidadadministrativa.estcla) as estcla" . " FROM spg_unidadadministrativa, spg_dt_unidadadministrativa, spg_ep5 " . " WHERE spg_unidadadministrativa.codemp='" . $ls_codemp . "' " . " AND spg_unidadadministrativa.coduniadm <>'----------' " . " AND spg_unidadadministrativa.coduniadm like '%" . $as_coduniadm . "%' " . " AND spg_unidadadministrativa.denuniadm like '%" . $as_denuniadm . "%' " . " AND spg_unidadadministrativa.codemp=spg_dt_unidadadministrativa.codemp " . " AND spg_unidadadministrativa.coduniadm=spg_dt_unidadadministrativa.coduniadm " . " AND spg_dt_unidadadministrativa.estcla=spg_ep5.estcla " . " AND spg_dt_unidadadministrativa.codestpro1=spg_ep5.codestpro1 " . " AND spg_dt_unidadadministrativa.codestpro2=spg_ep5.codestpro2 " . " AND spg_dt_unidadadministrativa.codestpro3=spg_ep5.codestpro3 " . " AND spg_dt_unidadadministrativa.codestpro4=spg_ep5.codestpro4 " . " AND spg_dt_unidadadministrativa.codestpro5=spg_ep5.codestpro5 " . " GROUP BY spg_unidadadministrativa.codemp, spg_unidadadministrativa.coduniadm" . " ORDER BY coduniadm ASC ";
$rs_per = $io_sql->select($ls_sql);
$msg->message($ls_sql);
$li_num = $io_sql->num_rows($rs_per);
if ($li_num > 0) {
while ($row = $io_sql->fetch_row($rs_per)) {
print "<tr class=celdas-blancas>";
$as_coduniadm = $row["coduniadm"];
$as_denuniadm = $row["denuniadm"];
switch ($ls_destino) {
case "":
print "<td><a href=\"javascript: aceptar('{$as_coduniadm}','{$as_denuniadm}');\">" . $as_coduniadm . "</a></td>";
print "<td>" . $as_denuniadm . "</td>";
print "</tr>";
break;
case "activo":
print "<td><a href=\"javascript: aceptar_activo('{$as_coduniadm}','{$as_denuniadm}');\">" . $as_coduniadm . "</a></td>";
print "<td>" . $as_denuniadm . "</td>";
print "</tr>";
break;
case "reasignaciones":
print "<td><a href=\"javascript: aceptar_reasignaciones('{$as_coduniadm}','{$as_denuniadm}');\">" . $as_coduniadm . "</a></td>";
print "<td>" . $as_denuniadm . "</td>";
print "</tr>";
break;
case "reporte":
print "<td><a href=\"javascript: aceptar_reportes('{$as_coduniadm}','{$as_denuniadm}','{$ls_coddestino}','{$ls_dendestino}');\">" . $as_coduniadm . "</a></td>";
print "<td>" . $as_denuniadm . "</td>";
print "</tr>";
break;
}
}
}
print "</table>";
}
if($ls_operacion == "RECARGAR")
{
$lb_valido=$io_class_progrep->uf_spi_cargar_data_original($ls_codrep,$la_seguridad);
$ls_operacion="CARGAR";
}//operacion=="RECARGAR"
if($ls_operacion=="CARGAR")
{
$ls_codrep=$_POST["cmbrep"];
$ls_modrep=1;
$rs_load=0;
$lb_valido=$io_class_progrep->uf_spi_cargar_data($ls_codrep,$ls_modrep,$rs_load);
if($lb_valido)
{
$li=$io_sql->num_rows($rs_load);
if($row=$io_sql->fetch_row($rs_load))
{
$data=$io_sql->obtener_datos($rs_load);
$ds_progrep->data=$data;
$li_num=$ds_progrep->getRowCount("spi_cuenta");
$li_totnum=$li_num;
for($i=1;$i<=$li_num;$i++)
{
$ls_cuenta=$data["spi_cuenta"][$i];
$ls_denominacion=$data["denominacion"][$i];
$ls_distribuir=$data["distribuir"][$i];
$ls_modrep=$data["modrep"][$i];
$ls_status=$data["status"][$i];
$ls_referencia=$data["referencia"][$i];
$ld_previsto=number_format($data["previsto"][$i],2,",",".");
if (array_key_exists("txtfechahasta",$_POST))
{
$ls_fechahasta=$_POST["txtfechahasta"];
}
else
{
$ls_fechahasta=$_GET["txtfechahasta"];
}
$li_cont=0;
$li_page=0;
$arr_emp=$_SESSION["la_empresa"];
$ls_codemp=$arr_emp["CodEmp"];
$rs_recepcion=$io_report->uf_select_recepcion($ls_codemp,$ls_categoria,$ls_codigo1,$ls_codigo2,$ls_tipodoc1,$ls_tipodoc2,$ls_recibidas,$ls_anuladas,$ls_procesadas,$ls_fechadesde,$ls_fechahasta);
$li_total=$io_sql->num_rows($rs_recepcion);
$data=$io_sql->obtener_datos($rs_recepcion);
$li_maxlines=51;
$li_aux=$li_total/$li_maxlines;
$li_total_page=ceil($li_aux);
for ($z=1;$z<=$li_total;$z++)
{//1
$ls_numrecdoc =$data["NumRecDoc"][$z];
$ls_denominacion=$data["DenConDoc"][$z];
$ls_codtipdoc =$data["CodTipDoc"][$z];
$ls_sql=" SELECT DenTipDoc ".
" FROM cxp_documento ".
" WHERE CodTipDoc='".$ls_codtipdoc."'";
$rs_recdoc=$io_sql2->select($ls_sql);
if ($row=$io_sql2->fetch_row($rs_recdoc))
$li_total = $_GET["total"];
}
$la_documentos[0] = "";
if ($li_total > 0) {
for ($li_i = 1; $li_i <= $li_total; $li_i++) {
$la_documentos[$li_i] = $_GET["coddoc" . $li_i];
}
}
$lb_valido = true;
$la_empresa = $_SESSION["la_empresa"];
$ls_codemp = $la_empresa["codemp"];
$rs_data = $io_report->uf_select_proveedores($ls_codemp, $li_orden, $ls_codproben1, $ls_codproben2, $lb_valido);
if ($lb_valido) {
error_reporting(E_ALL);
set_time_limit(1800);
$li_total = $io_sql->num_rows($rs_data);
$data = $io_sql->obtener_datos($rs_data);
$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(3.8, 3, 3, 3);
// Configuración de los margenes en centímetros
uf_print_encabezado_pagina($ls_titulo, $io_pdf);
// Imprimimos el encabezado de la página
$io_pdf->ezStartPageNumbers(580, 50, 8, '', '', 1);
// Insertar el número de página
for ($z = 1; $z <= $li_total; $z++) {
$ls_codpro = $data["cod_pro"][$z];
$ls_nompro = $data["nompro"][$z];
$ls_dirpro = $data["dirpro"][$z];
$lo_title[6] = "";
if (array_key_exists("operacion", $_POST)) {
$ls_operacion = $_POST["operacion"];
$ls_denact = $_POST["txtdenact"];
$ls_codact = $_POST["txtcodact"];
$ls_idact = $_POST["txtidact"];
} else {
$ls_codact = $_GET["codact"];
$ls_seract = $_GET["seract"];
$ls_idact = $_GET["id"];
$ls_operacion = "";
$la_estpar[0] = "";
$la_estpar[1] = "";
$ls_sql = "SELECT codpar,denpar,estpar \n\t\t FROM saf_partes \n\t\t\t\t WHERE codemp = '" . $la_codemp . "'\n\t\t\t\t AND codact = '" . $ls_codact . "'\n\t\t\t\t AND ideact = '" . $ls_idact . "'";
$rs_data = $io_sql->select($ls_sql);
$li_nurows = $io_sql->num_rows($rs_data);
if ($li_nurows >= 1) {
$li_j = 0;
while ($row = $io_sql->fetch_row($rs_data)) {
$la_estpar[0] = "";
$la_estpar[1] = "";
$ls_codpar = $row["codpar"];
$ls_denpar = $row["denpar"];
$ls_estpar = $row["estpar"];
$io_fac->uf_seleccionarcombo("1-0", $ls_estpar, $la_estpar, 2);
$li_j++;
$lo_object[$li_j][1] = "<input name=txtseract" . $li_j . " type=text id=txtseract" . $li_j . " class=sin-borde size=17 maxlength=15 value='" . $ls_seract . "' onKeyUp='javascript: ue_validarnumero(this);' readonly='true'>";
$lo_object[$li_j][2] = "<input name=txtcodpar" . $li_j . " type=text id=txtcodpar" . $li_j . " class=sin-borde size=17 maxlength=15 value='" . $ls_codpar . "' onKeyUp='javascript: ue_validarnumero(this);'>";
$lo_object[$li_j][3] = "<input name=txtdenpar" . $li_j . " type=text id=txtdenpar" . $li_j . " class=sin-borde size=40 maxlength=100 value='" . $ls_denpar . "'>";
$lo_object[$li_j][4] = "<select name=cmbestatus" . $li_j . "><option value=1 " . $la_estpar[0] . ">Bueno</option><option value=0 " . $la_estpar[1] . ">Malo</option></select>";
$lo_object[$li_j][5] = "<a href=javascript:uf_agregar_dt(" . $li_j . ");><img src=../shared/imagebank/tools15/aprobado.gif alt=Aceptar width=15 height=15 border=0></a>";
<?php
print "<table width=500 border=0 cellpadding=1 cellspacing=1 class=fondo-tabla align=center>";
print "<tr class=titulo-celda>";
print "<td>Presupuestaria</td>";
print "<td>Denominación</td>";
print "<td>Contable</td>";
print "</tr>";
if($ls_operacion=="BUSCAR")
{
$ls_sql = " SELECT soc_servic ".
" FROM sigesp_empresa ".
" WHERE codemp = '".$as_codemp."' ";
$rs=$SQL->select($ls_sql);
$li_numrows=$SQL->num_rows($rs);
if ($li_numrows===false)
{
$lb_valido=false;
$this->io_msg->message($this->io_funcion->uf_convertirmsg($this->io_sql->message));
}
else
{
$ls_sql = " SELECT DISTINCT spg_cuenta, denominacion, codestpro1,codestpro2, codestpro3,sc_cuenta,status ".
" FROM spg_cuentas ".
" WHERE codemp = '".$as_codemp."' AND spg_cuenta like '%".$ls_codigo."%' AND ".
" denominacion like '%".$ls_denominacion."%' AND sc_cuenta like '%".$ls_cuentaspg."%' ";
while ($row=$SQL->fetch_row($rs))
{
$ls_cadena = trim($row["soc_servic"]);
$lb_valido = true;
$rs_beneficiario = $io_report->uf_select_beneficiario($li_orden, $ls_cedula1, $ls_cedula2, $lb_valido);
if ($lb_valido) {
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(3.8, 3, 3, 3);
// Configuración de los margenes en centímetros
uf_print_encabezado_pagina($ls_titulo, $io_pdf);
// Imprimimos el encabezado de la página
$io_pdf->ezStartPageNumbers(550, 50, 10, '', '', 1);
// Insertar el número de página
$li_total = $io_sql->num_rows($rs_beneficiario);
$data = $io_sql->obtener_datos($rs_beneficiario);
for ($z = 1; $z <= $li_total; $z++) {
//1
$ls_cedbene = $data["ced_bene"][$z];
$ls_nombene = $data["nombene"][$z];
$ls_apebene = $data["apebene"][$z];
$ls_cuenta = $data["sc_cuenta"][$z];
$la_data[$z] = array('cedula' => $ls_cedbene, 'nombre' => $ls_nombene, 'apellido' => $ls_apebene, 'cuenta' => $ls_cuenta);
}
//4
uf_print_cabecera_detalle($io_pdf);
uf_print_detalle($la_data, $io_pdf);
// Imprimimos el detalle
if ($lb_valido) {
$io_pdf->ezStopPageNumbers(1, 1);
switch ($_SESSION["ls_gestor"]) {
case "MYSQLT":
$ls_cadena_beneficiario = "CONCAT(rpc_beneficiario.nombene,' ',rpc_beneficiario.apebene)";
break;
case "POSTGRES":
$ls_cadena_beneficiario = "rpc_beneficiario.nombene||' '||rpc_beneficiario.apebene";
break;
case "INFORMIX":
$ls_cadena_beneficiario = "rpc_beneficiario.nombene||' '||rpc_beneficiario.apebene";
break;
}
$ls_estcat = $io_saf->uf_select_valor_config($ls_codemp);
$ls_sql = " SELECT saf_movimiento.*,saf_causas.dencau, " . " (CASE tiprespri WHEN 'P' THEN (SELECT " . $ls_cadena_personal . " " . "\t\t\t\t\t\t\t\t FROM sno_personal " . "\t\t\t\t\t\t\t\t WHERE sno_personal.codemp=saf_movimiento.codemp AND " . "\t\t\t\t\t\t\t\t\t\t sno_personal.codper=saf_movimiento.codrespri) " . "\t\t\t\t WHEN 'B' THEN (SELECT " . $ls_cadena_beneficiario . " " . "\t\t\t\t\t\t\t\t FROM rpc_beneficiario " . "\t\t\t\t\t\t\t\t WHERE rpc_beneficiario.codemp=saf_movimiento.codemp AND " . "\t\t\t\t\t\t\t\t\t\t rpc_beneficiario.ced_bene=saf_movimiento.codrespri) " . "\t END) AS nomrespri, " . " (CASE tipresuso WHEN 'P' THEN (SELECT " . $ls_cadena_personal . " " . "\t\t\t\t\t\t\t\t FROM sno_personal " . "\t\t\t\t\t\t\t\t WHERE sno_personal.codemp=saf_movimiento.codemp AND " . "\t\t\t\t\t\t\t\t\t\t sno_personal.codper=saf_movimiento.codresuso) " . "\t\t\t \t WHEN 'B' THEN (SELECT " . $ls_cadena_beneficiario . " " . "\t\t\t\t\t\t\t\t FROM rpc_beneficiario " . "\t\t\t\t\t\t\t\t WHERE rpc_beneficiario.codemp=saf_movimiento.codemp AND " . "\t\t\t\t\t\t\t\t\t\t rpc_beneficiario.ced_bene=saf_movimiento.codresuso) " . "\t END) AS nomresuso, " . " (SELECT denuniadm " . " FROM spg_unidadadministrativa " . " WHERE spg_unidadadministrativa.coduniadm=saf_movimiento.coduniadm) as denuniadm" . " FROM saf_movimiento,saf_causas " . " WHERE saf_movimiento.codcau=saf_causas.codcau AND " . " saf_causas.tipcau='R' AND saf_causas.estcat='" . $ls_estcat . "' AND " . " saf_movimiento.codemp='" . $ls_codemp . "' " . $ls_sqlint . " AND " . " saf_movimiento.cmpmov like '" . $ls_cmpmov . "' AND " . " saf_movimiento.codcau like '" . $ls_codcau . "' ";
$rs_cta = $io_sql->select($ls_sql);
//$data=$rs_cta;
$li_num = $row = $io_sql->num_rows($rs_cta);
if ($li_num > 0) {
/*$data=$io_sql->obtener_datos($rs_cta);
$arrcols=array_keys($data);
$totcol=count($arrcols);
$ds->data=$data;
$totrow=$ds->getRowCount("cmpmov");
for($z=1;$z<=$totrow;$z++)*/
while ($row = $io_sql->fetch_row($rs_cta)) {
print "<tr class=celdas-blancas>";
$ls_cmpmov = $row["cmpmov"];
$ls_numcmp = $row["numcmp"];
$ls_codcau = $row["codcau"];
$ls_dencau = $row["dencau"];
$ld_feccmp = $io_fun->uf_formatovalidofecha($row["feccmp"]);
$ls_descmp = $row["descmp"];
}
elseif ($ls_operacion=="MOSTRAR")
{
}
else
{
if ($ls_operacion=="PROCESAR")
{
$lb_valido_transferencia = false;
for ($li_i=1;$li_i<=$li_totrows;$li_i++)//$li_totrows numeros de comprobantes
{
uf_cargar_dt($li_i);
$resultado = $io_comprobantes->uf_cargar_bddestino();//busca todas las bases configuradas como consolidadoras
$li_numrows = $io_sql->num_rows($resultado);
if ($li_numrows > 0)
{
$ls_dbdestino = "";
$i = 0;
if ($ls_selusu=='1')
{
$la_bddestino = array();
$lb_valido_transferencia = true;
while(($li_numrows>0)&&($lb_valido_transferencia))
{
$row = $io_sql->fetch_row($resultado);
$li_numrows--;
$ls_dbdestino = trim($row["nombasdat"]);
$lb_encontrado = uf_get_datos_bddestino($ls_dbdestino,$empresa);
if ($lb_encontrado)
$la_empresa["codemp"][$li_pos]=$row["codemp"];
$la_empresa["nombre"][$li_pos]=$row["nombre"];
}
}
}
}
}
elseif($operacion="SELEMPRESA")
{
$ls_codemp=$_POST["cmbempresa"];
$con=$io_conect->uf_conectar();
$obj_sql=new class_sql($con);
$ls_sql="SELECT * FROM sigesp_empresa where codemp='".$ls_codemp."' ";
$result=$obj_sql->select($ls_sql);
$li_row=$obj_sql->num_rows($result);
$li_pos=0;
if($row=$obj_sql->fetch_row($result))
{
$la_empresa=$row;
$_SESSION["la_empresa"]=$la_empresa;
$_SESSION["la_empresa"]["periodo"]=date("Y-m-d",strtotime($_SESSION["la_empresa"]["periodo"]));
$_SESSION['sigesp_sitioweb']=$_SESSION["la_empresa"]["dirvirtual"];
$_SESSION['sigesp_servidor']=$_SESSION["ls_hostname"];
$_SESSION['sigesp_usuario']=$_SESSION["ls_login"];
$_SESSION['sigesp_clave']=$_SESSION["ls_password"];
$_SESSION['sigesp_basedatos']=$_SESSION["ls_database"];
$_SESSION['sigesp_gestor']=$_SESSION["ls_gestor"];
$_SESSION['sigesp_servidor_apr']=$_SESSION["ls_hostname"];
$_SESSION['sigesp_usuario_apr']=$_SESSION["ls_login"];
function uf_print($as_codper, $as_cedper, $as_nomper, $as_apeper, $as_codnom, &$totrow)
{
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Function: uf_print
// Access: public
// Arguments: as_codper // Código de Personal
// as_cedper // Cédula de Pesonal
// as_nomper // Nombre de Personal
// as_apeper // Apellido de Personal
// as_codnom // código de nómina a la que pertenece
// as_tipo // Tipo de Llamada del catálogo
// Description: Función que obtiene e imprime los resultados de la busqueda
// Creado Por: Ing. Yesenia Moreno
// Fecha Creación: 01/01/2006 Fecha Última Modificación :
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
global $io_fun_nomina;
require_once("../shared/class_folder/sigesp_include.php");
$io_include=new sigesp_include();
$io_conexion=$io_include->uf_conectar();
require_once("../shared/class_folder/class_sql.php");
$io_sql=new class_sql($io_conexion);
require_once("../shared/class_folder/class_mensajes.php");
$io_mensajes=new class_mensajes();
require_once("../shared/class_folder/class_funciones.php");
$io_funciones=new class_funciones();
require_once("sigesp_sno.php");
$io_sno=new sigesp_sno();
$ls_codemp=$_SESSION["la_empresa"]["codemp"];
require_once("../shared/class_folder/grid_param.php");
$grid = new grid_param();
$title[1]="Todos <input name=chkall type=checkbox id=chkall value=T style=height:15px;width:15px onClick=javascript:uf_select_all(); >";
$title[2]="Código";
$title[3]="Cedula";
$title[4]="Nombre y Apellido";
$title[5]="Estatus";
$grid1="grid";
$ls_sql=" SELECT sno_personal.codper, sno_personal.cedper, sno_personal.nomper, ".
" sno_personal.apeper, sno_personal.estper ".
" FROM sno_personal ".
" WHERE sno_personal.codemp='".$ls_codemp."' ".
" AND sno_personal.codper like '".$as_codper."' ".
" AND sno_personal.cedper like '".$as_cedper."' ".
" AND sno_personal.nomper like '".$as_nomper."' ".
" AND sno_personal.apeper like '".$as_apeper."' ".
" AND sno_personal.codper IN (SELECT sno_personal.codper ".
" FROM sss_permisos_internos,sno_personal ".
" WHERE sss_permisos_internos.codsis='SNO' ".
" AND sss_permisos_internos.codusu='".$_SESSION["la_logusr"]."' ".
" AND sno_personal.codtippersss=sss_permisos_internos.codintper ) ".
" AND sno_personal.codper IN (SELECT codper FROM sno_personalnomina ".
" WHERE sno_personalnomina.codemp='".$ls_codemp."' ".
" AND sno_personalnomina.codnom='".$as_codnom."') ".
" ORDER BY sno_personal.codper ";
$rs_data=$io_sql->select($ls_sql);
if($rs_data===false)
{
$io_mensajes->message("ERROR->".$io_funciones->uf_convertirmsg($io_sql->message));
}
else
{
$totrow=$io_sql->num_rows($rs_data);
if ($totrow>0)
{
while($row=$io_sql->fetch_row($rs_data))
{
$ls_codper=$row["codper"];
$ls_cedper=$row["cedper"];
$ls_nomper=$row["nomper"];
$ls_apeper=$row["apeper"];
$ls_nomper=$ls_apeper.", ".$ls_nomper;
$ls_estper=$row["estper"];
switch ($ls_estper)
{
case "0":
$ls_estper="Pre-Ingreso";
$ls_estatus=0;
break;
case "1":
$ls_estper="Activo";
$ls_estatus=1;
break;
case "2":
$ls_estper="N/A";
$ls_estatus=2;
break;
case "3":
$ls_estper="Egresado";
$ls_estatus=3;
break;
}
$z++;
$object[$z][1]="<input name=chkper".$z." type=checkbox id=chkper".$z." value=1 class=sin-borde onClick=javascript:uf_selected('".$z."');>";
$object[$z][2]="<input type=text name=txtcodigo".$z." value='".$ls_codper."' id=txtcodigo".$z." class=sin-borde readonly style=text-align:center size=18 maxlength=18 >";
$object[$z][3]="<input type=text name=txtcedper".$z." value='".$ls_cedper."' id=txtcedper".$z." class=sin-borde readonly style=text-align:left size=12 maxlength=12>";
$object[$z][4]="<input type=text name=txtnomper".$z." value='".$ls_nomper."' id=txtnomper".$z." class=sin-borde readonly style=text-align:left size=100 maxlength=100>";
$object[$z][5]="<input type=text name=txtestatus".$z." value='".$ls_estper."' id=txtestatus".$z." class=sin-borde readonly style=text-align:left size=10 maxlength=10>";
}// fin del while
}
else
{
$object[1][1]="<input name=chkcta1 type=checkbox id=chkcta1 value=1 onClick=javascript:uf_selected('".$z."');>";
$object[1][2]="<input type=text name=txtcuenta1 value='' id=txtcuenta1 class=sin-borde readonly style=text-align:center size=20 maxlength=20>";
$object[1][3]="<input type=text name=txtdencuenta1 value='' id=txtdencuenta1 class=sin-borde readonly style=text-align:center size=50 maxlength=254>";
$totrow=1;
}
$grid->makegrid($totrow,$title,$object,600,'Catalogo del Personal',$grid1);
//$io_sql->free_result($rs_data);
}
print "</table>";
unset($io_include);
unset($io_conexion);
unset($io_sql);
unset($io_mensajes);
unset($io_funciones);
unset($io_sno);
unset($ls_codemp);
}
$ls_titulo = "SOLICITUD DE COTIZACIÓN";
$lb_valido = uf_insert_seguridad($ls_titulo); // Seguridad de Reporte
if ($lb_valido)
{
$rs_data = $io_report->uf_load_cabecera_formato_solicitud_cotizacion($ls_numsolcot,$ls_tipsolcot,$ls_fecsolcot,$ls_tabla,&$lb_valido);
if (!$lb_valido)
{
print("<script language=JavaScript>");
print(" alert('No hay nada que Reportar !!!');");
print(" close();");
print("</script>");
}
else
{
$li_numrows = $io_sql->num_rows($rs_data);
if ($li_numrows>0)
{
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(5,3,3,3); // Configuración de los margenes en centímetros
$io_pdf->ezStartPageNumbers(550,30,10,'','',1); // Insertar el número de página
$li_count = 0;
while (($row=$io_sql->fetch_row($rs_data)) && $lb_valido)
{
$li_count++;
if ($li_count>1)
{
$io_pdf->ezNewPage();
function uf_load_creditos_nota($as_codemp, $as_numncnd, $as_numrecdoc, $as_codtipdoc, $as_numsol, $as_codope, $as_tipproben, $as_codproben)
{
require_once "../../shared/class_folder/sigesp_include.php";
$io_include = new sigesp_include();
$io_conexion = $io_include->uf_conectar();
require_once "../../shared/class_folder/class_sql.php";
$io_sql = new class_sql($io_conexion);
require_once "../../shared/class_folder/class_mensajes.php";
$io_mensajes = new class_mensajes();
require_once "../../shared/class_folder/class_funciones.php";
$io_funciones = new class_funciones();
require_once "../../shared/class_folder/class_datastore.php";
$io_ds_cargos = new class_datastore();
$ls_sqlaux = "";
$ld_montotcre = 0;
if ($as_tipproben == 'P') {
$ls_sqlaux = " AND cxp_dc_cargos.cod_pro='" . $as_codproben . "' AND cxp_dc_cargos.ced_bene='----------'";
} elseif ($as_tipproben == 'B') {
$ls_sqlaux = " AND trim(cxp_dc_cargos.ced_bene)='" . trim($as_codproben) . "' AND cxp_dc_cargos.cod_pro='----------'";
} else {
$ls_sqlaux = " AND cxp_dc_cargos.cod_pro='----------'";
}
$ls_sql = "SELECT cxp_dc_cargos.* \n\t FROM cxp_dc_cargos, cxp_rd, cxp_solicitudes, cxp_dt_solicitudes\n\t\t\t\t WHERE cxp_dc_cargos.codemp='" . $as_codemp . "'\n\t\t\t\t AND cxp_dc_cargos.numsol='" . $as_numsol . "'\n\t\t\t\t\tAND trim(cxp_dc_cargos.numrecdoc)='" . trim($as_numrecdoc) . "'\n\t\t\t\t\tAND cxp_dc_cargos.codtipdoc='" . $as_codtipdoc . "'\n\t\t\t\t\tAND cxp_dc_cargos.codope='" . $as_codope . "'\n\t\t\t\t\tAND trim(cxp_dc_cargos.numdc)='" . trim($as_numncnd) . "' {$ls_sqlaux}\n\t\t\t\t\tAND cxp_dc_cargos.codemp=cxp_solicitudes.codemp\n\t\t\t\t\tAND cxp_dc_cargos.numsol=cxp_solicitudes.numsol\t\t\t\t\t\n\t\t\t\t\tAND cxp_solicitudes.codemp=cxp_dt_solicitudes.codemp\n\t\t\t\t\tAND cxp_solicitudes.numsol=cxp_dt_solicitudes.numsol\t\t\t\t\t\n\t\t\t\t\tAND cxp_dc_cargos.codemp=cxp_dt_solicitudes.codemp\n\t\t\t\t\tAND cxp_dc_cargos.codtipdoc=cxp_dt_solicitudes.codtipdoc\n\t\t\t\t\tAND cxp_dc_cargos.numrecdoc=cxp_dt_solicitudes.numrecdoc\n\t\t\t\t\tAND cxp_dc_cargos.cod_pro=cxp_dt_solicitudes.cod_pro\n\t\t\t\t\tAND cxp_dc_cargos.ced_bene=cxp_dt_solicitudes.ced_bene\t\t\t\t\t\n\t\t\t\t\tAND cxp_rd.codemp=cxp_dt_solicitudes.codemp\n\t\t\t\t\tAND cxp_rd.codtipdoc=cxp_dt_solicitudes.codtipdoc\n\t\t\t\t\tAND cxp_rd.numrecdoc=cxp_dt_solicitudes.numrecdoc\n\t\t\t\t\tAND cxp_rd.cod_pro=cxp_dt_solicitudes.cod_pro\n\t\t\t\t\tAND cxp_rd.ced_bene=cxp_dt_solicitudes.ced_bene";
//echo $ls_sql.'<br>';
$rs_data = $io_sql->select($ls_sql);
if ($rs_data === false) {
$this->io_mensajes->message("CLASE->Recepcion MÉTODO->uf_load_creditos_nota ERROR->" . $this->io_funciones->uf_convertirmsg($this->io_sql->message));
$rs_data = false;
} else {
$li_numrows = $io_sql->num_rows($rs_data);
if ($li_numrows > 0) {
while ($row = $io_sql->fetch_row($rs_data)) {
$ls_codcar = $row["codcar"];
$ld_monret = $row["monret"];
$ls_spgcta = trim($row["spg_cuenta"]);
$ls_estcla = $row["estcla"];
$ld_monret = $row["monret"];
$ld_monobjret = $row["monobjret"];
$ls_codestpro = $row["codestpro1"] . $row["codestpro2"] . $row["codestpro3"] . $row["codestpro4"] . $row["codestpro5"];
$io_ds_cargos->insertRow("codcar", $ls_codcar);
$io_ds_cargos->insertRow("spg_cuenta", $ls_spgcta);
$io_ds_cargos->insertRow("estcla", $ls_estcla);
$io_ds_cargos->insertRow("codestpro", $ls_codestpro);
$io_ds_cargos->insertRow("monret", number_format($ld_monret, 2, ',', '.'));
$io_ds_cargos->insertRow("monobjret", number_format($ld_monobjret, 2, ',', '.'));
$ld_montotcre += $ld_monret;
}
$_SESSION["la_crenotas"] = $io_ds_cargos->data;
}
}
unset($io_include, $io_conexion, $io_sql, $io_mensajes, $io_funciones, $io_ds_cargos);
return $ld_montotcre;
}
function uf_imprimirresultados($as_codper, $as_cedper, $as_nomper, $as_apeper, $ls_destino)
{
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";
$io_sql = new class_sql($con);
$ds = new class_datastore();
require_once "../shared/class_folder/class_funciones.php";
$fun = new class_funciones();
$ls_codemp = $_SESSION["la_empresa"]["codemp"];
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=100>Cédula</td>";
print "<td width=440>Nombre y Apellido</td>";
print "</tr>";
$ls_sql = "SELECT codper,cedper,nomper,apeper" . " FROM sno_personal" . " WHERE codemp='" . $ls_codemp . "'" . " AND codper like '" . $as_codper . "'" . " AND cedper like '" . $as_cedper . "'" . " AND nomper like '" . $as_nomper . "'" . " AND apeper like '" . $as_apeper . "'" . " ORDER BY cedper ";
$rs_per = $io_sql->select($ls_sql);
$li_num = $io_sql->num_rows($rs_per);
if ($li_num > 0) {
while ($row = $io_sql->fetch_row($rs_per)) {
print "<tr class=celdas-blancas>";
$ls_codper = $row["codper"];
$ls_cedper = $row["cedper"];
$ls_nomper = $row["nomper"];
$ls_apeper = $row["apeper"];
switch ($ls_destino) {
case "":
print "<td><a href=\"javascript: aceptar('{$ls_codper}','{$ls_cedper}','{$ls_nomper}','{$ls_apeper}');\">" . $ls_codper . "</a></td>";
print "<td>" . $ls_cedper . "</td>";
print "<td>" . $ls_nomper . " " . $ls_apeper . "</td>";
print "</tr>";
break;
case "repasignadospri":
print "<td><a href=\"javascript: ue_primariorep('{$ls_codper}','{$ls_cedper}','{$ls_nomper}','{$ls_apeper}');\">" . $ls_codper . "</a></td>";
print "<td>" . $ls_cedper . "</td>";
print "<td>" . $ls_nomper . " " . $ls_apeper . "</td>";
print "</tr>";
break;
case "repasignadosuso":
print "<td><a href=\"javascript: ue_usorep('{$ls_codper}','{$ls_cedper}','{$ls_nomper}','{$ls_apeper}');\">" . $ls_codper . "</a></td>";
print "<td>" . $ls_cedper . "</td>";
print "<td>" . $ls_nomper . " " . $ls_apeper . "</td>";
print "</tr>";
break;
case "responsableactual":
print "<td><a href=\"javascript: ue_responsableactual('{$ls_codper}','{$ls_nomper}','{$ls_apeper}');\">" . $ls_codper . "</a></td>";
print "<td>" . $ls_cedper . "</td>";
print "<td>" . $ls_nomper . " " . $ls_apeper . "</td>";
print "</tr>";
break;
case "responsablenuevo":
print "<td><a href=\"javascript: ue_responsablenuevo('{$ls_codper}','{$ls_nomper}','{$ls_apeper}');\">" . $ls_codper . "</a></td>";
print "<td>" . $ls_cedper . "</td>";
print "<td>" . $ls_nomper . " " . $ls_apeper . "</td>";
print "</tr>";
break;
case "responsable":
print "<td><a href=\"javascript: ue_responsable('{$ls_codper}','{$ls_nomper}','{$ls_apeper}');\">" . $ls_codper . "</a></td>";
print "<td>" . $ls_cedper . "</td>";
print "<td>" . $ls_nomper . " " . $ls_apeper . "</td>";
print "</tr>";
break;
case "receptor":
print "<td><a href=\"javascript: ue_receptor('{$ls_codper}','{$ls_nomper}','{$ls_apeper}');\">" . $ls_codper . "</a></td>";
print "<td>" . $ls_cedper . "</td>";
print "<td>" . $ls_nomper . " " . $ls_apeper . "</td>";
print "</tr>";
break;
case "despachador":
print "<td><a href=\"javascript: ue_despachador('{$ls_codper}','{$ls_nomper}','{$ls_apeper}');\">" . $ls_codper . "</a></td>";
print "<td>" . $ls_cedper . "</td>";
print "<td>" . $ls_nomper . " " . $ls_apeper . "</td>";
print "</tr>";
break;
case "beneficiariopres":
print "<td><a href=\"javascript: ue_beneficiariopres('{$ls_codper}','{$ls_nomper}','{$ls_apeper}');\">" . $ls_codper . "</a></td>";
print "<td>" . $ls_cedper . "</td>";
print "<td>" . $ls_nomper . " " . $ls_apeper . "</td>";
print "</tr>";
break;
}
}
}
print "</table>";
}
if ($_SESSION["ls_gestor"] == "INFORMIX") {
$ls_cadena = $ls_cadena . " like sigesp_plan_unico_re.sig_cuenta || '%' ";
}
if ($ls_codigo != "") {
$ls_cadena = $ls_cadena . " AND codestpro1='" . $ls_codestpro1 . "' AND codestpro2='" . $ls_codestpro2 . "' AND codestpro3='" . $ls_codestpro3 . "' AND codestpro4='" . $ls_codestpro4 . "' AND codestpro5='" . $ls_codestpro5 . "' AND estcla='" . $ls_estcla . "') AND sig_cuenta like '" . $ls_codigo . "%' AND denominacion like '%" . $ls_nombre . "%'";
} else {
$ls_cadena = $ls_cadena . " AND codestpro1='" . $ls_codestpro1 . "' AND codestpro2='" . $ls_codestpro2 . "' AND codestpro3='" . $ls_codestpro3 . "' AND codestpro4='" . $ls_codestpro4 . "' AND codestpro5='" . $ls_codestpro5 . "' AND estcla='" . $ls_estcla . "') AND sig_cuenta like '" . $ls_codigo_gasto . "%' AND denominacion like '%" . $ls_nombre . "%'";
}
$ls_cadena = $ls_cadena . $ls_sql2 . " ORDER BY sc_cuenta ASC";
$rs_cta = $io_sql->select($ls_cadena);
if ($rs_cta === false) {
$io_msg->message($io_funcion->uf_convertirmsg($io_sql->message));
} else {
$data = $rs_cta;
$z = 0;
$totrow = $io_sql->num_rows($rs_cta);
if ($totrow == 0) {
$io_msg->message("No existen cuentas asociadas");
} else {
if ($totrow > 0) {
while ($row = $io_sql->fetch_row($rs_cta)) {
$z++;
$cuenta = $row["sig_cuenta"];
$denominacion = $row["denominacion"];
$sc_cuenta = $row["sc_cuenta"];
$object[$z][1] = "<input name=chkcta" . $z . " type=checkbox id=chkcta" . $z . " value=1 class=sin-borde onClick=javascript:uf_selected('" . $z . "');>";
$object[$z][2] = "<input type=text name=txtcuenta" . $z . " value='" . $cuenta . "' id=txtcuenta" . $z . " class=sin-borde readonly style=text-align:center size=20 maxlength=20 ><input type=hidden name=txtcontable" . $z . " value='" . $sc_cuenta . "' id=txtcontable" . $z . " class=sin-borde readonly style=text-align:center size=20 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=150 maxlength=254>";
}
} else {
$object[1][1] = "<input name=chkcta1 type=checkbox id=chkcta1 value=1 onClick=javascript:uf_selected('" . $z . "');>";
$lb_valido=true;
$ls_cod_report="0409"; // OAF Instr 4
$_SESSION["cod_report"]=$ls_cod_report;
$ls_cod_report=$_SESSION["cod_report"];
$lb_valido=$iscg_procesos->uf_select_reporte($ls_codemp,$ai_cuantos,$ls_cod_report);
if(($lb_valido)&&($ai_cuantos<=0))
{
if ($ls_cod_report=="0409")
{
$lb_valido = $iscg_procesos->uf_cargar_origen_y_aplic_fondos_txt($ls_codemp);
if($lb_valido)
{
$msg->message("Los datos fueron cargados");
$rs_cta=$iscg_procesos->uf_select_scg_datastore( $ls_codemp, $ls_cod_report );
$SQL->num_rows($rs_cta);
///$msg->message($SQL->num_rows($rs_cta));
$data=$SQL->obtener_datos($rs_cta);
$ds_proaf->data=$data;
$li_num=$ds_proaf->getRowCount("cod_report");
for($i=1;$i<=$li_num;$i++)
{
$ls_status=$data["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")
<?
print "<table width=500 border=0 cellpadding=1 cellspacing=1 class=fondo-tabla align=center>";
print "<tr class=titulo-celda>";
print "<td>Presupuestaria</td>";
print "<td>Denominación</td>";
print "<td>Contable</td>";
print "</tr>";
if($ls_operacion=="BUSCAR")
{
$ls_sql = " SELECT soc_gastos ".
" FROM sigesp_empresa ".
" WHERE codemp = '".$as_codemp."' ";
$rs=$io_sql->select($ls_sql);
$li_numrows=$io_sql->num_rows($rs);
if ($li_numrows===false)
{
$lb_valido=false;
$this->io_msg->message($this->io_funcion->uf_convertirmsg($this->io_sql->message));
}
else
{
$ls_sql="SELECT DISTINCT trim(spg_cuenta) as spg_cuenta, denominacion,sc_cuenta,status".
" FROM spg_cuentas".
" WHERE codemp = '".$as_codemp."'".
" AND spg_cuenta like '%".$ls_codigo."%'".
" AND denominacion like '%".$ls_denominacion."%'".
" AND sc_cuenta like '%".$ls_cuentaspg."%'";
while ($row=$io_sql->fetch_row($rs))
{
