Resultados de búsqueda para “miniprinter ec line secuencias de escape ” – Página 75

Publicado el 12 julio, 201310 febrero, 2018 por José Félix 2 — 3 comentarios

Antes de aceptar un código lo dividimos en partes

Código que se ejecuta al presionar la Tecla F2 en el punto de Venta

Sub Main()


    If LCase(Articulo) = "_ini" Then

       Script.RunProcess "GREENBOXINI", Me, Ambiente

       CancelaProceso = True

       Exit Sub

    End If
    If LCase(Articulo) = "_setup" Then

       Script.RunProcess "GREENBOXALTA", Me, Ambiente

       CancelaProceso = True

       Exit Sub

    End If
    If LCase(Articulo) = "_tellerscatalog" Then

       Script.RunProcess "GREENBOXCAJEROS", Me, Ambiente

       CancelaProceso = True

       Exit Sub

    End If
    If LCase(Articulo) = "_ta" Then

       Script.RunProcess "GREENBOXTIEMPOAIRE", Me, Ambiente

       CancelaProceso = True

       Exit Sub

    End If     
    If LCase(Articulo) = "_tv" Then

       Script.RunProcess "GREENBOXVERIFICAR", Me, Ambiente

       CancelaProceso = True

       Exit Sub

    End If     
    If Articulo = "CONSULTA EXISTENCIA" Then

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

       CancelaProceso = True

       Exit Sub

    End If
    'Set rstArt = CreaRecordSet( "SELECT peso FROM prods WHERE articulo = '" & Articulo & "'", Ambiente.Connection )
    'If Not rstArt.EOF Then

    '   Me.Descuento = rstArt("peso")

    'End If
    'Call incrementaProducto()
    ' Articulo es una variable que entrega el dato que se capturo en

    ' el punto de venta

    If Trim( Ucase(Articulo) ) = "ADMISION" Then 
       If Me.Venta = 0 Then

          MyMessage "Es necesario capturar al menos de un producto"

          CancelaProceso = True

          Exit Sub

       End If
       Script.RunForm "MIFORMA", Me, Ambiente,  , True

       'PlaySound Ambiente.Path & "\sounds\s03.wav"

       CancelaProceso = True

    End If
    Me.usuarioRequerido = 0
    If clAt( "VPZ", Articulo ) = 1 Then

       Call recuperaVenta()

       CancelaProceso = True

    End If                 
    If Ucase(Trim(Articulo)) = "EXR" Then

       CancelaProceso = True

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

    End If                   
    Version2005     
    'Call calculaPrecioDecaja()
End Sub  
Sub calculaPrecioDeCaja()

    Dim rstClaveAdd

    Dim rstArticulo
    Set rstClaveAdd = CreaRecordSet( "SELECT articulo, cantidad FROM clavesadd WHERE clave = '" & Me.Articulo & "'", Ambiente.Connection )
    If rstClaveAdd.EOF Then

       Exit Sub

    End If
    If rstClaveAdd("cantidad") = 1 Then

       Exit Sub

    End If
    Set rstArticulo = CreaRecordSet( "SELECT precio3 FROM prods WHERE articulo = '" & Trim(rstClaveAdd("articulo")) & "'", Ambiente.Connection )
    If Not rstArticulo.EOF Then

       Me.PrecioEspecial = rstArticulo("precio3")

    End If
End Sub                  
Sub recuperaVenta()

    Dim rstVenta, nVenta
    nVenta = Val2( Mid( Articulo, 4 ) ) 
    Set rstVenta = CreaRecordSet( _

    "SELECT * FROM ventas WHERE venta = " & nVenta, _

    Ambiente.Connection )
    If rstVenta.EOF Then

       ' El campo 3 despliega los mensajes en el punto de venta

       txtFields(3) = "Venta no encontrada"

       Exit Sub

    End If    
    If rstVenta("estado") <> "PE" Then

       txtFields(3) = "Venta no valida"

       Exit Sub

    End If
    Set Me.rstVenta = rstVenta

    Set Me.rstPartidas = CreaRecordSet( _

    "SELECT * FROM partvta WHERE venta = " & nVenta, _

    Ambiente.Connection )

    Me.Venta = nVenta

    Me.Modo = "MODIFICACION"

    Me.Reload = True

    Me.ReiniciaVenta

    Eventos

    Me.CalculaImportes

