'----****
'----**** MyBusiness POS V20
'----**** Version del script: 1.0
'----**** 19/02/2020
'----****
Public Sub Main()
txtFields(0) = Ambiente.Uid
End SubMAGELLAN384 Bascula magellan 384 de un puerto
'----****
'----**** 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
Configuracion
else
TraePeso
end if
End Sub
Public Sub Configuracion()
if Ambiente.Lector.PortOpen Then
Exit Sub
end if
if Ambiente.Lector.PortOpen Then
Ambiente.Lector.PortOpen = False
end if
Select Case Trim(Ambiente.rstEstacion("pbascula"))
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.Lector.Settings = "9600,O,7,1"
Ambiente.Lector.RTSEnable = True
Ambiente.Lector.PortOpen = True
Ambiente.Tag = ""
Exit Sub
End Sub
Public Sub TraePeso
' Si el puerto no esta abierto salimos del procedimiento
if Ambiente.Lector.PortOpen = False Then
Exit Sub
end if
a = Ambiente.Lector.Input
a = ""
For n = 1 to 50
Ambiente.Lector.OutPut = Chr(83) & Chr( 49 ) & Chr( 49 ) & Chr( 13 )
' Si lo que obtenemos es el valor del lector de código de barras
a = Ambiente.Lector.Input
if Len( a ) > 0 Then
a = Replace( Trim( a ), Chr(13), "" )
a = Val2( Mid( a, 4) ) / 1000
txtFields(0) = Formato( a, "###,###.0000" )
AceptaPeso
Exit For
end if
Eventos
Next
End SubMAGELLAN Basculas magellan de dos puertos
'----****
'----**** 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
ConfiguraPuerto
else
TraePeso
end if
End Sub
Public Sub ConfiguraPuerto()
if Ambiente.Bascula.PortOpen Then
Ambiente.Bascula.PortOpen = False
end if
Select Case Trim(Ambiente.rstEstacion("pbascula"))
Case "COM1"
Ambiente.Bascula.CommPort = 1
Case "COM2"
Ambiente.Bascula.CommPort = 2
Case "COM3"
Ambiente.Bascula.CommPort = 3
Case "COM4"
Ambiente.Bascula.CommPort = 4
Case "COM5"
Ambiente.Bascula.CommPort = 5
Case else
Ambiente.Bascula.CommPort = 1
End Select
if Ambiente.Bascula.PortOpen Then
Exit Sub
end if
Ambiente.Bascula.Settings = "9600,E,7,1"
Ambiente.Bascula.RTSEnable = True
Ambiente.Bascula.PortOpen = True
Ambiente.Tag = ""
End Sub
Public Sub TraePeso
' Si el puerto no esta abierto salimos del procedimiento
if Ambiente.Bascula.PortOpen = False Then
Exit Sub
end if
' Vaciamos el bufer
a = Ambiente.Bascula.Input
a = ""
Eventos
Ambiente.Bascula.OutPut = Chr(87)
For n = 1 To 50
a = Ambiente.Bascula.Input
if Len( a ) > 0 Then
a = Replace( Trim( a ), Chr(13), "" )
txtFields(0) = a
AceptaPeso
Exit For
end if
Eventos
Next
End SubLMAGELLAN Lector de codigo de barras serial
'----****
'----**** 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
CLIENTES004 Cuando uno de los comboboxes de la forma cambia
'----****
'----**** 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
