}
$entro=false;
$entrar=false;
$ls_promedio=round($ls_totalpuntos/12);
$io_report->uf_select_monto_bono_merito($ls_escala,$ls_promedio,$ls_monto);
$ls_monto1=$io_fun_nomina->uf_formatonumerico($ls_monto);
$la_data[$i]=array('codper'=>$ls_codper1,'nombper'=>$ls_cadena,'tipper'=>$ls_tipper,'codnom'=>$ls_codnom,
'monto'=>$ls_monto1);
$ls_totalpagar= $ls_totalpagar+$ls_monto;
uf_print_detalle($la_data,$io_pdf);
$ls_totalpagar=$io_fun_nomina->uf_formatonumerico($ls_totalpagar);
uf_print_totales($cont,$ls_totalpagar,$io_pdf);
if($lb_valido) // Si no ocurrio ningún error
{
$io_pdf->ezStopPageNumbers(1,1); // Detenemos la impresión de los números de página
$io_pdf->ezStream(); // Mostramos el reporte
}
else // Si hubo algún error
{
print("<script language=JavaScript>");
print(" alert('Ocurrio un error al generar el reporte. Intente de Nuevo');");
//print(" close();");
print("</script>");
}
}
}
$ls_estbpd = $io_report->ds_documentos->getValue("estbpd",$i);
if ($ls_estbpd=='T')
{
$ls_numdoc = $ls_numcarord;
}
//$ls_operacion = $io_report->ds_documentos->getValue("codope",$i);
$ld_mon = number_format($ldec_monto,2,",",".");
$la_data[$i] = array('fecha'=>$ld_fecmov,'documento'=>$ls_numdoc,'operacion'=>$ls_codope,
'proveedor'=>$ls_nomproben,'monto'=>$ld_mon,'estmov'=>$ls_estmov);
}
uf_print_detalle($la_data,&$io_pdf);
$ldec_saldo = ($ld_totcre-$ld_totdeb);//Calculo del saldo total para todas las cuentas
$ld_totcre = number_format($ld_totcre,2,",",".");
$ld_totdeb = number_format($ld_totdeb,2,",",".");
$ldec_saldo = number_format($ldec_saldo,2,",",".");
uf_print_totales($ld_totdeb,$ld_totcre,$ldec_saldo,&$io_pdf);
if($lb_valido) // Si no ocurrio ningún error
{
$io_pdf->ezStopPageNumbers(1,1); // Detenemos la impresión de los números de página
$io_pdf->ezStream(); // Mostramos el reporte
}
else // Si hubo algún error
{
print("<script language=JavaScript>");
print(" alert('Ocurrio un error al generar el reporte. Intente de Nuevo');");
print(" close();");
print("</script>");
}
unset($io_pdf);
}
else
'total'=>'<b>'.number_format($ls_total_global,2,",",".").'</b>');
}
}// fin del for
}
if ($li_total>0)
{
uf_print_cabecera($ls_codestpro1,$ls_codestpro2,$ls_codestpro3,$ls_codestpro4,$ls_codestpro5,
$ls_denestpro1,$ls_denestpro2,$ls_denestpro3,$ls_denestpro4,$ls_denestpro5,
$ls_unidad,$ls_denunidad, $io_pdf);
uf_print_detalle($ls_data, &$io_pdf);
uf_print_totales(number_format($total_asignado,2,",","."),
number_format($total_cedente1,2,",","."),
number_format($total_traspaso1,2,",","."),
number_format($total_incremento1,2,",","."),
number_format($total_general1,2,",","."),
number_format($total_incremento2,2,",","."),
number_format($total_cedente2,2,",","."),
number_format($total_traspaso2,2,",","."),
number_format($total_general2,2,",","."),
number_format($total,2,",","."),&$io_pdf);
}
}// fin del for
if (($li_totfila>0)&&($li_total>0))
{
$io_pdf->ezStream();
}
else
{
print("<script language=JavaScript>");
print(" alert('No hay nada que Reportar');");
print(" close();");
$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;
uf_print_totales($li_total,$li_conact,$li_conexc,$ls_estconper,$io_pdf);
}
if($lb_valido) // Si no ocurrio ningún error
{
$io_pdf->ezStopPageNumbers(1,1); // Detenemos la impresión de los números de página
$io_pdf->ezStream(); // Mostramos el reporte
}
else // Si hubo algún error
{
print("<script language=JavaScript>");
print(" alert('Ocurrio un error al generar el reporte. Intente de Nuevo');");
print(" close();");
print("</script>");
}
}
$la_data[$li_s] = array('numrecdoc' => $ls_numdoccom, 'sc_cuenta' => $ls_sccuenta, 'mondeb' => $li_montodebe, 'monhab' => $li_montohab);
}
$li_totdeb = number_format($li_totdeb, 2, ",", ".");
$li_tothab = number_format($li_tothab, 2, ",", ".");
uf_print_detalle_scg($la_data, $li_totdeb, $li_tothab, &$io_pdf);
unset($la_data);
}
$li_mondeddoc = $li_mondeddoc - $li_monretiva;
$li_montotdoc = $li_montotdoc + $li_monretiva;
$li_montotdoc = number_format($li_montotdoc, 2, ",", ".");
$li_mondeddoc = number_format($li_mondeddoc, 2, ",", ".");
$li_moncardoc = number_format($li_moncardoc, 2, ",", ".");
$li_monsubdoc = number_format($li_monsubdoc, 2, ",", ".");
$li_montotcar = number_format($li_montotcar, 2, ",", ".");
uf_print_totales($li_montotdoc, $li_mondeddoc, $li_moncardoc, $li_monsubdoc, $li_montotcar, &$io_pdf);
if ($ls_estretiva == "B") {
$li_monretiva = number_format($li_monretiva, 2, ",", ".");
uf_print_retenciones_iva($li_monretiva, $io_pdf);
}
}
}
if ($lb_valido) {
$io_pdf->ezStopPageNumbers(1, 1);
// Detenemos la impresión de los números de página
$io_pdf->ezStream();
// Mostramos el reporte
} else {
print "<script language=JavaScript>";
print " alert('Ocurrio un error al generar el reporte. Intente de Nuevo');";
print " close();";
$li_numpag = $io_pdf->ezPageCount;
// Número de página
$ls_cmpent = $io_report->ds->data["cmpent"][1];
$ld_fecent = $io_report->ds->data["fecent"][1];
$ls_nomres = $io_report->ds->data["nomres"][1];
$ls_nomrec = $io_report->ds->data["nomrec"][1];
$ls_nomdes = $io_report->ds->data["nomdes"][1];
$ls_codres = $io_report->ds->data["cedres"][1];
$ls_codrec = $io_report->ds->data["cedrec"][1];
$ls_coddes = $io_report->ds->data["ceddes"][1];
$ls_carres = $io_report->ds->data["carres"][1];
$ls_carrec = $io_report->ds->data["carrec"][1];
$ls_cardes = $io_report->ds->data["cardes"][1];
uf_print_cabecera($ls_codemp, $ls_nomemp, $ls_coduniadm, $ls_denuniadm, $ls_codunisol, $ls_denunisol, $ls_codres, $ls_nomres, $io_pdf);
// Imprimimos la cabecera del registro
uf_print_totales($ls_nomrec, $ls_codrec, $ls_carrec, $ls_nomdes, $ls_coddes, $ls_cardes, $io_pdf);
if ($lb_valido) {
$li_totrow_det = $io_report->ds_detalle->getRowCount("codact");
for ($li_s = 1; $li_s <= $li_totrow_det; $li_s++) {
$ls_codart = $io_report->ds_detalle->data["codact"][$li_s];
$ls_denart = $io_report->ds_detalle->data["denact"][$li_s];
$ls_catalogo = $io_report->ds_detalle->data["catalogo"][$li_s];
$li_costo = $io_report->ds_detalle->data["costo"][$li_s];
$li_cantidad = $io_report->ds_detalle->data["cantidad"][$li_s];
$li_total = $li_costo * $li_cantidad;
$li_cantidad = $io_fun_activos->uf_formatonumerico($li_cantidad);
$li_costo = $io_fun_activos->uf_formatonumerico($li_costo);
$li_total = $io_fun_activos->uf_formatonumerico($li_total);
$la_data[$li_s] = array('cantidad' => $li_cantidad, 'catalogo' => $ls_catalogo, 'codact' => $ls_codart, 'denact' => $ls_denart, 'costo' => $li_costo, 'total' => $li_total);
}
}
}
}
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
if (empty($la_data))
{
$ls_cuentaspg='';
$ls_estpro='';
$ldec_monto_spg='';
$ls_scg_cuenta='';
$ls_denctascg="";
$ldec_mondeb='';
$ldec_monhab='';
$la_data[1]=array('estpro'=>$ls_estpro,'spg_cuenta'=>$ls_cuentaspg,'denctaspg'=>$ls_denctaspg,'monto_spg'=>$ldec_monto_spg,'scg_cuenta'=>$ls_scg_cuenta,'denctascg'=>$ls_denctascg,'debe'=>$ldec_mondeb,'haber'=>$ldec_monhab);
$la_data[2]=array('estpro'=>$ls_estpro,'spg_cuenta'=>$ls_cuentaspg,'denctaspg'=>$ls_denctaspg,'monto_spg'=>$ldec_monto_spg,'scg_cuenta'=>$ls_scg_cuenta,'denctascg'=>$ls_denctascg,'debe'=>$ldec_mondeb,'haber'=>$ldec_monhab);
$la_data[3]=array('estpro'=>$ls_estpro,'spg_cuenta'=>$ls_cuentaspg,'denctaspg'=>$ls_denctaspg,'monto_spg'=>$ldec_monto_spg,'scg_cuenta'=>$ls_scg_cuenta,'denctascg'=>$ls_denctascg,'debe'=>$ldec_mondeb,'haber'=>$ldec_monhab);
}
$io_pdf->y=190;
$io_pdf->y=440;
$io_pdf->set_margenes(138,70,$x_pos,0);
uf_print_detalle($la_data,$li_totrow_spg,$io_pdf,$x_pos);
uf_print_totales($ld_montotdeb,$ld_montothab,$io_pdf);
uf_print_firmas($io_pdf);
}
$io_pdf->ezStopPageNumbers(1,1);
$io_pdf->ezStream();
unset($io_pdf);
unset($class_report);
unset($io_funciones);
?>
'width'=>735, // Ancho de la tabla
'maxWidth'=>735,
'fontSize'=>8,
'cols'=>array('fecha'=>array('justification'=>'center','width'=>45),
'operacion'=>array('justification'=>'center','width'=>50),
'numdoc'=>array('justification'=>'center','width'=>70),
'estmov'=>array('justification'=>'center','width'=>40),
'beneficiario'=>array('justification'=>'left','width'=>130),
'region'=>array('justification'=>'center','width'=>50),
'codestpro'=>array('justification'=>'center','width'=>140),
'spgcta'=>array('justification'=>'center','widht'=>45),
'denctaspg'=>array('justification'=>'left','width'=>80),
'monto'=>array('justification'=>'right','width'=>80))); // Ancho Máximo de la tabla
uf_print_detalle($la_columna,$la_config,$la_data,$io_pdf); // Imprimimos el detalle
unset($la_data);
uf_print_totales(number_format($ldec_total_debe,2,",","."),number_format($ldec_total_haber,2,",","."),number_format($ldec_saldoactual,2,",","."),$io_pdf); // Imprimimos el detalle
$io_pdf->transaction('commit');
$io_pdf->ezStopPageNumbers(1,1);
$io_pdf->ezStream();
unset($io_pdf);
unset($io_report);
unset($io_funciones);
}
else
{
print("<script language=JavaScript>");
print(" alert('No hay nada que Reportar');");
print(" close();");
print("</script>");
}
}
$total_cagorprogm=$total_cagorprogm+$ls_cargom;
$total_cagorprogv=$total_cagorprogv+$ls_cargov;
$total_cagorrealf=$total_cagorrealf+$ls_cargorealf;
$total_cagorrealm=$total_cagorrealm+$ls_cargorealm;
$total_cagorrealv=$total_cagorrealv+$ls_cargorealv;
$total_montoacum=$total_montoacum+$ls_montoacum;
}
}//fin del for
if ($li_totrow>0)
{
uf_print_detalle($la_data,$io_pdf); // Imprimimos el detalle
uf_print_totales($total_cagorprogf,$total_cagorprogm, $total_cagorprogv,$li_totalcargoprog,$li_totalmontoprog,
$total_cagorrealf,$total_cagorrealm,$total_cagorrealv,$li_totalcargoreal,$li_totalmontoreal,
$total_montoacum,&$io_pdf);
unset($la_data);
}
if(($lb_valido)&&($li_totrow>0)) // Si no ocurrio ningún error
{
$io_pdf->ezStream(); // Mostramos el reporte
}
else // Si hubo algún error
{
print("<script language=JavaScript>");
print(" alert('No hay nada que Reportar');");
print(" close();");
print("</script>");
}
unset($io_pdf);
if ($ls_codigo != $ls_codigoant) {
if ($li_z >= 1) {
$io_pdf->ezNewPage();
}
uf_print_encabezado($ls_agente, $ls_nombre, $ls_rif, $ls_nit, $ls_telefono, $ls_direccion, $io_pdf);
$ls_codigoant = $ls_codigo;
}
$la_data[$li_i] = array('fecact' => $ld_fecact, 'numrecdoc' => $ls_numdoc . " / " . $ls_numref, 'fecemi' => $ld_fecemidoc, 'montotdoc' => $ld_montotdoc, 'monobjret' => $ld_monobjret, 'porcentaje' => $ld_porcentaje . '%', 'sustraendo' => $ld_monded, 'retenido' => $ld_monret);
}
}
$ld_totfaccom = number_format($ld_totfaccom, 2, ',', '.');
$ld_totbasimp = number_format($ld_totbasimp, 2, ',', '.');
$ld_totmonret = number_format($ld_totmonret, 2, ',', '.');
$la_datatot[1] = array('totales' => "<b>TOTALES</b>", 'montotdoc' => '<b>' . $ld_totfaccom . '</b>', 'concepto' => "", 'monobjret' => '<b>' . $ld_totbasimp . '</b>', 'porcentaje' => "", 'sustraendo' => "", 'retenido' => '<b>' . $ld_totmonret . '</b>');
uf_print_detalle($la_data, $io_pdf);
uf_print_totales($la_datatot, $io_pdf);
uf_print_sello($io_pdf);
}
if ($lb_valido) {
$io_pdf->ezStopPageNumbers(1, 1);
// Detenemos la impresión de los números de página
$io_pdf->ezStream();
// Mostramos el reporte
} else {
print "<script language=JavaScript>";
print " alert('Ocurrio un error al generar el reporte. Intente de Nuevo');";
print " close();";
print "</script>";
}
unset($io_pdf);
}
$ls_tipoope="CHEQUE";
elseif(($ls_tipoope=="ND") && ($ls_estbpd=="T"))
$ls_tipoope="CARTA ORDEN";
else
$ls_tipoope="NOTA DE DEBITO";
$ldec_total=$ldec_total+$ldec_monto;
if (strlen($ls_conmov)>48)
{
$ls_conmov=substr($ls_conmov,0,46)."..";
}
$la_data[$i]=array('beneficiario'=>$ls_nomproben,'solicitud'=>$ls_numsol,'cuenta'=>$ls_ctaban,'documento'=>$ls_numdoc,'operacion'=>$ls_tipoope,
'fecha'=>$ld_fecmov,'monto'=>number_format($ldec_monto,2,",","."),'monret'=>number_format($ld_monret,2,",","."),'conmov'=>$ls_conmov);
}
uf_print_detalle($la_data,$ls_tiprep,&$io_pdf);
$ldec_total=number_format($ldec_total,2,",",".");
uf_print_totales($ldec_total,&$io_pdf);
if($lb_valido) // Si no ocurrio ningún error
{
$io_pdf->ezStopPageNumbers(1,1); // Detenemos la impresión de los números de página
$io_pdf->ezStream(); // Mostramos el reporte
}
else // Si hubo algún error
{
print("<script language=JavaScript>");
print(" alert('Ocurrio un error al generar el reporte. Intente de Nuevo');");
print(" close();");
print("</script>");
}
unset($io_pdf);
}
else
case "4":
$ls_tipper="Otro";
break;
default:
$ls_tipper="";
break;
}
$ls_obsper=rtrim($io_report->DS_detalle->data["obsper"][$li_k]);
$la_data[$li_k]=array('numper'=>$li_numper,'feciniper'=>$ld_feciniper,'fecfinper'=>$ld_fecfinper,
'numdiaper'=>$li_numdiaper,'afevacper'=>$ls_afevacper,'remper'=>$ls_remper,
'tipper'=>$ls_tipper,'obsper'=>$ls_obsper,'numhoras'=>$ls_numhoras);
}
uf_print_datos($la_data,&$io_pdf);
uf_print_totales($ls_totdia_rem,$ls_tothoras_rem,$ls_totdia_no_rem,$ls_tothoras_no_rem,
$ls_totdia_des_vac,$ls_tothoras_des_vac,&$io_pdf);
unset($la_data);
$io_report->DS_detalle->resetds("numper");
}
}// fin del for de permisos
$io_report->DS->resetds("codper");
}// fin del for (unidad)
if($lb_valido) // Si no ocurrio ningún error
{
$io_pdf->ezStopPageNumbers(1,1); // Detenemos la impresión de los números de página
$io_pdf->ezStream(); // Mostramos el reporte
}
else // Si hubo algún error
{
$io_pdf->ezSetCmMargins(5.6, 3, 3, 3);
// Configuración de los margenes en centímetros
$ld_fecha = $io_report->ds_detalle->data["feccmp"][1];
$ld_fecha = $io_funciones->uf_convertirfecmostrar($ld_fecha);
uf_print_encabezado_pagina($ls_titulo, $ls_cmpmov, $ls_fecha, $io_pdf);
// Imprimimos el encabezado de la página
$io_pdf->transaction('start');
// Iniciamos la transacción
$li_numpag = $io_pdf->ezPageCount;
// Número de página
$ls_cmpmov = $io_report->ds_detalle->data["cmpmov"][1];
$ls_codcau = $io_report->ds_detalle->data["codcau"][1];
$ls_dencau = $io_report->ds_detalle->data["dencau"][1];
uf_print_cabecera($ls_codemp, $ls_nomemp, $ls_coduniadm, $ls_denuniadm, $io_pdf);
// Imprimimos la cabecera del registro
uf_print_totales($ls_nomres, $ls_cedres, $ls_cargo, $io_pdf);
if ($lb_valido) {
$li_aux = 0;
$li_totrow_det = $io_report->ds_detalle->getRowCount("codact");
//print_r($io_report->ds_detalle->data)."<br>";
for ($li_s = 1; $li_s <= $li_totrow_det; $li_s++) {
$ls_auxcoduniadm = $io_report->ds_detalle->data["coduniadm"][$li_s];
$ls_codart = $io_report->ds_detalle->data["codact"][$li_s];
$ls_serial = $io_report->ds_detalle->data["seract"][$li_s];
$ls_denart = $io_report->ds_detalle->data["denact"][$li_s];
$ls_catalogo = $io_report->ds_detalle->data["catalogo"][$li_s];
$li_ideact = $io_report->ds_detalle->data["ideact"][$li_s];
$ls_codcau = $io_report->ds_detalle->data["codcau"][$li_s];
$ls_dencau = $io_report->ds_detalle->data["dencau"][$li_s];
$li_costo = $io_report->ds_detalle->data["costo"][$li_s];
$li_cantidad = $io_report->ds_detalle->data["cantidad"][$li_s];
}
$la_data[$li_i]=array('codper'=>$ls_codper,'nombper'=>$ls_cadena,'uniadm'=>$ls_desuniadm,'cargo'=>$ls_cargo,
'fecha'=>$ls_fecha,'tipo'=>$ls_tipo,'causa'=>$ls_causas);
$li_i=$li_i+1;
$ls_causas="";
}
}
uf_print_encabezado_pagina($ls_titulo1,$io_pdf);
uf_print_detalle($la_data,$io_pdf);
$li_total_amo= $ls_cont1 + $ls_cont2;
$li_total_llam= $ls_cont3 + $ls_cont4;
uf_print_totales($ls_cont1,$ls_cont2,$ls_cont3,$ls_cont4, $li_total_amo, $li_total_llam,$io_pdf);
if($lb_valido) // Si no ocurrio ningún error
{
$io_pdf->ezStopPageNumbers(1,1); // Detenemos la impresión de los números de página
$io_pdf->ezStream(); // Mostramos el reporte
}
else // Si hubo algún error
{
print("<script language=JavaScript>");
print(" alert('Ocurrio un error al generar el reporte. Intente de Nuevo');");
//print(" close();");
print("</script>");
}
}
}
?>
while ($row=$io_sql->fetch_row($rs_datos))
{
$li_i++;
$ls_codite = $row["codite"];
$ls_denite = $row["denite"];
$ld_canite = number_format($row["canite"],2,',','.');
$ld_preite = number_format($row["preite"],2,',','.');
$ld_subite = number_format($row["subite"],2,',','.');
$ld_totite = number_format($row["totite"],2,',','.');
$la_datos[$li_i] = array('codite'=>$ls_codite,'denite'=>$ls_denite,'canite'=>$ld_canite,'preite'=>$ld_preite,'subite'=>$ld_subite,'totite'=>$ld_totite);
}
uf_print_encabezado_pagina($ls_titulo,$ls_numcot,$ls_feccot,$ls_tipo,$ls_obscot,$ls_numsolcot,$io_pdf);
uf_print_datos_proveedor($ls_codpro,$ls_nompro,$ls_dirpro,$ls_telpro,$ls_mailpro,$ls_rifpro,$io_pdf);
uf_print_detalle($la_datos,$io_pdf);
uf_print_totales($ld_subtotcot,$ld_totcrecot,$ld_montotcot,&$io_pdf);
$io_pdf->setStrokeColor(0,0,0);
$io_pdf->line(20,50,580,50);
$io_pdf->ezStopPageNumbers(1,1);
$io_pdf->ezStream();
}
else
{
$lb_valido = false;
}
}
}
else
{
print("<script language=JavaScript>");
print(" alert('No hay nada que Reportar !!!');");
if ($li_retaposol == 1) {
$ls_numcom = $ls_numcomapo;
}
if (empty($ls_numcom)) {
$ls_numcom = iif(empty($ls_numcomiva), iif(empty($ls_numcommun), iif(empty($ls_numcomapo), '', $ls_numcomapo), $ls_numcommun), $ls_numcomiva);
}
$la_data[$li_i] = array('beneficiario' => $ls_nombre, 'solicitud' => $ls_numsol, 'fecha' => $ld_fecemisol, 'numcom' => $ls_numcom, 'monto' => $li_monsol, 'porded' => $li_porded, 'retencion' => $li_monret);
}
if ($li_i > 1) {
$lb_existe = true;
uf_print_cabecera($ls_codded, $ls_dended, &$io_pdf);
uf_print_detalle($la_data, &$io_pdf);
// Imprimimos el detalle
$li_totbase = number_format($li_totbase, 2, ',', '.');
$li_totcargos = number_format($li_totcargos, 2, ',', '.');
uf_print_totales($li_totrow, $li_totcargos, $li_totbase, $io_pdf);
unset($la_data);
}
}
if (!$lb_existe) {
$lb_valido = false;
print "<script language=JavaScript>";
print " alert('No hay nada que Reportar');";
print " close();";
print "</script>";
}
if ($lb_valido) {
$io_pdf->ezStopPageNumbers(1, 1);
// Detenemos la impresión de los números de página
$io_pdf->ezStream();
// Mostramos el reporte
$ls_codcomaux=$ls_codcom;
}
if (($ls_codranaux!=$ls_codran)&&($ls_codcat!=""))
{
$ls_codranaux=$ls_codran;
if ($sumar>0)
{
uf_print_cabecera("RANGO: ".$ls_denran,'left',0,2,&$io_pdf);
uf_print_cabecera("CATEGORIA: ".$ls_dencat,'left',0,2,&$io_pdf);
uf_print_detalle($ls_data,$io_pdf);
unset($ls_data);
}
}
$io_report->rs_data->MoveNext();
}//fin del for
uf_print_totales(number_format($subtotalper,0,"","."),number_format($sub_total,2,",","."),&$io_pdf);
if($lb_valido) // Si no ocurrio ningún error
{
$io_pdf->ezStopPageNumbers(1,1); // Detenemos la impresión de los números de página
$io_pdf->ezStream(); // Mostramos el reporte
}
else // Si hubo algún error
{
print("<script language=JavaScript>");
print(" alert('No hay nada que Reportar');");
print(" close();");
print("</script>");
}
unset($io_pdf);
}
unset($io_report);
$la_data1[1]=array('total'=>'<b>Total</b>','totcan'=>$li_totcan,'totpen'=>$li_totpen,'vacio'=>'--','totmon'=>$li_total);
uf_print_totales($la_data1,$io_pdf); // Imprimimos el detalle
if ($io_pdf->ezPageCount==$li_numpag)
{// Hacemos el commit de los registros que se desean imprimir
$io_pdf->transaction('commit');
}
else
{// Hacemos un rollback de los registros, agregamos una nueva página y volvemos a imprimir
$io_pdf->transaction('rewind');
if($li_numpag!=1)
{
$io_pdf->ezNewPage(); // Insertar una nueva página
}
uf_print_cabecera($ls_numconrec,$ls_numordcom,$ls_codpro,$ls_denpro,$ls_codalm,$ls_nomfisalm,$ls_obsrec,$io_pdf); // Imprimimos la cabecera del registro
uf_print_detalle($la_data,$io_pdf); // Imprimimos el detalle
uf_print_totales($la_data1,$io_pdf); // Imprimimos el detalle
}
}
unset($la_data);
}
if($lb_valido)
{
$io_pdf->ezStopPageNumbers(1,1);
$io_pdf->ezStream();
}
unset($io_pdf);
}
unset($io_report);
unset($io_funciones);
unset($io_fun_nomina);
?>
$li_monto = $io_report->uf_select_informacionpagos($ls_numsol);
if ($ls_estretiva == "B") {
$li_monretiva = $io_report->uf_select_det_deducciones_solpag($ls_numsol);
$li_monsol = $li_monsol + $li_monretiva;
}
$li_mondeuda = $li_monsol - $li_monto;
$ld_fecemisol = $io_funciones->uf_convertirfecmostrar($ld_fecemisol);
$li_totmonsol = $li_totmonsol + $li_monsol;
$li_totsaldo = $li_totsaldo + $li_mondeuda;
$li_monsol = number_format($li_monsol, 2, ',', '.');
$li_mondeuda = number_format($li_mondeuda, 2, ',', '.');
$la_data[$li_j] = array('numsol' => $ls_numsol, 'fecemisol' => $ld_fecemisol, 'consol' => $ls_consol, 'monsol' => $li_monsol, 'monto' => $li_mondeuda);
}
$li_totalfacpro = number_format($li_totalfacpro, 2, ',', '.');
uf_print_detalle_solicitudes($la_data, &$io_pdf);
uf_print_totales($li_totmonsol, $li_totsaldo, $io_pdf);
}
/* if ($io_pdf->ezPageCount==$li_numpag)
{// Hacemos el commit de los registros que se desean imprimir
$io_pdf->transaction('commit');
}
else
{// Hacemos un rollback de los registros, agregamos una nueva página y volvemos a imprimir
$io_pdf->transaction('rewind');
$io_pdf->ezNewPage(); // Insertar una nueva página
uf_print_cabecera($ls_codigo,$ls_nombre,$ls_tipproben,&$io_pdf);
uf_print_detalle_recepcion($la_data,$li_totrowfac,$li_totalfacpro,&$io_pdf);
}*/
unset($la_data);
}
if ($lb_valido) {
break;
case 'S':
$ls_denest = 'Programacion de Pago';
break;
case 'P':
$ls_denest = 'Pagada';
break;
}
$li_totmonsol = $li_totmonsol + $li_monsol;
$li_monsol = number_format($li_monsol, 2, ",", ".");
$ld_fecemisol = $io_funciones->uf_convertirfecmostrar($ld_fecemisol);
$la_data[$li_j] = array('numsol' => $ls_numsol, 'fecemisol' => $ld_fecemisol, 'consol' => $ls_consol, 'denest' => $ls_denest, 'monsol' => $li_monsol);
}
$li_j = $li_j - 1;
$ld_montotrep += $li_totmonsol;
$ld_totmonsol = number_format($li_totmonsol, 2, ",", ".");
uf_print_encabezado_pagina($ls_titulo, &$io_pdf);
uf_print_cabecera($ls_codigo, $ls_nombre, &$io_pdf);
uf_print_detalle($la_data, $li_j, $li_totmonsol, &$io_pdf);
uf_print_totales($li_totrow, $ld_totmonsol, $ls_nombre, $io_pdf);
}
$ld_montotrep = number_format($ld_montotrep, 2, ",", ".");
uf_print_totaldocumento($ld_montotrep, &$io_pdf);
}
if ($lb_valido) {
$io_pdf->ezStopPageNumbers(1, 1);
// Detenemos la impresión de los números de página
$io_pdf->ezStream();
// Mostramos el reporte
}
}
} else {
break;
}
$li_totalsaldo = $li_salsol;
$li_totgendeb = $li_totgendeb + $li_totaldebe;
$li_totgenhab = $li_totgenhab + $li_totalhaber;
$li_totgensal = $li_totgensal + $li_totalsaldo;
if (doubleval($li_totalsaldo) > 0) {
$li_totalsaldo = "(" . number_format($li_totalsaldo, 2, ',', '.') . ")";
} else {
$li_totalsaldo = abs($li_totalsaldo);
$li_totalsaldo = number_format($li_totalsaldo, 2, ',', '.');
}
$li_totalhaber = number_format($li_totalhaber, 2, ',', '.');
$li_totaldebe = number_format($li_totaldebe, 2, ',', '.');
uf_print_totales($li_totaldebe, $li_totalhaber, $li_totalsaldo, &$io_pdf);
if (!$lb_valido) {
break;
}
}
// fin for uf_select_solicitudes
uf_print_totales_generales($li_totgendeb, $li_totgenhab, $li_totgensal, &$io_pdf);
if ($lb_valido) {
$io_pdf->ezStopPageNumbers(1, 1);
$io_pdf->ezStream();
unset($io_pdf);
unset($io_report);
} else {
print "<script language=JavaScript>";
print " alert('Ocurrio un error al generarse el Reporte');";
print " close();";
$ldec_monhab=$ldec_monhab+$ldec_creditos;
$ldec_monant=$ldec_monant+$ldec_saldo_ant;
}
$la_columna=array('nomban'=>'<b>Banco</b>','tipcta'=>'<b>Tipo Cuenta</b>','dencta'=>'<b>Denominacion Cta.</b>','ctaban'=>'<b>Cuenta</b>','periodo'=>'<b>Año</b>','anterior'=>'<b>Anterior</b>',
'debitos'=>'<b>debitos</b>','creditos'=>'<b>Creditos</b>','saldo'=>'<b>Saldo</b>');
$la_config=array('showHeadings'=>1, // Mostrar encabezados
'showLines'=>0, // Mostrar Líneas
'shaded'=>0, // Sombra entre líneas
'shadeCol'=>array(0.95,0.95,0.95), // Color de la sombra
'shadeCol2'=>array(1.5,1.5,1.5), // Color de la sombra
'xOrientation'=>'center', // Orientación de la tabla
'width'=>730, // Ancho de la tabla
'maxWidth'=>730,
'fontSize'=>8,
'titleFontSize'=>10,
'cols'=>array('nomban'=>array('justification'=>'left','width'=>85),'tipcta'=>array('justification'=>'center','width'=>80),
'dencta'=>array('justification'=>'center','width'=>80),'ctaban'=>array('justification'=>'center','width'=>130),
'periodo'=>array('justification'=>'center','width'=>35),'anterior'=>array('justification'=>'right','width'=>80),
'debitos'=>array('justification'=>'right','width'=>80),'creditos'=>array('justification'=>'right','width'=>80),
'saldo'=>array('justification'=>'right','width'=>80))); // Ancho Máximo de la tabla
uf_print_detalle($la_columna,$la_config,$la_data,$io_pdf); // Imprimimos el detalle
unset($la_data);
$ldec_saldo_total=$ldec_total_saldo_ant+$ldec_totaldebitos-$ldec_totalcreditos;
uf_print_totales(number_format($ldec_total_saldo_ant,2,",","."),number_format($ldec_totaldebitos,2,",","."),number_format($ldec_totalcreditos,2,",","."),number_format($ldec_saldo_total,2,",","."),$io_pdf); // Imprimimos el detalle
$io_pdf->ezStopPageNumbers(1,1);
$io_pdf->ezStream();
unset($io_pdf);
unset($io_report);
unset($io_funciones);
?>
$ld_monto = $row["monto"];
$ld_monto = number_format($ld_monto,2,",",".");
$ls_dencuenta = "";
$lb_valido = $io_report->uf_select_denominacionspg($ls_spg_cuenta,$ls_dencuenta);
if ($ls_estmodest==1)
{
$ls_codestpro=$ls_codestpro1.'-'.$ls_codestpro2.'-'.$ls_codestpro3;
}
else
{
$ls_codestpro=substr($ls_codestpro1,-2)."-".substr($ls_codestpro2,-2)."-".substr($ls_codestpro3,-2)."-".substr($ls_codestpro4,-2)."-".substr($ls_codestpro5,-2);
}
$la_data[$li_s]=array('codestpro'=>$ls_codestpro,'denominacion'=>$ls_dencuenta,
'cuenta'=>$ls_spg_cuenta,'monto'=>$ld_monto);
}
uf_print_totales($ld_monsubtot,$ld_monimp,$ld_montot,$ls_monto,&$io_pdf);
uf_print_detalle_cuentas($la_data,&$io_pdf);
unset($la_data);
}
}
}
}
}
}
}
if($lb_valido) // Si no ocurrio ningn error
{
$io_pdf->ezStream(); // Mostramos el reporte
}
else // Si hubo algn error
{
//$ls_desmov= $io_report->ds_detalle->data["desmov"][$li_s];
$ls_codres = $io_report->ds_detalle->data["nomres"][$li_s];
$ls_coduniadm = $io_report->ds_detalle->data["denuniadm"][$li_s];
$ls_codresnew = $io_report->ds_detalle->data["nomnew"][$li_s];
$ls_coduniadmnew = $io_report->ds_detalle->data["uniadmnew"][$li_s];
$li_monact = $io_report->ds_detalle->data["monact"][$li_s];
$li_montot = $li_montot + $li_monact;
$li_monact = $io_fun_activos->uf_formatonumerico($li_monact);
$ld_fectraact = $io_funciones->uf_convertirfecmostrar($ld_fectraact);
$la_data[$li_s] = array('fectraact' => $ld_fectraact, 'codact' => $ls_codact, 'denact' => $ls_denact, 'ideact' => $ls_ideact, 'codres' => $ls_codres, 'coduniadm' => $ls_coduniadm, 'codresnew' => $ls_codresnew, 'coduniadmnew' => $ls_coduniadmnew, 'monact' => $li_monact);
}
$li_montot = $io_fun_activos->uf_formatonumerico($li_montot);
uf_print_detalle($la_data, $io_pdf);
// Imprimimos el detalle
$la_datat[1] = array('total' => "Total", 'monact' => $li_montot);
uf_print_totales($la_datat, &$io_pdf);
//*** COMENTADO POR ANAIS SARABIA 26/07/2010*******
/*
$lb_valido=$io_report->uf_saf_load_dt_contable($ls_codemp,$ls_cmpmov,$ls_codcau,$ld_fecha); // Obtenemos el detalle del reporte
if($lb_valido)
{
$li_montotdeb=0;
$li_montothab=0;
$li_totrow_det=$io_report->ds_detcontable->getRowCount("sc_cuenta");
for($li_s=1;$li_s<=$li_totrow_det;$li_s++)
{
$ls_cuenta= $io_report->ds_detcontable->data["sc_cuenta"][$li_s];
$ls_documento= $io_report->ds_detcontable->data["documento"][$li_s];
$ls_debhab= $io_report->ds_detcontable->data["debhab"][$li_s];
$li_monto= $io_report->ds_detcontable->data["monto"][$li_s];
if($ls_debhab=="D")
//Obtengo el detalle presupuestario del movimiento.
$ds_dt_spi->data=$class_report->uf_cargar_dt_spi($ls_numdoc,$ls_codban,$ls_ctaban,$ls_codope,$ls_estmov);
$li_totspi=$ds_dt_spi->getRowCount("spi_cuenta");
if($li_totspi>0)
{
for($li_b=1;$li_b<=$li_totspi;$li_b++)
{
$la_data[$li_b]=array('cuenta'=>$ds_dt_spi->getValue("spi_cuenta",$li_b),
'monto'=>number_format($ds_dt_spi->getValue("monto",$li_b),2,",","."));
}
uf_print_detalle_ingreso($la_data,$io_pdf);
}
$ldec_total=$ldec_total+$ldec_monto;
uf_print_fin_detalle(&$io_pdf);
}
uf_print_totales(number_format($ldec_total,2,",","."),&$io_pdf);
if($lb_valido) // Si no ocurrio ningún error
{
$io_pdf->ezStopPageNumbers(1,1); // Detenemos la impresión de los números de página
$io_pdf->ezStream(); // Mostramos el reporte
}
else // Si hubo algún error
{
print("<script language=JavaScript>");
print(" alert('Ocurrio un error al generar el reporte. Intente de Nuevo');");
print(" close();");
print("</script>");
}
unset($io_pdf);
}
else
}
else
{
$ldec_totalcreditos=$ldec_totalcreditos+$ldec_monto;
}
}
$ld_mon = number_format($ldec_monto,2,",",".");
$la_data[$i] = array('fecha'=>$ld_fecmov,'documento'=>$ls_numdoc,'operacion'=>$ls_codope,'proveedor'=>$ls_nomproben,'monto'=>$ld_mon);
}
uf_print_detalle($la_data,&$io_pdf);
$ldec_saldo = $ldec_totalcreditos-$ldec_totaldebitos;//Calculo del saldo total para todas las cuentas
$ldec_totalcreditos = number_format($ldec_totalcreditos,2,",",".");
$ldec_totaldebitos = number_format($ldec_totaldebitos,2,",",".");
$ldec_saldo = number_format($ldec_saldo,2,",",".");
uf_print_totales($ldec_totaldebitos,$ldec_totalcreditos,$ldec_saldo,&$io_pdf);
if($lb_valido) // Si no ocurrio ningún error
{
$io_pdf->ezStopPageNumbers(1,1); // Detenemos la impresión de los números de página
$io_pdf->ezStream(); // Mostramos el reporte
}
else // Si hubo algún error
{
print("<script language=JavaScript>");
print(" alert('Ocurrio un error al generar el reporte. Intente de Nuevo');");
print(" close();");
print("</script>");
}
unset($io_pdf);
}
else
$ls_codmun = $io_report->ds_detalle->data["codmun"][$li_s];
if ($li_s == 1 && $ls_codpai != "" && $ls_codest != "" && $ls_codmun != "") {
$ls_auxcodpai = $ls_codpai;
$lb_valido = $io_report->uf_saf_load_ubicacion($ls_codpai, $ls_codest, $ls_codmun, $ls_denpai, $ls_denest, $ls_denmun);
} else {
if ($ls_auxcodpai != $ls_codpai) {
$ls_codpai = "";
$ls_codest = "";
$ls_codmun = "";
$ls_denpai = "";
$ls_denest = "";
$ls_denmun = "";
}
}
}
uf_print_totales($ls_nomres, $ls_cedres, $ls_cargo, $ls_nomresuso, $ls_cedresuso, $ls_cargouso, $ls_codpai, $ls_codest, $ls_codmun, $ls_denpai, $ls_denest, $ls_denmun, $io_pdf);
uf_print_detalle($la_data, $io_pdf);
// Imprimimos el detalle
}
unset($la_data);
if ($lb_valido) {
$io_pdf->ezStopPageNumbers(1, 1);
$io_pdf->ezStream();
}
unset($io_pdf);
}
unset($io_report);
unset($io_funciones);
unset($io_fun_nomina);
?>
