Funktionsbaustein CRM_TEXT_MAINTAIN_OW ausführen


Moderatoren: Jan, Steff

Funktionsbaustein CRM_TEXT_MAINTAIN_OW ausführen

Beitragvon marcel_2 » 10.08.2009, 14:50

Hallo Experten,

ich versuche verzweifelt den Fkt-Baustein 'CRM_TEXT_MAINTAIN_OW' auszuführen da ich ein Testbericht abspeichern möchte hier mal mein Report zum testen des Fkt-Bausteins:

*&---------------------------------------------------------------------*
*& Report ZTEST_CRM_TEXT_MAINTAIN_OW
*&---------------------------------------------------------------------*

REPORT ZTEST_CRM_TEXT_MAINTAIN_OW.

DATA: lv_guid_ref TYPE crmt_object_guid,

l_table_it_text TYPE CRMT_TEXT_COMT,
l_wrk_it_text TYPE CRMT_TEXT_COM,

l_wrk_line TYPE TLINE,
l_wrk_text TYPE CRMT_TEXT_WRK,

lt_input_fields TYPE CRMT_INPUT_FIELD_NAMES_TAB,
lt_changed_objects_guid_tab TYPE crmt_object_guid_tab,
l_wrk_input_field TYPE CRMT_INPUT_FIELD_NAMES.


CLEAR l_wrk_line.

l_wrk_line-tdformat = '*'.
l_wrk_line-tdline = '~TEST OK~'.
APPEND l_wrk_line TO l_wrk_text-lines.

l_wrk_it_text-lines[] = l_wrk_text-lines[].


lv_guid_ref = '4A7B9459B27B2A4AE1000000AC116637'.


l_wrk_it_text-ref_guid = '4A7B9459B27B2A4AE1000000AC116637'.
l_wrk_it_text-ref_kind = 'A'.
"l_wrk_it_text-text_object = ''.
l_wrk_it_text-tdid = 'CD01'.
l_wrk_it_text-tdspras = 'D'.
l_wrk_it_text-tdform = 'SYSTEM'.
l_wrk_it_text-tdtexttype = ''.
l_wrk_it_text-tdstyle = 'SYSTEM'.

APPEND l_wrk_it_text to l_table_it_text.

l_wrk_input_field-fieldname = 'LINES'.
INSERT l_wrk_input_field INTO TABLE lt_input_fields.


CALL FUNCTION 'CRM_TEXT_MAINTAIN_OW'
EXPORTING
IT_TEXT = l_table_it_text
IV_OBJECT_GUID = lv_guid_ref
IV_OBJECT_KIND = 'A'
CHANGING
CT_INPUT_FIELD_NAMES = lt_input_fields
EXCEPTIONS
OBJECT_KIND_UNKNOWN = 1
READ_ERROR_OBJECT_BUFFER = 2
OTHERS = 3.
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.

INSERT lv_guid_ref INTO TABLE lt_changed_objects_guid_tab.

CALL FUNCTION 'CRM_ORDER_SAVE'
EXPORTING
IT_OBJECTS_TO_SAVE = lt_changed_objects_guid_tab
* IMPORTING
* ET_SAVED_OBJECTS =
* ET_EXCEPTION =
* ET_OBJECTS_NOT_SAVED =
* CHANGING
* CV_LOG_HANDLE =
EXCEPTIONS
DOCUMENT_NOT_SAVED = 1
OTHERS = 2.
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.

nur kann ich machen was ich möchte und er speichert den gewünschten Text aber nicht ab.
marcel_2
ForumUser
 
Beiträge: 3
Registriert: 10.08.2009, 14:42
Wohnort: Pfullendorf
Dank erhalten: 0 mal

Sponsor

Alte ABAP-Entwicklerweisheit: Weißt du weder aus noch ein, baust du einen BADI ein

Re: Funktionsbaustein CRM_TEXT_MAINTAIN_OW ausführen

Beitragvon marcel_2 » 11.08.2009, 08:55

Problem erledigt -> try this http://qiujl.spaces.live.com/blog/
marcel_2
ForumUser
 
Beiträge: 3
Registriert: 10.08.2009, 14:42
Wohnort: Pfullendorf
Dank erhalten: 0 mal


Zurück zu CRM (Customer Relationship Management)

  Aktuelle Beiträge   
gelöst SALV - Layout wird nicht gezogen
vor 6 Stunden von ralf.wenzel 0 Antw.
ADRMAS-Segmente vorbefüllen
vor 10 Stunden von lausek 0 Antw.
MS Word nicht als SAPscript-Editor verwenden
vor 11 Stunden von DeathAndPain 2 Antw.
EWM: HU mit RBG anhand von Produkt-LB bewegen
Gestern von TimTo 0 Antw.
BADI Impl. cin_plug_in_to_migo deaktivieren
Gestern von zzcpak 1 Antw.

  Ähnliche Beiträge beta
Keine Beiträge gefunden - versuche es mit der erweiterten Suche.

 

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder