Standardtexte in andere Sprachen kopieren

4. Dezember 2017 , Geschrieben von sapmandoo Veröffentlicht in #Basis-Entwicklung allg., #SAP Reports

Anbei ein kleines Hilfstool, mit dem Standardtexte (SO10) in anderen Sprachen angelegt werden können. Es versteht sich wohl von selbst, dass die Texte nur kopiert und nicht übersetzt werden. Das Verfahren eignet sich z.B. für die Vervielfältigung von Adress-Textbausteinen in andere Sprachen...

Beispiel: "Kopiere alle Texte ZADR*, Text-ID ADRS von DE nach IT"

* Standardtexte (SO10) von einer Sprache in eine
* andere kopieren (nur kopieren[!] nicht übersetzen[!])
* Wer möchte, kann natürlich gerne einen Übersetzungsroboter
* dazubauen!!!

REPORT yytxcopy
       NO STANDARD PAGE HEADING LINE-SIZE 255.
TABLES: rssce, stxh.
INCLUDE bdcrecx1.
SELECTION-SCREEN ULINE.
SELECT-OPTIONS: so_txnam FOR rssce-tdname OBLIGATORY.  "Text-name
PARAMETERS:     pa_tdid LIKE rssce-tdid OBLIGATORY, "Text-ID
                pa_slang LIKE sy-langu OBLIGATORY   "Source language
                         DEFAULT sy-langu,
                p_tlang  LIKE sy-langu OBLIGATORY.  "Target language


START-OF-SELECTION.

  PERFORM open_group.

  SELECT        * FROM  stxh
         WHERE  tdobject  = 'TEXT'
         AND    tdname   IN so_txnam
         AND    tdid      = pa_tdid
         AND    tdspras   = pa_slang.
    PERFORM so10.
  ENDSELECT.
  PERFORM close_group.

*&---------------------------------------------------------------------*
*&      Form  so10
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
FORM so10.
  PERFORM bdc_dynpro      USING 'SAPMSSCE' '1100'.
  PERFORM bdc_field       USING 'BDC_CURSOR'
                                'RSSCE-TDSPRAS'.
  PERFORM bdc_field       USING 'BDC_OKCODE'
                                '=EDIT'.
  PERFORM bdc_field       USING 'RSSCE-TDNAME'
                                stxh-tdname.
  PERFORM bdc_field       USING 'RSSCE-TDID'
                                stxh-tdid.
  PERFORM bdc_field       USING 'RSSCE-TDSPRAS'
                                stxh-tdspras.
  PERFORM bdc_dynpro      USING 'SAPLSTXX' '1100'.
  PERFORM bdc_field       USING 'BDC_CURSOR'
                                'RSTXT-TXLINE(02)'.
  PERFORM bdc_field       USING 'BDC_OKCODE'
                                '=TXNA'.
  PERFORM bdc_dynpro      USING 'SAPLSTXX' '1111'.
  PERFORM bdc_field       USING 'BDC_CURSOR'
                                'RSTXT-TDSPRAS'.
  PERFORM bdc_field       USING 'BDC_OKCODE'
                                '=PPUP'.
  PERFORM bdc_field       USING 'RSTXT-TDNAME'
                                stxh-tdname.
  PERFORM bdc_field       USING 'RSTXT-TDID'
                                stxh-tdid.
  PERFORM bdc_field       USING 'RSTXT-TDSPRAS'
                                p_tlang.
  PERFORM bdc_dynpro      USING 'SAPLSTXX' '1100'.
  PERFORM bdc_field       USING 'BDC_CURSOR'
                                'RSTXT-TXLINE(02)'.
  PERFORM bdc_field       USING 'BDC_OKCODE'
                                '=TXBA'.
  PERFORM bdc_dynpro      USING 'SAPMSSCE' '1100'.
  PERFORM bdc_field       USING 'BDC_CURSOR'
                                'RSSCE-TDNAME'.
  PERFORM bdc_dynpro      USING 'SAPMSSCE' '1100'.
  PERFORM bdc_field       USING 'BDC_CURSOR'
                                'RSSCE-TDSPRAS'.
  PERFORM bdc_field       USING 'BDC_OKCODE'
                                '=TXBA'.
  PERFORM bdc_field       USING 'RSSCE-TDNAME'
                                stxh-tdname.
  PERFORM bdc_field       USING 'RSSCE-TDID'
                                stxh-tdid.
  PERFORM bdc_field       USING 'RSSCE-TDSPRAS'
                                stxh-tdspras.
  PERFORM bdc_transaction USING 'SO10'.
  REFRESH bdcdata.
ENDFORM.                                                    "so10

Diesen Post teilen

Repost0