17/02/2015, 13:20
|
| | | Fecha de Ingreso: mayo-2012 Ubicación: provincia de barcelona
Mensajes: 2
Antigüedad: 12 años, 6 meses Puntos: 0 | |
| vb valor existencia de material txt
codigo = Label25.Caption
producto = Label3.Caption
Prec = Label11.Caption
existencias = Label24.Caption
If producto = Label3.Caption Then
existencias = existencias - Val(Text2.Text)
archivo = App.Path & "\Productos.dat"
Open archivo For Append As #1
Write #1, codigo, producto, Prec, existencias
Close
End If
Hola soy jilo2011
esta rutina lo que hace es descontar un producto de existencia de material, y lo hace.
el problema es que a la hora de guardar me añade el mismo articulo repetido en el archivo productos.dat, ya he probado de hacerlo con open archivo for output as #1, pero solo me guarda el articulo entrado, los demas articulos se borran. |