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