$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]; $ld_fecmov = $io_funciones->uf_convertirfecmostrar($ds_voucher->data["fecmov"][$li_i]); $ls_nomproben = $ds_voucher->data["nomproben"][$li_i]; $ls_solicitudes = $class_report->uf_select_solicitudes($ls_numdoc,$ls_codban,$ls_ctaban); $ls_conmov = $ds_voucher->getValue("conmov",$li_i); $ldec_monret = $ds_voucher->getValue("monret",$li_i); $ldec_monto = $ds_voucher->getValue("monto",$li_i); $ldec_total = $ldec_monto-$ldec_monret; $ls_monto = $numalet->uf_convertir_letra($ldec_total,'',''); $io_encabezado = $io_pdf->openObject(); uf_print_encabezado_pagina(number_format($ldec_total,2,",","."),$ls_nomproben,$ls_monto,$_SESSION["la_empresa"]["ciuemp"].", ".$ld_fecmov,$io_pdf,$y_pos); // Imprimimos el encabezado de la página uf_print_pie_pagina($ls_numdoc,$ls_nomban,$ls_ctaban,$ls_nomproben,$ld_fecmov,$ls_conmov,$ls_chevau,$io_pdf); // Imprimimos la cabecera del registro $io_pdf->closeObject(); $io_pdf->addObject($io_encabezado,'all'); $ds_dt_scg->data=$class_report->uf_cargar_dt_scg($ls_numdoc,$ls_codban,$ls_ctaban,$ls_codope); // Obtenemos el detalle del reporte $ds_dt_spg->data=$class_report->uf_cargar_dt_spg($ls_numdoc,$ls_codban,$ls_ctaban,$ls_codope); $la_campos=array("scg_cuenta"); $la_monto=array("monto"); $ds_dt_scg->group_by($la_campos,$la_monto,"scg_cuenta"); $la_campos=array("spg_cuenta","estpro"); $ds_dt_spg->group_by($la_campos,$la_monto,"spg_cuenta"); $li_totrow_det=$ds_dt_scg->getRowCount("scg_cuenta"); $li_totrow_spg=$ds_dt_spg->getRowCount("spg_cuenta"); $la_contable = array();
$li_inicio=strlen($ls_cabecera); $li_final=strrpos($ls_contenido,"}"); $li_longitud=$li_final-$li_inicio; $ls_nuevocuerpo=substr($ls_contenido,$li_inicio,$li_longitud); $ls_punt=fopen($ls_salida,"w"); fputs($ls_punt,$ls_cabecera); $ls_cuerpo=$ls_nuevocuerpo; $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,$ls_cuerpo); fputs($ls_punt,$ls_cuerpo); fputs($ls_punt,"}"); fclose($ls_punt); @chmod($ls_salida,0755); if($lb_valido) // Si no ocurrio ningún error { header ("Content-Disposition: attachment; filename=".$ls_copia."-".$_SESSION["la_logusr"].".rtf\n\n"); header ("Content-Type: application/octet-stream"); header ("Content-Length: ".filesize($ls_salida)); readfile($ls_salida); } else // Si hubo algún error