require_once("../class_folder/class_funciones_soc.php");
$io_fun_compra = new class_funciones_soc();
$ls_tiporeporte=$io_fun_compra->uf_obtenervalor_get("tiporeporte",1);
$ls_bolivares="Bs.";
if($ls_tiporeporte==1)
{
require_once("sigesp_soc_class_reportbsf.php");
$io_class_report=new sigesp_soc_class_reportbsf();
$ls_bolivares="Bs.F.";
}
error_reporting(E_ALL);
set_time_limit(3000);
$io_pdf=new class_pdf('LETTER','landscape'); // Instancia de la clase PDF
$io_pdf->selectFont('../../shared/ezpdf/fonts/Helvetica.afm'); // Seleccionamos el tipo de letra
$io_pdf->ezStartPageNumbers(730,20,7,'','',1); // Insertar el número de página
$io_pdf->ezSetCmMargins(3.7,5,1,4); // Configuración de los margenes en centímetros
$ls_tipsolcot=$_GET["tipsolcot"];
$ls_numanacot=$_GET["numanacot"];
$ld_fecha=$_GET["fecha"];
$ls_observacion=$_GET["observacion"];
$lb_valido=uf_insert_seguridad();
if($lb_valido)
{
uf_print_encabezado_pagina($ls_numanacot,$ls_observacion,$ld_fecha,$io_pdf);
$lb_valido=$io_class_report->uf_cargar_cotizaciones($ls_numanacot, $la_cotizaciones);
if($lb_valido)
{
uf_print_proveedores($la_cotizaciones,$io_pdf);
$lb_valido=$io_class_report->uf_select_items($ls_numanacot,$ls_tipsolcot,$la_items);
if($lb_valido)
{
$lb_valido=$io_report->uf_crear_reporte_oaf($li_nivel,$ldt_fecdes,$ldt_fechas,$ls_agno);
}
if($lb_valido==false) // Existe algún error ó no hay registros
{
print("<script language=JavaScript>");
print(" alert('No hay nada que Reportar');");
//print(" close();");
print("</script>");
}
else// Imprimimos el reporte
{
error_reporting(E_ALL);
set_time_limit(1800);
$io_pdf=new class_pdf('LEGAL','landscape'); // Instancia de la clase PDF
$io_pdf->selectFont('../../shared/ezpdf/fonts/Helvetica.afm'); // Seleccionamos el tipo de letra
$io_pdf->ezSetCmMargins(5,3,3,3); // Configuración de los margenes en centímetros
uf_print_encabezado_pagina($ls_titulo,$ls_titulo1,$io_pdf); // Imprimimos el encabezado de la página
$io_pdf->ezStartPageNumbers(550,50,10,'','',1); // Insertar el número de página
$li_tot=$io_report->ds_cuentas->getRowCount("sc_cuenta");
$ld_saldo4="";
$ld_saldo3="";
$ld_saldo2="";
$ld_total=0;
$la_data[1]=array('cuentas'=>'CUENTAS','programado'=>'BALANCE PROGRAMADO','real'=>'BALANCE REAL','variacion'=>'VARIACION','reprog'=>'REPROGRAMACION');
uf_print_encabezado($la_data,$io_pdf); // Imprimimos el detalle
$la_data[1]=array('cuentas'=>'REPROGRAMACION');
$la_data[2]=array('cuentas'=>'PROXIMO' );
$la_data[3]=array('cuentas'=>strtoupper($ls_etiqueta));
$ls_cedben=$_GET["cedbene"];
$ld_fecmov=$_GET["fecmov"];
$ls_chevau="";
$hidnumero=$ls_numdoc;
$la_data_compret=array('numdocres'=>$ls_numdocres,'fecdocres'=>$ls_fecdocres,'nrocontrol'=>$ls_nrocontrol,'monto'=>$ldec_monto,'desope'=>$ls_desope,'nrocontrol'=>$ls_nrocontrol);
$class_report->uf_generar_cmpret_ordendepagodirecta($ls_codemp,$ls_numdoc,$ls_codban,$ls_ctaban,$ls_tipodestino,$ls_codpro,$ls_cedben,$ld_fecmov,$la_data_compret);
$li_valini=0;
$li_valfin=15;
$ls_const =15;
error_reporting(E_ALL);
set_time_limit(1800);
$io_pdf = new class_pdf("LEGAL","landscape");
$io_pdf->selectFont('../../shared/ezpdf/fonts/Helvetica.afm');
$io_pdf->ezSetCmMargins(3.5,3,3,3);
$io_pdf->ezStartPageNumbers(950,50,10,'','',1);
$lb_valido=$io_report->uf_select_ret_iva_cab($ls_codemp,$ls_numdoc);
if($lb_valido==false)
{
print("<script language=JavaScript>");
print(" alert('No hay nada que Reportar');");
print("close();");
print("</script>");
}
else
{
$li_totrow=$io_report->ds_ret->getRowCount("numcom");
