VERSION 5.00
Begin VB.Form Form8 
   BackColor       =   &H00C0CEC0&
   BorderStyle     =   4  'Fixed ToolWindow
   Caption         =   " "
   ClientHeight    =   3945
   ClientLeft      =   60
   ClientTop       =   360
   ClientWidth     =   15900
   LinkTopic       =   "Form8"
   MaxButton       =   0   'False
   MDIChild        =   -1  'True
   MinButton       =   0   'False
   ScaleHeight     =   3945
   ScaleMode       =   0  'User
   ScaleWidth      =   15900
   ShowInTaskbar   =   0   'False
   Begin VB.CommandButton Command2 
      Caption         =   "Salir"
      Height          =   375
      Left            =   14280
      TabIndex        =   1
      Top             =   360
      Width           =   615
   End
   Begin VB.CommandButton Command1 
      Caption         =   "Imprimir listado"
      Height          =   375
      Left            =   120
      TabIndex        =   0
      Top             =   360
      Width           =   2055
   End
   Begin VB.Label Label12 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H00C0E0FF&
      BorderStyle     =   1  'Fixed Single
      Caption         =   "LISTADO DE CONTROL"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H80000008&
      Height          =   355
      Left            =   120
      TabIndex        =   13
      Top             =   1080
      Width           =   14895
   End
   Begin VB.Label Label11 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H00C0E0FF&
      BorderStyle     =   1  'Fixed Single
      Caption         =   "Unidades"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H80000008&
      Height          =   255
      Left            =   7200
      TabIndex        =   12
      Top             =   1440
      Width           =   1335
   End
   Begin VB.Label Label10 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H00C0E0FF&
      BorderStyle     =   1  'Fixed Single
      Caption         =   "Tiempo"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H80000008&
      Height          =   255
      Left            =   14160
      TabIndex        =   11
      Top             =   1440
      Width           =   855
   End
   Begin VB.Label Label9 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H00C0E0FF&
      BorderStyle     =   1  'Fixed Single
      Caption         =   "Longitud"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H80000008&
      Height          =   255
      Left            =   13320
      TabIndex        =   10
      Top             =   1440
      Width           =   855
   End
   Begin VB.Label Label8 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H00C0E0FF&
      BorderStyle     =   1  'Fixed Single
      Caption         =   "Espesor"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H80000008&
      Height          =   255
      Left            =   12480
      TabIndex        =   9
      Top             =   1440
      Width           =   855
   End
   Begin VB.Label Label7 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H00C0E0FF&
      BorderStyle     =   1  'Fixed Single
      Caption         =   "Medida2"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H80000008&
      Height          =   255
      Left            =   11640
      TabIndex        =   8
      Top             =   1440
      Width           =   855
   End
   Begin VB.Label Label6 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H00C0E0FF&
      BorderStyle     =   1  'Fixed Single
      Caption         =   "Medida1"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H80000008&
      Height          =   255
      Left            =   10800
      TabIndex        =   7
      Top             =   1440
      Width           =   855
   End
   Begin VB.Label Label5 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H00C0E0FF&
      BorderStyle     =   1  'Fixed Single
      Caption         =   "Proceso"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H80000008&
      Height          =   255
      Left            =   8520
      TabIndex        =   6
      Top             =   1440
      Width           =   2295
   End
   Begin VB.Label Label4 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H00C0E0FF&
      BorderStyle     =   1  'Fixed Single
      Caption         =   "Pieza"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H80000008&
      Height          =   255
      Left            =   4560
      TabIndex        =   5
      Top             =   1440
      Width           =   2655
   End
   Begin VB.Label Label3 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H00C0E0FF&
      BorderStyle     =   1  'Fixed Single
      Caption         =   "Producto"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H80000008&
      Height          =   255
      Left            =   1200
      TabIndex        =   4
      Top             =   1440
      Width           =   3375
   End
   Begin VB.Label Label1 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H00C0E0FF&
      BorderStyle     =   1  'Fixed Single
      Caption         =   "Referencia"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H80000008&
      Height          =   255
      Left            =   120
      TabIndex        =   3
      Top             =   1440
      Width           =   1095
   End
   Begin VB.Label Label2 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H00E0FFFF&
      BorderStyle     =   1  'Fixed Single
      Caption         =   "Label2"
      BeginProperty Font 
         Name            =   "Courier New"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H80000008&
      Height          =   255
      Index           =   0
      Left            =   0
      TabIndex        =   2
      Top             =   0
      Visible         =   0   'False
      Width           =   2415
   End
