$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
