EJEMPLOIMPORTA Ejemplo de importación de datos

'----**** 
'----**** MyBusiness POS V20
'----**** Version del script: 1.0
'----**** 19/02/2020
'----**** 
Sub Main()
    Dim Articulo
    Dim Descripcion
    Dim Precio 
    Dim Query
    Dim rstProd

    Set Query = NewQuery()
    Set Query.Connection = Ambiente.Connection
 
    CloseFile 1
    OpenFile "c:\sample.txt", 1

    Ambiente.Connection.Execute "UPDATE prods SET paraventa = 1"

    While Not FileEOF( 1 )
          cLinea = ReadLine( 1 )
          
          nComa = clAt( ",", cLinea ) 
          Articulo = Mid( cLinea, 1, nComa - 1)
          cLinea = Mid( cLinea, nComa + 1)

          nComa = clAt( ",", cLinea )     
          Descripcion = Mid( cLinea, 1, nComa - 1 )          
          Precio = Mid( cLinea, nComa + 1)

          Set rstProd = CreaRecordSet( "SELECT articulo FROM prods WHERE articulo = '" & Articulo & "'", Ambiente.Connection )
           
          Query.Reset

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

          Query.AddField "prods", "articulo", Articulo
          Query.AddField "prods", "descrip", Descripcion
          Query.AddField "prods", "precio1", Val2( Precio )
          Query.AddField "PRODS", "linea", "SYS"
          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

    Wend    

    CloseFile 1

End Sub