MyBusiness POS archivos - Página 11 de 103

Publicado el 13 febrero, 202413 febrero, 2026 por jose felix — Dejar un comentario

MAGELLAN Basculas magellan de dos puertos

'----**** 
'----**** MyBusiness POS V20
'----**** Version del script: 1.0
'----**** 19/02/2020
'----**** 
Public Sub Main()  

    ' Si la mauiquina pide configurar el puerto
    if Ambiente.Tag = "CONFIGURANDO" Then
       ConfiguraPuerto
    else
       TraePeso
    end if


End Sub



Public Sub ConfiguraPuerto()

       if Ambiente.Bascula.PortOpen Then
          Ambiente.Bascula.PortOpen = False       
       end if 

       Select Case Trim(Ambiente.rstEstacion("pbascula"))
              Case "COM1"
                   Ambiente.Bascula.CommPort = 1
               Case "COM2"  
                   Ambiente.Bascula.CommPort = 2
               Case "COM3"  
                   Ambiente.Bascula.CommPort = 3
               Case "COM4"  
                   Ambiente.Bascula.CommPort = 4
               Case "COM5"  
                   Ambiente.Bascula.CommPort = 5            
               Case else
                   Ambiente.Bascula.CommPort = 1            
        End Select

        if Ambiente.Bascula.PortOpen Then
           Exit Sub
        end if 

        Ambiente.Bascula.Settings = "9600,E,7,1"
        Ambiente.Bascula.RTSEnable = True    
        Ambiente.Bascula.PortOpen = True

        Ambiente.Tag = ""

End Sub


Public Sub TraePeso

    ' Si el puerto no esta abierto salimos del procedimiento
    if Ambiente.Bascula.PortOpen = False Then
       Exit Sub
    end if 

    ' Vaciamos el bufer
    a = Ambiente.Bascula.Input
    a = ""

    Eventos

    Ambiente.Bascula.OutPut = Chr(87)

    For n = 1 To 50
        a = Ambiente.Bascula.Input

        if Len( a ) > 0 Then
           a = Replace( Trim( a ), Chr(13), "" )
           txtFields(0) = a 
           AceptaPeso  
           Exit For
        end if

        Eventos   
 
    Next

End Sub

Publicado el 13 febrero, 202413 febrero, 2026 por jose felix — Dejar un comentario

LMAGELLAN Lector de codigo de barras serial

'----**** 
'----**** MyBusiness POS V20
'----**** Version del script: 1.0
'----**** 19/02/2020
'----**** 
Public Sub Main()

    ' Si la mauiquina pide configurar el puerto

    if Ambiente.Tag = "CONFIGURANDO" Then
       Configurando
    else
       ProcesaString
    end if

End Sub


Public Sub Configurando

       if Ambiente.Lector.PortOpen Then
          Ambiente.Lector.PortOpen = False       
       end if 

       Select Case Trim(Ambiente.rstEstacion("plector"))
               Case "COM1"
                   Ambiente.Lector.CommPort = 1
               Case "COM2"  
                   Ambiente.Lector.CommPort = 2
               Case "COM3"  
                   Ambiente.Lector.CommPort = 3
               Case "COM4"  
                   Ambiente.Lector.CommPort = 4
               Case "COM5"  
                   Ambiente.Lector.CommPort = 5            
               Case else
                   Ambiente.Lector.CommPort = 1            
        End Select

        if Ambiente.Lector.PortOpen Then
           Exit Sub
        end if 

        Ambiente.Tag = ""

        Ambiente.Lector.Settings = "9600,E,7,1"
        Ambiente.Lector.RTSEnable = True    
        Ambiente.Lector.PortOpen = True

        TimerLector.Enabled = True

End Sub


Public Sub ProcesaString()
    Dim a    

    a = Lector.Input

    if Len(a) > 0 Then
       Teclado.SendKeys (a)      
    end if
    
End Sub

Publicado el 13 febrero, 202413 febrero, 2026 por jose felix — Dejar un comentario

CLIENTES004 Cuando uno de los comboboxes de la forma cambia

'----**** 
'----**** MyBusiness POS V20
'----**** Version del script: 1.0
'----**** 19/02/2020
'----**** 
Public Sub Main()

    Select Case Ambiente.Tag
           Case 0
                if cmbFields(0) = "México" Then
                   ColocaEstados
                Else
                   strText = cmbFields(1) 
                   cmbFields(1).Clear
                   cmbFields(1) = strText
                End If

           Case 1

                if cmbFields(1) = "Distrito federal" Then
                   ColocaDelegaciones
                Else
                   strText = cmbFields(2) 
                   cmbFields(2).Clear
                   cmbFields(2) = strText
                End If


    End Select

