} $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); ?>