descuentoVisitor

' 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