function uf_print_titulo_reporte($io_encabezado,&$io_pdf)
{
//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Function: uf_print_encabezadopagina
// Acess: private
// Arguments: as_titulo // Título del Reporte
// as_periodo_comp // Descripción del periodo del comprobante
// as_fecha_comp // Descripción del período de la fecha del comprobante
// io_pdf // Instancia de objeto pdf
// Description: función que imprime los encabezados por página
// Creado Por: Ing. Yozelin Barragán
// Fecha Creación: 26/06/2006
//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
$io_pdf->saveState();
$io_pdf->ezSetY(590);
$ls_codemp = $_SESSION["la_empresa"]["codemp"];
$ls_nombre = $_SESSION["la_empresa"]["nombre"];
$ls_nomorgads = $_SESSION["la_empresa"]["nomorgads"];
$ls_codasiona = $_SESSION['la_empresa']['codasiona'];
require_once("../../shared/class_folder/class_funciones.php");
$io_funciones = new class_funciones();
$ls_periodo = $io_funciones->uf_convertirfecmostrar(substr($_SESSION['la_empresa']['periodo'],0,10));
$la_data=array(array('name'=>'<b>CODIGO PRESUPUESTARIO DEL ENTE: </b>'.'<b>'.$ls_codasiona.'</b>'),
array('name'=>'<b>DENOMINACION: </b>'.'<b>'.$ls_nombre.'</b>'),
array('name'=>'<b>ORGANO DE ADSCRIPCION: </b>'.'<b>'.$ls_nomorgads.'</b>'),
array('name'=>'<b>PERIODO PRESUPUESTARIO: </b>'.'<b>'.$ls_periodo.'</b>'));
$la_columna=array('name'=>'','name'=>'','name'=>'','name'=>'');
$la_config =array('showHeadings'=>0, // Mostrar encabezados
'fontSize' => 8, // Tamaño de Letras
'titleFontSize' => 8, // Tamaño de Letras de los títulos
'showLines'=>0, // Mostrar Líneas
'shaded'=>0, // Sombra entre líneas
'xPos'=>465,//65
'shadeCol2'=>array(0.9,0.9,0.9), // Color de la sombra
'xOrientation'=>'center', // Orientación de la tabla
'width'=>900, // Ancho de la tabla
'maxWidth'=>900);
$io_pdf->ezTable($la_data,$la_columna,'',$la_config);
$io_pdf->restoreState();
$io_pdf->closeObject();
$io_pdf->addObject($io_encabezado,'all');
}// end function uf_print_encabezadopagina
require_once("sigesp_spg_reportes_class.php");
$io_report = new sigesp_spg_reportes_class();
}
require_once("../../shared/class_folder/sigesp_c_reconvertir_monedabsf.php");
$io_rcbsf= new sigesp_c_reconvertir_monedabsf();
$li_candeccon=$_SESSION["la_empresa"]["candeccon"];
$li_tipconmon=$_SESSION["la_empresa"]["tipconmon"];
$li_redconmon=$_SESSION["la_empresa"]["redconmon"];
//------------------------------------------------------------------------------------------------------------------------------
//-------------------------------------------------- Parámetros para Filtar el Reporte --------------------------------------
$li_estmodest=$_SESSION["la_empresa"]["estmodest"];
$ldt_fecdes = $_GET["txtfecdes"];
$ldt_fechas = $_GET["txtfechas"];
$ls_fechades=$io_function->uf_convertirfecmostrar($ldt_fecdes);
$ls_fechahas=$io_function->uf_convertirfecmostrar($ldt_fechas);
///////////////////////////////// SEGURIDAD ////////////////////////////////////////////////////////////
$ls_desc_event="Solicitud de Reporte Compromisos Causados no Pagados desde la Fecha ".$ldt_fecdes." hasta ".$ldt_fechas;
$io_function_report->uf_load_seguridad_reporte("SPG","sigesp_spg_r_compromisos_causados_no_pagados.php",$ls_desc_event);
//////////////////////////////// SEGURIDAD /////////////////////////////////////////////////////////////
//---------------------------------------------------- Parámetros del encabezado ----------------------------------------------
$ls_titulo="<b>COMPROMISOS CAUSADOS NO PAGADOS</b> ";
$ls_fecha="<b> DESDE ".$ls_fechades." HASTA LA FECHA ".$ls_fechahas." </b>";
//--------------------------------------------------------------------------------------------------------------------------------
// Cargar el dts_cab con los datos de la cabecera del reporte( Selecciono todos comprobantes )
$lb_valido=$io_report->uf_spg_reportes_compromiso_causados_no_pagados($ldt_fecdes,$ldt_fechas);
if($lb_valido==false) // Existe algún error ó no hay registros
{
// Configuración de los margenes en centímetros
$io_pdf->ezStartPageNumbers(940, 50, 10, '', '', 1);
// Insertar el número de página
uf_print_encabezado_pagina($ls_titulo, "", $ld_fecha, $io_pdf);
// Imprimimos el encabezado de la página
$li_totrow = $io_report->ds->getRowCount("cmpmov");
$i = 0;
for ($li_i = 1; $li_i <= $li_totrow; $li_i++) {
$io_pdf->transaction('start');
// Iniciamos la transacción
$li_numpag = $io_pdf->ezPageCount;
// Número de página
$ls_cmpmov = $io_report->ds->data["cmpmov"][$li_i];
$ls_coduniadm = $io_report->ds->data["coduniadm"][$li_i];
$ld_feccmp = $io_report->ds->data["feccmp"][$li_i];
$ld_feccmp = $io_funciones->uf_convertirfecmostrar($ld_feccmp);
$lb_valido = $io_report->uf_saf_load_dt_relbiemuefal($ls_codemp, $ls_coduniadm, $ls_cmpmov, $ld_desde, $ld_hasta, $ls_coddesde, $ls_codhasta, $ls_grupo, $ls_subgrupo, $ls_seccion, $li_orden);
// Obtenemos el detalle del reporte
if ($lb_valido) {
$li_totrow_det = $io_report->ds_detalle->getRowCount("ideact");
$la_data = "";
for ($li_s = 1; $li_s <= $li_totrow_det; $li_s++) {
$ls_grupo = $io_report->ds_detalle->data["grupo"][$li_s];
$ls_subgrupo = $io_report->ds_detalle->data["subgrupo"][$li_s];
$ls_seccion = $io_report->ds_detalle->data["seccion"][$li_s];
$ls_ideact = $io_report->ds_detalle->data["ideact"][$li_s];
$ls_denact = $io_report->ds_detalle->data["denact"][$li_s];
$ls_marca = $io_report->ds_detalle->data["marca"][$li_s];
$ls_modelo = $io_report->ds_detalle->data["modelo"][$li_s];
$ls_cantidad = $io_report->ds_detalle->data["cantidad"][$li_s];
$ls_costo = $io_report->ds_detalle->data["costo"][$li_s];
$ls_codcar1=$row["codasicar"];
$ls_codcar2=$row["codcar"];
if ($ls_codcar1=="")
{
$ls_cargo=$row["codcar"];
$ls_descar=trim ($row["descar"]);
}
else
{
$ls_cargo=$row["codasicar"];
$ls_descar=trim ($row["denasicar"]);
}
$ls_cantcar=$row["cantcar"];
$ls_estatus=$row["estatus"];
$ls_fecaper=$io_funciones->uf_formatovalidofecha($ls_fecaper);
$ls_fecaper=$io_funciones->uf_convertirfecmostrar($ls_fecaper);
$ls_feccie=$io_funciones->uf_formatovalidofecha($ls_feccie);
$ls_feccie=$io_funciones->uf_convertirfecmostrar($ls_feccie);
$ls_tipo=strtoupper($row["tipo"]);
}
$ls_auxcodigo=$ls_codigo;
$rs_datcon->MoveNext();
}
uf_print_datos_concurso($ls_auxcodigo,$ls_descrip,$ls_cargo,$ls_descar,$ls_fecaper,$ls_feccie,
$ls_cantcar,$ls_tipo,$ls_estatus,$io_pdf);
uf_print_datos_concursantes($la_data,$io_pdf);
unset($la_data);
$li_total=$li_conact+$li_conexc;
" WHERE a.procede=b.procede AND a.tipo_comp=2 AND a.comprobante=b.comprobante AND a.fecha=b.fecha AND ".
" a.codemp=b.codemp AND a.codemp='".$as_codemp."' AND a.comprobante like '%".$ls_comprobante."%' AND ".
" a.procede like '%".$ls_procedencia."%' AND a.fecha>='".$ls_fecdesde."' AND a.fecha<='".$ls_fechasta."' ".$ls_sql_seguridad.
" ORDER BY a.fecha, a.comprobante, a.procede ";
}
$rs_data=$io_sql->select($ls_sql);
$data=$rs_data;
if (!empty($data))
{
while($row=$io_sql->fetch_row($rs_data))
{
$ls_comprobante=$row["comprobante"];
$ls_descripcion=utf8_encode($row["descripcion"]);
$ls_procedencia=$row["procede"];
$ls_fecha=date("Y-m-d",strtotime($row["fecha"]));
$ldt_fecha=$io_funciones->uf_convertirfecmostrar($ls_fecha);
$ldec_monto=number_format($row["total"],2,",",".");
if($ls_destino!="")
{
print "<tr class=celdas-blancas>";
print "<td><a href=\"javascript:uf_aceptar_tras('$ls_destino','$ls_comprobante');\">".$ls_comprobante."</a></td>";
print "<td>".$ls_descripcion."</td>";
print "<td>".$ls_procedencia."</td>";
print "<td>".$ldt_fecha."</td>";
print "</tr>";
}
if(($ls_tipocat=="")&&($ls_destino==""))
{
print "<tr class=celdas-blancas>";
$ls_nombene=$io_report->ds_analitico->getValue("apebene",$i).", ".$io_report->ds_analitico->getValue("nombene",$i);
$ls_nombre="";
if($ls_codpro!="----------")
{
$ls_nombre=$ls_nompro;
}
if($ls_cedbene!="----------")
{
$ls_nombre=$ls_nombene;
}
$ls_documento=$io_report->ds_analitico->getValue("documento",$i);
$ls_procede=$io_report->ds_analitico->getValue("procede",$i);
$ls_concepto=$io_report->ds_analitico->getValue("descripcion",$i);
$ldec_monto=$io_report->ds_analitico->getValue("monto",$i);
$fecmov=$io_report->ds_analitico->getValue("fecha",$i);
$ld_fecmov=$io_funciones->uf_convertirfecmostrar($fecmov);
$ls_debhab=$io_report->ds_analitico->getValue("debhab",$i);
$ld_saldo_ant=$io_report->ds_analitico->getValue("saldo_ant",$i);
if($ls_debhab=='D')
{
$ldec_mondeb=$ldec_monto;
$ldec_monhab=0;
$ld_totaldebe=$ld_totaldebe+$ldec_mondeb;
}
elseif($ls_debhab=='H')
{
$ldec_monhab=$ldec_monto;
$ldec_mondeb=0;
$ld_totalhaber=$ld_totalhaber+$ldec_monhab;
// 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
for ($z = 1; $z <= $li_total; $z++) {
$ls_codpro = $data["cod_pro"][$z];
$ls_nompro = $data["nompro"][$z];
$ls_dirpro = $data["dirpro"][$z];
$ls_rifpro = $data["rifpro"][$z];
$ls_telpro = $data["telpro"][$z];
$ls_nomrep = $data["nomreppro"][$z];
$ld_capital = $data["capital"][$z];
$ls_cuenta = $data["sc_cuenta"][$z];
$ls_fecreg = $data["fecvenrnc"][$z];
$ls_fecreg = $io_funcion->uf_convertirfecmostrar($ls_fecreg);
$ls_fecregpro = $data["fecreg"][$z];
$ls_fecregpro = $io_funcion->uf_convertirfecmostrar($ls_fecregpro);
$ls_fecregrnc = $data["fecvenrnc"][$z];
$ls_fecregrnc = $io_funcion->uf_convertirfecmostrar($ls_fecregrnc);
$ls_constancia = "LA UNIDAD DE REGISTRO Y CONTROL DE CONTRATISTAS DE LA SECRETARIA DE INFRAESTRUCTURA Y SERVICIO DEL ESTADO LARA, HACE CONSTAR QUE LA EMPRESA:";
$io_pdf->addText(265, 685, 14, $ls_codpro);
// Agregar el título
//uf_print_constancia($ls_constancia,$io_pdf);
//$io_pdf->addText(40,650,16,'<b>'.$ls_nompro.'</b>');
$io_pdf->addText(40, 640, 10, '<b>' . "FECHA DE REGISTRO MERCANTIL:" . '</b>');
$io_pdf->addText(220, 640, 10, $ls_fecregpro);
//$io_pdf->addText(250,640,10,'<b>'."VENCE:".'</b>');
//$io_pdf->addText(320,640,10,$ls_fecregrnc);
$io_pdf->addText(40, 570, 10, '<b>' . "EMPRESA:" . '</b>');
$io_pdf->addText(170, 570, 12, $ls_nompro);
$ls_denuniadm=$io_report->DS->data["denuniadm"][$li_i];
$ls_denfuefin=$io_report->DS->data["denfuefin"][$li_i];
$ls_codpro=$io_report->DS->data["cod_pro"][$li_i];
$ls_cedbene=$io_report->DS->data["ced_bene"][$li_i];
$ls_nombre=$io_report->DS->data["nombre"][$li_i];
$ld_fecregsol=$io_report->DS->data["fecregsol"][$li_i];
$ls_consol=$io_report->DS->data["consol"][$li_i];
$li_monto=$io_report->DS->data["monto"][$li_i];
$li_monbasimptot=$io_report->DS->data["monbasinm"][$li_i];
$li_montotcar=$io_report->DS->data["montotcar"][$li_i];
$numalet->setNumero($li_monto);
$ls_monto= $numalet->letra();
$li_monto=number_format($li_monto,2,",",".");
$li_monbasimptot=number_format($li_monbasimptot,2,",",".");
$li_montotcar=number_format($li_montotcar,2,",",".");
$ld_fecregsol=$io_funciones->uf_convertirfecmostrar($ld_fecregsol);
if($ls_codpro!="----------")
{
$ls_codigo=$ls_codpro;
}
else
{
$ls_codigo=$ls_cedbene;
}
uf_print_encabezado_pagina($ls_titulo,$ls_numsol,$ld_fecregsol,&$io_pdf);
uf_print_cabecera($ls_numsol,$ls_dentipsol,$ls_denuniadm,$ls_denfuefin,$ls_codigo,$ls_nombre,$ls_consol,&$io_pdf);
$io_report->ds_detalle->reset_ds();
$lb_valido=$io_report->uf_select_dt_solicitud($ls_numsol); // Cargar el DS con los datos del reporte
if($lb_valido)
{
$li_totrowdet=$io_report->ds_detalle->getRowCount("codigo");
function uf_print_retencioniva()
{
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Function: uf_print_retencionesiva
// Access: private
// Arguments:
// Description: Función que obtiene e imprime los resultados de la busqueda de retenciones de iva
// Creado Por: Ing. Yesenia Moreno/ Ing. Luis Lang
// Fecha Creación: 12/07/2007 Fecha Última Modificación :
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
global $io_grid;
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();
$ls_codemp=$_SESSION["la_empresa"]["codemp"];
$ls_tipproben=$_POST['tipproben'];
$ld_fecdes=$_POST['fecdes'];
$ld_fechas=$_POST['fechas'];
$ls_mes=$_POST['mes'];
$ls_anio=$_POST['anio'];
$ls_tipo=$_POST['tipo'];
$ls_numsol=$_POST['numsol'];
$ls_codprobendes=$_POST['codprobendes'];
$ls_codprobenhas=$_POST['codprobenhas'];
$ld_fecdes=$io_funciones->uf_convertirdatetobd($ld_fecdes);
$ld_fechas=$io_funciones->uf_convertirdatetobd($ld_fechas);
$ls_cedbendes="";
$ls_cedbenhas="";
$ls_codprodes="";
$ls_codprohas="";
$ls_criterio="";
$ls_criterio2="";
switch($ls_tipproben)
{
case "P":
$ls_codprodes=$ls_codprobendes;
$ls_codprohas=$ls_codprobenhas;
break;
case "B":
$ls_cedbendes=$ls_codprobendes;
$ls_cedbenhas=$ls_codprobenhas;
break;
}
if($ld_fecdes!="")
{
$ls_criterio=$ls_criterio." AND scb_cmp_ret.fecrep >= '".$ld_fecdes."'";
}
if($ld_fechas!="")
{
$ls_criterio=$ls_criterio." AND scb_cmp_ret.fecrep <= '".$ld_fechas."'";
}
if($ls_codprobendes!="")
{
$ls_criterio=$ls_criterio." AND scb_cmp_ret.codsujret >= '".$ls_codprobendes."'";
}
if($ls_codprobendes!="")
{
$ls_criterio=$ls_criterio." AND scb_cmp_ret.codsujret <= '".$ls_codprobendes."'";
}
/* if($ls_cedbendes!="")
{
$ls_criterio=$ls_criterio." AND sob_solicitudes.ced_bene >= '".$ls_cedbendes."'";
}
if($ls_cedbenhas!="")
{
$ls_criterio=$ls_criterio." AND sob_solicitudes.ced_bene <= '".$ls_cedbenhas."'";
}*/
$ls_periodofiscal = $ls_anio.$ls_mes;
$ls_where="";
if($ls_numsol!="")
{
$ls_where=" AND scb_dt_cmp_ret.numsop='".$ls_numsol."'";
}
$ls_sql="SELECT DISTINCT scb_cmp_ret.numcom, scb_cmp_ret.fecrep, scb_cmp_ret.perfiscal,scb_cmp_ret.codsujret,".
" scb_cmp_ret.nomsujret, scb_cmp_ret.dirsujret, scb_cmp_ret.rif,scb_dt_cmp_ret.codret,scb_cmp_ret.estcmpret ".
" FROM scb_cmp_ret, scb_dt_cmp_ret ".
" WHERE scb_cmp_ret.codemp = '".$ls_codemp."' ".
" AND scb_cmp_ret.codret = '".$ls_tipo."' ".
" AND scb_cmp_ret.perfiscal = '".$ls_periodofiscal."' ".
$ls_where.
" AND scb_cmp_ret.codemp = scb_dt_cmp_ret.codemp ".
" AND scb_cmp_ret.codret = scb_dt_cmp_ret.codret ".
" AND scb_cmp_ret.numcom = scb_dt_cmp_ret.numcom ".
// " AND scb_dt_cmp_ret.numsop = sob_solicitudes.numsol ".
$ls_criterio.
" ORDER BY scb_cmp_ret.numcom ";
$rs_data=$io_sql->select($ls_sql);
if($rs_data===false)
{
$io_mensajes->uf_mensajes_ajax("Error al cargar Retenciones IVA ","ERROR->".$io_funciones->uf_convertirmsg($io_sql->message),false,"");
}
else
{
print "<table width=600 border=0 cellpadding=1 cellspacing=1 class=fondo-tabla align=center>";
print "<tr class=titulo-celda>";
print "<td style=text-align:center width=100>Codigo</td>";
print "<td style=text-align:center width=50>Fecha</td>";
print "<td style=text-align:center width=450>Nombre</td>";
print "</tr>";
while($row=$io_sql->fetch_row($rs_data))
{
$ls_numcom=$row["numcom"];
$ls_perfiscal=$row["perfiscal"];
$ls_anofiscal=substr($ls_perfiscal,0,4);
$ls_mesfiscal=substr($ls_perfiscal,4,6);
$ls_codsujret=$row["codsujret"];
$ls_nomsujret=$row["nomsujret"];
$ls_dirsujret=$row["dirsujret"];
$ls_rifsujret=$row["rif"];
$ls_codret=$row["codret"];
$ld_fecrep=$io_funciones->uf_convertirfecmostrar($row["fecrep"]);
$ls_estcmpret=$row["estcmpret"];
print "<tr class=celdas-blancas>";
print "<td style=text-align:center width=100><a href=\"javascript:ue_aceptar('$ls_numcom','$ls_anofiscal','$ls_mesfiscal','$ls_codsujret','$ls_nomsujret','$ls_dirsujret','$ls_rifsujret','$ls_codret','$ls_estcmpret');\">".$ls_numcom."</a></td>";
print "<td style=text-align:center width=50>".$ld_fecrep."</td>";
print "<td style=text-align:left width=450>".$ls_nomsujret."</td>";
print "</tr>";
}
$io_sql->free_result($rs_data);
}
unset($io_include);
unset($io_conexion);
unset($io_sql);
unset($io_mensajes);
unset($io_funciones);
unset($ls_codemp);
}// end function uf_print_retencionesiva
if ($lb_valido == false) {
print "<script language=JavaScript>";
print " alert('No hay nada que Reportar');";
print " close();";
print "</script>";
} else {
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(3.5, 3, 3, 3);
// Configuración de los margenes en centímetros
$ld_fecha = $io_report->ds->data["feccmp"][1];
$ld_fechaaux = $io_funciones->uf_convertirfecmostrar($ld_fecha);
uf_print_encabezado_pagina($ls_titulo, $ls_cmpmov, $ld_fechaaux, $io_pdf);
// Imprimimos el encabezado de la página
$li_totrow = $io_report->ds->getRowCount("cmpmov");
for ($li_i = 1; $li_i <= $li_totrow; $li_i++) {
$io_pdf->transaction('start');
// Iniciamos la transacción
$li_numpag = $io_pdf->ezPageCount;
// Número de página
$li_totprenom = 0;
$li_totant = 0;
$ls_codcau = $io_report->ds->data["codcau"][$li_i];
$ls_dencau = $io_report->ds->data["dencau"][$li_i];
$ls_descmp = $io_report->ds->data["descmp"][$li_i];
uf_print_cabecera($ls_codemp, $ls_nomemp, $ls_codcau, $ls_dencau, $ls_descmp, $io_pdf);
// Imprimimos la cabecera del registro
$ls_codact = uf_obtenervalor("txtcodact", "");
$ls_ideact = uf_obtenervalor("txtideact", "");
$ls_denact = uf_obtenervalor("txtdenact", "");
$ls_seract = uf_obtenervalor("txtseract", "");
$ls_codmet = uf_obtenervalor("cmbmetodos", "");
$li_cosact = 0;
$li_cossal = 0;
$li_vidautil = 0;
$li_totrows = uf_obtenervalor("totalfilas", 1);
$ld_date = date("Y-m-d");
$lb_valido = $io_fec->uf_valida_fecha_mes($ls_codemp, $ld_date);
if ($lb_valido) {
$lb_depreciable = $io_saf->uf_saf_select_statusdepreciacion($ls_codemp, $ls_codact);
if ($lb_depreciable) {
$lb_valido = $io_saf->uf_saf_load_activo($ls_codemp, $ls_codact, $li_cosact, $li_cossal, $li_vidautil, $ld_feccmpact);
$ld_feccmpact = $io_fun->uf_convertirfecmostrar($ld_feccmpact);
if ($lb_valido && $li_cossal != "" && $li_vidautil != 0) {
$lb_valido = $io_saf->uf_saf_load_incorporacion($ls_codemp, $ls_codact, $ls_ideact, $ld_fecinc);
if ($lb_valido) {
$ld_fecincact = $io_fun->uf_convertirfecmostrar($ld_fecinc);
$li_viduti = $li_vidautil * 12;
$li_mondep = $li_cosact - $li_cossal;
$li_depmen = $li_mondep / $li_viduti;
$li_depanu = round($li_depmen * 12, 2);
$ls_annioinc = substr($ld_fecinc, 0, 4);
$ls_mesinc = substr($ld_fecinc, 5, 2);
$ls_diainc = substr($ld_fecinc, 8, 2);
$ls_mesf = $ls_mesinc;
$ls_mest = 0;
$ls_dia = 0;
$li_depacum = 0;
function uf_load_dt_cmpret($as_numcom)
{
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Function: uf_print_creditos
// Access: private
// Arguments: as_numsol // Número de Solicitud
// ai_total // Total de la Solicitud
// Description: Método que busca las recepciones de documento asociadas y las imprime
// Creado Por: Ing. Yesenia Moreno/ Ing. Luis Lang
// Fecha Creación: 29/04/2007 Fecha Última Modificación :
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
global $io_grid;
// Titulos del Grid
$lo_title[1] = utf8_encode("Nro. Operacion");
$lo_title[2] = "Factura";
$lo_title[3] = "Nro. Control";
$lo_title[4] = "Fecha";
$lo_title[5] = "Total con IVA";
$lo_title[6] = "Total sin IVA";
$lo_title[7] = "Base Imponible";
$lo_title[8] = "Porcentaje Impuesto";
$lo_title[9] = "Total Impuesto";
$lo_title[10] = "Iva Retenido";
$lo_title[11] = "Nro. Documento";
$lo_title[12] = "Nro. Cheque";
$lo_title[13] = "Editar";
$lo_object[0] = "";
require_once "../../shared/class_folder/class_funciones.php";
$io_funciones = new class_funciones();
require_once "sigesp_scb_c_modcmpret.php";
$io_modcmpret = new sigesp_scb_c_modcmpret("../../");
$rs_data = $io_modcmpret->uf_load_dt_cmpret($as_numcom);
$li_fila = 0;
while ($row = $io_modcmpret->io_sql->fetch_row($rs_data)) {
$li_fila++;
$ls_numope = trim($row["numope"]);
$ls_numfac = trim($row["numfac"]);
$ls_numcon = trim($row["numcon"]);
$ls_fecfac = $io_funciones->uf_convertirfecmostrar($row["fecfac"]);
$ls_totcmp_sin_iva = number_format($row["totcmp_sin_iva"], 2, ",", ".");
$ls_totcmp_con_iva = number_format($row["totcmp_con_iva"], 2, ",", ".");
$ls_basimp = number_format($row["basimp"], 2, ",", ".");
$ls_porimp = number_format($row["porimp"], 2, ",", ".");
$ls_totimp = number_format($row["totimp"], 2, ",", ".");
$ls_ivaret = number_format($row["iva_ret"], 2, ",", ".");
$ls_porret = $row["porimp"];
$ls_numdoc = trim($row["numdoc"]);
$ls_codret = trim($row["codret"]);
$ls_numsop = trim($row["numsop"]);
$ls_numnd = trim($row["numnd"]);
$ls_numnc = trim($row["numnc"]);
$ls_tiptrans = trim($row["tiptrans"]);
$lo_object[$li_fila][1] = "<input name=txtnumope" . $li_fila . " type=text id=txtnumope" . $li_fila . " class=sin-borde style=text-align:center size=10 value='" . $ls_numope . "' readonly>" . "<input name=txtcodret" . $li_fila . " type=hidden id=txtcodret" . $li_fila . " value='" . $ls_codret . "'>";
$lo_object[$li_fila][2] = "<input name=txtnumfac" . $li_fila . " type=text id=txtnumfac" . $li_fila . " class=sin-borde style=text-align:center size=10 value='" . $ls_numfac . "' readonly>";
$lo_object[$li_fila][3] = "<input name=txtnumcon" . $li_fila . " type=text id=txtnumcon" . $li_fila . " class=sin-borde style=text-align:right size=10 value='" . $ls_numcon . "' readonly>";
$lo_object[$li_fila][4] = "<input name=txtfecfac" . $li_fila . " type=text id=txtfecfac" . $li_fila . " class=sin-borde style=text-align:right size=10 value='" . $ls_fecfac . "' readonly>";
$lo_object[$li_fila][5] = "<input name=txttotconiva" . $li_fila . " type=text id=txttotconiva" . $li_fila . " class=sin-borde style=text-align:right size=12 value='" . $ls_totcmp_con_iva . "' onKeyPress=return(ue_formatonumero(this,'.',',',event)); >";
$lo_object[$li_fila][6] = "<input name=txttotsiniva" . $li_fila . " type=text id=txttotsiniva" . $li_fila . " class=sin-borde style=text-align:right size=12 value='" . $ls_totcmp_sin_iva . "' onKeyPress=return(ue_formatonumero(this,'.',',',event)); >";
$lo_object[$li_fila][7] = "<input name=txtbasimp" . $li_fila . " type=text id=txtbasimp" . $li_fila . " class=sin-borde style=text-align:right size=12 value='" . $ls_basimp . "' onKeyPress=return(ue_formatonumero(this,'.',',',event)); >";
$lo_object[$li_fila][8] = "<input name=txtporimp" . $li_fila . " type=text id=txtporimp" . $li_fila . " class=sin-borde style=text-align:right size=10 value='" . $ls_porimp . "' readonly; ><a href=javascript:uf_load_otros_creditos(" . $li_fila . ");><img src=../shared/imagebank/tools15/buscar.gif alt='Buscar Otros Créditos !!!' width=15 height=15 border=0></a>";
$lo_object[$li_fila][9] = "<input name=txttotimp" . $li_fila . " type=text id=txttotimp" . $li_fila . " class=sin-borde style=text-align:right size=12 value='" . $ls_totimp . "' onKeyPress=return(ue_formatonumero(this,'.',',',event)); >";
$lo_object[$li_fila][10] = "<input name=txtivaret" . $li_fila . " type=text id=txtivaret" . $li_fila . " class=sin-borde style=text-align:right size=12 value='" . $ls_ivaret . "' onKeyPress=return(ue_formatonumero(this,'.',',',event)); ><a href=javascript:uf_load_retenciones(" . $li_fila . ");><img src=../shared/imagebank/tools15/buscar.gif alt='Buscar Retenciones !!!' width=15 height=15 border=0></a>\n\t\t\t <input name=txtporret" . $li_fila . " type=hidden id=txtporret" . $li_fila . " class=sin-borde style=text-align:right size=12 value='" . $ls_porret . "' readonly>";
$lo_object[$li_fila][11] = "<input name=txtnumdoc" . $li_fila . " type=text id=txtnumdoc" . $li_fila . " class=sin-borde style=text-align:right size=12 value='" . $ls_numdoc . "' readonly>" . "<input name=txtnumnd" . $li_fila . " type=hidden id=txtnumnd" . $li_fila . " value='" . $ls_numnd . "'>" . "<input name=txtnumnc" . $li_fila . " type=hidden id=txtnumnc" . $li_fila . " value='" . $ls_numnc . "'>" . "<input name=txttiptrans" . $li_fila . " type=hidden id=txttiptrans" . $li_fila . " value='" . $ls_tiptrans . "'>";
$lo_object[$li_fila][12] = "<input name=txtnumsop" . $li_fila . " type=text id=txtnumsop" . $li_fila . " class=sin-borde value='" . $ls_numsop . "' size=13 readonly size=15>";
$lo_object[$li_fila][13] = "<a href=javascript:ue_delete_detalle('" . $li_fila . "');><img src=../shared/imagebank/tools15/eliminar.gif title=Eliminar width=15 height=10 border=0></a>";
}
$li_fila++;
$lo_object[$li_fila][1] = "<input name=txtnumope" . $li_fila . " type=text id=txtnumope" . $li_fila . " class=sin-borde style=text-align:center size=10 readonly>" . "<input name=txtcodret" . $li_fila . " type=hidden id=txtcodret" . $li_fila . ">" . "<input name=txtnumsop" . $li_fila . " type=hidden id=txtnumsop" . $li_fila . " >";
$lo_object[$li_fila][2] = "<input name=txtnumfac" . $li_fila . " type=text id=txtnumfac" . $li_fila . " class=sin-borde style=text-align:center size=10 readonly>";
$lo_object[$li_fila][3] = "<input name=txtnumcon" . $li_fila . " type=text id=txtnumcon" . $li_fila . " class=sin-borde style=text-align:right size=10 readonly>";
$lo_object[$li_fila][4] = "<input name=txtfecfac" . $li_fila . " type=text id=txtfecfac" . $li_fila . " class=sin-borde style=text-align:right size=10 readonly>";
$lo_object[$li_fila][5] = "<input name=txttotconiva" . $li_fila . " type=text id=txttotconiva" . $li_fila . " class=sin-borde style=text-align:right size=12 readonly>";
$lo_object[$li_fila][6] = "<input name=txttotsiniva" . $li_fila . " type=text id=txttotsiniva" . $li_fila . " class=sin-borde style=text-align:right size=12 readonly>";
$lo_object[$li_fila][7] = "<input name=txtbasimp" . $li_fila . " type=text id=txtbasimp" . $li_fila . " class=sin-borde style=text-align:right size=12 readonly>";
$lo_object[$li_fila][8] = "<input name=txtporimp" . $li_fila . " type=text id=txtporimp" . $li_fila . " class=sin-borde style=text-align:right size=10 readonly value=''>";
$lo_object[$li_fila][9] = "<input name=txttotimp" . $li_fila . " type=text id=txttotimp" . $li_fila . " class=sin-borde style=text-align:right size=12 readonly>";
$lo_object[$li_fila][10] = "<input name=txtivaret" . $li_fila . " type=text id=txtivaret" . $li_fila . " class=sin-borde style=text-align:right size=12 readonly>\n\t\t <input name=txtporret" . $li_fila . " type=hidden id=txtporret" . $li_fila . " class=sin-borde style=text-align:right size=12 value='" . $ls_porret . "' readonly>";
$lo_object[$li_fila][11] = "<input name=txtnumdoc" . $li_fila . " type=text id=txtnumdoc" . $li_fila . " class=sin-borde style=text-align:right size=12 readonly>" . "<input name=txtnumnd" . $li_fila . " type=hidden id=txtnumnd" . $li_fila . " >" . "<input name=txtnumnc" . $li_fila . " type=hidden id=txtnumnc" . $li_fila . " >" . "<input name=txttiptrans" . $li_fila . " type=hidden id=txttiptrans" . $li_fila . " >";
$lo_object[$li_fila][12] = "<input name=txtnumsop" . $li_fila . " type=text id=txtnumsop" . $li_fila . " class=sin-borde readonly size=15>";
$lo_object[$li_fila][13] = "<a><img src=../shared/imagebank/tools15/eliminar.gif title=Eliminar width=15 height=10 border=0></a>";
unset($io_modcmpret);
print " <tr>";
print " \t <td height='20' align='left' class='formato-blanco'><a href='javascript:ue_insert_row();'><img src='../shared/imagebank/tools/nuevo.gif' title='Agregar Detalle' width='20' height='20' border='0'>Agregar Detalle</a></td>";
print " </tr>";
print "<br>";
$io_grid->makegrid($li_fila, $lo_title, $lo_object, 720, "Detalle Comprobante", "gridrecepciones");
}
$io_msg->message("La Asignacion asociada debe estar contabilizada");
}
}
/*******************************************BUSCAR DATOS DE CONTRATO*********************************************************************/
elseif($ls_operacion=="ue_datcontrato")
{
$ls_codcon=$_POST["txtcodcon"];
$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_codfuefin=$row["codfuefin"];
$ls_denfuefin=$row["denfuefin"];
$ls_diaplacom=$row["diaplacom"];
$ls_forpagcom=$row["forpagcom"];
$ls_codpro=$row["cod_pro"];
$ls_nompro=$row["nompro"];
$ls_rifpro=$row["rifpro"];
$ls_dirpro=$row["dirpro"];
$ld_fecordcom=$row["fecordcom"];
$ls_obscom=$row["obscom"];
$ld_monsubtot=$row["monsubtot"];
$ld_monimp=$row["monimp"];
$ld_montot=$row["montot"];
$ld_perentdesde=$row["fechentdesde"];
$ld_perenthasta=$row["fechenthasta"];
$ld_perentdesde=$io_funciones->uf_convertirfecmostrar($ld_perentdesde);
$ld_perenthasta=$io_funciones->uf_convertirfecmostrar($ld_perenthasta);
if($ls_tiporeporte==0)
{
$ld_montotaux=$row["montotaux"];
$ld_montotaux=number_format($ld_montotaux,2,",",".");
}
$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_codfuefin,$ls_denfuefin,$ls_codpro,$ls_nompro,$ls_obscom,$ls_rifpro,
$io_pdf->ezSetCmMargins(4,5,3,3); // Configuración de los margenes en centímetros
$io_pdf->ezStartPageNumbers(720,47,8,'','',1); // Insertar el número de página
uf_print_encabezado_pagina($ls_titulo,&$io_pdf);
$li_totrow=$io_report->det_ascenso->getRowCount("nroreg");
for($lp_i=1;$lp_i<=$li_totrow;$lp_i++)
{
$ls_codper=$io_report->det_ascenso->data["codper"][$lp_i];
$ls_cedula=$io_report->det_ascenso->data["cedper"][$lp_i];
$ls_cedula=number_format($ls_cedula,0,",",".");
$ls_nombre=$io_report->det_ascenso->data["nomper"][$lp_i];
$ls_apellido=$io_report->det_ascenso->data["apeper"][$lp_i];
$ls_ascenso=$io_report->det_ascenso->data["nroreg"][$lp_i];
$ls_fecha_asc=$io_report->det_ascenso->data["fecreg"][$lp_i];
$ls_fecha_asc=$io_funciones->uf_convertirfecmostrar($ls_fecha_asc);
$ls_puntaje=$io_report->det_ascenso->data["reseval"][$lp_i];
$ls_caract1=$io_report->det_ascenso->data["caract1"][$lp_i];
$ls_caract2=$io_report->det_ascenso->data["caract2"][$lp_i];
if ($ls_caract2=="")
{
$ls_caract=$ls_caract1;
}
else
{
$ls_caract=$ls_caract2;
}
$ld_monsubtot=$row["monsubtot"];
$ld_monimp=$row["monimp"];
$ld_montot=$row["montot"];
$ls_lugentdir=$row["lugentdir"];
$ls_estlugcom=$row["estlugcom"];
if($ls_tiporeporte==0)
{
$ld_montotaux=$row["montotaux"];
$ld_montotaux=number_format($ld_montotaux,2,",",".");
}
$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;
if (!empty($fecdes))
{
$ldt_fecdes=$io_funciones->uf_convertirdatetobd($fecdes);
} else { $ldt_fecdes=""; }
$fechas=$_GET["txtfechas"];
if (!empty($fechas))
{
$ldt_fechas=$io_funciones->uf_convertirdatetobd($fechas);
} else { $ldt_fechas=""; }
$ls_orden=$_GET["rborden"];
//---------------------------------------------------- Parámetros del encabezado -----------------------------------------------
$ldt_periodo=$_SESSION["la_empresa"]["periodo"];
$li_ano=substr($ldt_periodo,0,4);
$ldt_fecdes_cab=$io_funciones->uf_convertirfecmostrar(substr($ldt_fecdes,0,10));
$ldt_fechas_cab=$io_funciones->uf_convertirfecmostrar(substr($ldt_fechas,0,10));
$ls_titulo="<b>COMPROBANTE PRESUPUESTARIO</b> ";
$ls_periodo_comp="<b>Comprobantes desde la Cuenta Nro. ".$ls_cuentades." al ".$ls_cuentahas."</b>";
$ls_fecha_comp="<b>Desde ".$ldt_fecdes_cab." al ".$ldt_fechas_cab."</b>";
//--------------------------------------------------------------------------------------------------------------------------------
// Cargar el dts_cab con los datos de la cabecera del reporte( Selecciono todos comprobantes )
$lb_valido=$io_report->uf_spg_reporte_select_comprobante_formato2($ls_cuentades,$ls_cuentahas,$ldt_fecdes,$ldt_fechas);
if($lb_valido==false) // Existe algún error ó no hay registros
{
print("<script language=JavaScript>");
print(" alert('No hay nada que Reportar');");
print(" close();");
print("</script>");
}
else // Imprimimos el reporte
{
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.25,2.5,3,3); // Configuración de los margenes en centímetros
uf_print_encabezado_pagina($ls_titulo,$ls_titulo2,$io_pdf); // Imprimimos el encabezado de la página
$io_pdf->ezStartPageNumbers(550,50,10,'','',1); // Insertar el número de página
$li_totrow=$io_report->DS->getRowCount("codper");
uf_print_cabecera($io_pdf);
for($li_i=1;$li_i<=$li_totrow;$li_i++)
{
$ls_cedper=$io_report->DS->data["cedper"][$li_i];
$ls_nomper=$io_report->DS->data["apeper"][$li_i].", ".$io_report->DS->data["nomper"][$li_i];
$ld_fecnacper=$io_funciones->uf_convertirfecmostrar($io_report->DS->data["fecnacper"][$li_i]);
$ld_fecingper=$io_funciones->uf_convertirfecmostrar($io_report->DS->data["fecingper"][$li_i]);
$li_sueldo=$io_report->DS->data["sueldo"][$li_i];
$li_total=$io_report->DS->data["total"][$li_i];
$li_sueldo_sem=0;
if($li_total>0)
{
$li_sueldo_sem=($li_sueldo/$li_total);
$li_sueldo_sem=(($li_sueldo_sem*12)/52);
}
$li_sueldo_sem=$io_fun_nomina->uf_formatonumerico($li_sueldo_sem);
$la_data[$li_i]=array('nro'=>$li_i,'cedula'=>$ls_cedper,'nombre'=>$ls_nomper,'fechanacimiento'=>$ld_fecnacper,'fechaingreso'=>$ld_fecingper,'sueldo'=>$li_sueldo_sem);
}
$io_report->DS->resetds("codper");
uf_print_detalle($la_data,$io_pdf); // Imprimimos el detalle
unset($la_data);
while (($row=$io_sql->fetch_row($rs_data)) && $lb_valido)
{
$li_count++;
if ($li_count>1)
{
$io_pdf->ezNewPage();
}
$ls_codpro = $row["cod_pro"];
$ls_nompro = $row["nompro"];
$ls_dirpro = $row["dirpro"];
$ls_telpro = $row["telpro"];
$ls_obssolcot = $row["obssol"];
$ls_fecsolcot = $row["fecsol"];
$ls_mailpro = $row["email"];
$ls_rifpro = $row["rifpro"];
$ls_fecsolcot = $io_funciones->uf_convertirfecmostrar($ls_fecsolcot);
$rs_datos = $io_report->uf_load_dt_solicitud_cotizacion($ls_numsolcot,$ls_codpro,$ls_tabla,$ls_table,$ls_campo,&$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++;
$ls_codigo = $row["codite"];
$ls_denite = $row["denite"];
$ld_canite = number_format($row["canite"],2,',','.');
$la_datos[$li_i] = array('codigo'=>$ls_codigo,'denominacion'=>$ls_denite,'cantidad'=>$ld_canite);
}
}
if($_SESSION["la_nomina"]["tiponomina"]=="HISTORICA")
{
require_once("sigesp_sno_class_report_historico.php");
$io_report=new sigesp_sno_class_report_historico();
$li_tipo=2;
}
$ls_bolivares ="Bs.";
require_once("../../shared/class_folder/class_funciones.php");
$io_funciones=new class_funciones();
require_once("../class_folder/class_funciones_nomina.php");
$io_fun_nomina=new class_funciones_nomina();
//---------------------------------------------------- Parámetros del encabezado -----------------------------------------------
$ls_desnom=$_SESSION["la_nomina"]["desnom"];
$ls_peractnom=$_SESSION["la_nomina"]["peractnom"];
$ld_fecdesper=$io_funciones->uf_convertirfecmostrar($_SESSION["la_nomina"]["fecdesper"]);
$ld_fechasper=$io_funciones->uf_convertirfecmostrar($_SESSION["la_nomina"]["fechasper"]);
$ls_titulo="<b>Reporte General de Pago</b>";
$ls_periodo="<b>Período Nro ".$ls_peractnom.", ".$ld_fecdesper." - ".$ld_fechasper."</b>";
//-------------------------------------------------- Parámetros para Filtar el Reporte -----------------------------------------
$ls_codperdes=$io_fun_nomina->uf_obtenervalor_get("codperdes","");
$ls_codperhas=$io_fun_nomina->uf_obtenervalor_get("codperhas","");
$ls_orden=$io_fun_nomina->uf_obtenervalor_get("orden","1");
$ls_conceptocero=$io_fun_nomina->uf_obtenervalor_get("conceptocero","");
$ls_tituloconcepto=$io_fun_nomina->uf_obtenervalor_get("tituloconcepto","");
$ls_conceptoreporte=$io_fun_nomina->uf_obtenervalor_get("conceptoreporte","");
$ls_conceptop2=$io_fun_nomina->uf_obtenervalor_get("conceptop2","");
$ls_codubifis=$io_fun_nomina->uf_obtenervalor_get("codubifis","");
$ls_codpai=$io_fun_nomina->uf_obtenervalor_get("codpai","");
$ls_codest=$io_fun_nomina->uf_obtenervalor_get("codest","");
$ls_codmun=$io_fun_nomina->uf_obtenervalor_get("codmun","");
$ls_nomresact="";
$ls_codproins="";
$ls_codpro="";
$ls_cedresact="";
$ls_civresact="";
$ls_civsup="";
$ls_civinsact="";
}
}
elseif($ls_operacion=="ue_cargarcontrato")
{
$lb_valido=$io_contrato->uf_select_contrato($ls_codcon,$la_data);
if($lb_valido)
{
$ls_fecinicon=$io_function->uf_convertirfecmostrar($la_data["fecinicon"][1]);
$ls_placon=$io_funsob->uf_convertir_decimalentero($la_data["placon"][1]);
$ls_placonuni=$la_data["nomuni"][1];
$ls_contasi=$la_data["nompro"][1];
$ls_moncon=$io_funsob->uf_convertir_numerocadena($la_data["monto"][1]);
$ls_estcon=$io_funsob->uf_convertir_numeroestado($la_data["estcon"][1]);
$ls_codobr=$la_data["codobr"][1];
$ls_codcon=$la_data["codcon"][1];
$lb_valido=$io_obra->uf_select_obra($ls_codobr,$la_data);
if($lb_valido)
{
$ls_desobr=$la_data["desobr"][1];
$ls_estobr=$la_data["desest"][1];
$ls_munobr=$la_data["denmun"][1];
$ls_comobr=$la_data["nomcom"][1];
$ls_parobr=$la_data["denpar"][1];
$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];
$ld_fecmov = $io_funciones->uf_convertirfecmostrar($ds_voucher->data["fecmov"][$li_i]);
$ls_nomproben = $ds_voucher->data["nomproben"][$li_i];
$ls_solicitudes = $class_report->uf_select_solicitudes($ls_numdoc,$ls_codban,$ls_ctaban);
$ls_conmov = $ds_voucher->getValue("conmov",$li_i);
$ldec_monret = $ds_voucher->getValue("monret",$li_i);
$ldec_monto = $ds_voucher->getValue("monto",$li_i);
//$ldec_total = $ldec_monto-$ldec_monret;
$ldec_total = $ldec_monto;
//Asigno el monto a la clase numero-letras para la conversion.
$numalet->setNumero($ldec_total);
//Obtengo el texto del monto enviado.
$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
uf_print_cabecera($ls_numdoc,$ls_nomban,$ls_ctaban,$ls_chevau,$ls_nomproben,$ls_solicitudes,$ls_conmov,$io_pdf); // Imprimimos la cabecera del registro
$ls_email = $rs_data->fields["email"];
$ls_contable = trim($rs_data->fields["sc_cuenta"]);
$ls_scgrecdoc = trim($rs_data->fields["sc_cuentarecdoc"]);
$ls_denocontable = $rs_data->fields["denscgcta"];
$ls_banco = $rs_data->fields["codban"];
$ls_cuenta = $rs_data->fields["ctaban"];
$ls_tipocuenta = $rs_data->fields["codtipcta"];
$ls_pais = $rs_data->fields["codpai"];
$ls_estado = $rs_data->fields["codest"];
$ls_municipio = $rs_data->fields["codmun"];
$ls_parroquia = $rs_data->fields["codpar"];
$ls_codbansig = trim($rs_data->fields["codbansig"]);
$ls_nacben = $rs_data->fields["nacben"];
$ls_numpasben = $rs_data->fields["numpasben"];
$ls_fecregben = $rs_data->fields["fecregben"];
$ls_fecregben = $io_funcion->uf_convertirfecmostrar($ls_fecregben);
$ls_tipconben = $rs_data->fields["tipconben"];
$ls_denbansig = $rs_data->fields["denbansig"];
echo "<td style=text-align:center width=100><a href=\"javascript: aceptar('{$ls_cedbene}','{$ls_nombene}','{$ls_apebene}','{$ls_dirbene}','{$ls_telbene}','{$ls_celbene}','{$ls_email}','{$ls_contable}','{$ls_denocontable}','{$ls_banco}','{$ls_cuenta}','{$ls_tipocuenta}','{$ls_pais}','{$ls_estado}','{$ls_municipio}','{$ls_parroquia}','{$ls_codbansig}','{$ls_denbansig}','{$ls_tipperrif}','{$ls_numpririf}','{$ls_numterrif}','{$ls_fecregben}','{$ls_nacben}','{$ls_numpasben}','{$ls_tipconben}','\${$ls_scgrecdoc}');\">" . $ls_cedbene . "</a></td>";
echo "<td style=text-align:left width=400 title='" . ltrim($ls_nombre) . "'>" . $ls_nombre . "</td>";
echo "</tr>";
$rs_data->MoveNext();
}
} else {
$io_msg->message("No se han definido Beneficiarios !!!");
}
}
}
echo "</table>";
?>
</div>
$la_data["subtotpar"][$li_i]=$io_funsob->uf_convertir_numerocadena($la_data["subtotpar"][$li_i]);
}
}
if(array_key_exists("totreten",$la_data))
{
for($li_i=1;$li_i<=$li_filas;$li_i++)
{
$la_data["totreten"][$li_i]=$io_funsob->uf_convertir_numerocadena($la_data["totreten"][$li_i]);
}
}
if(array_key_exists("feccon",$la_data))
{
for($li_i=1;$li_i<=$li_filas;$li_i++)
{
$la_data["feccon"][$li_i]=$io_funcion->uf_convertirfecmostrar($la_data["feccon"][$li_i]);
}
}
if(array_key_exists("fecfincon",$la_data))
{
for($li_i=1;$li_i<=$li_filas;$li_i++)
{
$la_data["fecfincon"][$li_i]=$io_funcion->uf_convertirfecmostrar($la_data["fecfincon"][$li_i]);
}
}
if(array_key_exists("fecinicon",$la_data))
{
for($li_i=1;$li_i<=$li_filas;$li_i++)
{
$la_data["fecinicon"][$li_i]=$io_funcion->uf_convertirfecmostrar($la_data["fecinicon"][$li_i]);
}
$li_totrow = $io_report->DS->getRowCount("numsol");
for ($li_i = 1; $li_i <= $li_totrow; $li_i++) {
$ls_numsol = $io_report->DS->data["numsol"][$li_i];
$ls_codpro = $io_report->DS->data["cod_pro"][$li_i];
$ls_rifpro = $io_report->DS->data["rifpro"][$li_i];
$ls_cedbene = $io_report->DS->data["ced_bene"][$li_i];
$ls_denfuefin = $io_report->DS->data["denfuefin"][$li_i];
$ls_nomproben = $io_report->DS->data["nombre"][$li_i];
$ld_fecemisol = $io_report->DS->data["fecemisol"][$li_i];
$ls_consol = $io_report->DS->data["consol"][$li_i];
$ls_obssol = $io_report->DS->data["obssol"][$li_i];
$li_monsol = $io_report->DS->data["monsol"][$li_i];
$numalet->setNumero($li_monsol);
$ls_monto = $numalet->letra();
$li_monsol = number_format($li_monsol, 2, ",", ".");
$ld_fecemisol = $io_funciones->uf_convertirfecmostrar($ld_fecemisol);
if ($ls_codpro != "----------") {
$ls_codproben = $ls_codpro;
} else {
$ls_codproben = $ls_cedbene;
}
if ($ls_tiporeporte == 0) {
$li_monsolaux = $io_report->DS->data["monsolaux"][$li_i];
$li_monsolaux = number_format($li_monsolaux, 2, ",", ".");
}
uf_print_encabezado_pagina($ls_titulo, $ls_numsol, $ld_fecemisol, $ls_codproben, $ls_nomproben, $ls_rifpro, $ls_consol, $ls_monto, $li_monsol, &$io_pdf);
////////////////////////// GRID RECEPCIONES DE DOCUMENTOS //////////////////////////////////////
$io_report->ds_detalle->reset_ds();
$lb_valido = $io_report->uf_select_rec_doc_solicitud($ls_numsol);
// Cargar el DS con los datos del reporte
if ($lb_valido) {
function uf_print($as_codper, $ai_codtraant, $as_emptraant)
{
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Function: uf_print
// Access: public
// Arguments: as_codper // código de personal
// ai_codtraant // codigo de trabajo anterior
// as_emptraant // empresa
// 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();
$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=30>Código</td>";
print "<td width=270>Empresa</td>";
print "<td width=100>Cargo</td>";
print "<td width=100>Sueldo</td>";
print "</tr>";
$ls_sql="SELECT codtraant, emptraant, ultcartraant, ultsuetraant, fecingtraant, fecrettraant, emppubtraant,".
" codded, anolab, meslab, dialab, ".
" (SELECT desded FROM sno_dedicacion ".
" WHERE sno_dedicacion.codemp = sno_trabajoanterior.codemp ".
" AND sno_dedicacion.codded = sno_trabajoanterior.codded) AS desded ".
" FROM sno_trabajoanterior ".
" WHERE codemp='".$ls_codemp."'".
" AND codper='".$as_codper."'".
" AND codtraant like '".$ai_codtraant."'".
" AND emptraant like '".$as_emptraant."'".
" ORDER BY codtraant ";
$rs_data=$io_sql->select($ls_sql);
if($rs_data===false)
{
$io_mensajes->message("ERROR->".$io_funciones->uf_convertirmsg($io_sql->message));
}
else
{
while($row=$io_sql->fetch_row($rs_data))
{
$li_codtraant=$row["codtraant"];
$ls_emptraant=$row["emptraant"];
$ls_ultcartraant=$row["ultcartraant"];
$li_ultsuetraant=$row["ultsuetraant"];
$li_ultsuetraant=$io_fun_nomina->uf_formatonumerico($li_ultsuetraant);
$ld_fecingtraant=$io_funciones->uf_convertirfecmostrar($row["fecingtraant"]);
$ld_fecrettraant=$io_funciones->uf_convertirfecmostrar($row["fecrettraant"]);
$ls_emppubtraant=$row["emppubtraant"];
$ls_codded=$row["codded"];
$ls_desded=$row["desded"];
$li_anolab=$row["anolab"];
$li_meslab=$row["meslab"];
$li_dialab=$row["dialab"];
print "<tr class=celdas-blancas>";
print "<td><a href=\"javascript: aceptar('$li_codtraant','$ls_emptraant','$ls_ultcartraant','$li_ultsuetraant',";
print "'$ld_fecingtraant','$ld_fecrettraant','$ls_emppubtraant','$ls_codded','$ls_desded','$li_anolab','$li_meslab','$li_dialab');\">".$li_codtraant."</a></td>";
print "<td>".$ls_emptraant."</td>";
print "<td>".$ls_ultcartraant."</td>";
print "<td>".$li_ultsuetraant."</td>";
print "</tr>";
}
$io_sql->free_result($rs_data);
}
print "</table>";
unset($io_include);
unset($io_conexion);
unset($io_sql);
unset($io_mensajes);
unset($io_funciones);
unset($ls_codemp);
}
{
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.9,2.5,3,3); // Configuración de los margenes en centímetros
uf_print_encabezado_pagina($ls_titulo,$ls_desnom,$ls_periodo,$io_pdf); // Imprimimos el encabezado de la página
$io_pdf->ezStartPageNumbers(550,50,10,'','',1); // Insertar el número de página
uf_print_cabecera($io_pdf);
$li_totrow=$io_report->DS->getRowCount("codper");
for($li_i=1;(($li_i<=$li_totrow)&&($lb_valido));$li_i++)
{
$ls_codper=$io_report->DS->data["codper"][$li_i];
$ls_nomper=$io_report->DS->data["apeper"][$li_i].", ".$io_report->DS->data["nomper"][$li_i];
$li_codvac=$io_report->DS->data["codvac"][$li_i];
$ld_fecvenvac=$io_funciones->uf_convertirfecmostrar($io_report->DS->data["fecvenvac"][$li_i]);
$ld_fecdisvac=$io_funciones->uf_convertirfecmostrar($io_report->DS->data["fecdisvac"][$li_i]);
$li_stavac=$io_report->DS->data["stavac"][$li_i];
if($li_stavac=="1")
{
$li_stavac="Vencida";
}
else
{
$li_stavac="Programada";
}
$la_data[$li_i]=array('codigo'=>$ls_codper,'nombre'=>$ls_nomper,'vacacion'=>$li_codvac,'vencimiento'=>$ld_fecvenvac,'disfrute'=>$ld_fecdisvac,'estatus'=>$li_stavac);
}
$io_report->DS->resetds("codper");
uf_print_detalle($la_data,$io_pdf); // Imprimimos el detalle
unset($la_data);
function uf_print($as_tipo,$as_perdes)
{
//////////////////////////////////////////////////////////////////////////////
// Function : uf_print
// Access : public
// Arguments : as_tipo // Tipo de Llamada del catálogo
// as_perdes // Período desde si se quiere filtrar a partir de un período en particular
// Description : Función que obtiene e imprime los resultados de la busqueda
// Creado Por : Ing. Yesenia Moreno
// Fecha Creación : 10/02/2006 Fecha Última Modificación :
//////////////////////////////////////////////////////////////////////////////
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();
$ls_codemp=$_SESSION["la_empresa"]["codemp"];
$ls_codnom=$_SESSION["la_nomina"]["codnom"];
$ld_peractnom=$_SESSION["la_nomina"]["peractnom"];
print "<table width=500 border=0 cellpadding=1 cellspacing=1 class=fondo-tabla align=center>";
print "<tr class=titulo-celda>";
print "<td width=10>Período</td>";
print "<td width=200>Fecha de Inicio</td>";
print "<td width=200>Fecha de Finalización</td>";
print "</tr>";
$ls_sql="SELECT codperi, fecdesper, fechasper ".
" FROM sno_periodo ".
" WHERE codemp='".$ls_codemp."'".
" AND codnom='".$ls_codnom."'".
" AND codperi <> '000' ".
" AND cerper=0";
if($as_perdes!="")
{
$ls_sql=$ls_sql." AND codperi>='".$ld_peractnom."'".
" AND codperi>='".$as_perdes."'";
}
if($as_tipo=="prestamo")
{
$ls_sql=$ls_sql." AND codperi>='".$ld_peractnom."'";
}
$ls_sql=$ls_sql." ORDER BY codperi ";
$rs_data=$io_sql->select($ls_sql);
if($rs_data===false)
{
$io_mensajes->message("ERROR->".$io_funciones->uf_convertirmsg($io_sql->message));
}
else
{
while($row=$io_sql->fetch_row($rs_data))
{
$ls_codperi=$row["codperi"];
$ld_fecdesper=$io_funciones->uf_formatovalidofecha($row["fecdesper"]);
$ld_fechasper=$io_funciones->uf_formatovalidofecha($row["fechasper"]);
$ld_fecdesper=$io_funciones->uf_convertirfecmostrar($ld_fecdesper);
$ld_fechasper=$io_funciones->uf_convertirfecmostrar($ld_fechasper);
switch ($as_tipo)
{
case "":
print "<tr class=celdas-blancas>";
print "<td><a href=\"javascript: aceptar('$ls_codperi','$ld_fecdesper','$ld_fechasper');\">".$ls_codperi."</a></td>";
print "<td>".$ld_fecdesper."</td>";
print "<td>".$ld_fechasper."</td>";
print "</tr>";
break;
case "prestamo":
print "<tr class=celdas-blancas>";
print "<td><a href=\"javascript: aceptar('$ls_codperi','$ld_fecdesper','$ld_fechasper');\">".$ls_codperi."</a></td>";
print "<td>".$ld_fecdesper."</td>";
print "<td>".$ld_fechasper."</td>";
print "</tr>";
break;
case "pressusdesde":// es llamado desde sigesp_sno_p_prestamossuspender.php
print "<tr class=celdas-blancas>";
print "<td><a href=\"javascript: aceptar_prestsus_desde('$ls_codperi','$ld_fecdesper','$ld_fechasper');\">".$ls_codperi."</a></td>";
print "<td>".$ld_fecdesper."</td>";
print "<td>".$ld_fechasper."</td>";
print "</tr>";
break;
case "pressushasta":// es llamado desde sigesp_sno_p_prestamossuspender.php
print "<tr class=celdas-blancas>";
print "<td><a href=\"javascript: aceptar_prestsus_hasta('$ls_codperi','$ld_fecdesper','$ld_fechasper');\">".$ls_codperi."</a></td>";
print "<td>".$ld_fecdesper."</td>";
print "<td>".$ld_fechasper."</td>";
print "</tr>";
break;
}
}
$io_sql->free_result($rs_data);
}
print "</table>";
unset($io_include);
unset($io_conexion);
unset($io_sql);
unset($io_mensajes);
unset($io_funciones);
unset($ls_codemp);
unset($ls_codnom);
unset($ld_peractnom);
}
{
require_once("sigesp_sno_class_report_historico.php");
$io_report=new sigesp_sno_class_report_historico();
$li_tipo=2;
}
require_once("../../shared/class_folder/sigesp_c_reconvertir_monedabsf.php");
$io_monedabsf=new sigesp_c_reconvertir_monedabsf();
require_once("../../shared/class_folder/class_funciones.php");
$io_funciones=new class_funciones();
require_once("../class_folder/class_funciones_nomina.php");
$io_fun_nomina=new class_funciones_nomina();
//---------------------------------------------------- Parámetros del encabezado -----------------------------------------------
$ls_desnom=$_SESSION["la_nomina"]["desnom"];
$ls_peractnom=$_SESSION["la_nomina"]["peractnom"];
$li_adelanto=$_SESSION["la_nomina"]["adenom"];
$ld_fecdesper=$io_funciones->uf_convertirfecmostrar($_SESSION["la_nomina"]["fecdesper"]);
$ld_fechasper=$io_funciones->uf_convertirfecmostrar($_SESSION["la_nomina"]["fechasper"]);
$ls_titulo="<b>COMPROBANTE DE PAGO</b>";
$ls_periodo="Periodo: <b>".$ls_peractnom."</b> del <b>".$ld_fecdesper."</b> al <b>".$ld_fechasper."</b>";
//-------------------------------------------------- Parámetros para Filtar el Reporte -----------------------------------------
$ls_codperdes=$io_fun_nomina->uf_obtenervalor_get("codperdes","");
$ls_codperhas=$io_fun_nomina->uf_obtenervalor_get("codperhas","");
$ls_coduniadm=$io_fun_nomina->uf_obtenervalor_get("coduniadm","");
$ls_conceptocero=$io_fun_nomina->uf_obtenervalor_get("conceptocero","");
$ls_conceptop2=$io_fun_nomina->uf_obtenervalor_get("conceptop2","");
$ls_conceptoreporte=$io_fun_nomina->uf_obtenervalor_get("conceptoreporte","");
$ls_tituloconcepto=$io_fun_nomina->uf_obtenervalor_get("tituloconcepto","");
$ls_quincena=$io_fun_nomina->uf_obtenervalor_get("quincena","-");
$ls_orden=$io_fun_nomina->uf_obtenervalor_get("orden","1");
$ls_codubifis=$io_fun_nomina->uf_obtenervalor_get("codubifis","");
$ls_codpai=$io_fun_nomina->uf_obtenervalor_get("codpai","");
$io_pdf->ezSetCmMargins(3.6,5,3,3); // Configuración de los margenes en centímetros
$io_pdf->ezStartPageNumbers(570,47,8,'','',1); // Insertar el número de página
uf_print_encabezado_pagina($ls_titulo,&$io_pdf);
$lp_totrow=$io_report->detalle_pasantia->getRowCount("nropas");
for($lp_p=1;$lp_p<=$lp_totrow;$lp_p++)
{
$ls_cedula=$io_report->detalle_pasantia->data["cedpas"][$lp_p];
$ls_cedula=number_format($ls_cedula,0,",",".");
$ls_nombre=$io_report->detalle_pasantia->data["nompas"][$lp_p];
$ls_apellido=$io_report->detalle_pasantia->data["apepas"][$lp_p];
$ls_pasantia=$io_report->detalle_pasantia->data["nropas"][$lp_p];
$ls_fechaini=$io_report->detalle_pasantia->data["fecini"][$lp_p];
$ls_fechaini=$io_funciones->uf_convertirfecmostrar($ls_fechaini);
$ls_fechafin=$io_report->detalle_pasantia->data["fecfin"][$lp_p];
$ls_fechafin=$io_funciones->uf_convertirfecmostrar($ls_fechafin);
$ls_estado=$io_report->detalle_pasantia->data["estado"][$lp_p];
$ls_tutor=$io_report->detalle_pasantia->data["tutor"][$lp_p];
$ls_instituto=$io_report->detalle_pasantia->data["inst_univ"][$lp_p];
$ls_carrera=$io_report->detalle_pasantia->data["carrera"][$lp_p];
$la_dataper[$lp_p]=array('cedula'=>$ls_cedula,'nombre'=>$ls_nombre." ".$ls_apellido,
'pasantia'=>$ls_pasantia,'fechaini'=>$ls_fechaini,'fechafin'=>$ls_fechafin,
'estado'=>$ls_estado,'tutor'=>$ls_tutor,'instituto'=>$ls_instituto,'carrera'=>$ls_carrera);
}//end del for*/
uf_print_encabezado_detalle($la_dataper,&$io_pdf);
unset($la_dataper);
