🚀PROMO #PLANCARRERA2024 - 🔥Bonificaciones, Precios Congelados y Cuotas

 X 

✒️ABAP POO La creación de un programa ABAP Orientado a Objetos

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.

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