Resultados de la búsqueda para: codigo ms dos para abrir caja registradora

Publicado el por — 1 comentario

Personalizar comandos en punto de venta

En es sistema buscamos el procedimiento PUNTOV031 (business manager–configuracion–personalizacion–procedimientos y rutinas de usuario)
Dentor de este encontramos la función ValidaComando(). Ahí podemos ver cómo se invoca a las dierentes ventanas, como el Z010, Z009, Z026 y además podemos agregar las que necesitemos personalizar.


Sub ValidaComando()

If clAt( "/", Articulo ) > 0 And clAt( "//", Articulo ) = 0 Then
Call cantidaporPrecio()
Exit Sub
End If

If Trim(UCase(Articulo)) = "COMPRAS" Then
Set Compras = CreateObject( "MyBCompras.Compras" )
Set Compras.Ambiente = Ambiente
Compras.NuevaCompra True
End If

If Len( Trim( Articulo ) ) <> 4 Then
Exit Sub
End If

If clAt( "Z", UCase(Articulo) ) <> 1 Then
Exit Sub
End If

Select Case UCase(Articulo)
Case "Z001"
Script.RunForm "ALTACLIENTE", Me, Ambiente,, True
Case "Z002"
Me.OperacionBloqueada = False
txtFields(3) = "Operación Reactivada"
Case "Z003"
Me.FinalizaOperacion
Case "Z004"
Script.RunForm "ALTARAPIDA", Me, Ambiente,, True
Case "Z005"

If Question(Mensaje(642, Ambiente)) Then
Me.BorraVenta = True
Me.FinalizaOperacion
End If

Case "Z006"

Me.RecuperaVentaDeCliente

Case "Z007"

If txtFields(0).Enabled Then
txtFields(0).SetFocus
End If

Case "Z008"

AplicaDescuento

Case "Z009"

Script.RunProcess "CORTEX", Me, Ambiente

Case "Z010"

Script.RunProcess "CORTEZ", Me, Ambiente

Case "Z011"

Script.RunForm "PAGOEFECTIVO", Me, Ambiente,, True

Case "Z012"

Script.RunForm "COBROENEFECTIVO", Me, Ambiente,, True

Case "Z013"

Set rstUsuventas = CreaRecordSet( "SELECT * FROM usuventas WHERE usuario = '" & Ambiente.Uid & "'", Ambiente.Connection )

If rstUsuventas.EOF Then
Script.RunForm "DEVOLUCIONES", Me, Ambiente, True
'Exit Sub
End If

If Val2( rstUsuventas("devpunto") ) <> 0 Then
Script.RunForm "DEVOLUCIONES", Me, Ambiente, True
'Exit Sub
Else
MyMessage "No tiene derecho a hacer devoluciones, solicite el permiso con su supervisor"
'Exit Sub
End If

Case "Z014"

Script.RunForm "TICKETAFACTURA", Me, Ambiente,, True

'Case "Z016"
'
' Me.ActivaCobranza

Case "Z015"

Script.RunProcess "PUNTOV063", Me, Me.Ambiente

Case "Z016"

Script.RunForm "RETICKET", Me, Ambiente,, True

'Case "Z019"
'
' MyMessage "CONTROL + F12 Editar datos cliente" & vbCrLf & "CONTROL + F7 Editar guión" & vbCrLf & "SHIFT + F3 Colocar cursor en campo repartidor" & vbCrLf & "SHIFT + F4 Alta de repartidor"

Case "Z017"

Script.RunForm "FCAJA", Me, Ambiente,, True

Case "Z018"

Script.RunForm "CAMBIOUSUARIO", Me, Ambiente,, True

'Case "Z022"
'
' Script.RunProcess "VENTASCOLECTOR", Me, Me.Ambiente

Case "Z019"

Calculadora Ambiente

Case "Z020"

Script.RunProcess "ABRECAJON", Me, Me.Ambiente

Case "Z021"

Script.RunForm "AUXCLIENTS", Parent, Ambiente,, True

Case "Z022"

Script.RunProcess "ELIMINAVENTA", Me, Me.Ambiente

Case "Z023"

Script.RunForm "VENTASOBSERV", Me, Ambiente,, True

Case "Z024"

Script.RunForm "VENTASDESC", Me, Ambiente,, True

Case "Z025"

Script.RunForm "CAMBIOVALEEFECTIVO", Me, Me.Ambiente,, True

Case "Z026"

Script.Runform "FACTURADECIERRE", Me, Ambiente,, False

Case "Z027"

Script.RunHuellaForm "REGISTROACCESO", Me, Ambiente,, True

'Case "Z028"

'Script.Runform "LISTADEPEDIDOS", Me, Ambiente,, True

End Select

CancelaProceso = True
txtFields(4) = ""

End Sub

Publicado el por — Dejar un comentario

Corte Z con Arqueo de Caja

Si necesitas contar el dinero antes de hacer el corte, dejamos este formato

Icono

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

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

Corte Z con Arqueo de Dinero

25.78 KB 12 descargas

 

Publicado el por — 1 comentario

Abrir cajón de dinero con impresora USB

Para abrir el cajón de dinero, es necesario enviar la instrucción desde el controlador (driver) de la impresora, en la pestaña Comandos Adicionales aparece una opción para abrir cajón de dinero cada vez que se envía una impresión.

En las propiedades de la impresora genérica USB, los comandos de impresora son los siguientes:

  • Comando para Abrir el cajón
    <1B>p0<1414>
  • Comando para Cortar el papel, al finalizar trabajo de impresión
    <0A0A0A0A0A1B>i<0D0A>

Publicado el por — 2 comentarios

Cómo detener SQL SERVER para hacer respaldos

Detener el servicio SQL Server
a) Verificar que se tenga cerrado Mybusiness.
b) Dirigirse al Icono de Inicio de Windows y seleccionar en la Carpeta de Microsoft SQL Server 2005/Herramientas de Configuración/Administrador de Configuración
c) Le aparecerá una pantalla donde debe seleccionar Servicios de Sql Server 20xx

Los servicios de SQLSERVER 20xx se encuentran con un triangulo verde y están activados, debe seleccionar cada uno y dar un click con el botón derecho del mouse y elegir la opción de Detener. Se va a dar cuenta de que están detenidos cuando se encuentren en color rojo
Lo anterior muestra que los servicios están detenidos, y ahora es posible realizar una copia de sus respaldos de su Base de Datos.

Generar un respaldo de su Base de Datos.

Elija la carpeta “MyBusinessDatabase” ubicada en la unidad C. Esta capeta contiene la base de datos de MyBusiness POS.
Posteriormente debe copiar los dos archivos que tienen el nombre de: MyBusinessPos20xx.mdf MyBusinessPos20xx_log.ldf
O bien el nombre que usted le asignó a su base de datos. Y pegarlos en una memoria USB.

No olvide inicializar los servicios de SQLServer nuevamente en ese equipo.
Se dirige al equipo donde va a cargar ese respaldo, y realiza lo siguiente:
1.- Detener los servicios de SQLSERVER.
2.- Abrir la carpeta de MyBusiness, que se encuentra en C:/MyBusinessDataBase
3.- Pegar su base de datos en la carpeta anterior
4.- Inicializar los servicios de SQLSERVER 20xx
.