
✒️ABAP POO - Polimorfismo
ABAP POO Polimorfismo
Del ejercicio de la lección anterior lo modifiqué asi...(puse en negrita)
Y eliminé el metodo de obtener KM que habia hecho.
SPAN {
font-family: "Courier New";
font-size: 10pt;
color: #000000;
background: #FFFFFF;
}
.L0S31 {
font-style: italic;
color: #808080;
}
.L0S32 {
color: #3399FF;
}
.L0S33 {
color: #4DA619;
}
.L0S52 {
color: #0000FF;
}
.L0S55 {
color: #800080;
}
.L0S70 {
color: #808080;
}
REPORT ZPRUEBA_HERENCIA_RQ48L.
INCLUDE z_class_vehiculo.
CLASS Camion DEFINITION INHERITING FROM Vehiculo.
PUBLIC SECTION.
DATA: Km_Camion Type I.
METHODS: incrementar_km REDEFINITION.
ENDCLASS.
CLASS Camion IMPLEMENTATION.
METHOD incrementar_km.
super->incrementar_KM( ).
Write: / 'KM Clase Vehiculo' , KM.
KM_CAMION = KM 100.
Write: / 'KM Camión' , KM_CAMION.
ENDMETHOD.
ENDCLASS.
Data:
oCamion Type REF TO Camion,
KM_Inic Type I Value 5.
START-OF-SELECTION.
CREATE OBJECT oCamion.
" Indico Modelo
oCamion->asignar_tipo( a_marca = 'Mercedes Benz'
a_modelo = '1114' ).
" Km Iniciales
oCamion->asignar_km_iniciales( pKM = KM_Inic ).
Do 20 times.
oCamion->incrementar_km( ).
Enddo.