End Sub


Public Sub ColocaEstados()

    cmbFields(1).AddItem "Aguascalientes"
    cmbFields(1).AddItem "Baja california norte"
    cmbFields(1).AddItem "Baja california"
    cmbFields(1).AddItem "Campeche"
    cmbFields(1).AddItem "Chiapas"
    cmbFields(1).AddItem "Chihuahua"
    cmbFields(1).AddItem "Coahuila"
    cmbFields(1).AddItem "Colima"
    cmbFields(1).AddItem "Distrito federal"
    cmbFields(1).AddItem "Durango"
    cmbFields(1).AddItem "Guanajuato"
    cmbFields(1).AddItem "Guerrero"
    cmbFields(1).AddItem "Hidalgo"
    cmbFields(1).AddItem "Jalisco"
    cmbFields(1).AddItem "Mexico"
    cmbFields(1).AddItem "Michoacan"
    cmbFields(1).AddItem "Morelos"
    cmbFields(1).AddItem "Nayarit"
    cmbFields(1).AddItem "Nuevo leon"
    cmbFields(1).AddItem "Oaxaca"
    cmbFields(1).AddItem "Puebla"
    cmbFields(1).AddItem "Queretaro"
    cmbFields(1).AddItem "Quintana roo"
    cmbFields(1).AddItem "San luis potosi"
    cmbFields(1).AddItem "Sinaloa"
    cmbFields(1).AddItem "Sonora"
    cmbFields(1).AddItem "Tabasco"
    cmbFields(1).AddItem "Tamaulipas"
    cmbFields(1).AddItem "Tlaxcala"
    cmbFields(1).AddItem "Veracruz"
    cmbFields(1).AddItem "Yucatan"
    cmbFields(1).AddItem "Zacatecas"

End Sub


Public Sub ColocaDelegaciones()

    cmbFields(2).AddItem "Alvaro Obregón"
    cmbFields(2).AddItem "Azcapotzalco"
    cmbFields(2).AddItem "Benito Júarez"
    cmbFields(2).AddItem "Coyoacán"
    cmbFields(2).AddItem "Cuajimalpa"
    cmbFields(2).AddItem "Cuauhtémoc"
    cmbFields(2).AddItem "Gustabo A.Madero"
    cmbFields(2).AddItem "Iztacalco"
    cmbFields(2).AddItem "Iztapalapa"
    cmbFields(2).AddItem "La Magdalena Contreras"
    cmbFields(2).AddItem "Miguel Hidalgo"
    cmbFields(2).AddItem "Milpa Alta"
    cmbFields(2).AddItem "Tláhuac"
    cmbFields(2).AddItem "Tlalpan"
    cmbFields(2).AddItem "Venustiano Carranza"
    cmbFields(2).AddItem "Xochimilco"


End Sub

Publicado el 13 febrero, 202413 febrero, 2026 por jose felix — Dejar un comentario

EXISTENCIASUC Existencia por sucursales por familia

'----**** 
'----**** MyBusiness POS V20
'----**** Version del script: 1.0
'----**** 19/02/2020
'----**** 
Sub Main()

    

End Sub

Publicado el 13 febrero, 202413 febrero, 2026 por jose felix — Dejar un comentario

BITACORA005 Importa los datos de una bitacora

