Solución al Problema de las Básculas en MyBusinesspos 2017

Publicado en el Grupo de Whatsapp Distribuidores VIP de MyBusinessPOS el 2017-11-23. Por el Lic. Ramón Sosa Reyes
¿Eres Distribuidor y deseas unirte al Grupo? Consulta términos y condiciones aquí

Ya lo había publicado previamente como:
 
¿Básculas, Lectores Seriales, Torretas, es decir Dispositivos COM funcionan 
en MyBusinessPOS 2017?

sin embargo me enteré que no todos lo vieron.
Por lo que lo presento nuevamente en versión resumida.


Abrir el Procedimiento LOGIN001

Sub Main()         
  
'Me.WindowState = 2          

End Sub


'Esto fue lo que le incluí, para Bascula, Lector y Torreta
    
Set Ambiente.Bascula = CreateObject( "MSCommLib.MSComm" )
    
Set Ambiente.Lector = CreateObject( "MSCommLib.MSComm" )
    
Set Torreta=CreateObject( "MSCommLib.MSComm" )

'Antes del 
Sub Main 

Sub Main()         
    
'Me.WindowState = 2          

End Sub


La versión de MyBusinessPOS 2017 que descargué es la versión 2017 
del 16 de Noviembre...

Bueno revisen a ver si les funciona...

Espero les sirva... Saludos...