\' Gambas class file
Inherits UsuarioVisitor
Private hdescuento As Integer
Public Sub visitOperadorDescuentoVisitor(op As Operador)
hdescuento = 30
End
Public Sub visitClienteDescuentoVisitor(cli As Cliente)
hdescuento = 10
End
Public Function getdescuento() As Integer
Return hdescuento
End