Autor: Nestor Guzman

Publicado el por — Dejar un comentario

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

Publicado el por — Dejar un comentario

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

Publicado el por — Dejar un comentario

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

Icono

Alta Rápida - Inventario v20

1 archivo(s) 16.18 KB
Descargar

Icono

Alta rápida - Inventario 2012

1 archivo(s) 16.18 KB
Descargar

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.

Publicado el por — Dejar un comentario

Modulo (Levantar Inventario conteo de registros)

Buenas Tardes Estimados Usuarios/Distribuidores

Modulo de Levantamiento de Inventario con la peculiaridad de visualización de producto Capturado y conteo de los mismos.

Icono

Alta Rápida - Inventario v20

1 archivo(s) 16.18 KB
Descargar

Icono

Alta rápida - Inventario 2012

1 archivo(s) 16.18 KB
Descargar

Grupo Help Mbp
Nestor Guzman