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");