Attribute VB_Name = "Module1"
Option Explicit
'declaracion variables producto
Public Type gproducto
referencia As Double
descripcion As String
udsutillaje As Double
cantidad As Double
End Type
Public gproducto As gproducto
'declaracion varialbes pieza
Public Type gpieza
descripcion As String
tipoproceso As String
longitud As Double
espesor As Double
medida1 As Double
medida2 As Double
unidades As Integer
acabado As String
conjunto As String
End Type
Public gpieza As gpieza
'declaracion variables proceso
Public Type gproceso
corteman As Boolean
corteauto As Boolean
curvado As Boolean
prensahidra As Boolean
prensameca As Boolean
taladrado As Boolean
soldaduramanual As Boolean
soldadurarobots As Boolean
pulido As Boolean
cromado As Boolean
pintado As Boolean
embalaje As Boolean
t_corteman As Double
t_corteauto As Double
t_curvado As Double
t_prensahidra As Double
t_prensameca As Double
t_taladrado As Double
t_soldaduramanual As Double
t_soldadurarobots As Double
t_pulido As Double
t_cromado As Double
t_pintado As Double
t_embalaje As Double
End Type
Public gproceso As gproceso
Public conn As New ADODB.Connection
Public rslistado As ADODB.Recordset
e-REdING. Biblioteca de la Escuela Superior de Ingenieros de Sevilla.
