Archivo para control de Stock

[JoaoM]

Pero explica el ¿porque?

[Enigma25]

Tendré la paciencia contigo porque es evidente que no sabes mucho de vba o inventario, supongo. No deseo hacerme ver como el que sabe, pues estoy en esta aventura y ruego por seguir aprendiendo. Pero lo importante, lo que mas nos define; Es la necesidad de investigar, sacrificarse y leer para asi ver con una buena optica la vida.

La hoja record es donde se registra las operaciones: dicha hoja existe y guarda desde el numero de la operacion hasta el subtotal de cada item. Dicha hoja sirve para los reportes y demas. Como los informes de salidas, de entradas por material. En dicha hoja estan las entradas y/o salidas.

En la hoja menu encontrarás los botones con los cuales podrás realizar los reportes.

Ojo, este igual se le puede agregar mas reportes pero por motivos de peso del archivo no se permite.

Eso de que seas exigente, te recomiendo que lo seas contigo mismo y en tu curiosidad y aprendizaje y sobre todo la humildad.

Si, lo explico; Eres un reto y te felicito por eso..!!!

[JoaoM]

Ya vi la utilidad de la hoja Reporte. Es que la barra desplazamiento estaba abajo y nada se veia nunca, ahora se cual es su utilidad, Entradas y salidas.

No deseo hacerme ver como el que sabe, pues estoy en esta aventura y ruego por seguir aprendiendo

Si y mucho mas que yo que nada se, algo entiendo( lo sensillo) pero construir codigo o entender el para que algunas (muchas) lineas de codigo, NANAI NANAI.

Si te das cuenta en la hoja Documento, la presentacion de UMV y Cantidad por Empaque estan cambiadas, solo cambie

.Cells(5, 1) = "Cantidad por Empaque"

por

.Cells(6, 1) = "U.M.V"[/CODE]

5 por 6 y viceversa

en el evento del buton CommandBotton1 del formulario Consultar_Mov

[JoaoM]

Quiero que quede claro que cualquier comentario que yo haga, no es con el fin de criticar destructivamente, si no para correccion de algun error (pienso yo) que se presente

Algunos errores que presentan los formularios Modificar o eliminar son que en dichos formularios el codigo despues de usar los butones CommadBotton 1 y 2 el TextBox1 esta Enabled = False y así no puede recibir el focus. Debes cambiar TextBox1 al TextBox2.

Ya mensionado atras, usando el form Consulta Registro y Consulta Movimientos, es que estan cambiados de lugar U.M.V. por Cantidad por Empaque, solucion en el post #28.

Muy importante; Para meter Productos, el codigo a dar a cada producto tiene que ir precedido de al menos una letra (la que le convenga) Ej. p1000 o solamente letras.

Donde exista esta rutina Ej.

TextBox1 = ""

TextBox2 = ""

ComboBox1 = ""

TextBox3 = ""

TextBox4 = ""

ListBox1.ListIndex = -1

TextBox2.SetFocus

Label6.Caption = ""[/CODE]

Puede ser cambiada por

Limpiar

Esta Limpiar corresponde a esta

[CODE]Sub Limpiar() 'para TextBox y ComboBox en formulario
Dim Ctrl As Object
For Each Ctrl In [COLOR="#FF0000"]Mod_Eli_Producto[/COLOR].Controls
If TypeOf Ctrl Is MSForms.TextBox Then Ctrl = Empty
If TypeOf Ctrl Is MSForms.ComboBox Then Ctrl = Empty
Next Ctrl
MsgBox ("Controles limpios para nuevo uso"), vbInformation, "Limpiesa"
End Sub[/CODE]

