PUNTOV039 Al presionar CONTROL + F5 en el punto de venta

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

    cDato = TecladoVirtual( Ambiente, Trim( Ambiente.rstEstacion("leyendacomodin") ) )

    if clEmpty( (cDato) ) Then
       Exit Sub
    end if

    Set rstVenta = CreaRecordSet( "SELECT * FROM ventas WHERE comodin = '" & Trim( cDato ) & "'", Ambiente.Connection )

    if rstVenta.EOF Then
       MsgBox "No existe el dato buscado", vbInformation
       Exit Sub
    end if

    Set rstVenta = CreaRecordSet( "SELECT * FROM ventas WHERE comodin = '" & Trim( cDato ) & "' AND estado = 'PE'", Ambiente.Connection )

    if rstVenta.EOF Then
       MsgBox "Ya fue cobrado y cerrado: " & cDato, vbInformation
       Exit Sub       
    end if

    LlamaVenta rstVenta("venta")  

End Sub