End Sub          
Sub Version2005

    Dim rstEmpleado

    Dim cEmpleado

    Dim Query

    Dim nPos

    Dim cCodigo

    Dim cPeso

    Dim rstAsistencia

    Dim Contenido                      
    ' Articulo es una variable que entrega el punto de venta

    ' Esto proceso todos los comandos del punto de venta

    Call ValidaComando
    'validaNumeroDePartidas              
    If UCase(Trim(Articulo)) = "CENEFASXMARCA" Then

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

       CancelaProceso = True

    End If
    If UCase(Trim(Articulo)) = "CENEFAS" Then

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

       CancelaProceso = True

    End If
    If Ucase(Trim(Articulo)) = "BORDADO" Then

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

    End If
    If Ucase(Trim(Articulo)) = "LONAS" Then

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

    End If
    If Ucase(Trim(Articulo)) = "ESTAMPADO01" Then

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

    End If
    If Ucase(Trim(Articulo)) = "ESTAMPADO02" Then

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

    End If
    If Ucase(Trim(Articulo)) = "ESTAMPADO03" Then

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

    End If
    'SumaCantidades

    ' Articulo es una variable publica que contiene el dato que leyo el lector

    ' o que tecleo el usuario hasta el momento de presionar un enter

    nPos = clAt( "*", Articulo  )
    ' cantidadDeArticulos es una variable publica que indica la cantidad

    ' de productos que va a aceptar el punto de venta

    If nPos > 0 Then

       cantidadDeArticulos = Val2( Mid( Articulo, 1, nPos - 1 ) )

       Articulo = Mid( Articulo, nPos + 1 )

    End If
    ' Para articulos con peso

    If clAt( "ARTICULOPARAPESO", Articulo ) = 1 Then

       cCodigo = Mid( Articulo, 3, 5 )

       cPeso   = Mid( Articulo, 8 )

       Articulo = cCodigo

       CantidadDeArticulos = (Val2(cPeso) / 10000)

    End if                              
    nPos = clAt( "CLI", Articulo )
    ' La varable cancelaProceso termina el flujo de programa interno de MyBusiness

    ' Parecido a Exit Sub

    If nPos = 1 Then

       txtFields(0) = Mid( Articulo, 4 )

       txtFields(4) = ""

       CancelaProceso = True

       ChecaSaldo txtFields(0)

       ColocaFoto txtFields(0)

    End If    
    If clAt( "EMP", Articulo ) = 1 Then

       cEmpleado = UCase(Mid( Articulo, 4 ))

       Set rstEmpleado = CreaRecordSet( "SELECT * FROM empleados WHERE empleado = '" & cEmpleado & "'", Ambiente.Connection )
       If rstEmpleado.EOF Then

          txtFields(3) = "Empleado no existe"

          cancelaProceso = True

          txtFields(4) = ""

          PlaySound Ambiente.Path & "\sounds\error.wav"

          Exit Sub

       End If                           
       'Set rstEmpFecha = CreaRecordSet( "SELECT * FROM asistencia WHERE empleado = '" & cEmpleado & "' AND fecha = " & fechaSQL( Date, Ambiente.Connection ), Ambiente.Connection )
       'If Not rstEmpFecha.EOF Then

       '   txtFields(3) = "Usted ya fue registrado"

       '   cancelaProceso = True

       '   txtFields(4) = ""

       '   PlaySound Ambiente.Path & "\sounds\error.wav"

       '   Exit Sub

       'End If
       'PlaySound Ambiente.Path & "\sounds\ready.wav"
       Set Query = NewQuery()

       Set Query.Connection = Ambiente.Connection
       Query.strState = "INSERT"
       Query.AddField "asistencia", "id", TraeSiguiente( "asistencia", Ambiente.Connection )

       Query.AddField "asistencia", "fechahora", Formato( Date, "dd-MM-yyyy" ) & ":" & Formato( Time, "hh:mm:ss" )

       Query.AddField "asistencia", "retardo", Retardo( rstEmpleado("horaentrada") )

       Query.AddField "asistencia", "empleado", cEmpleado

       Query.AddField "asistencia", "fecha", Date

       Query.CreateQuery

       Query.Execute       
       txtFields(3) = rstEmpleado("nombre") & " " & Formato( Date, "dd-MM-yyyy" ) & ":" & Formato( Time, "hh:mm:ss" )

       CancelaProceso = True

       txtFields(4) = ""
       If Not clEmpty( rstEmpleado("imagen") ) Then

          CreaHTML "", ""

       End If
    End If
    If Ucase(Trim(Articulo)) = "ARTICULOS PROMOCIONALES" Then

       Script.RunProcess "GALAXIA", Me.Parent, Ambiente

       CancelaProceso = True

       txtFields(4) = ""

    End If            
    If Mid(UCase(Trim(Articulo)),1,6) = "MONEDA" Then

       cambiaMonedaDeLaVenta Trim(Mid( Articulo, 7 ))

       cancelaProceso = True

    End If

    'Call ValidaExistencia()

