Autor: jose felix

'----**** 
'----**** 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

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

    'Set rstArticulo = CreaRecordSet( "SELECT precio2, precio3 FROM prods WHERE articulo = '" & fg2.TextMatrix( fg2.row, 0 ) & "'", Ambiente.Connection )

    'fg2.TextMatrix( fg2.Row, 17 ) = rstArticulo( "precio2" )
    'fg2.TextMatrix( fg2.Row, 18 ) = rstArticulo( "precio3" )

End Sub

'----**** 
'----**** 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