Autor: jose felix

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

    Set excelConnection = CreateObject("ADODB.Connection")
    excelConnection.ConnectionString = "driver={Microsoft Excel Driver (*.xls)};DBQ=c:\daniel\base1.xls;"
    excelConnection.Open    

    ImportaProductos excelConnection

End Sub


Public Sub ImportaProductos( excelConnection )
    Dim Progress

    Ambiente.Connection.Execute "DELETE FROM prods WHERE articulo <> 'SYS'"   
    Ambiente.Connection.Execute "DELETE FROM clavesadd WHERE articulo <> 'SYS'"   

    Set rstArticulos = CreaRecordSetEnCliente( "SELECT * FROM [RMaza-BASE$]", (excelConnection) )

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

    Set Progress = NewProgress()    

    if rstArticulos.RecordCount > 0 Then
       Progress.Anim rstArticulos.RecordCount, "Importando catálogo de artículos", Ambiente.Path & "\Images\Gears.Avi"    
    end if 

    n = 0

    While Not rstArticulos.EOF 

          n = n + 1

          Progress.Valor n, "Procesando: " & rstArticulos("articulo") & " " & rstArticulos("descrip")

          If Not clEmpty( "" & rstArticulos("articulo") ) Then

             Query.Reset           
             Query.AddField "PRODS", "articulo", rstArticulos("articulo")
             Query.AddField "PRODS", "descrip", rstArticulos("descrip")
             Query.AddField "PRODS", "linea", "SYS"
             Query.AddField "PRODS", "precio1", Val2(rstArticulos("precio1"))
             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.strState = "INSERT"
             Query.CreateQuery
             Query.Execute 

          End If
          
          rstArticulos.MoveNext 
    Wend    

    if n > 0 Then
       Progress.Destroy
    end if

End Sub

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

    Ambiente.Connection.Execute "UPDATE ventas SET estado = 'CO'"

End Sub

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

    fg2.Rows = 3000

End Sub 

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

    If Not lvwMonedas.SelectedItem Is Nothing Then
       nResultado = lvwMonedas.SelectedItem.Tag * Val2( txtFields(0) )
       txtFields(0) =  nResultado
       txtFields(1) =  Formato( nResultado, Ambiente.Formato )      
    End If

End Sub

'----**** 
'----**** MyBusiness POS V20
'----**** Version del script: 1.0
'----**** 19/02/2020
'----**** 
Public Sub Main()
    Dim cDato
    
    if Parent Is Nothing Then
       Exit Sub
    end if

    cDato = InputBox( "Nueva clave: ", "Clave anterior: " & Mid(Parent.lvListview.SelectedItem.Key,2), "")

    if Existe( ( cDato ), "articulo", "prods", Ambiente.Connection ) Then
       MsgBox "La clave por que intenta ingresar ya existe", VbInformation
       Exit Sub
    end if

    if Len( cDato ) > 15 Then
       MsgBox "La clave debe de ser máximo de 15 caracteres", VbInformation
       Exit Sub       
    end if

    cDato = Ucase( cDato )

    Ambiente.Connection.Execute "UPDATE componen SET articulo = ª" & cDato & "ª WHERE articulo = ª" & Mid( Parent.lvListview.SelectedItem.Key,2) & "ª"
    Ambiente.Connection.Execute "UPDATE comppart SET articulo = ª" & cDato & "ª WHERE articulo = ª" & Mid( Parent.lvListview.SelectedItem.Key,2) & "ª"
    Ambiente.Connection.Execute "UPDATE cotizpar SET articulo = ª" & cDato & "ª WHERE articulo = ª" & Mid( Parent.lvListview.SelectedItem.Key,2) & "ª"
    Ambiente.Connection.Execute "UPDATE entpart SET articulo = ª" & cDato & "ª WHERE articulo = ª" & Mid( Parent.lvListview.SelectedItem.Key,2) & "ª"
    Ambiente.Connection.Execute "UPDATE movsvin SET articulo = ª" & cDato & "ª WHERE articulo = ª" & Mid( Parent.lvListview.SelectedItem.Key,2) & "ª"
    Ambiente.Connection.Execute "UPDATE ordpar SET articulo = ª" & cDato & "ª WHERE articulo = ª" & Mid( Parent.lvListview.SelectedItem.Key,2) & "ª"
    Ambiente.Connection.Execute "UPDATE partcomp SET articulo = ª" & cDato & "ª WHERE articulo = ª" & Mid( Parent.lvListview.SelectedItem.Key,2) & "ª"
    Ambiente.Connection.Execute "UPDATE partinv SET articulo = ª" & cDato & "ª WHERE articulo = ª" & Mid( Parent.lvListview.SelectedItem.Key,2) & "ª"
    Ambiente.Connection.Execute "UPDATE partvta SET articulo = ª" & cDato & "ª WHERE articulo = ª" & Mid( Parent.lvListview.SelectedItem.Key,2) & "ª"
    Ambiente.Connection.Execute "UPDATE prods SET articulo = ª" & cDato & "ª WHERE articulo = ª" & Mid( Parent.lvListview.SelectedItem.Key,2) & "ª"
    Ambiente.Connection.Execute "UPDATE salpart SET articulo = ª" & cDato & "ª WHERE articulo = ª" & Mid( Parent.lvListview.SelectedItem.Key,2) & "ª"
    Ambiente.Connection.Execute "UPDATE series SET articulo = ª" & cDato & "ª WHERE articulo = ª" & Mid( Parent.lvListview.SelectedItem.Key,2) & "ª"
    Ambiente.Connection.Execute "UPDATE pendient SET articulo = ª" & cDato & "ª WHERE articulo = ª" & Mid( Parent.lvListview.SelectedItem.Key,2) & "ª"

    Parent.LlenaProds   

End Sub