End Sub                    
Sub ValidaExistencia()

    Dim rstProd

    Set rstProd = CreaRecordSet( "SELECT alm" & Ambiente.Almacen & " FROM prods WHERE articulo = '" & articulo & "'", _

    Ambiente.Connection )
    If Not rstProd.EOF Then

       If rstProd(0) <= 0 Then
          Me.OperacionBloqueada = True
          txtFields(3) = "Existencia insuficiente, operación bloqueada" 
          CancelaProceso = True                   
          PlaySound Ambiente.Path & "\sounds\Existencia.wav"
       End If 
    End If

End Sub
                                              
Sub cambiaMonedaDeLaVenta( cMoneda )
    Dim rstVenta, rstMoneda, Query, rstMonedaOriginal

    Set rstVenta = CreaRecordSet( _
    "SELECT * FROM ventas WHERE venta = " & Me.Venta, Ambiente.Connection )

    Set rstMoneda = CreaRecordSet( _
    "SELECT * FROM monedas WHERE moneda = '" & cMoneda & "'", Ambiente.Connection )

    If Not rstMoneda.EOF Then
       Me.Moneda = cMoneda
       Me.tipoDeCambio = rstMoneda("tc")        
    Else
       Exit Sub
    End If

    If rstVenta.EOF Then
       Exit Sub
    End If                        

    If Ucase(Trim(rstVenta("moneda"))) = UCase(Trim(cMoneda)) Then
       Exit Sub
    End If     

    Ambiente.Connection.Execute _
    "UPDATE partvta SET precio = precio * " & FormatoDecimal( rstVenta("tipo_cam") ) & ", " & _
    "preciobase = preciobase * " & FormatoDecimal( rstVenta("tipo_cam") ) & ", " & _
    "donativo = donativo * " & FormatoDecimal( rstVenta("tipo_cam") ) & " " & _
    "WHERE venta = " & Me.Venta

    Ambiente.Connection.Execute _
    "UPDATE partvta SET precio = precio / " & FormatoDecimal( Me.tipoDeCambio ) & ", " & _
    "preciobase = preciobase / " & FormatoDecimal( Me.tipoDeCambio ) & ", " & _ 
    "donativo = donativo / " & FormatoDecimal( Me.tipoDeCambio ) & " " & _
    "WHERE venta = " & Me.Venta

    Set Query = NewQuery()
    Set Query.Connection = Ambiente.Connection          

    Query.Reset
    Query.strState = "UPDATE"
    Query.Condition = "venta = " & Me.Venta
    Query.AddField "ventas", "moneda", Me.Moneda
    Query.AddField "ventas", "tipo_cam", Me.tipoDeCambio
    Query.CreateQuery
    Query.Execute

    Parent.ReLoad = True
    ReiniciaVenta 
    CalculaImportes       

End Sub

Sub ChecaSaldo( Cliente ) 
    Dim rstSaldo, rstCobranza, Html
    
    Set rstSaldo = CreaRecordSet( "SELECT * FROM clients WHERE cliente = '" & Cliente & "'", _
        Ambiente.Connection )
    
    If rstSaldo.EOF Then
       Exit Sub
    End If

    CreaHTML "",""

    If rstSaldo("Saldo") <= 0 Then
       Exit Sub
    End If    

    PlaySound "c:\saldo.wav"

    Set rstCobranza = CreaRecordSet( _
    "SELECT * FROM cobranza WHERE cliente = '" & cliente & "' AND saldo > 0", _

    Ambiente.Connection )
    html = ""   
    While Not rstCobranza.EOF

          html = html & "
"

          html = html & "Documento " & rstCobranza("tipo_doc") & _

          rstCobranza("no_referen") & " " & rstCobranza("Saldo")

          html = html & "
"

          rstCobranza.MoveNext

    Wend          
    CreaHTML "",(Html)
End Sub
Function Retardo( strHora )

    Dim intMinutos

    Dim intMinutosActual

    Dim nPos

    Dim strHoraActual

    Dim tolerancia
    tolerancia = 10
    nPos = clAt( ":", strHora )

    intMinutos = Val2(  Mid( strHora, 1, nPos - 1)  ) * 60

    intMinutos = intMinutos + Val2( Mid( strHora, nPos + 1 ) )
    strHoraActual = Formato( Time(), "hh:mm" )

    nPos = clAt( ":", strHoraActual )

    intMinutosActual = Val2(  Mid( strHoraActual, 1, nPos - 1)  ) * 60

    intMinutosActual = intMinutosActual + Val2( Mid( strHoraActual, nPos + 1 ) )
    If intMinutosActual > (intMinutos + tolerancia) Then

       Retardo = intMinutosActual - intMinutos

    Else

       Retardo = 0

    End If
End Function
Sub ColocaFoto( cCliente )

    Dim cHtml               
    cHtml = ""

    CreaHTML "", (cHtml)
End Sub
Sub SumaCantidades()
    ' Buscamos si el artículo ya esta en el GRID

    For n = 1 to fg2.Rows - 1

        If clEmpty( fg2.TextMatrix( n, 0 ) ) Then

           Exit For

        End If 
		Set rstArtAux = Rst("SELECT tiempoaire FROM prods WHERE articulo = '" & Trim(Articulo) & "'", Ambiente.Connection)     
        If Trim(fg2.TextMatrix( n, 0 )) = Trim(Articulo) AND Val2(rstArtAux("tiempoaire")) <> 0 Then

           Ambiente.Connection.Execute "UPDATE partvta SET cantidad = cantidad + 1 WHERE id_salida = " & fg2.TextMatrix( n, 7 )

           fg2.TextMatrix( n, 1 ) = Val2( fg2.TextMatrix( n, 1 ) ) + 1

           txtFields(4) = ""

           CancelaProceso = True

           Exit Sub

        End If

    Next
End Sub
Sub validaNumeroDePartidas

    Dim rstPartidas
    Set rstPartidas = CreaRecordSet( _

        "SELECT COUNT( * ) FROM partvta WHERE venta = " & Me.Venta, _

        Ambiente.Connection )
    If Val2( rstPartidas(0) ) >= 4 Then

       MyMessage "No es posible capturar mas de 4 partidas"

       CancelaProceso = True

    End If    
End Sub
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
Sub llenaPuntoDeVenta

    Dim cLinea, dondeEstaLaComa, articulo
    ' CloseFile cierra un manejador de archivo

    CloseFile 1

    ' OpenFile Abre un archivo de texto para lectura

    OpenFile "c:\articulos.txt", 1
    ' FileEOF regresa true en caso de que el archivo

    ' de texto llegue a su final

    While Not FileEOF( 1 )

          ' ReadLine lee una cadena de texto

          ' hasta que encuentra un retorno de carro

          cLinea = ReadLine( 1 )

          dondeEstaLaComa = clAt( ",",  (cLinea) )

          articulo = Mid(cLinea, 1, dondeEstaLaComa -1 )
          ' cantidadDeArticulos es una variable que

          ' entrega el punto de venta e indica la

          ' cantidad de productos que se va a ingresar

          ' en el punto de venta

          cantidadDeArticulos = _

          Mid( cLinea, dondeEstaLaComa + 1 ) 
          ' llenaPartidad Es un metodo que ingresa

          ' producto en el punto de venta

          llenaPartida (articulo)

    Wend
    CloseFile 1
End Sub
Sub calculaPeso()

    Dim rstArticulo, cArticulo, nPesos
    nPos = clAt( "--", Articulo )

    cArticulo = Mid( Articulo, nPos + 2 )

    nPesos = Val2(Mid( Articulo, 1, nPos - 1 ))
    Set rstArticulo = CreaRecordSet( _

    "SELECT * FROM prods WHERE articulo = '" & cArticulo & "'", _

    Ambiente.Connection )
    If Not rstArticulo.EOF Then

       Articulo = cArticulo

       cantidadDeArticulos =  nPesos /  rstArticulo("precio1")

    End If
End Sub
Function Permisos( permisoSolicitado )
    Set rstUsuario = CreaRecordSet( _

    "SELECT * FROM usuarios WHERE usuario = '" & Ambiente.uid & "'", Ambiente.connection )
    If rstUsuario("supervisor") Then

	   cmdZ001.Caption = "Z001 Cambia o da de alta un cliente"

	   cmdZ002.Caption = "Z002 Quita bloqueo por error código de producto"

	   cmdZ003.Caption = "Z003 Confirma la venta o muestra ventana de cobro"

	   cmdZ004.Caption = "Z004 Da de alta o modifica un artículo"

	   cmdZ005.Caption = "Z005 Deja como pendiente la venta actual"

	   cmdZ006.Caption = "Z006 Muestra lista de ventas pendientes"

	   cmdZ007.Caption = "Z007 Posicionar el cursor en el campo de cliente"

	   cmdZ008.Caption = "Z008 Pantalla de descuentos"

	   cmdZ009.Caption = "Z009 Corte parcial X"

	   cmdZ010.Caption = "Z010 Corte total Z"

	   cmdZ011.Caption = "Z011 Permite capturar un ingreso de dinero a caja"

	   cmdZ012.Caption = "Z012 Permite capturar una salida de dinero a caja"

	   cmdZ013.Caption = "Z013   Realiza una devolución de mercancia en caja"

	   cmdZ014.Caption = "Z014   Convierte un ticket en factura"

	   cmdZ015.Caption = "Z015  Realiza el pago de la devolucion"

	   cmdZ016.Caption = "Z016 Cobranza a clientes"

	   cmdZ017.Caption = "Z017 Muestra información del próducto"

	   cmdZ018.Caption = "Z018 Re imprimir ticket"

	   cmdZ019.Caption = "Z019 Functiones ventas por teléfono (Informativo)"

	   cmdZ020.Caption = "Z020 Arqueo de efectivo"

	   cmdZ021.Caption = "Z021 Cambio de usuario"

	   cmdZ022.Caption = "Z022 Recupera ventas del colector"

	   cmdZ023.Caption = "Z023 Muestra la calculadora"

	   cmdZ024.Caption = "Z024 Abre el cajón de dinero"

	   cmdZ025.Caption = "Z025 Datos auxiliares del cliente"

	   cmdZ026.Caption = "Z026 Elimina la ultima venta"

       cmdZ027.Caption = "Z027 Observaciones a la venta"

       cmdZ028.Caption = "Z028 Descuento por importe"

    Else

	   cmdZ001.Caption = "Z001 Cambia o da de alta un cliente"

	   cmdZ002.Caption = "Z002 Quita bloqueo por error código de producto"

	   cmdZ003.Caption = "Z003 Confirma la venta o muestra ventana de cobro"

	   cmdZ004.Caption = "Z005 Deja como pendiente la venta actual"

	   cmdZ005.Caption = "Z006 Muestra lista de ventas pendientes"

	   cmdZ006.Caption = "Z007 Posicionar el cursor en el campo de cliente"

	   cmdZ007.Caption = "Z011 Permite capturar un ingreso de dinero a caja"

	   cmdZ008.Caption = "Z012 Permite capturar una salida de dinero a caja"

	   cmdZ009.Caption = "Z015  Realiza el pago de la devolucion"

	   cmdZ010.Caption = "Z020 Arqueo de efectivo"

	   cmdZ011.Caption = "Z021 Cambio de usuario"

	   cmdZ012.Caption = "Z024 Abre el cajón de dinero"

	   cmdZ013.Caption = "Z025 Muestra la calculadora"

	   cmdZ014.Caption = "Z026 Elimina la ultima venta"

       cmdZ015.Caption = "Z027 Observaciones a la venta"

       cmdZ016.Caption = "Z028 Descuento por importe"

    End If

