Archivo para control de Stock

[Enigma25]

No.

Seria hacer el textbox aparte como dices pero solo eso. este no haria otra cosa.

[pedro14387]

Ahhh pero si se podria poner?? si lleva mucho chance dejalo asi, tendría que bajar el ultimo que subiste verdad? el de ayer?

[Enigma25]

Prueba este ya que el otro no me salia la parte de la modificacion muy bien. Ahora si.

Stock.2.0.zip

[pedro14387]

Sii te si esta bueno, me da opción a ponerle el precio de venta al producto, lastima no haberte dicho antes eso yo pero bueno el programa es bastante funcional, gracias por tu ayuda Enigma25,

[Enigma25]

Ya te voy a agregar si el peso me lo permite, la opcion de consultar tanto las entradas como salidas por rangos de fechas y que te saque la diferencias entre las mismas. Asi podrás hacer las consultas para saber cuanto ganaste en una fecha especifica.

[pedro14387]

Ahhh gracias!!! me llegas fíjate siempre le das un extra a las cosas, segui asi tio sos buenisisisisimooo

[Enigma25]

Una pregunta... te funciona el control calendar?

[JoaoM]

El que sabe, sabe y lo demas es historia triste, jejejejje

Lo que pretende Pedor se podiera hacer con formula o com odice Enigma, un formulario separado para solo esa finalidad pero, YA enigma tiene con lo que ha echo que no ha sido poco aguantar estos 2 embrollos fastidiosos jajajajajjajaaj.

Jalan mas que un camion grua

Pedro la ptregunta de enigma, depende del Office que uses.

Si 2003 lo tiene si es 2007, 10 13 no lo tiene, hay que agregar la libreria en System32 del x86 y en C:\Windows\SysWow64 en x64 MSCAL.OCX y MSCAL.hlp y luego registrar la ocx

Registrar el MSCAL.OCX te dejo un enlace para facilitarte las cosas, es mas facil que explicartelo por acá Control Calendar para Excel 2010 en windows 7 32 y 64 bit (solucionado) | Excel Negocios | El portal de Excel para Contadores

[JoaoM]

Seguida y repetida.

Podria algun moderador eliminaral?

Gracias

[Enigma25]

Hola Pedro

Este tiene una modificacion en el formulario de consultar Movimientos de Materiales con una nueva opcion para consultar por fangos de fechas.

Primero selecciona el material a consultar

Luego doble click en el primer textbox para que te muestre un calendario en dende pondras la fecha de inicio

Lugo doble click en el segundo textbox para que te muestra un nuevo formulario donde colocaras la fecha final

Luego click al boton "Consultar diferencias"

Stock.2.0.zip

[pedro14387]

Magnifico!! funciona a la perfeccion y ya se me ocurrio como hacer para lo del precio, cree otra hoja de Excel y el mete el codigo y le tira el nombre, precio costo y existencia, jejeje mas facil gracias por tu incondicional ayuda Enigma25

[Enigma25]

Me gusatria ver como lo haces esos calculos

[pedro14387]

Con la formula BuscarV y hace referencia a la hoja BASE del documento Stock que tu me enviaste

Unilos en alguna carpeta y ya!!

Stock.rar

buscar.rar

[JoaoM]

Poco a poco:

Quisiera hacerle lo propio a este tal como hiciste al de Entrada

Private Sub ComboBox1_AfterUpdate()

Dim Resta As Integer

For Resta = 0 To ListBox1.ListCount - 1

If ComboBox1 = ListBox1.Column(0, Resta) Then    'hacer para que el ComboBox1 acepte cualquier carácter. Acepta si pero no me llena los Labels

lblStock.Caption = Format(lblStock - ListBox1.Column(5, Resta), "#,##0")

End If

Next Resta

End Sub[/CODE]

Le coloque . Text pero en salida no me funciona

Edito:

Ya di con el cambio, ya agregue el : Text y me funciona

Otra cosa.

(formfechaI y formfechaF) Pregunto a enigma si un solo formulario para fecha inicial y fecha Final, no seria suficiente.

Yo digo y hablo pero no se como ahcerlo,. Podiera ser e nves de nuevos formularios para la fecha, usar el DataPiker (creo) y son 2 formularios menos y menos peso

Esto lo que refiere a Consulta de movimiento

[Enigma25]

Cambia la linea de formulario de Salida donde hace el descuento de los items asi:

Lin = 2

Do While Hoja1.Cells(Lin, 1) <> ""

For F = 0 To ListBox1.ListCount - 1

If ListBox1.Column(0, F) = Hoja1.Cells(Lin, 1).Text Then '<Esta es la linea cambiada. Se le ponde Text para que reconozca todo el texto o numero

Hoja1.Cells(Lin, 6) = CDbl(Hoja1.Cells(Lin, 6)) - ListBox1.Column(5, F)

End If

Next: Lin = Lin + 1: Loop

En la linea del Formulario de Entrada cambiala por este:

Lin = 2

Do While Hoja1.Cells(Lin, 1) <> ""

For F = 0 To ListBox1.ListCount - 1

If ListBox1.Column(0, F) = Hoja1.Cells(Lin, 1).Text Then

Hoja1.Cells(Lin, 6) = CDbl(Hoja1.Cells(Lin, 6)) + ListBox1.Column(5, F)

End If

Next: Lin = Lin + 1: Loop

No uso el Control DtPicker por tanto el Control Calendario es el que tengo. Lo incluí en el formulario de Consultar_Mov por el tema de peso.

Dame un ejemplo de los codigos que usas en el archivo.

[Enigma25]

Hola Pedro

Aqui te dejo el archivo con unas mejoras y actualizaciones muy importantes que quizas te puedan ser util.

avisame cualquier cosa o novedad.

Saludos.

Stock.2.0.zip

[JoaoM]

Hola nigma25, mis saludos y agradecimientos una ves mas.

Si, en essa línea lo hice antes de tu respuesta y quedo listo.

Cuanto al código que uso, me dejaste neutro, no se a que te refieres o estoy en la luna en misión espacial, jejejjeje

Yo le eliminaría esto y colocaría todos los frames a Height 156 se ve mejor, es cosa de gustos y modificación al gusto de cada uno

Private Sub UserForm_Initialize()

    With Me

        '.Height = Application.Height

        '.Width = Application.Width

    End With

End Sub[/CODE]

Al final cada cual hace la entrada como mas le guste

[pedro14387]

Enigma xq sera q cuando entro a ciertos formularios me dice que falta un objeto y no me deja hacer nada, xq sera?

[JoaoM]

Pues si ya tienes el libro en que enigma agrego los dos Calendarios, eso es porque tu no tienes la librteria que contiene dicho calendario MSCAL.ocx

¿Cuáles son esos formularios?

Si acaso quieres, entra(abre) al libro y en el editor VBA vete por herramientas/Referencias y visualisa si tienes el Control Calendario o Microsoft Control calendario. Si visualizas eso, desactívalo y ya no te presentara ese error peeeeeeeeeeerro, tampoco tiendras el calendario en Consulta de Movimientos

[pedro14387]

Ahhh ya, pero eso me pasa también con los archivos viejos (donde no había calendario) será que hace falta algo mas en la pc??'

[Enigma25]

Es cuestion de agregar el control para que funcione. Para ello toma como referencia lo dicho por JoaM y podrás agregarlo.

[Enigma25]

JoaoM

Me referia al codigo usado para hacer las entradas y/o salidas. Le agregas el .Text y listo funcionará tanto para datos asi como para numeros.

[Enigma25]

Pedro

Esta mejora está aun mejor.

Stock.2.0.zip

[JoaoM]

Per opuede no haber otra librería diferente para algo que tenga el libro y solo tu sabras que es.

En este se que tiene calendario y el 2007, 10 y 13 no lo tiene así como otras

[JoaoM]

JoaoM

Me referia al codigo usado para hacer las entradas y/o salidas. Le agregas el .Text y listo funcionará tanto para datos asi como para numeros.

Si, Si, ya había quedado listo a la primera. Lo he comentado arriba, muy arriba