mirror of
https://github.com/abapGit/abapGit.git
synced 2025-05-01 12:20:51 +08:00
46 lines
1.6 KiB
ABAP
46 lines
1.6 KiB
ABAP
*&---------------------------------------------------------------------*
|
|
*& Include ZABAPGIT_APP
|
|
*&---------------------------------------------------------------------*
|
|
|
|
CLASS lcl_gui DEFINITION DEFERRED.
|
|
CLASS lcl_persistence_user DEFINITION DEFERRED.
|
|
CLASS lcl_repo_srv DEFINITION DEFERRED.
|
|
CLASS lcl_persistence_db DEFINITION DEFERRED.
|
|
CLASS lcl_persistence_settings DEFINITION DEFERRED.
|
|
|
|
*----------------------------------------------------------------------*
|
|
* CLASS lcl_app DEFINITION
|
|
*----------------------------------------------------------------------*
|
|
CLASS lcl_app DEFINITION FINAL.
|
|
PUBLIC SECTION.
|
|
|
|
CLASS-METHODS run
|
|
RAISING lcx_exception.
|
|
|
|
CLASS-METHODS gui
|
|
RETURNING VALUE(ro_gui) TYPE REF TO lcl_gui
|
|
RAISING lcx_exception.
|
|
|
|
CLASS-METHODS user
|
|
IMPORTING iv_user TYPE xubname DEFAULT sy-uname
|
|
RETURNING VALUE(ro_user) TYPE REF TO lcl_persistence_user
|
|
RAISING lcx_exception.
|
|
|
|
CLASS-METHODS repo_srv
|
|
RETURNING VALUE(ro_repo_srv) TYPE REF TO lcl_repo_srv.
|
|
|
|
CLASS-METHODS db
|
|
RETURNING VALUE(ro_db) TYPE REF TO lcl_persistence_db.
|
|
|
|
CLASS-METHODS settings
|
|
RETURNING VALUE(ro_settings) TYPE REF TO lcl_persistence_settings.
|
|
|
|
PRIVATE SECTION.
|
|
CLASS-DATA: go_gui TYPE REF TO lcl_gui,
|
|
go_current_user TYPE REF TO lcl_persistence_user,
|
|
go_db TYPE REF TO lcl_persistence_db,
|
|
go_repo_srv TYPE REF TO lcl_repo_srv,
|
|
go_settings TYPE REF TO lcl_persistence_settings.
|
|
|
|
ENDCLASS. "lcl_app
|