Speichern der einzelnen Mahnschreiben als PDF

Alles rund um die Sprache ABAP®: Funktionsbausteine, Listen, ALV
2 Beiträge • Seite 1 von 1
2 Beiträge Seite 1 von 1

Speichern der einzelnen Mahnschreiben als PDF

Beitrag von redistanbul (ForumUser / 7 / 0 / 0 ) »
Hallo allerseits,

wir setzen SAPScript Formulare für die Mahnung. Ich würde gerne die einzelnen Mahnschreiben beim drucken abgreifen und im Applicationserver als PDF speichern oder auf dem Frontend. Wo muss ich ansetzen. BTEs?

Danke für eine Antwort im Voraus

Redistanbul

gesponsert
Stellenangebote auf ABAPforum.com schalten
kostenfrei für Ausbildungsberufe und Werksstudenten


Re: Speichern der einzelnen Mahnschreiben als PDF

Beitrag von Tron (Top Expert / 1327 / 35 / 331 ) »
Moin,
Der Funktionbaustein für Mahnungen (Sapscript) heisst PRINT_DUNNING_NOTICE.
Meine Idee wäre es, mit impliziten Enhancements das Programm zu erweitern.
und zwar :
PRINZIP
Menü: Bearbeiten->Erweiterungsoptionen->Implizite Erw.Optionen einblenden.
Cursor auf die lange Linie setzen und das Icon mit der Spirale clicken.
Dann den markierten Teil Eintragen.

Code: Alles auswählen.


                |
                |
                |
                |
*&---------------------------------------------------------------------*
*&      Form  CLOSE_DUNNING_FORM
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM close_dunning_form USING  i_fsabe LIKE fsabe
                               i_finaa LIKE finaa
                               i_itcpp LIKE itcpp
                               i_itcpo LIKE itcpo
                               i_langu LIKE sy-langu
                               i_lang2 LIKE sy-langu
                               i_paymo LIKE paymo
                               i_archive_index LIKE toa_dara
                               i_archive_params LIKE arc_params.

*********************** Hier Enhancen mit *********************************
  CASE i_finaa-nacha.
    WHEN '1'.                          "Printer
*=== Absprung in Z-Include ===*
      PERFORM close_dunning_form_NEU(ZCLOSE_DUN)  USING i_itcpo i_paymo i_lang2.
    WHEN '2'.                                               "Fax
      PERFORM close_dunning_form_fax.
    WHEN 'I'.                          "Internet
      PERFORM close_dunning_form_net USING i_fsabe i_finaa i_itcpp
                                           i_itcpo i_langu
                                           i_archive_index
                                           i_archive_params.
    WHEN OTHERS.

    EXIT. "<=========  !!! wichtig

*********************** Enhancen ENDE *********************************

  CASE i_finaa-nacha.
    WHEN '1'.                          "Printer
      PERFORM close_dunning_form_print USING i_itcpo i_paymo i_lang2.
    WHEN '2'.                                               "Fax
      PERFORM close_dunning_form_fax.
    WHEN 'I'.                          "Internet
      PERFORM close_dunning_form_net USING i_fsabe i_finaa i_itcpp
                                           i_itcpo i_langu
                                           i_archive_index
                                           i_archive_params.
    WHEN OTHERS.
  ENDCASE.
ENDFORM.                               " CLOSE_DUNNING_FORM

*&---------------------------------------------------------------------*
*&      Form  CLOSE_DUNNING_FORM_PRINT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM close_dunning_form_print USING i_itcpo LIKE itcpo
                                    i_paymo LIKE paymo
                                    i_lang2 like sy-langu.
* declaration
  DATA: h_err LIKE sy-subrc.
  DATA t_fimsg LIKE fimsg OCCURS 0 WITH HEADER LINE.
  DATA h_line LIKE sy-tabix.

* end the dunning print form
  CALL FUNCTION 'END_FORM'
    EXCEPTIONS
      unopened = 1
      OTHERS   = 2.
  h_err = sy-subrc.