colocada esta en un Modulo. [b] [color=#FF0000]Mod_Eli_Producto[/color][/b] es el nombre del formulario al cual corresponde la ventana de edicion de codigo.

Hay otras cosas que he ido corrigiendo que de momento no recuerdo y al tener todo funcionando CORRECTAMENTE hare un pequeño Informativo en una hoja especifica para tal in para los usuarios que lo bajen sepan como y cual es el funcionamiento de este libro.

[color=#0000FF]Quisiera pedir a Enigma25 si me podia ayudar a cambiar de columna y hoja sin que me de algun error a la posteriori, Ej para la hoja Menu, columna AA.[/color]

[color=#0000FF]Unidad Medida venta

CAJA

PAQUETE

BANDEJA

TAMBOR

LITRO[/color]

[color=#FF0000] [b]ya listo, cambiado sin problema alguno[/b][/color]

Algo que vaia encontrando, voy tratando de emendar y mensionando como corrigir (si es que puedo corrigirlo yo sin ayuda jejejejej)

Edito:

Pienso que unidad (sea paquete, caja ect ect) que de entrada o salida, estos se considferan enteros, es decir; no puedo dar entrada de media caja con medias manzanas. mensiono esto porque los LabelsStock contiene un formato #,##0.000, es decir que presenta 20 cajas como 20,000 y pienso que deveria presentar 20. Para l oultimo, quitarle el formato #,##0.000 dejando la linea así

[CODE]lblStock.Caption = Format(Hoja1.Cells(Txt, 6)) ', "#.##0")[/CODE]

no le veo sentido presentar decimales.

Seguiré Editando

[Enigma25]

joaoM

En varias oportunidades mencionas de que no sabes mucho sobre codigos y cito tu comentario:

Si y mucho mas que yo que nada se, algo entiendo( lo sensillo) pero construir codigo o entender el para que algunas (muchas) lineas de codigo, NANAI NANAI.

Pero luego hablas de errores, de que el formulario esto, de que el formulario aquello, de tus soluciones para que, segun tu, funcione correctamente. Dices que los comentarios que haces no son destructivos, no obstante, todo lo dicho en verdad deja mucho espacio a la duda, pues en verdad pudiera tomarlo a mal. Siendo éste un aporte hecho con mucha humildad, en el que me maté, si te parece la analogia, para que luego, personas que se aventuran en este mundo tengan otra herramienta mas para ayudarse.

Ten presente que es un aporte y que está a la orden de todos quienes quieran aprender de el.

Como siempre te digo... Se humilde mi amigo. Eso te abrirá las puertas en todo.

Buenas noches.

[JoaoM]

Esta bien, te parece mal corrigir aunque praticamente nada se de CONSTRUCCION de codigo pero por lo menos algo he corrigido como el formato numerico de #,##0.000 a #,##0 y moneda de #,##0.000 a #,##0.00.

Gracias amigo. dejo el tema por aqui, algo se aprende con tu comentario, se ve que estas molesto

[Enigma25]

JoaoM

Pierde cuidado. Como dije anteriormente los comentarios serán bienvenidos, sin embargo, el archivo fué hecho de manera que quienes lo utilizen, puedan aprender, modificar, adaptar a sus necesidades y según sus requerimientos. Es decir; si no usan formato decimales en el stock, pueden modifocarlo, si no usan código de texto si no numeros, entonces lo modifcan y asi sucesivamente.

El archivo está hecho y aportado con código abierto para que lo puedan evaluar y analizar y quien sabe, puede que aprendan uno que otro codigo que les hacia falta por aprender. Tal como yo lo veo, la informacion es publica, es decir; una idea puede estar al alcance de los demas, no para conocimiento propio porque con el morir, eso desaparece. No existe algo mas honorable que enseñar y aun mas que el que aprende, lo ponga en practica.

Siéntete libre de expresarte siempre y cuando valores lo que tienes al frente y sepas aprovecharlo.

Nota Importante: En cuanto pueda, volveré a verificar el archivo y corregir todo lo necesario para que esté operando de manera que no les presente error.

Mis respetos.

[pakilprogramador1]

muy bueno pero al momento de registrar entradas y salidas se generan errores en el código. cuando ingresas la cantidad

[Enigma25]

Buenas tardes pakilprogramador1

Está en todo lo cierto. El primer archivo al cual dejé, tiene esos problemas es por el tema de condiciones ya que si digita un valor en el caja de texto en donde se coloca las cantidades, este le arrojará error porque no ha mostrado con anterioridad el item al cual va a procesar. Para ello tendria que condicionarlo para que no ocurra.

Ejemplo del codigo para que no ocurra:

Label12.Caption = ""
ElseIf ComboBox1.Text = "" Then: Label12.Caption = ""
Exit Sub
Else
.Lo demas......
end if

[/PHP]

Ahora bien, considerando esto, es posible igualmente que, no tenga registrado algun(os) material(es) en la base de datos asi como tambien los Proveedores y Clientes. Cosa con la cual es vital que tenga ya que toda esa informacion convergen en un mismo formulario (Entrada o Salida).

Es fundamental que trabaje primero en la creacion de los proveedores, clientes, items y demas y luego registre una entrada y posterirmente una salida.

Luego me dirá si le funciona. Cualquier cosa estamos a la orden.

Mis respetos.

Buen dia

El archivo que adjunto nuevamente, tiene la modificacion del codigo para que no les de error al digitar las cantidades si este no cuenta con el item a agregar. Por favor cualquier cosa me avisan para hacer las modificaciones del mismo.

Mis respetos.

[/font][font=arial]

[/font]

Stock.2.0.zip

[triguillo]

Se puede hacer un resumen anual del inventario general? Gracias

[triguillo]

Buenas tardes pakilprogramador1

Está en todo lo cierto. El primer archivo al cual dejé, tiene esos problemas es por el tema de condiciones ya que si digita un valor en el caja de texto en donde se coloca las cantidades, este le arrojará error porque no ha mostrado con anterioridad el item al cual va a procesar. Para ello tendria que condicionarlo para que no ocurra.

Ejemplo del codigo para que no ocurra:

Label12.Caption = ""
ElseIf ComboBox1.Text = "" Then: Label12.Caption = ""
Exit Sub
Else
.Lo demas......
end if

[/PHP]

Ahora bien, considerando esto, es posible igualmente que, no tenga registrado algun(os) material(es) en la base de datos asi como tambien los Proveedores y Clientes. Cosa con la cual es vital que tenga ya que toda esa informacion convergen en un mismo formulario (Entrada o Salida).

Es fundamental que trabaje primero en la creacion de los proveedores, clientes, items y demas y luego registre una entrada y posterirmente una salida.

Luego me dirá si le funciona. Cualquier cosa estamos a la orden.

Mis respetos.

Buen dia

El archivo que adjunto nuevamente, tiene la modificacion del codigo para que no les de error al digitar las cantidades si este no cuenta con el item a agregar. Por favor cualquier cosa me avisan para hacer las modificaciones del mismo.

Mis respetos.

[/font]

Se puede hacer un resumen anual del inventario general? Gracias

[Enigma25]

Hola

En verdad no tengo el como hacerlo en los momentos ya que no tengo ni idea de como plasmarlo en el archivo. Pero si me das algunas ideas, por supuesto lo podemos hacer con gusto.

[Enigma25]

Hola

aun estoy investigando el tema ya que nunca lo había considerado pero pero lo tomaré como nuevo reto. Sin embargo, puede ayudarte que lo hagas primeramente con tablas dinámicas, allí podrias sumar por años las salidas y entradas.

No obstante y entendiendo que se necesita tipo código, esto lo buscare-consultaré para poder ayudarte.

Saludos.

[triguillo]

Hola

aun estoy investigando el tema ya que nunca lo había considerado pero pero lo tomaré como nuevo reto. Sin embargo, puede ayudarte que lo hagas primeramente con tablas dinámicas, allí podrias sumar por años las salidas y entradas.

No obstante y entendiendo que se necesita tipo código, esto lo buscare-consultaré para poder ayudarte.

Saludos.

Eres muy amable, y desde ya muchas gracias por tu ayuda. Que nuestro PADRE te de bendiciones, y muchas gracias por tu caridad!!! Quedo a la espera de esto.

[Enigma25]

Hola

Gracias a la colaboración del señor Riddle, podré darle continuidad al código para atender tu solicitud. Solo déjame para mañana martes 10-12-13 darle forma tanto al formulario como el código en si.

Saludos.

[Enigma25]

Hola triguillo

Gracias al señor Ridlle quien me ayudó en los códigos para mostrar los años en la hoja activa, adjunto el siguiente archivo con la respuesta a tu requerimiento.

Tiene algunos datos como ejemplo para probar el funcionamiento del codigo.

El formulario es "Resumen Anual por Operación" es decir; que podrás consultar los años por tipo de operación.

Cuentame tus impresiones. Saludos.

Stock.2.0.zip

[pajuma]

Excelente aporte Enigma25 veo que se validaron los errores que arrojaban en un principio.. muy bueno.

[Enigma25]

Mil gracias pajuma

se corrigieron algunos detalles y demás. Lo malo que al agregarle mas código, este aumentaria su peso. Por eso está solo con lo que tiene y si se puede agregar algo mas, se haria como en este caso de los resumenes anuales.

Ahora estoy pensando en hacerlo por meses y años. creo que seria de gran utilidad.

Estaré estudiando la forma de hacerlo. culaquier cosa lo comentaré.

Mis respetos.

[Enigma25]

Hola

Subo nuevamente el archivo con una modificacion para consultar meses por fechas, es decir; si necesitas solo saber el mes de Enero pero en distintas años, podras hacer la operacion, siempre y cuando coloques el tipo de Movimiento que requieras tambien.

Espero tus comentarios. Saludos.

Stock.2.0.zip

[pajuma]

Cada mejora un reto nuevo para innovar, muy bueno Enigma25

[pedro14387]

Enigma, otra cosita... ponerle precio de vennta no se puede verdad, para ver cuanto compre y cuanto vendi al final de un mes (en dinero), xq solo se le puede poner el precio de compra pero no el precio al q lo kiero vender....

[pedro14387]

Se me ocurre, q en lugar de cantidad de empake se coloke precio de venta y que siga todo igual y al llegar al formularrrio de salida que multiplike la cantidad x el precio de venta no x precio unitario y asi se arreglaria xq se comparan las entradas con las salidas y ya tengo la ganancia no?

[JoaoM]

Hola enigma25.

Tengo el proyecto inicial de la pagina 1, ¿Cómo hacer para agregar ese detalle al inicial o todo para que quede completo hasta la fecha?.

o

¿Se podría subir ya completísimo? se te agradeciera de mi parte y algunos mas porque , está fenomenal

[Enigma25]

hola Pedro

Creo que para ello se agregaria la opcion de registrar el precio de venta en el formulario de registrar Material y el de Modificacar Materia.

Luego en el formulario de Salida que solo muetre el precio de venta.

No será necesario hacer cambios del empaque ya que como te he dicho; los cambios afectan los codigos para las otras operaciones.

[JoaoM]

Por otro lado este ultimo, me da el siguiente error 9 al abrir el formulario

Private Sub CommandButton10_Click()

Consultar_Reg.Show

End Sub

Dice: Se ha producido error 9 en tiempo ode ejecución

Subíndice fuera de intervalo

Y me lleva a este evento que es la apertura del formulario