End Function
Sub cantidaporPrecio()

    Dim nPos, cCantidad, cArticulo, rstProd

    Dim nPrecio
    nPos = clAt( "/", Articulo )

    cCantidad = Mid( Articulo,1, nPos - 1 )

    cArticulo = Trim( Mid( Articulo, nPos + 1 )  )
    Set rstProd = CreaRecordSet( "SELECT * FROM prods WHERE articulo = '" & cArticulo & "'", Ambiente.Connection )
    If rstProd.EOF Then

       Exit Sub

    End If   
    nCantidad = Round( Val2( cCantidad ) / rstProd("precio1"), 4 )
    If Not rstProd.EOF Then

       cantidadDeArticulos = nCantidad

       llenaPartida rstProd("Articulo")

    End If
    CancelaProceso = True

End Sub                      
Sub incrementaProducto()

    Dim rstArticulo, Query 
    Set rstArticulo = CreaRecordSet( _

    "SELECT articulo FROM prods WHERE articulo = '" & Me.Articulo & "' AND granel = 0 AND speso = 0", _

    Ambiente.Connection ) 
    Set Query = NewQuery()

    Set Query.Connection = Ambiente.Connection
    If rstArticulo.EOF Then

       Exit Sub

    End If     
    For n = 0 To fg2.Rows - 1
        If clEmpty( fg2.TextMatrix( n, 0 ) ) Then

           Exit For

        End If
        If Ucase(  Trim( fg2.TextMatrix(n,0) )  ) = _

           UCase( Trim(Me.Articulo) ) Then
           Query.SQL = _

        "UPDATE partvta SET cantidad = cantidad + 1 WHERE id_salida = " & _

           fg2.TextMatrix(n,7)

           Query.Exec
           fg2.TextMatrix(n,1) = Val2(fg2.TextMatrix(n,1)) + 1

           CancelaProceso = True

           Me.CalculaImportes

           Exit For

        End If  
    Next

End Sub

Publicado el 12 octubre, 20129 octubre, 2018 por José Félix 2 — Dejar un comentario

Respaldos automáticos en My Business POS

Tenemos una alternativa reciente para respaldar una base de datos en la nube. Esta alternativa es independiente del programa MyBusiness POS y permite programar los respaldos en Internet.

Solicita la configuración al WhatsApp 7222816462

Nunca se conoce la importancia de los respaldos hasta que ocurre un desastre, desde que un apagón dañe un archivo importante hasta lo peor: que se pierda toda la información de su disco duro, meses o quizás años de valiosa información de su negocio. Ahora MyBusiness POS (version 2008 a la 2012) le ofrece una forma automática de hacer respaldos, los cuales se pueden programar desde una sencilla ventana.

Este módulo se encuentra en la barra de tareas en la pestaña Utilerías, icono Respaldo.

Las opciones son:

CONFIGURACIÓN DEL RESPALDO.

Base de datos: Es la ruta donde se encuentra la base de datos que respaldaremos. Por omisión es C:\MyBusinessDatabase\MyBusinessPOS2012.mdf, que es la base de datos de MS SQL Server que se crea en la instalación.

Destino: Es la carpeta en donde se guardarán los respaldos, la cual se crea al momento de instalar el programa. Por omisión es C:\Respaldos\MyBusinessPOS2012.back.

Destino Adicional: Podemos utilizar esta opción para otra ruta donde se quiera guardar una copia de la base de datos. Por omisión es F:\Respaldos\MyBusinessPOS2012.back.

CONFIGURACIÓN DE LA CALENDARIZACIÓN.

Realizar desde: Esta opción nos la muestra en caso de tener varios equipos en red y queramos que una de las estaciones sea la que almacene la información de los respaldos.

Frecuencia: puede ser diaria, en cierta fecha y hora, una vez cada “x” días o en ciertos días específicos de la semana.

Elija una configuración adecuada a sus necesidades, de un clic en [Aplicar] y después en [Salir].

Ya cuenta ahora con una herramienta automática de respaldo de su información para no sufrir sobresaltos.

Fuente:Información obtenida del boletín No. 50 de http://mybusinesspos.com

Publicado el 10 agosto, 20122 agosto, 2015 por José Félix 2 — 2 comentarios

