addworksheet(); //--------------------------------------------------------------------------------------------------------------------------- // para crear la data necesaria del reporte require_once("sigesp_scb_report.php"); require_once("../../shared/class_folder/class_fecha.php"); require_once("../../shared/class_folder/class_funciones.php"); require_once("../../shared/class_folder/sigesp_include.php"); require_once("../../shared/class_folder/class_sql.php"); require_once("../../shared/class_folder/class_datastore.php"); $io_conect = new sigesp_include(); $con = $io_conect->uf_conectar(); $io_report = new sigesp_scb_report($con); $io_funciones = new class_funciones(); $io_fecha = new class_fecha(); $ds_edocta = new class_datastore(); $io_sql = new class_sql($con); //--------------------------------------------------------------------------------------------------------------------------- //Parámetros para Filtar el Reporte $ls_codemp = $_SESSION["la_empresa"]["codemp"]; $ls_codban = $_GET["codban"]; $ls_ctaban = $_GET["ctaban"]; $ld_fecdesde = $_GET["fecdes"]; $ld_fechasta = $_GET["fechas"]; $ls_orden = $_GET["orden"]; $ls_tipbol = 'Bs.'; $ls_tiporeporte = 0; $ls_tiporeporte = $_GET["tiporeporte"]; global $ls_tiporeporte; if($ls_tiporeporte==1) { require_once("sigesp_scb_reportbsf.php"); $io_report = new sigesp_scb_reportbsf($con); $ls_tipbol = 'Bs.F.'; } //--------------------------------------------------------------------------------------------------------------------------- //Parámetros del encabezado $ldt_fecha="Desde ".$ld_fecdesde." al ".$ld_fechasta.""; $ls_titulo="LIBRO BANCO $ls_tipbol"; //--------------------------------------------------------------------------------------------------------------------------- //Busqueda de la data $lb_valido = true; $io_report->facturados = $_GET["facturados"]; $data = $io_report->uf_generar_estado_cuenta($ls_codemp,$ls_codban,$ls_ctaban,$ls_orden,$ld_fecdesde,$ld_fechasta,$ldec_saldoant,$ldec_total_debe,$ldec_total_haber,true,'C','---'); // $li_numrows = $io_sql->num_rows($data); $ldec_saldoactual = ($ldec_saldoant+$ldec_total_debe-$ldec_total_haber); $ldec_saldo = $ldec_saldoant; $ldec_saldoant = number_format($ldec_saldoant,2,",","."); $ls_nomban = $io_report->uf_select_data($io_sql,"SELECT * FROM scb_banco WHERE codban ='".$ls_codban."' AND codemp='".$ls_codemp."'","nomban"); $ls_nomtipcta = $io_report->uf_select_data($io_sql,"SELECT * FROM scb_tipocuenta t, scb_ctabanco c WHERE c.codemp='".$ls_codemp."' AND c.codtipcta=t.codtipcta AND c.ctaban='".$ls_ctaban."'","nomtipcta"); $ds_edocta->data = $data; $li_totrow = $ds_edocta->getRowCount("numdoc"); //--------------------------------------------------------------------------------------------------------------------------- // Impresión de la información encontrada en caso de que exista if(empty($ds_edocta->data)) // Existe algún error ó no hay registros { print(""); } else // Imprimimos el reporte { $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,20); $lo_hoja->set_column(1,1,15); $lo_hoja->set_column(2,5,20); $lo_hoja->set_column(3,7,30); $lo_hoja->write(0, 2, $ls_titulo,$lo_encabezado); $lo_hoja->write(1, 2, $ldt_fecha,$lo_encabezado); $lo_hoja->write(3, 0, "Banco :",$lo_titulo); $lo_hoja->write(3, 1, $ls_nomban, $lo_datacenter); $lo_hoja->write(3, 2, "Tipo de Cuenta :",$lo_titulo); $lo_hoja->write(3, 3, $ls_nomtipcta, $lo_dataleft); $lo_hoja->write(3, 4, "Cuenta :",$lo_titulo); $lo_hoja->write(3, 5, $ls_ctaban, $lo_dataleft); $lo_hoja->write(3, 6, "Saldo Anterior :",$lo_titulo); $lo_hoja->write(3, 7, $ldec_saldoant, $lo_dataright); $li_row = 4; $lo_hoja->write(4, 0, "Fecha",$lo_titulo); $lo_hoja->write(4, 1, "Operación",$lo_titulo); $lo_hoja->write(4, 2, "Documento",$lo_titulo); $lo_hoja->write(4, 3, "Proveedor/Beneficiario",$lo_titulo); $lo_hoja->write(4, 4, "Descripción",$lo_titulo); $lo_hoja->write(4, 5, "Débitos",$lo_titulo); $lo_hoja->write(4, 6, "Créditos",$lo_titulo); $lo_hoja->write(4, 7, "Saldo",$lo_titulo); $lo_hoja->write(4, 8, "Facturado",$lo_titulo); $lo_hoja->write(4, 9, "N° Fact",$lo_titulo); $lo_hoja->write(4, 10, "Fec Fact",$lo_titulo); $ls_nomban = $io_report->uf_select_data($io_sql,"SELECT * FROM scb_banco WHERE codban ='".$ls_codban."' AND codemp='".$ls_codemp."'","nomban"); $ls_nomtipcta = $io_report->uf_select_data($io_sql,"SELECT * FROM scb_tipocuenta t, scb_ctabanco c WHERE c.codemp='".$ls_codemp."' AND c.ctaban='".$ls_ctaban."' AND c.codtipcta=t.codtipcta","nomtipcta"); for ($li_i=1;$li_i<=$li_totrow;$li_i++) { $ls_numdoc = " ".$ds_edocta->getValue("numdoc",$li_i); $ls_codban = $ds_edocta->getValue("codban",$li_i); $ls_nomban = $ds_edocta->getValue("nomban",$li_i); $ls_ctaban = $ds_edocta->getValue("ctaban",$li_i); $ls_nomproben = $ds_edocta->getValue("beneficiario",$li_i); $ls_conmov = $ds_edocta->getValue("conmov",$li_i); $ldec_monret = $ds_edocta->getValue("monret",$li_i); $ldec_monto = $ds_edocta->getValue("monto",$li_i); $ls_nomtipcta = $ds_edocta->getValue("nomtipcta",$li_i); $ls_operacion = $ds_edocta->getValue("operacion",$li_i); $ld_fecmov = $io_funciones->uf_convertirfecmostrar($ds_edocta->getValue("fecmov",$li_i)); $ldec_debitos = $ds_edocta->getValue("debitos",$li_i); $ldec_creditos = $ds_edocta->getValue("creditos",$li_i); $ldec_saldo = ($ldec_saldo+$ldec_debitos-$ldec_creditos); $ldec_mondeb = number_format($ldec_debitos,2,",","."); $ldec_monhab = number_format($ldec_creditos,2,",","."); $ldec_mondeb = $ldec_debitos; $ldec_monhab = $ldec_creditos; $li_row=$li_row+1; $lo_hoja->write($li_row, 0, $ld_fecmov, $lo_dataright); $lo_hoja->write($li_row, 1, $ls_operacion, $lo_dataright); $lo_hoja->write($li_row, 2, $ls_numdoc, $lo_datacenter); $lo_hoja->write($li_row, 3, $ls_conmov, $lo_dataleft); $lo_hoja->write($li_row, 4, $ls_nomproben, $lo_dataleft); $lo_hoja->write($li_row, 5, $ldec_mondeb, $lo_dataright); $lo_hoja->write($li_row, 6, $ldec_monhab, $lo_dataright); $lo_hoja->write($li_row, 7, $ldec_saldo, $lo_dataright); $lo_hoja->write($li_row, 8, $ds_edocta->getValue("facturado",$li_i), $lo_datacenter); $lo_hoja->write($li_row, 9, $ds_edocta->getValue("numfact",$li_i), $lo_datacenter); $lo_hoja->write($li_row, 10, $io_funciones->uf_convertirfecmostrar($ds_edocta->getValue("fecfact",$li_i)), $lo_datacenter); } $li_row=$li_row+1; $lo_hoja->write($li_row, 4, "Totales",$lo_libro->addformat(array('bold'=>1,'font'=>'Verdana','align'=>'right','size'=>'10'))); $lo_hoja->write($li_row, 5, $ldec_total_debe, $lo_dataright); $lo_hoja->write($li_row, 6, $ldec_total_haber, $lo_dataright); $lo_hoja->write($li_row, 7, $ldec_saldo, $lo_dataright); $lo_libro->close(); header("Content-Type: application/x-msexcel; name=\"libro_banco.xls\""); header("Content-Disposition: inline; filename=\"libro_banco.xls\""); $fh=fopen($lo_archivo, "rb"); fpassthru($fh); unlink($lo_archivo); print(""); } ?>