José Félix ♞

Publicado el 14 febrero, 202414 febrero, 2026 por jose felix — Dejar un comentario

TUPPERLECTOR Lector especial para codigos de Tupperware

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

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


End Sub


Public Sub ProcesaString()
    Dim a
    Dim b  
 

    For n = 1 To Ambiente.Lector.InBufferCount 
        Tag = Tag & Ambiente.Lector.Input
    Next

    if Len( Tag ) > 5 Then
       
       if clAt( "04", Tag ) = 1 Then
          if Len( Tag ) >= 10 Then
             Tag = Replace( Tag, "04", "D", 1, 1 )
             Tag = Mid( Tag, 1, Len(Tag) - 3 )
             Teclado.SendKeys (Tag) & Chr(13)
             Tag = ""
          end if         
       else
          Teclado.SendKeys (Tag)
          Tag = ""
          Exit Sub 
       end if 
    
    end if   

    
End Sub


Public Sub ConfiguraPuerto()

       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
                   Exit Sub
        End Select

        if Ambiente.Lector.PortOpen Then
           Exit Sub
        end if 

        Ambiente.Lector.Settings = "9600,N,8,1"
        Ambiente.Lector.RTSEnable = True    
        Ambiente.Lector.PortOpen = True

        TimerLector.Enabled = True
        Ambiente.Tag = ""

End Sub

Publicado el 14 febrero, 202414 febrero, 2026 por jose felix — Dejar un comentario

VENTASCOLECTOR Recupera ventas de un colector

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

    Set SymbolCS1504 = NewCS1504()

    ' El puerto serial donde se va a conectar 0 = 1, 1 = 2 etc..
    SymbolCS1504.PortComm = 3
    SymbolCS1504.Init

    If SymbolCS1504.Result <> 0 Then
       MsgBox "Error al abrir puerto de comunicaciones", vbInformation
       Exit Sub
    End If

    SymbolCS1504.ReadData

    For n = 0 To SymbolCS1504.Barcodes - 1
        SymbolCS1504.NumberOfBarCode = n  
        SymbolCS1504.GetPacket

        Set rstProd = CreaRecordSet( _
        "SELECT articulo FROM prods WHERE articulo = '" & _
        SymbolCS1504.Barcode & "'", Ambiente.Connection )
 
        If Not rstProd.EOF Then
           LlenaPartida SymbolCS1504.Barcode
        End If
    Next
    
    SymbolCS1504.SetDefaults
    SymbolCS1504.ClearData
    SymbolCS1504.Restore

End Sub



Sub LeeArchivo()
    Dim cArhivo 
    Dim cGuion

    cArchivo = Ambiente.Path & "\guion.txt"

    If Not ExisteArchivo( cArchivo ) Then
       Exit Sub
    End If    

    cGuion = ""

    CloseFile 1
 
    OpenFile ( cArchivo ), 1
  
    While Not FileEof( 1 )
          cGuion = cGuion & ReadLine( 1 ) & vbCrLf
    Wend 
 
    CloseFile 1

    RichTextBox3.Text = cGuion

End Sub

Publicado el 14 febrero, 202414 febrero, 2026 por jose felix — Dejar un comentario

CS1504 Lector de bolsillo Symbol 1504A

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

    Set SymbolCS1504 = NewCS1504()

    SymbolCS1504.Init

    If SymbolCS1504.Result <> 0 Then
       MsgBox "Error al abrir puerto de comunicaciones", vbInformation
       Exit Sub
    End If

    SymbolCS1504.SetDefaults
    SymbolCS1504.ReadData

    nVenta = 0

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

    For n = 0 To SymbolCS1504.Barcodes - 1

        SymbolCS1504.NumberOfBarCode = n  
        SymbolCS1504.GetPacket

        Set rstProd = CreaRecordSet( "SELECT articulo FROM prods WHERE articulo = '" & SymbolCS1504.Barcode & "'", Ambiente.Connection )

        Query.Reset           
        Query.AddField "PRODS", "articulo", SymbolCS1504.Barcode
        Query.AddField "PRODS", "descrip", SymbolCS1504.Barcode
        Query.AddField "PRODS", "linea", "SYS"
        Query.AddField "PRODS", "precio1", 0
        Query.AddField "PRODS", "marca", "SYS"
        Query.AddField "PRODS", "ubicacion", "SYS"
        Query.AddField "PRODS", "impuesto", "SYS"
        Query.AddField "PRODS", "paraventa", 1
        Query.AddField "PRODS", "invent", 1

        If rstProd.EOF Then
           Query.strState = "INSERT"
        Else
           Query.strState = "UPDATE"
           Query.Condition = "articulo = '" & SymbolCS1504.Barcode & "'"
        End If

        Query.CreateQuery
        Query.Execute

    Next
    
    SymbolCS1504.ClearData
    SymbolCS1504.Restore 

End Sub

Publicado el 14 febrero, 202414 febrero, 2026 por jose felix — Dejar un comentario

