Me encontre con la necesidad de Actualizar la tabla de productos, el registro de Clave Sat (claveprodserv) , de una linea especifica, ya que contenia la clave de Articulo no encontrado en Catalogo (01010101), me dieron la Clave asignada a dichos productos del catalogo del sat, ahora bien les comparto la sintaxis que utilize para actualizar dicho campo y asignar la clave unidad (claveunidad).
1.-Abrir Sql MAnagment Studio 2.-Seleccionar la Base de datos 3.-Nueva Consulta 4.-Escribir la Siguiente Sintaxis
Update prods set claveprodserv = ‘23456789’ where linea = ‘031’ go
Descripcion de la SIntaxis
prods = Tabla Productos.
claveprodserv = Clave del Sat.
linea = Linea en donde se encuentra el producto
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
En esta ocasión le mostrare como cambiar el color de los botones de mesa ,asi como su tamaño de letra, la sintaxis es la siguiente
Case 1
Controles( "cmdClasificacion" & n ).BackColor = vbRed 1
Case 2
Controles( "cmdClasificacion" & n ).BackColor = vbYellow 2
Case 3
Controles( "cmdClasificacion" & n ).BackColor = vbGreen 3
Case 4
Controles( "cmdClasificacion" & n ).BackColor = Vbblue 4
Esta es la secuencia que sigue
1.-Azul
2.-Amarillo
3.-Verde
4.-VbBlue
Si deseamos cambiar el color de alguno de ellos solo cambiamos el color
Controles( “cmdClasificacion” & n ).BackColor = (Vbblue) Cambiar por el color deseado
Para el tamaño de letra Controles( “cmdClasificacion” & n ).Font.Size = (8) Cambiar por el tamaño adecuado