✒️ABAP POO Video - Creación de un programa ABAP Orientado a Objetos

Publicación Académica por Alfredo César

Publicación Académica creada y compartida por Alfredo César para el tema Video - Creación de un programa ABAP Orientado a Objetos.

Dentro del ámbito de estudios: Máster ABAP POO / Unidad 1: Introducción a la Programación Orientada a Objetos en ABAP.

¿Buscás una carrera con Futuro?

ABAP POO Video - Creación de un programa ABAP Orientado a Objetos por Alfredo César

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"; 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 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'.

 

:: Al igual que Alfredo ¿Usted está dispuesto a aprender Funcional ABAP?

El lunes 01 Julio 2019 comenzamos el 🎓Máster Funcional ABAP.
Juntos para realizar sus más grandes desafíos!

 Cargando presentación, aguarde unos instantes...

✒️Más Publicaciones Académicas sobre Tecnología SAP

Buscador de Publicaciones:


 

Recursos Free:

Los mejores recursos Libres y Gratuitos compartidos con la comunidad: