Code: Alles auswählen.
DATA: ls_loan TYPE bapiloan_create,
ls_conditionheader TYPE bapicondhead_create,
lt_partner TYPE TABLE OF bapirel_bpobj,
lt_conditions TYPE TABLE OF bapicondition_create,
lt_return TYPE TABLE OF bapiret2,
ls_user TYPE BAPILOAN_USERFIELDS.
DATA: ls_partner LIKE LINE OF lt_partner,
ls_condition LIKE LINE OF lt_conditions.
DATA: ls_loannumber LIKE bapiloan_get-contract_no.
"APPEND ls_condition TO lt_conditions.
"RANLSTAMNR / master_no
ls_loan-comp_code = '0020'. "Buchungskreis
ls_loan-status = 10.
ls_loan-prod_type = 'HYP'. "Produktart HYP/HYM
ls_loan-currency = 'EUR'.
ls_loan-currency_iso = 'EUR'.
"ls_loan-FIN_PROJ = 1000000113.
"ls_loan-contract_no = 100000011301. "Externe Nummernvergabe?
ls_conditionheader-condition_valid_from = sy-datum.
ls_conditionheader-comm_cap = '0.01'.
ls_conditionheader-currency = 'EUR'.
ls_conditionheader-currency_iso = 'EUR'.
ls_partner-partner = 1000030986.
"ls_partner-comp_code = '0020'.
ls_partner-role_type = 'TR0100'. "
ls_partner-role_sbtyp = 'DN1'. "
ls_partner-object_no = 1000000113.
APPEND ls_partner TO lt_partner.
CALL FUNCTION 'BAPI_LOAN_CONTRACT_CREATE'
EXPORTING
loan = ls_loan " Anlage Darlehensvertragsdaten
conditionheader = ls_conditionheader " Anlage Konditionskopfdaten
* correspondence = " Anlage Korrespondenzdaten
userfields = ls_user " Benutzerfelder
testrun = abap_false " Umschalten auf Simulations-Modus bei schreibenden BAPIs
* refresh = SPACE " Auffrischen d. globalen Einstellungen bei schreibenden BAPIs
* processextension = SPACE " Kundenerweiterungen ausführen
* steering = " Steuerparameter der Bapi Vertragsanlage
* avoid_inner_join = SPACE " Steuerparameter der Bapi Vertragsanlage
* calln_appln = 'INT' " Calling Application
* link_dd2sf = " Calling Application
IMPORTING
loannumber = ls_loannumber " Vertragsnummer
* error = " Fehlerkennzeichen bei BAPIs
TABLES
partner = lt_partner " Zuordnung Partner zum Vertrag
conditions = lt_conditions " Anlage Konditionspositionen
* formula = " Anlage Konditionendetails
* objects = " Anlage Objektbeziehungsdaten
* collaterals = " Anlage Sicherheitenbeziehungsdaten
* encumbrances = " Darlehen: Grundpfandrecht - Anlegen
* clerks = " Anlage Sachbearbeiterbeziehungsdaten
* extension_in = " Bezugsstruktur für BAPI-Parameter ExtensionIn / ExtensionOut
return = lt_return " Rückmeldungen der Ergebnisse
* subfacility = " Rückmeldungen der Ergebnisse
* subfacs_return = " Rückmeldungen der Ergebnisse
.
WRITE sy-subrc.
WRITE ls_loannumber.
EXIT.