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

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


Sobre el autor

Publicación académica de Alfredo César, en su ámbito de estudios para el Máster ABAP POO.

SAP Senior

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

 

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

El lunes 30 Noviembre 2020 comenzamos el 🎓Máster Funcional ABAP.
Juntos para realizar sus más grandes desafíos!

 Cargando presentación, aguarde unos instantes...

📗 EBOOKS FREE:

Si le interesa la Tecnología SAP, pase por nuestra sección Ebooks Free y descargue uno de los 10 Ebooks libres y gratuitos que hemos desarrollado para compartir juntos.

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

Buscador de Publicaciones:


 

🌈Recursos Free

Los mejores recursos Libres y Gratuitos compartidos con la comunidad:

 

 

Consultas y Soporte

👋Hola! ¿Podemos ayudarle con su plan de estudios?

Estamos listos para darle el soporte que su carrera merece mediante un asesoramiento especializado.

Acceda sección contacto y seleccione canal de comunicación más cómodo para usted.

🤝Aguardamos su contacto, Éxitos!