Publicado el Dejar un comentario

Compartiendo Codigo Limpieza de Registros.

Nos dimos a la tarea de Crear una sintaxis para Eliminar de la Base de datos informacion que ya no se ocupara como es :

+Cobranza.
+Entradas.
+Salidas
+Ventas
+Colocar en 0 las Existencias

Esto con el Fin de Limpiar la Base de Datos.

Es importante realizar un Respaldo antes de Ejecutar la Siguiente Consulta

1.- Abrir el Sql Managment

1.1.-Elije la Base de datos

2.-Nuevo Consulta

3.-Copia y pega el Siguiente

DELETE FROM cobdet
DELETE FROM cobranza
DELETE FROM partvta
DELETE FROM ventas
DELETE FROM movsinv
DELETE FROM salpart
DELETE FROM salidas
DELETE FROM comppart
DELETE FROM compras
DELETE FROM entpart
DELETE FROM entradas

UPDATE prods SET existencia = ‘0’
UPDATE existenciaalmacen SET existencia = ‘0’

Si lo deseas en Mybusiness

1.-Procedimientos de Usuarios

2.-Nuevo

Pega este Codigo y coloca un Nombre y una descripcion

Ambiente.Connection.Execute “DELETE FROM cobdet”
Ambiente.Connection.Execute “DELETE FROM cobranza”
Ambiente.Connection.Execute “DELETE FROM partvta”
Ambiente.Connection.Execute “DELETE FROM ventas”
Ambiente.Connection.Execute “DELETE FROM movsinv”
Ambiente.Connection.Execute “DELETE FROM salpart”
Ambiente.Connection.Execute “DELETE FROM salidas”
Ambiente.Connection.Execute “DELETE FROM comppart”
Ambiente.Connection.Execute “DELETE FROM compras”
Ambiente.Connection.Execute “DELETE FROM entpart”
Ambiente.Connection.Execute “DELETE FROM entradas”
Ambiente.Connection.Execute “UPDATE prods SET existencia = ‘0’”
Ambiente.Connection.Execute “UPDATE existenciaalmacen SET existencia = ‘0’”

MsgBox(“Limpieza Ejecutada”)

Publicado el Dejar un comentario

Modulo para Vinos y Licores

Estimado Usuario/Distribuidor

En esta ocacion les mostramos una forma para llevar el control tanto de informacion como de Almacen.

1-Datos de Producto
Año de Cosecha
Grados a Refrigerar
Grados de Alcohol
Existencia Global
Existencia por Almacen
Entre otros

Grupo HelpMBP
Twitter: @NestorGuzmanMBP

Publicado el Dejar un comentario

Compartamos Codigo (Inhabilitar Caja Precio de Venta).

En Varias ocaciones me han comentado los que tienen mas de una Sucursal el detalle de cambiar el precio en la segunda sucursal y que por motivos erroreos o por accidente , el precio de venta cambie,hoy les muestro la sentencia para que no suceda esto.

1.-Abrimos el Procedimiento PUNTOV001
2.- Colocamos la Siguiente Sintaxis.

 'Inhabilitamos    la cfaja de texto de Precio
txtFields(1).Enabled = False

(Imagen)



Este es El Resultado

Grupo HelpMBP
Twitter: @NestorGuzmanMBP

Publicado el Dejar un comentario

IMPORTA LISTA DE PRECIOS MASIVOS (Excel)

Estimados Usuarios y/o Distribuidores

Les Presentamos un modulo con el cual podra usted importar la lista de precios y/o ,modificar descripcion , agregar Clave y Unidad Sat.


Cabe Mencionar que este Proceso lo hemos modificado con el fin de no afectar las tablas de Almacen y esto a su vez modifique las existencias.

Grupo HelpMBP
Twitter: @NestorGuzmanMBP

Publicado el Dejar un comentario

Compartiendo Codigo

Llena Grid con dos registros de Productos

En esta ocacion compartimos un codigo para desplegar reistros en un Objeto Grid.
1.-Modulo Programacion.
2.-Ambiente Desarrollo
3.-nuevo damos un click en la ficha diseño
4.-Presionamosl boton y arrastramos el objeto a nuestra forma.
Nota Presionamos Click derecho y arrastramos hacia arriba y hacia los lados para ajustar el tamaño de nuetra grid.
5.-damos un ckil en el formulario y nos vamos a Eventos al Load.
6.-Pegamos el Siguiente codigo

Dim Fondo  Rem Declaramos la Variable Fondo
Fondo = RGB(95,158,160)     'la Variable Fondo se le asigna el color que deseamos RGB
Me.BackColor = Fondo    'Se le asigna a la forma el color antes especificado

Me.CaPtion = “EJEMPLO GRID ” ‘Se le asigna el nombre en la barra de Titulo de la Forma

fillGrid "SELECT articulo,descrip FROM prods "  'se llena la cuadricula con la siguiente sintaxis , que despliegue articulo y descripcion de la tabla prods que es la tabla donde se guardan los productos
Grid.ColumnWidth(Grid.ColumnKey(1)) = 130 ' se le asigna al renglon el ancho 
Grid.ColumnWidth(Grid.ColumnKey(2)) = 1000

Grupo HelpMBP
Twitter: @NestorGuzmanMBP