* print the payment form
  CALL FUNCTION 'PAYMENT_MEDIUM_PRINT'
    EXPORTING
      i_paymo = i_paymo
      i_itcpo = i_itcpo
            I_LANGUAGE = i_lang2
       TABLES
      t_fimsg = t_fimsg
    EXCEPTIONS
      OTHERS  = 0.
  DESCRIBE TABLE t_fimsg LINES h_line.
  IF h_line <> 0.
    LOOP AT t_fimsg.
      CALL FUNCTION 'FI_MESSAGE_COLLECT'
        EXPORTING
          i_fimsg       = t_fimsg
          i_xappn       = 'X'
        EXCEPTIONS
          msgid_missing = 1
          msgno_missing = 2
          msgty_missing = 3
          OTHERS        = 4.
    ENDLOOP.
    CLEAR t_fimsg[].
  ENDIF.


  IF h_err = 0.
    CALL FUNCTION 'CLOSE_FORM'
      EXCEPTIONS
        unopened = 1
        OTHERS   = 2.

    READ TABLE lsttab_paym WITH KEY t047e-listn.
    IF sy-subrc = 0.
      i_itcpo-tdnewid = space.
    ELSE.
      i_itcpo-tdnewid = 'X'.
      lsttab_paym-listn = t047e-listn.
      APPEND lsttab_paym.
    ENDIF.

    CALL FUNCTION 'PAYMENT_MEDIUM_PRINT'
      EXPORTING
        i_paymo = i_paymo
        i_itcpo = i_itcpo
              I_LANGUAGE = i_lang2
              i_xopen = 'X'
      EXCEPTIONS
        OTHERS  = 0.
    DESCRIBE TABLE t_fimsg LINES h_line.
    IF h_line <> 0.
      LOOP AT t_fimsg.
        CALL FUNCTION 'FI_MESSAGE_COLLECT'
          EXPORTING
            i_fimsg       = t_fimsg
            i_xappn       = 'X'
          EXCEPTIONS
            msgid_missing = 1
            msgno_missing = 2
            msgty_missing = 3
            OTHERS        = 4.
      ENDLOOP.
      CLEAR t_fimsg[].
    ENDIF.
  ENDIF.
ENDFORM.                               " CLOSE_DUNNING_FORM_PRINT
     |
     |
Der Z-Include ZCLOSE_DUN enthält 2 Formroutinen und zwar:
Die geänderte Formroutine CLOSE_DUNNING_FORM_PRINT, die nun vom Baustein Close_Form auch die Spool Nummer ermittelt.
Eine Formroutine die mittels Spoolnummer die OTF Daten aus den Spool liest und ein PDF draus erstellt und ablegt.

Sagt Dir das prinzipielle Vorgehen zu ?

lg Jens
Da Mahnläufe häufig im Hintergrund laufen, kann man die Idee mit Download auf Frontend wohl "beerdigen".
<:: XING-Gruppe Tricktresor::>
Die deutsche Rechtschreibung ist Freeware, du darfst sie kostenlos nutzen –
Aber sie ist nicht Open Source, d. h. du darfst sie nicht verändern oder in veränderter Form veröffentlichen.

Seite 1 von 1

Vergleichbare Themen

1
Antw.
1264
Views
3 Unterschiedliche Mahnschreiben an einem Debitor
von MRunte » 03.04.2006 16:45 • Verfasst in Financials
0
Antw.
2713
Views
URL zu einzelnen Portalseiten
von Ben » 30.06.2008 17:16 • Verfasst in Enterprise Portal
0
Antw.
1714
Views
Übersetzung von einzelnen Transaktionen
von heikinho » 18.03.2014 13:43 • Verfasst in Sonstige Module
4
Antw.
3407
Views
Einzelnen Tab-Reiter ausgrauen?
von MQ6 » 23.08.2007 09:49 • Verfasst in Dialogprogrammierung
5
Antw.
7236
Views
Transport von einzelnen Tabelleneinträgen
von Mr.Black » 03.04.2008 10:31 • Verfasst in Sonstige Module

Über diesen Beitrag


Unterstütze die Community und teile den Beitrag für mehr Leser und Austausch

Newsletter Anmeldung

Keine Beiträge verpassen! Wöchentlich versenden wir lesenwerte Beiträge aus unserer Community.
Die letzte Ausgabe findest du hier.
Details zum Versandverfahren und zu Ihren Widerrufsmöglichkeiten findest du in unserer Datenschutzerklärung.