ESTATUS Quita estatus de cancelado

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

    Ambiente.Connection.Execute "UPDATE ventas SET estado = 'CO'"

End Sub