"; print "close();"; print ""; } //----------------------------------------------------------------------------------------------------------------------------------- function uf_insert_seguridad($as_titulo) { ///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// // Function: uf_insert_seguridad // Access: private // Arguments: as_titulo // Título del reporte // Description: función que guarda la seguridad de quien generó el reporte // Creado Por: Ing. Yesenia Moreno/ Ing. Luis Lang // Fecha Creación: 11/03/2007 ///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// global $io_fun_cxp; $ls_descripcion="Generó el Reporte ".$as_titulo; $lb_valido=$io_fun_cxp->uf_load_seguridad_reporte("CXP","sigesp_cxp_r_solicitudesf1.php",$ls_descripcion); return $lb_valido; } //----------------------------------------------------------------------------------------------------------------------------------- //----------------------------------------------------------------------------------------------------------------------------------- function uf_print_encabezado_pagina($lo_libro,$lo_hoja,$as_titulo,&$li_fila) { ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// // Function: uf_print_encabezado_pagina // Access: private // Arguments: as_titulo // Título del Reporte // io_pdf // Instancia de objeto pdf // Description: Función que imprime los encabezados por página // Creado Por: Ing. Yesenia Moreno / Ing. Luis Lang // Fecha Creación: 11/03/2007 ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// $lo_hoja->write($li_fila, 0, 'Solicitud',$lo_libro->addformat(array('bold'=>1,'font'=>'Verdana','align'=>'left','size'=>'9'))); $lo_hoja->write($li_fila, 1, 'Proveedor/Beneficiario',$lo_libro->addformat(array('bold'=>1,'font'=>'Verdana','align'=>'left','size'=>'9'))); $lo_hoja->write($li_fila, 2, 'Fecha Emisión',$lo_libro->addformat(array('bold'=>1,'font'=>'Verdana','align'=>'left','size'=>'9'))); $lo_hoja->write($li_fila, 3, 'Estatus',$lo_libro->addformat(array('bold'=>1,'font'=>'Verdana','align'=>'left','size'=>'9'))); $lo_hoja->write($li_fila, 4, 'Monto Bs.',$lo_libro->addformat(array('bold'=>1,'font'=>'Verdana','align'=>'left','size'=>'9'))); $lo_hoja->write($li_fila, 5, 'Tipo',$lo_libro->addformat(array('bold'=>1,'font'=>'Verdana','align'=>'left','size'=>'9'))); $li_fila++; }// end function uf_print_encabezado_pagina //----------------------------------------------------------------------------------------------------------------------------------- //----------------------------------------------------------------------------------------------------------------------------------- function uf_print_detalle($lo_libro,$lo_hoja,$la_data,$li_totrow,$li_totmonsol,&$li_fila) { ///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// // Function: uf_print_detalle // Access: private // Arguments: la_data // arreglo de información // ai_i // total de registros // li_totmonsol // total de solicitudes (Montos) // io_pdf // Instancia de objeto pdf // Description: Función que imprime el detalle del reporte // Creado Por: Ing. Yesenia Moreno / Ing. Luis Lang // Fecha Creación: 16/06/2007 ///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// //print_r($la_data); //print $li_totrow.':aqui'; for ($index = 1; $index < ($li_totrow+1); $index++) { //print $index.' Solicitud'.$la_data[$index]["numsol"].'
'; $lo_hoja->write($li_fila, 0, $la_data[$index]["numsol"],$lo_libro->addformat(array('bold'=>0,'font'=>'Verdana','align'=>'left','size'=>'9'))); $lo_hoja->write($li_fila, 1, $la_data[$index]["nombre"],$lo_libro->addformat(array('bold'=>0,'font'=>'Verdana','align'=>'left','size'=>'9'))); $lo_hoja->write($li_fila, 2, $la_data[$index]["fecemisol"],$lo_libro->addformat(array('bold'=>0,'font'=>'Verdana','align'=>'right','size'=>'9'))); $lo_hoja->write($li_fila, 3, $la_data[$index]["denest"],$lo_libro->addformat(array('bold'=>0,'font'=>'Verdana','align'=>'right','size'=>'9'))); $lo_hoja->write($li_fila, 4, $la_data[$index]["monsol"],$lo_libro->addformat(array('bold'=>0,'font'=>'Verdana','align'=>'right','size'=>'9'))); $lo_hoja->write($li_fila, 5, $la_data[$index]["tipo"],$lo_libro->addformat(array('bold'=>0,'font'=>'Verdana','align'=>'right','size'=>'9'))); $li_fila++; } //print $index.':final
'; }// end function uf_print_detalle //----------------------------------------------------------------------------------------------------------------------------------- //--------------------------------------------------------------------------------------------------------------------------- // para crear el libro excel require_once ("../../shared/writeexcel/class.writeexcel_workbookbig.inc.php"); require_once ("../../shared/writeexcel/class.writeexcel_worksheet.inc.php"); $lo_archivo = tempnam("/tmp", "solicitudes_f1.xls"); $lo_libro = &new writeexcel_workbookbig($lo_archivo); $lo_hoja = &$lo_libro->addworksheet(); //--------------------------------------------------------------------------------------------------------------------------- require_once("sigesp_cxp_class_report.php"); $io_report=new sigesp_cxp_class_report(); require_once("../../shared/class_folder/class_funciones.php"); $io_funciones=new class_funciones(); require_once("../class_folder/class_funciones_cxp.php"); $io_fun_cxp=new class_funciones_cxp(); $ls_estmodest=$_SESSION["la_empresa"]["estmodest"]; //---------------------------------------------------- Parámetros del encabezado ----------------------------------------------- $ls_titulo="LISTADO DE ORDENES DE PAGO"; //-------------------------------------------------- Parámetros para Filtar el Reporte ----------------------------------------- $ls_tipproben=$io_fun_cxp->uf_obtenervalor_get("tipproben",""); $ls_codprobendes=$io_fun_cxp->uf_obtenervalor_get("codprobendes",""); $ls_codprobenhas=$io_fun_cxp->uf_obtenervalor_get("codprobenhas",""); $ld_fecemides=$io_fun_cxp->uf_obtenervalor_get("fecemides",""); $ld_fecemihas=$io_fun_cxp->uf_obtenervalor_get("fecemihas",""); $li_emitida=$io_fun_cxp->uf_obtenervalor_get("emitida",""); $li_contabilizada=$io_fun_cxp->uf_obtenervalor_get("contabilizada",""); $li_anulada=$io_fun_cxp->uf_obtenervalor_get("anulada",""); $li_propago=$io_fun_cxp->uf_obtenervalor_get("propago",""); $li_pagada=$io_fun_cxp->uf_obtenervalor_get("pagada",""); $ls_tiporeporte=$io_fun_cxp->uf_obtenervalor_get("tiporeporte",0); global $ls_tiporeporte; if($ls_tiporeporte==1) { require_once("sigesp_cxp_class_reportbsf.php"); $io_report=new sigesp_cxp_class_reportbsf(); } //set_time_limit(1800); $lo_encabezado= &$lo_libro->addformat(); $lo_encabezado->set_bold(); $lo_encabezado->set_font("Verdana"); $lo_encabezado->set_align('center'); $lo_encabezado->set_size('11'); $lo_titulo= &$lo_libro->addformat(); $lo_titulo->set_bold(); $lo_titulo->set_font("Verdana"); $lo_titulo->set_align('center'); $lo_titulo->set_size('9'); $lo_datacenter= &$lo_libro->addformat(); $lo_datacenter->set_font("Verdana"); $lo_datacenter->set_align('center'); $lo_datacenter->set_size('9'); $lo_dataleft= &$lo_libro->addformat(); $lo_dataleft->set_text_wrap(); $lo_dataleft->set_font("Verdana"); $lo_dataleft->set_align('left'); $lo_dataleft->set_size('9'); $lo_dataright= &$lo_libro->addformat(array(num_format => '#,##0.00')); $lo_dataright->set_font("Verdana"); $lo_dataright->set_align('right'); $lo_dataright->set_size('9'); $lo_hoja->set_column(0,0,15); $lo_hoja->set_column(1,1,20); $lo_hoja->set_column(2,2,30); $lo_hoja->set_column(3,3,20); $lo_hoja->set_column(4,4,30); $lo_hoja->set_column(5,5,30); $lo_hoja->set_column(6,6,30); $lo_hoja->set_column(7,7,30); $lo_hoja->write(0, 3, $ls_titulo,$lo_encabezado); $li_fila=2; //-------------------------------------------------------------------------------------------------------------------------------- $lb_valido=uf_insert_seguridad($ls_titulo); // Seguridad de Reporte if($lb_valido) { $io_report->tipsolpag=$_GET['tipsolpag']; $lb_valido=$io_report->uf_select_solicitudesf1($ls_tipproben,$ls_codprobendes,$ls_codprobenhas,$ld_fecemides,$ld_fecemihas, $li_emitida,$li_contabilizada,$li_anulada,$li_propago,$li_pagada); // Cargar el DS con los datos del reporte if($lb_valido==false) // Existe algún error ó no hay registros { print(""); } else // Imprimimos el reporte { $li_totrow=$io_report->DS->getRowCount("numsol"); $li_totmonsol=0; $ls_estretiva=$_SESSION["la_empresa"]["estretiva"]; for($li_i=1;$li_i<=$li_totrow;$li_i++) { $ls_numsol=$io_report->DS->data["numsol"][$li_i]; $ls_nombre=$io_report->DS->data["nombre"][$li_i]; $ld_fecemisol=$io_report->DS->data["fecemisol"][$li_i]; $ls_estprosol=$io_report->DS->data["estprosol"][$li_i]; $li_monsol=$io_report->DS->data["monsol"][$li_i]; $tipsolpag=$io_report->DS->data["tipsolpag"][$li_i]; if($ls_estretiva=="B") { $li_monretiva=$io_report->uf_select_det_deducciones_solpag($ls_numsol); $li_monsol=$li_monsol+$li_monretiva; } switch ($ls_estprosol) { case 'E': $ls_denest='Emitida'; break; case 'C': $ls_denest='Contab.'; break; case 'A': $ls_denest='Anulada'; break; case 'S': $ls_denest='Prog. Pago'; break; case 'P': $ls_denest='Pagada'; break; case "N": $ls_denest="Anulada sin Afect"; break; } $li_totmonsol=$li_totmonsol+$li_monsol; $li_monsol=number_format($li_monsol,2,",","."); $ld_fecemisol=$io_funciones->uf_convertirfecmostrar($ld_fecemisol); $la_data[$li_i]=array('numsol'=>$ls_numsol,'nombre'=>$ls_nombre,'fecemisol'=>$ld_fecemisol,'denest'=>$ls_denest, 'monsol'=>$li_monsol,'tipo'=>$tipsolpag); } $li_totmonsol=number_format($li_totmonsol,2,",","."); uf_print_encabezado_pagina($lo_libro,$lo_hoja,$ls_titulo,$li_fila); uf_print_detalle($lo_libro,$lo_hoja,$la_data,$li_totrow,$li_totmonsol,$li_fila); } if($lb_valido) // Si no ocurrio ningún error { $lo_libro->close(); header("Content-Type: application/x-msexcel; name=\"solicitudes_f1.xls\""); header("Content-Disposition: inline; filename=\"solicitudes_f1.xls\""); $fh=fopen($lo_archivo, "rb"); fpassthru($fh); unlink($lo_archivo); print(""); } } ?>