36 lines
1.2 KiB
ABAP
36 lines
1.2 KiB
ABAP
INTERFACE {{p}}if_tenancy_check PUBLIC.
|
|
TYPES ty_reason TYPE c LENGTH 10.
|
|
TYPES ty_employment TYPE c LENGTH 1.
|
|
TYPES ty_amount TYPE p LENGTH 8 DECIMALS 2.
|
|
|
|
CONSTANTS:
|
|
BEGIN OF c_employment,
|
|
permanent TYPE ty_employment VALUE 'P',
|
|
fixed TYPE ty_employment VALUE 'F',
|
|
self TYPE ty_employment VALUE 'S',
|
|
END OF c_employment,
|
|
BEGIN OF c_reason,
|
|
ok TYPE ty_reason VALUE 'OK',
|
|
rent TYPE ty_reason VALUE 'RENT',
|
|
income TYPE ty_reason VALUE 'INCOME',
|
|
persons TYPE ty_reason VALUE 'PERSONS',
|
|
capacity TYPE ty_reason VALUE 'CAPACITY',
|
|
employment TYPE ty_reason VALUE 'EMPLOYMENT',
|
|
ratio TYPE ty_reason VALUE 'RATIO',
|
|
END OF c_reason.
|
|
|
|
METHODS check
|
|
IMPORTING iv_rent TYPE ty_amount
|
|
iv_income TYPE ty_amount
|
|
iv_rooms TYPE i
|
|
iv_persons TYPE i
|
|
iv_employment TYPE ty_employment
|
|
iv_pets TYPE abap_bool
|
|
RETURNING VALUE(rv_reason) TYPE ty_reason.
|
|
|
|
METHODS deposit
|
|
IMPORTING iv_rent TYPE ty_amount
|
|
iv_pets TYPE abap_bool
|
|
RETURNING VALUE(rv_deposit) TYPE ty_amount.
|
|
ENDINTERFACE.
|