My Business POS 2012

Factura Electrónica CFDI 3.3 2012 Facturador

1 archivo(s) 13.16 MB

Descarga

Factura Electrónica CFDI 3.3 2011 Facturador

20.29 MB 1339 descargas

Factura Electrónica CFDI 2010

20.28 MB 478 descargas

Descarga la nueva versión de MyBusiness POS 2012 ahora!!!

MyBusiness POS 2012, Gratis

1 archivo(s) 131.63 MB

Descarga

[gview file=”http://helpmybusinesspos.info/wp-content/Descargas/2012/05/MyBusinessPOS2012_trip.pdf” height=”900″ width=”100%”]

Así que hay que probar las novedades que nos presenta; por supuesto espero que esta última versión sea mucho mejor que sus antecesoras 2008, 2010 y 2011; porque para lograr llegar hasta aquí tuvieron que pasar dos años de espera, quiero pensar que eso significa que los errores son mínimos

Lo único que espero es que este típtico no sea solo publicidad engañosa, esto debido a que muchos nuevos distribuidores se ven ilusionados y se arriesgan a tal grado de perder hasta la lealtad de sus clientes. Y pues con el cliente no se puede jugar…Hay que ofrecer soluciones y no problemas.

Los distribuidores que tienen el privilegio de ir al congreso a Cancún en este mes de Mayo, pues bien por ellos; en mi caso, pues la carga de trabajo no me permite asistir (y si tuviera tiempo y dinero pues mejor lo disfrutaba en Mérida y sus alrededores)

Aquí les dejo el link de descarga de la diferentes versiones de MyBusiness POS por si llegaran a necesitarlas

En lo personal, aun sigo recomendando la versión 2006 Delta por considero que es la que ha dado vida y costeado el desarrollo de las demás versiones.

Recomendación importante para los Distribuidores:

Antes de ofrecer el producto, hay que hacer las pruebas necesarias para tener la certeza de funcionalidad del software…

Bueno pues mucha suerte y éxito a todos.

Publicado el 5 agosto, 20129 junio, 2017 por José Félix 2 — 2 comentarios

Manejo de números de Serie, Lotes y Caducidades

Desde su versión 2010 y hasta la actual versión 2012, MyBusiness POS cuenta con un módulo de manejo de números de serie, lotes y caducidades.

Son opciones adicionales a las características de un artículo con el fin de determinar su entrada y salida UNICA.

Los pasos a seguir para manejar estas características son:

1.- Dar de alta el artículo con sus datos generales, en la pestaña “Información adicional” es necesario activar las casillas “Control de serie”, si va a ser un artículo que maneje números de serie; o bien, la casilla “Control de lotes” si es un artículo que va a manejar lotes y caducidades, esto es porque van ligadas las fechas de caducidad con los lotes.

2.- Configurar la estación de trabajo, esto para que los movimientos realizados con dichos artículos solicite los números de serie o bien sea elegido el lote y su respectiva fecha de caducidad. Para esto es necesario seguir la secuencia Business Manager -> Configuración -> Estaciones de trabajo -> Estacion01 -> pestaña “General”, localizamos las opciones “Solicitar pantalla de series” y “Solicitar pantalla de lotes”.

3.- Lo que resta es realizar movimientos de inventario. Es NECESARIO primero realizar compras o bien entradas al inventario ya que para manejar números de serie o lotes de caducidades debe el artículo tener existencias para venderse, de otra forma, el ciclo no es correcto.

4.- Posterior a capturar una entrada al inventario o una compra diríjase al icono “Lotes” o bien “números de serie” (según lo que desee manejar) y en estas ventanas debe capturar los siguientes datos:

Tipo de documento (factura, remisión, compra, etc.)
Número de documento
Si son lotes debe capturar el puerto de entrada (p. e. Veracruz, Manzanillo, etc.)
Si son lotes debe capturar el número de pedimento (Número de lote o pedimiento)
Sólo si todos los artículos pertenecen al mismo lote, de un clic en el botón de la derecha para asignárselo a cada artículo capturado.
5.- Ya que tiene existencias de estos artículos al venderlos dentro del punto de venta o de los asistentes de ventas (remisión o factura), le solicitara los números de serie o lotes que salen en esa venta.

El manejo de números de serie y lotes es ESTRICTO en manejo de existencias, si usted vende sin tener existencias el ciclo no se completa y las devoluciones de producto se verían afectadas.

Se recomienda usar estos módulos SOLO SI el manejo de las existencias es regular en la administración de su empresa o negocio.
Fuente: Boletín No. 137 de www.mybusinessspos.com

Publicado el 1 agosto, 201216 abril, 2020 por José Félix 2 — 13 comentarios

Configuración de Usuarios en My Business POS

La seguridad y el control de los usuarios son importantes para el buen manejo de cualquier empresa o negocio. En MyBusiness POS la configuración de usuarios consta de cinco niveles que le van a permitir configurar específicamente el perfil de cada uno de sus usuarios:

1. ALTA DE UN USUARIO.

Es necesario que acceda a MyBusiness POS con una clave de Supervisor, por ejemplo, “SUP SUP” (separado por un espacio). Ahora diríjase a ‘Business Manager’, carpeta ‘Configuración’, opción ‘Usuarios’.

De un clic en [Nuevo] y capturemos los siguientes datos:

Usuario: Es el nombre del usuario con el que va a accesar.
Nombre: Es el nombre completo del usuario.
Password: Hace referencia a la clave o palabra secreta de acceso.

Además es posible tomar las huellas del usuario para que el acceso al sistema pueda ser mediante la huella digital.

Este el procedimiento:

Una vez conectado el lector de huella, MyBusiness POS lo reconocerá de inmediato.
En la misma pantalla tomaremos lectura uno a uno de los dedos del usuario. Pueden ser solamente dos o los cinco dedos de una u ambas manos.

Una vez asignados los datos, tanto de las huellas como los de acceso por tecleo de usuario y clave, detallaremos las configuraciones de los usuarios.

En el proceso anterior dejamos sin activar la casilla “Es Supervisor”

¿Qué utilidad tiene que la active la casilla de Supervisor?

Esta casilla permite ver:

En el Business Manager: La carpeta de Configuración, la cual regula los catálogos de configuración de las estaciones de trabajo, los conceptos de cobranza, los conceptos de inventario, catálogos de monedas, etc., lo que detallaremos en un boletín posterior.
En la Barra de Iconos: El segmento de Configuración y de Programación que tienen iconos los cuales configuran y personalizan a MyBusiness POS.
En el Punto de Venta: Teclas de ayuda y funciones especiales para la venta, tales como los descuentos.
Reportes: Asigna todos los reportes al usuario “Supervisor”.

Ya que hemos comprendido la utilidad que tiene el activar o desactivar esta casilla proceda con la acción que considere propia del usuario que acaba de dar de alta.

2. CONFIGURACIÓN DE LOS DERECHOS EN EL BUSINESS MANAGER.

Vamos a ingresar a MyBusiness POS con una clave de Supervisor, por ejemplo, “SUP SUP” (separado por un espacio). Ahora diríjase a Business Manager, carpeta Configuración, opción Usuarios.

Seleccionamos al usuario que vamos a configurar, damos un clic derecho sobre él y escogemos la opción Derechos del Business Manager

Esta acción mostrará una ventana con una imagen similar al Business Manager que permitirá seleccionar una a una las carpetas a las que le daremos derecho de uso al usuario en cuestión; A su vez estas carpetas contienen menús que detallan acciones tales como “Nuevo”, “Modificar”, “Eliminar”, mismas que también son configurables.

Para definirle derechos a los usuarios posiciónese sobre el icono de la “llave” que desea restringir, dé un clic derecho y elija entre “Activado” e “Inactivo”, según le convenga.

Con lo anterior evitaremos que el usuario vea y use “carpetas” en el ‘Business Manager’ a las que no tiene derecho.

Es necesario entrar a My Business POS con el nombre del usuario y la contraseña asignada para verificar los cambios realizados.

Fuente:

Información obtenida del boletín No. 46 y 49 de https://mybusinesspos.com

Te atendemos 24/7 vía WhatsApp:

Te atendemos 24/7 vía WhatsApp:

Te atendemos 24/7 vía WhatsApp:

Te atendemos 24/7 vía WhatsApp:

Te atendemos 24/7 vía WhatsApp: