Categoría: MyBusiness POS

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

    ' Si la mauiquina pide configurar el puerto

    if Ambiente.Tag = "CONFIGURANDO" Then
       Configurando
    else
       ProcesaString
    end if

End Sub


Public Sub Configurando

       if Ambiente.Lector.PortOpen Then
          Ambiente.Lector.PortOpen = False       
       end if 

       Select Case Trim(Ambiente.rstEstacion("plector"))
               Case "COM1"
                   Ambiente.Lector.CommPort = 1
               Case "COM2"  
                   Ambiente.Lector.CommPort = 2
               Case "COM3"  
                   Ambiente.Lector.CommPort = 3
               Case "COM4"  
                   Ambiente.Lector.CommPort = 4
               Case "COM5"  
                   Ambiente.Lector.CommPort = 5            
               Case else
                   Ambiente.Lector.CommPort = 1            
        End Select

        if Ambiente.Lector.PortOpen Then
           Exit Sub
        end if 

        Ambiente.Tag = ""

        Ambiente.Lector.Settings = "9600,E,7,1"
        Ambiente.Lector.RTSEnable = True    
        Ambiente.Lector.PortOpen = True

        TimerLector.Enabled = True

End Sub


Public Sub ProcesaString()
    Dim a    

    a = Lector.Input

    if Len(a) > 0 Then
       Teclado.SendKeys (a)      
    end if
    
End Sub

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

    Select Case Ambiente.Tag
           Case 0
                if cmbFields(0) = "México" Then
                   ColocaEstados
                Else
                   strText = cmbFields(1) 
                   cmbFields(1).Clear
                   cmbFields(1) = strText
                End If

           Case 1

                if cmbFields(1) = "Distrito federal" Then
                   ColocaDelegaciones
                Else
                   strText = cmbFields(2) 
                   cmbFields(2).Clear
                   cmbFields(2) = strText
                End If


    End Select

End Sub


Public Sub ColocaEstados()

    cmbFields(1).AddItem "Aguascalientes"
    cmbFields(1).AddItem "Baja california norte"
    cmbFields(1).AddItem "Baja california"
    cmbFields(1).AddItem "Campeche"
    cmbFields(1).AddItem "Chiapas"
    cmbFields(1).AddItem "Chihuahua"
    cmbFields(1).AddItem "Coahuila"
    cmbFields(1).AddItem "Colima"
    cmbFields(1).AddItem "Distrito federal"
    cmbFields(1).AddItem "Durango"
    cmbFields(1).AddItem "Guanajuato"
    cmbFields(1).AddItem "Guerrero"
    cmbFields(1).AddItem "Hidalgo"
    cmbFields(1).AddItem "Jalisco"
    cmbFields(1).AddItem "Mexico"
    cmbFields(1).AddItem "Michoacan"
    cmbFields(1).AddItem "Morelos"
    cmbFields(1).AddItem "Nayarit"
    cmbFields(1).AddItem "Nuevo leon"
    cmbFields(1).AddItem "Oaxaca"
    cmbFields(1).AddItem "Puebla"
    cmbFields(1).AddItem "Queretaro"
    cmbFields(1).AddItem "Quintana roo"
    cmbFields(1).AddItem "San luis potosi"
    cmbFields(1).AddItem "Sinaloa"
    cmbFields(1).AddItem "Sonora"
    cmbFields(1).AddItem "Tabasco"
    cmbFields(1).AddItem "Tamaulipas"
    cmbFields(1).AddItem "Tlaxcala"
    cmbFields(1).AddItem "Veracruz"
    cmbFields(1).AddItem "Yucatan"
    cmbFields(1).AddItem "Zacatecas"

End Sub


Public Sub ColocaDelegaciones()

    cmbFields(2).AddItem "Alvaro Obregón"
    cmbFields(2).AddItem "Azcapotzalco"
    cmbFields(2).AddItem "Benito Júarez"
    cmbFields(2).AddItem "Coyoacán"
    cmbFields(2).AddItem "Cuajimalpa"
    cmbFields(2).AddItem "Cuauhtémoc"
    cmbFields(2).AddItem "Gustabo A.Madero"
    cmbFields(2).AddItem "Iztacalco"
    cmbFields(2).AddItem "Iztapalapa"
    cmbFields(2).AddItem "La Magdalena Contreras"
    cmbFields(2).AddItem "Miguel Hidalgo"
    cmbFields(2).AddItem "Milpa Alta"
    cmbFields(2).AddItem "Tláhuac"
    cmbFields(2).AddItem "Tlalpan"
    cmbFields(2).AddItem "Venustiano Carranza"
    cmbFields(2).AddItem "Xochimilco"


End Sub

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

    

End Sub

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

    Set rstMax = CreaRecordSet( "SELECT MAX( id ) FROM bitacora", Ambiente.Connection )
    nBitacora = Val2( rstMax(0) ) + 1

    cArchivo = ArielBrowseFolder1 & "\Bitacora" & nBitacora & ".zip"

    if Not ExisteArchivo( cArchivo ) Then
       MsgBox "No existe la bitacora siguiente"
       Exit Sub
    end if

    Set Files = NewCollection()
    Files.Add "Prods.xml"
    Files.Add "Clavesadd.xml"    

    RichsoftVBZip1.FileName = cArchivo
    RichsoftVBZip1.Extract (Files), 0, False, True, (ArielBrowseFolder1.Text)

    Set rstProds = LoadRsFromXML(ArielBrowseFolder1.Text & "\Prods.xml")    
    Set rstClavesAdd = LoadRsFromXML(ArielBrowseFolder1.Text & "\ClavesAdd.xml")    

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

    While Not rstProds.EOF 
          Set rstProdX = CreaRecordSet( "SELECT articulo FROM prods WHERE articulo = '" & rstProds("articulo") & "'", Ambiente.Connection )   

          Query.Reset

          if rstProdX.EOF Then
             Query.strState = "INSERT"
          else
             Query.strState = "UPDATE"          
             Query.Condition = "articulo = '" & rstProds("Articulo") & "'" 
          end if

          Query.AddField "prods", "articulo", rstProds("articulo")
          Query.AddField "prods", "descrip", rstProds("descrip")
          Query.AddField "prods", "precio1", Val2(rstProds("precio1"))
          Query.AddField "prods", "precio2", Val2(rstProds("precio2"))
          Query.AddField "prods", "precio3", Val2(rstProds("precio3"))
          Query.AddField "prods", "precio4", Val2(rstProds("precio4"))
          Query.AddField "prods", "precio5", Val2(rstProds("precio5"))
          Query.AddField "prods", "precio6", Val2(rstProds("precio6"))
          Query.AddField "prods", "precio7", Val2(rstProds("precio7"))
          Query.AddField "prods", "precio8", Val2(rstProds("precio8"))
          Query.AddField "prods", "precio9", Val2(rstProds("precio9"))
          Query.AddField "prods", "precio10", Val2(rstProds("precio10"))
          Query.AddField "prods", "c2", Val2(rstProds("c2"))
          Query.AddField "prods", "c3", Val2(rstProds("c3"))
          Query.AddField "prods", "c4", Val2(rstProds("c4"))
          Query.AddField "prods", "c5", Val2(rstProds("c5"))
          Query.AddField "prods", "c6", Val2(rstProds("c6"))
          Query.AddField "prods", "c7", Val2(rstProds("c7"))
          Query.AddField "prods", "c8", Val2(rstProds("c8"))
          Query.AddField "prods", "c9", Val2(rstProds("c9"))
          Query.AddField "prods", "c10", Val2(rstProds("c10"))
          Query.AddField "prods", "bajocosto", Val2(rstProds("bajocosto"))
          Query.AddField "prods", "bloqueado", Val2(rstProds("bloqueado"))
          Query.AddField "prods", "linea", "SYS"
          Query.AddField "prods", "marca", "SYS"
          Query.AddField "prods", "ubicacion", "SYS"
          Query.AddField "prods", "invent", 1
          Query.AddField "prods", "impuesto", rstProds("impuesto")
          Query.CreateQuery
          Query.Execute
          rstProds.MoveNext

    Wend

    While Not rstClavesAdd.EOF 
          Set rstClaveAddX = CreaRecordSet( "SELECT clave FROM clavesadd WHERE clave = '" & rstClavesAdd("clave") & "'", Ambiente.Connection )   

          Query.Reset

          if rstClaveAddX.EOF Then
             Query.strState = "INSERT"
          else 
             Query.strState = "UPDATE"          
             Query.Condition = "articulo = '" & rstClavesAdd("clave") & "'"
          end if

          Query.AddField "clavesadd","Clave", rstClavesAdd("clave")
          Query.AddField "clavesadd","Dato1", rstClavesAdd("dato1")
          Query.AddField "clavesadd","Usuario", rstClavesAdd("usuario")
          Query.AddField "clavesadd","usuFecha", rstClavesAdd("usufecha")
          Query.AddField "clavesadd","usuHora", rstClavesAdd("usuhora")
          Query.AddField "clavesadd","Dato2", rstClavesAdd("dato2")
          Query.AddField "clavesadd","Articulo", rstClavesAdd("Articulo")
          Query.AddField "clavesadd","Cantidad", Val2(rstClavesAdd("cantidad"))
          Query.AddField "clavesadd","Unidad", rstClavesAdd("unidad")
          Query.CreateQuery
          Query.Execute 

          rstClavesAdd.MoveNext
    Wend    

    Query.Reset
    Query.strState = "INSERT"
    Query.AddField "bitacora","id", nBitacora
    Query.AddField "bitacora","usuario", Ambiente.Uid
    Query.AddField "bitacora","usufecha", Date
    Query.AddField "bitacora","usuhora", Formato( Time, "hh:mm:ss" )
    Query.AddField "bitacora","exportado", 1
    Query.CreateQuery
    Query.Execute

    Parent.LLenaBitacoras

    Ambiente.Connection.Execute "UPDATE consec SET consec = " & nBitacora & " WHERE dato = 'Bitacora'" 

End Sub

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

    if ListView1(0).SelectedItem Is Nothing Then
       MsgBox "Debe de seleccionar primero una bitacora", vbInformation
       Exit Sub
    End if

    Set Files = NewCollection

    Set rstHistcamb = CreaRecordSet( "SELECT histcamb.*, prods.descrip, prods.granel, prods.impuesto, prods.bajocosto, prods.bloqueado FROM histcamb INNER JOIN prods USING( articulo ) WHERE histcamb.bitacora = " & Mid(ListView1(0).SelectedItem.Key, 2), Ambiente.Connection )
    cArchivo = Ambiente.Path & "\Prods" & ".xml"
    EliminaArchivo cArchivo
    rstHistcamb.Save cArchivo, 1
    Files.Add cArchivo


    Set rstHistcamb = CreaRecordSet( "SELECT clavesadd.* FROM clavesadd INNER JOIN histcamb USING( articulo ) WHERE histcamb.bitacora = " & Mid(ListView1(0).SelectedItem.Key, 2), Ambiente.Connection )
    cArchivo = Ambiente.Path & "\Clavesadd" & ".xml"
    EliminaArchivo cArchivo
    rstHistcamb.Save cArchivo, 1
    Files.Add cArchivo
        
    Ambiente.Connection.Execute "UPDATE bitacora SET exportado = 1 WHERE id = " & Mid(ListView1(0).SelectedItem.Key, 2)

    cArchivo = ArielBrowseFolder1 & "\Bitacora" & Mid(ListView1(0).SelectedItem.Key, 2) &  ".zip"

    RichsoftVBZip1.FileName = cArchivo

    if ExisteArchivo( cArchivo ) Then
       if Question( "La bitacora ya existe desea sobreescibirlo" ) Then
          EliminaArchivo cArchivo
       else
          Exit Sub
       end if
    end if

    RichsoftVBZip1.Add (Files), 1, False, False, False, 5

    MsgBox "Archivo : " & cArchivo & " fue creado",  vbInformation    
   
End Sub