Publicado el Dejar un comentario

Cambiar el Color de Fondo del Punto de Venta y Renglones

Mediante esta sintaxis de codigo usted podra cambiar el Fondo del Punto de Venta, asi como el de los renglones del mismo.

Procediemiento PUNTOV001
Sintaxis de Cambio de color Fondo de PV
Guia Linea 15
Me.BackColor = VbBlue

Procedimiento PUNTOV055
Sintaxis de Cambio de color de Renglones
Guia Linea 112
fg2.CellBackColor = RGB( 130, 100, 200

Publicado el Dejar un comentario

Compartiendo Codigo (Extraer una cadena de texto).

Se nos consulto para extraer una cadena de un cuadro de texto de Mybusinesspos les compartimos la sentencia.

Nota: Mid (cadena, inicio, longitud)

El parámetro cadena es la cadena a extraer caracteres. El parámetro Inicio es donde comenzar y el parámetro longitud, es la cantidad de caracteres a extraer de la cadena de caracteres

utilizamos la informacion de 2 objetos (Cuadro de Texto)

txtCodigo = trim (Mid(txtModelo,1,3))&trim(Mid(txtcolor,1,2))

txtCodigo = objeto a colocar la extraccion de caracteres
txtModelo,1,3 = comenzaremos con el primer caracter (1), la longitud de caracteres (3)

Lo mejor que se puede compartir es el Conocimiento
Grupo Help MBP
@NestorGuzmanMBP

Publicado el Dejar un comentario

Compartiendo Codigo (Captura de Inventario).

Nota Urgente : Cabe mencionar que es necesario realizar un Respaldo de nuestra base de Datos.

En esta ocacion se nos consulto para capurar un inventario, deseaban borrar los movimientos al nventario (Entradas,Salidas,Compras), asi como colocar las existencias en 0.

Esta es la sintaxis que utilizamos
1.-Abrir Sql Managment Studio
2.-Seleccionar la Base de Datos
3.-Nueva Consulta

Colocar las existencias en 0
Actualizamos la tabla Prods donde se concentra el catalogo de Productos
update prods set existencia = ‘0’

Actualizamos la tabla existenciaalmacen donde se concentra el las existencias por Almacen
update existenciaalmacen set existencia = ‘0’
Estas Dos tablas son relacionadas.

Para borrar los movimientos al Inventario
DELETE FROM partinv
DELETE FROM movsinv

Para borrar Salidas
DELETE FROM salpart
DELETE FROM salidas

Para borrar Compras
DELETE FROM compart
DELETE FROM compras

Para borrar Entadas
DELETE FROM entpart
DELETE FROM entradas

Con estas lineas de Sentencias Sql Logramos Limpiar paricial la Base de datos.
El uso de estas Sentencias es Resposabilidad del usuario

Grupo Help MBP
@NestorGuzmanMBP

Publicado el Dejar un comentario

De tip´s en tip´s Aprendo

En esta ocacion les muestro como desplegar informacion en un Objeto Grid

La Sintaxis seria la Siguiente:

Me.Caption = "EJEMPLO DE GRID VENTANA 1"  (Colocamos el nombre de la Forma)
Me.BackColor = RGB(0,128,128)  (Colocamos el color de la forma)

Dim s

s = _

“SELECT venta, ocupado, tipo_doc FROM ventas” (designamos los registros a mostrar asi como la tabla)

‘ 1.- Sentencia de SQL, 2.- Color del primer renglon
‘ 3.- El color del siguiente renglon, 4.- Cuantos
‘ renglones se muestran por capa, 5 y 6.- Columna
‘ y renglon de inicio
fillGrid (s), RGB( 200, 200, 200 ), _
RGB( 240, 240, 240 ), 40, 0, 0




si deseamos asignar un ancho especifico la sintaxis seria la siguiente debajo de la ultima linea

Grid.ColumnWidth(Grid.ColumnKey(1)) = 120
Grid.ColumnWidth(Grid.ColumnKey(2)) = 100
Grid.ColumnWidth(Grid.ColumnKey(3)) = 100

Nestor Octavio Guzman Bernal
Consultor de Analisis de Desarrollo