Visual Basic Foro

Programación => Visual Basic 6 => Mensaje iniciado por: plotor en Diciembre 03, 2022, 12:18:35 pm

Título: crear y leer archivos almacen
Publicado por: plotor en Diciembre 03, 2022, 12:18:35 pm
Hola estoy haciendo un mini aplicacion que es para crear uno o varios almacenes, crea los almacenes pero no guarda la informacion de un almacen en concreto

aqui esta la aplicacion


https://workupload.com/file/GHgQ96wbkCz


gracias
Título: Re:crear y leer archivos almacen
Publicado por: plotor en Marzo 09, 2023, 04:23:11 pm
Hola
necesito ayuda gracias
Título: Re:crear y leer archivos almacen
Publicado por: YAcosta en Marzo 10, 2023, 02:14:32 am
Hola
No preguntaré porque hay que complicarse tanto para hacer lo que quieres hacer sin usar al menos una base de datos (incluso Access), tus razones tendrás, pero en el código no veo en que parte guardas alguna informacion en el almacén que acabas de crear.
La duda que planteo es retorica, o sea, no necesito respuesta porque la forma en que manejas el tema me resulta estresante :-) (no eres tu, soy yo)
Por otro lado, checate si NumRegsProds debe quedar vacio, no veo donde eso se incremente, no llego a captar como funciona esto:
(https://i.snipboard.io/N6uAGO.jpg)

Lo se, no te he sido muy útil, sorry, mas no te puedo ayudar, ojala algún colega con mas experiencia en esta forma de manejar el código te pueda echar una mano.

Saludos
Título: Re:crear y leer archivos almacen
Publicado por: plotor en Marzo 10, 2023, 09:41:29 am
Gracias Yacosta
he incrementado la variable numregsprods y la introduccion de datos lo hace bien
el problema esta que el programa no capta si entro otro almacen me pone error en el formulario frmalmacen


Código: [Seleccionar]

' Añade un registro al fichero (y listado).
Private Sub Add(ByRef Registro As RegArticulosAlmacen)

    Put #Canal, PtrToReg(NumRegs), Registro
    NumRegs = (NumRegs + 1)
    Put #Canal, 1, NumRegs                                       '  y lo actualiza en fichero.
    Put #Canal, , AutoIncArticuloAlmacen
    Call List1.AddItem(RegArticuloToString(Registro))
    List1.ItemData(NumRegs - 1) = Registro.IdArticulo
   
    Call ActivarInterfaz
    Call ForzarLecturaArticulos
End Sub









me pone error en la variable  PtrToReg(NumRegs)



Erroe '52' en tiempo ejecucion:

Nombre o número de archivo incorrecto



Gracias
Título: Re:crear y leer archivos almacen
Publicado por: Ever Cerna en Marzo 11, 2023, 09:13:02 am
Se crean los almacenes con toda normalidad, se crean los artículos con normalidad mas no indicas en que almacén se va a guardar dicho artículo se está guardando directamente en el archivo almacen.regdata deberías colocar una Lista en donde se cargan los almacenes creados y antes de guardar el articulo creado elegir en que almacén se va a guardar dicho articulo.
Título: Re:crear y leer archivos almacen
Publicado por: plotor en Marzo 11, 2023, 09:49:32 am
Hola Ever Cerna


si los datos se guardan en almacen.regdata, los archivos creados se guardar en la carpeta almacen

se tendria que eliminar almacen,regdata, pero luego no guarda los datos introducidos en dicho almacen, esto es lo que sale mal, gracias