$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
{
print("<script language=JavaScript>");
print(" alert('Ocurrio un error al generar el reporte. Intente de Nuevo');");
$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();
?>
