TORR5220 Torreta 5220

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

       if Not Torreta.PortOpen Then  
 
          Select Case Trim(Ambiente.rstEstacion("ptorreta"))
                  Case "COM1"
                       Torreta.CommPort = 1
                   Case "COM2"  
                       Torreta.CommPort = 2
                   Case "COM3"  
                       Torreta.CommPort = 3
                   Case "COM4"  
                       Torreta.CommPort = 4
                   Case "COM5"  
                       Torreta.CommPort = 5            
                   Case else
                       Torreta.CommPort = 1            
          End Select

          Torreta.Settings = "9600,N,8,1"
          Torreta.RTSEnable = True    
          Torreta.PortOpen = True

       End if

End Sub