Categoría: Código

Publicado el por — 5 comentarios

Funciones para impresión de Ticket

Existen varias formas imprimir un ticket de venta tanto en pantalla como en la miniptinter.
El formato de ticket se encuentra en la ruta del business manager: configuración–personalizacion–formatos del sistema–TICKET. Abrir el código con doble clic e ir al final de este hasta identificar esta línea que se refiere a la impresión; ahí es posible aplicar diferentes opciones de impresión:

Script.sendToPrinter Ambiente, (cSalida), prn.Pantalla

Si queremos imprimir en USB, colocar:

'Código para impresora conectada por cable USB
'o para la impresora predeterminada de Windows).
IniciaDocumento
' EstableceImpresora "Mi Impresora laser" 'esta linea permite elegir impresora USB destino
EstableceFuente "Courier New", 8 'Fuente que tendra el ticket USB
Say 0,.2, cSalida 'Alineación del texto, en pulgadas. cSalida es el texto a imprimir
FinDocumento 'Termina la Impresión USB
'Exit Sub
'Exit Sub es por si deseamos que termine el proceso y saltar las lineas de código que le preceden
'

Si deseamos imprimir en impresora conectada por cable LPT:

'Función para impresora conectada por cable LPT
'Impresión de ticket, corteX y CorteZ _
Enviamos a la impresorade tickets que está configurada en ESTACION01
Script.sendToPrinter Ambiente, (cSalida), prn.Pantalla 'cSalida es el texto que se imprimirá
'

Si deseamos ver el texto del ticket en una ventana emergente:

MsgBox ("" & cSalida) 'cSalida es el texto que se visualizará
'

Una segunda opción para visualizar el el texto del ticket en una ventana emergente.

Mymessage "" & cSalida 'cSalida es el texto que se visualizará
'

Publicado el por — Dejar un comentario

Cómo hacer un Corte Z más pequeño?

Si deseamos un Corte Z que consuma menos papel, podemos hacer el siguiente ajuste en la ruta del business manager (Configuración–Personalización–Formatos del sistema–CorteZ). Nos colocamos aproximadamente en la linea 70 e identificamos la linea:

Icono

Editor de Corte Z, adecuar el corte a las necesidades del negocio

1 archivo(s) 0.00 KB
♞Registro
♞Entrar_D
Olvidé_P


    detallado = True

Modificamos esta linea a False y quedará así:


    detallado = False

Guardamos y hacemos la prueba

En caso de que necesitemos el corte completo con impuestos, lo podemos hacer el cambio a true y ya aparecerá la información detallada del corte.

Publicado el por — 1 comentario

Ejemplo de DBMultiCombo.MultiCombo

Cuando  echamos un vistazo al código de algunas formas, vemos que aparece en varios casos esto “DBMultiCombo.MultiCombo” .  Se trata de una clase que hace una consulta a la tabla llamada “QUERY”. Ahí podemos encontrar muchas consultas predefinidas; y si no existe, la podemos crear a nuestra medida o simplemente ampliar la búsqueda a otros campos que por default no considera el sistema.

DBMultiCombo

2.36 KB 391 descargas

A continuación se muestra la lista de consultas que trae el sistema, tal vez alguna te interesa:

  • Fabricantes
  • Modelos
  • CostosAdicionales
  • Comisionistas
  • Colonia
  • Repartidores
  • Tutor
  • Familias
  • Ofertas
  • Tallas
  • Colores
  • Reportes
  • Etapas
  • Lotes
  • Clasificación de inventario
  • Estados
  • Contactos por cliente
  • Clientes por descripcion
  • Articulos por descripción
  • Remisiones para devolución
  • Estaciones
  • Ubicación en almacen
  • Marcas por clave
  • Zonas de clientes
  • Ventas sin cancelar
  • Ventas pendientes
  • Ventas
  • Vendedores
  • Usuarios
  • Tipos de teléfono
  • Tipos de proveedores
  • Tipos de Polizas
  • Tipos de póliza
  • Tipos de pendientes
  • Tipos de clientes
  • Sucursales
  • Series disponibles
  • Remisiones
  • Proveedores por clave
  • Proveedores
  • Procedimientos y rutinas de usuario
  • Pendientes
  • Partidas de venta
  • Partidas de compra
  • Monedas
  • Marcas de Artículos
  • Líneas de Artículos
  • Inventarios físicos
  • Inventarios
  • Impuestos por porcentaje
  • Impuestos
  • Grupos de cuentas
  • Formatos
  • Facturas
  • Devoluciones
  • Contactos
  • Conceptos de salidas de inventario
  • Conceptos de ingreso
  • Conceptos de gastos
  • Conceptos de entrada al inventario
  • Conceptos de egresos
  • Conceptos de cuentas por pagar
  • Conceptos de cobranza
  • Conceptos de Cargos
  • Conceptos de abonos a proveedores
  • Conceptos de Abonos
  • Compras confirmadas
  • Código de formatos
  • Cobradores
  • Clientes por clave
  • Clientes
  • Claves adicionales de articulos
  • Centros de costo
  • Artículos por clave
  • Articulos para venta
  • Articulos
  • Almacenes
  • Direcciones de embarque
  • Subfamilia1
  • Subfamilia2
  • Subfamilia3
  • ClientesNC
  • Tickets
  • SeriesTickets
  • UsuariosGB

Si tienes alguna duda al respecto, puedes escribir tu comentario y podemos aclararla

Publicado el por — Dejar un comentario

Cómo hacer una consulta a la tabla de clientes

En esta ocasión mostramos un ejemplo de una ventana que consulta a la tabla de clientes y permite hacer el filtro por nombre.

Icono

Ejemplo Forma clientes

1 archivo(s) 2.35 KB
Descarga

Este es el código fuente

 

Sub Form_load()

'José Félix 20140812

'jofelchez@gmail.com

'Ejemplo de cómo hacer una consulta a la tabla de clientes

TxtCliente.TabIndex = 0

aceptar.Default = True

'TxtCliente.PasswordChar = "*"

'TxtCliente.BackColor = 0

'TxtCliente.ForeColor = vbGreen

'TxtCliente.font.size = 14

Me.Caption = "Ejemplo de consulta a cliente"

Set mc1 = Me.Controls.Add("DBMultiCombo.MultiCombo","mc1", Me)

With mc1

.Left = TxtCliente.Left

.Top = TxtCliente.Top

.Width = TxtCliente.Width + 450

.Height = TxtCliente.Height

Set .Connection = Ambiente.Connection

Set .txtObject = TxtCliente

.Buscar = "Clientes"

.Visible = True

Set TxtCliente.Container = mc1

End With

End Sub

Sub Button_Click()

Dim cUsuario

Dim cPassword

Dim nPos

Dim s

If ControlEvento.Tag = "cancelar" Then

bolAceptar = False

DescargaForma

Exit Sub

End If

'consulta a la base de datos

Set rstCliente = CreaRecordSet( _

"SELECT * FROM clients WHERE cliente = '" & TxtCliente & "'", _

Ambiente.Connection )

'En caso de que no se encuentre el usuario envía mensaje de error

If rstCliente.EOF Then

'Progress.Destroy

MyMessage "Error:" & vbCrLf & "No existe el cliente indicado"

EstableceFoco

Exit Sub

End If

mymessage " Cliente: " & rstCliente("cliente") & vbCrLf & " Nombre: " & rstCliente("nombre")

End Sub

Sub EstableceFoco()

TxtCliente.Setfocus

TxtCliente.SelStart = 0

TxtCliente.SelLength = Len( TxtCliente )

End Sub

Sub Text_KeyUp()

'Este bloque permite responder a una tecla

'En caso de

If KeyCode = 40 Then

Select Case ControlEvento.Tag

Case "TxtCliente"

TxtCliente.Container.ShowData

End Select

End If

'en caso de

If KeyCode = 27 Then

DescargaForma

'Exit Sub

End If

End Sub

Publicado el por — Dejar un comentario

Cómo modificar la malla de artículos

En MyBusinessPOS en todas sus versiones es posible personalizar la ventana del buscador para que se adapte a nuestras necesidades. Para lograr este cambio es necesario tener conocimientos básicos de programación y base de datos.
Los cambios básicos que se pueden aplicar pueden ser: cambiar el orden de las columnas, el ancho y ocultar datos innecesarios para colocar los que realmente nos importan.