Resultados de búsqueda para “comando para abrir cajon dinero ” – Página 22

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 4 junio, 20129 octubre, 2018 por José Félix 2 — Dejar un comentario

Recuperar Respaldo con SQL Management

Para recuperar un respaldo de MyBusiness POS debemos de tener instalada la utilería SQL Management Studio, que se incluye en su disco de instalación.

Si usted ya tiene instalada esta utilería accederemos a ella asegurándonos antes de que MyBusiness está cerrado, dando clic al menú “Inicio”, “Todos los Programas”, “Microsoft SQL Server 2005” y dando clic en el icono “SQL Server Management

Studio”.

SQL Management Studio 2005 (64 Bits)

37.12 MB 720 descargas

SQL Management Studio 2005

1 archivo(s) 43.12 MB

♞Registro
♞Entrar_D
Olvidé_P

En la ventana que nos aparece a continuación, en el dato “Autenticación” seleccionaremos la opción “Autenticación de Windows” y daremos clic en el botón [Conectar].

Entramos a la pantalla principal de “SQL Server Management Studio” y de nuestro lado izquierdo veremos un árbol de directorios, uno de ellos llamado “Bases de datos”, sobre del cual daremos un clic derecho y seleccionaremos la opción “Restaurar base de datos”.

Ahora veremos una nueva ventana en la cual deberemos hacer lo siguiente:

1. En el dato “A una base de datos” (to database) seleccionaremos la base de datos de MyBusinessPOS2012.mdf

2. Para el origen de la restauración seleccionaremos la opción “Desde dispositivo” y daremos clic en el botón con tres puntos. En la ventana que se nos muestra

enseguida daremos clic en el botón [Agregar] y nos aparecerá un nueva ventana en la que seleccionaremos el archivo de respaldo que queremos restaurar.

Los respaldos se encuentran en una carpeta llamada “Respaldo”. Podemos seleccionar nuestro archivo de respaldo de esa ubicación o bien de una memoria USB o un CD si es

que decidimos guardar ahí nuestros respaldos.

Para seleccionar nuestro archivo de respaldo, primero seleccionaremos la opción “Todos los archivos (*)” de la lista marcada como “Archivos de tipo”, posteriormente en el árbol

de directorios de la parte superior seleccionaremos nuestro archivo dependiendo en donde lo tengamos guardado y daremos un clic en [Aceptar]. Cabe mencionar que los

archivos de respaldo de MyBusiness POS se llaman MyBusinessPOSElite, MyBusinessPOS2010, MyBusinessPOS2011 o MyBusinessPOS2012, y tienen una extensión “ .back” seguida de la fecha en que se

realizaron.

De nuevo daremos clic en el botón [Aceptar] en la ventana donde ya agregamos el archivo, y ahora observaremos que en la ventana de “Restaurar Base de Datos” ya nos

aparece nuestro respaldo listo para ser cargado, tan solo activaremos la casilla “Restaurar” y daremos un clic en el botón [Aceptar]. Observaremos de nuestro lado izquierdo un indicador verde que nos muestra el progreso en la carga de nuestro respaldo.

Una vez finalizada la carga de el respaldo nos aparecerá un mensaje indicándonos que el proceso finalizo correctamente.

Ahora daremos clic en el botón [Ok], cerramos la aplicación SQL Management Studio e ingresamos a MyBusinessPOS para revisar que nuestra información se haya restaurado

correctamente.

Fuente: http://MyBusinessPOS.com

Publicado el 10 noviembre, 20119 octubre, 2012 por José Félix 2 — Dejar un comentario

Formato de tickets para credito

' Mybusiness POS v. 2011 Sub Main() Dim rstVenta


    Set rstVenta = CreaRecordSet( _

    "SELECT * FROM ventas WHERE venta = " & Documento, Ambiente.Connection )           
    If rstVenta("cobranza") > 0 Then

       ImprimeTicket

       ImprimeTicket

    Else

       ImprimeTicket

    End If
End Sub     
Sub ImprimeTicket
    'If MsgBox( "Desea imprimir el ticket", vbQuestion + vbYesNo + vbDefaultButton2 ) = vbNo Then

    '   Exit Sub

    'End If
    ' Creamos el recordSet del encabezado de la venta

    Set rstEncabezado = Rst("SELECT * FROM ventas WHERE venta = " & prn.Documento, Ambiente.Connection )
    ' Verificamos que la venta que se desea imprimir exista

    if rstEncabezado.EOF Then

       MsgBox "No existe la venta seleccionada",vbInformation

       Exit Sub

    end if 
    ' Creamos el recordSet de las partidas que componen la venta

    Set rstPartidas = Rst("SELECT partvta.iespecial, partvta.articulo, prods.precio1,prods.descrip, partvta.precio, partvta.cantidad, partvta.descuento, partvta.impuesto, partvta.preciobase, partvta.prdescrip FROM partvta INNER JOIN prods ON prods.articulo = partvta.articulo WHERE venta =" & rstEncabezado.fields("Venta"), Ambiente.Connection )
    ' Traemos todos los datos del cliente

    Set rstCliente = Rst("SELECT * FROM clients WHERE cliente = '" & rstEncabezado.fields("Cliente") & "'", Ambiente.Connection )
    ' Traemos los datos de cobranza si es que existe

    Set rstCobranza = Rst( "SELECT * FROM cobranza WHERE venta = " & rstEncabezado("venta"), Ambiente.Connection )
    cSalida = "" 
    'Esto abre el cajon de dinero

    if Ambiente.rstEstacion("Cajon") <> 0 Then

       cSalida = cSalida & Chr(27) & Chr(112) & Chr(48) & Chr(20) & Chr(20)

       cSalida = cSalida & Chr(7)

       ' Sansung de inyección

       ' cSalida = cSalida & Chr(27) & Chr(112) & Chr(48) & Chr(49)

    end if
    cSalida = cSalida & "" & Ambiente.Empresa & Chr(13) & Chr(10)

    cSalida = cSalida & "" & Trim( Ambiente.Direccion1 ) & Chr(13) & Chr(10)

    cSalida = cSalida & "" & Trim( Ambiente.Direccion2 ) & Chr(13) & Chr(10)

    cSalida = cSalida & "" & Trim( Ambiente.Telefonos ) & Chr(13) & Chr(10)

    cSalida = cSalida & "" & Trim( rstEncabezado("Usuario") ) & " " & Trim( Ambiente.Estacion ) & " Ticket: " & rstEncabezado("No_referen") & Chr(13) & Chr(10)
    cSalida = cSalida & Formato( rstEncabezado("f_emision"),"dd-MM-yyyy" ) & " Hora: " & rstEncabezado("usuHora") & Chr(13) & Chr(10)

    cSalida = cSalida & Trim( rstCliente("cliente") ) & " " & Trim( rstCliente("Nombre") ) & Chr(13) & Chr(10)

    cSalida = cSalida & Ambiente.rstEstacion("leyendacomodin") & " " & rstEncabezado("comodin") & Chr(13) & Chr(10)

    cSalida = cSalida & "Vendedor: " & rstEncabezado("Vend") & Chr(13) & Chr(10)

    cSalida = cSalida & "CANT. DESCRIPCION        PRECIO  IMPORTE" & Chr(13) & Chr(10)
    nImporteTotal = 0

    nImpuesto = 0

    nCantidadTotal = 0

    nDescuentoTotal = 0

    nImporteOrigen = 0
    'PrintText cSalida
    If Ambiente.Tag <> "HTML" Then
       If Ambiente.rstEstacion("ticket") <> 0 Then

          if clAt( "LPT", Ambiente.rstEstacion("pticket") ) > 0 Then

             Out Trim(Ambiente.rstEstacion("pticket")), cSalida

          else

             if Ambiente.Ticket.PortOpen Then

                Ambiente.Ticket.Output = cSalida

             end if

          end if

       End if           
       cSalida = ""
    End If
    While Not rstPartidas.EOF 
          nPrecio = rstPartidas("Precio") * ( 1 - (rstPartidas("Descuento")/100) ) * (1 + ( rstPartidas("impuesto") / 100 ) )

          nPrecioBase = Round( rstPartidas("PrecioBase") * (1 + ( rstPartidas("impuesto") / 100 ) ), 2)

          nDescuento = (nPrecioBase - nPrecio) * rstPartidas("Cantidad")
          If nPrecioBase > 0 Then

             nDescPor = ( nPrecio / nPrecioBase ) * 100

          Else

             nDescPor = 0

          End If 
          nDescuentoTotal = nDescuentoTotal + nDescuento

          nImporte = nPrecio * rstPartidas("Cantidad")
          nCantidad = PadL(Formato( rstPartidas("cantidad"), "##,##0.00" ),3)
          cDescrip  = Mid( rstPartidas("Descrip"), 1, 16 )

          nCantidadTotal = nCantidadTotal + rstPartidas("cantidad")
          nImporteTotal = nImporteTotal + nImporte

          nImpuesto = nImpuesto + ( nImporteTotal * ( rstPartidas("impuesto") / 100 ) )          
          nPrecio = 0

          nIEspecial = rstPartidas("Precio") * (Val2(rstPartidas("iespecial")) / 100)

          nIVa = rstPartidas("Precio") * (rstPartidas("impuesto") / 100)

          nPrecio = rstPartidas("Precio") + nIEspecial + nIVa
          cPrecio = PadL(Trim(Formato( nPrecio,  Ambiente.FDinero )),8)

          cImporte = PadL(Trim(Formato( Round( nPrecio, 2) * rstPartidas("cantidad") * (1 - (rstPartidas("descuento") / 100)), Ambiente.FDinero )),8)

          nPrecioOrigen = Round( rstPartidas("PrecioBase") * (1 + ( rstPartidas("impuesto") / 100 )),2) * rstPartidas("cantidad")

          nImporteOrigen = nImporteOrigen + nPrecioOrigen
          strSalida = PadL(Formato( nCantidad, Ambiente.Formato ),2) & " " & cDescrip & " " & cPrecio & "  " & cImporte
          'If rstPartidas("Precio1") > rstPartidas("Precio") Then

          '   nDescuentoPartida = ( rstPartidas("Precio1") - rstPartidas("Precio") ) * nCantidad

          '   strSalida = strSalida & " Descuento: " & Formato( nDescuentoPartida, "##,##0.00" ) & vbCrLf

          'End If
          cSalida = cSalida & strSalida & Chr(13) & Chr(10)
          If Not clEmpty( cNull( rstPartidas("prdescrip") ) ) Then

             cSalida = cSalida & Trim( rstPartidas("prdescrip") ) & vbCrLf

          End If     
          rstPartidas.MoveNext

    Wend
    'PrintText cSalida
    If Ambiente.Tag <> "HTML" Then
       If Ambiente.rstEstacion("ticket") <> 0 Then

          if clAt( "LPT", Ambiente.rstEstacion("pticket") ) > 0 Then

             Out Trim(Ambiente.rstEstacion("pticket")), cSalida

          else

             if Ambiente.Ticket.PortOpen Then

                Ambiente.Ticket.Output = cSalida

             end if

          end if

       End if           
       cSalida = ""
    End If
    cSalida = cSalida & Chr(13) & Chr(10)

    cSalida = cSalida & Chr(13) & Chr(10)    
    cSalida = cSalida & "         Importe:            " & PadL(Formato( Val2(rstEncabezado("importe")), Ambiente.FDinero ),10) & Chr(13) & Chr(10)

    cSalida = cSalida & "        Impuesto:            " & PadL(Formato( Val2(rstEncabezado("impuesto")), Ambiente.FDinero ),10) & Chr(13) & Chr(10)
    if Val2(rstEncabezado("iespecial")) > 0 Then

       cSalida = cSalida & "     Impuesto 2%:            " & PadL(Formato( Val2(rstEncabezado("iespecial")), Ambiente.FDinero ),10) & Chr(13) & Chr(10)

    end if
    if nDescuentoTotal > 0 Then

       cSalida = cSalida & "         Importe:            " & PadL(Formato( nImporteOrigen, Ambiente.FDinero ),10) & Chr(13) & Chr(10)

       cSalida = cSalida & "       Descuento:            " & PadL(Formato( nDescuentoTotal, Ambiente.FDinero ),10) & Chr(13) & Chr(10)

    end if
    cSalida = cSalida & "         Importe:            " & PadL(Formato( Val2(rstEncabezado("impuesto")) + Val2(rstEncabezado("importe")) + Val2(rstEncabezado("iespecial")), Ambiente.FDinero ),10) & Chr(13) & Chr(10)

    cSalida = cSalida & "        Redondeo:            " & PadL(Formato( Val2(rstEncabezado("Redondeo")), Ambiente.FDinero ),10) & Chr(13) & Chr(10)

    cSalida = cSalida & Chr(13) & Chr(10)

    cSalida = cSalida & PadL(Formato( nCantidadTotal, "###,###" ),4) & "  ----- TOTALES ----     " & PadL(Formato( (Val2(rstEncabezado("impuesto")) + Val2(rstEncabezado("importe")) + Val2(rstEncabezado("iespecial")) + Val2(rstEncabezado("redondeo"))), Ambiente.FDinero ),10) & Chr(13) & Chr(10)     
    nPagoTotal = Val2(rstEncabezado("Pago1")) + Val2(rstEncabezado("Pago2")) + Val2(rstEncabezado("Pago3"))
    if rstEncabezado("Pago1") > 0 Then

       cSalida = cSalida & "                  Pago en " & rstEncabezado("Concepto1") & " " & PadL(Formato( Val2(rstEncabezado("Pago1")), Ambiente.FDinero ),9) & Chr(13) & Chr(10)

    end if 
    if rstEncabezado("Pago2") > 0 Then

       cSalida = cSalida & "                  Pago en " & rstEncabezado("Concepto2") & " " & PadL(Formato( Val2(rstEncabezado("Pago2")), Ambiente.FDinero ),9) & Chr(13) & Chr(10)

    end if
    if rstEncabezado("Pago3") > 0 Then

       cSalida = cSalida & "                  Pago en " & rstEncabezado("Concepto3") & " " & PadL(Formato( Val2(rstEncabezado("Pago3")), Ambiente.FDinero ),9) & Chr(13) & Chr(10)

    end if
    Eventos
    if nPagoTotal < (Val2(rstEncabezado("impuesto")) + Val2(rstEncabezado("importe")) + Val2(rstEncabezado("iespecial")) + Val2(rstEncabezado("redondeo"))) Then
       cSalida = cSalida & "                     Credito: " & PadL(Formato( Val2(rstEncabezado("impuesto")) + Val2(rstEncabezado("iespecial")) + Val2(rstEncabezado("importe")) + Val2(rstEncabezado("redondeo")) - nPagoTotal, Ambiente.FDinero ),9) & Chr(13) & Chr(10)     
       cSalida = cSalida & "Debo y pagaré la cantidad de: " & PadL(Formato( Val2(rstEncabezado("impuesto")) + Val2(rstEncabezado("iespecial")) + Val2(rstEncabezado("importe")) + Val2(rstEncabezado("redondeo")) - nPagoTotal, Ambiente.FDinero ),9) & vbCrLf
       cSalida = cSalida & vbCrLf
       cSalida = cSalida & "______________________________" & vbCrLf
       cSalida = cSalida & "Nombre: " & vbCrLf
    else
       cSalida = cSalida & "                      Cambio: " & PadL(Formato( nPagoTotal - Val2(rstEncabezado("impuesto")) - Val2(rstEncabezado("iespecial")) - Val2(rstEncabezado("importe")) - Val2(rstEncabezado("redondeo")), Ambiente.FDinero ),9) & Chr(13) & Chr(10)     
    end if

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

    cSalida = cSalida & Chr(13) & Chr(10)
    cSalida = cSalida & Chr(13) & Chr(10)
    cSalida = cSalida & Letra( Val2(rstEncabezado("impuesto")) + Val2(rstEncabezado("importe")) + Val2(rstEncabezado("iespecial")), Trim(rstMoneda("Descrip")), True,rstMoneda("Nombre") ) & Chr(13) & Chr(10)
    cSalida = cSalida & Chr(13) & Chr(10)
    cSalida = cSalida & Chr(13) & Chr(10)
    cSalida = cSalida & Chr(13) & Chr(10)

    cSalida = cSalida & "***** GRACIAS POR SU COMPRA *****" & Chr(13) & Chr(10)
    cSalida = cSalida &  Chr(13) & Chr(10)
    cSalida = cSalida & Chr(13) & Chr(10)
    cSalida = cSalida & Chr(13) & Chr(10)
    cSalida = cSalida & Chr(13) & Chr(10)
    cSalida = cSalida & Chr(13) & Chr(10)
    cSalida = cSalida & Chr(13) & Chr(10)
    cSalida = cSalida & Chr(13) & Chr(10)    
    cSalida = cSalida & Chr(13) & Chr(10)    

    ' Esto manda un corte de papel 
     'PrintText cSalida

    if Ambiente.rstEstacion("ticketcorte") <> 0 Then

       cSalida = cSalida & Chr(27) & Chr(105)

    end if
    If Ambiente.Tag = "HTML" Then
       Ambiente.Tag = ""
       cSalida = Replace( cSalida, Chr(13) & Chr(10), "

" )

       cSalida = "

" & cSalida & "

"

       CreaHtml "", (cSalida)
    Else
       if Ambiente.rstEstacion("ticket") <> 0 Then

          if clAt( "LPT", Ambiente.rstEstacion("pticket") ) > 0 Then

             Out Trim(Ambiente.rstEstacion("pticket")), cSalida

          else

             if Ambiente.Ticket.PortOpen Then

                Ambiente.Ticket.Output = cSalida

             end if

          end if

       End if           
    End If
End Sub 
Te atendemos 24/7 vía WhatsApp:
WhatsApp 7222816462
Facebook Help MBP
El Club HMBP Distribuidores
Messenger Help MBP
Video Tutoriales
Tweet

Publicado el 1 noviembre, 20111 noviembre, 2012 por José Félix 2 — Dejar un comentario

Código Zebra 2844 y MyBusiness POS 2011

Puedes copiar este código y pegarlo en tu editor de mybusinesspos

' El siguiente procedimiento imprime las etiquetas de cada uno de los articulos Public Sub Main ()


    Set rstPartidas = CreaRecordSet( "SELECT articulo, descrip, etiquetas, precio1, precio2, precio10 FROM prods WHERE etiquetas > 0", Ambiente.Connection )
    While Not rstPartidas.EOF
          For i = 1 to rstPartidas("etiquetas")

              ImprimeEtiqueta "LPT1", rstPartidas("articulo"), "",rstPartidas("descrip") , Formato(rstPartidas("precio1"), "##,##0.00" ), Formato(rstPartidas("precio2"), "##,##0.00" ), Formato(rstPartidas("precio10"), "##,##0.00" )

          Next
          rstPartidas.MoveNext 
    Wend
    Set rstPartidas = CreaRecordSet( "SELECT clavesadd.clave, prods.descrip, clavesadd.etiquetas, prods.precio1, prods.precio2, prods.precio10 FROM clavesadd INNER JOIN prods ON clavesadd.articulo = prods.articulo WHERE clavesadd.etiquetas > 0", Ambiente.Connection )
    While Not rstPartidas.EOF
          For i = 1 to rstPartidas("etiquetas")

              ImprimeEtiqueta "LPT1", rstPartidas("clave"), "",rstPartidas("descrip") , Formato(rstPartidas("precio1"), "##,##0.00" ), Formato(rstPartidas("precio2"), "##,##0.00" ), Formato(rstPartidas("precio10"), "##,##0.00" )

          Next
          rstPartidas.MoveNext 
    Wend
End sub
Public Sub ImprimeEtiqueta( cPuerto, cArticulo, cDato1, cDescrip, cPrecioDeLista, cMayoreo, cSugerido )
cPuerto = Trim( cPuerto )

cArticulo = Trim( cArticulo )

cDescrip = Trim( cDescrip )

cDato1 = Trim( cDato1 )
cSalida = ""
' Aqui se puede modificar la etiqueta utiliza un lenguaje llamado EPL2 le adjunto manual del

' lenguaje, tambien si tienen la información del formato de la etiqueta y quieren que la

' diseñe por favor mandemelo

' Aqui se muestran los comandos basicos

' El comando N inicia la etiqueta

' El comando A muestra un dato de texto en donde el 250 es la posición en el eje de las X

' y el 15 la posición en el eje de las Y

' El comando B muestra el código de barras donde 250 es la posición en el eje de las X y 45

' Es la posición de inicio del eje de las Y

' El comando P Finaliza la etiqueta y el nunero 1 indica cuantas etiquetas se van a imprimir
cSalida = cSalida & "N" & Chr(13) & Chr(10)

cSalida = cSalida & "A250,15,0,1,1,1,N," & Chr(34) & Formato( Date, "dd-MM-yyyy" ) & Chr(34) & Chr(13) & Chr(10)

cSalida = cSalida & "A250,30,0,2,1,1,N," & Chr(34) & Mid( cDescrip,1, 30)& Chr(34) & Chr(13) & Chr(10)

cSalida = cSalida & "B250,70,0,1,2,6,80,B," & Chr(34) & cArticulo & Chr(34) & Chr(13) & Chr(10)

cSalida = cSalida & "A380,155,0,4,1,1,N," & Chr(34) & "PRECIO $" & cPrecioDeLista & Chr(34) & Chr(13) & Chr(10)

'cSalida = cSalida & "A250,95,0,2,1,1,N," & Chr(34) & cMayoreo & Chr(34) & Chr(13) & Chr(10)

cSalida = cSalida & "P1" & Chr(13) & Chr(10)
if Ambiente.rstEstacion("ietiquetas") <> 0 Then

   if clAt( "LPT", Ambiente.rstEstacion("ietiquetaspuerto") ) > 0 Then

      Out Trim(Ambiente.rstEstacion("ietiquetaspuerto")), cSalida

   else

      if Ambiente.ImpresoraDeEtiquetas.PortOpen Then

         Ambiente.ImpresoraDeEtiquetas.Output = cSalida

      end if

   end if

end if                                     
Dormir 100

Eventos

End Sub

Programar

Canal oficial de Video Tutoriales

¿Cómo Programar en MyBusiness POS?
A continuación se muestran algunas sintaxis de las funciones que utiliza MyBusiness POS, sobre todo van enfocados a los formatos de impresión de tickets (Ticket Explicado)

‘Declaración de las variables, globales o locales _
(en caso de que se encuentre en un bloque Sub)
Dim Variable

‘Salto de línea, _
el cual se asigna a la variable cLineaNueva
cLineaNueva = Chr(13) & Chr(10)

‘ Creamos el recordSet del encabezado de la venta ‘ el recordset _
“Rst(consulta, Ambiente.Connection)” es la lista de datos que nos _
interesan (con condiciones) de una determinada tabla y _
se guardan en la variable “rstEncabezado”.
Set rstEncabezado = Rst(“Consulta entre Comillas”, Ambiente.Connection)

‘Muestra el valor de la columna “Caja”, resultado de la consulta rstEncabezado
rstEncabezado(“caja”)

‘El nobre de la conexión a la base de datos actual
Ambiente.Connection

‘Valida si la consulta NO tuvo resultados
if rstEncabezado.EOF Then
MsgBox “No existe la venta seleccionada”,vbInformation
Exit Sub
end if

‘con “Exit Sub” terminamos el proceso (Sub Proceso() — end Sub). _
En este caso, se “mata” el proceso Sub Main(), porque estemos dentro de este.
Exit Sub

‘”cSalida” es la variable que almacena todo el texto que se imprimirá. _
en este caso “cSalida” se prepara en blanco. es importane ver en las _
siguientes líneas cómo es que se va alimentando esta variable “cSalida”
cSalida = “”

‘Propiedad de la estación que indica si hay Cajón de Dinero conectado (0, 1)
Ambiente.rstEstacion(“Cajon”)

‘Creación de la lista de registros a consultar
CreaRecordSet( “Consulta entre comillas”, Ambiente.Connection )

‘Borra los espacios al principio y al final de un texto o variable String
Trim( “Texto con espacios al final” )

‘Asigna una determinada cantidad de espacios para alinera a la DERECHA
PadL( “Cadena de Texto”, 11 )

‘Asigna una determinada cantidad de espacios para alinera a la IZQUIERDA
PadR( “Cadena de texto”, 11 )

‘Subcadena de texto, útil para múltiples líneas de texto (texto, inicio, largo)
Mid( “Cadena de Texto”, 1, 15 )
Mid( “Cadena de Texto”, 16, 20 )

‘ Esto manda un corte de papel
if Ambiente.rstEstacion(“ticketcorte”) <> 0 Then
cSalida = cSalida & Chr(27) & Chr(105)
end if

‘este bloque permite imprimir en una impresora _
USB (imprime en la impresora predeterminada de Windows).
IniciaDocumento
‘Fuente que tendra el ticket USB
EstableceFuente “Courier New”, 8

‘Alineación del texto en el ticket, en pulgadas
Say 0,.2, cSalida

‘Termina la Impresión USB
FinDocumento
Exit Sub

‘Impresión de ticket, corteX y CorteZ _
Enviamos a la impresorade tickets que esta definida en ESTACION01
Script.sendToPrinter Ambiente, (cSalida), prn.Pantalla

‘Permite definir la fuente (letra) del Código de Barras
EstableceFuente “C39HrP24DhTt”, 40

‘Permite un tiempo de espera 100 ms para continuar en caso de error
Dormir 100
Eventos

‘Permite tener una vista previa del resultado, sin necesidad de imprimir
msgbox cSalida

‘ Aqui se puede modificar la etiqueta utiliza un lenguaje llamado EPL2_
‘Se muestran los comandos basicos _
El comando N inicia la etiqueta _
‘El comando A muestra un dato de texto en _
donde el 250 es la posición en el eje de las X y el 15 la _
posición en el eje de las Y
‘El comando B muestra el código de barras _
donde 250 es la posición en el eje de las X y 45 es la posición _
de inicio del eje de las Y _
‘El comando P Finaliza la etiqueta y el nunero 1 indica _
cuantas etiquetas se van a imprimir

‘linea de codigo de barras de la version 2011
cSalida = cSalida & “B05,30,0,2,1,6,25,B,” & Chr(34) & cArticulo & Chr(34) & Chr(13) & Chr(10)
‘linea de codigo de barras de la version 2006
cSalida = cSalida & “B250,60,0,1,2,6,80,B,” & Chr(34) & cArticulo & Chr(34) & Chr(13) & Chr(10)

Para el formato de factura electrónica CBB

'Box permite crear un cuadro sin relleno ' la sintaxis es Box InicioX, InicioY, FinX, FinY ' el X y Y son las coordenadas, iniciando desde la parte superior izquierda Box Col(62), Row(8), Col(12), Row(1) 'Cuadro que enmarca el encabezado FACTURA Box Col(62), Row(8), Col(12), Row(3) 'Cuardo grande que emnarca la Fatura y serie

‘FilledBox permite tener un cuadro con relleno de color
‘la sintaxis es FilledBox InicioX, InicioY, FinX, FinY, RGB(Rojo, Verde, Azul)
‘donde el color RGB va desde 0 hasta 255.
FilledBox Col(57), Row(12), Col(20), Row(1), RGB( 200, 200, 200 )

‘Say permite imprimir un texto o una variable tipo texto o numero
‘la sintaxis es Say X,Y
‘ el X y Y son las coordenadas, iniciando desde la parte superior izquierda
Say Row(17), Col(07), “Texto de prueba”

‘Tambien se puede presentar el texto con las coordenadas en Pulgadas, X = 0.94, Y = 2.53 pulgadas
Say 0.94, 2.53, “Texto de prueba para pagaré”

A continuación se muestran todas las funciones que se aplican en el sistema MyBusiness POS

Función	Descripción	Librería (dll)	Tipo	Sub o Funcion	Detalle
AbreConnection	AbreConnection (cBase As String) As ADODB._Connection	BLibreria	DISLibreria	Function
AbrirCajonDeDinero	AbrirCajonDeDinero (cPuerto, cCode)	BImpresora	Impresora	Sub
Abs	Abs (Number)	VBA	Math	Function
AbsolutePage	AbsolutePage As PositionEnum	ADODB	Recordset	Function
AbsolutePosition	AbsolutePosition As PositionEnum	ADODB	Recordset	Function
ActivaMostrador	ActivaMostrador ([Tipo As String])	BVentas	Ventas	Sub
ActivaPuntoDeVenta	ActivaPuntoDeVenta ([Tipo As String], [bolModal As BooleanFalso], [bolLogin As BooleanFalso])	BVentas	Ventas	Sub
ActivaPuntoDeVenta2	ActivaPuntoDeVenta2 ([Tipo As String], [bolModal As BooleanFalso], [bolLogin As BooleanFalso])	BVentas	Ventas	Sub
ActiveCommand	ActiveCommand As Object	ADODB	Recordset	Function
ActiveConnection	ActiveConnection	ADODB	Recordset	Function
ActualSize	ActualSize As Long	ADODB	Field	Function
ActualizaApartadosPorVenta	ActualizaApartadosPorVenta (cArticulo, nCantidad, ByVal Ambiente)	BLibreria	DISLibreria	Sub
ActualizaCuenxpag	ActualizaCuenxpag (nCuenxpag, ByVal Ambiente)	BLibreria	DISLibreria	Sub
ActualizaPorAplicar	ActualizaPorAplicar (nAbono, ByVal Ambiente)	BLibreria	DISLibreria	Sub
ActualizaPorAplicarEnPagos	ActualizaPorAplicarEnPagos (nAbono, ByVal Ambiente)	BLibreria	DISLibreria	Sub
ActualizaPorRecibir	ActualizaPorRecibir (Ambiente As ?, cArticulo As String, nPartida As Long, nCantidad As Double, [bolAfectaArticulos As BooleanVerdadero])	BLibreria	DISLibreria	Sub
ActualizaPorSurtir	ActualizaPorSurtir (Ambiente As ?, cArticulo As String, nPartida As Long, nCantidad As Double, [bolAfectaArticulos As BooleanVerdadero])	BLibreria	DISLibreria	Sub
ActualizaPorSurtirEnCotizacion	ActualizaPorSurtirEnCotizacion (cArticulo, nPartida As Long, nCantidad As Double, nPedido As Long, ByVal Ambiente As Long, [bolAfectaArticulos As BooleanVerdadero])	BLibreria	DISLibreria	Sub
ActualizaPorSurtirEnOrden	ActualizaPorSurtirEnOrden (cArticulo, nPartida As Long, nCantidad As Double, nPedido As Long, ByVal Ambiente As Long, [bolAfectaArticulos As BooleanVerdadero])	BLibreria	DISLibreria	Sub
ActualizaSaldo	ActualizaSaldo (nCobranza, ByVal Ambiente)	BLibreria	DISLibreria	Sub
ActualizaSaldoPagos	ActualizaSaldoPagos (nCuenxpag, ByVal Ambiente)	BLibreria	DISLibreria	Sub
ActualizaSecuenciaDePeriodos	ActualizaSecuenciaDePeriodos	BContabilidad	Contabilidad	Sub
Acumulado	Acumulado As Boolean	BReportes	Columna	Function
AddField	AddField (strTable As String, cField As String, [uValue])	BQueryBuilder	Query	Sub
AddNew	AddNew ([ByVal FieldList], [ByVal Values])	ADODB	Recordset	Sub
AddPath	AddPath (strPath As String, [strRemoteStation As String], [strPerfil As String], [strSubPerfil As String])	BQueryBuilder	Query	Sub
AddTable	AddTable (strTable As String, [strParent As String], [strRelation As String], [RelationType As String])	BQueryBuilder	Query	Sub
AddText	AddText (ByVal strText As String)	CodeSense	CodeSense	Sub
AfectaCuentasPorCobrar	AfectaCuentasPorCobrar (nVenta As Long, [nSaldo As Double])	BVentas	Ventas	Sub
AfectaInventario	AfectaInventario ([Inventario As Long]) As Double	BInventario	Inventario	Function
AfectaPartidas	AfectaPartidas (rstVenta As ADODB._Recordset, rstPartidas As ADODB._Recordset)	BVentas	Ventas	Sub
AfectaSaldoDeCliente	AfectaSaldoDeCliente (cCliente As String, nCantidad As Double, Connection As ADODB._Connection)	BLibreria	DISLibreria	Sub
AfectaSaldoDeProveedor	AfectaSaldoDeProveedor (cProveedor As String, nCantidad As Double, Connection As ADODB._Connection)	BLibreria	DISLibreria	Sub
Afectaflujo	Afectaflujo (rstVenta As ADODB._Recordset)	BVentas	Ventas	Function
Agente	Agente As Object	BEnviroment	Ambiente	Function
Agregar	Agregar (rst As ADODB._Recordset)	BLibreria	DISLibreria	Sub
Almacen	Almacen As Integer	BEnviroment	Ambiente	Function
Ambiente	Ambiente As BEnviroment._Ambiente	BVentas	Ventas	Function
Ancho	Ancho As Long	BReportes	Columna	Function
AnchoCelda	AnchoCelda As Double	BReportes	Columna	Function
AnchoTitulo	AnchoTitulo As Double	BReportes	Columna	Function
AplicaFormato	AplicaFormato (Text As Object, ByVal Ambiente As Object, [Formato As String]) As String	BLibreria	DISLibreria	Function
AppActivate	AppActivate (Title, [Wait])	VBA	Interaction	Sub
Append	Append (ByVal Object As Object)	ADODB	Parameters	Sub
AppendChunk	AppendChunk (ByVal Val)	ADODB	Parameter	Sub
Archivo	Archivo As Boolean	BImpresora	Impresora	Function
Argument	Argument As Long	CodeSense	CodeTipMultiFunc	Function
Articulo	Articulo As String	BArticulos	Articulos	Function
AscB	AscB (ByVal String As String) As Byte	VBA	Strings	Function
AscW	AscW (ByVal String As String) As Integer	VBA	Strings	Function
AsignaSubItem	AsignaSubItem (Item, nIndice As Integer, uValue)	BLibreria	DISLibreria	Sub
Asociados	Asociados (cArticulo As String)	BArticulos	Articulos	Sub
At	At (strSearch, strText As String) As Long	BLibreria	DISLibreria	Function
Atn	Atn (ByVal Number As Double) As Double	VBA	Math	Function
Attributes	Attributes As Long	ADODB	Property	Function
AutoIndentMode	AutoIndentMode As cmAutoIndentMode	CodeSense	CodeSense	Function
Avanzado	Avanzado As Boolean	BEnviroment	Ambiente	Function
BOF	BOF As Boolean	ADODB	Recordset	Function
BarCodeTime	BarCodeTime As String	BLibreria	SymbolCS1504	Function
BarCodes	BarCodes As Long	BLibreria	SymbolCS1504	Function
Barcode	Barcode As String	BLibreria	SymbolCS1504	Function
Bascula	Bascula As Object	BEnviroment	Ambiente	Function
Beep	Beep	VBA	Interaction	Sub
BeginTrans	BeginTrans As Long	ADODB	Connection	Function
Bitacoras	Bitacoras	BArticulos	Articulos	Sub
Block	Block (cBlock As String) As String	BImpresora	Impresora	Function
Bookmark	Bookmark	ADODB	Recordset	Function
BorderStyle	BorderStyle As cmBorderStyle	CodeSense	CodeSense	Function
BorraArchivo	BorraArchivo	BImpresora	Impresora	Sub
BorraCobranza	BorraCobranza (nCobranza As Long) As Boolean	BCobranza	Cobranza	Function
BorraDevolucion	BorraDevolucion (nDevolucion As Long)	BCompras	Compras	Sub
BorraOrden	BorraOrden (norden As Long)	BOrdenes	Ordenes	Sub
BorraPedido	BorraPedido (nPedido As Long)	BPedidos	Pedidos	Sub
Box	Box (bLeft, bTop, bWidth, bHeight)	BImpresora	Impresora	Sub
BufferColToViewCol	BufferColToViewCol (ByVal lLine As Long, ByVal lBuffCol As Long) As Long	CodeSense	CodeSense	Function
Busca	Busca (cBusqueda As String, [Tabla As String], [Campo As String], [Comparador As String], [uValor], [extList As BooleanFalso])	BBuscar	Buscar	Sub
BuscaPerfil	BuscaPerfil (strBuscaPerfil, strSubPerfil) As Boolean	BQueryBuilder	Query	Function
BuscaVentana	BuscaVentana ([strTexto As String], [strClase As String]) As Boolean	BLibreria	DISLibreria	Function
Buscar	Buscar As String	prjMultiCombo	MultiCombo	Function
BusquedaAutomatica	BusquedaAutomatica As Boolean	BEnviroment	Ambiente	Function
BusquedaFin	BusquedaFin As String	BImpresora	ParamData	Function
BusquedaFin2	BusquedaFin2 As String	BImpresora	ParamData	Function
BusquedaIni	BusquedaIni As String	BImpresora	ParamData	Function
BusquedaIni2	BusquedaIni2 As String	BImpresora	ParamData	Function
CBool	CBool (Expression) As Boolean	VBA	Conversion	Function
CByte	CByte (Expression) As Byte	VBA	Conversion	Function
CCur	CCur (Expression) As Currency	VBA	Conversion	Function
CDate	CDate (Expression) As Date	VBA	Conversion	Function
CDbl	CDbl (Expression) As Double	VBA	Conversion	Function
CDec	CDec (Expression)	VBA	Conversion	Function
CInt	CInt (Expression) As Integer	VBA	Conversion	Function
CLng	CLng (Expression) As Long	VBA	Conversion	Function
CP	CP As String	BEnviroment	Ambiente	Function
CSng	CSng (Expression) As Single	VBA	Conversion	Function
CStr	CStr (Expression) As String	VBA	Conversion	Function
CVDate	CVDate (Expression)	VBA	Conversion	Function
CVErr	CVErr (Expression)	VBA	Conversion	Function
CVar	CVar (Expression)	VBA	Conversion	Function
CacheSize	CacheSize As Long	ADODB	Recordset	Function
Calcula	Calcula	BCalculator	Calculator	Sub
Calcula2	Calcula2 As Double	BCalculator	Calculator	Function
CalculaImportes	CalculaImportes (rstVenta As ADODB._Recordset, rstPartidas As ADODB._Recordset, [nVenta As Long])	BVentas	Ventas	Sub
CalculaTotales	CalculaTotales (cCuenta As String, nYear As Long, nMonth As Long)	BContabilidad	Contabilidad	Sub
CalculaValores	CalculaValores	BReportes	Reporte	Sub
Calculadora	Calculadora (Ambiente As ?) As Double	BLibreria	DISLibreria	Function
Calendar	Calendar As VbCalendar	VBA	DateTime	Function
CallByName	CallByName (ByVal Object As Object, ByVal ProcName As String, ByVal CallType As VbCallType, Args() As Variant)	VBA	Interaction	Function
Cambia	Cambia (cInserta As String, cBusca As String, cTarget As String) As String	BLibreria	DISLibreria	Function
CambiaNumeroDeNotaDeCredito	CambiaNumeroDeNotaDeCredito (nNC As Long)	BVentas	Ventas	Sub
CambiarNumeroDeFactura	CambiarNumeroDeFactura (nFactura As Long)	BVentas	Ventas	Sub
Cambio	Cambio As Boolean	BReportes	Columna	Function
Campo	Campo	BLIstView	lvCol	Function
CanCopy	CanCopy As Boolean	CodeSense	CodeSense	Function
CanCut	CanCut As Boolean	CodeSense	CodeSense	Function
CanPaste	CanPaste As Boolean	CodeSense	CodeSense	Function
CanRedo	CanRedo As Boolean	CodeSense	CodeSense	Function
CanUndo	CanUndo As Boolean	CodeSense	CodeSense	Function
Cancel	Cancel	ADODB	Stream	Sub
CancelBatch	CancelBatch ([ByVal AffectRecords As AffectEnum = adAffectAll])	ADODB	Recordset	Sub
CancelUpdate	CancelUpdate	ADODB	Recordset	Sub
CancelaCompra	CancelaCompra (rstCompra As ADODB._Recordset)	BCompras	Compras	Sub
CancelaFactura	CancelaFactura (rstVenta As ADODB._Recordset)	BVentas	Ventas	Sub
CancelaProceso	CancelaProceso As Boolean	BClientes	Clientes	Function
CancelaRemision	CancelaRemision (rstVenta As ADODB._Recordset, [CancelaLotesSeries As BooleanVerdadero], [Cancelaflujo As BooleanVerdadero], [RemoveItemX As BooleanVerdadero])	BVentas	Ventas	Sub
Cancelado	Cancelado As Boolean	BImpresora	Impresora	Function
CapturaLotesEntrantes	CapturaLotesEntrantes (nConsec As Long, cArticulo As String, cDescrip As String, nCantidad As Double)	BInventario	Inventario	Sub
CapturaLotesSalida	CapturaLotesSalida (nConsec As Long, cArticulo As String, cDescrip As String, nCantidad As Double)	BInventario	Inventario	Sub
CapturaSeriesDeEntrada	CapturaSeriesDeEntrada (nFaltantes As Long, nConsec As Long, cArticulo As String, cDescrip As String)	BInventario	Inventario	Sub
CapturaSeriesDeSalida	CapturaSeriesDeSalida (cArticulo As String, nSeries As Long, nConsec As Long)	BInventario	Inventario	Sub
CaseSensitive	CaseSensitive As Boolean	CodeSense	Language	Function
CatalogoActivo	CatalogoActivo As String	BEnviroment	Ambiente	Function
CenterForm	CenterForm (frm As Object)	BLibreria	DISLibreria	Sub
ChDir	ChDir (ByVal Path As String)	VBA	FileSystem	Sub
ChDrive	ChDrive (ByVal Drive As String)	VBA	FileSystem	Sub
Charset	Charset As String	ADODB	Stream	Function
Check	Check As Boolean	BImpresora	ParamData	Function
CheckLeyend	CheckLeyend As String	BImpresora	ParamData	Function
CheckValue	CheckValue As Boolean	BImpresora	ParamData	Function
Clasificacion	Clasificacion As String	BEnviroment	Ambiente	Function
Clave	Clave As String	BEnviroment	Ambiente	Function
ClearData	ClearData	BLibreria	SymbolCS1504	Sub
ClearUndoBuffer	ClearUndoBuffer	CodeSense	CodeSense	Sub
Clone	Clone ([ByVal LockType As LockTypeEnum = adLockUnspecified]) As _Recordset	ADODB	Recordset	Function
CloseAllFiles	CloseAllFiles	BLibreria	DISLibreria	Sub
CloseFile	CloseFile (n As Integer)	BLibreria	DISLibreria	Function
CodeID	CodeID As Long	BLibreria	SymbolCS1504	Function
CodeType	CodeType As String	BLibreria	SymbolCS1504	Function
Codigo39	Codigo39 (x, y, xNarrow, yHeight, strMensaje, [bolBoxFalso], [CheckDigitFalso], [strData1], [strData2])	BImpresora	Impresora	Sub
Col	Col As Double	BReportes	Columna	Function
ColNo	ColNo As Long	CodeSense	Position	Function
CollectionRst	CollectionRst As VBA._Collection	BReportes	Reporte	Function
ColorDeFuente	ColorDeFuente (nColor)	BImpresora	Impresora	Sub
ColorSyntax	ColorSyntax As Boolean	CodeSense	CodeSense	Function
ColumnSel	ColumnSel As Boolean	CodeSense	Range	Function
Columna	Columna As _Columna	BReportes	Value	Function
ColumnaFont	ColumnaFont (strFont As String, dblFontSize As Double, bolFontBold As Boolean)	BReportes	Columna	Sub
ColumnaGrupoFont	ColumnaGrupoFont (strFont As String, dblFontSize As Double, bolFontBold As Boolean)	BReportes	Columna	Sub
ColumnsGrupo	ColumnsGrupo As VBA._Collection	BReportes	Reporte	Function
ColumnsTotal	ColumnsTotal As VBA._Collection	BReportes	Reporte	Function
CommPort	CommPort As String	BEnviroment	Ambiente	Function
CommandTimeout	CommandTimeout As Long	ADODB	Connection	Function
CommandToFile	CommandToFile (strCommand As String, strFile As String)	BLibreria	DISLibreria	Sub
CommitTrans	CommitTrans	ADODB	Connection	Sub
CommonDialog1	CommonDialog1 As Object	BEnviroment	Ambiente	Function
CompareBookmarks	CompareBookmarks (ByVal Bookmark1, ByVal Bookmark2) As CompareEnum	ADODB	Recordset	Function
Componentes	Componentes (cArticulo As String)	BArticulos	Articulos	Sub
CompraJoyeria	CompraJoyeria ([cModo As String”ALTA”], [nMovimiento As Long])	BCompras	Compras	Sub
Cond	Cond As String	BReportes	Columna	Function
Condition	Condition As String	prjMultiCombo	MultiCombo	Function
Conectar	Conectar As Boolean	BLibreria	DISLibreria	Function
Conexiones	Conexiones As VBA._Collection	BEnviroment	Ambiente	Function
ConfigConnection	ConfigConnection As ADODB._Connection	BEnviroment	Ambiente	Function
ConfigRecordSet	ConfigRecordSet As ADODB._Recordset	BEnviroment	Ambiente	Function
ConfirmaVenta	ConfirmaVenta (nVenta As Long, bolImprimir As Boolean, [VentaOrigen As Long], [cCaja As String], [bolflujo As BooleanVerdadero]) As Boolean	BVentas	Ventas	Function
Connection	Connection	prjMultiCombo	MultiCombo	Function
ConnectionString	ConnectionString As String	ADODB	Connection	Function
ConnectionTimeout	ConnectionTimeout As Long	ADODB	Connection	Function
Consec	Consec As Long	BInventario	Inventario	Function
ConsultaAbono	ConsultaAbono (nAbono As Long)	BCobranza	Cobranza	Sub
ConsultaArticulo	ConsultaArticulo (cArticulo As String)	BArticulos	Articulos	Sub
ConsultaCliente	ConsultaCliente (cCliente As String)	BClientes	Clientes	Sub
ConsultaCobranza	ConsultaCobranza (nCobranza As Long, [bolModal As BooleanFalso])	BCobranza	Cobranza	Sub
ConsultaCompra	ConsultaCompra (nCompra As Long)	BCompras	Compras	Sub
ConsultaDevolucion	ConsultaDevolucion (nDevolucion As Long)	BVentas	Ventas	Sub
ConsultaEntrada	ConsultaEntrada (nEntrada As Long)	BEntradasSalidas	EntradasSalidas	Sub
ConsultaFactura	ConsultaFactura (nFactura As Long)	BVentas	Ventas	Sub
ConsultaLinea	ConsultaLinea (cLinea As String)	BArticulos	Articulos	Sub
ConsultaMarca	ConsultaMarca (cMarca As String)	BArticulos	Articulos	Sub
ConsultaOrden	ConsultaOrden (norden As Long)	BOrdenes	Ordenes	Sub
ConsultaPedido	ConsultaPedido (nPedido As Long)	BPedidos	Pedidos	Sub
ConsultaRemision	ConsultaRemision (nRemision As Long)	BVentas	Ventas	Sub
ConsultaSalida	ConsultaSalida (nSalida As Long)	BEntradasSalidas	EntradasSalidas	Sub
ConsultaUbicacion	ConsultaUbicacion (cUbicacion As String)	BArticulos	Articulos	Sub
ConsultaVendedor	ConsultaVendedor (cVendedor As String)	BClientes	Clientes	Sub
ConsultaVenta	ConsultaVenta (nVenta As Long)	BVentas	Ventas	Sub
Control	Control As Object	BLibreria	TextData	Function
ControlAyuda	ControlAyuda As String	BEnviroment	Ambiente	Function
ControlhWndImpresora	ControlhWndImpresora As Long	BImpresora	Impresora	Function
ConvertirEnFactura	ConvertirEnFactura	BVentas	Ventas	Sub
ConvierteRemisionEnFactura	ConvierteRemisionEnFactura (nRemision As Long, cEstacion As String, bolTicket As Boolean) As String	BVentas	Ventas	Function
CopiaArchivo	CopiaArchivo (cArchivOrig As String, cArchivoDes As String)	BLibreria	DISLibreria	Function
Copias	Copias (nCopias As Long)	BImpresora	Impresora	Sub
CopyFile	CopyFile (Source As String, Destination As String)	BLibreria	DISLibreria	Sub
CopyRecord	CopyRecord ([ByVal Source As String], [ByVal Destination As String], [ByVal UserName As String], [ByVal Password As String], [ByVal Options As CopyRecordOptionsEnum = adCopyUnspecified], [ByVal Async As BooleanFalso]) As String	ADODB	Record	Function
CopyTo	CopyTo (ByVal DestStream As _Stream, [ByVal CharNumber As Long-1])	ADODB	Stream	Sub
Cos	Cos (ByVal Number As Double) As Double	VBA	Math	Function
Costo	Costo As Double	BInventario	Inventario	Function
CreaForma	CreaForma As Object	BImpresora	Impresora	Function
CreaNotaCredito	CreaNotaCredito (nVenta As Double)	BVentas	Ventas	Sub
CreaRecordSet	CreaRecordSet (strSql As String, Connection As ADODB._Connection, [porPantalla As BooleanVerdadero]) As ADODB._Recordset	BLibreria	DISLibreria	Function
CreaRecordSetDeActualizacion	CreaRecordSetDeActualizacion	BQueryBuilder	Query	Sub
CreaRecordSetEnCliente	CreaRecordSetEnCliente (strSql As String, Connection As ADODB._Connection) As ADODB._Recordset	BLibreria	DISLibreria	Function
Creabalanza	Creabalanza (nYear As Long, nMonth As Long)	BContabilidad	Contabilidad	Sub
CrearFacturaDeCierre	CrearFacturaDeCierre ([cCliente As String])	BVentas	Ventas	Sub
CreateFile	CreateFile (ByVal FileName As String) As Integer	BExcel	ExcelFile	Function
CreateInsert	CreateInsert	BQueryBuilder	Query	Function
CreateObject	CreateObject (ByVal Class As String, [ByVal ServerName As String])	VBA	Interaction	Function
CreateParameter	CreateParameter ([ByVal Name As String], [ByVal Type As DataTypeEnum = adEmpty], [ByVal Direction As ParameterDirectionEnum = adParamInput], [ByVal Size As Long], [ByVal Value]) As _Parameter	ADODB	Command	Function
CreateQuery	CreateQuery As String	BQueryBuilder	Query	Function
CreateSelect	CreateSelect As String	BQueryBuilder	Query	Function
CreateUpdate	CreateUpdate	BQueryBuilder	Query	Function
CrystalReport	CrystalReport As Object	BEnviroment	Ambiente	Function
CuadroDeMensajes	CuadroDeMensajes (cMensaje As String, nTipo As Integer, Ambiente As Object)	BLibreria	DISLibreria	Sub
CuantasLineas	CuantasLineas (cString) As Long	BImpresora	Impresora	Function
CurrentFunction	CurrentFunction As Long	CodeSense	CodeTipMultiFunc	Function
CurrentToken	CurrentToken As cmTokenType	CodeSense	CodeSense	Function
CurrentView	CurrentView As Long	CodeSense	CodeSense	Function
CurrentWord	CurrentWord As String	CodeSense	CodeSense	Function
CurrentWordLength	CurrentWordLength As Long	CodeSense	CodeSense	Function
CurrentWordLengthLogical	CurrentWordLengthLogical As Long	CodeSense	CodeSense	Function
CurrentX	CurrentX (XVal)	BImpresora	Impresora	Sub
CurrentY	CurrentY (YVal)	BImpresora	Impresora	Sub
CursorLocation	CursorLocation As CursorLocationEnum	ADODB	Recordset	Function
CursorType	CursorType As CursorTypeEnum	ADODB	Recordset	Function
Data	Data	BVentas	clsTextBox	Function
DataArrival	DataArrival As String	BEnviroment	Ambiente	Function
DataAvailable	DataAvailable	BLibreria	SymbolCS1504	Sub
DataElse	DataElse As String	BReportes	Columna	Function
DataFormat	DataFormat As Unknown	ADODB	Field	Function
DataMember	DataMember As String	ADODB	Recordset	Function
DataSeparator	DataSeparator (Separator, strSearch, List() As Variant) As Long	BLibreria	DISLibreria	Function
DataSource	DataSource As Unknown	ADODB	Recordset	Function
DateAdd	DateAdd (ByVal Interval As String, ByVal Number As Double, Date)	VBA	DateTime	Function
DateDiff	DateDiff (ByVal Interval As String, Date1, Date2, [ByVal FirstDayOfWeek As VbDayOfWeek = vbSunday], [ByVal FirstWeekOfYear As VbFirstWeekOfYear = vbFirstJan1])	VBA	DateTime	Function
DatePart	DatePart (ByVal Interval As String, Date, [ByVal FirstDayOfWeek As VbDayOfWeek = vbSunday], [ByVal FirstWeekOfYear As VbFirstWeekOfYear = vbFirstJan1])	VBA	DateTime	Function
DateSerial	DateSerial (ByVal Year As Integer, ByVal Month As Integer, ByVal Day As Integer)	VBA	DateTime	Function
DateValue	DateValue (ByVal Date As String)	VBA	DateTime	Function
Datos	Datos As String	BEnviroment	Ambiente	Function
Day	Day (Date)	VBA	DateTime	Function
DebugMode	DebugMode (ByVal nOnOff As Long)	BLibreria	SymbolCS1504	Sub
Decrypta	Decrypta (cTexto As String, nLlave As Integer) As String	BLibreria	DISLibreria	Function
DefaultDatabase	DefaultDatabase As String	ADODB	Connection	Function
DefinedSize	DefinedSize As Long	ADODB	Field	Function
DeleteFile	DeleteFile (filename As String)	BLibreria	DISLibreria	Sub
DeleteItem	DeleteItem (ByVal ItemIndex As Long)	CodeSense	CodeList	Sub
DeleteLine	DeleteLine (ByVal lLine As Long)	CodeSense	CodeSense	Sub
DeleteRecord	DeleteRecord ([ByVal Source As String], [ByVal Async As BooleanFalso])	ADODB	Record	Sub
DeleteSel	DeleteSel	CodeSense	CodeSense	Sub
DeleteSetting	DeleteSetting (ByVal AppName As String, [ByVal Section], [ByVal Key])	VBA	Interaction	Sub
Depurar	Depurar (Ambiente As BEnviroment._Ambiente, strProceso As String, Linea As Long)	BScripting	BScript	Sub
Desconectado	Desconectado As Boolean	BEnviroment	Ambiente	Function
Description	Description As String	ADODB	Error	Function
Destroy	Destroy	CodeSense	CodeTipMultiFunc	Sub
Detalle	Detalle As Boolean	BReportes	Reporte	Function
DeviceId	DeviceId As String	BLibreria	SymbolCS1504	Function
DeviceTime	DeviceTime As String	BLibreria	SymbolCS1504	Function
Devolucion	Devolucion As Boolean	BInventario	Inventario	Function
Dia	Dia (dFecha As Date) As String	BLibreria	DISLibreria	Function
Dir	Dir ([PathName], [ByVal Attributes As VbFileAttribute = vbNormal]) As String	VBA	FileSystem	Function
Direccion1	Direccion1 As String	BEnviroment	Ambiente	Function
Direccion2	Direccion2 As String	BEnviroment	Ambiente	Function
DisplayContext	DisplayContext ([ByVal TopicNum As Long]) As Long	BVentas	chmHelpVentas	Function
DisplayIndex	DisplayIndex ([ByVal sKeyWord As String]) As Long	BVentas	chmHelpVentas	Function
DisplayLeftMargin	DisplayLeftMargin As Boolean	CodeSense	CodeSense	Function
DisplaySearch	DisplaySearch As Long	BVentas	chmHelpVentas	Function
DisplayTOC	DisplayTOC As Long	BVentas	chmHelpVentas	Function
DisplayTopic	DisplayTopic ([ByVal TopicName As String]) As Long	BVentas	chmHelpVentas	Function
DisplayWhitespace	DisplayWhitespace As Boolean	CodeSense	CodeSense	Function
DllVersion	DllVersion As String	BLibreria	SymbolCS1504	Function
DoEvents	DoEvents As Integer	VBA	Interaction	Function
DoPing	DoPing (ByVal HostAddress As String) As Boolean	BLibreria	Ping	Function
Documento	Documento As Long	BImpresora	Impresora	Function
Donativo	Donativo As Double	BInventario	Inventario	Function
Dormir	Dormir (nMSegundos As Double)	BLibreria	DISLibreria	Sub
EColor	EColor As Double	BReportes	Columna	Function
EColorCondition	EColorCondition As String	BReportes	Columna	Function
ECondition	ECondition As String	BReportes	Columna	Function
EOF	EOF As Boolean	ADODB	Recordset	Function
EOS	EOS As Boolean	ADODB	Stream	Function
EditMode	EditMode As EditModeEnum	ADODB	Recordset	Function
EditaSql	EditaSql (Parent As Object)	BBuscar	Buscar	Sub
ElSiguienteMes	ElSiguienteMes (nMes As Integer, nDia As Integer, nYear As Long) As Date	BLibreria	DISLibreria	Function
EliminaAlmacen	EliminaAlmacen (nAlmacen As Long)	BAlmacen	Almacen	Sub
EliminaArchivo	EliminaArchivo (strArchivo)	BLibreria	DISLibreria	Sub
EliminaArticulo	EliminaArticulo (cArticulo As String, [Forzoso As BooleanFalso]) As Boolean	BArticulos	Articulos	Function
EliminaCliente	EliminaCliente (cCliente As String) As Boolean	BClientes	Clientes	Function
EliminaCompra	EliminaCompra (nCompra As Long)	BCompras	Compras	Sub
EliminaDevolucion	EliminaDevolucion (nDevolucion As Long)	BVentas	Ventas	Sub
EliminaEntrada	EliminaEntrada (nEntrada As Long)	BEntradasSalidas	EntradasSalidas	Sub
EliminaFactura	EliminaFactura (nFactura As Long)	BVentas	Ventas	Sub
EliminaLinea	EliminaLinea (cLinea As String)	BArticulos	Articulos	Sub
EliminaMarca	EliminaMarca (cMarca As String)	BArticulos	Articulos	Sub
EliminaMoneda	EliminaMoneda (cMoneda As String)	BMonedas	Monedas	Sub
EliminaPeriodo	EliminaPeriodo (nYear As Long, nMonth As Long)	BContabilidad	Contabilidad	Sub
EliminaRemision	EliminaRemision (nRemision As Long)	BVentas	Ventas	Sub
EliminaSalida	EliminaSalida (nSalida As Long)	BEntradasSalidas	EntradasSalidas	Sub
EliminaUbicacion	EliminaUbicacion (cUbicacion As String)	BArticulos	Articulos	Sub
EliminaVendedor	EliminaVendedor (cVendedor As String) As Boolean	BClientes	Clientes	Function
EliminaVenta	EliminaVenta (nVenta As Long, [bolConfirma As BooleanVerdadero])	BVentas	Ventas	Sub
Email	Email As String	BEnviroment	Ambiente	Function
Empresa	Empresa As String	BEnviroment	Ambiente	Function
Empty	Empty	CodeSense	Range	Sub
EmptySys	EmptySys (cDato As String) As String	BLibreria	DISLibreria	Function
EnVenta	EnVenta (strArticulo As String, nAlmacen, Connection As ADODB._Connection) As Double	BLibreria	DISLibreria	Function
EnableCRLF	EnableCRLF As Boolean	CodeSense	CodeSense	Function
EnableColumnSel	EnableColumnSel As Boolean	CodeSense	CodeSense	Function
EnableDragDrop	EnableDragDrop As Boolean	CodeSense	CodeSense	Function
EnableHSplitter	EnableHSplitter As Boolean	CodeSense	CodeSense	Function
EnableHotTracking	EnableHotTracking ([ByVal bEnable])	CodeSense	CodeList	Sub
EnableVSplitter	EnableVSplitter As Boolean	CodeSense	CodeSense	Function
Encabezado	Encabezado	BReportes	Reporte	Sub
Encrypta	Encrypta (cTexto As String, nLlave As Integer) As String	BLibreria	DISLibreria	Function
EndColNo	EndColNo As Long	CodeSense	Range	Function
EndLineNo	EndLineNo As Long	CodeSense	Range	Function
EnsambleProducto	EnsambleProducto (strArticulo As String, nCantidad As Double, [Id_salida As Long], [tipoMovim As String]) As Boolean	BInventario	Inventario	Function
Entrada	Entrada (nConsec As Long) As Double	BInventario	Inventario	Function
EntradaSalida	EntradaSalida As String	BInventario	Inventario	Function
EnviaComando	EnviaComando (cComando As String)	BEnviroment	Ambiente	Sub
Err	Err As ErrObject	VBA	Information	Function
ErrorOculto	ErrorOculto As Boolean	BQueryBuilder	Query	Function
EsServidor	EsServidor As Boolean	BEnviroment	Ambiente	Function
EscapeChar	EscapeChar As String	CodeSense	Language	Function
EstableceEstiloImpresoraNT	EstableceEstiloImpresoraNT	BImpresora	Impresora	Sub
EstableceFuente	EstableceFuente (strFuente, Size)	BImpresora	Impresora	Sub
EstableceImpresora	EstableceImpresora (strimpresora)	BImpresora	Impresora	Sub
Estacion	Estacion As String	BEnviroment	Ambiente	Function
Estate	Estate As Integer	BEnviroment	Ambiente	Function
EstiloImpresion	EstiloImpresion As String	BImpresora	Impresora	Function
Eventos	Eventos	BImpresora	Impresora	Sub
Exec	Exec	BQueryBuilder	Query	Sub
ExecuteCmd	ExecuteCmd (ByVal lCommand As cmCommand, [ByVal CmdData])	CodeSense	CodeSense	Sub
ExecuteFromFile	ExecuteFromFile (strFile As String)	BQueryBuilder	Query	Sub
Existe	Existe (cDato As String, cCampo As String, cTabla As String, Conexion As ADODB._Connection, [Numeric As BooleanFalso])	BLibreria	DISLibreria	Function
ExisteArchivo	ExisteArchivo (strArchivo) As Boolean	BLibreria	DISLibreria	Function
ExisteCampo	ExisteCampo (cCampo As String, cTabla As String, Connection As ADODB._Connection) As Boolean	BLibreria	DISLibreria	Function
Existen	Existen (Tabla As String, ByVal Ambiente As String) As Boolean	BLibreria	DISLibreria	Function
Exp	Exp (ByVal Number As Double) As Double	VBA	Math	Function
ExpandTabs	ExpandTabs As Boolean	CodeSense	CodeSense	Function
Explain	Explain As Boolean	BReportes	Reporte	Function
FDinero	FDinero As String	BEnviroment	Ambiente	Function
FEspecial	FEspecial As String	BEnviroment	Ambiente	Function
FacturarEnPuntoDeVenta	FacturarEnPuntoDeVenta (nRemision As Long, cCaja As String) As String	BVentas	Ventas	Function
Fast	Fast As Boolean	prjMultiCombo	MultiCombo	Function
FastRst	FastRst (strSql As String, Connection As ADODB._Connection, [Pantalla As BooleanFalso]) As ADODB._Recordset	BLibreria	DISLibreria	Function
FechaDeTrabajo	FechaDeTrabajo (Year As Long, Month As Long) As Date	BLibreria	DISLibreria	Function
FechaFinal	FechaFinal As Date	BImpresora	ParamData	Function
FechaInicial	FechaInicial As Date	BImpresora	ParamData	Function
FechaMov	FechaMov As Date	BInventario	Inventario	Function
FechaSQL	FechaSQL (dDecha, [Connection As ADODB._Connection]) As String	BLibreria	DISLibreria	Function
Fechas	Fechas As Boolean	BImpresora	ParamData	Function
FieldList	FieldList As String	BScripting	SQLanalizer	Function
FieldName	FieldName As String	BQueryBuilder	BFields	Function
FieldX	FieldX As String	BScripting	Relacion	Function
FieldY	FieldY As String	BScripting	Relacion	Function
Fields	Fields As Fields	ADODB	Recordset	Function
FieldsCollection	FieldsCollection As VBA._Collection	BQueryBuilder	Query	Function
FieldsSigmaCollection	FieldsSigmaCollection As VBA._Collection	BQueryBuilder	Query	Function
File	File As String	BQueryBuilder	Query	Function
FileAttr	FileAttr (ByVal FileNumber As Integer, [ByVal ReturnType As Integer1]) As Long	VBA	FileSystem	Function
FileCopy	FileCopy (ByVal Source As String, ByVal Destination As String)	VBA	FileSystem	Sub
FileDateTime	FileDateTime (ByVal PathName As String)	VBA	FileSystem	Function
FileEOF	FileEOF (n As Integer) As Boolean	BLibreria	DISLibreria	Function
FileLen	FileLen (ByVal PathName As String) As Long	VBA	FileSystem	Function
FileReal	FileReal (filename) As Boolean	BLibreria	DISLibreria	Function
FilledBox	FilledBox (bLeft, bTop, bWidth, bHeight, Color)	BImpresora	Impresora	Sub
Filter	Filter	ADODB	Recordset	Function
FinDocumento	FinDocumento	BImpresora	Impresora	Sub
FinMonitor	FinMonitor As Boolean	BusinessMonitor	clsBusinessMonitor	Function
FindMRUList	FindMRUList As String	CodeSense	Globals	Function
FindString	FindString (ByVal strFind As String, [ByVal bAcceptPartial]) As Long	CodeSense	CodeList	Function
FindText	FindText As String	CodeSense	CodeSense	Function
FindWindowLike	FindWindowLike (hWndArray() As Long, ByVal hWndStart As Long, WindowText As String, Classname As String, Id, hText() As String, hClass() As String) As Long	BLibreria	DISLibreria	Function
Fix	Fix (Number)	VBA	Conversion	Function
Flush	Flush	ADODB	Stream	Sub
Fn	Fn (strValue As String) As Double	BLibreria	DISLibreria	Function
FontTitle	FontTitle As String	BReportes	Columna	Function
FontTitleBold	FontTitleBold As Boolean	BReportes	Columna	Function
FontTitleSize	FontTitleSize As Double	BReportes	Columna	Function
FormaAlto	FormaAlto As Double	BImpresora	Impresora	Function
FormaAncho	FormaAncho As Double	BImpresora	Impresora	Function
FormaAyuda	FormaAyuda As String	BEnviroment	Ambiente	Function
FormaBuscaContactos	FormaBuscaContactos	BClientes	Clientes	Sub
FormaDePagos	FormaDePagos (nCobranza As Long, [Modal As BooleanVerdadero])	BCobranza	Cobranza	Sub
FormatCurrency	FormatCurrency (Expression, [ByVal NumDigitsAfterDecimal As Long-1], [ByVal IncludeLeadingDigit As VbTriState = vbUseDefault], [ByVal UseParensForNegativeNumbers As VbTriState = vbUseDefault], [ByVal GroupDigits As VbTriState = vbUseDefault]) As String	VBA	Strings	Function
FormatDateTime	FormatDateTime (Expression, [ByVal NamedFormat As VbDateTimeFormat = vbGeneralDate]) As String	VBA	Strings	Function
FormatNumber	FormatNumber (Expression, [ByVal NumDigitsAfterDecimal As Long-1], [ByVal IncludeLeadingDigit As VbTriState = vbUseDefault], [ByVal UseParensForNegativeNumbers As VbTriState = vbUseDefault], [ByVal GroupDigits As VbTriState = vbUseDefault]) As String	VBA	Strings	Function
FormatPercent	FormatPercent (Expression, [ByVal NumDigitsAfterDecimal As Long-1], [ByVal IncludeLeadingDigit As VbTriState = vbUseDefault], [ByVal UseParensForNegativeNumbers As VbTriState = vbUseDefault], [ByVal GroupDigits As VbTriState = vbUseDefault]) As String	VBA	Strings	Function
FormateaCuenta	FormateaCuenta (cCuenta As String, nNiveles As Long, nNivel1 As Long, nNivel2 As Long, nNivel3 As Long, nNivel4 As Long, nNivel5 As Long) As String	BLibreria	DISLibreria	Function
Formato	Formato (Var, strFormat)	BLibreria	DISLibreria	Function
FormatoDecimal	FormatoDecimal (uValue As Double) As String	BLibreria	DISLibreria	Function
FreeFile	FreeFile ([RangeNumber]) As Integer	VBA	FileSystem	Function
FuenteTransparente	FuenteTransparente (bolTrans)	BImpresora	Impresora	Sub
FunctionCount	FunctionCount As Long	CodeSense	CodeTipMultiFunc	Function
GeneraFunciones	GeneraFunciones (Ambiente As ?)	BLibreria	DISLibreria	Sub
GetASCIIMode	GetASCIIMode	BLibreria	SymbolCS1504	Sub
GetAllBookmarks	GetAllBookmarks (Lines() As Long)	CodeSense	CodeSense	Sub
GetAllSettings	GetAllSettings (ByVal AppName As String, ByVal Section As String)	VBA	Interaction	Function
GetAttr	GetAttr (ByVal PathName As String) As VbFileAttribute	VBA	FileSystem	Function
GetAttrib	GetAttrib (filename) As String	BLibreria	DISLibreria	Function
GetBookmark	GetBookmark (ByVal lLine As Long) As Boolean	CodeSense	CodeSense	Function
GetCTS	GetCTS	BLibreria	SymbolCS1504	Sub
GetChildren	GetChildren As _Recordset	ADODB	Record	Function
GetChunk	GetChunk (ByVal Length As Long)	ADODB	Field	Function
GetCodeType	GetCodeType (nType As Long)	BLibreria	SymbolCS1504	Sub
GetColor	GetColor (ByVal lColorItem As cmColorItem) As Long	CodeSense	CodeSense	Function
GetCommandString	GetCommandString (ByVal lCmd As cmCommand, ByVal bDescription As Boolean) As String	CodeSense	Globals	Function
GetDeviceId	GetDeviceId	BLibreria	SymbolCS1504	Sub
GetDivider	GetDivider (ByVal lLine As Long) As Boolean	CodeSense	CodeSense	Function
GetDllVersion	GetDllVersion	BLibreria	SymbolCS1504	Sub
GetError	GetError As String	BQueryBuilder	Query	Function
GetFileDate	GetFileDate (filename As String) As String	BLibreria	DISLibreria	Function
GetFileExtension	GetFileExtension (filename As String)	BLibreria	DISLibreria	Function
GetFileSize	GetFileSize (filename) As String	BLibreria	DISLibreria	Function
GetFontStyle	GetFontStyle (ByVal lFontStyleItem As cmFontStyleItem) As cmFontStyle	CodeSense	CodeSense	Function
GetHotKeyForCmd	GetHotKeyForCmd (ByVal lCmd As cmCommand, ByVal lNum As Long) As IHotKey	CodeSense	Globals	Function
GetHotKeys	GetHotKeys (HotKeysBuff() As Byte)	CodeSense	Globals	Sub
GetItemData	GetItemData (ByVal lLine As Long) As Long	CodeSense	CodeSense	Function
GetItemText	GetItemText (ByVal ItemIndex As Long) As String	CodeSense	CodeList	Function
GetLanguageDef	GetLanguageDef (ByVal strName As String) As ILanguage	CodeSense	Globals	Function
GetLine	GetLine (ByVal lLine As Long) As String	CodeSense	CodeSense	Function
GetLineLength	GetLineLength (ByVal lLine As Long) As Long	CodeSense	CodeSense	Function
GetLineStyle	GetLineStyle (ByVal lLine As Long) As Long	CodeSense	CodeSense	Function
GetMacro	GetMacro (ByVal lMacro As Long, MacroBuff() As Byte)	CodeSense	Globals	Sub
GetMarginImages	GetMarginImages (ByVal lLine As Long) As Byte	CodeSense	CodeSense	Function
GetNumHotKeysForCmd	GetNumHotKeysForCmd (ByVal lCmd As cmCommand) As Long	CodeSense	Globals	Function
GetObject	GetObject ([PathName], [Class])	VBA	Interaction	Function
GetPacket	GetPacket	BLibreria	SymbolCS1504	Sub
GetProtocol	GetProtocol	BLibreria	SymbolCS1504	Sub
GetRTCMode	GetRTCMode	BLibreria	SymbolCS1504	Sub
GetRows	GetRows ([ByVal Rows As Long-1], [ByVal Start], [ByVal Fields])	ADODB	Recordset	Function
GetSel	GetSel (ByVal bNormalized As Boolean) As IRange	CodeSense	CodeSense	Function
GetSelFromPoint	GetSelFromPoint (ByVal lxClientPos As Long, ByVal lyClientPos As Long) As IPosition	CodeSense	CodeSense	Function
GetSetting	GetSetting (ByVal AppName As String, ByVal Section As String, ByVal Key As String, [ByVal Default]) As String	VBA	Interaction	Function
GetString	GetString ([ByVal StringFormat As StringFormatEnum = adClipString], [ByVal NumRows As Long-1], [ByVal ColumnDelimeter As String], [ByVal RowDelimeter As String], [ByVal NullExpr As String]) As String	ADODB	Recordset	Function
GetSwVersion	GetSwVersion	BLibreria	SymbolCS1504	Sub
GetSystemStatus	GetSystemStatus	BLibreria	SymbolCS1504	Sub
GetTime	GetTime	BLibreria	SymbolCS1504	Sub
GetTopIndex	GetTopIndex (ByVal lView As Long) As Long	CodeSense	CodeSense	Function
GetVisibleLineCount	GetVisibleLineCount (ByVal lView As Long, ByVal bFullyVisible As Boolean) As Long	CodeSense	CodeSense	Function
GetWord	GetWord (ByVal Pos As IPosition) As String	CodeSense	CodeSense	Function
GetWordLength	GetWordLength (ByVal Pos As IPosition, ByVal bLogical As Boolean) As Long	CodeSense	CodeSense	Function
GlobalProps	GlobalProps As Boolean	CodeSense	CodeSense	Function
Group	Group As String	BScripting	SQLanalizer	Function
Grupo	Grupo As Boolean	BReportes	Columna	Function
Grupo3d	Grupo3d As Boolean	BReportes	Columna	Function
GrupoColleccionTotales	GrupoColleccionTotales As VBA._Collection	BReportes	Columna	Function
GrupoColor	GrupoColor As Double	BReportes	Columna	Function
GrupoData	GrupoData As String	BReportes	Columna	Function
GrupoExcluyeColumnaDeTotales	GrupoExcluyeColumnaDeTotales As VBA._Collection	BReportes	Columna	Function
GrupoFont	GrupoFont As String	BReportes	Columna	Function
GrupoFontBold	GrupoFontBold As Boolean	BReportes	Columna	Function
GrupoFontSize	GrupoFontSize As Double	BReportes	Columna	Function
GrupoParameters	GrupoParameters As VBA._Collection	BReportes	Columna	Function
GrupoResultSet	GrupoResultSet As ADODB._Recordset	BReportes	Columna	Function
GrupoSeparador	GrupoSeparador As Boolean	BReportes	Columna	Function
GrupoSql	GrupoSql As String	BReportes	Columna	Function
GrupoTitulo	GrupoTitulo As String	BReportes	Columna	Function
GrupoTotal	GrupoTotal As Double	BReportes	Columna	Function
GrupoTotal3d	GrupoTotal3d As Boolean	BReportes	Columna	Function
GrupoTotalLeyenda	GrupoTotalLeyenda As String	BReportes	Columna	Function
GrupoTotales	GrupoTotales As Boolean	BReportes	Columna	Function
GrupoValue	GrupoValue	BReportes	Columna	Function
GruposyAcumulados	GruposyAcumulados	BReportes	Reporte	Sub
GuardaBitCostos	GuardaBitCostos (Modulo As String, Clave As String, Modo As String, ByVal Ambiente As String, [strClave2 As String])	BLibreria	DISLibreria	Sub
GuardaBitacora	GuardaBitacora (cArticulo As String)	BArticulos	Articulos	Sub
HScrollVisible	HScrollVisible As Boolean	CodeSense	CodeSense	Function
HSplitterPos	HSplitterPos As Long	CodeSense	CodeSense	Function
HelpContext	HelpContext As Long	ADODB	Error	Function
HelpFile	HelpFile As String	BVentas	chmHelpVentas	Function
HideSel	HideSel As Boolean	CodeSense	CodeSense	Function
HighlightEndPos	HighlightEndPos As Long	CodeSense	CodeTipHighlight	Function
HighlightStartPos	HighlightStartPos As Long	CodeSense	CodeTipHighlight	Function
HighlightedLine	HighlightedLine As Long	CodeSense	CodeSense	Function
HitTest	HitTest (ByVal lxClientPos As Long, ByVal lyClientPos As Long, plView As Long) As cmHitTestCode	CodeSense	CodeSense	Function
Horizontal	Horizontal As Boolean	BImpresora	Impresora	Function
Hour	Hour (Time)	VBA	DateTime	Function
IIf	IIf (Expression, TruePart, FalsePart)	VBA	Interaction	Function
IMEStatus	IMEStatus As VbIMEStatus	VBA	Information	Function
IP2Long	IP2Long (strAddress As String) As Long	BLibreria	Ping	Function
IconBag	IconBag As Object	BEnviroment	Ambiente	Function
Id	Id As String	BLibreria	SymbolCS1504	Function
IdX	IdX As Integer	BScripting	Relacion	Function
IdY	IdY As Integer	BScripting	Relacion	Function
Id_salida	Id_salida As Long	BInventario	Inventario	Function
ImageList	ImageList As Object	CodeSense	CodeSense	Function
Imagen1	Imagen1 As Object	BImpresora	Impresora	Function
Imagen2	Imagen2 As Object	BImpresora	Impresora	Function
Imagen3	Imagen3 As Object	BImpresora	Impresora	Function
ImpresoraDeEtiquetas	ImpresoraDeEtiquetas As Object	BEnviroment	Ambiente	Function
ImpresoraDefault	ImpresoraDefault (strImpresora As String) As Object	BLibreria	DISLibreria	Function
ImprimeDocumento	ImprimeDocumento (cDocumento As String, nVenta As Long)	BVentas	Ventas	Sub
ImprimeFormato	ImprimeFormato (Formato As String, nDocumento As Long, Ambiente As Object, Parent As Object, bolPantalla As Boolean)	BScripting	BScript	Sub
ImprimeRenglon	ImprimeRenglon (nRenglon As Double, Imprimir As Boolean)	BReportes	Reporte	Sub
ImprimeReporte	ImprimeReporte ([nColumna As Long])	BReportes	Reporte	Function
ImprimeTotalGeneral	ImprimeTotalGeneral (nRenglon As Double)	BReportes	Reporte	Sub
ImprimeTotalesGrupo	ImprimeTotalesGrupo (nRenglon As Double, Columna As _Columna, [bolImprimir As BooleanVerdadero])	BReportes	Reporte	Sub
InStr	InStr ([Start], [String1], [String2], [ByVal Compare As VbCompareMethod = vbBinaryCompare])	VBA	Strings	Function
InStrB	InStrB ([Start], [String1], [String2], [ByVal Compare As VbCompareMethod = vbBinaryCompare])	VBA	Strings	Function
InStrRev	InStrRev (ByVal StringCheck As String, ByVal StringMatch As String, [ByVal Start As Long-1], [ByVal Compare As VbCompareMethod = vbBinaryCompare]) As Long	VBA	Strings	Function
IniciaDocumento	IniciaDocumento	BImpresora	Impresora	Sub
IniciaMonitor	IniciaMonitor	BusinessMonitor	clsBusinessMonitor	Sub
Init	Init	BLibreria	SymbolCS1504	Sub
InsertFile	InsertFile (ByVal strFileName As String, ByVal InsertPos As IPosition)	CodeSense	CodeSense	Sub
InsertItem	InsertItem (ByVal lIndex As Long, ByVal strAdd As String, [ByVal ImageIndex], [ByVal ItemData]) As Long	CodeSense	CodeList	Function
InsertLine	InsertLine (ByVal lLine As Long, ByVal strLine As String)	CodeSense	CodeSense	Sub
InsertText	InsertText (ByVal strText As String, ByVal InsertPos As IPosition)	CodeSense	CodeSense	Sub
Inserta	Inserta (cInserta As String, cBusca As String, cTarget As String) As String	BLibreria	DISLibreria	Function
InsertaSql	InsertaSql	BReportes	Reporte	Sub
Int	Int (Number)	VBA	Conversion	Function
Internet	Internet (Modulo As String, Clave As String, Modo As String, ByVal Ambiente As String, [strClave2 As String])	BLibreria	DISLibreria	Sub
Interrogate	Interrogate	BLibreria	SymbolCS1504	Sub
Into	Into As String	BQueryBuilder	Query	Function
Inventario	Inventario As Boolean	BEnviroment	Ambiente	Function
InventarioInicial	InventarioInicial As Boolean	BInventario	Inventario	Function
IsArray	IsArray (VarName) As Boolean	VBA	Information	Function
IsConnected	IsConnected As Boolean	BLibreria	DISLibreria	Function
IsDate	IsDate (Expression) As Boolean	VBA	Information	Function
IsEmpty	IsEmpty (Expression) As Boolean	VBA	Information	Function
IsHostSyncRunning	IsHostSyncRunning As Boolean	BLibreria	Ping	Function
IsMissing	IsMissing (ArgName) As Boolean	VBA	Information	Function
IsNull	IsNull (Expression) As Boolean	VBA	Information	Function
IsNumeric	IsNumeric (Expression) As Boolean	VBA	Information	Function
IsObject	IsObject (Expression) As Boolean	VBA	Information	Function
IsPlayingMacro	IsPlayingMacro As Boolean	CodeSense	CodeSense	Function
IsRecordingMacro	IsRecordingMacro As Boolean	CodeSense	CodeSense	Function
IsolationLevel	IsolationLevel As IsolationLevelEnum	ADODB	Connection	Function
ItemCount	ItemCount As Long	CodeSense	CodeList	Function
Join	Join (SourceArray, [Delimiter]) As String	VBA	Strings	Function
Key	Key As String	BLibreria	WsField	Function
Keywords	Keywords As String	CodeSense	Language	Function
Kill	Kill (PathName)	VBA	FileSystem	Sub
LLenaGeneral	LLenaGeneral (strSQL As String, Titulos As VBA._Collection, strIcon As String, [bolSoloUno As BooleanFalso], [cLetter As String]) As ADODB._Recordset	BLIstView	Llena	Function
LOF	LOF (ByVal FileNumber As Integer) As Long	VBA	FileSystem	Function
LandScape	LandScape	BImpresora	Impresora	Sub
Language	Language As String	CodeSense	CodeSense	Function
LastDllError	LastDllError As Long	VBA	ErrObject	Function
LastRec	LastRec (strTabla As String, Connection As ADODB._Connection) As Long	BLibreria	DISLibreria	Function
LastValue	LastValue	BReportes	Value	Function
Lector	Lector As Object	BEnviroment	Ambiente	Function
Len	Len (Expression)	VBA	Strings	Function
LenB	LenB (Expression)	VBA	Strings	Function
LengthOfId	LengthOfId As Long	BLibreria	SymbolCS1504	Function
LengthOfPacketData	LengthOfPacketData As Long	BLibreria	SymbolCS1504	Function
LengthOfRawData	LengthOfRawData As Long	BLibreria	SymbolCS1504	Function
Lenguaje	Lenguaje As String	BEnviroment	Ambiente	Function
Letra	Letra (nNumero, Leyenda, Decimales, [strLeyenda2]) As String	BImpresora	Impresora	Function
LeyendaFin	LeyendaFin As String	BImpresora	ParamData	Function
LeyendaFin2	LeyendaFin2 As String	BImpresora	ParamData	Function
LeyendaIni	LeyendaIni As String	BImpresora	ParamData	Function
LeyendaIni2	LeyendaIni2 As String	BImpresora	ParamData	Function
LiberaCompra	LiberaCompra (rstCompra As ADODB._Recordset)	BCompras	Compras	Sub
Licence	Licence As Boolean	BEnviroment	Ambiente	Function
LineCount	LineCount As Long	CodeSense	CodeSense	Function
LineNo	LineNo As Long	CodeSense	Position	Function
LineNumberStart	LineNumberStart As Long	CodeSense	CodeSense	Function
LineNumberStyle	LineNumberStyle As cmLineNumStyle	CodeSense	CodeSense	Function
LineNumbering	LineNumbering As Boolean	CodeSense	CodeSense	Function
LineSeparator	LineSeparator As LineSeparatorEnum	ADODB	Stream	Function
LineToolTips	LineToolTips As Boolean	CodeSense	CodeSense	Function
Linea	Linea (bLeft0, bTop0, bLeft1, bTop1)	BImpresora	Impresora	Sub
ListView	ListView As Object	BBuscar	Buscar	Function
LittleIconBag	LittleIconBag As Object	BEnviroment	Ambiente	Function
LlenaAFavor	LlenaAFavor ([nAbono As Long])	BLIstView	Llena	Sub
LlenaAlmacenes	LlenaAlmacenes ([nAlmacen As Long])	BLIstView	Llena	Sub
LlenaBancos	LlenaBancos ([cBANCO As String])	BLIstView	Llena	Sub
LlenaCentrosDeCosto	LlenaCentrosDeCosto ([cCtoCto As String])	BLIstView	Llena	Sub
LlenaClients	LlenaClients ([cCliente As String])	BLIstView	Llena	Sub
LlenaCobrads	LlenaCobrads ([cCobrad As String])	BLIstView	Llena	Sub
LlenaCobranza	LlenaCobranza ([nCobranza As Long])	BLIstView	Llena	Sub
LlenaColores	LlenaColores ([cColor As String])	BLIstView	Llena	Sub
LlenaComprasCanceladas	LlenaComprasCanceladas	BLIstView	Llena	Sub
LlenaComprasConfirmadas	LlenaComprasConfirmadas ([nCompra As Long])	BLIstView	Llena	Sub
LlenaComprasPendientes	LlenaComprasPendientes ([nCompra As Long])	BLIstView	Llena	Sub
LlenaConEgresos	LlenaConEgresos ([cConcepto As String])	BLIstView	Llena	Sub
LlenaConIngresos	LlenaConIngresos ([cConcepto As String])	BLIstView	Llena	Sub
LlenaConcxc	LlenaConcxc ([cConcxc As String])	BLIstView	Llena	Sub
LlenaConcxp	LlenaConcxp ([cConcxp As String])	BLIstView	Llena	Sub
LlenaConpres	LlenaConpres ([cConcepto As String])	BLIstView	Llena	Sub
LlenaCotizaciones	LlenaCotizaciones ([nCotizacion As Long])	BLIstView	Llena	Sub
LlenaCuentas	LlenaCuentas ([cCuenta As String])	BLIstView	Llena	Sub
LlenaCuenxpag	LlenaCuenxpag ([nCuenxpag As Long])	BLIstView	Llena	Sub
LlenaDefinicionDePolizas	LlenaDefinicionDePolizas ([cDefinicionDePoliza As String])	BLIstView	Llena	Sub
LlenaDevComp	LlenaDevComp ([nDevolucion As Long])	BLIstView	Llena	Sub
LlenaDevCompPendientes	LlenaDevCompPendientes ([nDevolucion As Long])	BLIstView	Llena	Sub
LlenaDevoluciones	LlenaDevoluciones ([nDevolucion As Long])	BLIstView	Llena	Sub
LlenaDevolucionesPendientes	LlenaDevolucionesPendientes ([nDevolucion As Long])	BLIstView	Llena	Sub
LlenaDistribuciones	LlenaDistribuciones ([nDistribucion As Long], [cEstado As String”PE”], [bolImagen As BooleanFalso])	BLIstView	Llena	Sub
LlenaEntradas	LlenaEntradas ([nEntrada As Long])	BLIstView	Llena	Sub
LlenaEntradasPendientes	LlenaEntradasPendientes ([nEntrada As Long])	BLIstView	Llena	Sub
LlenaEstaciones	LlenaEstaciones ([cEstacion As String])	BLIstView	Llena	Sub
LlenaEtapas	LlenaEtapas ([cEtapa As String])	BLIstView	Llena	Sub
LlenaFacCanceladas	LlenaFacCanceladas	BLIstView	Llena	Sub
LlenaFacturas	LlenaFacturas ([nVenta As Long])	BLIstView	Llena	Sub
LlenaFlujo	LlenaFlujo	BLIstView	Llena	Sub
LlenaFormatos	LlenaFormatos ([cFormato As String])	BLIstView	Llena	Sub
LlenaGruposDeCuentas	LlenaGruposDeCuentas ([cCveGpo As String])	BLIstView	Llena	Sub
LlenaImpuestos	LlenaImpuestos ([cImpuesto As String])	BLIstView	Llena	Sub
LlenaInvFis	LlenaInvFis	BLIstView	Llena	Sub
LlenaLineas	LlenaLineas ([cLinea As String])	BLIstView	Llena	Sub
LlenaMarcas	LlenaMarcas ([cMarca As String])	BLIstView	Llena	Sub
LlenaMedios	LlenaMedios ([cMedio As String])	BLIstView	Llena	Sub
LlenaModelos	LlenaModelos ([cModelo As String])	BLIstView	Llena	Sub
LlenaMonedas	LlenaMonedas ([cMoneda As String])	BLIstView	Llena	Sub
LlenaOP	LlenaOP ([cOP As String])	BLIstView	Llena	Sub
LlenaOrdenes	LlenaOrdenes ([nOrden As Long])	BLIstView	Llena	Sub
LlenaPagos	LlenaPagos ([nAbono As Long])	BLIstView	Llena	Sub
LlenaPerfiles	LlenaPerfiles ([cPerfil As String])	BLIstView	Llena	Sub
LlenaPeriodosContables	LlenaPeriodosContables ([nYear As Long], [nMonth As Long])	BLIstView	Llena	Sub
LlenaPresupuestos	LlenaPresupuestos ([nPresup As Long])	BLIstView	Llena	Sub
LlenaProds	LlenaProds ([cArticulo As String])	BLIstView	Llena	Sub
LlenaProveedores	LlenaProveedores ([cProveedor As String])	BLIstView	Llena	Sub
LlenaRemCanceladas	LlenaRemCanceladas ([EnTicket As BooleanFalso])	BLIstView	Llena	Sub
LlenaRemisiones	LlenaRemisiones ([nVentas As Long], [EnFacturaFalso], [EnTicket As BooleanFalso])	BLIstView	Llena	Sub
LlenaSalidas	LlenaSalidas ([nSalida As Long])	BLIstView	Llena	Sub
LlenaSalidasPendientes	LlenaSalidasPendientes ([nSalida As Long])	BLIstView	Llena	Sub
LlenaSucursales	LlenaSucursales ([cSucursal As String])	BLIstView	Llena	Sub
LlenaTallas	LlenaTallas ([cTalla As String])	BLIstView	Llena	Sub
LlenaTipoMovims	LlenaTipoMovims ([cTipoMovim As String])	BLIstView	Llena	Sub
LlenaTipopends	LlenaTipopends ([cTipopend As String])	BLIstView	Llena	Sub
LlenaTipos	LlenaTipos ([cTipo As String])	BLIstView	Llena	Sub
LlenaTiposDePolizas	LlenaTiposDePolizas ([cTipoPol As String])	BLIstView	Llena	Sub
LlenaTiposProv	LlenaTiposProv ([cTipop As String])	BLIstView	Llena	Sub
LlenaUbicacion	LlenaUbicacion ([cUbicacion As String])	BLIstView	Llena	Sub
LlenaUsuarios	LlenaUsuarios ([cUsuario As String])	BLIstView	Llena	Sub
LlenaVends	LlenaVends ([cVendedor As String])	BLIstView	Llena	Sub
LlenaVentasDeSucursales	LlenaVentasDeSucursales	BLIstView	Llena	Sub
LlenaVentasPendientes	LlenaVentasPendientes ([nVenta As Long])	BLIstView	Llena	Sub
LlenaZonas	LlenaZonas ([cZona As String])	BLIstView	Llena	Sub
Llenaempleados	Llenaempleados ([cEmpleado As String])	BLIstView	Llena	Sub
Load	Load (ByVal Object As Object)	VBA	Global	Sub
LoadFromFile	LoadFromFile (ByVal FileName As String)	ADODB	Stream	Sub
LoadRsFromXML	LoadRsFromXML (fullpath As String) As ADODB._Recordset	BLibreria	DISLibreria	Function
Loc	Loc (ByVal FileNumber As Integer) As Long	VBA	FileSystem	Function
LockType	LockType As LockTypeEnum	ADODB	Recordset	Function
MAPIMessages1	MAPIMessages1 As Object	BEnviroment	Ambiente	Function
MAPISession1	MAPISession1 As Object	BEnviroment	Ambiente	Function
MSComm	MSComm As Object	BEnviroment	Ambiente	Function
MakeDIR	MakeDIR (path As String)	BLibreria	DISLibreria	Sub
MarcaNumero	MarcaNumero (cNumero As String, cPuerto As String)	BLibreria	DISLibreria	Sub
MarshalOptions	MarshalOptions As MarshalOptionsEnum	ADODB	Recordset	Function
Max	Max (nNumero1 As Double, nNumero2 As Double) As Double	BLibreria	DISLibreria	Function
MaxRecords	MaxRecords As Long	ADODB	Recordset	Function
MaximoModuloDeTerminal	MaximoModuloDeTerminal (strModulo As String, strTerminalEstacion As String, Connection As ADODB._Connection) As Long	BLibreria	DISLibreria	Function
Mensaje	Mensaje (nId As Long, Ambiente As Object) As String	BLibreria	DISLibreria	Function
MensajeError	MensajeError As String	BScripting	BScript	Function
Mes	Mes (nMes As Integer) As String	BLibreria	DISLibreria	Function
MesAnterior	MesAnterior (nMes As Integer) As Integer	BLibreria	DISLibreria	Function
MesSiguiente	MesSiguiente (nMes As Integer) As Integer	BLibreria	DISLibreria	Function
Min	Min (nNumero1 As Double, nNumero2 As Double) As Double	BLibreria	DISLibreria	Function
Minute	Minute (Time)	VBA	DateTime	Function
MisMenus	MisMenus As VBA._Collection	BEnviroment	Ambiente	Function
MkDir	MkDir (ByVal Path As String)	VBA	FileSystem	Sub
ModificaAbono	ModificaAbono (nAbono As Long, [bolModalFalso])	BCobranza	Cobranza	Sub
ModificaArticulo	ModificaArticulo (cArticulo As String, [soloConsulta As BooleanFalso])	BArticulos	Articulos	Sub
ModificaCliente	ModificaCliente (cCliente As String, [soloConsulta As BooleanFalso], [bolModal As BooleanFalso], [objControl As Object])	BClientes	Clientes	Sub
ModificaCobranza	ModificaCobranza (nCobranza As Long, [bolModal As BooleanFalso])	BCobranza	Cobranza	Sub
ModificaCompra	ModificaCompra (nCompra As Long)	BCompras	Compras	Sub
ModificaDevolucion	ModificaDevolucion (nDevolucion As Long)	BVentas	Ventas	Sub
ModificaEntrada	ModificaEntrada (nEntrada As Long)	BEntradasSalidas	EntradasSalidas	Sub
ModificaFactura	ModificaFactura (nFactura As Long)	BVentas	Ventas	Sub
ModificaLinea	ModificaLinea (cLinea As String)	BArticulos	Articulos	Sub
ModificaMarca	ModificaMarca (cMarca As String)	BArticulos	Articulos	Sub
ModificaOrden	ModificaOrden (norden As Long)	BOrdenes	Ordenes	Sub
ModificaPedido	ModificaPedido (nPedido As Long)	BPedidos	Pedidos	Sub
ModificaRemision	ModificaRemision (nVenta As Long)	BVentas	Ventas	Sub
ModificaSalida	ModificaSalida (nSalida As Long)	BEntradasSalidas	EntradasSalidas	Sub
ModificaUbicacion	ModificaUbicacion (cUbicacion As String)	BArticulos	Articulos	Sub
ModificaVendedor	ModificaVendedor (cVendedor As String, [soloConsulta As BooleanFalso], [Modal As BooleanFalso])	BClientes	Clientes	Sub
ModificaVentaPendiente	ModificaVentaPendiente (nVenta As Long)	BVentas	Ventas	Sub
ModificarAbono	ModificarAbono (nAbono As Long)	BCuenxpag	Cuenxpag	Sub
Modified	Modified As Boolean	CodeSense	CodeSense	Function
Modifiers1	Modifiers1 As Long	CodeSense	HotKey	Function
Modifiers2	Modifiers2 As Long	CodeSense	HotKey	Function
Moneda	Moneda As String	BEnviroment	Ambiente	Function
Month	Month (Date)	VBA	DateTime	Function
MonthName	MonthName (ByVal Month As Long, [ByVal Abbreviate As BooleanFalso]) As String	VBA	Strings	Function
MoveFile	MoveFile (Source As String, Destination As String)	BLibreria	DISLibreria	Sub
MoveFirst	MoveFirst	ADODB	Recordset	Sub
MoveLast	MoveLast	ADODB	Recordset	Sub
MoveNext	MoveNext	ADODB	Recordset	Sub
MovePrevious	MovePrevious	ADODB	Recordset	Sub
MoveRecord	MoveRecord ([ByVal Source As String], [ByVal Destination As String], [ByVal UserName As String], [ByVal Password As String], [ByVal Options As MoveRecordOptionsEnum = adMoveUnspecified], [ByVal Async As BooleanFalso]) As String	ADODB	Record	Function
MovimientoInventario	MovimientoInventario (strArticulo As String, strClaveAdd As String, dblCantidad As Double, intAlmacen As Integer, strEntradaSalida As String, strTipoMovim As String, lngNumMovim As Long, dFecha As Date, [Id_salida As Long], [id_entrada As Long], [dblCosto As Double], [Kit As Integer])	BInventario	Inventario	Sub
MsgBox	MsgBox (Prompt, [ByVal Buttons As VbMsgBoxStyle = vbOKOnly], [Title], [HelpFile], [Context]) As VbMsgBoxResult	VBA	Interaction	Function
Muestra	Muestra	BCalculator	Calculator	Sub
MuestraAyuda	MuestraAyuda (Parent As Object, Ambiente As BEnviroment._Ambiente)	BScripting	BScript	Sub
MuestraBusqueda	MuestraBusqueda (strFiltro) As String	BBusquedaModelos	Bmodelos	Function
MuestraCobroEncaja	MuestraCobroEncaja	BVentas	Ventas	Sub
MuestraEditor	MuestraEditor ([strFormato As String], [Clasificacion As String], [bolModal As BooleanFalso], [Parent As Object], [Linea As Long])	BIDE	IDE	Sub
MuestraEditorFormas	MuestraEditorFormas ([strForma As String], [bolModal As BooleanFalso], [Linea As Long])	BIDE	IDE	Sub
MuestraPendientes	MuestraPendientes	BClientes	Clientes	Sub
MuestraVentanaDeAyuda	MuestraVentanaDeAyuda (Forma As Object, ByVal Ambiente As Object)	BLibreria	DISLibreria	Sub
MultiLineComments1	MultiLineComments1 As String	CodeSense	Language	Function
MultiLineComments2	MultiLineComments2 As String	CodeSense	Language	Function
MyMessage	MyMessage (strMensaje As String)	BLibreria	DISLibreria	Sub
MyMessage2	MyMessage2 (strMensaje As String, [DefaultButton As Integer1]) As Integer	BLibreria	DISLibreria	Function
MyUser	MyUser As String	BEnviroment	Ambiente	Function
Name	Name As String	BVentas	clsTextBox	Function
NativeError	NativeError As Long	ADODB	Error	Function
NewCS1504	NewCS1504 As _SymbolCS1504	BLibreria	DISLibreria	Function
NewCol	NewCol (cTitulo As String, cData As String, bolTotal As Boolean, [nAncho As Double], [Formato As String]) As _Columna	BReportes	Reporte	Function
NewCollection	NewCollection As VBA._Collection	BLibreria	DISLibreria	Function
NewDrillDown	NewDrillDown As DrillDownDB._DrillDown	BLibreria	DISLibreria	Function
NewFile	NewFile	BLibreria	DISLibreria	Function
NewFso	NewFso As Scripting.IFileSystem3	BLibreria	DISLibreria	Function
NewInforme	NewInforme As Object	BLibreria	DISLibreria	Function
NewPing	NewPing As _Ping	BLibreria	DISLibreria	Function
NewReport	NewReport As _Reporte	BReportes	Reporte	Function
NewSQLAnalizer	NewSQLAnalizer As _SQLanalizer	BScripting	BScript	Function
NewTextData	NewTextData As Object	BLibreria	DISLibreria	Function
NextRecordset	NextRecordset ([RecordsAffected]) As _Recordset	ADODB	Recordset	Function
NivelDeCuenta	NivelDeCuenta (cCuentaNivel1 As String, cCuentaNivel2 As String, cCuentaNivel3 As String, cCuentaNivel4 As String, cCuentaNivel5 As String) As Long	BLibreria	DISLibreria	Function
NoConfirm	NoConfirm As Boolean	BQueryBuilder	APIFile	Function
NoConfirmMakeDir	NoConfirmMakeDir As Boolean	BQueryBuilder	APIFile	Function
NoMovim	NoMovim As String	BInventario	Inventario	Function
Normalize	Normalize	CodeSense	Range	Sub
NormalizeCase	NormalizeCase As Boolean	CodeSense	CodeSense	Function
Now	Now	VBA	DateTime	Function
NuevaCompra	NuevaCompra	BCompras	Compras	Sub
NuevaDevolucion	NuevaDevolucion	BVentas	Ventas	Sub
NuevaEntrada	NuevaEntrada	BEntradasSalidas	EntradasSalidas	Sub
NuevaLinea	NuevaLinea	BArticulos	Articulos	Sub
NuevaMarca	NuevaMarca	BArticulos	Articulos	Sub
NuevaOrden	NuevaOrden	BOrdenes	Ordenes	Sub
NuevaSalida	NuevaSalida	BEntradasSalidas	EntradasSalidas	Sub
NuevaUbicacion	NuevaUbicacion	BArticulos	Articulos	Sub
NuevaVenta	NuevaVenta ([Tipo As String])	BVentas	Ventas	Sub
NuevoAbono	NuevoAbono ([bolModal As BooleanFalso])	BCuenxpag	Cuenxpag	Sub
NuevoAbonoParaCobranza	NuevoAbonoParaCobranza (nCobranza As Long, [nVenta As Long], [Dialogo As BooleanFalso])	BCobranza	Cobranza	Sub
NuevoCargo	NuevoCargo ([bolModal As BooleanFalso])	BCobranza	Cobranza	Sub
NuevoCliente	NuevoCliente ([Clasificacion As String], [objControl As Object], [bolModal As BooleanFalso])	BClientes	Clientes	Sub
NuevoPedido	NuevoPedido	BPedidos	Pedidos	Sub
NuevoProducto	NuevoProducto ([Clasificacion As String], [objControl As Object])	BArticulos	Articulos	Sub
NuevoVendedor	NuevoVendedor ([objControl As Object], [bolModal As BooleanFalso])	BClientes	Clientes	Sub
NumberOfBarCode	NumberOfBarCode As Long	BLibreria	SymbolCS1504	Function
NumericScale	NumericScale As Byte	ADODB	Parameter	Function
ODBC	ODBC As String	BEnviroment	Ambiente	Function
ODBCString	ODBCString As String	BEnviroment	Ambiente	Function
Observ	Observ As String	BImpresora	ParamData	Function
ObtenerCatalogo	ObtenerCatalogo (Connection As ADODB._Connection) As ADOX._Catalog	BImpresora	Impresora	Function
OnTop	OnTop (f As Object)	BLibreria	DISLibreria	Sub
OpenFile	OpenFile (strFile, n As Integer) As Integer	BLibreria	DISLibreria	Function
OpenSchema	OpenSchema (ByVal Schema As SchemaEnum, [ByVal Restrictions], [ByVal SchemaID]) As _Recordset	ADODB	Connection	Function
Operators	Operators As String	CodeSense	Language	Function
OrdenesAutomaticas	OrdenesAutomaticas	BOrdenes	Ordenes	Sub
Order	Order As String	BScripting	SQLanalizer	Function
OriginalValue	OriginalValue	ADODB	Field	Function
Out	Out (cPuerto, cCode)	BLibreria	DISLibreria	Sub
OutFile	OutFile (cFile, cCode)	BLibreria	DISLibreria	Sub
OutLine	OutLine (cPuerto, cCode)	BLibreria	DISLibreria	Sub
Overtype	Overtype As Boolean	CodeSense	CodeSense	Function
OvertypeCaret	OvertypeCaret As Boolean	CodeSense	CodeSense	Function
PCircle	PCircle (bLeft, bTop, bRadius)	BImpresora	Impresora	Sub
PadL	PadL (str, nVeces) As String	BLibreria	DISLibreria	Function
PadR	PadR (str, nVeces) As String	BLibreria	DISLibreria	Function
PageCount	PageCount As Long	ADODB	Recordset	Function
PageSize	PageSize As Long	ADODB	Recordset	Function
PaginaNueva	PaginaNueva	BImpresora	Impresora	Sub
Paginas	Paginas As Long	BImpresora	Impresora	Function
Pantalla	Pantalla As Boolean	BImpresora	Impresora	Function
PapelAncho	PapelAncho As Double	BImpresora	Impresora	Function
PapelLargo	PapelLargo As Double	BImpresora	Impresora	Function
PapelTipo	PapelTipo As Long	BImpresora	Impresora	Function
PaperOrientation	PaperOrientation As Integer	BImpresora	Impresora	Function
Param1	Param1 As Boolean	BImpresora	ParamData	Function
Param2	Param2 As Boolean	BImpresora	ParamData	Function
ParamData	ParamData As _ParamData	BImpresora	Impresora	Function
ParametrosRequeridos	ParametrosRequeridos ([pQueryIni As String], [pLeyendaIni As String], [pQueryFin As String], [pLeyendaFin As String], [pQueryIni2 As String], [pLeyendaIni2 As String], [pQueryFin2 As String], [pLeyendaFin2 As String], [Fechas As BooleanFalso], [pCheck As BooleanFalso], [pCheckValue As BooleanFalso], [pCheckLeyend As String])	BImpresora	ParamData	Sub
Parent	Parent As Object	BClientes	Clientes	Function
ParentURL	ParentURL As String	ADODB	Record	Function
Partition	Partition (Number, Start, Stop, Interval)	VBA	Interaction	Function
PathCollection	PathCollection As VBA._Collection	BQueryBuilder	Query	Function
Perfil	Perfil As String	BQueryBuilder	Paths	Function
Picture	Picture (picSource, ByVal pLeft, ByVal pTop, ByVal pWidth, ByVal pHeight)	BImpresora	Impresora	Sub
PlaySound	PlaySound (cFile)	BLibreria	DISLibreria	Sub
PonLetra	PonLetra (Numero As Double, Leyenda As String, bolDecimales As Boolean, [strMoneda As String]) As String	BLibreria	DISLibreria	Function
PopUp	PopUp (ByVal Text As String) As Long	BVentas	chmHelpVentas	Function
PorSurtir	PorSurtir (strArticulo As String, Connection As ADODB._Connection) As Double	BLibreria	DISLibreria	Function
PortComm	PortComm As Long	BLibreria	SymbolCS1504	Function
Portrait	Portrait	BImpresora	Impresora	Sub
PosFromChar	PosFromChar (ByVal pPos As IPosition) As IRect	CodeSense	CodeSense	Function
PowerDown	PowerDown	BLibreria	SymbolCS1504	Sub
PrCantidad	PrCantidad As Double	BInventario	Inventario	Function
PreciosPorSucursal	PreciosPorSucursal (cArticulo As String)	BArticulos	Articulos	Sub
Precision	Precision As Byte	ADODB	Parameter	Function
Prepara	Prepara (cString As String) As String	BLibreria	DISLibreria	Function
Prepared	Prepared As Boolean	ADODB	Command	Function
Presentaciones	Presentaciones (cArticulo As String)	BArticulos	Articulos	Sub
Preview	Preview (strTipo As String, strCodigo, Ambiente As BEnviroment._Ambiente, Parent As Object, [strProceso As String], [Observaciones As String])	BScripting	BScript	Sub
PrimerDiaDelaSemana	PrimerDiaDelaSemana (dFecha As Date) As Date	BLibreria	DISLibreria	Function
Principal	Principal As Boolean	BQueryBuilder	BTables	Function
PrintContents	PrintContents (ByVal hDC As Long, ByVal lFlags As Long)	CodeSense	CodeSense	Sub
PrintText	PrintText (PrintVar)	BLibreria	DISLibreria	Sub
ProcConfig	ProcConfig As Boolean	BEnviroment	Ambiente	Function
Process	Process As String	BQueryBuilder	Query	Function
ProtectSpreadsheet	ProtectSpreadsheet As Boolean	BExcel	ExcelFile	Function
Proveedores	Proveedores (cArticulo As String)	BArticulos	Articulos	Sub
Provider	Provider As String	ADODB	Connection	Function
Psw	Psw As String	BEnviroment	Ambiente	Function
PublicKey	PublicKey As String	BQueryBuilder	Query	Function
Puerto	Puerto As Long	BEnviroment	Ambiente	Function
QBColor	QBColor (ByVal Color As Integer) As Long	VBA	Information	Function
Query	Query As String	BQueryBuilder	Query	Function
QueryFin	QueryFin As String	BImpresora	ParamData	Function
QueryFin2	QueryFin2 As String	BImpresora	ParamData	Function
QueryIni	QueryIni As String	BImpresora	ParamData	Function
QueryIni2	QueryIni2 As String	BImpresora	ParamData	Function
Question	Question (strMensaje As String, [DefaultButton As Integer1]) As Boolean	BLibreria	DISLibreria	Function
Question2	Question2 (strMensaje As String, [DefaultButton As Integer1]) As Integer	BLibreria	DISLibreria	Function
Quote	Quote (cBlock As String) As String	BImpresora	Impresora	Function
Raise	Raise (ByVal Number As Long, [Source], [Description], [HelpFile], [HelpContext])	VBA	ErrObject	Sub
Random	Random As Double	BImpresora	Impresora	Function
RandomColor	RandomColor As Long	BImpresora	Impresora	Function
Randomize	Randomize ([Number])	VBA	Math	Sub
RawData	RawData As String	BLibreria	SymbolCS1504	Function
Read	Read ([ByVal NumBytes As Long-1])	ADODB	Stream	Function
ReadData	ReadData	BLibreria	SymbolCS1504	Sub
ReadLine	ReadLine (n As Integer) As String	BLibreria	DISLibreria	Function
ReadRawData	ReadRawData	BLibreria	SymbolCS1504	Sub
ReadText	ReadText ([ByVal NumChars As Long-1]) As String	ADODB	Stream	Function
RecordType	RecordType As RecordTypeEnum	ADODB	Record	Function
RecordsAfected	RecordsAfected As Long	BQueryBuilder	Query	Function
Redo	Redo	CodeSense	CodeSense	Sub
RegisterCommand	RegisterCommand (ByVal lCmdId As Long, ByVal strName As String, ByVal strDescription As String)	CodeSense	Globals	Sub
RegisterHotKey	RegisterHotKey (ByVal pHotKey As IHotKey, ByVal lCmd As cmCommand)	CodeSense	Globals	Sub
RegisterLanguage	RegisterLanguage (ByVal strName As String, ByVal LanguageDef As ILanguage)	CodeSense	Globals	Sub
RegistroDeProcesos	RegistroDeProcesos As Boolean	BEnviroment	Ambiente	Function
RegresaFormaXY	RegresaFormaXY (Form As Object, ByVal Ambiente As Object, [strSubForm As String])	BLibreria	DISLibreria	Sub
RegresaLotes	RegresaLotes (nSalida As Long, ByVal Ambiente As Long)	BLibreria	DISLibreria	Sub
Relation	Relation As String	BQueryBuilder	BTables	Function
RelationType	RelationType As String	BQueryBuilder	BTables	Function
RemoteStation	RemoteStation As String	BQueryBuilder	Paths	Function
Remove	Remove (Index)	VBA	Collection	Sub
RemoveDIR	RemoveDIR (path As String)	BLibreria	DISLibreria	Sub
RenameFile	RenameFile (Filename As String, Target As String)	BQueryBuilder	APIFile	Sub
RenameOnCollision	RenameOnCollision As Boolean	BQueryBuilder	APIFile	Function
Reordena	Reordena As Long	BInventario	Inventario	Function
ReplText	ReplText As String	CodeSense	CodeSense	Function
ReplaceMRUList	ReplaceMRUList As String	CodeSense	Globals	Function
ReplacePreserveCase	ReplacePreserveCase As Boolean	CodeSense	CodeSense	Function
ReplaceSel	ReplaceSel (ByVal strText As String)	CodeSense	CodeSense	Sub
ReplaceString	ReplaceString (strSearch As String, strSearchFor As String, strReplaceWith As String)	BLibreria	DISLibreria	Function
Replicate	Replicate (cChar As String, nVeces As Long) As String	BLibreria	DISLibreria	Function
ReporteEnBlanco	ReporteEnBlanco (Ambiente As BEnviroment._Ambiente, [Parent As Object])	BScripting	BScript	Sub
Requery	Requery ([ByVal Options As Long-1])	ADODB	Recordset	Sub
ResetDefaultHotKeys	ResetDefaultHotKeys	CodeSense	Globals	Sub
RestauraPapel	RestauraPapel	BImpresora	Impresora	Sub
Restore	Restore	BLibreria	SymbolCS1504	Sub
Result	Result As Long	BLibreria	SymbolCS1504	Function
ResultSet	ResultSet As ADODB._Recordset	BQueryBuilder	Query	Function
Resync	Resync ([ByVal AffectRecords As AffectEnum = adAffectAll], [ByVal ResyncValues As ResyncEnum = adResyncAllValues])	ADODB	Recordset	Sub
Retrieve	Retrieve	BReportes	Reporte	Sub
RetrieveColumns	RetrieveColumns	BReportes	Reporte	Sub
RetriveQuery	RetriveQuery (strFile As String)	BQueryBuilder	Query	Sub
RetsultString	RetsultString As String	BLibreria	SymbolCS1504	Function
ReturnValue	ReturnValue As Double	BCalculator	Calculator	Function
RigthMargin	RigthMargin As Double	BReportes	Reporte	Function
RmDir	RmDir (ByVal Path As String)	VBA	FileSystem	Sub
Rnd	Rnd ([Number]) As Single	VBA	Math	Function
RollbackTrans	RollbackTrans	ADODB	Connection	Sub
RowDetail	RowDetail As Double	BReportes	Reporte	Function
RowTitulo	RowTitulo As Double	BReportes	Reporte	Function
RowTitulo2	RowTitulo2 As Double	BReportes	Reporte	Function
RowTitulo3	RowTitulo3 As Double	BReportes	Reporte	Function
RstRO	RstRO (strSql As String, Connection As ADODB._Connection, [bolPantalla As BooleanVerdadero]) As ADODB._Recordset	BLibreria	DISLibreria	Function
RunForm	RunForm (strProceso As String, Parent As Object, Ambiente As BEnviroment._Ambiente, [cCodigo], [bolModal As BooleanVerdadero])	BScripting	BScript	Sub
RunProcess	RunProcess (strProceso As String, Parent As Object, Ambiente As BEnviroment._Ambiente, [cCodigo], [anyObject As Object], [ErrorPantalla As BooleanVerdadero], [Timer As BooleanFalso], [EntryPoint As String], [strEvento As String])	BScripting	BScript	Sub
SQL	SQL As String	BScripting	SQLanalizer	Function
SQLReport	SQLReport (reportName As String, Ambiente As BEnviroment._Ambiente)	BScripting	BScript	Sub
SalidaPeps	SalidaPeps (nConsec As Long) As Double	BInventario	Inventario	Function
SalidaPromedio	SalidaPromedio (nConsec As Long) As Double	BInventario	Inventario	Function
SalidaUeps	SalidaUeps (nConsec As Long) As Double	BInventario	Inventario	Function
SalvaFormaXY	SalvaFormaXY (Form As Object, ByVal Ambiente As Object, [strSubForm As String”frmMaster”])	BLibreria	DISLibreria	Sub
SalvaHistCamb	SalvaHistCamb (articulo As String, precio1 As Double, precio2 As Double, precio3 As Double, precio4 As Double, precio5 As Double, precio6 As Double, precio7 As Double, precio8 As Double, precio9 As Double, precio10 As Double, [ByVal Ambiente As Double])	BLibreria	DISLibreria	Sub
SalvaVenta	SalvaVenta (rstVenta As ADODB._Recordset)	BVentas	Ventas	Sub
SaveFile	SaveFile (ByVal strFileName As String, ByVal bClearUndo As Boolean)	CodeSense	CodeSense	Sub
SaveProcess	SaveProcess (cProcess As String)	BQueryBuilder	Query	Sub
SaveQuery	SaveQuery	BQueryBuilder	Query	Sub
SaveSetting	SaveSetting (ByVal AppName As String, ByVal Section As String, ByVal Key As String, ByVal Setting As String)	VBA	Interaction	Sub
SaveToFile	SaveToFile (ByVal FileName As String, [ByVal Options As SaveOptionsEnum = adSaveCreateNotExist])	ADODB	Stream	Sub
Say	Say (y, x, strMensaje)	BImpresora	Impresora	Sub
Sc	Sc As MSScriptControl.IScriptControl	BReportes	Reporte	Function
Sc1	Sc1 As MSScriptControl.IScriptControl	BReportes	Reporte	Function
ScopeKeywords1	ScopeKeywords1 As String	CodeSense	Language	Function
ScopeKeywords2	ScopeKeywords2 As String	CodeSense	Language	Function
ScriptControl1	ScriptControl1 As Object	BEnviroment	Ambiente	Function
SearchCaseSensitive	SearchCaseSensitive As Boolean	CodeSense	CodeSense	Function
SearchRegExp	SearchRegExp As Boolean	CodeSense	CodeSense	Function
SearchWholeWord	SearchWholeWord As Boolean	CodeSense	CodeSense	Function
Second	Second (Time)	VBA	DateTime	Function
Seek	Seek (ByVal KeyValues, [ByVal SeekOption As SeekEnum = adSeekFirstEQ])	ADODB	Recordset	Sub
SelBounds	SelBounds As Boolean	CodeSense	CodeSense	Function
SelLength	SelLength As Long	CodeSense	CodeSense	Function
SelLengthLogical	SelLengthLogical As Long	CodeSense	CodeSense	Function
SelText	SelText As String	CodeSense	CodeSense	Function
SelectLine	SelectLine (ByVal lLine As Long, ByVal bMakeVisible As Boolean)	CodeSense	CodeSense	Sub
SelectedItem	SelectedItem As Long	CodeSense	CodeList	Function
SendSpecialKey	SendSpecialKey (strKey As String)	BLibreria	DISLibreria	Sub
Separador	Separador (Separator As String, strSearch As String, List() As String) As Long	BLibreria	DISLibreria	Function
SeparadorDecimal	SeparadorDecimal As String	BLibreria	DISLibreria	Function
Servidor	Servidor As String	BEnviroment	Ambiente	Function
SetAllBookmarks	SetAllBookmarks (Lines() As Long)	CodeSense	CodeSense	Sub
SetAttr	SetAttr (ByVal PathName As String, ByVal Attributes As VbFileAttribute)	VBA	FileSystem	Sub
SetBookmark	SetBookmark (ByVal lLine As Long, ByVal bVal As Boolean)	CodeSense	CodeSense	Sub
SetCaretPos	SetCaretPos (ByVal lLine As Long, ByVal lCol As Long)	CodeSense	CodeSense	Sub
SetColor	SetColor (ByVal lColorItem As cmColorItem, ByVal crColor As Long)	CodeSense	CodeSense	Sub
SetColumnWidth	SetColumnWidth (FirstColumn As Byte, LastColumn As Byte, WidthValue As Integer)	BExcel	ExcelFile	Function
SetDTR	SetDTR (ByVal nOnOff As Long)	BLibreria	SymbolCS1504	Sub
SetDateTime	SetDateTime (lngYear As Integer, lngMonth As Integer, lngDay As Integer, lngHoras As Integer, lngMinutos As Integer, lngSegundos As Integer)	BLibreria	DISLibreria	Sub
SetDefaults	SetDefaults	BLibreria	SymbolCS1504	Sub
SetDivider	SetDivider (ByVal lLine As Long, ByVal bVal As Boolean)	CodeSense	CodeSense	Sub
SetDlgParent	SetDlgParent (ByVal lhWnd As Long)	CodeSense	CodeSense	Sub
SetEOS	SetEOS	ADODB	Stream	Sub
SetFilePassword	SetFilePassword (PasswordText As String) As Integer	BExcel	ExcelFile	Function
SetFont	SetFont (FontName As String, FontHeight As Integer, FontFormat As FontFormatting) As Integer	BExcel	ExcelFile	Function
SetFontStyle	SetFontStyle (ByVal lFontStyleItem As cmFontStyleItem, ByVal byFontStyle As cmFontStyle)	CodeSense	CodeSense	Sub
SetFooter	SetFooter (FooterText As String) As Integer	BExcel	ExcelFile	Function
SetHeader	SetHeader (HeaderText As String) As Integer	BExcel	ExcelFile	Function
SetHidden	SetHidden (filename As String)	BLibreria	DISLibreria	Sub
SetHotKeys	SetHotKeys (HotKeysBuff() As Byte)	CodeSense	Globals	Sub
SetItemData	SetItemData (ByVal lLine As Long, ByVal lData As Long)	CodeSense	CodeSense	Sub
SetLineStyle	SetLineStyle (ByVal lLine As Long, ByVal lStyle As Long)	CodeSense	CodeSense	Sub
SetMacro	SetMacro (ByVal lMacro As Long, MacroBuff() As Byte)	CodeSense	Globals	Sub
SetMargin	SetMargin (Margin As MarginTypes, MarginValue As Double) As Integer	BExcel	ExcelFile	Function
SetMarginImages	SetMarginImages (ByVal lLine As Long, ByVal byImages As Byte)	CodeSense	CodeSense	Sub
SetNormal	SetNormal (filename As String)	BLibreria	DISLibreria	Sub
SetParam	SetParam (nParam As Long, szString As String, nMaxLength As Long)	BLibreria	SymbolCS1504	Sub
SetReadOnly	SetReadOnly (filename As String)	BLibreria	DISLibreria	Sub
SetRetryCount	SetRetryCount (nRetryCount As Long)	BLibreria	SymbolCS1504	Sub
SetSel	SetSel (ByVal Sel As IRange, ByVal bMakeVisible As Boolean)	CodeSense	CodeSense	Sub
SetSystem	SetSystem (filename As String)	BLibreria	DISLibreria	Sub
SetTime	SetTime	BLibreria	SymbolCS1504	Sub
SetTopIndex	SetTopIndex (ByVal lView As Long, ByVal lLine As Long)	CodeSense	CodeSense	Sub
Sgn	Sgn (Number)	VBA	Math	Function
Shell	Shell (PathName, [ByVal WindowStyle As VbAppWinStyle = vbMinimizedFocus]) As Double	VBA	Interaction	Function
ShellCommand	ShellCommand (strCommand As String, intProperty)	BLibreria	DISLibreria	Sub
ShellRun	ShellRun (hWnd As Long, Operation As String, FileURL As String, [Param As String], [Direc As String], [ShowComand As Long]) As Long	BLibreria	DISLibreria	Function
ShellSortAny	ShellSortAny (vArray, [ByVal SortOrder As SortOrder = SortAscending])	BLibreria	DISLibreria	Sub
ShowData	ShowData	prjMultiCombo	MultiCombo	Sub
SiguienteIdModulo	SiguienteIdModulo (strModulo As String, Connection As ADODB._Connection) As Long	BLibreria	DISLibreria	Function
Silent	Silent As Boolean	BQueryBuilder	APIFile	Function
SimpleProgress	SimpleProgress As Boolean	BQueryBuilder	APIFile	Function
Sin	Sin (ByVal Number As Double) As Double	VBA	Math	Function
SingleLineComments	SingleLineComments As String	CodeSense	Language	Function
SkipLine	SkipLine	ADODB	Stream	Sub
SmoothScrolling	SmoothScrolling As Boolean	CodeSense	CodeSense	Function
SocketCliente	SocketCliente As Object	BEnviroment	Ambiente	Function
SocketClientes	SocketClientes As Object	BEnviroment	Ambiente	Function
SocketServidor	SocketServidor As Object	BEnviroment	Ambiente	Function
SoloRecalculo	SoloRecalculo As Boolean	BInventario	Inventario	Function
SoloSeleccionados	SoloSeleccionados As Boolean	BImpresora	ParamData	Function
SortAscending	SortAscending = 0	BLibreria	SortOrder	Const
SortDescending	SortDescending = 1	BLibreria	SortOrder	Const
SortStyle	SortStyle As cmCodeListSortStyle	CodeSense	CodeList	Function
Sqr	Sqr (ByVal Number As Double) As Double	VBA	Math	Function
Sqr2	Sqr2 (nDato) As Double	BLibreria	DISLibreria	Function
StartColNo	StartColNo As Long	CodeSense	Range	Function
StartLineNo	StartLineNo As Long	CodeSense	Range	Function
StartPolling	StartPolling (ByVal csp2CallBack As Long)	BLibreria	SymbolCS1504	Sub
State	State As ObjectStateEnum	ADODB	Stream	Function
StayInSync	StayInSync As Boolean	ADODB	Recordset	Function
StdDev	StdDev (a) As Double	BLibreria	DISLibreria	Function
StealKeys	StealKeys As Boolean	CodeSense	CodeSense	Function
StopPolling	StopPolling	BLibreria	SymbolCS1504	Sub
StrComp	StrComp (String1, String2, [ByVal Compare As VbCompareMethod = vbBinaryCompare])	VBA	Strings	Function
StrReverse	StrReverse (ByVal Expression As String) As String	VBA	Strings	Function
StringDelims	StringDelims As String	CodeSense	Language	Function
SubPerfil	SubPerfil As String	BQueryBuilder	Paths	Function
Sucursal	Sucursal As String	BEnviroment	Ambiente	Function

Te atendemos 24/7 vía WhatsApp:

SQL Management Studio 2005 (64 Bits)

SQL Management Studio 2005

Te atendemos 24/7 vía WhatsApp:

Te atendemos 24/7 vía WhatsApp:

Te atendemos 24/7 vía WhatsApp:

Función

Descripción

Librería (dll)

Tipo

Sub o Funcion

Detalle

AbreConnection

AbreConnection (cBase As String) As ADODB._Connection

BLibreria

DISLibreria

Function

AbrirCajonDeDinero

AbrirCajonDeDinero (cPuerto, cCode)

BImpresora

Impresora

Sub

Abs

Abs (Number)

VBA

Math

Function

AbsolutePage

AbsolutePage As PositionEnum

ADODB

Recordset

Function

AbsolutePosition

AbsolutePosition As PositionEnum

ADODB

Recordset

Function

ActivaMostrador

ActivaMostrador ([Tipo As String])

BVentas

Ventas

Sub

ActivaPuntoDeVenta

ActivaPuntoDeVenta ([Tipo As String], [bolModal As BooleanFalso], [bolLogin As BooleanFalso])

BVentas

Ventas

Sub

ActivaPuntoDeVenta2

ActivaPuntoDeVenta2 ([Tipo As String], [bolModal As BooleanFalso], [bolLogin As BooleanFalso])

BVentas

Ventas

Sub

ActiveCommand

ActiveCommand As Object

ADODB

Recordset

Function

ActiveConnection

ActiveConnection

ADODB

Recordset

Function

ActualSize

ActualSize As Long

ADODB

Field

Function

ActualizaApartadosPorVenta

ActualizaApartadosPorVenta (cArticulo, nCantidad, ByVal Ambiente)

BLibreria

DISLibreria

Sub

ActualizaCuenxpag

ActualizaCuenxpag (nCuenxpag, ByVal Ambiente)

BLibreria

DISLibreria

Sub

ActualizaPorAplicar

ActualizaPorAplicar (nAbono, ByVal Ambiente)

BLibreria