Hola

Renfield Ireul
23 de Septiembre del 2010
Ante todo, la presentacion. Soy de Albacete, y estudio programacion. Mi pregunta es la siguiente. Estoy haciendo un proyecto de la gestion de un a tienda. El ejercicio trata sobre todo de ficheros, pero me está dando por el "cul*" porque no me guarda con el PUT. Osea, me explico. Crea el arrchivo, pero lo crea vacio, 0 bytes. Pongo el codigo a ver si alguien tiene mas ojo que yo o me puede ayudar, porque no me gilo. Gracias de antemano.


Private Sub cmd_opciones_Click(Index As Integer)


Public Type proveedor
codigo As String * 4
proveedor As String * 30
direccion As String * 20
ciudad As String * 15
codigo_postal As String * 5
telefono As String * 15
contacto As String * 15
forma_de_pago As String * 8
descuento As Integer
End Type

Public alta As Boolean
Public posicion As Integer
Public condicion_ventana As Boolean

Public Type articulo
codigo As String * 4
fecha_pedido As Date
nombre As String * 15
descripcion As String * 20
precio As Double
cod_prove As String * 4
coste As Double
End Type

Dim a As articulo
Dim canal As Integer
Dim p As proveedor

Select Case Index
Case 0
Unload Me
Case 1
If List1.ListIndex = -1 Then
MsgBox "Hay que seleccionar un proveedor", vbDefaultButton1, Error
Else
a.codigo = Text1(1)
a.fecha_pedido = Date
a.nombre = Text1(2)
a.descripcion = Text1(3)
a.precio = Text1(0)
a.coste = Text1(5)
On Error Resume Next
canal = FreeFile()
Open App.Path & "provedores.ren" For Random As #canal Len =Len(p)
If Err.Number 0 Then
MsgBox "Error al abrir el archivo", vbCritical, Error
Unload Me
MDIForm1.Show
Else
On Error Resume Next
Put #canal, (LOF(canal) Len(a)) + 1, a
If Err.Number 0 Then
MsgBox "Error al guardar"
Else
MsgBox "Exito al guardar"
a.cod_prove = p.codigo
Close
End If
End If
Resume Next
End If
End Select
Unload Me
End Sub