SALIDAS008 Despliega la informacion del producto

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

       Exit Sub

       if rstArticulo.EOF Then
          if rstClavesAdd Is Nothing Then
             Exit Sub
          end if 
       else
          Set rstArticulo = CreaRecordSet( "SELECT * FROM prods WHERE articulo = '" & rstArticulo("Articulo") & "'", Ambiente.Connection )   

          If clEmpty( rstArticulo("Url") )  Then
             if Ambiente.rstEConfig("usarweblocal") <> 0 Then
                cUrl = Trim(Ambiente.rstEConfig("weblocal")) & Trim( rstArticulo("imagen") )
             else
                cUrl = Trim( rstArticulo("imagen") )
             end if                     
          else
             cUrl = Trim( rstArticulo("url") )
          end if 

       end if

       if Not rstClavesAdd Is Nothing Then
          if Not clEmpty( "" & rstClavesAdd("Imagen") ) Then

             if Ambiente.rstEConfig("usarweblocal") <> 0 Then
                cUrl = Trim(Ambiente.rstEConfig("weblocal")) & Trim( rstClavesAdd("imagen") )
             else
                cUrl = Trim( rstClavesAdd("imagen") )
             end if                     

          end if 
       end if

       If clAt(".mpg", cUrl) > 0 Or _
          clAt(".mov", cUrl) > 0 Or _
          clAt(".mp3", cUrl) > 0 Or _
          clAt(".wav", cUrl) > 0 Or _
          clAt(".avi", cUrl) > 0 Or _
          clAt(".jpg", cUrl) > 0 Or _
          clAt(".gif", cUrl) > 0 Or _
          clAt(".mpeg", cUrl) > 0 Then
          cHtml = ""
          cHtml = cHtml & "<html>"
          cHtml = cHtml & "<head>"
          cHtml = cHtml & "<title>Artículo: " & Trim(rstArticulo("Descrip")) & "</title>"
          cHtml = cHtml & "</head>"
          cHtml = cHtml & "<body>"
          cHtml = cHtml & "<p>"
          cHtml = cHtml & "</p>"
          cHtml = cHtml & "<p align='center'><b><font face='Arial' size='5'>" & Trim(rstArticulo("Descrip")) & "</font></b></p>"

          if clAt(".jpg", cUrl) > 0 Or _
             clAt(".gif", cUrl) > 0 Or _
             clAt(".bmp", cUrl) > 0 Then
             cHtml = cHtml & "<p align='center'><img border='0' src='" & cUrl & "' width=100% start='fileopen'></p>"
          else
             cHtml = cHtml & "<p align='center'><img border='0' dynsrc='" & cUrl & "' start='fileopen'></p>"
          end if   

       Else

         Me.Wb.Navigate cUrl
         Exit Sub
 
      End If


      cHtml = cHtml & "<center><table border='1' width='100%'>"

      'cHtml = cHtml & "<tr>"
      'cHtml = cHtml & "<td><p align='left'><b><font size='3'>Producto </font></b></p></td>"
      'cHtml = cHtml & "<td><p align='left'><b><font size='3'>" & Trim(rstArticulo("Descrip")) & "</font></b></p></td>"
      'cHtml = cHtml & "</tr>"

      'cHtml = cHtml & "<tr>"
      'cHtml = cHtml & "<td><p align='left'><b><font size='3'>Precio </font></b></p></td>"
      'cHtml = cHtml & "<td><p align='left'><b><font size='3'>$ " & Libreria.Formato(rstArticulo("Precio1"), Ambiente.FDinero ) & "</font></b></p></td>"
      'cHtml = cHtml & "</tr>"

      cHtml = cHtml & "<tr>"
      cHtml = cHtml & "<td><p align='left'><b><font size='3'>Existencia </font></b></p></td>"
      cHtml = cHtml & "<td><p align='center'><b><font size='3'> " & Libreria.Formato(rstArticulo("Existencia"), Ambiente.Formato ) & " " & rstArticulo("Unidad") & "</font></b></p></td>"
      cHtml = cHtml & "</tr>"

      if Not Ambiente.Conexiones Is Nothing Then

         ' Obtenemos la existencia en cada sucursal
         For n = 1 To Ambiente.Conexiones.Count

             Set Sucursal = Ambiente.Conexiones(n)

             if Sucursal.Connection.State = 1 Then            

                Set rstProd = CreaRecordSet( "SELECT articulo, existencia, unidad FROM prods WHERE articulo = '" & rstArticulo("Articulo") & "'", Sucursal.Connection, False ) 

                if Not rstProd Is Nothing Then
                   if Not rstProd.EOF Then   
                      cHtml = cHtml & "<tr>"
                      cHtml = cHtml & "<td><p align='left'><b><font size='3'>Existencia en <BR>" & Sucursal.Descripcion & " <BR>" & Sucursal.Direccion & " </font></b></p></td>"
                      cHtml = cHtml & "<td><p align='center'><b><font size='3'> " & Libreria.Formato(rstProd("Existencia"), Ambiente.Formato ) & " " & rstProd("Unidad") & "</font></b></p></td>"
                      cHtml = cHtml & "</tr>"
                   end if
                end if
 
             end if  
          Next
 
      end if

      cHtml = cHtml & "</table></center>" 
      cHtml = cHtml & "</body></html>"     
      cHtml = cHtml & "</body>"
      cHtml = cHtml & "</html>"

      CreaHTML "", (cHtml)

End Sub

Publicado el 14 febrero, 202414 febrero, 2026 por jose felix — Dejar un comentario

PUNTOV037 Cuando se captuta un egreso en el punto de venta

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

    Script.RunForm "COBROENEFECTIVO", Parent, Ambiente 

End Sub

Contáctanos:

Contáctanos:

Contáctanos:

Contáctanos:

Contáctanos: