✒️ABAP POO La creación de un programa ABAP Orientado a Objetos
ABAP POO La creación de un programa ABAP Orientado a Objetos
Bueno, yo lo hice un poco distinto a lo indicado como solución.
Pero lo activé y funciona perfectamente. Cuando lo haces, te das cuenta de lo sencillo que resulta.
SPAN {
font-family: "Courier New";
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 ZCUENTA_KM_TAXI_RQ48L
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
REPORT ZCUENTA_KM_TAXI_RQ48L.
Class Taxi DEFINITION.
PUBLIC SECTION.
METHODS: KM_salida_fabrica, " Km iniciales por salida de Fábrica
KM_x_dia IMPORTING pKM Type I, " Incremento KM x dia
Obtener_KM RETURNING VALUE(pKM) Type I.
PRIVATE SECTION.
Data: KM_Taxi Type I,
KM_Iniciales Type I Value 5. " Lo defino en la clase, ya que no es algo variable para meterlo en el programa.
EndClass.
Class Taxi IMPLEMENTATION.
METHOD KM_Salida_Fabrica.
KM_TAXI = KM_Iniciales.
ENDMETHOD.
METHOD KM_X_DIA.
KM_TAXI = KM_TAXI pKM.
ENDMETHOD.
METHOD Obtener_KM.
pKM = KM_Taxi.
ENDMETHOD.
ENDCLASS.
Data:
nDias Type I,
nKM Type I,
oTaxi Type REF TO Taxi.
START-OF-SELECTION.
nKM = 0. " Inicializo KM
nDias = 30. " Dias que va a funcionar el Taxi. Lo defino como variable para jugar con los dias.
" Creo el Taxi
Create OBJECT oTaxi.
" Sale de Fabrica el Taxi
oTaxi->KM_Salida_Fabrica( ).
nKM = oTaxi->Obtener_KM( ).
Write: / 'Km.salida fábrica:',nKM,'Km'.
Do nDias Times. " Es variable la cantidad de dias...segun indique el programa.
oTaxi->KM_x_Dia( pKM = 100 ). " Indico que se hacen 100km x dia. Puede variae
EndDo.
nKM = oTaxi->Obtener_KM( ).
Write: / 'Km.Totales del Taxi luego de', nDias, 'dias:', nKM,'Km'.
 
 
 
Sobre el autor
Publicación académica de Alfredo C?sar, en su ámbito de estudios para el Máster ABAP POO.
Alfredo C?sar
Profesión: Analista de Sistemas - Argentina - Legajo: RQ48L
✒️Autor de: 33 Publicaciones Académicas
🎓Egresado de los módulos:
Certificación Académica de Alfredo C?sar