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