function uf_print_cuerpo($as_nomemp,$as_numordcom,$ad_fecordcom,$ai_montot,$as_totordser,$as_ciuemp,$ad_fecrecser,&$io_pdf)
{
//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Function: uf_print_cabecera
// Access: private
// Arguments: as_nomemp // nombre de la empresa
// as_nomfisalm // nombre fiscal de la empresa
// io_pdf // total de registros que va a tener el reporte
// Description: función que imprime la cabecera de cada página
// Creado Por: Ing. Yesenia Moreno
// Fecha Creación: 21/04/2006
//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
$io_fun_fecha=new class_fecha();
$io_funciones=new class_funciones();
$io_pdf->ezSetDy(-5);
$ld_dia=date("d");
$ld_mes=date("m");
$ld_anio=date("Y");
$ls_mes=$io_fun_fecha->uf_load_nombre_mes($ld_mes);
$ad_fecordcom=$io_funciones->uf_convertirfecmostrar($ad_fecordcom);
$io_pdf->ezSetDy(-15);
$la_data1[1]=array('empresa'=>"ENTREGA CONFORME",'empresa1'=>"ENTREGA CONFORME");
$la_data1[2]=array('empresa'=>"Firma:___________________________",'empresa1'=>"Firma:___________________________");
$la_data1[3]=array('empresa'=>"Nombre:_________________________",'empresa1'=>"Nombre:_________________________");
$la_data1[4]=array('empresa'=>"Cargo:__________________________",'empresa1'=>"Cargo:__________________________");
$la_data1[5]=array('empresa'=>"C.I.:_____________________________",'empresa1'=>"C.I.:_____________________________");
$la_columna=array('empresa'=>'<b>POR LA EMPRESA</b>',
'empresa1'=>'<b>POR EL '.strtoupper($as_nomemp).' </b>');
$la_config=array('showHeadings'=>1, // Mostrar encabezados
'fontSize' => 8, // Tamaño de Letras
'titleFontSize' => 9, // Tamaño de Letras de los títulos
'showLines'=>0, // Mostrar Líneas
'shaded'=>0, // Sombra entre líneas
'width'=>490, // Ancho de la tabla
'maxWidth'=>490, // Ancho Máximo de la tabla
'xOrientation'=>'center', // Orientación de la tabla
'rowGap' => 1.5 ,
'cols'=>array('empresa'=>array('justification'=>'left','width'=>245), // Justificación y ancho de la columna
'empresa1'=>array('justification'=>'left','width'=>245))); // Justificación y ancho de la columna
$io_pdf->ezTable($la_data1,$la_columna,'',$la_config);
}// end function uf_print_cabecera
$ls_agno = substr($ld_fecregsol,0,4);
settype($li_mes_act,'int');
if($li_mes_act!=1)
{
$li_mes_ant = $li_mes_act - 1;
}
else
{
$li_mes_ant = 1;
}
settype($li_mes_act,'string');
settype($li_mes_ant,'string');
$li_mes_act = $io_funciones->uf_cerosizquierda($li_mes_act,2);
$li_mes_ant = $io_funciones->uf_cerosizquierda($li_mes_ant,2);
$ls_nommesact = $io_fecha->uf_load_nombre_mes($li_mes_act);
$ls_nommesant = $io_fecha->uf_load_nombre_mes($li_mes_ant);
$ld_fecdesant = $io_funciones->uf_convertirdatetobd("01/01/".$ls_agno);
$ld_hasant = $io_fecha->uf_last_day($li_mes_ant,$ls_agno);
$ld_fechasant = $io_funciones->uf_convertirdatetobd($ld_hasant);
$ld_fecdesact = $io_funciones->uf_convertirdatetobd("01/".$li_mes_act."/".$ls_agno);
$ld_hasact = $io_fecha->uf_last_day($li_mes_act,$ls_agno);
$ld_fechasact = $io_funciones->uf_convertirdatetobd($ld_hasact);
//***********************************************************************************************
$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];
$ls_cuentahasta_max=$_GET["cuentahasta"];
if(($ls_cuentadesde_min=="")&&($ls_cuentahasta_max==""))
{
if($io_report->uf_spg_reporte_select_cuenta_min_max($ls_cuentadesde_min,$ls_cuentahasta_max))
{
$ls_cuentadesde=$ls_cuentadesde_min;
$ls_cuentahasta=$ls_cuentahasta_max;
}
}
else
{
$ls_cuentadesde=$ls_cuentadesde_min;
$ls_cuentahasta=$ls_cuentahasta_max;
}
//---------------------------------------------------- Par�metros del encabezado -----------------------------------------------
$ldt_fecha=" <b>".$io_fecha->uf_load_nombre_mes(substr($ls_fecha,3,2))." - ".substr($ls_fecha,6,4)." </b> ";
$ls_titulo=" <b>MOVIMIENTOS DEL MES</b> ";
//--------------------------------------------------------------------------------------------------------------------------------
// Cargar el dts_cab con los datos de la cabecera del reporte( Selecciono todos comprobantes )
$lb_valido=uf_insert_seguridad("<b>Movimientos del Mes en PDF</b>"); // Seguridad de Reporte
if($lb_valido)
{
$lb_valido=$io_report->uf_scg_reporte_movimientos_mes($ls_cuentadesde,$ls_cuentahasta,$ls_fecha,$ls_fechasta,$ls_orden);
}
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>");
}
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();
require_once("../../shared/class_folder/class_fecha.php");
$io_fecha=new class_fecha();
//---------------------------------------------------- Parámetros del encabezado -----------------------------------------------
$ls_titulo="<b>Listado de Aportes del IPASME</b>";
//-------------------------------------------------- Parámetros para Filtar el Reporte -----------------------------------------
$ls_codnomdes=$io_fun_nomina->uf_obtenervalor_get("codnomdes","");
$ls_codnomhas=$io_fun_nomina->uf_obtenervalor_get("codnomhas","");
$ls_ano=$io_fun_nomina->uf_obtenervalor_get("ano","");
$ls_mes=$io_fun_nomina->uf_obtenervalor_get("mes","");
$ls_orden=$io_fun_nomina->uf_obtenervalor_get("orden","1");
$ls_conceptocero=$io_fun_nomina->uf_obtenervalor_get("conceptocero","");
$ls_periodo= "<b>Año: ".$ls_ano." Mes: ".$io_fecha->uf_load_nombre_mes($ls_mes)."</b>";
$ls_tiporeporte=$io_fun_nomina->uf_obtenervalor_get("tiporeporte",0);
global $ls_tiporeporte;
if($ls_tiporeporte==1)
{
require_once("sigesp_snorh_class_reportbsf.php");
$io_report=new sigesp_snorh_class_reportbsf();
}
//--------------------------------------------------------------------------------------------------------------------------------
$lb_valido=uf_insert_seguridad($ls_titulo,$ls_periodo); // Seguridad de Reporte
if($lb_valido)
{
$lb_valido=$io_report->uf_ipasme_aporte_concepto($ls_codnomdes,$ls_codnomhas,$ls_ano,$ls_mes,$ls_conceptocero); // Cargar el DS con los datos del reporte
}
if($lb_valido==false) // Existe algún error ó no hay registros
{
{
$li_totrow_det=$io_report->DS_detalle->getRowCount("codper");
$li_arcacum=0;
$li_islracum=0;
$lb_arc=false;
for($li_s=1;$li_s<=$li_totrow_det;$li_s++)
{
$ls_codisr=$io_report->DS_detalle->data["codisr"][$li_s];
$li_porisr=$io_fun_nomina->uf_formatonumerico($io_report->DS_detalle->data["porisr"][$li_s]);
$li_arcacum=$li_arcacum+abs($io_report->DS_detalle->data["arc"][$li_s]);
$li_islracum=$li_islracum+abs($io_report->DS_detalle->data["islr"][$li_s]);
$li_arc=$io_fun_nomina->uf_formatonumerico(abs($io_report->DS_detalle->data["arc"][$li_s]));
$li_islr=$io_fun_nomina->uf_formatonumerico(abs($io_report->DS_detalle->data["islr"][$li_s]));
$li_arc_acumulado=$io_fun_nomina->uf_formatonumerico($li_arcacum);
$li_isl_acumulado=$io_fun_nomina->uf_formatonumerico($li_islracum);
$ls_mes=strtoupper(substr($io_fecha->uf_load_nombre_mes($ls_codisr),0,3));
if($li_arc<>"0,00")
{
$lb_arc=true;
}
$la_data[$li_s]=array('mes'=>$ls_mes,'arc'=>$li_arc,'porcentaje'=>$li_porisr,'retencion'=>$li_islr,
'arcacum'=>$li_arc_acumulado,'retencionacum'=>$li_isl_acumulado,'datos'=>'');
}
$io_report->DS_detalle->resetds("codper");
if($li_totrow_det==0)
{
$lb_arc=false;
for($li_s=1;$li_s<=12;$li_s++)
{
$ls_codisr=str_pad($li_s,2,"0",0);
$li_porisr=$io_fun_nomina->uf_formatonumerico(0);
$ls_concont=$io_report->DS->data["concont"][$li_i];
$li_tamletcont=$io_report->DS->data["tamletcont"][$li_i];
$li_tamletpiecont=$io_report->DS->data["tamletpiecont"][$li_i];
if($li_tamletpiecont=="")
{
$li_tamletpiecont=$li_tamletcont;
}
$li_intlincont=$io_report->DS->data["intlincont"][$li_i];
$li_marinfcont=$io_report->DS->data["marinfcont"][$li_i];
$li_marsupcont=$io_report->DS->data["marsupcont"][$li_i];
$ls_titcont=$io_report->DS->data["titcont"][$li_i];
$ls_piepagcont=$io_report->DS->data["piepagcont"][$li_i];
$ls_ente=$_SESSION["la_empresa"]["nombre"];
$ld_fecha=date("d/m/Y");
$ls_dia_act=substr($ld_fecha,0,2);
$ls_mes_act=$io_fecha->uf_load_nombre_mes(substr($ld_fecha,3,2));
$ls_ano_act=substr($ld_fecha,6,4);
$io_pdf->ezSetCmMargins($li_marsupcont,$li_marinfcont,3,3); // Configuración de los margenes en centímetros
uf_print_encabezado_pagina($ls_titcont,$io_pdf); // Imprimimos el encabezado de la página
$lb_valido=$io_report->uf_select_contratos_personal($ls_nroregdes,$ls_nroreghas, $rs_data); // Obtenemos el detalle del reporte
if($lb_valido)
{
$li_s=0;
$li_totrow_det=$io_report->io_sql->num_rows($rs_data);
while ($row=$io_report->io_sql->fetch_row($rs_data))
{
$li_s=$li_s+1;
$ls_contenido="";
$ls_contenido=$ls_concont;
$ls_horario=trim ($row["horario"]);
$io_fecha=new class_fecha();
//---------------------------------------------------- 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"]);
if(substr($ld_fecdesper,0,2)=="01")
{
$ls_descripcion="1ra QUINCENA ";
}
else
{
$ls_descripcion="2da QUINCENA ";
}
$ls_descripcion=$ls_descripcion."MES DE ".strtoupper($io_fecha->uf_load_nombre_mes(substr($ld_fecdesper,3,2)))." ".substr($ld_fecdesper,6,4);
//-------------------------------------------------- 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","");
$ls_codest=$io_fun_nomina->uf_obtenervalor_get("codest","");
$ls_codmun=$io_fun_nomina->uf_obtenervalor_get("codmun","");
$ls_codpar=$io_fun_nomina->uf_obtenervalor_get("codpar","");
$li_tipo=2;
}
$ls_bolivares ="Bs.";
require_once("../../shared/class_folder/class_funciones.php");
$io_funciones=new class_funciones();
require_once("../../shared/class_folder/class_fecha.php");
$io_fecha=new class_fecha();
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>DETALLES DE NÓMINA EN ".$ls_bolivares."</b>";
$ls_periodo="<b>".substr($ld_fechasper,0,2)." de ".$io_fecha->uf_load_nombre_mes(substr($ld_fechasper,3,2))." de ".substr($ld_fechasper,6,4)."</b>";
$ls_tipnom=$_SESSION["la_nomina"]["tipnom"];
$ls_descripcion="";
switch($ls_tipnom)
{
case "1":
$ls_descripcion="Empleado Fijo";
break;
case "2":
$ls_descripcion="Empleado Contratado";
break;
case "3":
$ls_descripcion="Obrero Fijo";
break;
case "4":
$ls_descripcion="Obrero Contratado";
$ls_titulo="<b>Listado de Cumpleañeros</b>";
//-------------------------------------------------- Parámetros para Filtar el Reporte -----------------------------------------
$ls_codnomdes=$io_fun_nomina->uf_obtenervalor_get("codnomdes","");
$ls_codnomhas=$io_fun_nomina->uf_obtenervalor_get("codnomhas","");
$ls_codperdes=$io_fun_nomina->uf_obtenervalor_get("codperdes","");
$ls_codperhas=$io_fun_nomina->uf_obtenervalor_get("codperhas","");
$ls_activo=$io_fun_nomina->uf_obtenervalor_get("activo","");
$ls_egresado=$io_fun_nomina->uf_obtenervalor_get("egresado","");
$ls_activono=$io_fun_nomina->uf_obtenervalor_get("activono","");
$ls_vacacionesno=$io_fun_nomina->uf_obtenervalor_get("vacacionesno","");
$ls_suspendidono=$io_fun_nomina->uf_obtenervalor_get("suspendidono","");
$ls_egresadono=$io_fun_nomina->uf_obtenervalor_get("egresadono","");
$ls_nomnormal=$io_fun_nomina->uf_obtenervalor_get("nominasnormales","");
$ls_mes=$io_fun_nomina->uf_obtenervalor_get("mes","");
$ls_orden=$io_fun_nomina->uf_obtenervalor_get("orden","1");
$ls_titulo2="<b>Del Mes de ".$io_fecha->uf_load_nombre_mes($ls_mes)."</b>";
//--------------------------------------------------------------------------------------------------------------------------------
$lb_valido=uf_insert_seguridad($ls_titulo); // Seguridad de Reporte
if($lb_valido)
{
$lb_valido=$io_report->uf_listadocumpleanos($ls_codnomdes,$ls_codnomhas,$ls_codperdes,$ls_codperhas,$ls_mes,$ls_activo,
$ls_egresado,$ls_activono,$ls_vacacionesno,$ls_suspendidono,$ls_egresadono,
$ls_nomnormal,$ls_orden); // Cargar el DS con los datos del reporte
}
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>");
}
//---------------------------------------------------- Parámetros del encabezado -----------------------------------------------
$ls_titulo="<b>INSTITUTO DE PREVISION SOCIAL DE LA FUERZA ARMADA</b>";
$ls_titulo2="<b>REPORTE DE PERSONAL PARA EL CONTROL DEL PROGRAMA DE ALIMENTACIÓN</b>";
//-------------------------------------------------- Parámetros para Filtar el Reporte -----------------------------------------
$ls_codnomdes=$io_fun_nomina->uf_obtenervalor_get("codnomdes","");
$ls_codnomhas=$io_fun_nomina->uf_obtenervalor_get("codnomhas","");
$ls_codconcdes=$io_fun_nomina->uf_obtenervalor_get("codconcdes","");
$ls_codconchas=$io_fun_nomina->uf_obtenervalor_get("codconchas","");
$ls_ano=$io_fun_nomina->uf_obtenervalor_get("ano","");
$ls_mes=$io_fun_nomina->uf_obtenervalor_get("mes","");
$ls_codperi=$io_fun_nomina->uf_obtenervalor_get("codperi","");
$ls_orden=$io_fun_nomina->uf_obtenervalor_get("orden","1");
$ls_orden="5".trim($ls_orden);
$ls_conceptocero=$io_fun_nomina->uf_obtenervalor_get("conceptocero","");
$ls_rango= "Nómina Desde: ".$ls_codnomdes." Nómina Hasta: ".$ls_codnomhas;
$ls_periodo= "Año: ".$ls_ano." Mes: ".$io_fecha->uf_load_nombre_mes($ls_mes);
$ls_tiporeporte=$io_fun_nomina->uf_obtenervalor_get("tiporeporte",0);
$ls_subnomdes=$io_fun_nomina->uf_obtenervalor_get("codsubnomdes","");
$ls_subnomhas=$io_fun_nomina->uf_obtenervalor_get("codsubnomhas","");
global $ls_tiporeporte;
if($ls_tiporeporte==1)
{
require_once("sigesp_snorh_class_reportbsf.php");
$io_report=new sigesp_snorh_class_reportbsf();
}
//--------------------------------------------------------------------------------------------------------------------------------
$lb_valido=uf_insert_seguridad($ls_titulo,$ls_rango,$ls_periodo); // Seguridad de Reporte
if($lb_valido)
{
$lb_valido=$io_report->uf_cestaticket_personal($ls_codnomdes,$ls_codnomhas,$ls_ano,$ls_mes,$ls_codperi,$ls_codconcdes,
$ls_codconchas,$ls_conceptocero,$ls_subnomdes,$ls_subnomhas,$ls_orden,&$rs_data,$record_set='si'); // Cargar el DS con los datos del reporte
$io_msg->message("Error en reporte !!!");
print "<script>";
print "close();";
print "</script>";
}
$la_campo["banco"] = $la_cartaorden["nomban"][1];
$la_campo["ciudad"] = $_SESSION["la_empresa"]["ciuemp"];
$la_campo["fecha"] = $ls_fecha_corta;
$la_campo["gerente"] = $la_cartaorden["gerban"][1];
$la_campo["cartaorden"] = $la_cartaorden["numcarord"][1];
$la_campo["documento"] = $la_cartaorden["numdoc"][1];
$la_campo["cuentabancaria"] = $la_cartaorden["ctaban"][1];
$la_campo["monto"] = number_format($la_cartaorden["monto"][1],2,",",".");
$la_campo["montoletras"] = $numalet->uf_convertir_letra($la_cartaorden["monto"][1],'','');;
$la_campo["tipocuenta"] = $la_cartaorden["nomtipcta"][1];
$la_campo["empresa"] = $_SESSION["la_empresa"]["nombre"];
uf_reemplazar($la_campo,$la_data,&$io_pdf);
}
$class_report->SQL->begin_transaction();
$ls_mes = $io_fecha->uf_load_nombre_mes(substr($ls_fecha_corta,3,2));
$ls_fecha=$_SESSION["la_empresa"]["ciuemp"].", ".substr($ls_fecha_corta,0,2)." de ".$ls_mes." de ".substr($ls_fecha_corta,6,4)."" ;
uf_print_encabezado_pagina($ls_numdoc,$ls_fecha,$io_pdf); // Imprimimos el encabezado de la p�ina
uf_print_texto($la_data["encabezado"][1],$io_pdf,650);
uf_print_texto($la_data["cuerpo"][1],$io_pdf);
$la_data_dt=$class_report->uf_select_dt_cartaorden($ls_numdoc,$ls_codban,$ls_ctaban,$ls_tipproben);
uf_print_detalle($la_data_dt,$io_pdf,450,$ls_tipproben); // Imprimimos el detalle
uf_print_texto($la_data["pie"][1],$io_pdf);
$io_pdf->ezStream();
?>
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();
require_once("../../shared/class_folder/class_fecha.php");
$io_fecha=new class_fecha();
//---------------------------------------------------- Par�metros del encabezado -----------------------------------------------
$ls_titulo="<b>Listado de Relaci�n de Retenci�n I.S.L.R.</b>";
//-------------------------------------------------- Par�metros para Filtar el Reporte -----------------------------------------
$ls_codnomdes=$io_fun_nomina->uf_obtenervalor_get("codnomdes","");
$ls_codnomhas=$io_fun_nomina->uf_obtenervalor_get("codnomhas","");
$ls_ano=$io_fun_nomina->uf_obtenervalor_get("ano","");
$ls_mes=$io_fun_nomina->uf_obtenervalor_get("mes","");
$ls_conceptocero=$io_fun_nomina->uf_obtenervalor_get("conceptocero","");
$ls_orden=$io_fun_nomina->uf_obtenervalor_get("orden","1");
$ls_titulo2="<b>A�o</b> ".$ls_ano." <b>Mes</b> ".$io_fecha->uf_load_nombre_mes($ls_mes);
$ls_tiporeporte=$io_fun_nomina->uf_obtenervalor_get("tiporeporte",0);
global $ls_tiporeporte;
if($ls_tiporeporte==1)
{
require_once("sigesp_snorh_class_reportbsf.php");
$io_report=new sigesp_snorh_class_reportbsf();
}
//--------------------------------------------------------------------------------------------------------------------------------
$lb_valido=uf_insert_seguridad($ls_titulo,$ls_titulo2); // Seguridad de Reporte
if($lb_valido)
{
$lb_valido=$io_report->uf_retencionislr_personal($ls_codnomdes,$ls_codnomhas,$ls_ano,$ls_mes,$ls_conceptocero,$ls_orden); // Cargar el DS con los datos del reporte
}
if($lb_valido==false) // Existe alg�n error � no hay registros
{
}
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();
require_once("../../shared/class_folder/class_fecha.php");
$io_fecha=new class_fecha();
//---------------------------------------------------- Parámetros del encabezado -----------------------------------------------
$ls_desnom="<b>".$_SESSION["la_nomina"]["desnom"]."</b>";
$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>Retenciones y Aportes Patronales</b>";
if(intval(substr($ld_fecdesper,0,2))<=15)
{
$ls_quincena="Primera Quincena del mes de ".$io_fecha->uf_load_nombre_mes(substr($ld_fecdesper,3,2))." del ".substr($ld_fecdesper,6,4);
}
else
{
$ls_quincena="Segunda Quincena del mes de ".$io_fecha->uf_load_nombre_mes(substr($ld_fecdesper,3,2))." del ".substr($ld_fecdesper,6,4);
}
$ls_periodo="Del ".$ld_fecdesper." al ".$ld_fechasper."</b>";
//-------------------------------------------------- Parámetros para Filtar el Reporte -----------------------------------------
$ls_codconc=$io_fun_nomina->uf_obtenervalor_get("codconc","");
$ls_nomcon=$io_fun_nomina->uf_obtenervalor_get("nomcon","");
$ls_conceptocero=$io_fun_nomina->uf_obtenervalor_get("conceptocero","");
$ls_orden=$io_fun_nomina->uf_obtenervalor_get("orden","1");
$ls_subnomdes=$io_fun_nomina->uf_obtenervalor_get("subnomdes","");
$ls_subnomhas=$io_fun_nomina->uf_obtenervalor_get("subnomhas","");
//--------------------------------------------------------------------------------------------------------------------------------
$lb_valido=uf_insert_seguridad($ls_titulo,$ls_desnom,$ls_periodo,$li_tipo); // Seguridad de Reporte
function uf_imprimirresultados($as_mes, $as_ano)
{
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Function: uf_imprimirresultados
// Access: private
// Arguments: as_mes // Mes de la Depreciación
// as_ano // Año de la Depreciación
// Description: Función que Imprime los detalles del comprobante
// Creado Por: Ing. Yesenia Moreno
// Fecha Creación: 31/10/2006 Fecha Última Modificación :
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
global $in_class_mis;
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_mensajes = new class_mensajes();
require_once "../shared/class_folder/class_sql.php";
$io_sql = new class_sql($con);
require_once "../shared/class_folder/class_sql.php";
$io_sql2 = new class_sql($con);
require_once "../shared/class_folder/class_funciones.php";
$io_funciones = new class_funciones();
require_once "../shared/class_folder/class_fecha.php";
$io_fecha = new class_fecha();
$ls_codemp = $_SESSION["la_empresa"]["codemp"];
$ls_sql = "SELECT SUM(mondepmen) AS monto " . " FROM saf_depreciacion " . " WHERE codemp='" . $ls_codemp . "' " . " AND SUBSTR(fecdep,1,4) = '" . $as_ano . "' " . " AND SUBSTR(fecdep,6,2) = '" . $as_mes . "' " . " GROUP BY SUBSTR(fecdep,1,4), SUBSTR(fecdep,6,2) ";
$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_comprobante = str_pad($as_mes . $as_ano, 15, "0", 0);
$ls_descripcion = "DEPRECIACIÓN DE LOS ACTIVOS FIJOS CORRESPONDIENTES AL AÑO " . $as_ano . " MES DE " . strtoupper($io_fecha->uf_load_nombre_mes($as_mes));
$li_monto = number_format($row["monto"], 2, ",", ".");
print "<table width='450' height='20' border='0' align='center' cellpadding='0' cellspacing='0'>";
print "\t<tr>";
print "\t\t<td width='450' class='titulo-ventana'>Información del Comprobante</td>";
print " </tr>";
print "</table>";
print "<table width='450' border=0 cellpadding=1 cellspacing=1 align='center' class='formato-blanco'>";
print " <tr>";
print "\t\t<td width='100'><div align='right' class='texto-azul'>Comprobante</div></td>";
print "\t\t<td width='350'><div align='left'>" . $ls_comprobante . "</div></td>";
print " </tr>";
print " <tr>";
print "\t\t<td><div align='right' class='texto-azul'>Descripción </div></td>";
print "\t\t<td><div align='justify'>" . $ls_descripcion . "</div></td>";
print " </tr>";
print " <tr>";
print "\t\t<td><div align='right' class='texto-azul'>Monto Total</div></td>";
print "\t\t<td><div align='left'> " . $li_monto . " </div></td>";
print " </tr>";
print " <tr>";
print "\t\t<td><div align='right' class='texto-azul'>Contabilización </div></td>";
print "\t\t<td><div align='left'> COMPROMETE, CAUSA Y PAGA </div></td>";
print " </tr>";
print " <tr>";
print "\t\t<td><div align='right' class='texto-azul'></div></td>";
print "\t\t<td><div align='left'></div></td>";
print " </tr>";
print "</table>";
$ls_sql = "SELECT SUM(saf_depreciacion.mondepmen) AS monto, saf_activo.codestpro1, saf_activo.codestpro2, " . "\t\tsaf_activo.codestpro3, saf_activo.codestpro4, saf_activo.codestpro5, saf_activo.estcla, saf_activo.spg_cuenta_dep " . " FROM saf_depreciacion, saf_activo " . " WHERE saf_depreciacion.codemp='" . $ls_codemp . "' " . " AND SUBSTR(saf_depreciacion.fecdep,1,4) = '" . $as_ano . "' " . " AND SUBSTR(saf_depreciacion.fecdep,6,2) = '" . $as_mes . "' " . " AND saf_depreciacion.codemp = saf_activo.codemp\t" . " AND saf_depreciacion.codact = saf_activo.codact " . " GROUP BY saf_activo.codestpro1, saf_activo.codestpro2, saf_activo.codestpro3, saf_activo.codestpro4, " . "\t\t saf_activo.codestpro5, saf_activo.estcla, saf_activo.spg_cuenta_dep ";
$rs_data2 = $io_sql2->select($ls_sql);
if ($rs_data2 === false) {
$io_mensajes->message("ERROR->" . $io_funciones->uf_convertirmsg($io_sql2->message));
} else {
$ls_titulo = "";
$li_len1 = 0;
$li_len2 = 0;
$li_len3 = 0;
$li_len4 = 0;
$li_len5 = 0;
$in_class_mis->uf_loadmodalidad(&$li_len1, &$li_len2, &$li_len3, &$li_len4, &$li_len5, &$ls_titulo);
print "<table width='450' height='20' border='0' align='center' cellpadding='0' cellspacing='0' class='formato-blanco'>";
print "\t<tr>";
print "\t\t<td colspan='4' class='titulo-celdanew'>Detalle Presupuestario</td>";
print " </tr>";
print " <tr class=titulo-celdanew>";
print "\t\t<td width='150'>" . $ls_titulo . "</td>";
print "\t\t<td width='100'>Estatus</td>";
print "\t\t<td width='100'>Cuenta</td>";
print "\t\t<td width='100'>Monto</td>";
print "\t</tr>";
$li_total = 0;
while ($row = $io_sql2->fetch_row($rs_data2)) {
$ls_cuenta = $row["spg_cuenta_dep"];
$li_total = $li_total + $row["monto"];
$li_monto = $in_class_mis->uf_formatonumerico($row["monto"]);
$ls_codestpro = $row["codestpro1"] . $row["codestpro2"] . $row["codestpro3"] . $row["codestpro4"] . $row["codestpro5"];
$ls_estcla = $row["estcla"];
$ls_programatica = "";
$ls_estatus = "";
$in_class_mis->uf_formatoprogramatica($ls_codestpro, &$ls_programatica);
switch ($ls_estcla) {
case "A":
$ls_estatus = "Acción";
break;
case "P":
$ls_estatus = "Proyecto";
break;
}
print "<tr class=celdas-blancas>";
print "<td align=center width='150'>" . $ls_programatica . "</td>";
print "<td align=center width='100'>" . $ls_estatus . "</td>";
print "<td align=center width='100'>" . $ls_cuenta . "</td>";
print "<td align=right width='100'>" . $li_monto . " </td>";
print "</tr>";
}
$li_total = $in_class_mis->uf_formatonumerico($li_total);
print "\t<tr class=celdas-blancas>";
print "\t\t<td colspan='3' align='right' class='texto-azul'>Total</td>";
print "\t\t<td width='100' align='right' class='texto-azul'>" . $li_total . "</td>";
print " </tr>";
print "</table>";
}
$io_sql2->free_result($rs_data2);
$ls_sql = "SELECT SUM(saf_depreciacion.mondepmen) AS monto, 'D' AS operacion, spg_cuentas.sc_cuenta " . " FROM saf_depreciacion,saf_activo, spg_cuentas " . " WHERE saf_depreciacion.codemp='" . $ls_codemp . "' " . " AND SUBSTR(saf_depreciacion.fecdep,1,4) = '" . $as_ano . "' " . " AND SUBSTR(saf_depreciacion.fecdep,6,2) = '" . $as_mes . "' " . " AND saf_depreciacion.codemp = saf_activo.codemp " . " AND saf_depreciacion.codact = saf_activo.codact " . " AND saf_activo.codemp = spg_cuentas.codemp " . " AND saf_activo.codestpro1 = spg_cuentas.codestpro1 " . " AND saf_activo.codestpro2 = spg_cuentas.codestpro2 " . " AND saf_activo.codestpro3 = spg_cuentas.codestpro3 " . " AND saf_activo.codestpro4 = spg_cuentas.codestpro4 " . " AND saf_activo.codestpro5 = spg_cuentas.codestpro5 " . " AND saf_activo.spg_cuenta_dep = spg_cuentas.spg_cuenta " . " GROUP BY spg_cuentas.sc_cuenta " . " UNION " . "SELECT SUM(saf_depreciacion.mondepmen) AS monto, 'H' AS operacion, saf_activo.sc_cuenta " . " FROM saf_depreciacion,saf_activo, spg_ep1 " . " WHERE saf_depreciacion.codemp='" . $ls_codemp . "' " . " AND SUBSTR(saf_depreciacion.fecdep,1,4) = '" . $as_ano . "' " . " AND SUBSTR(saf_depreciacion.fecdep,6,2) = '" . $as_mes . "' " . " AND spg_ep1.estint=0" . " AND saf_depreciacion.codemp = saf_activo.codemp " . " AND saf_depreciacion.codact = saf_activo.codact " . " AND saf_activo.codemp=spg_ep1.codemp" . " AND saf_activo.codestpro1=spg_ep1.codestpro1" . " AND saf_activo.estcla=spg_ep1.estcla" . " GROUP BY saf_activo.sc_cuenta" . " UNION " . "SELECT SUM(saf_depreciacion.mondepmen) AS monto, 'H' AS operacion, trim(spg_ep1.sc_cuenta) as sc_cuenta " . " FROM saf_depreciacion,saf_activo, spg_ep1 " . " WHERE saf_depreciacion.codemp='" . $ls_codemp . "' " . " AND SUBSTR(saf_depreciacion.fecdep,1,4) = '" . $as_ano . "' " . " AND SUBSTR(saf_depreciacion.fecdep,6,2) = '" . $as_mes . "' " . " AND spg_ep1.estint=1" . " AND saf_depreciacion.codemp = saf_activo.codemp " . " AND saf_depreciacion.codact = saf_activo.codact " . " AND saf_activo.codemp=spg_ep1.codemp" . " AND saf_activo.codestpro1=spg_ep1.codestpro1" . " AND saf_activo.estcla=spg_ep1.estcla" . " GROUP BY spg_ep1.sc_cuenta";
$rs_data2 = $io_sql2->select($ls_sql);
if ($rs_data2 === false) {
$io_mensajes->message("ERROR->" . $io_funciones->uf_convertirmsg($io_sql2->message));
} else {
$li_total_deb = 0;
$li_total_hab = 0;
print "<table width='450' height='20' border='0' align='center' cellpadding='0' cellspacing='0' class='formato-blanco'>";
print "\t<tr>";
print "\t\t<td colspan='3' class='titulo-celdanew'>Detalle Contable</td>";
print " </tr>";
print " <tr class=titulo-celdanew>";
print "\t\t<td width='100'>Cuenta</td>";
print "\t\t<td width='100'>Debe</td>";
print "\t\t<td width='100'>Haber</td>";
print "\t</tr>";
while ($row = $io_sql2->fetch_row($rs_data2)) {
$ls_cuenta = $row["sc_cuenta"];
$li_monto = $row["monto"];
$ls_debhab = $row["operacion"];
switch ($ls_debhab) {
case "D":
$li_debe = $li_monto;
$li_debe = $in_class_mis->uf_formatonumerico($li_debe);
$li_haber = "0,00";
$li_total_deb = $li_total_deb + $li_monto;
break;
case "H":
$li_debe = "0,00";
$li_haber = $li_monto;
$li_haber = $in_class_mis->uf_formatonumerico($li_haber);
$li_total_hab = $li_total_hab + $li_monto;
break;
}
print "<tr class=celdas-blancas>";
print "<td align=center width='100'>" . $ls_cuenta . "</td>";
print "<td align=right width='100'>" . $li_debe . "</td>";
print "<td align=right width='100'>" . $li_haber . "</td>";
print "</tr>";
}
$li_total_deb = $in_class_mis->uf_formatonumerico($li_total_deb);
$li_total_hab = $in_class_mis->uf_formatonumerico($li_total_hab);
print "\t<tr>";
print "\t\t<td align=right class='texto-azul'>Total</td>";
print "\t\t<td align=right class='texto-azul'>" . $li_total_deb . "</td>";
print "\t\t<td align=right class='texto-azul'>" . $li_total_hab . "</td>";
print " </tr>";
print "</table>";
}
$io_sql2->free_result($rs_data2);
print "<br><br>";
}
}
$io_sql->free_result($rs_data);
}
$li_totrow=$ds_voucher->getRowCount("numdoc");
for($li_i=1;$li_i<=$li_totrow;$li_i++)
{
unset($la_data);
$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 * 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];
$ls_fecha_corta=date("d/m/Y");
$ld_fecmov=$io_funciones->uf_convertirfecmostrar($ds_voucher->data["fecmov"][$li_i]);
$ls_mes = $io_fecha->uf_load_nombre_mes(substr($ld_fecmov,3,2));
$ls_fecha=$_SESSION["la_empresa"]["ciuemp"].", ".substr($ld_fecmov,0,2)." de ".$ls_mes;
$ls_agnio=substr($ld_fecmov,-4,4);
$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;
$ls_monto=$numalet->uf_convertir_letra($ldec_total,'','');
uf_print_encabezado_pagina(number_format($ldec_total,2,",","."),$ls_nomproben,$ls_monto,$ls_fecha,$ls_agnio,$io_pdf,$ls_fecha_corta); // Imprimimos el encabezado de la p�ina
uf_print_cabecera($ls_numdoc,$ls_nomban,$ls_ctaban,$ls_chevau,$ls_nomproben,$ls_solicitudes,$ls_conmov,$io_pdf); // Imprimimos la cabecera del registro
$ds_dt_scg->data=$class_report->uf_cargar_dt_scg($ls_numdoc,$ls_codban,$ls_ctaban,$ls_codope); // Obtenemos el detalle del reporte
$la_items = array('0'=>'scg_cuenta');
$la_suma = array('0'=>'monto');
function uf_print_encabezado_pagina(&$ldec_monto,$ls_nomproben,$ls_monto,$ls_fecha,&$io_pdf)
{
//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Function: uf_print_encabezado_pagina
// Acess: private
// Arguments: ldec_monto : Monto del cheque
// ls_nomproben: Nombre del proveedor o beneficiario
// ls_monto : Monto en letras
// ls_fecha : Fecha del cheque
// io_pdf : Instancia de objeto pdf
// Description: función que imprime los encabezados por página
// Creado Por: Ing. Nelson Barraez
// Fecha Creación: 25/04/2006
//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
require_once("../../shared/class_folder/class_fecha.php");
$io_fecha = new class_fecha();
$li_nummes = substr($ls_fecha,14,2);
$ls_nommes = $io_fecha->uf_load_nombre_mes($li_nummes);
unset($io_fecha);
global $valores;
//Imprimo el monto
$io_pdf->add_texto($valores[0],$valores[1],10,"<b>***".$ldec_monto."***</b>");
//Beneficiario del Cheque
$io_pdf->add_texto($valores[2],$valores[3],11,"<b>$ls_nomproben</b>");
$ls_anio=substr($ls_fecha,-4);
$ls_fecha_corta=substr($ls_fecha,0,(strlen($ls_fecha)-8)).'de '.$ls_nommes;
//Fecha del Cheque
$io_pdf->add_texto($valores[8],$valores[9],9,"<b>$ls_fecha_corta</b>");
$io_pdf->add_texto($valores[10],$valores[11],9,"<b>$ls_anio</b>");
$io_pdf->add_texto($valores[12],$valores[13],9,"<b>NO ENDOSABLE</b>");
$io_pdf->add_texto($valores[14],$valores[15],9,"<b>CADUCA A LOS ".$_SESSION["la_empresa"]["diacadche"]." DIAS</b>");
}// end function uf_print_encabezadopagina
{
print("<script language=JavaScript>");
print(" alert('No hay nada que Reportar');");
print(" close();");
print("</script>");
}
else // Imprimimos el reporte
{
if ($li_totcodper==1)
{
for($li_i=1;(($li_i<=$li_totrow)&&($lb_valido));$li_i++)
{
$ls_ente=$_SESSION["la_empresa"]["nombre"];
$ld_fecha=date("d/m/Y");
$ls_dia_act=substr($ld_fecha,0,2);
$ls_mes_act=$io_fecha->uf_load_nombre_mes(substr($ld_fecha,3,2));
$ls_ano_act=substr($ld_fecha,6,4);
$ls_original=$io_report->DS->data["arcrtfcont"][$li_i];
$lb_valido=$io_report->uf_constanciatrabajo_personal($ls_codnom,$li_rac,$ls_codperdes,$ls_codperhas); // Obtenemos el detalle del reporte
if($lb_valido)
{
$li_totrow_det=$io_report->DS_detalle->getRowCount("codper");
$ls_archivo="../../srh/documentos/original/".$ls_original;
$ls_copia=substr($ls_original,0,strrpos($ls_original,"."));
$ls_salida="../../srh/documentos/copia/".$ls_copia."-".$_SESSION["la_logusr"].".rtf";
$ls_contenido="";
$ls_contenido=uf_leer_archivo($ls_archivo);
$la_matriz=explode("sectd",$ls_contenido);
$ls_cabecera=$la_matriz[0]."sectd";
$li_inicio=strlen($ls_cabecera);
$li_final=strrpos($ls_contenido,"}");
$ls_periodo=$io_fun_nomina->uf_obtenervalor_get("periodo","");
$ls_tiporeporte=$io_fun_nomina->uf_obtenervalor_get("tiporeporte",0);
global $ls_tiporeporte;
if($ls_tiporeporte==1)
{
require_once("sigesp_snorh_class_reportbsf.php");
$io_report=new sigesp_snorh_class_reportbsf();
}
$ls_desperiodo="";
$ls_desrango="";
switch($ls_periodo)
{
case "1": // Mensual
$ls_desperiodo="MES";
$ls_mes=substr($ls_rango,0,2);
$ls_desrango=$io_fecha->uf_load_nombre_mes($ls_mes);
break;
case "2": // Bi-Mensual
$ls_desperiodo="BIMESTRE";
$ls_mes=substr($ls_rango,0,2);
$ls_desrango=$io_fecha->uf_load_nombre_mes($ls_mes);
$ls_mes=substr($ls_rango,3,2);
$ls_desrango=$ls_desrango."-".$io_fecha->uf_load_nombre_mes($ls_mes);
break;
case "3": // Trimestral
$ls_desperiodo="TRIMESTRE";
$ls_mes=substr($ls_rango,0,2);
$ls_desrango=$io_fecha->uf_load_nombre_mes($ls_mes);
$ls_mes=substr($ls_rango,3,2);
$ls_desrango=$ls_desrango."-".$io_fecha->uf_load_nombre_mes($ls_mes);
break;
$cmbnivel=$_GET["cmbnivel"];
if($cmbnivel=="s1")
{
$li_cmbnivel="1";
}
else
{
$li_cmbnivel=$cmbnivel;
}
$ls_cmbmes=$_GET["cmbmes"];
$li_mes=substr($ls_cmbmes,0,2);
$ldt_fecdes=$li_ano."-".$li_mes."-01";
$ldt_ult_dia=$io_fecha->uf_last_day($li_mes,$li_ano);
$fechas=$ldt_ult_dia;
$ldt_fechas=$io_funciones->uf_convertirdatetobd($fechas);
$ls_mes=$io_fecha->uf_load_nombre_mes($li_mes);
//---------------------------------------------------- Parámetros del encabezado -----------------------------------------------
$ls_titulo=" <b>EJECUCION FINANCIERA MENSUAL DEL PRESUPUESTO DE GASTOS (FORMA 0514)</b>";
//--------------------------------------------------------------------------------------------------------------------------------
// Cargar el dts_cab con los datos de la cabecera del reporte( Selecciono todos comprobantes )
$lb_valido=$io_report->uf_spg_reportes_select_ejecucion_financiera_forma0514($ls_codestpro1,$ls_codestpro2,
$ls_codestpro3,$ls_codestpro4,
$ls_codestpro5,$ls_codestpro1h,
$ls_codestpro2h,$ls_codestpro3h,
$ls_codestpro4h,$ls_codestpro5h);
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>");
if($li_totrow>0)
{
$li_i=0;
while((!$rs_data->EOF))
{
$li_i++;
$ls_codestpro1=$rs_data->fields["codestpro1"];
$ls_codestpro2=$rs_data->fields["codestpro2"];
$ls_codestpro3=$rs_data->fields["codestpro3"];
$ls_codestpro4=$rs_data->fields["codestpro4"];
$ls_codestpro5=$rs_data->fields["codestpro5"];
$ls_codpro=$ls_codestpro1.$ls_codestpro2.$ls_codestpro3.$ls_codestpro4.$ls_codestpro5;
$ls_cuenta=rtrim($rs_data->fields["spg_cuenta"]);
$ls_codusu=rtrim($rs_data->fields["codusu"]);
$ls_fecha=$io_funciones->uf_convertirfecmostrar($rs_data->fields["fecha"]);
$ls_mesaumento=$io_fecha->uf_load_nombre_mes($rs_data->fields["mesaumento"]);
$ls_mesdisminucion=$io_fecha->uf_load_nombre_mes($rs_data->fields["mesdisminucion"]);
$li_monto=number_format($rs_data->fields["monto"],2,',','.');
uf_formatoprogramatica($ls_codpro,&$ls_programatica);
$la_data[$li_i]=array('programatica'=>$ls_programatica,'cuenta'=>$ls_cuenta,'codusu'=>$ls_codusu,'fecha'=>$ls_fecha,'mesaumento'=>$ls_mesaumento,
'mesdisminucion'=>$ls_mesdisminucion,'monto'=>$li_monto);
$rs_data->MoveNext();
}
uf_print_encabezado_pagina($ls_titulo,&$io_pdf);
uf_print_detalle($la_data,&$io_pdf);
}
else
{
print("<script language=JavaScript>");
print(" alert('No hay nada que Reportar');");
function uf_print_pie_detalle($as_estpro,$as_numordcom,$as_nombre,$as_montotart,$as_ciuemp,$adt_fecrec,&$io_pdf)
{
//////////////////////////////////////////////////////////////////////////////////////////
// Function: uf_print_pie_detalle
// Acess: private
// Arguments: la_data // arreglo de informaci�n
// io_pdf // Objeto PDF
// Description: funci�n que imprime el detalle
// Creado Por: Ing. Yesenia Moreno
// Modificado Por: Ing. Yozelin Barrag�n
// Fecha Creaci�n: 05/02/2007
//////////////////////////////////////////////////////////////////////////////////////////
/*require_once("../../shared/class_folder/cnumero_letra.php");
$io_letra = new cnumero_letra();*/
//Instancio a la clase de conversi�n de numeros a letras.
global $ls_tipoformato;
include("../../shared/class_folder/class_numero_a_letra.php");
$numalet= new class_numero_a_letra();
//imprime numero con los valore por defecto
//cambia a minusculas
$numalet->setMayusculas(1);
//cambia a femenino
$numalet->setGenero(1);
//cambia moneda
if($ls_tipoformato==1)
{
$numalet->setMoneda("Bolivares Fuerte");
$ls_moneda="EN Bs.F.";
$ls_titulo="Bs.F:";
}
else
{
$numalet->setMoneda("Bolivares");
$ls_moneda="EN Bs.";
$ls_titulo="Bs:";
}
//cambia prefijo
$numalet->setPrefijo("***");
//cambia sufijo
$numalet->setSufijo("***");
require_once("../../shared/class_folder/class_fecha.php");
$io_fecha = new class_fecha();
if($as_estpro==0)
{
$ls_tipo_orden=" Orden de Compra ";
}
else
{
$ls_tipo_orden=" Factura ";
}
$ls_prefijo="";
$ls_sufijo="";
//$ls_monto_letras=$io_letra->uf_convertir_letra($as_montotart,$ls_prefijo,$ls_sufijo);
$numalet->setNumero($as_montotart);
$ls_monto_letras= $numalet->letra();
require_once("../../shared/class_folder/class_funciones.php");
$funciones=new class_funciones();
$gestor=$_SESSION["ls_gestor"];
if ($gestor=="INFORMIX")
{
$adt_fecrec=$funciones->uf_formatovalidofecha($adt_fecrec);
$adt_fecrec=$funciones->uf_convertirfecmostrar($adt_fecrec);
}
$li_dia=substr($adt_fecrec,0,2);
$li_mes=substr($adt_fecrec,3,2);
$li_agno=substr($adt_fecrec,6,4);
$ls_mes=$io_fecha->uf_load_nombre_mes($li_mes);
$io_pdf->ezSetY(350);
$io_encabezado=$io_pdf->openObject();
$io_pdf->saveState();
$la_data=array(array('name'=>'los cuales fueron recibidos '.$adt_fecrec.' segun <b>'.$ls_tipo_orden.' No. '.$as_numordcom.'</b> Acta levantada '),
array('name'=>'al efecto, en la forma siguiente: El represenante del <b>"'.trim($as_nombre).'"</b> '),
array('name'=>'luego de haber constatado que <b>"LA EMPRESA"</b> ejecuto el suministro señalado en la referida '.$ls_tipo_orden.', declarada <b>ACEPTADA</b> la compra .'),
array('name'=>'El monto correspondiente a este suministro es de ('.$ls_titulo.' '.number_format($as_montotart,2,",",".").' )'),
array('name'=>'<b>'.$ls_monto_letras.'</b>'),
array('name'=>'En prueba de conformidad se firma, en la ciudad de '.trim($as_ciuemp).', a los '.$li_dia.' dias del mes de '.$ls_mes.' de '.$li_agno.'. '));
$la_columnas=array('name'=>'','name'=>'','name'=>'','name'=>'');
$la_config=array('showHeadings'=>0, // Mostrar encabezados
'showLines'=>0, // Mostrar L�neas
'fontSize' => 12, // Tama�o de Letras
'shaded'=>0, // Sombra entre l�neas
'shadeCol'=>array(0.5,0.5,0.5),//array($r,$g,$b), // Color de la sombra
'xOrientation'=>'center', // Orientaci�n de la tabla
'width'=>550, // Ancho de la tabla
'maxWidth'=>550, // Ancho M�ximo de la tabla
'xPos'=>306, // Orientaci�n de la tabla
/*'cols'=>array('codart'=>array('justification'=>'center','width'=>100), // Justificaci�n y ancho de la
'denart'=>array('justification'=>'center','width'=>230), // Justificaci�n y
'canart'=>array('justification'=>'center','width'=>100), // Justificaci�n y
'preuniart'=>array('justification'=>'center','width'=>100))*/); // Justificaci�n y ancho de la
$io_pdf->ezTable($la_data,$la_columnas,'',$la_config);
$io_pdf->restoreState();
$io_pdf->closeObject();
$io_pdf->addObject($io_encabezado,'all');
}// end function uf_print_pie_detalle
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();
require_once("../../shared/class_folder/class_fecha.php");
$io_fecha=new class_fecha();
//---------------------------------------------------- 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>RECIBO DE PAGO</b>";
$ls_periodo="<b>MES: ".$io_fecha->uf_load_nombre_mes(substr($ld_fecdesper,3,2))." / ".substr($ld_fecdesper,6,4)."</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_codbendes=$io_fun_nomina->uf_obtenervalor_get("codbendes","");
$ls_codbenhas=$io_fun_nomina->uf_obtenervalor_get("codbenhas","");
$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","");
$ls_codest=$io_fun_nomina->uf_obtenervalor_get("codest","");
{
require_once("sigesp_snorh_class_reportbsf.php");
$io_report=new sigesp_snorh_class_reportbsf();
$ls_bolivares="Bs.F.";
}
if($ls_anodes==$ls_anohas)
{
$ls_des_ano=$ls_anodes;
}
else
{
$ls_des_ano=$ls_anodes." al ".$ls_anohas;
}
if($ls_mesdes==$ls_meshas)
{
$ls_des_mes=$io_fecha->uf_load_nombre_mes($ls_mesdes);
}
else
{
$ls_des_mes=$io_fecha->uf_load_nombre_mes($ls_mesdes)." a ".$io_fecha->uf_load_nombre_mes($ls_meshas);
}
if($ls_perdes==$ls_perhas)
{
$ls_des_periodo=$ls_perdes;
}
else
{
$ls_des_periodo=$ls_perdes." al ".$ls_perhas;
}
$ls_periodo= "Año: ".$ls_des_ano." Mes: ".$ls_des_mes." - Período ".$ls_des_periodo;
set_time_limit(1800);
$li_totrow=$ds_concil->getRowCount("numdoc");
if(($data===false))
{
?>
<script language="javascript">
alert("Error al buscar datos de la conciliación");
close();
</script>
<?php
}
$io_pdf=new class_pdf('LETTER','portrait'); // Instancia de la clase PDF
$io_pdf->selectFont('../../shared/ezpdf/fonts/Helvetica.afm'); // Seleccionamos el tipo de letra
$io_pdf->set_margenes(2,30,3,3); // Configuración de los margenes en centímetros
$ld_fechasta=$io_fecha->uf_last_day(substr($ls_mesano,0,2),substr($ls_mesano,2,4));
$ls_mes=$io_fecha->uf_load_nombre_mes(substr($ls_mesano,0,2));
$ls_anio=substr($ls_mesano,2,4);
uf_print_encabezado_pagina($ls_nomban,$ls_mes,$ls_anio,&$io_pdf); //Se imprime la tabla de la cabecera
$li_temp=1;
uf_print_cabecera($ls_nomban,$ls_ctaban,$ls_tipo_cuenta,'',$io_pdf); // Se imprime la cuenta del reporte
uf_print_saldo_libro ($ld_fechasta,number_format($ldec_salseglib,2,",","."),&$io_pdf);// Se imprime el saldo segun libro
$la_data=array();
$la_data_cheque_mas = array();
$la_data_cheque_menos = array();
$la_data_nota_deb_mas = array();
$la_data_nota_deb_menos = array();
$la_data_nota_cred_mas = array();
$la_data_nota_cred_menos = array();
$la_data_retiro_mas = array();
$la_data_retiro_menos = array();
$la_data_deposito_mas = array();
$con = $io_in->uf_conectar();
$io_sql = new class_sql($con);
$io_report = new sigesp_cxp_class_report("../../");
require_once "../../shared/class_folder/class_funciones.php";
$io_funciones = new class_funciones();
require_once "../class_folder/class_funciones_cxp.php";
$io_fun_cxp = new class_funciones_cxp();
//---------------------------------------------------- Parmetros del encabezado -----------------------------------------------
$ls_mes = $_GET["mes"];
$ls_agno = $_GET["agno"];
$ls_titulo = "<b>Libro de Compras</b>";
$li_lastday = $io_fecha->uf_last_day($ls_mes, $ls_agno);
$li_lastday = substr($li_lastday, 0, 2);
$as_fechadesde = $ls_agno . '/' . $ls_mes . '/01';
$as_fechahasta = $ls_agno . '/' . $ls_mes . '/' . $li_lastday;
$ls_mesletras = $io_fecha->uf_load_nombre_mes($ls_mes);
$ls_periodo = "MES: " . $ls_mesletras . " AÑO" . $ls_agno . "";
//--------------------------------------------------------------------------------------------------------------------------------
$ld_monto = 0;
$ld_impuesto = 0;
$ld_sumcom = 0;
$ld_baseimp = 0;
$arremp = $_SESSION["la_empresa"];
$ls_codemp = $arremp["codemp"];
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, 2.5, 2.5);
{
$sueldo5=$sueldoper;
}
else
{
$sueldo5=0;
}
if ($ls_anocur==$ls_ano6)
{
$sueldo6=$sueldoper;
}
else
{
$sueldo6=0;
}
$nombre_mes=$io_fecha->uf_load_nombre_mes($mes_act);
$ls_data[$i]=array('periodo'=>$nombre_mes,
'sueldo1'=>number_format($sueldo1,2,",","."),
'sueldo2'=>number_format($sueldo2,2,",","."),
'sueldo3'=>number_format($sueldo3,2,",","."),
'sueldo4'=>number_format($sueldo4,2,",","."),
'sueldo5'=>number_format($sueldo5,2,",","."),
'sueldo6'=>number_format($sueldo6,2,",","."));
$i++;
$totalsue1=$totalsue1+$sueldo1;
$totalsue2=$totalsue2+$sueldo2;
$totalsue3=$totalsue3+$sueldo3;
$totalsue4=$totalsue4+$sueldo4;
$totalsue5=$totalsue5+$sueldo5;
$totalsue6=$totalsue6+$sueldo6;
}