End
Attribute VB_Name = "Form8"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit


Private Sub Command1_Click()
Printer.PaperSize = vbPRPSA4
Printer.ScaleMode = 6
Printer.ScaleWidth = 2100
Printer.ScaleHeight = 2970

Dim n As Integer
Dim R As Integer
Dim fin As Integer
Dim izda As Integer
Dim altura As Integer

R = 1
fin = Label2.Count

Printer.CurrentX = 800
Printer.CurrentY = 100
Printer.FontUnderline = True
Printer.FontBold = True
Printer.Font.Name = Label12.FontName
Printer.Print "LISTADO DE CONTROL"
Printer.FontUnderline = False
Printer.FontBold = False

izda = 100
altura = 200
    
    Printer.CurrentY = altura
    Printer.CurrentX = izda
    Printer.Print "Ref"
    izda = izda + 100 '1085
   
    Printer.CurrentY = altura
    Printer.CurrentX = izda
    Printer.Print "Producto"
    izda = izda + 500 '3360
    
    Printer.CurrentY = altura
    Printer.CurrentX = izda
    Printer.Print "Pieza"
    izda = izda + 400 '2615

    Printer.CurrentY = altura
    Printer.CurrentX = izda
    Printer.Print "Uds"
    izda = izda + 100 '1345
    
    Printer.CurrentY = altura
    Printer.CurrentX = izda
    Printer.Print "Proceso"
    izda = izda + 350 '2280
    
    Printer.CurrentY = altura
    Printer.CurrentX = izda
    Printer.Print "M1"
    izda = izda + 75 '840
    
    Printer.CurrentY = altura
    Printer.CurrentX = izda
    Printer.Print "M2"
    izda = izda + 75 '840

    Printer.CurrentY = altura
    Printer.CurrentX = izda
    Printer.Print "Esp"
    izda = izda + 75 '840
    
    Printer.CurrentY = altura
    Printer.CurrentX = izda
    Printer.Print "Long"
    izda = izda + 100 '840
    
    Printer.CurrentY = altura
    Printer.CurrentX = izda
    Printer.Print "Tiempo"
    'izda = izda + 75 '850
    
    Printer.Line Step(100, 0)-Step(izda, 5), Color, BF
    izda = 100
    altura = altura + 50
    
For n = 0 To fin - 2

    If altura > 2700 Then
    Printer.NewPage
    altura = 200
    Printer.CurrentY = altura
    Printer.CurrentX = izda
    Printer.Print "Ref"
    izda = izda + 100 '1085
   
    Printer.CurrentY = altura
    Printer.CurrentX = izda
    Printer.Print "Producto"
    izda = izda + 500 '3360
    
    Printer.CurrentY = altura
    Printer.CurrentX = izda
    Printer.Print "Pieza"
    izda = izda + 400 '2615

    Printer.CurrentY = altura
    Printer.CurrentX = izda
    Printer.Print "Uds"
    izda = izda + 100 '1345
    
    Printer.CurrentY = altura
    Printer.CurrentX = izda
    Printer.Print "Proceso"
    izda = izda + 350 '2280
    
    Printer.CurrentY = altura
    Printer.CurrentX = izda
    Printer.Print "M1"
    izda = izda + 75 '840
    
    Printer.CurrentY = altura
    Printer.CurrentX = izda
    Printer.Print "M2"
    izda = izda + 75 '840

    Printer.CurrentY = altura
    Printer.CurrentX = izda
    Printer.Print "Esp"
    izda = izda + 75 '840
    
    Printer.CurrentY = altura
    Printer.CurrentX = izda
    Printer.Print "Long"
    izda = izda + 100 '840
    
    Printer.CurrentY = altura
    Printer.CurrentX = izda
    Printer.Print "Tiempo"
    'izda = izda + 75 '850
    
    Printer.Line Step(100, 0)-Step(izda, 5), Color, BF
    izda = 100
    altura = altura + 50
    
    End If
    
    Printer.CurrentY = altura
    Printer.CurrentX = izda
        Printer.Font.Name = Label2(0).FontName
    Printer.Print Label2(R).Caption
    izda = izda + 100 '1085
    R = R + 1
   
    Printer.CurrentY = altura
    Printer.CurrentX = izda
    Printer.Print Label2(R).Caption
    'Form8.Label2(R).Move izda, altura, 3370
    izda = izda + 500 '3360
    R = R + 1
    
    Printer.CurrentY = altura
    Printer.CurrentX = izda
    Printer.Print Label2(R).Caption
    'Form8.Label2(R).Move izda, altura, 2650
    izda = izda + 400 '2615
    R = R + 1

    Printer.CurrentY = altura
    Printer.CurrentX = izda
    Printer.Print Label2(R).Caption
    'Form8.Label2(R).Move izda, altura, 1345
    izda = izda + 100 '1345
    R = R + 1
    
    Printer.CurrentY = altura
    Printer.CurrentX = izda
    Printer.Print Label2(R).Caption
    'Form8.Label2(R).Move izda, altura, 2290
    izda = izda + 350 '2280
    R = R + 1
    Printer.CurrentY = altura
    Printer.CurrentX = izda
    Printer.Print Label2(R).Caption
    'Form8.Label2(R).Move izda, altura, 850
    izda = izda + 75 '840
    R = R + 1
    
    Printer.CurrentY = altura
    Printer.CurrentX = izda
    Printer.Print Form8.Label2(R).Caption
    'Form8.Label2(R).Move izda, altura, 850
    izda = izda + 75 '840
    R = R + 1

    Printer.CurrentY = altura
    Printer.CurrentX = izda
    Printer.Print Form8.Label2(R).Caption
   'Form8.Label2(R).Move izda, altura, 850
    izda = izda + 75 '840
    R = R + 1
    
    Printer.CurrentY = altura
    Printer.CurrentX = izda
    Printer.Print Label2(R).Caption
   'Form8.Label2(R).Move izda, altura, 850
    izda = izda + 100 '840
    R = R + 1
    
    Printer.CurrentY = altura
    Printer.CurrentX = izda
    Printer.Print Form8.Label2(R).Caption
   'Form8.Label2(R).Move izda, altura, 855
    'izda = izda + 75 '850
    
    Printer.Line Step(100, 0)-Step(izda, 0), Color, BF
    R = R + 1
    n = n + 9
    izda = 100
    altura = altura + 50
    
Next n

Printer.EndDoc
End Sub

Private Sub Command3_Click()

MsgBox Label2.Count, vbExclamation

End Sub

Private Sub Command4_Click()
MsgBox Label2.Count, vbExclamation

End Sub

Private Sub Command5_Click()
Printer.PaperSize = vbPRPSA4
Printer.ScaleMode = 6
Printer.ScaleWidth = 2100
Printer.ScaleHeight = 2970

Dim n As Integer
Dim R As Integer
Dim fin As Integer
Dim izda As Integer
Dim altura As Integer

R = 1
fin = Label2.Count

Printer.CurrentX = 800
Printer.CurrentY = 100
Printer.FontUnderline = True
Printer.FontBold = True
Printer.Font.Name = Label12.FontName
Printer.Print "LISTADO DE PRODUCCIÓN"
Printer.FontUnderline = False
Printer.FontBold = False

izda = 100
altura = 200
    
    Printer.CurrentY = altura
    Printer.CurrentX = izda
    Printer.Print "Proceso"
    izda = izda + 350 '2280
    
    Printer.CurrentY = altura
    Printer.CurrentX = izda
    Printer.Print "Ref"
    izda = izda + 100 '1085
   
    Printer.CurrentY = altura
    Printer.CurrentX = izda
    Printer.Print "Producto"
    izda = izda + 500 '3360
    
    Printer.CurrentY = altura
    Printer.CurrentX = izda
    Printer.Print "Pieza"
    izda = izda + 400 '2615

    Printer.CurrentY = altura
    Printer.CurrentX = izda
    Printer.Print "Uds"
    izda = izda + 100 '1345
    

    
    Printer.CurrentY = altura
    Printer.CurrentX = izda
    Printer.Print "M1"
    izda = izda + 75 '840
    
    Printer.CurrentY = altura
    Printer.CurrentX = izda
    Printer.Print "M2"
    izda = izda + 75 '840

    Printer.CurrentY = altura
    Printer.CurrentX = izda
    Printer.Print "Esp"
    izda = izda + 75 '840
    
    Printer.CurrentY = altura
    Printer.CurrentX = izda
    Printer.Print "Long"
    izda = izda + 100 '840
    
    Printer.CurrentY = altura
    Printer.CurrentX = izda
    Printer.Print "Tiempo"
    'izda = izda + 75 '850
    
    Printer.Line Step(100, 0)-Step(izda, 5), Color, BF
    izda = 100
    altura = altura + 50
    
For n = 0 To fin - 2

    Printer.CurrentY = altura
    Printer.CurrentX = izda
           Printer.Font.Name = Label2(0).FontName
    Printer.Print Label2(R).Caption
    'Form8.Label2(R).Move izda, altura, 2290
    izda = izda + 350 '2280
    R = R + 1
    
    Printer.CurrentY = altura
    Printer.CurrentX = izda
    Printer.Print Label2(R).Caption
    izda = izda + 100 '1085
    R = R + 1
   
    Printer.CurrentY = altura
    Printer.CurrentX = izda
    Printer.Print Label2(R).Caption
    'Form8.Label2(R).Move izda, altura, 3370
    izda = izda + 500 '3360
    R = R + 1
    
    Printer.CurrentY = altura
    Printer.CurrentX = izda
    Printer.Print Label2(R).Caption
    'Form8.Label2(R).Move izda, altura, 2650
    izda = izda + 400 '2615
    R = R + 1

    Printer.CurrentY = altura
    Printer.CurrentX = izda
    Printer.Print Label2(R).Caption
    'Form8.Label2(R).Move izda, altura, 1345
    izda = izda + 100 '1345
    R = R + 1
    

    
    Printer.CurrentY = altura
    Printer.CurrentX = izda
    Printer.Print Label2(R).Caption
    'Form8.Label2(R).Move izda, altura, 850
    izda = izda + 75 '840
    R = R + 1
    
    Printer.CurrentY = altura
    Printer.CurrentX = izda
    Printer.Print Form8.Label2(R).Caption
    'Form8.Label2(R).Move izda, altura, 850
    izda = izda + 75 '840
    R = R + 1

    Printer.CurrentY = altura
    Printer.CurrentX = izda
    Printer.Print Form8.Label2(R).Caption
   'Form8.Label2(R).Move izda, altura, 850
    izda = izda + 75 '840
    R = R + 1
    
    Printer.CurrentY = altura
    Printer.CurrentX = izda
    Printer.Print Label2(R).Caption
   'Form8.Label2(R).Move izda, altura, 850
    izda = izda + 100 '840
    R = R + 1
    
    Printer.CurrentY = altura
    Printer.CurrentX = izda
    Printer.Print Form8.Label2(R).Caption
   'Form8.Label2(R).Move izda, altura, 855
    'izda = izda + 75 '850
    
    Printer.Line Step(100, 0)-Step(izda, 0), Color, BF
    R = R + 1
    n = n + 9
    izda = 100
    altura = altura + 50
    
Next n

Printer.EndDoc
End Sub

Private Sub Command2_Click()
Form8.Visible = False
End Sub

Private Sub Form_Load()
    Move 0, 0
End Sub


Private Sub Form_Terminate()
Dim u As Integer
Dim bye As Integer
bye = Label2.Count

For u = 1 To bye - 1
    Unload Label2(u)
Next u
End Sub
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="es">
	<head>
            <title>e-REdING. Biblioteca de la Escuela Superior de Ingenieros de Sevilla.</title>

                <meta http-equiv="Content-Type" content="text/html; charset=utf-8"/>
<meta name="description" content="Buscador de proyectos ETSI" />
<meta name="author" content="Daniel Callejo"/>
<meta name="author" content="Federico L&oacute;pez"/>
<meta name="author" content="Juli&aacute;n P&eacute;rez"/>
<meta name="author" content="Jos&eacute; Mar&iacute;a Vidal Vidal"/>
<base href="https://biblus.us.es/bibing/proyectos/" /><link rel="shortcut icon" href="./favicon.ico" />
<link rel="stylesheet" href="./publico/css/estructura.css" type="text/css" />
<link rel="stylesheet" href="./publico/css/bootstrap.css" type="text/css" media="screen"/>
<link rel="stylesheet" href="./publico/css/enlaces-capas.css" type="text/css"  />
<link rel="stylesheet" href="./publico/css/pestanas.css" type="text/css"  /> 
<link rel="stylesheet" href="./publico/css/formularios.css" type="text/css" />
<link rel="stylesheet" href="./publico/css/lightbox.css" type="text/css"  />
<link rel="stylesheet" href="./publico/css/autocompleter.css" type="text/css"  />
<link rel="stylesheet" href="./publico/css/resultados.css" type="text/css"  />
<link rel="stylesheet" href="./publico/css/milista.css" type="text/css"  />
<link rel="stylesheet" href="./publico/css/explorador.css" type="text/css"  />
<link rel="stylesheet" href="./publico/css/ultimos.css" type="text/css"  />
<link rel="stylesheet" href="./publico/css/contactar.css" type="text/css"  />
<!-- <link rel="stylesheet" href="./css/print.css" type="text/css" media="print" /> -->
<script src="./publico/javascript/jquery-1.9.1.min.js" type="text/javascript"></script>
<script src="./publico/javascript/bootstrap.js" type="text/javascript"></script>

<script src="./publico/javascript/mootools-1.2.4-core.js" type="text/javascript"></script>
<script src="./publico/javascript/mootools-1-1.2.4.2-more.js" type="text/javascript"></script>
<script src="./publico/javascript/targetbl.js" type="text/javascript"></script>
<script src="./publico/javascript/mensajes.js" type="text/javascript"></script>
<script src="./publico/javascript/form.js" type="text/javascript"></script>
<script src="./publico/javascript/autocompleter/Observer.js" type="text/javascript"></script>
<script src="./publico/javascript/autocompleter/Autocompleter.js" type="text/javascript"></script>
<script src="./publico/javascript/autocompleter/Autocompleter.Request.js" type="text/javascript"></script>
<script src="./publico/javascript/domready.js" type="text/javascript"></script>

<!-- Google tag (gtag.js) -->
<script async src="https://www.googletagmanager.com/gtag/js?id=G-2HP38G406P"></script>
<script>
  window.dataLayer = window.dataLayer || [];
  function gtag(){dataLayer.push(arguments);}
  gtag('js', new Date());

  gtag('config', 'G-2HP38G406P');
</script>



<script type="text/javascript">
function seleccionar_todo(){
   for (i=0;i<document.formulario_marcados.elements.length;i++)
      if(document.formulario_marcados.elements[i].type == "checkbox")
         document.formulario_marcados.elements[i].checked=1
}
function deseleccionar_todo(){
   for (i=0;i<document.formulario_marcados.elements.length;i++)
      if(document.formulario_marcados.elements[i].type == "checkbox")
         document.formulario_marcados.elements[i].checked=0
} 
</script>
	</head>
    <body style="min-width: 960px; background-color: #e2e2e2; height: 100%">	
		<a name="arriba"></a>
<div>
<div id="header">
    <table id="Tabla_01" height="105" border="0" cellpadding="0" cellspacing="0">
    <tr>
        <td>
            <img src="./publico/imagenes/cabecera/banner_new2_01.jpg" width="3" height="105" alt="">
        </td>
        <td>
            <img src="./publico/imagenes/cabecera/banner_new2_02.jpg" width="100" height="105" alt="">
        </td>
        <td width="100%" align="right"  style="min-width: 613px; background-repeat: no-repeat; background-position: top right; font-size: medium; font-weight: bold; color: white;">
            <table width="100%" height="105" border="0">
                <tr>
                    <td style=" vertical-align: top; width: 547px">
                        <!-- <a style="text-decoration: none" href="./"><img src="./publico/imagenes/cabecera/banner_new2_03.jpg"alt=""></a> -->
                        <a style="text-decoration: none" href="https://biblus.us.es/bibing/proyectos/"><img src="./publico/imagenes/cabecera/banner_new2_03.jpg"alt=""></a>
                     </td>
                     <td  background="./publico/imagenes/cabecera/banner_new2_04.jpg" style="background-repeat: no-repeat; background-color: #c6d4e8;"><br><br><br>
                         &nbsp;
                        </td>
                    </tr>
             </table>
        </td>
    </tr>
    <tr style="border-top: 1px solid #ffffff;">
        <td colspan="3" id="menu_sup" style="font-size: small; text-align: right; background-color: #9c1f2f; vertical-align: bottom">
                                     

                                <a href="https://biblus.us.es/bibing/proyectos/" class="enlace " style=" color: #ffffff">Inicio&nbsp;&nbsp;|</a>
                                <a href="https://biblus.us.es/bibing/proyectos/acerca/" style=" color: #ffffff" class="enlace ">&nbsp;&nbsp;Acerca de&nbsp;&nbsp;|</a>
                                
                                <a href="https://biblus.us.es/bibing/proyectos/contactar/" style=" color: #ffffff" class="enlace ">&nbsp;&nbsp;Contactar&nbsp;&nbsp;</a>
                         <!--       <a href="https://biblus.us.es/bibing/proyectos/ayuda/" style=" color: #ffffff" class="enlace  ">&nbsp;&nbsp;Ayuda&nbsp;&nbsp;|</a> -->
                                <!-- <form id="idioma" class=""  method="post" action="">
                                <div class="inline" style="color: white">
                                <input type="submit" class="tipo_letra " style=" color: #ffffff"name="idioma" value="Castellanossss" />&nbsp;&nbsp;
                                </div>	
                                </form> -->

                                </td>

    </tr>
    </table>
</div>
<br><br>
<div class="colmask rightmenu">
<div class="panel panel-default" style="margin:20px">
            <div class="panel-heading"><h4>GESTIÓN Y OPTIMIZACIÓN DE LA PRODUCCIÓN EN UNA F�BRICA DE ESTRUCTURAS MET�LICAS DE SILLER�A</h4><h5 style="color:grey"><span class="glyphicon glyphicon-user""></span> : <b>Narbona Fernández, Jesús</b><br><span class="glyphicon glyphicon-book""></span>  :<b> Ingenier&iacute;a Organización</b></h5></div><div class="panel-body"><div class="contenido_proyecto"><div class="titulo2_explorador">Contenido del proyecto:</div><div class="ruta"><a href="abreproy/30104">Directorio ra&iacute;z</a>&nbsp;&nbsp;>&nbsp;&nbsp;<a href="abreproy/30104/direccion/C%C3%B3digo+y+formularios%252F">Código y formularios</a>&nbsp;&nbsp;>&nbsp;&nbsp;<a href="abreproy/30104/direccion/C%C3%B3digo+y+formularios%252FNBcontrol.frm%252F">NBcontrol.frm</a></div><div class="listing"></div></div></div></div>
</div>
</div>

        
	</body>
 
 
<!-- Inicio Google Analytics -->
<!--
	<script type="text/javascript">
		var gaJsHost = (("https:" == document.location.protocol) ? "https://ssl." : "http://www.");
		document.write(unescape("%3Cscript src='" + gaJsHost + "google-analytics.com/ga.js' type='text/javascript'%3E%3C/script%3E"));
	</script>
	
	<script type="text/javascript">
		try {
		var pageTracker = _gat._getTracker("UA-7789620-1");
		pageTracker._trackPageview();
	} 
		catch(err) {}
	</script>
-->
<!-- Fin Google Analytics -->

</html>