Mediante este modulo visualizaremos las equivalencias de nuestros productos.
Este modulo esta enfocado a las Refaccionarias
Autor: Nestor Guzman
Cambio de Lineas(Productos)
Medante el siguiente modulo se podra cambiar de linea el o los productos seleccionando y aplicandolo.
De Tip`s en Tip`s Aprendo (Formato Ticket).
Si deseas que posterior a la venta te pregunte si deseas Imprimir el Ticket deberas de quitar los comentarios de las siguientes lineas
Esto es del Formato de Ticket
If MsgBox( “Desea imprimir el ticket”, vbQuestion + vbYesNo + vbDefaultButton2 ) = vbNo Then
Exit Sub
End If
Si deseas que te muestre un previo a tu venta (Ticket)
Deberas de colocar la siguiente sintaxis
MsgBox(cSalida)
Esta sintaxis debera de ser colocada antes de la impresion del formato, dejo el ejemplo de colocacion.
Else
MsgBox(cSalida)
Script.sendToPrinter Ambiente, (cSalida), prn.Pantalla
Grupo Help MBP
Nestor Guzman
Condicion para que pregunte si desea imprimir
Desplegar vista en cuadro Preliminar
Compartiendo Codigo “Eliminar Informacion bajo un filtro de usuario” En las tablas partvta y ventas
Buenos Dias Estimados Distribuidores/Usuarios
En esta ocacion se nos pidio el asesoramiento para eliminar la informacion de las tablas de partvta y ventas, con el filtro del Usuario .
Les comparto la Sintaxis que se realizo
Esto es en el Sql Managment Studio
delete from partvta where usuario = ‘Coloque el Nombre del Usuario’
delete from ventas where usuario = ‘Coloque el Nombre del Usuario’
Si lo desean hacer dentro del Ambiente de MyBusinessPOS
Seria asi
Aperturar un Procedimiento nuevo.
Pegar la sintaxis.
Colocar un Nombre al Procedimiento.
Ejecutar Procedimiento.
Sub Main()
Ambiente.Connection.Execute “delete from partvta where usuario = ‘Coloque el Nombre del Usuario'”
Ambiente.Connection.Execute “delete from ventas where usuario = ‘Coloque el Nombre del Usuario'”
MsgBox(“Proceso Ejecutado Satisfactoriamente”)
End Sub
Grupo Help MBP
Nestor Guzman
Ejecucion en el Sql Managment
Ejecucion en el Ambiente de MyBusinessPOS
Compartiendo Codigo (Numero de Registros)
Buenas Tardes Estimados Usuarios/Distribuidores
Se nos consulto para saber el numero de registros realizados en una captura de inventario, les comparto la sintaxis
FUNCION COUNT()
Para averiguar la cantidad sin necesidad de contarlos manualmente usamos la función “count()”:
select count(*) from nombre de la tabla where invemtario (en este caso se debia tomar un valor de una caja de texto).
Sintaxis empleada en un formulario de MybusinessPOS
Se hace la cadena de conexion a la tabla articulo
Set rsttprods = CreaRecordSet (“select COUNT(articulo) As prodst FROM partinv WHERE inventario = ‘” & inventario.text & “‘” , Ambiente.Connection)
If Not rsttprods.EOF Then
txtarticuloscontados= “” & rsttprods( “prodst” ) ‘se asigna el valor devuelto de la cadena
end if
el
Sintaxis empleada en Sql Server
select count(articulo) from partinv where inventario = ‘numero de inv ‘
En este Caso condicionamos para que nos devuelva el conteo de los registros en el inventario
Grupo Help MBP
Nestor Guzman
Lo mejor que puedes compartir es el conocimiento.
