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