'----**** 
'----**** MyBusiness POS V20
'----**** Version del script: 1.0
'----**** 19/02/2020
'----**** 
Public Sub Main()

    Set rstMax = CreaRecordSet( "SELECT MAX( id ) FROM bitacora", Ambiente.Connection )
    nBitacora = Val2( rstMax(0) ) + 1

    cArchivo = ArielBrowseFolder1 & "\Bitacora" & nBitacora & ".zip"

    if Not ExisteArchivo( cArchivo ) Then
       MsgBox "No existe la bitacora siguiente"
       Exit Sub
    end if

    Set Files = NewCollection()
    Files.Add "Prods.xml"
    Files.Add "Clavesadd.xml"    

    RichsoftVBZip1.FileName = cArchivo
    RichsoftVBZip1.Extract (Files), 0, False, True, (ArielBrowseFolder1.Text)

    Set rstProds = LoadRsFromXML(ArielBrowseFolder1.Text & "\Prods.xml")    
    Set rstClavesAdd = LoadRsFromXML(ArielBrowseFolder1.Text & "\ClavesAdd.xml")    

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

    While Not rstProds.EOF 
          Set rstProdX = CreaRecordSet( "SELECT articulo FROM prods WHERE articulo = '" & rstProds("articulo") & "'", Ambiente.Connection )   

          Query.Reset

          if rstProdX.EOF Then
             Query.strState = "INSERT"
          else
             Query.strState = "UPDATE"          
             Query.Condition = "articulo = '" & rstProds("Articulo") & "'" 
          end if

          Query.AddField "prods", "articulo", rstProds("articulo")
          Query.AddField "prods", "descrip", rstProds("descrip")
          Query.AddField "prods", "precio1", Val2(rstProds("precio1"))
          Query.AddField "prods", "precio2", Val2(rstProds("precio2"))
          Query.AddField "prods", "precio3", Val2(rstProds("precio3"))
          Query.AddField "prods", "precio4", Val2(rstProds("precio4"))
          Query.AddField "prods", "precio5", Val2(rstProds("precio5"))
          Query.AddField "prods", "precio6", Val2(rstProds("precio6"))
          Query.AddField "prods", "precio7", Val2(rstProds("precio7"))
          Query.AddField "prods", "precio8", Val2(rstProds("precio8"))
          Query.AddField "prods", "precio9", Val2(rstProds("precio9"))
          Query.AddField "prods", "precio10", Val2(rstProds("precio10"))
          Query.AddField "prods", "c2", Val2(rstProds("c2"))
          Query.AddField "prods", "c3", Val2(rstProds("c3"))
          Query.AddField "prods", "c4", Val2(rstProds("c4"))
          Query.AddField "prods", "c5", Val2(rstProds("c5"))
          Query.AddField "prods", "c6", Val2(rstProds("c6"))
          Query.AddField "prods", "c7", Val2(rstProds("c7"))
          Query.AddField "prods", "c8", Val2(rstProds("c8"))
          Query.AddField "prods", "c9", Val2(rstProds("c9"))
          Query.AddField "prods", "c10", Val2(rstProds("c10"))
          Query.AddField "prods", "bajocosto", Val2(rstProds("bajocosto"))
          Query.AddField "prods", "bloqueado", Val2(rstProds("bloqueado"))
          Query.AddField "prods", "linea", "SYS"
          Query.AddField "prods", "marca", "SYS"
          Query.AddField "prods", "ubicacion", "SYS"
          Query.AddField "prods", "invent", 1
          Query.AddField "prods", "impuesto", rstProds("impuesto")
          Query.CreateQuery
          Query.Execute
          rstProds.MoveNext

    Wend

    While Not rstClavesAdd.EOF 
          Set rstClaveAddX = CreaRecordSet( "SELECT clave FROM clavesadd WHERE clave = '" & rstClavesAdd("clave") & "'", Ambiente.Connection )   

          Query.Reset

          if rstClaveAddX.EOF Then
             Query.strState = "INSERT"
          else 
             Query.strState = "UPDATE"          
             Query.Condition = "articulo = '" & rstClavesAdd("clave") & "'"
          end if

          Query.AddField "clavesadd","Clave", rstClavesAdd("clave")
          Query.AddField "clavesadd","Dato1", rstClavesAdd("dato1")
          Query.AddField "clavesadd","Usuario", rstClavesAdd("usuario")
          Query.AddField "clavesadd","usuFecha", rstClavesAdd("usufecha")
          Query.AddField "clavesadd","usuHora", rstClavesAdd("usuhora")
          Query.AddField "clavesadd","Dato2", rstClavesAdd("dato2")
          Query.AddField "clavesadd","Articulo", rstClavesAdd("Articulo")
          Query.AddField "clavesadd","Cantidad", Val2(rstClavesAdd("cantidad"))
          Query.AddField "clavesadd","Unidad", rstClavesAdd("unidad")
          Query.CreateQuery
          Query.Execute 

          rstClavesAdd.MoveNext
    Wend    

    Query.Reset
    Query.strState = "INSERT"
    Query.AddField "bitacora","id", nBitacora
    Query.AddField "bitacora","usuario", Ambiente.Uid
    Query.AddField "bitacora","usufecha", Date
    Query.AddField "bitacora","usuhora", Formato( Time, "hh:mm:ss" )
    Query.AddField "bitacora","exportado", 1
    Query.CreateQuery
    Query.Execute

    Parent.LLenaBitacoras

    Ambiente.Connection.Execute "UPDATE consec SET consec = " & nBitacora & " WHERE dato = 'Bitacora'" 

End Sub

Contáctanos:

Contáctanos:

Contáctanos:

Contáctanos:

Contáctanos: