jose felix, Autor José Félix ♞

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

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

PUNTOV036 Al realizar un ingreso al flujo de caja

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

    Script.RunForm "PAGOEFECTIVO", Parent, Ambiente 

End Sub

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

IMPTEXTO Importa texto

'----**** 
'----**** MyBusiness POS V20
'----**** Version del script: 1.0
'----**** 19/02/2020
'----**** 
Sub Main()
    Dim cCodigo
    Dim cLinea
    Dim cDescrip
    Dim nPrecio
    Dim Query    

    CloseFile 1
    OpenFile "c:\daniel\codigo.txt", 1

    Set Query = NewQuery
    Set Query.Connection = Ambiente.Connection
    Query.ErrorOculto = True

    While Not FileEOF( 1 )

          On error resume next
 
          cLinea = ReadLine( 1 )

          nPos = clAt( Chr(9), cLinea )
          cCodigo = Replace( Mid( cLinea, 1, nPos - 1 ), "#", "" )
          cCodigo = Replace( cCodigo, "$", "" )
          cLinea = Mid( cLinea, nPos + 1 )

        
          nPos = clAt( Chr(9), cLinea )
          cCodigo2 = Replace( Mid( cLinea, 1, nPos - 1 ), "#", "" )
          cCodigo2 = Replace( cCodigo2, "$", "" )
          cLinea = Mid( cLinea, nPos + 1 )
 
          nPos = clAt( Chr(9), cLinea )
          cDescrip = Mid( cLinea, 1, nPos - 1 ) 
          cDescrip = Mid( Trim( cDescrip ), 2 )         
          cDescrip = Mid( cDescrip, 1, Len( cDescrip ) - 1 )         
          cPrecio = Mid( cLinea, nPos + 2 )
          cPrecio = Replace( cPrecio, Chr(34), "" )
          cPrecio = Replace( cPrecio, "$", "" )
          nPrecio = Val2( cPrecio )
 
          Set rstProd = CreaRecordSet( "SELECT articulo FROM prods WHERE articulo = '" & cCodigo & "'", Ambiente.Connection )

          Query.Reset
          
          if rstProd.EOF Then
             Query.strState = "INSERT"
          else
             Query.strState = "UPDATE"
             Query.Condition = "articulo = '" & cCodigo & "'"
          end if

          Query.Reset           
          Query.AddField "PRODS", "articulo", cCodigo
          Query.AddField "PRODS", "descrip", cDescrip
          Query.AddField "PRODS", "linea", "SYS"
          Query.AddField "PRODS", "costo", 0
          Query.AddField "PRODS", "minimo", 0
          Query.AddField "PRODS", "maximo", 0
          Query.AddField "PRODS", "precio1", nPrecio
          Query.AddField "PRODS", "precio2", 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
          Query.CreateQuery
          Query.Execute


          if clEmpty( (cCodigo2) ) Then          
             Query.Reset  

             Set rstClaveAdd = CreaRecordSet( "SELECT clave FROM clavesadd WHERE clave = '" & cCodigo2 & "'", Ambiente.Connection )
         
             if rstClaveAdd.EOF Then 
                Query.strState = "INSERT"
             else
                Query.strState = "UPDATE"
                Query.Condition = "clave = '" & cCodigo2 & "'"
             end if

             Query.AddField "CLAVESADD", "clave", cCodigo2
             Query.AddField "CLAVESADD", "dato1", ""          
             Query.AddField "CLAVESADD", "usuario", ""          
             Query.AddField "CLAVESADD", "usufecha", ""          
             Query.AddField "CLAVESADD", "dato2", ""          
             Query.AddField "CLAVESADD", "articulo", cCodigo
             Query.AddField "CLAVESADD", "cantidad", 1
             Query.AddField "CLAVESADD", "unidad", ""
             Query.CreateQuery
             Query.Execute
          end if                          
  
    Wend

    CloseFile 1

End Sub

Contáctanos:

Contáctanos:

Contáctanos:

Contáctanos:

Contáctanos: