Dear All,
Copy Include of RFFORI01 and create z like Below.
************************************************************************
* *
* Include RFFORI01, used in the payment print programs RFFOxxxz *
* with subroutines for printing checks *
* and subroutines for prenumbered checks (see below) *
* *
************************************************************************
*----------------------------------------------------------------------*
* FORM SCHECK *
*----------------------------------------------------------------------*
* Druck des Avises mit Allongeteil *
* (Beispiel Scheck) *
* Gerufen von END-OF-SELECTION (RFFOxxxz) *
*----------------------------------------------------------------------*
* prints a remittance advice with a check *
* called by END-OF-SELECTION (RFFOxxxz) *
*----------------------------------------------------------------------*
* keine USING-Parameter *
* no USING-parameters *
*----------------------------------------------------------------------*
FORM scheck.
* Tabellen für den Angabeteil von Auslandsschecks in Österreich
* Austria only
DATA:
BEGIN OF up_oenb_angaben OCCURS 5, "Angaben zur OeNB-Meldung
diekz LIKE regup-diekz, "Anmerkung: die betragshöchste
lzbkz LIKE regup-lzbkz, "Angabe wird auf den Angabenteil
summe(7) TYPE p, "übernommen
END OF up_oenb_angaben,
BEGIN OF up_oenb_kontowae OCCURS 5,"Kontowährung der Hausbankkonten
ubhkt LIKE reguh-ubhkt, "für die OeNB-Meldung
uwaer LIKE t012k-waers,
END OF up_oenb_kontowae.
DATA: document_output_info TYPE ssfcrespd,
gv_fm_name TYPE rs38l_fnam.
CONSTANTS c_formname TYPE tdsfname VALUE 'ZFI_SF_CHEQUE'.
*----------------------------------------------------------------------*
* Abarbeiten der extrahierten Daten *
* loop at extracted data *
*----------------------------------------------------------------------*
IF flg_sort NE 2.
SORT BY avis.
flg_sort = 2.
ENDIF.
hlp_ep_element = '525'.
LOOP.
*-- Neuer zahlender Buchungskreis --------------------------------------
*-- new paying company code --------------------------------------------
AT NEW reguh-zbukr.
PERFORM buchungskreis_daten_lesen.
ENDAT.
*-- Neuer Zahlweg ------------------------------------------------------
*-- new payment method -------------------------------------------------
AT NEW reguh-rzawe.
flg_probedruck = 0. "für diesen Zahlweg wurde noch
"kein Probedruck durchgeführt
"test print for this payment
"method not yet done
PERFORM zahlweg_daten_lesen.
* Spoolparameter zur Ausgabe des Schecks angeben
* specify spool parameters for check print
PERFORM fill_itcpo USING par_priz
t042z-zlstn
space "par_sofz via tab_ausgabe!
hlp_auth.
IF flg_schecknum NE 0.
itcpo-tddelete = 'X'. "delete after print
ENDIF.
EXPORT itcpo TO MEMORY ID 'RFFORI01_ITCPO'.
* CALL FUNCTION 'OPEN_FORM'
* EXPORTING
* archive_index = toa_dara
* archive_params = arc_params
* form = t042e-zforn
* device = 'PRINTER'
* language = t001-spras
* options = itcpo
* dialog = flg_dialog
* IMPORTING
* RESULT = itcpp
* EXCEPTIONS
* form = 1.
* IF sy-subrc EQ 1. "abend:
* IF sy-batch EQ space. "form is not active
* MESSAGE a069 WITH t042e-zforn.
* ELSE.
* MESSAGE s069 WITH t042e-zforn.
* MESSAGE s094.
* STOP.
* ENDIF.
* ENDIF.
* Formular auf Segmenttext (Global ®UP-SGTXT) untersuchen
* examine whether segment text is to be printed
* IF t042e-xavis NE space AND t042e-anzpo NE 99.
* flg_sgtxt = 0.
* CALL FUNCTION 'READ_FORM_LINES'
* EXPORTING
* element = hlp_ep_element
* TABLES
* lines = tab_element
* EXCEPTIONS
* element = 1.
* IF sy-subrc EQ 0.
* LOOP AT tab_element.
* IF tab_element-tdline CS 'REGUP-SGTXT'
* AND tab_element-tdformat NE '/*'.
* flg_sgtxt = 1. "Global für Segmenttext existiert
* EXIT. "global for segment text exists
* ENDIF.
* ENDLOOP.
* ENDIF.
* ENDIF.
* Scheck auf Währungsschlüssel (Global ®UD-WAERS&) und Maximal-
* betrag für die Umsetzung der Ziffern in Worten untersuchen
* currency code ®UD-WAERS& has to exist in window CHECK for
* foreign currency checks, compute maximal amount 'in words'
flg_fw_scheck = 0.
IF t042z-xeinz EQ space.
hlp_element = '545'.
ELSE.
hlp_element = '546'.
ENDIF.
* CALL FUNCTION 'READ_FORM_LINES'
* EXPORTING
* window = 'CHECK'
* element = hlp_element
* TABLES
* lines = tab_element
* EXCEPTIONS
* element = 2.
* CALL FUNCTION 'READ_FORM_LINES'
* EXPORTING
* window = 'CHECKSPL'
* element = hlp_element
* TABLES
* lines = tab_element2
* EXCEPTIONS
* element = 2.
* APPEND LINES OF tab_element2 TO tab_element.
*
* hlp_maxstellen = 0. "der Maximalbetrag wird nur
* hlp_maxbetrag = 10000000000000. "berechnet, wenn die Globals
"SPELL-DIGnn verwendet wurden
* IF sy-tabix NE 0. "max. amount only computed if
* LOOP AT tab_element. "globals SPELL-DIGnn are used
* IF tab_element-tdformat NE '/*'.
** Währungsschlüssel
** currency code
* IF tab_element-tdline CP '*REGU+-WAERS*'.
* flg_fw_scheck = 1.
* ENDIF.
** Maximal umsetzbare Stellen ermitteln
** find out maximal number of places which can be transformed
* WHILE tab_element-tdline CS '&SPELL-DIG'.
* SHIFT tab_element-tdline BY sy-fdpos PLACES.
* SHIFT tab_element-tdline BY 10 PLACES.
* IF tab_element-tdline(2) CO '0123456789'.
* IF hlp_maxstellen LT tab_element-tdline(2)."#EC PORTABLE
* hlp_maxstellen = tab_element-tdline(2).
* ENDIF.
* ENDIF.
* ENDWHILE.
* ENDIF.
* ENDLOOP.
** Maximalbetrag ermitteln
** compute maximal amount for transformation 'in words'
* IF hlp_maxstellen NE 0.
* hlp_maxbetrag = 1.
* DO hlp_maxstellen TIMES.
* hlp_maxbetrag = hlp_maxbetrag * 10.
* ENDDO.
* ENDIF.
* ENDIF.
* CALL FUNCTION 'CLOSE_FORM'.
ENDAT.
*-- Neue Hausbank ------------------------------------------------------
*-- new house bank -----------------------------------------------------
AT NEW reguh-ubnkl.
PERFORM hausbank_daten_lesen.
* Felder für Formularabschluß initialisieren
* initialize fields for summary
cnt_formulare = 0.
cnt_hinweise = 0.
sum_abschluss = 0.
flg_druckmodus = 0.
* Vornumerierte Schecks: erste Schecknummer ermitteln
* prenumbered checks: find out first check number
IF flg_schecknum NE 0.
PERFORM schecknummer_ermitteln USING 1.
ENDIF.
ENDAT.
*-- Neue Kontonummer bei der Hausbank ----------------------------------
*-- new account number with house bank ---------------------------------
AT NEW reguh-ubknt.
* Kontonummer ohne Aufbereitungszeichen für OCRA-Zeile speichern
* store numerical account number for code line
regud-obknt = reguh-ubknt.
ENDAT.
*-- Neue Empfängerbank -------------------------------------------------
*-- new bank of payee --------------------------------------------------
AT NEW reguh-zbnkl.
PERFORM empfbank_daten_lesen.
ENDAT.
*-- Neue Zahlungsbelegnummer -------------------------------------------
*-- new payment document number ----------------------------------------
AT NEW reguh-vblnr.
* Angabentabelle und Kontowährung für die OeNB-Meldung (Österreich)
* Austria only
IF t042e-xausl EQ 'X' AND "nur Auslandsscheck
hlp_laufk NE 'P'. "kein HR
REFRESH up_oenb_angaben.
CLEAR up_oenb_kontowae.
READ TABLE up_oenb_kontowae WITH KEY reguh-ubhkt.
IF sy-subrc NE 0.
PERFORM hausbank_konto_lesen.
up_oenb_kontowae-ubhkt = reguh-ubhkt.
PERFORM isocode_umsetzen
USING t012k-waers up_oenb_kontowae-uwaer.
APPEND up_oenb_kontowae.
ENDIF.
ENDIF.
* Lesen der Referenzangaben (Schweiz)
* Switzerland only
PERFORM hausbank_konto_lesen.
* Kein Druck falls Fremdwährung, aber kein Fremdwährungsscheck
* no print if foreign currency, but global ®UD-WAERS& is missing
flg_kein_druck = 0.
IF reguh-waers NE t001-waers AND flg_fw_scheck EQ 0.
err_fw_scheck-fname = t042e-zforn.
MOVE-CORRESPONDING reguh TO err_fw_scheck.
COLLECT err_fw_scheck.
flg_kein_druck = 1. "kein Druck möglich
ENDIF. "no print
IF flg_kein_druck EQ 0.
PERFORM zahlungs_daten_lesen.
* Tag der Zahlung in Worten (Spanien)
* day of payment in words (Spain)
CLEAR t015z.
SELECT SINGLE * FROM t015z
WHERE spras EQ hlp_sprache
AND einh EQ reguh-zaldt+6(1)
AND ziff EQ reguh-zaldt+7(1).
IF sy-subrc EQ 0.
regud-text2 = t015z-wort.
TRANSLATE regud-text2 TO LOWER CASE. "#EC TRANSLANG
TRANSLATE regud-text2 USING '; '.
ELSE.
CLEAR err_t015z.
err_t015z-spras = hlp_sprache.
err_t015z-einh = reguh-zaldt+6(1).
err_t015z-ziff = reguh-zaldt+7(1).
COLLECT err_t015z.
ENDIF.
* Elementname für die Einzelposteninformation ermitteln
* determine element name for item list
IF hlp_laufk EQ 'P' OR
hrxblnr-txtsl EQ 'HR' AND hrxblnr-txerg EQ 'GRN'.
hlp_ep_element = '525-HR'.
ELSE.
hlp_ep_element = '525'.
ENDIF.
* Name des Fensters mit dem Anschreiben zusammensetzen
* specify name of the window with the check text
hlp_element = '510-'.
hlp_element+4 = reguh-rzawe.
hlp_eletext = text_510.
REPLACE '&ZAHLWEG' WITH reguh-rzawe INTO hlp_eletext.
* Druckvorgaben modifizieren lassen
* modification of print parameters
IMPORT itcpo FROM MEMORY ID 'RFFORI01_ITCPO'.
PERFORM modify_itcpo.
* open form only at first time or when optical archiving is active
IF flg_druckmodus NE 1 OR itcpo-tdarmod NE '1'.
* Scheckformular öffnen
* open check form
IF cnt_formulare EQ 0.
itcpo-tdnewid = 'X'.
ELSE.
itcpo-tdnewid = space.
ENDIF.
IF par_priz EQ space.
flg_dialog = 'X'.
ELSE.
flg_dialog = space.
ENDIF.
* close last form
IF flg_druckmodus NE 0.
* CALL FUNCTION 'CLOSE_FORM'
* IMPORTING
* RESULT = itcpp.
IF itcpp-tdspoolid NE 0.
CLEAR tab_ausgabe.
tab_ausgabe-name = t042z-text1.
tab_ausgabe-dataset = itcpp-tddataset.
tab_ausgabe-spoolnr = itcpp-tdspoolid.
tab_ausgabe-immed = par_sofz.
COLLECT tab_ausgabe.
ENDIF.
ENDIF.
flg_druckmodus = itcpo-tdarmod.
* CALL FUNCTION 'OPEN_FORM'
* EXPORTING
* archive_index = toa_dara
* archive_params = arc_params
* form = t042e-zforn
* device = 'PRINTER'
* language = t001-spras
* options = itcpo
* dialog = flg_dialog
* IMPORTING
* RESULT = itcpp
* EXCEPTIONS
* form = 1.
* IF sy-subrc EQ 1. "abend:
* IF sy-batch EQ space. "form is not active
* MESSAGE a069 WITH t042e-zforn.
* ELSE.
* MESSAGE s069 WITH t042e-zforn.
* MESSAGE s094.
* STOP.
* ENDIF.
* ENDIF.
par_priz = itcpp-tddest.
PERFORM fill_itcpo_from_itcpp.
EXPORT itcpo TO MEMORY ID 'RFFORI01_ITCPO'.
ENDIF. "flg_druckmodus NE 1 OR itcpo-tdarmod NE '1'
* Probedruck
* test print
IF flg_probedruck EQ 0. "Probedruck noch nicht erledigt
PERFORM daten_sichern. "test print not yet done
IF flg_schecknum EQ 2.
regud-chect = xxx_regud-chect.
regud-checf = xxx_regud-checf.
ENDIF.
cnt_seiten = 0.
DO par_anzp TIMES.
* Vornumerierte Schecks: Schecknummer hochzählen ab 2.Seite
* prenumbered checks: add 1 to check number
IF flg_schecknum EQ 1 AND sy-index GT 1.
hlp_page = sy-index.
PERFORM schecknummer_addieren.
ENDIF.
* Probedruck-Formular starten
* start test print form
* CALL FUNCTION 'START_FORM'
* EXPORTING
* language = hlp_sprache.
* Fenster mit Probedruck schreiben
* write windows with test print
* CALL FUNCTION 'WRITE_FORM'
* EXPORTING
* window = 'INFO'
* element = '505'
* function = 'APPEND'
* EXCEPTIONS
* window = 1
* element = 2.
* Void
* CALL FUNCTION 'WRITE_FORM'
* EXPORTING
* window = 'CHECK'
* element = '540'
* EXCEPTIONS
* window = 1
* element = 2.
* Void
* CALL FUNCTION 'WRITE_FORM'
* EXPORTING
* element = hlp_element
* EXCEPTIONS
* window = 1
* element = 2.
* IF sy-subrc NE 0.
* CALL FUNCTION 'WRITE_FORM'
* EXPORTING
* element = '510'
* EXCEPTIONS
* window = 1
* element = 2.
* ENDIF.
* CALL FUNCTION 'WRITE_FORM'
* EXPORTING
* element = '514'
* EXCEPTIONS
* window = 1
* element = 2.
* CALL FUNCTION 'WRITE_FORM'
* EXPORTING
* element = '515'
* EXCEPTIONS
* window = 1
* element = 2.
* CALL FUNCTION 'WRITE_FORM'
* EXPORTING
* element = hlp_ep_element
* function = 'APPEND'
* EXCEPTIONS
* window = 1
* element = 2.
* CALL FUNCTION 'WRITE_FORM'
* EXPORTING
* element = '530'
* function = 'APPEND'
* EXCEPTIONS
* window = 1
* element = 2.
* CALL FUNCTION 'WRITE_FORM'
* EXPORTING
* window = 'TOTAL'
* element = '530'
* EXCEPTIONS
* window = 1
* element = 2.
* CALL FUNCTION 'WRITE_FORM'
* EXPORTING
* window = 'INFO'
* element = '505'
* function = 'DELETE'
* EXCEPTIONS
* window = 1
* element = 2.
** Probedruck-Formular beenden
** End test print
* CALL FUNCTION 'END_FORM'
* IMPORTING
* RESULT = itcpp.
IF itcpp-tdpages EQ 0. "Print via RDI
itcpp-tdpages = 1.
ENDIF.
ADD itcpp-tdpages TO cnt_seiten.
ENDDO.
IF flg_schecknum EQ 1 AND cnt_seiten GT 0.
PERFORM scheckinfo_speichern USING 1.
ENDIF.
PERFORM daten_zurueck.
flg_probedruck = 1. "Probedruck erledigt
ENDIF. "Test print done
PERFORM summenfelder_initialisieren.
* Prüfe, ob HR-Formular zu verwenden ist
* Check if HR-form is to be used
IF ( hlp_laufk EQ 'P' OR
hrxblnr-txtsl EQ 'HR' AND hrxblnr-txerg EQ 'GRN' )
AND hrxblnr-xhrfo NE space.
hlp_xhrfo = 'X'.
ELSE.
hlp_xhrfo = space.
ENDIF.
* Formular starten
* start check form
* CALL FUNCTION 'START_FORM'
* EXPORTING
* archive_index = toa_dara
* language = hlp_sprache.
* Vornumerierte Schecks: nächste Schecknummer ermitteln
* prenumbered checks: compute next check number
IF flg_schecknum NE 0.
PERFORM schecknummer_ermitteln USING 2.
ENDIF.
* Fenster Check, Element Entwerteter Scheck
* window check, element voided check
* CALL FUNCTION 'WRITE_FORM'
* EXPORTING
* window = 'CHECK'
* element = '540'
* EXCEPTIONS
* window = 1
* element = 2.
IF sy-subrc EQ 2.
err_element-fname = t042e-zforn.
err_element-fenst = 'CHECK'.
err_element-elemt = '540'.
err_element-text = text_540.
COLLECT err_element.
ENDIF.
IF hlp_xhrfo EQ space.
* Fenster Info, Element Unsere Nummer (falls diese gefüllt ist)
* window info, element our number (if filled)
IF reguh-eikto NE space.
* CALL FUNCTION 'WRITE_FORM'
* EXPORTING
* window = 'INFO'
* element = '505'
* function = 'APPEND'
* EXCEPTIONS
* window = 1
* element = 2.
* IF sy-subrc EQ 2.
* err_element-fname = t042e-zforn.
* err_element-fenst = 'INFO'.
* err_element-elemt = '505'.
* err_element-text = text_505.
* COLLECT err_element.
* ENDIF.
ENDIF.
* Fenster Carry Forward, Element Übertrag (außer letzte Seite)
* window carryfwd, element carry forward below (not last page)
* CALL FUNCTION 'WRITE_FORM'
* EXPORTING
* window = 'CARRYFWD'
* element = '535'
* EXCEPTIONS
* window = 1
* element = 2.
* IF sy-subrc EQ 2.
* err_element-fname = t042e-zforn.
* err_element-fenst = 'CARRYFWD'.
* err_element-elemt = '535'.
* err_element-text = text_535.
* COLLECT err_element.
* ENDIF.
* Hauptfenster, Element Anschreiben (nur auf der ersten Seite)
* main window, element check text (only on first page)
* CALL FUNCTION 'WRITE_FORM'
* EXPORTING
* element = hlp_element
* EXCEPTIONS
* window = 1
* element = 2.
* IF sy-subrc EQ 2.
* CALL FUNCTION 'WRITE_FORM'
* EXPORTING
* element = '510'
* EXCEPTIONS
* window = 1
* element = 2.
* err_element-fname = t042e-zforn.
* err_element-fenst = 'MAIN'.
* err_element-elemt = hlp_element.
* err_element-text = hlp_eletext.
* COLLECT err_element.
* ENDIF.
* Hauptfenster, Element Zahlung erfolgt im Auftrag von
* main window, element payment by order of
IF reguh-absbu NE reguh-zbukr.
* CALL FUNCTION 'WRITE_FORM'
* EXPORTING
* element = '513'
* EXCEPTIONS
* window = 1
* element = 2.
* IF sy-subrc EQ 2.
* err_element-fname = t042e-zforn.
* err_element-fenst = 'MAIN'.
* err_element-elemt = '513'.
* err_element-text = text_513.
* COLLECT err_element.
* ENDIF.
ENDIF.
* Hauptfenster, Element Abweichender Zahlungsemfänger
* main window, element different payee
IF regud-xabwz EQ 'X'.
* CALL FUNCTION 'WRITE_FORM'
* EXPORTING
* element = '512'
* EXCEPTIONS
* window = 1
* element = 2.
* IF sy-subrc EQ 2.
* err_element-fname = t042e-zforn.
* err_element-fenst = 'MAIN'.
* err_element-elemt = '512'.
* err_element-text = text_512.
* COLLECT err_element.
* ENDIF.
ENDIF.
* Hauptfenster, Element Gruß und Unterschrift
* main window, element regards and signature
* CALL FUNCTION 'WRITE_FORM'
* EXPORTING
* element = '514'
* EXCEPTIONS
* window = 1
* element = 2.
*
** Hauptfenster, Element Überschrift (nur auf der ersten Seite)
** main window, element title (only on first page)
* CALL FUNCTION 'WRITE_FORM'
* EXPORTING
* element = '515'
* EXCEPTIONS
* window = 1
* element = 2.
* IF sy-subrc EQ 2.
* err_element-fname = t042e-zforn.
* err_element-fenst = 'MAIN'.
* err_element-elemt = '515'.
* err_element-text = text_515.
* COLLECT err_element.
* ENDIF.
* Hauptfenster, Element Überschrift (ab der zweiten Seite oben)
* main window, element title (2nd and following pages)
* CALL FUNCTION 'WRITE_FORM'
* EXPORTING
* element = '515'
* type = 'TOP'
* EXCEPTIONS
* window = 1 "Fehler bereits oben gemerkt
* element = 2. "error already noted
*
** Hauptfenster, Element Übertrag (ab der zweiten Seite oben)
** main window, element carry forward above (2nd and following p)
* CALL FUNCTION 'WRITE_FORM'
* EXPORTING
* element = '520'
* type = 'TOP'
* function = 'APPEND'
* EXCEPTIONS
* window = 1
* element = 2.
* IF sy-subrc EQ 2.
* err_element-fname = t042e-zforn.
* err_element-fenst = 'MAIN'.
* err_element-elemt = '520'.
* err_element-text = text_520.
* COLLECT err_element.
* ENDIF.
ELSE.
PERFORM hr_formular_lesen.
ENDIF.
* Prüfung, ob Avishinweis erforderlich
* check if advice note is necessary
cnt_zeilen = 0.
IF t042e-xavis NE space AND t042e-anzpo NE 99.
IF hlp_xhrfo EQ space.
IF flg_sgtxt = 1.
cnt_zeilen = reguh-rpost + reguh-rtext.
ELSE.
cnt_zeilen = reguh-rpost.
ENDIF.
ELSE.
DESCRIBE TABLE pform LINES cnt_zeilen.
ENDIF.
IF cnt_zeilen GT t042e-anzpo.
IF hlp_xhrfo EQ space.
* CALL FUNCTION 'WRITE_FORM'
* EXPORTING
* element = '526'
* function = 'APPEND'
* EXCEPTIONS
* window = 1
* element = 2.
* IF sy-subrc EQ 2.
* err_element-fname = t042e-zforn.
* err_element-fenst = 'MAIN'.
* err_element-elemt = '526'.
* err_element-text = text_526.
* COLLECT err_element.
* ENDIF.
ENDIF.
ADD 1 TO cnt_hinweise.
ENDIF.
ENDIF.
* HR-Formular ausgeben
* write HR form
IF hlp_xhrfo NE space.
LOOP AT pform.
IF cnt_zeilen GT t042e-anzpo AND sy-tabix GT t042e-anzpo.
EXIT.
ENDIF.
regud-txthr = pform-linda.
PERFORM scheckavis_zeile.
ENDLOOP.
ENDIF.
flg_diff_bukrs = 0.
ENDIF.
ENDAT.
*-- Neuer Rechnungsbuchungskreis ---------------------------------------
*-- New invoice company code -------------------------------------------
AT NEW regup-bukrs.
IF cnt_zeilen LE t042e-anzpo AND hlp_xhrfo EQ space.
IF ( regup-bukrs NE reguh-zbukr OR flg_diff_bukrs EQ 1 ) AND
( reguh-absbu EQ space OR reguh-absbu EQ reguh-zbukr ).
flg_diff_bukrs = 1.
SELECT SINGLE * FROM t001 INTO *t001
WHERE bukrs EQ regup-bukrs.
regud-abstx = *t001-butxt.
regud-absor = *t001-ort01.
* CALL FUNCTION 'WRITE_FORM'
* EXPORTING
* element = '513'
* EXCEPTIONS
* window = 1
* element = 2.
* IF sy-subrc EQ 2.
* err_element-fname = t042e-zforn.
* err_element-fenst = 'MAIN'.
* err_element-elemt = '513'.
* err_element-text = text_513.
* COLLECT err_element.
* ENDIF.
ENDIF.
ENDIF.
ENDAT.
*-- Verarbeitung der Einzelposten-Informationen ------------------------
*-- single item information --------------------------------------------
AT daten.
IF flg_kein_druck EQ 0.
PERFORM einzelpostenfelder_fuellen.
* Ausgabe der Einzelposten, falls kein Avishinweis erforderl. war
* single item information if no advice note
IF cnt_zeilen LE t042e-anzpo AND hlp_xhrfo EQ space.
regud-txthr = regup-sgtxt.
PERFORM scheckavis_zeile.
ENDIF.
PERFORM summenfelder_fuellen.
IF cnt_zeilen LE t042e-anzpo AND hlp_xhrfo EQ space.
* CALL FUNCTION 'WRITE_FORM'
* EXPORTING
* element = '525-TX'
* function = 'APPEND'
* EXCEPTIONS
* window = 1
* element = 2.
ENDIF.
ENDIF.
* Angabentabelle für die OeNB-Meldung (Österreich)
IF t042e-xausl = 'X'. "nur Auslandsscheck
CLEAR up_oenb_angaben.
up_oenb_angaben-diekz = regup-diekz.
up_oenb_angaben-lzbkz = regup-lzbkz.
up_oenb_angaben-summe = regud-netto.
COLLECT up_oenb_angaben.
ENDIF.
ENDAT.
*-- Ende der Zahlungsbelegnummer ---------------------------------------
*-- end of payment document number -------------------------------------
AT END OF reguh-vblnr.
IF flg_kein_druck EQ 0.
* Zahlbetrag ohne Aufbereitungszeichen für Codierzeile speichern
* store numerical payment amount for code line
IF reguh-waers EQ t001-waers.
regud-socra = regud-swnes.
ELSE.
regud-socra = 0.
PERFORM laender_lesen USING t001-land1.
IF t005-intca EQ 'DE'.
PERFORM isocode_umsetzen USING reguh-waers hlp_waers.
IF hlp_waers EQ 'DEM' OR hlp_waers EQ 'EUR'.
regud-socra = regud-swnes.
ENDIF.
ENDIF.
IF t005-intca EQ 'AT'.
PERFORM isocode_umsetzen USING reguh-waers hlp_waers.
IF hlp_waers EQ 'ATS' OR hlp_waers EQ 'EUR'.
regud-socra = regud-swnes.
ENDIF.
ENDIF.
ENDIF.
IF reguh-waers EQ t012k-waers.
regud-socrb = regud-swnes.
ELSE.
regud-socrb = 0.
ENDIF.
PERFORM ziffern_in_worten.
* Summenfelder hochzählen und aufbereiten
* add up total amount fields
ADD 1 TO cnt_formulare.
ADD reguh-rbetr TO sum_abschluss.
WRITE:
cnt_hinweise TO regud-avish,
cnt_formulare TO regud-zahlt,
sum_abschluss TO regud-summe CURRENCY t001-waers.
TRANSLATE:
regud-avish USING ' *',
regud-zahlt USING ' *',
regud-summe USING ' *'.
IF hlp_xhrfo EQ space.
* Nur für Brasilien (Check auf Land liegt in Funktionsbaustein)
* Only Brazil (Check on country within the function module)
CALL FUNCTION 'BOLETO_DATA'
EXPORTING
line_reguh = reguh
TABLES
itab_regup = tab_regup
CHANGING
line_regud = regud.
CALL FUNCTION 'KOREA_DATA'
EXPORTING
line_reguh = reguh
TABLES
itab_regup = tab_regup
CHANGING
line_regud = regud.
* Hauptfenster, Element Gesamtsumme (nur auf der letzten Seite)
* main window, element total (only last page)
* CALL FUNCTION 'WRITE_FORM'
* EXPORTING
* element = '530'
* function = 'APPEND'
* EXCEPTIONS
* window = 1
* element = 2.
* IF sy-subrc EQ 2.
* err_element-fname = t042e-zforn.
* err_element-fenst = 'MAIN'.
* err_element-elemt = '530'.
* err_element-text = text_530.
* COLLECT err_element.
* ENDIF.
* Vornumerierte Schecks: Schecknummer hochzählen ab 2.Seite
* prenumbered checks: add 1 to check number
IF flg_schecknum EQ 1.
CALL FUNCTION 'GET_TEXTSYMBOL'
EXPORTING
line = '&PAGE&'
start_offset = 0
IMPORTING
value = hlp_page.
IF hlp_page NE hlp_seite.
hlp_seite = hlp_page.
PERFORM schecknummer_addieren.
ENDIF.
ENDIF.
* Alternativ: Fenster Total, Element Gesamtsumme
* alternatively: window total, element total
* CALL FUNCTION 'WRITE_FORM'
* EXPORTING
* window = 'TOTAL'
* element = '530'
* EXCEPTIONS
* window = 1
* element = 2.
* IF sy-subrc EQ 2 AND
* ( err_element-fname NE t042e-zforn
* OR err_element-fenst NE 'MAIN'
* OR err_element-elemt NE '530' ).
* err_element-fname = t042e-zforn.
* err_element-fenst = 'TOTAL'.
* err_element-elemt = '530'.
* err_element-text = text_530.
* COLLECT err_element.
* ENDIF.
* Fenster Carry Forward, Element Übertrag löschen
* window carryfwd, delete element carry forward below
* CALL FUNCTION 'WRITE_FORM'
* EXPORTING
* window = 'CARRYFWD'
* element = '535'
* function = 'DELETE'
* EXCEPTIONS
* window = 1 "Fehler bereits oben gemerkt
* element = 2. "error already noted
*
** Hauptfenster, Element Überschrift löschen
** main window, delete element title
* CALL FUNCTION 'WRITE_FORM'
* EXPORTING
* element = '515'
* type = 'TOP'
* function = 'DELETE'
* EXCEPTIONS
* window = 1 "Fehler bereits oben gemerkt
* element = 2. "error already noted
*
** Hauptfenster, Element Übertrag löschen
** main window, delete element carry forward above
* CALL FUNCTION 'WRITE_FORM'
* EXPORTING
* element = '520'
* type = 'TOP'
* function = 'DELETE'
* EXCEPTIONS
* window = 1 "Fehler bereits oben gemerkt
* element = 2. "error already noted
ENDIF.
* Fenster Check, Element Entwerteter Scheck löschen
* window check, delete element voided check
IF reguh-rwbtr NE 0. "zero net check has to be voided
* CALL FUNCTION 'WRITE_FORM'
* EXPORTING
* window = 'CHECK'
* element = '540'
* function = 'DELETE'
* EXCEPTIONS
* window = 1 "Fehler bereits oben gemerkt
* element = 2. "error already noted
*
* Fenster Check, Element Echter Scheck (nur auf letzte Seite)
* window check, element genuine check (only last page)
IF t042z-xeinz EQ space.
* CALL FUNCTION 'WRITE_FORM'
* EXPORTING
* window = 'CHECKSPL'
* element = '545'
* EXCEPTIONS
* window = 1
* element = 2.
* CALL FUNCTION 'WRITE_FORM'
* EXPORTING
* window = 'CHECK'
* element = '545'
* EXCEPTIONS
* window = 1
* element = 2.
* IF sy-subrc EQ 2.
* err_element-fname = t042e-zforn.
* err_element-fenst = 'CHECK'.
* err_element-elemt = '545'.
* err_element-text = text_545.
* COLLECT err_element.
* ENDIF.
DATA: alt_form.
IF par_zfor IS NOT INITIAL.
alt_form = 'X'.
ENDIF.
CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'
EXPORTING
formname = c_formname
IMPORTING
fm_name = gv_fm_name.
CALL FUNCTION gv_fm_name
EXPORTING
reguh = reguh
regud = regud
gv_flag = alt_form " Alternative form to print check without payee
IMPORTING
document_output_info = document_output_info.
itcpp-tdpages = document_output_info-tdfpages.
ELSE. "debitorische Wechsel Frankreich
* CALL FUNCTION 'WRITE_FORM' "bills of exchange to debitors
* EXPORTING "(France)
* window = 'CHECKSPL'
* element = '546'
* EXCEPTIONS
* window = 1
* element = 2.
* CALL FUNCTION 'WRITE_FORM'
* EXPORTING
* window = 'CHECK'
* element = '546'
* EXCEPTIONS
* window = 1
* element = 2.
* IF sy-subrc EQ 2.
* err_element-fname = t042e-zforn.
* err_element-fenst = 'CHECK'.
* err_element-elemt = '546'.
* err_element-text = text_546.
* COLLECT err_element.
* ENDIF.
ENDIF.
ENDIF.
* Angabenteil für die OeNB-Meldung (Österreich)
* Austria only
IF t042e-xausl NE space "Auslandsscheck, nicht Pfändung
AND NOT ( hrxblnr-txtsl EQ 'HR' AND hrxblnr-txerg EQ 'GRN' ).
CLEAR:
regud-x08, regud-x10, regud-x11, regud-x12, regud-x13,
regud-text1, regud-zwck1, regud-zwck2.
IF up_oenb_kontowae-uwaer EQ 'ATS'.
regud-x08 = 'X'.
ELSE.
regud-text1 = up_oenb_kontowae-uwaer.
ENDIF.
SORT up_oenb_angaben BY summe DESCENDING.
READ TABLE up_oenb_angaben INDEX 1.
CASE up_oenb_angaben-diekz.
WHEN space.
regud-x10 = 'X'.
WHEN 'I'.
regud-x10 = 'X'.
WHEN 'R'.
regud-x11 = 'X'.
WHEN 'K'.
regud-x12 = 'X'.
WHEN OTHERS.
regud-x13 = 'X'.
PERFORM read_scb_indicator USING up_oenb_angaben-lzbkz.
regud-zwck1 = t015l-zwck1.
regud-zwck2 = t015l-zwck2.
ENDCASE.
* CALL FUNCTION 'WRITE_FORM'
* EXPORTING
* window = 'ORDERS'
* element = '550'
* EXCEPTIONS
* window = 1
* element = 2.
ENDIF.
* Formular beenden
* End check form
* CALL FUNCTION 'END_FORM'
* IMPORTING
* RESULT = itcpp.
* IF itcpp-tdpages EQ 0. "Print via RDI
* itcpp-tdpages = 1.
* ENDIF.
IF flg_schecknum EQ 1.
cnt_seiten = itcpp-tdpages. "Für vornumerierte Schecks
ELSE. "For prenumbered checks
cnt_seiten = 1.
ENDIF.
IF flg_schecknum NE 0 AND cnt_seiten GT 0.
PERFORM scheckinfo_speichern USING 2.
ENDIF.
ENDIF.
ENDAT.
*-- Ende der Hausbank --------------------------------------------------
*-- end of house bank --------------------------------------------------
AT END OF reguh-ubnkl.
IF cnt_formulare NE 0. "Formularabschluß erforderlich
"summary necessary
* close last check
* CALL FUNCTION 'CLOSE_FORM'
* IMPORTING RESULT = itcpp.
*
* IF itcpp-tdspoolid NE 0.
* CLEAR tab_ausgabe.
* tab_ausgabe-name = t042z-text1.
* tab_ausgabe-dataset = itcpp-tddataset.
* tab_ausgabe-spoolnr = itcpp-tdspoolid.
* tab_ausgabe-immed = par_sofz.
* COLLECT tab_ausgabe.
* ENDIF.
CLEAR flg_druckmodus.
IF hlp_laufk NE '*' "kein Onlinedruck
"no online check print
AND par_nosu EQ space. "Formularabschluß gewünscht
"summary requested
* Formular für den Abschluß starten
* start form for summary
SET COUNTRY space.
IMPORT itcpo FROM MEMORY ID 'RFFORI01_ITCPO'.
itcpo-tdnewid = space.
* CALL FUNCTION 'OPEN_FORM'
* EXPORTING
* form = t042e-zforn
* device = 'PRINTER'
* language = t001-spras
* options = itcpo
* dialog = space.
* CALL FUNCTION 'START_FORM'
* EXPORTING
* startpage = 'LAST'
* language = t001-spras.
* Vornumerierte Schecks: letzte Schecknummer ermitteln
* prenumbered checks: compute last check number
IF flg_schecknum EQ 1.
PERFORM schecknummer_ermitteln USING 3.
ENDIF.
* Ausgabe des Formularabschlusses
* print summary
* CALL FUNCTION 'WRITE_FORM'
* EXPORTING
* window = 'SUMMARY'
* EXCEPTIONS
* window = 1.
* IF sy-subrc EQ 1.
* err_element-fname = t042e-zforn.
* err_element-fenst = 'SUMMARY'.
* err_element-elemt = space.
* err_element-text = space.
* COLLECT err_element.
* ENDIF.
* Fenster Scheck, Element Entwertet
* window check, element voided check
* CALL FUNCTION 'WRITE_FORM'
* EXPORTING
* window = 'CHECK'
* element = '540'
* EXCEPTIONS
* window = 1 "Fehler bereits oben gemerkt
* element = 2. "error already noted
* Formular für den Abschluß beenden
* end form for summary
* CALL FUNCTION 'END_FORM'
* IMPORTING
* RESULT = itcpp.
* IF itcpp-tdpages EQ 0. "Print via RDI
* itcpp-tdpages = 1.
* ENDIF.
cnt_seiten = itcpp-tdpages. "Für vornumerierte Schecks
"For prenumbered checks
IF flg_schecknum EQ 1 AND cnt_seiten GT 0.
PERFORM scheckinfo_speichern USING 3.
ENDIF.
* Abschluß des Formulars
* close form
* CALL FUNCTION 'CLOSE_FORM'
* IMPORTING
* RESULT = itcpp.
*
* IF itcpp-tdspoolid NE 0.
* CLEAR tab_ausgabe.
* tab_ausgabe-name = t042z-text1.
* tab_ausgabe-dataset = itcpp-tddataset.
* tab_ausgabe-spoolnr = itcpp-tdspoolid.
* tab_ausgabe-immed = par_sofz.
* COLLECT tab_ausgabe.
* ENDIF.
ENDIF.
IF NOT itcpp-tdspoolid IS INITIAL.
CALL FUNCTION 'RSPO_FINAL_SPOOLJOB'
EXPORTING
rqident = itcpp-tdspoolid
set = 'X'
force = 'X'
EXCEPTIONS
OTHERS = 4.
IF sy-subrc NE 0.
MOVE-CORRESPONDING syst TO fimsg.
PERFORM message USING fimsg-msgno.
ENDIF.
ENDIF.
ENDIF.
ENDAT.
ENDLOOP.
hlp_ep_element = '525'.
ENDFORM. "Scheck
************************************************************************
* *
* subroutines for prenumbered checks *
* *
* subroutine called by / in subroutine *
* ------------------------------------------------------------------- *
* SCHECKDATEN_EINGABE (check data input on screen) SELECTION-SCREEN *
* SCHECKDATEN_PRUEFEN (check data before start) START-OF-SELECTION *
* SCHECKINFO_PRUEFEN (test of check information) GET REGUH *
* SCHECKNUMMERN_SPERREN (enqueue check numbers) END-OF-SELECTION *
* SCHECKNUMMER_ERMITTELN (find out check number) SCHECK *
* SCHECKAVIS_ZEILE (one line on the check advice) SCHECK *
* SCHECKS_ADDIEREN (add 1 to check number) SCHECKAVIS_ZEILE,SCHECK *
* SCHECKS_UMNUMERIEREN (renumber checks) SCHECKNUMMER_ERMITTELN *
* SCHECKINFO_SPEICHERN (store check information) SCHECK *
* SCHECK_ENTWERTEN (void check in restart mode) SCHECKINFO_SPEICHERN *
* SCHECKNUMMERN_ENTSPERREN (dequeue check numbers) END-OF-SELECTION *
* SCHECKDRUCK_MAIL (send mail) SCHECKNUMMERN_SPERREN,SELECTION-SCREEN *
* *
************************************************************************
*----------------------------------------------------------------------*
* FORM SCHECKDATEN_EINGABE *
*----------------------------------------------------------------------*
* Prüfen der Eingabedaten auf dem Selektionsbild *
* Check the input data on the selection screen *
*----------------------------------------------------------------------*
* P_RCHK Restart-Schecknummer *
* P_STAP Stapel *
* P_INFO Info zum Stapel *
*----------------------------------------------------------------------*
FORM scheckdaten_eingabe USING p_rchk LIKE pcec-checl
p_stap LIKE pcec-stapl
p_info TYPE c.
DESCRIBE TABLE zw_zbukr LINES hlp_zeilen.
IF hlp_zeilen NE 1. "genau ein Buchungskreis
SET CURSOR FIELD 'ZW_ZBUKR-LOW'. "exactly one company code
MESSAGE e543(fs).
ELSE.
READ TABLE zw_zbukr INDEX 1.
IF zw_zbukr-option NE 'EQ' OR zw_zbukr-sign NE 'I'.
SET CURSOR FIELD 'ZW_ZBUKR-LOW'.
MESSAGE e543(fs).
ENDIF.
ENDIF.
"genau eine Hausbank
READ TABLE sel_hbki INDEX 1. "exactly one house bank
IF sy-subrc NE 0 OR sel_hbki-option NE 'EQ' OR sel_hbki-sign NE 'I'.
SET CURSOR FIELD 'SEL_HBKI-LOW'.
MESSAGE e544(fs).
ENDIF.
"genau eine Kontenverbindung
READ TABLE sel_hkti INDEX 1. "exactly one bank account
IF sy-subrc NE 0 OR sel_hkti-option NE 'EQ' OR sel_hkti-sign NE 'I'.
SET CURSOR FIELD 'SEL_HKTI-LOW'.
MESSAGE e545(fs).
ENDIF.
IF zw_xvorl EQ space. "Echtlauf
"production run
IF p_rchk NE space. "Restartfall
p_stap = 0. "restart mode
p_info = space.
SELECT * FROM payr "Restartnummer muß vorhanden sein
WHERE zbukr EQ zw_zbukr-low "und zum angegebenen Zahllauf
AND hbkid EQ sel_hbki-low "gehören
AND hktid EQ sel_hkti-low "restart number has to exist in
AND rzawe IN sel_zawe "PAYR and has to belong to this
AND chect GE p_rchk "payment run
AND checf EQ p_rchk. "#EC PORTABLE
ENDSELECT.
IF sy-subrc NE 0.
SET CURSOR FIELD 'PAR_RCHK'.
MESSAGE e562(fs).
ENDIF.
IF ( zw_laufd NE payr-laufd OR zw_laufi NE payr-laufi )
AND zw_laufi+5(1) NE '*'.
SET CURSOR FIELD 'PAR_RCHK'.
MESSAGE e563(fs).
ENDIF.
IF payr-checv NE space. "gab es beim Restartscheck einen
SELECT SINGLE * FROM payr "Seitenüberlauf?
WHERE zbukr EQ payr-zbukr "was there an overflow with the
AND hbkid EQ payr-hbkid "first restart check?
AND hktid EQ payr-hktid
AND rzawe EQ payr-rzawe
AND chect EQ payr-checv.
IF payr-voidr EQ 2.
p_rchk = payr-checf. "Parameter korrigieren
ENDIF. "correct parameter
ENDIF.
IF payr-voidr EQ 3. "Formularabschluß, also nichts
SET CURSOR FIELD 'PAR_RCHK'. "summary => nothing to be printed
MESSAGE e571(fs).
ENDIF.
ELSE. "neue Schecks
IF par_zdru NE space. "new checks
IF p_stap IS INITIAL.
p_info = space.
SET CURSOR FIELD 'PAR_STAP'.
IF zw_laufi+5(1) EQ '*'.
PERFORM scheckdruck_mail.
MESSAGE a577(fs) WITH '546' space.
ELSE.
MESSAGE e546(fs).
ENDIF. "Stapelnummer muß angegeben
ELSE. "werden, vorhanden sein und eine
CALL FUNCTION 'LOT_CHECK' "gültige letzte vergebene Nummer
EXPORTING "haben (ggf. in Folgestapel)
i_zbukr = zw_zbukr-low "lot number has to be filled, has
i_hbkid = sel_hbki-low "to exist and must have a valid
i_hktid = sel_hkti-low "last number, perhaps in next lot
i_stapl = p_stap
IMPORTING
e_stapl = p_stap
e_stapi = pcec-stapi
e_zwels = pcec-zwels
EXCEPTIONS
OTHERS = 4.
p_info = pcec-stapi.
IF sy-subrc NE 0.
p_info = space.
SET CURSOR FIELD 'PAR_STAP'.
IF zw_laufi+5(1) EQ '*'.
PERFORM scheckdruck_mail.
fimsg-msgno = sy-msgno.
fimsg-msgv1 = sy-msgv1.
MESSAGE a577(fs) WITH fimsg-msgno fimsg-msgv1.
ELSE.
MESSAGE ID sy-msgid TYPE 'E' NUMBER sy-msgno WITH sy-msgv1.
ENDIF.
ELSE.
IF pcec-zwels NE space.
SELECT SINGLE * FROM t001 WHERE bukrs EQ zw_zbukr-low.
SELECT * FROM t042z WHERE land1 EQ t001-land1
AND zlsch IN sel_zawe
AND progn EQ sy-repid.
IF pcec-zwels NA t042z-zlsch.
MESSAGE e665(fs) WITH t042z-zlsch p_stap pcec-zwels.
ENDIF.
ENDSELECT.
ENDIF.
p_info = pcec-stapi.
ENDIF.
ENDIF.
ELSE.
p_stap = 0.
p_info = space.
ENDIF.
ENDIF.
ELSE. "Vorschlagslauf
"proposal run
IF p_rchk NE space.
SET CURSOR FIELD 'ZW_XVORL'.
MESSAGE e561(fs). "kein Restart bei Vorschlagslauf
ENDIF. "no restart mode if proposal run
p_stap = 0.
p_info = space.
ENDIF.
ENDFORM. "Scheckdaten Eingabe
*----------------------------------------------------------------------*
* FORM SCHECKDATEN_PRUEFEN *
*----------------------------------------------------------------------*
* Prüfen der Eingabedaten vor der Datenselektion *
* Check the input data before the selection of data *
*----------------------------------------------------------------------*
* P_RCHK Restart-Schecknummer *
* P_STAP Stapel *
*----------------------------------------------------------------------*
FORM scheckdaten_pruefen USING p_rchk LIKE pcec-checl
p_stap LIKE pcec-stapl.
REFRESH tab_check.
flg_schecknum = 1.
flg_pruefung = 1. "Scheckinfo i.a. prüfen
"check check info (in general)
IF zw_xvorl EQ space AND par_zdru NE space. "Scheckdruck für Echtlauf
"check print for a productive run
IF p_rchk NE space. "Restartfall
flg_restart = 1. "restart mode
SELECT * FROM payr
WHERE zbukr EQ zw_zbukr-low
AND hbkid EQ sel_hbki-low
AND hktid EQ sel_hkti-low
AND rzawe IN sel_zawe
AND chect GE p_rchk
AND checf EQ p_rchk. "#EC PORTABLE
ENDSELECT.
CASE payr-voidr.
WHEN 0.
hlp_checf_restart = p_rchk.
WHEN 1. "vollständiger Restart
flg_restart = 2. "complete restart
CALL FUNCTION 'COMPARE_CHECK_NUMBERS'
EXPORTING
i_check1 = payr-checf
i_check2 = payr-chect
IMPORTING
e_distance = par_anzp.
ADD 1 TO par_anzp.
WHEN 2.
hlp_checf_restart = payr-checv.
ENDCASE.
tab_check-sign = 'I'.
tab_check-option = 'BT'.
CALL FUNCTION 'GET_CHECK_INTERVAL'
EXPORTING
i_zbukr = zw_zbukr-low
i_hbkid = sel_hbki-low
i_hktid = sel_hkti-low
i_check = p_rchk
IMPORTING
e_pcec = pcec
EXCEPTIONS
OTHERS = 4.
pcec-checf = p_rchk.
IF sy-subrc NE 0.
CLEAR pcec-fstap.
IF '9' GT 'Z'. "#EC PORTABLE
pcec-chect = '9999999999999'.
ELSE.
pcec-chect = 'ZZZZZZZZZZZZZ'.
ENDIF.
ENDIF.
DO.
tab_check-low = pcec-checf.
tab_check-high = pcec-chect.
APPEND tab_check.
IF pcec-fstap IS INITIAL.
EXIT.
ENDIF.
SELECT SINGLE * FROM pcec
WHERE zbukr EQ pcec-zbukr
AND hbkid EQ pcec-hbkid
AND hktid EQ pcec-hktid
AND stapl EQ pcec-fstap.
IF sy-subrc NE 0.
EXIT.
ENDIF.
ENDDO.
ELSE. "neue Schecks
IF sy-batch NE space. "new checks
CALL FUNCTION 'LOT_CHECK'
EXPORTING
i_zbukr = zw_zbukr-low
i_hbkid = sel_hbki-low
i_hktid = sel_hkti-low
i_stapl = p_stap
IMPORTING
e_stapl = p_stap
EXCEPTIONS
OTHERS = 4.
IF sy-subrc NE 0.
MESSAGE ID sy-msgid TYPE 'S' NUMBER sy-msgno WITH sy-msgv1.
STOP.
ENDIF.
ENDIF.
SELECT SINGLE * FROM pcec
WHERE zbukr EQ zw_zbukr-low
AND hbkid EQ sel_hbki-low
AND hktid EQ sel_hkti-low
AND stapl EQ p_stap.
ENDIF.
IMPORT flg_local FROM MEMORY ID 'MFCHKFN0'.
IF sy-subrc EQ 0. "bei Transaktion 'Scheck neu
flg_pruefung = 0. "drucken' Pruefung ausschalten
ENDIF. "no check when 'reprint check'
ELSE. "Vorschlagslauf oder nur Avise
"proposal run or only advices
pcec-mandt = sy-mandt. "Testdaten erhalten Dummy-Scheck-
pcec-zbukr = zw_zbukr-low. "nummern, die nicht in PAYR abge-
pcec-hbkid = sel_hbki-low. "speichert werden
pcec-hktid = sel_hkti-low. "test checks get dummy check
pcec-stapl = 1. "numbers, not stored in PAYR
pcec-checf = 'TEST000000001'.
pcec-chect = 'TEST999999999'.
pcec-fstap = 0.
pcec-checl = space.
ENDIF.
ENDFORM. "Scheckdaten prüfen
*----------------------------------------------------------------------*
* FORM SCHECKINFO_PRUEFEN *
*----------------------------------------------------------------------*
* Prüfen, ob die Belegnummer bereits in PAYR gespeichert ist *
* test that payment document number is already stored in PAYR *
*----------------------------------------------------------------------*
* keine USING-Parameter *
* no USING-parameters *
*----------------------------------------------------------------------*
FORM scheckinfo_pruefen.
DATA: hlp_rwbtr LIKE reguh-rwbtr.
IF t042z-xnopo NE space. "keine Zahlungsaufträge erlaubt
IF sy-batch EQ space. "im Scheckmanagement
MESSAGE a071(f3). "payment orders are not allowed
ELSE. "in the check management
MESSAGE s071(f3).
MESSAGE s549(fs).
flg_selektiert = 0.
STOP.
ENDIF.
ENDIF.
CLEAR payr.
CHECK:
par_zdru NE space, "nur bei Scheckdruck
"only if checks are to be printed
zw_xvorl EQ space, "nur bei Echtlauf
"only after production run
flg_pruefung EQ 1. "nicht beim 'Schecks neu drucken'
"not in transaction reprint check
IF hlp_laufk NE 'P'. "FI-Beleg vorhanden?
SELECT * FROM payr
WHERE zbukr EQ reguh-zbukr
AND vblnr EQ reguh-vblnr
AND gjahr EQ regud-gjahr
AND voidr EQ 0.
ENDSELECT.
sy-msgv1 = reguh-zbukr.
sy-msgv2 = regud-gjahr.
sy-msgv3 = reguh-vblnr.
ELSE. "HR-Abrechnung vorhanden?
IF flg_neud NE 1.
IF reguh-rwbtr EQ 0. "Prüfung des Grundes für ZeroNet
SELECT * FROM tvoid WHERE sytyp EQ 4.
EXIT. "Test that void reason code for
ENDSELECT. "zero net checks exists
IF sy-subrc NE 0.
IF sy-batch EQ space.
MESSAGE a669(fs).
ELSE.
MESSAGE s669(fs).
MESSAGE s549(fs).
flg_selektiert = 0.
STOP.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
IF NOT reguh-seqnr IS INITIAL.
SELECT * FROM payr
WHERE pernr EQ reguh-pernr
AND seqnr EQ reguh-seqnr
AND btznr EQ reguh-btznr
AND voidr EQ 0.
ENDSELECT.
ELSE. "HR-Sonderfall Stammdatenabschlag
hlp_rwbtr = - reguh-rwbtr.
SELECT * FROM payr
WHERE pernr EQ reguh-pernr
AND seqnr EQ reguh-seqnr
AND btznr EQ reguh-btznr
AND zaldt EQ reguh-zaldt
AND rwbtr EQ hlp_rwbtr
AND waers EQ reguh-waers
AND voidr EQ 0.
ENDSELECT.
ENDIF.
sy-msgv1 = reguh-pernr.
sy-msgv2 = reguh-seqnr.
sy-msgv3 = reguh-btznr.
ENDIF.
IF flg_restart NE 0.
IF NOT payr-chect IN tab_check.
REJECT.
ENDIF.
IF sy-subrc NE 0. "Scheck nicht vorhanden
IF sy-batch EQ space. "check does not exist
MESSAGE a564(fs) WITH sy-msgv1 sy-msgv2 sy-msgv3.
ELSE.
MESSAGE s564(fs) WITH sy-msgv1 sy-msgv2 sy-msgv3.
MESSAGE s549(fs).
flg_selektiert = 0.
STOP.
ENDIF.
ENDIF.
ELSEIF flg_neud EQ 1. "soll Scheck neu gedruckt werden?
IF NOT payr-chect IN tab_check. "is this check to be reprinted?
REJECT.
ELSE.
*payr = payr.
ENDIF.
ELSE.
IF sy-subrc EQ 0. "Scheck bereits vorhanden
"check does exist
CALL FUNCTION 'READ_CUSTOMIZED_MESSAGE'
EXPORTING
i_arbgb = 'FS'
i_dtype = 'A'
i_msgnr = '670'
IMPORTING
e_msgty = sy-msgty.
IF sy-msgty EQ 'A'.
IF sy-batch EQ space.
MESSAGE a670(fs) WITH sy-msgv1 sy-msgv2 sy-msgv3.
ELSE.
MESSAGE s670(fs) WITH sy-msgv1 sy-msgv2 sy-msgv3.
MESSAGE s549(fs).
flg_selektiert = 0.
STOP.
ENDIF.
ELSE.
fimsg-msgid = 'FS'.
fimsg-msgv1 = sy-msgv1.
fimsg-msgv2 = sy-msgv2.
fimsg-msgv3 = sy-msgv3.
PERFORM message USING 670.
REJECT.
ENDIF.
ENDIF.
ENDIF.
ENDFORM. "Scheckinfo prüfen
*----------------------------------------------------------------------*
* FORM SCHECKNUMMERN_SPERREN *
*----------------------------------------------------------------------*
* Sperren des zu druckenden Schecknummernbereichs *
* enqueue check numbers *
*----------------------------------------------------------------------*
* keine USING-Parameter *
* no USING-parameters *
*----------------------------------------------------------------------*
FORM schecknummern_sperren.
DATA:
up_stapl LIKE pcec-stapl,
up_answer(1) TYPE c,
up_subrc LIKE sy-subrc.
CHECK zw_xvorl EQ space. "nur bei Echtlauf
"only after production run
IF flg_restart EQ 0. "nur ohne Restart
"only without restart mode
up_stapl = pcec-stapl.
DO.
CALL FUNCTION 'ENQUEUE_EFPCEC'
EXPORTING
zbukr = pcec-zbukr
hbkid = pcec-hbkid
hktid = pcec-hktid
stapl = pcec-stapl
_wait = 'X'
_collect = 'X'.
IF pcec-fstap IS INITIAL.
EXIT.
ENDIF.
SELECT SINGLE * FROM pcec
WHERE zbukr EQ pcec-zbukr
AND hbkid EQ pcec-hbkid
AND hktid EQ pcec-hktid
AND stapl EQ pcec-fstap.
IF sy-subrc NE 0.
EXIT.
ENDIF.
ENDDO.
pcec-stapl = up_stapl.
DO.
CALL FUNCTION 'FLUSH_ENQUEUE'
EXCEPTIONS
foreign_lock = 8.
up_subrc = sy-subrc.
IF up_subrc EQ 0 OR sy-batch NE space.
EXIT.
ENDIF.
SET EXTENDED CHECK OFF.
CALL FUNCTION 'POPUP_TO_CONFIRM_WITH_MESSAGE'
EXPORTING
diagnosetext1 = text-900
diagnosetext2 = sy-msgv1
diagnosetext3 = text-901
textline1 = text-902
textline2 = text-903
titel = text-904
IMPORTING
answer = up_answer.
IF up_answer NE 'J'.
EXIT.
ENDIF.
SET EXTENDED CHECK ON.
ENDDO.
IF up_subrc NE 0. "Nummern sind durch anderen
IF sy-batch EQ space. "Benutzer gesperrt
PERFORM scheckdruck_mail. "numbers are locked by
MESSAGE a536(fs) WITH sy-msgv1."another user
ELSE.
MESSAGE s536(fs) WITH sy-msgv1.
MESSAGE s549(fs).
STOP.
ENDIF.
ELSE.
CALL FUNCTION 'LOT_CHECK'
EXPORTING
i_zbukr = pcec-zbukr
i_hbkid = pcec-hbkid
i_hktid = pcec-hktid
i_stapl = pcec-stapl
IMPORTING
e_stapl = pcec-stapl
EXCEPTIONS
OTHERS = 4.
IF sy-subrc NE 0.
IF zw_laufi+5(1) EQ '*'.
PERFORM scheckdruck_mail.
fimsg-msgno = sy-msgno.
fimsg-msgv1 = sy-msgv1.
MESSAGE a577(fs) WITH fimsg-msgno fimsg-msgv1.
ELSE.
MESSAGE ID sy-msgid TYPE 'E' NUMBER sy-msgno WITH sy-msgv1.
ENDIF.
ENDIF.
SELECT SINGLE * FROM pcec
WHERE zbukr = pcec-zbukr
AND hbkid = pcec-hbkid
AND hktid = pcec-hktid
AND stapl = pcec-stapl.
ENDIF.
IF sy-batch NE space.
MESSAGE s550(fs) WITH pcec-checl."Ausgabe des Nummernstandes
ENDIF. "print last check number
"assigned
ENDIF.
IF flg_restart NE 0 OR
flg_neud NE 0.
DO.
CALL FUNCTION 'ENQUEUE_EFPAYR'
EXPORTING
zbukr = pcec-zbukr
hbkid = pcec-hbkid
hktid = pcec-hktid
_wait = 'X'
EXCEPTIONS
foreign_lock = 8.
up_subrc = sy-subrc.
IF up_subrc EQ 0 OR sy-batch NE space.
EXIT.
ENDIF.
SET EXTENDED CHECK OFF.
CALL FUNCTION 'POPUP_TO_CONFIRM_WITH_MESSAGE'
EXPORTING
diagnosetext1 = text-900
diagnosetext2 = sy-msgv1
diagnosetext3 = text-901
textline1 = text-902
textline2 = text-903
titel = text-904
IMPORTING
answer = up_answer.
IF up_answer NE 'J'.
EXIT.
ENDIF.
SET EXTENDED CHECK ON.
ENDDO.
IF up_subrc NE 0. "Zahlungsträgerdatei ist durch
IF sy-batch EQ space. "anderen Benutzer gesperrt
PERFORM scheckdruck_mail. "payment register is locked by
MESSAGE a556(fs) WITH sy-msgv1."another user
ELSE.
MESSAGE s556(fs) WITH sy-msgv1.
MESSAGE s549(fs).
STOP.
ENDIF.
ENDIF.
ENDIF.
ENDFORM. "Schecknummern sperren
*----------------------------------------------------------------------*
* FORM SCHECKNUMMER_ERMITTELN *
*----------------------------------------------------------------------*
* Erste, nächste bzw. letzte Schecknummer ermitteln *
* find out first, next or last check number *
*----------------------------------------------------------------------*
* TYP = 1 erster benutzter Scheck *
* first used check *
* 2 Scheck (bei Seitenüberlauf nur die erste Seite) *
* check (only first page when overflow) *
* 3 Formularabschluß *
* summary *
*----------------------------------------------------------------------*
FORM schecknummer_ermitteln USING typ.
DATA: hlp_rwbtr LIKE reguh-rwbtr.
IF flg_restart EQ 0. "kein Restart
"no restart
IF pcec-checl IS INITIAL.
regud-checf = pcec-checf. "Start mit neuem Stapel
regud-stapf = pcec-stapl. "start with a new lot
regud-chect = pcec-checf.
regud-stapt = pcec-stapl.
*pcec = pcec.
ELSE.
CALL FUNCTION 'ADD_N_TO_CHECK_NUMBER'
EXPORTING
i_pcec = pcec
i_n = 1
IMPORTING
e_pcec = *pcec.
IF typ EQ 1.
regud-checf = *pcec-checl. "erste Schecknummer
regud-stapf = *pcec-stapl. "first check number
regud-chect = *pcec-checl.
regud-stapt = *pcec-stapl.
ELSE.
regud-chect = *pcec-checl. "nächste/letzte Schecknummer
regud-stapt = *pcec-stapl. "next/last check number
ENDIF.
ENDIF.
IF *pcec-zwels NE space AND *pcec-zwels NA reguh-rzawe.
IF sy-batch EQ space.
MESSAGE a665(fs) WITH reguh-rzawe *pcec-stapl *pcec-zwels.
ELSE.
MESSAGE s665(fs) WITH reguh-rzawe *pcec-stapl *pcec-zwels.
MESSAGE s549(fs).
STOP.
ENDIF.
ENDIF.
ELSE. "Restart
IF typ EQ 1.
CALL FUNCTION 'GET_CHECK_INTERVAL'
EXPORTING
i_zbukr = zw_zbukr-low
i_hbkid = sel_hbki-low
i_hktid = sel_hkti-low
i_check = hlp_checf_restart
IMPORTING
e_pcec = pcec.
pcec-checl = hlp_checf_restart.
regud-checf = pcec-checl. "erste Schecknummer
regud-stapf = pcec-stapl. "first check number
regud-chect = pcec-checl.
regud-stapt = pcec-stapl.
ELSE.
IF hlp_laufk NE 'P'. "FI-Beleg vorhanden
SELECT * FROM payr "Scheck zum Zahlungsbeleg
WHERE zbukr EQ reguh-zbukr "payment document's check
AND vblnr EQ reguh-vblnr
AND gjahr EQ regud-gjahr
AND voidr EQ 0.
ENDSELECT.
ELSE. "HR-Abrechnung vorhanden
IF NOT reguh-seqnr IS INITIAL.
SELECT * FROM payr
WHERE pernr EQ reguh-pernr
AND seqnr EQ reguh-seqnr
AND btznr EQ reguh-btznr
AND voidr EQ 0.
ENDSELECT.
ELSE. "HR-Sonderfall Stammdatenabschlag
hlp_rwbtr = - reguh-rwbtr.
SELECT * FROM payr
WHERE pernr EQ reguh-pernr
AND seqnr EQ reguh-seqnr
AND btznr EQ reguh-btznr
AND zaldt EQ reguh-zaldt
AND rwbtr EQ hlp_rwbtr
AND waers EQ reguh-waers
AND voidr EQ 0.
ENDSELECT.
ENDIF.
ENDIF.
IF typ EQ 2 AND payr-checv NE space.
IF payr-checv NE '*'.
SELECT * FROM payr
WHERE zbukr EQ payr-zbukr
AND hbkid EQ payr-hbkiv
AND hktid EQ payr-hktiv
AND rzawe EQ payr-rzawe
AND chect EQ payr-checv
AND voidr EQ 2.
EXIT.
ENDSELECT.
ELSE.
CALL FUNCTION 'GET_CHECK_INTERVAL'
EXPORTING
i_check = payr-chect
i_hbkid = payr-hbkid
i_hktid = payr-hktid
i_zbukr = payr-zbukr
IMPORTING
e_pcec = pcec.
* The check might not be last one printed from the lot
pcec-checl = payr-chect.
CALL FUNCTION 'SUBTRACT_N_FROM_CHECK_NUMBER'
EXPORTING
i_pcec = pcec
IMPORTING
e_pcec = pcec
EXCEPTIONS
not_filled = 1
not_found = 2
not_numeric = 3
not_valid = 4
OTHERS = 5.
IF sy-subrc EQ 0.
SELECT SINGLE * FROM payr
WHERE zbukr EQ payr-zbukr
AND hbkid EQ payr-hbkid
AND hktid EQ payr-hktid
AND rzawe EQ payr-rzawe
AND chect EQ pcec-checl
AND voidr EQ 2.
ENDIF.
ENDIF.
ENDIF.
CALL FUNCTION 'GET_CHECK_INTERVAL'
EXPORTING "zugehöriger Stapel
i_zbukr = zw_zbukr-low "accompanying lot
i_hbkid = sel_hbki-low
i_hktid = sel_hkti-low
i_check = payr-checf
IMPORTING
e_pcec = pcec.
pcec-checl = payr-checf.
IF typ EQ 2 AND flg_restart NE 2.
CALL FUNCTION 'ADD_N_TO_CHECK_NUMBER'
EXPORTING
i_pcec = pcec
i_n = par_anzp
IMPORTING
e_pcec = pcec.
ENDIF.
IF typ EQ 3.
CALL FUNCTION 'ADD_N_TO_CHECK_NUMBER'
EXPORTING "nächster Scheck=Formularabschluß
i_pcec = pcec "next check=summary
i_n = 1
IMPORTING
e_pcec = pcec.
IF flg_restart NE 2 AND par_anzp NE 0.
PERFORM schecks_umnumerieren.
ENDIF.
ENDIF.
regud-chect = pcec-checl. "nächste/letzte Schecknummer
regud-stapt = pcec-stapl. "next/last check number
ENDIF.
ENDIF.
hlp_seite = '1'.
ENDFORM. "Schecknummer ermitteln
*----------------------------------------------------------------------*
* FORM SCHECKAVIS_ZEILE *
*----------------------------------------------------------------------*
* Schreiben einer Zeile des Avis zum Scheck *
* Write one line of the remittance advice of the check *
*----------------------------------------------------------------------*
* keine USING-Parameter *
* no USING-parameters *
*----------------------------------------------------------------------*
FORM scheckavis_zeile.
CALL FUNCTION 'WRITE_FORM'
EXPORTING
element = hlp_ep_element
function = 'APPEND'
EXCEPTIONS
window = 1
element = 2.
IF sy-subrc EQ 2.
err_element-fname = t042e-zforn.
err_element-fenst = 'MAIN'.
err_element-elemt = hlp_ep_element.
err_element-text = text_525.
COLLECT err_element.
ENDIF.
* Vornumerierte Schecks: Schecknummer hochzählen ab 2.Seite
* prenumbered checks: add 1 to check number
IF flg_schecknum EQ 1.
CALL FUNCTION 'GET_TEXTSYMBOL'
EXPORTING
line = '&PAGE&'
start_offset = 0
IMPORTING
value = hlp_page.
IF hlp_page NE hlp_seite.
hlp_seite = hlp_page.
PERFORM schecknummer_addieren.
ENDIF.
ENDIF.
ENDFORM. "Scheckavis Zeile
*----------------------------------------------------------------------*
* FORM SCHECKNUMMER_ADDIEREN *
*----------------------------------------------------------------------*
* Werden zu einem Scheck mehrere Seiten gedruckt (Probedruck oder *
* Seitenüberlauf), so wird ab Seite 2 mit dieser Routine hochgezählt *
* If one check has more than 1 page (test or overflow), this routine *
* computes the current check number *
*----------------------------------------------------------------------*
* keine USING-Parameter *
* no USING-parameters *
*----------------------------------------------------------------------*
FORM schecknummer_addieren.
*pcec = pcec.
IF pcec-checl EQ space. "neuer Stapel / new lot
*pcec-checl = *pcec-checf.
hlp_page = hlp_page - 1.
ELSEIF flg_restart NE 0. "Restart
hlp_page = hlp_page - 1.
ENDIF.
CALL FUNCTION 'ADD_N_TO_CHECK_NUMBER'
EXPORTING
i_pcec = *pcec
i_n = hlp_page
IMPORTING
e_pcec = *pcec.
regud-chect = *pcec-checl. "nächste Schecknummer
regud-stapt = *pcec-stapl. "next check number
ENDFORM. "Schecknummer addieren
*----------------------------------------------------------------------*
* FORM SCHECKS_UMNUMERIEREN *
*----------------------------------------------------------------------*
* Umnumerieren, wenn beim Restart, der nicht alle Schecks neu druckt, *
* Probedrucke angegeben worden sind *
* renumber, if in restart mode test prints are wished and not all *
* checks are to be reprinted *
*----------------------------------------------------------------------*
* keine USING-Parameter *
* no USING-parameters *
*----------------------------------------------------------------------*
FORM schecks_umnumerieren.
DATA: up_mode TYPE c.
DATA up_bdc LIKE bdcdata OCCURS 9 WITH HEADER LINE.
CLEAR up_bdc.
up_bdc-program = 'SAPMFCHK'.
up_bdc-dynpro = '400'.
up_bdc-dynbegin = 'X'.
APPEND up_bdc.
CLEAR up_bdc.
up_bdc-fnam = 'PAYR-ZBUKR'.
up_bdc-fval = zw_zbukr-low.
APPEND up_bdc.
CLEAR up_bdc.
up_bdc-fnam = 'PAYR-HBKID'.
up_bdc-fval = sel_hbki-low.
APPEND up_bdc.
CLEAR up_bdc.
up_bdc-fnam = 'PAYR-HKTID'.
up_bdc-fval = sel_hkti-low.
APPEND up_bdc.
CLEAR up_bdc.
up_bdc-fnam = 'PAYR-CHECF'.
up_bdc-fval = hlp_checf_restart.
APPEND up_bdc.
CLEAR up_bdc.
up_bdc-fnam = 'PAYR-CHECT'.
up_bdc-fval = pcec-checl.
APPEND up_bdc.
CLEAR up_bdc.
up_bdc-fnam = 'PAYR-VOIDR'.
up_bdc-fval = '01'.
APPEND up_bdc.
CALL FUNCTION 'GET_CHECK_INTERVAL'
EXPORTING
i_zbukr = zw_zbukr-low
i_hbkid = sel_hbki-low
i_hktid = sel_hkti-low
i_check = hlp_checf_restart
IMPORTING
e_pcec = *pcec.
*pcec-checl = hlp_checf_restart.
CALL FUNCTION 'ADD_N_TO_CHECK_NUMBER'
EXPORTING
i_pcec = *pcec
i_n = par_anzp
IMPORTING
e_pcec = *pcec.
CLEAR up_bdc.
up_bdc-fnam = 'PCEC-CHECF'.
up_bdc-fval = *pcec-checl.
APPEND up_bdc.
CLEAR up_bdc.
up_bdc-fnam = 'BDC_OKCODE'.
up_bdc-fval = '/18'.
APPEND up_bdc.
*kurzfristig entsperren, da die Sperre in FCH4 gesetzt wird
* IF PAR_NENQ EQ SPACE.
PERFORM schecknummern_entsperren. "RFFORI01
* ENDIF.
up_mode = 'N'.
CALL TRANSACTION 'FCH4' USING up_bdc MODE up_mode.
MESSAGE ID sy-msgid TYPE 'S' NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
pcec-checl = sy-msgv4.
ENDFORM. "Schecks umnumerieren
*----------------------------------------------------------------------*
* FORM SCHECKINFO_SPEICHERN *
*----------------------------------------------------------------------*
* Speichern der Scheckinformationen in PAYR und *
* aktualisieren des Schecknummernstandes in PCEC *
* store check information in PAYR and update the *
* last used number in PCEC *
*----------------------------------------------------------------------*
* TYP = 1 Probedrucke *
* test print *
* 2 Schecks, evtl. mit Überlauf *
* checks, perhaps with overflow *
* 3 Formularabschluß *
* summary *
*----------------------------------------------------------------------*
FORM scheckinfo_speichern USING typ.
CHECK flg_restart EQ 0. "nicht im Restartfall
"not in restart mode
DATA:
hlp_rwbtr LIKE reguh-rwbtr,
up_checf LIKE payr-checf, "Nummern der bedruckten Schecks
up_chect LIKE payr-chect, "numbers of printed checks
up_checv LIKE payr-checv.
* Nummern der bedruckten Schecks berechnen
* compute numbers of printed checks
IF pcec-checl IS INITIAL. "Start mit neuem Stapel
pcec-checl = pcec-checf. "start with a new lot
ELSE.
CALL FUNCTION 'ADD_N_TO_CHECK_NUMBER'
EXPORTING
i_pcec = pcec
i_n = 1
IMPORTING
e_pcec = pcec.
ENDIF.
up_checf = pcec-checl.
IF cnt_seiten GT 1.
cnt_seiten = cnt_seiten - 1.
CALL FUNCTION 'ADD_N_TO_CHECK_NUMBER'
EXPORTING
i_pcec = pcec
i_n = cnt_seiten
IMPORTING
e_pcec = pcec.
cnt_seiten = cnt_seiten + 1.
ENDIF.
up_chect = pcec-checl.
IF zw_xvorl EQ space. "Echtlauf (PAYR und PCEC updaten)
"production run
* Prüfen, ob Eintrag bereits in PAYR vorhanden ist
* test that entry does not already exist in PAYR
SELECT * FROM payr
WHERE ichec EQ space
AND zbukr EQ pcec-zbukr
AND hbkid EQ pcec-hbkid
AND hktid EQ pcec-hktid
AND chect EQ up_chect.
ENDSELECT.
IF sy-subrc EQ 0. "Schecknummer bereits vorhanden
CALL FUNCTION 'CLOSE_FORM'. "check number already exists
ROLLBACK WORK.
fimsg-msgid = 'FS'.
fimsg-msgv1 = pcec-zbukr.
fimsg-msgv2 = pcec-hbkid.
fimsg-msgv3 = pcec-hktid.
fimsg-msgv4 = up_chect.
PERFORM message USING 552.
fimsg-msgid = 'FS'.
PERFORM message USING 549.
PERFORM fehlermeldungen.
PERFORM information.
IF sy-batch EQ space.
MESSAGE i552(fs)
WITH pcec-zbukr pcec-hbkid pcec-hktid up_chect.
ENDIF.
STOP.
ENDIF.
* PAYR füllen und Scheckinfo abspeichern
* fill PAYR and store check information
CLEAR payr.
payr-mandt = sy-mandt.
payr-zbukr = pcec-zbukr.
payr-hbkid = pcec-hbkid.
payr-hktid = pcec-hktid.
payr-rzawe = reguh-rzawe.
payr-laufd = zw_laufd.
payr-laufi = zw_laufi.
payr-pridt = sy-datlo.
payr-priti = sy-timlo.
payr-prius = sy-uname.
CASE typ.
* Probedrucke
* test prints
WHEN 1.
payr-checf = up_checf.
payr-chect = up_chect.
payr-voidr = 1.
payr-voidd = sy-datlo.
payr-voidu = sy-uname.
CALL FUNCTION 'VOID_CHECKS'
EXPORTING
i_payr = payr.
* Schecks, evtl. mit Überlauf
* checks, perhaps with overflow
WHEN 2.
IF cnt_seiten GT 1. "Überlauf
payr-checv = pcec-checl. "overflow
payr-hbkiv = pcec-hbkid.
payr-hktiv = pcec-hktid.
CALL FUNCTION 'SUBTRACT_N_FROM_CHECK_NUMBER'
EXPORTING
i_pcec = pcec
i_n = 1
IMPORTING
e_pcec = pcec.
payr-checf = up_checf.
payr-chect = pcec-checl.
payr-voidr = 2.
payr-voidd = sy-datlo.
payr-voidu = sy-uname.
CALL FUNCTION 'VOID_CHECKS'
EXPORTING
i_payr = payr
IMPORTING
e_checv = up_checv.
CLEAR payr. "Vorbereitung für echten Scheck
payr-checv = up_checv. "mit Rückverweis zum entwerteten
payr-hbkiv = pcec-hbkid. "Scheck
payr-hktiv = pcec-hktid. "prepare genuine check
CALL FUNCTION 'ADD_N_TO_CHECK_NUMBER'
EXPORTING
i_pcec = pcec
i_n = 1
IMPORTING
e_pcec = pcec.
ENDIF.
MOVE-CORRESPONDING reguh TO payr.
IF hlp_laufk EQ 'P'.
payr-vblnr = space.
payr-kunnr = space.
payr-lifnr = space.
ENDIF.
IF payr-rwbtr EQ 0. "zero net check with special
IF tvoid-sytyp NE 4. "void reason code
SELECT * FROM tvoid WHERE sytyp EQ 4.
EXIT.
ENDSELECT.
ENDIF.
payr-voidr = tvoid-voidr.
payr-voidd = sy-datlo.
payr-voidu = sy-uname.
ENDIF.
payr-strgb = reguh-srtgb.
payr-gjahr = regud-gjahr.
payr-rwbtr = - payr-rwbtr.
payr-rwskt = - payr-rwskt.
payr-checf = up_chect.
payr-chect = up_chect.
payr-pridt = sy-datlo.
payr-priti = sy-timlo.
payr-prius = sy-uname.
tab_uebergreifend-zbukr = reguh-zbukr.
tab_uebergreifend-vblnr = reguh-vblnr.
READ TABLE tab_uebergreifend.
IF sy-subrc EQ 0.
payr-xbukr = 'X'.
ELSE.
payr-xbukr = space.
ENDIF.
IF flg_neud EQ 1.
IF payr-checv NE space OR *payr-checv NE space.
payr-checv = '*'.
ENDIF.
ENDIF.
INSERT payr.
UPDATE pcec.
* Schecknummer merken für das Avis
* memorize check number for advice printing
tab_schecks-zbukr = reguh-zbukr.
tab_schecks-vblnr = reguh-vblnr.
tab_schecks-chect = payr-chect.
APPEND tab_schecks.
CASE flg_neud.
* Beim Neudruck alten Scheck entwerten
* void old check in reprint mode
WHEN 1.
PERFORM scheck_entwerten.
IF payr-checv EQ space.
payr-hbkiv = *payr-hbkid.
payr-hktiv = *payr-hktid.
payr-checv = *payr-chect.
ENDIF.
UPDATE payr.
* Beim Neudruck ohne Angabe von Schecks alle Kandidaten
* entwerten (sofern nicht bereits geschehen) und verweisen
* void all relevant checks if no check numbers were specified
* on the selection screen and set pointer to new check
WHEN 2.
IF hlp_laufk NE 'P'.
SELECT * FROM payr INTO *payr
WHERE zbukr EQ payr-zbukr
AND vblnr EQ payr-vblnr
AND gjahr EQ payr-gjahr
AND ( hbkid NE payr-hbkid
OR hktid NE payr-hktid
OR chect NE payr-chect ).
PERFORM scheck_entwerten.
ENDSELECT.
ELSE.
IF NOT reguh-seqnr IS INITIAL.
SELECT * FROM payr INTO *payr
WHERE pernr EQ reguh-pernr
AND seqnr EQ reguh-seqnr
AND btznr EQ reguh-btznr
AND ( zbukr NE payr-zbukr
OR hbkid NE payr-hbkid
OR hktid NE payr-hktid
OR chect NE payr-chect ).
PERFORM scheck_entwerten.
ENDSELECT.
ELSE.
hlp_rwbtr = - reguh-rwbtr.
SELECT * FROM payr INTO *payr
WHERE pernr EQ reguh-pernr
AND seqnr EQ reguh-seqnr
AND btznr EQ reguh-btznr
AND zaldt EQ reguh-zaldt
AND rwbtr EQ hlp_rwbtr
AND waers EQ reguh-waers
AND ( zbukr NE payr-zbukr
OR hbkid NE payr-hbkid
OR hktid NE payr-hktid
OR chect NE payr-chect ).
PERFORM scheck_entwerten.
ENDSELECT.
ENDIF.
ENDIF.
IF sy-dbcnt NE 0.
IF sy-dbcnt EQ 1 AND payr-checv EQ space.
payr-hbkiv = *payr-hbkid.
payr-hktiv = *payr-hktid.
payr-checv = *payr-chect.
ELSE.
payr-checv = '*'.
ENDIF.
UPDATE payr.
ENDIF.
ENDCASE.
* Formularabschluß
* summary
WHEN 3.
payr-checf = up_checf.
payr-chect = up_chect.
payr-voidr = 3.
payr-voidd = sy-datlo.
payr-voidu = sy-uname.
CALL FUNCTION 'VOID_CHECKS'
EXPORTING
i_payr = payr.
ENDCASE.
CALL FUNCTION 'DB_COMMIT'.
ENDIF.
ENDFORM. "Scheckinfo speichern
*----------------------------------------------------------------------*
* FORM SCHECK_ENTWERTEN *
*----------------------------------------------------------------------*
* Entwerten der alten Schecks bei Neudruck und Verweis zum neuen Scheck*
* Void old checks in reprint mode and set pointer to new check +
*----------------------------------------------------------------------*
* keine USING-Parameter *
* no USING-parameters *
*----------------------------------------------------------------------*
FORM scheck_entwerten.
IF *payr-checv NE space.
IF *payr-checv NE '*'.
UPDATE payr SET hbkiv = payr-hbkid
hktiv = payr-hktid
checv = payr-chect
WHERE zbukr EQ *payr-zbukr
AND hbkid EQ *payr-hbkiv
AND hktid EQ *payr-hktiv
AND rzawe EQ *payr-rzawe
AND chect EQ *payr-checv.
ELSE.
UPDATE payr SET hbkiv = payr-hbkid
hktiv = payr-hktid
checv = payr-chect
WHERE zbukr EQ *payr-zbukr
AND hbkid EQ *payr-hbkid
AND hktid EQ *payr-hktid
AND rzawe EQ *payr-rzawe
AND checv EQ *payr-chect.
ENDIF.
payr-checv = '*'.
ENDIF.
*payr-hbkiv = payr-hbkid.
*payr-hktiv = payr-hktid.
*payr-checv = payr-chect.
IF *payr-voidr EQ 0.
*payr-voidr = tvoid-voidr.
ENDIF.
*payr-voidd = sy-datlo.
*payr-voidu = sy-uname.
*payr-extrd = 0.
*payr-extrt = 0.
UPDATE *payr.
ENDFORM. "Scheck entwerten
*----------------------------------------------------------------------*
* FORM SCHECKNUMMERN_ENTSPERREN *
*----------------------------------------------------------------------*
* Entsperren des gedruckten Schecknummernbereichs *
* dequeue check numbers +
*----------------------------------------------------------------------*
* keine USING-Parameter *
* no USING-parameters *
*----------------------------------------------------------------------*
FORM schecknummern_entsperren.
CHECK zw_xvorl EQ space. "nur bei Echtlauf
"only after production run
CALL FUNCTION 'DEQUEUE_ALL'.
ENDFORM. "Schecknummern entsperren
*----------------------------------------------------------------------*
* FORM SCHECKDRUCK_MAIL *
*----------------------------------------------------------------------*
* Im Online-Scheckdruck wird ein Mail versendet, wenn der Druck *
* nicht erfolgreich war *
* Using post + print the user will get a mail if the print was not *
* successfull *
*----------------------------------------------------------------------*
* keine USING-Parameter *
* no USING-parameters *
*----------------------------------------------------------------------*
FORM scheckdruck_mail.
CHECK sy-tcode EQ 'FBZ4'.
DATA BEGIN OF up_object_hd_change.
INCLUDE STRUCTURE sood1.
DATA END OF up_object_hd_change.
DATA BEGIN OF up_user.
INCLUDE STRUCTURE soud3.
DATA END OF up_user.
DATA BEGIN OF up_objcont OCCURS 10.
INCLUDE STRUCTURE soli.
DATA END OF up_objcont.
DATA BEGIN OF up_objhead OCCURS 1.
INCLUDE STRUCTURE soli.
DATA END OF up_objhead.
DATA BEGIN OF up_objpara OCCURS 10.
INCLUDE STRUCTURE selc.
DATA END OF up_objpara.
DATA BEGIN OF up_objparb OCCURS 1.
INCLUDE STRUCTURE soop1.
DATA END OF up_objparb.
DATA BEGIN OF up_receivers OCCURS 1.
INCLUDE STRUCTURE soos1.
DATA END OF up_receivers.
CLEAR:
up_object_hd_change,
up_user,
up_objcont,
up_objhead,
up_objpara,
up_objparb,
up_receivers.
REFRESH:
up_objcont,
up_objhead,
up_objpara,
up_objparb,
up_receivers.
SET EXTENDED CHECK OFF.
up_object_hd_change-objla = sy-langu.
up_object_hd_change-objnam = text-910.
up_object_hd_change-objdes = text-911.
up_object_hd_change-objsns = 'F'.
up_object_hd_change-vmtyp = 'T'.
up_object_hd_change-acnam = 'FBZ5'.
up_user-sapnam = sy-uname.
CALL FUNCTION 'SO_NAME_CONVERT'
EXPORTING
name_in = up_user
IMPORTING
name_out = up_user
EXCEPTIONS
OTHERS = 8.
IF sy-subrc NE 0.
up_user-usrnam = sy-uname.
ENDIF.
up_objcont-line = space. APPEND up_objcont.
up_objcont-line = text-912. APPEND up_objcont.
up_objcont-line = text-913. APPEND up_objcont.
up_objcont-line = space. APPEND up_objcont.
up_objcont-line = text-914.
GET PARAMETER ID 'BUK' FIELD reguh-zbukr.
GET PARAMETER ID 'BLN' FIELD reguh-vblnr.
IF regud-gjahr EQ 0.
GET PARAMETER ID 'GJR' FIELD regud-gjahr.
ENDIF.
REPLACE '&' WITH:
reguh-vblnr INTO up_object_hd_change-objdes,
reguh-zbukr INTO up_objcont-line,
reguh-vblnr INTO up_objcont-line,
regud-gjahr INTO up_objcont-line.
APPEND up_objcont.
up_objcont-line = space. APPEND up_objcont.
up_objcont-line = text-915. APPEND up_objcont.
up_objcont-line = text-916. APPEND up_objcont.
up_objpara-name = 'GJR'.
up_objpara-low = regud-gjahr. APPEND up_objpara.
up_objpara-name = 'BLN'.
up_objpara-low = reguh-vblnr. APPEND up_objpara.
up_receivers-recnam = up_user-usrnam.
up_receivers-acall = 'X'.
up_receivers-sndex = 'X'. APPEND up_receivers.
SET EXTENDED CHECK ON.
CALL FUNCTION 'SO_OBJECT_SEND'
EXPORTING
object_hd_change = up_object_hd_change
object_type = 'RAW'
owner = up_user-usrnam
TABLES
objcont = up_objcont
objhead = up_objhead
objpara = up_objpara
objparb = up_objparb
receivers = up_receivers
EXCEPTIONS
OTHERS = 4.
COMMIT WORK.
ENDFORM. "Scheckdruck Mail
Copy Include of RFFORI01 and create z like Below.
************************************************************************
* *
* Include RFFORI01, used in the payment print programs RFFOxxxz *
* with subroutines for printing checks *
* and subroutines for prenumbered checks (see below) *
* *
************************************************************************
*----------------------------------------------------------------------*
* FORM SCHECK *
*----------------------------------------------------------------------*
* Druck des Avises mit Allongeteil *
* (Beispiel Scheck) *
* Gerufen von END-OF-SELECTION (RFFOxxxz) *
*----------------------------------------------------------------------*
* prints a remittance advice with a check *
* called by END-OF-SELECTION (RFFOxxxz) *
*----------------------------------------------------------------------*
* keine USING-Parameter *
* no USING-parameters *
*----------------------------------------------------------------------*
FORM scheck.
* Tabellen für den Angabeteil von Auslandsschecks in Österreich
* Austria only
DATA:
BEGIN OF up_oenb_angaben OCCURS 5, "Angaben zur OeNB-Meldung
diekz LIKE regup-diekz, "Anmerkung: die betragshöchste
lzbkz LIKE regup-lzbkz, "Angabe wird auf den Angabenteil
summe(7) TYPE p, "übernommen
END OF up_oenb_angaben,
BEGIN OF up_oenb_kontowae OCCURS 5,"Kontowährung der Hausbankkonten
ubhkt LIKE reguh-ubhkt, "für die OeNB-Meldung
uwaer LIKE t012k-waers,
END OF up_oenb_kontowae.
DATA: document_output_info TYPE ssfcrespd,
gv_fm_name TYPE rs38l_fnam.
CONSTANTS c_formname TYPE tdsfname VALUE 'ZFI_SF_CHEQUE'.
*----------------------------------------------------------------------*
* Abarbeiten der extrahierten Daten *
* loop at extracted data *
*----------------------------------------------------------------------*
IF flg_sort NE 2.
SORT BY avis.
flg_sort = 2.
ENDIF.
hlp_ep_element = '525'.
LOOP.
*-- Neuer zahlender Buchungskreis --------------------------------------
*-- new paying company code --------------------------------------------
AT NEW reguh-zbukr.
PERFORM buchungskreis_daten_lesen.
ENDAT.
*-- Neuer Zahlweg ------------------------------------------------------
*-- new payment method -------------------------------------------------
AT NEW reguh-rzawe.
flg_probedruck = 0. "für diesen Zahlweg wurde noch
"kein Probedruck durchgeführt
"test print for this payment
"method not yet done
PERFORM zahlweg_daten_lesen.
* Spoolparameter zur Ausgabe des Schecks angeben
* specify spool parameters for check print
PERFORM fill_itcpo USING par_priz
t042z-zlstn
space "par_sofz via tab_ausgabe!
hlp_auth.
IF flg_schecknum NE 0.
itcpo-tddelete = 'X'. "delete after print
ENDIF.
EXPORT itcpo TO MEMORY ID 'RFFORI01_ITCPO'.
* CALL FUNCTION 'OPEN_FORM'
* EXPORTING
* archive_index = toa_dara
* archive_params = arc_params
* form = t042e-zforn
* device = 'PRINTER'
* language = t001-spras
* options = itcpo
* dialog = flg_dialog
* IMPORTING
* RESULT = itcpp
* EXCEPTIONS
* form = 1.
* IF sy-subrc EQ 1. "abend:
* IF sy-batch EQ space. "form is not active
* MESSAGE a069 WITH t042e-zforn.
* ELSE.
* MESSAGE s069 WITH t042e-zforn.
* MESSAGE s094.
* STOP.
* ENDIF.
* ENDIF.
* Formular auf Segmenttext (Global ®UP-SGTXT) untersuchen
* examine whether segment text is to be printed
* IF t042e-xavis NE space AND t042e-anzpo NE 99.
* flg_sgtxt = 0.
* CALL FUNCTION 'READ_FORM_LINES'
* EXPORTING
* element = hlp_ep_element
* TABLES
* lines = tab_element
* EXCEPTIONS
* element = 1.
* IF sy-subrc EQ 0.
* LOOP AT tab_element.
* IF tab_element-tdline CS 'REGUP-SGTXT'
* AND tab_element-tdformat NE '/*'.
* flg_sgtxt = 1. "Global für Segmenttext existiert
* EXIT. "global for segment text exists
* ENDIF.
* ENDLOOP.
* ENDIF.
* ENDIF.
* Scheck auf Währungsschlüssel (Global ®UD-WAERS&) und Maximal-
* betrag für die Umsetzung der Ziffern in Worten untersuchen
* currency code ®UD-WAERS& has to exist in window CHECK for
* foreign currency checks, compute maximal amount 'in words'
flg_fw_scheck = 0.
IF t042z-xeinz EQ space.
hlp_element = '545'.
ELSE.
hlp_element = '546'.
ENDIF.
* CALL FUNCTION 'READ_FORM_LINES'
* EXPORTING
* window = 'CHECK'
* element = hlp_element
* TABLES
* lines = tab_element
* EXCEPTIONS
* element = 2.
* CALL FUNCTION 'READ_FORM_LINES'
* EXPORTING
* window = 'CHECKSPL'
* element = hlp_element
* TABLES
* lines = tab_element2
* EXCEPTIONS
* element = 2.
* APPEND LINES OF tab_element2 TO tab_element.
*
* hlp_maxstellen = 0. "der Maximalbetrag wird nur
* hlp_maxbetrag = 10000000000000. "berechnet, wenn die Globals
"SPELL-DIGnn verwendet wurden
* IF sy-tabix NE 0. "max. amount only computed if
* LOOP AT tab_element. "globals SPELL-DIGnn are used
* IF tab_element-tdformat NE '/*'.
** Währungsschlüssel
** currency code
* IF tab_element-tdline CP '*REGU+-WAERS*'.
* flg_fw_scheck = 1.
* ENDIF.
** Maximal umsetzbare Stellen ermitteln
** find out maximal number of places which can be transformed
* WHILE tab_element-tdline CS '&SPELL-DIG'.
* SHIFT tab_element-tdline BY sy-fdpos PLACES.
* SHIFT tab_element-tdline BY 10 PLACES.
* IF tab_element-tdline(2) CO '0123456789'.
* IF hlp_maxstellen LT tab_element-tdline(2)."#EC PORTABLE
* hlp_maxstellen = tab_element-tdline(2).
* ENDIF.
* ENDIF.
* ENDWHILE.
* ENDIF.
* ENDLOOP.
** Maximalbetrag ermitteln
** compute maximal amount for transformation 'in words'
* IF hlp_maxstellen NE 0.
* hlp_maxbetrag = 1.
* DO hlp_maxstellen TIMES.
* hlp_maxbetrag = hlp_maxbetrag * 10.
* ENDDO.
* ENDIF.
* ENDIF.
* CALL FUNCTION 'CLOSE_FORM'.
ENDAT.
*-- Neue Hausbank ------------------------------------------------------
*-- new house bank -----------------------------------------------------
AT NEW reguh-ubnkl.
PERFORM hausbank_daten_lesen.
* Felder für Formularabschluß initialisieren
* initialize fields for summary
cnt_formulare = 0.
cnt_hinweise = 0.
sum_abschluss = 0.
flg_druckmodus = 0.
* Vornumerierte Schecks: erste Schecknummer ermitteln
* prenumbered checks: find out first check number
IF flg_schecknum NE 0.
PERFORM schecknummer_ermitteln USING 1.
ENDIF.
ENDAT.
*-- Neue Kontonummer bei der Hausbank ----------------------------------
*-- new account number with house bank ---------------------------------
AT NEW reguh-ubknt.
* Kontonummer ohne Aufbereitungszeichen für OCRA-Zeile speichern
* store numerical account number for code line
regud-obknt = reguh-ubknt.
ENDAT.
*-- Neue Empfängerbank -------------------------------------------------
*-- new bank of payee --------------------------------------------------
AT NEW reguh-zbnkl.
PERFORM empfbank_daten_lesen.
ENDAT.
*-- Neue Zahlungsbelegnummer -------------------------------------------
*-- new payment document number ----------------------------------------
AT NEW reguh-vblnr.
* Angabentabelle und Kontowährung für die OeNB-Meldung (Österreich)
* Austria only
IF t042e-xausl EQ 'X' AND "nur Auslandsscheck
hlp_laufk NE 'P'. "kein HR
REFRESH up_oenb_angaben.
CLEAR up_oenb_kontowae.
READ TABLE up_oenb_kontowae WITH KEY reguh-ubhkt.
IF sy-subrc NE 0.
PERFORM hausbank_konto_lesen.
up_oenb_kontowae-ubhkt = reguh-ubhkt.
PERFORM isocode_umsetzen
USING t012k-waers up_oenb_kontowae-uwaer.
APPEND up_oenb_kontowae.
ENDIF.
ENDIF.
* Lesen der Referenzangaben (Schweiz)
* Switzerland only
PERFORM hausbank_konto_lesen.
* Kein Druck falls Fremdwährung, aber kein Fremdwährungsscheck
* no print if foreign currency, but global ®UD-WAERS& is missing
flg_kein_druck = 0.
IF reguh-waers NE t001-waers AND flg_fw_scheck EQ 0.
err_fw_scheck-fname = t042e-zforn.
MOVE-CORRESPONDING reguh TO err_fw_scheck.
COLLECT err_fw_scheck.
flg_kein_druck = 1. "kein Druck möglich
ENDIF. "no print
IF flg_kein_druck EQ 0.
PERFORM zahlungs_daten_lesen.
* Tag der Zahlung in Worten (Spanien)
* day of payment in words (Spain)
CLEAR t015z.
SELECT SINGLE * FROM t015z
WHERE spras EQ hlp_sprache
AND einh EQ reguh-zaldt+6(1)
AND ziff EQ reguh-zaldt+7(1).
IF sy-subrc EQ 0.
regud-text2 = t015z-wort.
TRANSLATE regud-text2 TO LOWER CASE. "#EC TRANSLANG
TRANSLATE regud-text2 USING '; '.
ELSE.
CLEAR err_t015z.
err_t015z-spras = hlp_sprache.
err_t015z-einh = reguh-zaldt+6(1).
err_t015z-ziff = reguh-zaldt+7(1).
COLLECT err_t015z.
ENDIF.
* Elementname für die Einzelposteninformation ermitteln
* determine element name for item list
IF hlp_laufk EQ 'P' OR
hrxblnr-txtsl EQ 'HR' AND hrxblnr-txerg EQ 'GRN'.
hlp_ep_element = '525-HR'.
ELSE.
hlp_ep_element = '525'.
ENDIF.
* Name des Fensters mit dem Anschreiben zusammensetzen
* specify name of the window with the check text
hlp_element = '510-'.
hlp_element+4 = reguh-rzawe.
hlp_eletext = text_510.
REPLACE '&ZAHLWEG' WITH reguh-rzawe INTO hlp_eletext.
* Druckvorgaben modifizieren lassen
* modification of print parameters
IMPORT itcpo FROM MEMORY ID 'RFFORI01_ITCPO'.
PERFORM modify_itcpo.
* open form only at first time or when optical archiving is active
IF flg_druckmodus NE 1 OR itcpo-tdarmod NE '1'.
* Scheckformular öffnen
* open check form
IF cnt_formulare EQ 0.
itcpo-tdnewid = 'X'.
ELSE.
itcpo-tdnewid = space.
ENDIF.
IF par_priz EQ space.
flg_dialog = 'X'.
ELSE.
flg_dialog = space.
ENDIF.
* close last form
IF flg_druckmodus NE 0.
* CALL FUNCTION 'CLOSE_FORM'
* IMPORTING
* RESULT = itcpp.
IF itcpp-tdspoolid NE 0.
CLEAR tab_ausgabe.
tab_ausgabe-name = t042z-text1.
tab_ausgabe-dataset = itcpp-tddataset.
tab_ausgabe-spoolnr = itcpp-tdspoolid.
tab_ausgabe-immed = par_sofz.
COLLECT tab_ausgabe.
ENDIF.
ENDIF.
flg_druckmodus = itcpo-tdarmod.
* CALL FUNCTION 'OPEN_FORM'
* EXPORTING
* archive_index = toa_dara
* archive_params = arc_params
* form = t042e-zforn
* device = 'PRINTER'
* language = t001-spras
* options = itcpo
* dialog = flg_dialog
* IMPORTING
* RESULT = itcpp
* EXCEPTIONS
* form = 1.
* IF sy-subrc EQ 1. "abend:
* IF sy-batch EQ space. "form is not active
* MESSAGE a069 WITH t042e-zforn.
* ELSE.
* MESSAGE s069 WITH t042e-zforn.
* MESSAGE s094.
* STOP.
* ENDIF.
* ENDIF.
par_priz = itcpp-tddest.
PERFORM fill_itcpo_from_itcpp.
EXPORT itcpo TO MEMORY ID 'RFFORI01_ITCPO'.
ENDIF. "flg_druckmodus NE 1 OR itcpo-tdarmod NE '1'
* Probedruck
* test print
IF flg_probedruck EQ 0. "Probedruck noch nicht erledigt
PERFORM daten_sichern. "test print not yet done
IF flg_schecknum EQ 2.
regud-chect = xxx_regud-chect.
regud-checf = xxx_regud-checf.
ENDIF.
cnt_seiten = 0.
DO par_anzp TIMES.
* Vornumerierte Schecks: Schecknummer hochzählen ab 2.Seite
* prenumbered checks: add 1 to check number
IF flg_schecknum EQ 1 AND sy-index GT 1.
hlp_page = sy-index.
PERFORM schecknummer_addieren.
ENDIF.
* Probedruck-Formular starten
* start test print form
* CALL FUNCTION 'START_FORM'
* EXPORTING
* language = hlp_sprache.
* Fenster mit Probedruck schreiben
* write windows with test print
* CALL FUNCTION 'WRITE_FORM'
* EXPORTING
* window = 'INFO'
* element = '505'
* function = 'APPEND'
* EXCEPTIONS
* window = 1
* element = 2.
* Void
* CALL FUNCTION 'WRITE_FORM'
* EXPORTING
* window = 'CHECK'
* element = '540'
* EXCEPTIONS
* window = 1
* element = 2.
* Void
* CALL FUNCTION 'WRITE_FORM'
* EXPORTING
* element = hlp_element
* EXCEPTIONS
* window = 1
* element = 2.
* IF sy-subrc NE 0.
* CALL FUNCTION 'WRITE_FORM'
* EXPORTING
* element = '510'
* EXCEPTIONS
* window = 1
* element = 2.
* ENDIF.
* CALL FUNCTION 'WRITE_FORM'
* EXPORTING
* element = '514'
* EXCEPTIONS
* window = 1
* element = 2.
* CALL FUNCTION 'WRITE_FORM'
* EXPORTING
* element = '515'
* EXCEPTIONS
* window = 1
* element = 2.
* CALL FUNCTION 'WRITE_FORM'
* EXPORTING
* element = hlp_ep_element
* function = 'APPEND'
* EXCEPTIONS
* window = 1
* element = 2.
* CALL FUNCTION 'WRITE_FORM'
* EXPORTING
* element = '530'
* function = 'APPEND'
* EXCEPTIONS
* window = 1
* element = 2.
* CALL FUNCTION 'WRITE_FORM'
* EXPORTING
* window = 'TOTAL'
* element = '530'
* EXCEPTIONS
* window = 1
* element = 2.
* CALL FUNCTION 'WRITE_FORM'
* EXPORTING
* window = 'INFO'
* element = '505'
* function = 'DELETE'
* EXCEPTIONS
* window = 1
* element = 2.
** Probedruck-Formular beenden
** End test print
* CALL FUNCTION 'END_FORM'
* IMPORTING
* RESULT = itcpp.
IF itcpp-tdpages EQ 0. "Print via RDI
itcpp-tdpages = 1.
ENDIF.
ADD itcpp-tdpages TO cnt_seiten.
ENDDO.
IF flg_schecknum EQ 1 AND cnt_seiten GT 0.
PERFORM scheckinfo_speichern USING 1.
ENDIF.
PERFORM daten_zurueck.
flg_probedruck = 1. "Probedruck erledigt
ENDIF. "Test print done
PERFORM summenfelder_initialisieren.
* Prüfe, ob HR-Formular zu verwenden ist
* Check if HR-form is to be used
IF ( hlp_laufk EQ 'P' OR
hrxblnr-txtsl EQ 'HR' AND hrxblnr-txerg EQ 'GRN' )
AND hrxblnr-xhrfo NE space.
hlp_xhrfo = 'X'.
ELSE.
hlp_xhrfo = space.
ENDIF.
* Formular starten
* start check form
* CALL FUNCTION 'START_FORM'
* EXPORTING
* archive_index = toa_dara
* language = hlp_sprache.
* Vornumerierte Schecks: nächste Schecknummer ermitteln
* prenumbered checks: compute next check number
IF flg_schecknum NE 0.
PERFORM schecknummer_ermitteln USING 2.
ENDIF.
* Fenster Check, Element Entwerteter Scheck
* window check, element voided check
* CALL FUNCTION 'WRITE_FORM'
* EXPORTING
* window = 'CHECK'
* element = '540'
* EXCEPTIONS
* window = 1
* element = 2.
IF sy-subrc EQ 2.
err_element-fname = t042e-zforn.
err_element-fenst = 'CHECK'.
err_element-elemt = '540'.
err_element-text = text_540.
COLLECT err_element.
ENDIF.
IF hlp_xhrfo EQ space.
* Fenster Info, Element Unsere Nummer (falls diese gefüllt ist)
* window info, element our number (if filled)
IF reguh-eikto NE space.
* CALL FUNCTION 'WRITE_FORM'
* EXPORTING
* window = 'INFO'
* element = '505'
* function = 'APPEND'
* EXCEPTIONS
* window = 1
* element = 2.
* IF sy-subrc EQ 2.
* err_element-fname = t042e-zforn.
* err_element-fenst = 'INFO'.
* err_element-elemt = '505'.
* err_element-text = text_505.
* COLLECT err_element.
* ENDIF.
ENDIF.
* Fenster Carry Forward, Element Übertrag (außer letzte Seite)
* window carryfwd, element carry forward below (not last page)
* CALL FUNCTION 'WRITE_FORM'
* EXPORTING
* window = 'CARRYFWD'
* element = '535'
* EXCEPTIONS
* window = 1
* element = 2.
* IF sy-subrc EQ 2.
* err_element-fname = t042e-zforn.
* err_element-fenst = 'CARRYFWD'.
* err_element-elemt = '535'.
* err_element-text = text_535.
* COLLECT err_element.
* ENDIF.
* Hauptfenster, Element Anschreiben (nur auf der ersten Seite)
* main window, element check text (only on first page)
* CALL FUNCTION 'WRITE_FORM'
* EXPORTING
* element = hlp_element
* EXCEPTIONS
* window = 1
* element = 2.
* IF sy-subrc EQ 2.
* CALL FUNCTION 'WRITE_FORM'
* EXPORTING
* element = '510'
* EXCEPTIONS
* window = 1
* element = 2.
* err_element-fname = t042e-zforn.
* err_element-fenst = 'MAIN'.
* err_element-elemt = hlp_element.
* err_element-text = hlp_eletext.
* COLLECT err_element.
* ENDIF.
* Hauptfenster, Element Zahlung erfolgt im Auftrag von
* main window, element payment by order of
IF reguh-absbu NE reguh-zbukr.
* CALL FUNCTION 'WRITE_FORM'
* EXPORTING
* element = '513'
* EXCEPTIONS
* window = 1
* element = 2.
* IF sy-subrc EQ 2.
* err_element-fname = t042e-zforn.
* err_element-fenst = 'MAIN'.
* err_element-elemt = '513'.
* err_element-text = text_513.
* COLLECT err_element.
* ENDIF.
ENDIF.
* Hauptfenster, Element Abweichender Zahlungsemfänger
* main window, element different payee
IF regud-xabwz EQ 'X'.
* CALL FUNCTION 'WRITE_FORM'
* EXPORTING
* element = '512'
* EXCEPTIONS
* window = 1
* element = 2.
* IF sy-subrc EQ 2.
* err_element-fname = t042e-zforn.
* err_element-fenst = 'MAIN'.
* err_element-elemt = '512'.
* err_element-text = text_512.
* COLLECT err_element.
* ENDIF.
ENDIF.
* Hauptfenster, Element Gruß und Unterschrift
* main window, element regards and signature
* CALL FUNCTION 'WRITE_FORM'
* EXPORTING
* element = '514'
* EXCEPTIONS
* window = 1
* element = 2.
*
** Hauptfenster, Element Überschrift (nur auf der ersten Seite)
** main window, element title (only on first page)
* CALL FUNCTION 'WRITE_FORM'
* EXPORTING
* element = '515'
* EXCEPTIONS
* window = 1
* element = 2.
* IF sy-subrc EQ 2.
* err_element-fname = t042e-zforn.
* err_element-fenst = 'MAIN'.
* err_element-elemt = '515'.
* err_element-text = text_515.
* COLLECT err_element.
* ENDIF.
* Hauptfenster, Element Überschrift (ab der zweiten Seite oben)
* main window, element title (2nd and following pages)
* CALL FUNCTION 'WRITE_FORM'
* EXPORTING
* element = '515'
* type = 'TOP'
* EXCEPTIONS
* window = 1 "Fehler bereits oben gemerkt
* element = 2. "error already noted
*
** Hauptfenster, Element Übertrag (ab der zweiten Seite oben)
** main window, element carry forward above (2nd and following p)
* CALL FUNCTION 'WRITE_FORM'
* EXPORTING
* element = '520'
* type = 'TOP'
* function = 'APPEND'
* EXCEPTIONS
* window = 1
* element = 2.
* IF sy-subrc EQ 2.
* err_element-fname = t042e-zforn.
* err_element-fenst = 'MAIN'.
* err_element-elemt = '520'.
* err_element-text = text_520.
* COLLECT err_element.
* ENDIF.
ELSE.
PERFORM hr_formular_lesen.
ENDIF.
* Prüfung, ob Avishinweis erforderlich
* check if advice note is necessary
cnt_zeilen = 0.
IF t042e-xavis NE space AND t042e-anzpo NE 99.
IF hlp_xhrfo EQ space.
IF flg_sgtxt = 1.
cnt_zeilen = reguh-rpost + reguh-rtext.
ELSE.
cnt_zeilen = reguh-rpost.
ENDIF.
ELSE.
DESCRIBE TABLE pform LINES cnt_zeilen.
ENDIF.
IF cnt_zeilen GT t042e-anzpo.
IF hlp_xhrfo EQ space.
* CALL FUNCTION 'WRITE_FORM'
* EXPORTING
* element = '526'
* function = 'APPEND'
* EXCEPTIONS
* window = 1
* element = 2.
* IF sy-subrc EQ 2.
* err_element-fname = t042e-zforn.
* err_element-fenst = 'MAIN'.
* err_element-elemt = '526'.
* err_element-text = text_526.
* COLLECT err_element.
* ENDIF.
ENDIF.
ADD 1 TO cnt_hinweise.
ENDIF.
ENDIF.
* HR-Formular ausgeben
* write HR form
IF hlp_xhrfo NE space.
LOOP AT pform.
IF cnt_zeilen GT t042e-anzpo AND sy-tabix GT t042e-anzpo.
EXIT.
ENDIF.
regud-txthr = pform-linda.
PERFORM scheckavis_zeile.
ENDLOOP.
ENDIF.
flg_diff_bukrs = 0.
ENDIF.
ENDAT.
*-- Neuer Rechnungsbuchungskreis ---------------------------------------
*-- New invoice company code -------------------------------------------
AT NEW regup-bukrs.
IF cnt_zeilen LE t042e-anzpo AND hlp_xhrfo EQ space.
IF ( regup-bukrs NE reguh-zbukr OR flg_diff_bukrs EQ 1 ) AND
( reguh-absbu EQ space OR reguh-absbu EQ reguh-zbukr ).
flg_diff_bukrs = 1.
SELECT SINGLE * FROM t001 INTO *t001
WHERE bukrs EQ regup-bukrs.
regud-abstx = *t001-butxt.
regud-absor = *t001-ort01.
* CALL FUNCTION 'WRITE_FORM'
* EXPORTING
* element = '513'
* EXCEPTIONS
* window = 1
* element = 2.
* IF sy-subrc EQ 2.
* err_element-fname = t042e-zforn.
* err_element-fenst = 'MAIN'.
* err_element-elemt = '513'.
* err_element-text = text_513.
* COLLECT err_element.
* ENDIF.
ENDIF.
ENDIF.
ENDAT.
*-- Verarbeitung der Einzelposten-Informationen ------------------------
*-- single item information --------------------------------------------
AT daten.
IF flg_kein_druck EQ 0.
PERFORM einzelpostenfelder_fuellen.
* Ausgabe der Einzelposten, falls kein Avishinweis erforderl. war
* single item information if no advice note
IF cnt_zeilen LE t042e-anzpo AND hlp_xhrfo EQ space.
regud-txthr = regup-sgtxt.
PERFORM scheckavis_zeile.
ENDIF.
PERFORM summenfelder_fuellen.
IF cnt_zeilen LE t042e-anzpo AND hlp_xhrfo EQ space.
* CALL FUNCTION 'WRITE_FORM'
* EXPORTING
* element = '525-TX'
* function = 'APPEND'
* EXCEPTIONS
* window = 1
* element = 2.
ENDIF.
ENDIF.
* Angabentabelle für die OeNB-Meldung (Österreich)
IF t042e-xausl = 'X'. "nur Auslandsscheck
CLEAR up_oenb_angaben.
up_oenb_angaben-diekz = regup-diekz.
up_oenb_angaben-lzbkz = regup-lzbkz.
up_oenb_angaben-summe = regud-netto.
COLLECT up_oenb_angaben.
ENDIF.
ENDAT.
*-- Ende der Zahlungsbelegnummer ---------------------------------------
*-- end of payment document number -------------------------------------
AT END OF reguh-vblnr.
IF flg_kein_druck EQ 0.
* Zahlbetrag ohne Aufbereitungszeichen für Codierzeile speichern
* store numerical payment amount for code line
IF reguh-waers EQ t001-waers.
regud-socra = regud-swnes.
ELSE.
regud-socra = 0.
PERFORM laender_lesen USING t001-land1.
IF t005-intca EQ 'DE'.
PERFORM isocode_umsetzen USING reguh-waers hlp_waers.
IF hlp_waers EQ 'DEM' OR hlp_waers EQ 'EUR'.
regud-socra = regud-swnes.
ENDIF.
ENDIF.
IF t005-intca EQ 'AT'.
PERFORM isocode_umsetzen USING reguh-waers hlp_waers.
IF hlp_waers EQ 'ATS' OR hlp_waers EQ 'EUR'.
regud-socra = regud-swnes.
ENDIF.
ENDIF.
ENDIF.
IF reguh-waers EQ t012k-waers.
regud-socrb = regud-swnes.
ELSE.
regud-socrb = 0.
ENDIF.
PERFORM ziffern_in_worten.
* Summenfelder hochzählen und aufbereiten
* add up total amount fields
ADD 1 TO cnt_formulare.
ADD reguh-rbetr TO sum_abschluss.
WRITE:
cnt_hinweise TO regud-avish,
cnt_formulare TO regud-zahlt,
sum_abschluss TO regud-summe CURRENCY t001-waers.
TRANSLATE:
regud-avish USING ' *',
regud-zahlt USING ' *',
regud-summe USING ' *'.
IF hlp_xhrfo EQ space.
* Nur für Brasilien (Check auf Land liegt in Funktionsbaustein)
* Only Brazil (Check on country within the function module)
CALL FUNCTION 'BOLETO_DATA'
EXPORTING
line_reguh = reguh
TABLES
itab_regup = tab_regup
CHANGING
line_regud = regud.
CALL FUNCTION 'KOREA_DATA'
EXPORTING
line_reguh = reguh
TABLES
itab_regup = tab_regup
CHANGING
line_regud = regud.
* Hauptfenster, Element Gesamtsumme (nur auf der letzten Seite)
* main window, element total (only last page)
* CALL FUNCTION 'WRITE_FORM'
* EXPORTING
* element = '530'
* function = 'APPEND'
* EXCEPTIONS
* window = 1
* element = 2.
* IF sy-subrc EQ 2.
* err_element-fname = t042e-zforn.
* err_element-fenst = 'MAIN'.
* err_element-elemt = '530'.
* err_element-text = text_530.
* COLLECT err_element.
* ENDIF.
* Vornumerierte Schecks: Schecknummer hochzählen ab 2.Seite
* prenumbered checks: add 1 to check number
IF flg_schecknum EQ 1.
CALL FUNCTION 'GET_TEXTSYMBOL'
EXPORTING
line = '&PAGE&'
start_offset = 0
IMPORTING
value = hlp_page.
IF hlp_page NE hlp_seite.
hlp_seite = hlp_page.
PERFORM schecknummer_addieren.
ENDIF.
ENDIF.
* Alternativ: Fenster Total, Element Gesamtsumme
* alternatively: window total, element total
* CALL FUNCTION 'WRITE_FORM'
* EXPORTING
* window = 'TOTAL'
* element = '530'
* EXCEPTIONS
* window = 1
* element = 2.
* IF sy-subrc EQ 2 AND
* ( err_element-fname NE t042e-zforn
* OR err_element-fenst NE 'MAIN'
* OR err_element-elemt NE '530' ).
* err_element-fname = t042e-zforn.
* err_element-fenst = 'TOTAL'.
* err_element-elemt = '530'.
* err_element-text = text_530.
* COLLECT err_element.
* ENDIF.
* Fenster Carry Forward, Element Übertrag löschen
* window carryfwd, delete element carry forward below
* CALL FUNCTION 'WRITE_FORM'
* EXPORTING
* window = 'CARRYFWD'
* element = '535'
* function = 'DELETE'
* EXCEPTIONS
* window = 1 "Fehler bereits oben gemerkt
* element = 2. "error already noted
*
** Hauptfenster, Element Überschrift löschen
** main window, delete element title
* CALL FUNCTION 'WRITE_FORM'
* EXPORTING
* element = '515'
* type = 'TOP'
* function = 'DELETE'
* EXCEPTIONS
* window = 1 "Fehler bereits oben gemerkt
* element = 2. "error already noted
*
** Hauptfenster, Element Übertrag löschen
** main window, delete element carry forward above
* CALL FUNCTION 'WRITE_FORM'
* EXPORTING
* element = '520'
* type = 'TOP'
* function = 'DELETE'
* EXCEPTIONS
* window = 1 "Fehler bereits oben gemerkt
* element = 2. "error already noted
ENDIF.
* Fenster Check, Element Entwerteter Scheck löschen
* window check, delete element voided check
IF reguh-rwbtr NE 0. "zero net check has to be voided
* CALL FUNCTION 'WRITE_FORM'
* EXPORTING
* window = 'CHECK'
* element = '540'
* function = 'DELETE'
* EXCEPTIONS
* window = 1 "Fehler bereits oben gemerkt
* element = 2. "error already noted
*
* Fenster Check, Element Echter Scheck (nur auf letzte Seite)
* window check, element genuine check (only last page)
IF t042z-xeinz EQ space.
* CALL FUNCTION 'WRITE_FORM'
* EXPORTING
* window = 'CHECKSPL'
* element = '545'
* EXCEPTIONS
* window = 1
* element = 2.
* CALL FUNCTION 'WRITE_FORM'
* EXPORTING
* window = 'CHECK'
* element = '545'
* EXCEPTIONS
* window = 1
* element = 2.
* IF sy-subrc EQ 2.
* err_element-fname = t042e-zforn.
* err_element-fenst = 'CHECK'.
* err_element-elemt = '545'.
* err_element-text = text_545.
* COLLECT err_element.
* ENDIF.
DATA: alt_form.
IF par_zfor IS NOT INITIAL.
alt_form = 'X'.
ENDIF.
CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'
EXPORTING
formname = c_formname
IMPORTING
fm_name = gv_fm_name.
CALL FUNCTION gv_fm_name
EXPORTING
reguh = reguh
regud = regud
gv_flag = alt_form " Alternative form to print check without payee
IMPORTING
document_output_info = document_output_info.
itcpp-tdpages = document_output_info-tdfpages.
ELSE. "debitorische Wechsel Frankreich
* CALL FUNCTION 'WRITE_FORM' "bills of exchange to debitors
* EXPORTING "(France)
* window = 'CHECKSPL'
* element = '546'
* EXCEPTIONS
* window = 1
* element = 2.
* CALL FUNCTION 'WRITE_FORM'
* EXPORTING
* window = 'CHECK'
* element = '546'
* EXCEPTIONS
* window = 1
* element = 2.
* IF sy-subrc EQ 2.
* err_element-fname = t042e-zforn.
* err_element-fenst = 'CHECK'.
* err_element-elemt = '546'.
* err_element-text = text_546.
* COLLECT err_element.
* ENDIF.
ENDIF.
ENDIF.
* Angabenteil für die OeNB-Meldung (Österreich)
* Austria only
IF t042e-xausl NE space "Auslandsscheck, nicht Pfändung
AND NOT ( hrxblnr-txtsl EQ 'HR' AND hrxblnr-txerg EQ 'GRN' ).
CLEAR:
regud-x08, regud-x10, regud-x11, regud-x12, regud-x13,
regud-text1, regud-zwck1, regud-zwck2.
IF up_oenb_kontowae-uwaer EQ 'ATS'.
regud-x08 = 'X'.
ELSE.
regud-text1 = up_oenb_kontowae-uwaer.
ENDIF.
SORT up_oenb_angaben BY summe DESCENDING.
READ TABLE up_oenb_angaben INDEX 1.
CASE up_oenb_angaben-diekz.
WHEN space.
regud-x10 = 'X'.
WHEN 'I'.
regud-x10 = 'X'.
WHEN 'R'.
regud-x11 = 'X'.
WHEN 'K'.
regud-x12 = 'X'.
WHEN OTHERS.
regud-x13 = 'X'.
PERFORM read_scb_indicator USING up_oenb_angaben-lzbkz.
regud-zwck1 = t015l-zwck1.
regud-zwck2 = t015l-zwck2.
ENDCASE.
* CALL FUNCTION 'WRITE_FORM'
* EXPORTING
* window = 'ORDERS'
* element = '550'
* EXCEPTIONS
* window = 1
* element = 2.
ENDIF.
* Formular beenden
* End check form
* CALL FUNCTION 'END_FORM'
* IMPORTING
* RESULT = itcpp.
* IF itcpp-tdpages EQ 0. "Print via RDI
* itcpp-tdpages = 1.
* ENDIF.
IF flg_schecknum EQ 1.
cnt_seiten = itcpp-tdpages. "Für vornumerierte Schecks
ELSE. "For prenumbered checks
cnt_seiten = 1.
ENDIF.
IF flg_schecknum NE 0 AND cnt_seiten GT 0.
PERFORM scheckinfo_speichern USING 2.
ENDIF.
ENDIF.
ENDAT.
*-- Ende der Hausbank --------------------------------------------------
*-- end of house bank --------------------------------------------------
AT END OF reguh-ubnkl.
IF cnt_formulare NE 0. "Formularabschluß erforderlich
"summary necessary
* close last check
* CALL FUNCTION 'CLOSE_FORM'
* IMPORTING RESULT = itcpp.
*
* IF itcpp-tdspoolid NE 0.
* CLEAR tab_ausgabe.
* tab_ausgabe-name = t042z-text1.
* tab_ausgabe-dataset = itcpp-tddataset.
* tab_ausgabe-spoolnr = itcpp-tdspoolid.
* tab_ausgabe-immed = par_sofz.
* COLLECT tab_ausgabe.
* ENDIF.
CLEAR flg_druckmodus.
IF hlp_laufk NE '*' "kein Onlinedruck
"no online check print
AND par_nosu EQ space. "Formularabschluß gewünscht
"summary requested
* Formular für den Abschluß starten
* start form for summary
SET COUNTRY space.
IMPORT itcpo FROM MEMORY ID 'RFFORI01_ITCPO'.
itcpo-tdnewid = space.
* CALL FUNCTION 'OPEN_FORM'
* EXPORTING
* form = t042e-zforn
* device = 'PRINTER'
* language = t001-spras
* options = itcpo
* dialog = space.
* CALL FUNCTION 'START_FORM'
* EXPORTING
* startpage = 'LAST'
* language = t001-spras.
* Vornumerierte Schecks: letzte Schecknummer ermitteln
* prenumbered checks: compute last check number
IF flg_schecknum EQ 1.
PERFORM schecknummer_ermitteln USING 3.
ENDIF.
* Ausgabe des Formularabschlusses
* print summary
* CALL FUNCTION 'WRITE_FORM'
* EXPORTING
* window = 'SUMMARY'
* EXCEPTIONS
* window = 1.
* IF sy-subrc EQ 1.
* err_element-fname = t042e-zforn.
* err_element-fenst = 'SUMMARY'.
* err_element-elemt = space.
* err_element-text = space.
* COLLECT err_element.
* ENDIF.
* Fenster Scheck, Element Entwertet
* window check, element voided check
* CALL FUNCTION 'WRITE_FORM'
* EXPORTING
* window = 'CHECK'
* element = '540'
* EXCEPTIONS
* window = 1 "Fehler bereits oben gemerkt
* element = 2. "error already noted
* Formular für den Abschluß beenden
* end form for summary
* CALL FUNCTION 'END_FORM'
* IMPORTING
* RESULT = itcpp.
* IF itcpp-tdpages EQ 0. "Print via RDI
* itcpp-tdpages = 1.
* ENDIF.
cnt_seiten = itcpp-tdpages. "Für vornumerierte Schecks
"For prenumbered checks
IF flg_schecknum EQ 1 AND cnt_seiten GT 0.
PERFORM scheckinfo_speichern USING 3.
ENDIF.
* Abschluß des Formulars
* close form
* CALL FUNCTION 'CLOSE_FORM'
* IMPORTING
* RESULT = itcpp.
*
* IF itcpp-tdspoolid NE 0.
* CLEAR tab_ausgabe.
* tab_ausgabe-name = t042z-text1.
* tab_ausgabe-dataset = itcpp-tddataset.
* tab_ausgabe-spoolnr = itcpp-tdspoolid.
* tab_ausgabe-immed = par_sofz.
* COLLECT tab_ausgabe.
* ENDIF.
ENDIF.
IF NOT itcpp-tdspoolid IS INITIAL.
CALL FUNCTION 'RSPO_FINAL_SPOOLJOB'
EXPORTING
rqident = itcpp-tdspoolid
set = 'X'
force = 'X'
EXCEPTIONS
OTHERS = 4.
IF sy-subrc NE 0.
MOVE-CORRESPONDING syst TO fimsg.
PERFORM message USING fimsg-msgno.
ENDIF.
ENDIF.
ENDIF.
ENDAT.
ENDLOOP.
hlp_ep_element = '525'.
ENDFORM. "Scheck
************************************************************************
* *
* subroutines for prenumbered checks *
* *
* subroutine called by / in subroutine *
* ------------------------------------------------------------------- *
* SCHECKDATEN_EINGABE (check data input on screen) SELECTION-SCREEN *
* SCHECKDATEN_PRUEFEN (check data before start) START-OF-SELECTION *
* SCHECKINFO_PRUEFEN (test of check information) GET REGUH *
* SCHECKNUMMERN_SPERREN (enqueue check numbers) END-OF-SELECTION *
* SCHECKNUMMER_ERMITTELN (find out check number) SCHECK *
* SCHECKAVIS_ZEILE (one line on the check advice) SCHECK *
* SCHECKS_ADDIEREN (add 1 to check number) SCHECKAVIS_ZEILE,SCHECK *
* SCHECKS_UMNUMERIEREN (renumber checks) SCHECKNUMMER_ERMITTELN *
* SCHECKINFO_SPEICHERN (store check information) SCHECK *
* SCHECK_ENTWERTEN (void check in restart mode) SCHECKINFO_SPEICHERN *
* SCHECKNUMMERN_ENTSPERREN (dequeue check numbers) END-OF-SELECTION *
* SCHECKDRUCK_MAIL (send mail) SCHECKNUMMERN_SPERREN,SELECTION-SCREEN *
* *
************************************************************************
*----------------------------------------------------------------------*
* FORM SCHECKDATEN_EINGABE *
*----------------------------------------------------------------------*
* Prüfen der Eingabedaten auf dem Selektionsbild *
* Check the input data on the selection screen *
*----------------------------------------------------------------------*
* P_RCHK Restart-Schecknummer *
* P_STAP Stapel *
* P_INFO Info zum Stapel *
*----------------------------------------------------------------------*
FORM scheckdaten_eingabe USING p_rchk LIKE pcec-checl
p_stap LIKE pcec-stapl
p_info TYPE c.
DESCRIBE TABLE zw_zbukr LINES hlp_zeilen.
IF hlp_zeilen NE 1. "genau ein Buchungskreis
SET CURSOR FIELD 'ZW_ZBUKR-LOW'. "exactly one company code
MESSAGE e543(fs).
ELSE.
READ TABLE zw_zbukr INDEX 1.
IF zw_zbukr-option NE 'EQ' OR zw_zbukr-sign NE 'I'.
SET CURSOR FIELD 'ZW_ZBUKR-LOW'.
MESSAGE e543(fs).
ENDIF.
ENDIF.
"genau eine Hausbank
READ TABLE sel_hbki INDEX 1. "exactly one house bank
IF sy-subrc NE 0 OR sel_hbki-option NE 'EQ' OR sel_hbki-sign NE 'I'.
SET CURSOR FIELD 'SEL_HBKI-LOW'.
MESSAGE e544(fs).
ENDIF.
"genau eine Kontenverbindung
READ TABLE sel_hkti INDEX 1. "exactly one bank account
IF sy-subrc NE 0 OR sel_hkti-option NE 'EQ' OR sel_hkti-sign NE 'I'.
SET CURSOR FIELD 'SEL_HKTI-LOW'.
MESSAGE e545(fs).
ENDIF.
IF zw_xvorl EQ space. "Echtlauf
"production run
IF p_rchk NE space. "Restartfall
p_stap = 0. "restart mode
p_info = space.
SELECT * FROM payr "Restartnummer muß vorhanden sein
WHERE zbukr EQ zw_zbukr-low "und zum angegebenen Zahllauf
AND hbkid EQ sel_hbki-low "gehören
AND hktid EQ sel_hkti-low "restart number has to exist in
AND rzawe IN sel_zawe "PAYR and has to belong to this
AND chect GE p_rchk "payment run
AND checf EQ p_rchk. "#EC PORTABLE
ENDSELECT.
IF sy-subrc NE 0.
SET CURSOR FIELD 'PAR_RCHK'.
MESSAGE e562(fs).
ENDIF.
IF ( zw_laufd NE payr-laufd OR zw_laufi NE payr-laufi )
AND zw_laufi+5(1) NE '*'.
SET CURSOR FIELD 'PAR_RCHK'.
MESSAGE e563(fs).
ENDIF.
IF payr-checv NE space. "gab es beim Restartscheck einen
SELECT SINGLE * FROM payr "Seitenüberlauf?
WHERE zbukr EQ payr-zbukr "was there an overflow with the
AND hbkid EQ payr-hbkid "first restart check?
AND hktid EQ payr-hktid
AND rzawe EQ payr-rzawe
AND chect EQ payr-checv.
IF payr-voidr EQ 2.
p_rchk = payr-checf. "Parameter korrigieren
ENDIF. "correct parameter
ENDIF.
IF payr-voidr EQ 3. "Formularabschluß, also nichts
SET CURSOR FIELD 'PAR_RCHK'. "summary => nothing to be printed
MESSAGE e571(fs).
ENDIF.
ELSE. "neue Schecks
IF par_zdru NE space. "new checks
IF p_stap IS INITIAL.
p_info = space.
SET CURSOR FIELD 'PAR_STAP'.
IF zw_laufi+5(1) EQ '*'.
PERFORM scheckdruck_mail.
MESSAGE a577(fs) WITH '546' space.
ELSE.
MESSAGE e546(fs).
ENDIF. "Stapelnummer muß angegeben
ELSE. "werden, vorhanden sein und eine
CALL FUNCTION 'LOT_CHECK' "gültige letzte vergebene Nummer
EXPORTING "haben (ggf. in Folgestapel)
i_zbukr = zw_zbukr-low "lot number has to be filled, has
i_hbkid = sel_hbki-low "to exist and must have a valid
i_hktid = sel_hkti-low "last number, perhaps in next lot
i_stapl = p_stap
IMPORTING
e_stapl = p_stap
e_stapi = pcec-stapi
e_zwels = pcec-zwels
EXCEPTIONS
OTHERS = 4.
p_info = pcec-stapi.
IF sy-subrc NE 0.
p_info = space.
SET CURSOR FIELD 'PAR_STAP'.
IF zw_laufi+5(1) EQ '*'.
PERFORM scheckdruck_mail.
fimsg-msgno = sy-msgno.
fimsg-msgv1 = sy-msgv1.
MESSAGE a577(fs) WITH fimsg-msgno fimsg-msgv1.
ELSE.
MESSAGE ID sy-msgid TYPE 'E' NUMBER sy-msgno WITH sy-msgv1.
ENDIF.
ELSE.
IF pcec-zwels NE space.
SELECT SINGLE * FROM t001 WHERE bukrs EQ zw_zbukr-low.
SELECT * FROM t042z WHERE land1 EQ t001-land1
AND zlsch IN sel_zawe
AND progn EQ sy-repid.
IF pcec-zwels NA t042z-zlsch.
MESSAGE e665(fs) WITH t042z-zlsch p_stap pcec-zwels.
ENDIF.
ENDSELECT.
ENDIF.
p_info = pcec-stapi.
ENDIF.
ENDIF.
ELSE.
p_stap = 0.
p_info = space.
ENDIF.
ENDIF.
ELSE. "Vorschlagslauf
"proposal run
IF p_rchk NE space.
SET CURSOR FIELD 'ZW_XVORL'.
MESSAGE e561(fs). "kein Restart bei Vorschlagslauf
ENDIF. "no restart mode if proposal run
p_stap = 0.
p_info = space.
ENDIF.
ENDFORM. "Scheckdaten Eingabe
*----------------------------------------------------------------------*
* FORM SCHECKDATEN_PRUEFEN *
*----------------------------------------------------------------------*
* Prüfen der Eingabedaten vor der Datenselektion *
* Check the input data before the selection of data *
*----------------------------------------------------------------------*
* P_RCHK Restart-Schecknummer *
* P_STAP Stapel *
*----------------------------------------------------------------------*
FORM scheckdaten_pruefen USING p_rchk LIKE pcec-checl
p_stap LIKE pcec-stapl.
REFRESH tab_check.
flg_schecknum = 1.
flg_pruefung = 1. "Scheckinfo i.a. prüfen
"check check info (in general)
IF zw_xvorl EQ space AND par_zdru NE space. "Scheckdruck für Echtlauf
"check print for a productive run
IF p_rchk NE space. "Restartfall
flg_restart = 1. "restart mode
SELECT * FROM payr
WHERE zbukr EQ zw_zbukr-low
AND hbkid EQ sel_hbki-low
AND hktid EQ sel_hkti-low
AND rzawe IN sel_zawe
AND chect GE p_rchk
AND checf EQ p_rchk. "#EC PORTABLE
ENDSELECT.
CASE payr-voidr.
WHEN 0.
hlp_checf_restart = p_rchk.
WHEN 1. "vollständiger Restart
flg_restart = 2. "complete restart
CALL FUNCTION 'COMPARE_CHECK_NUMBERS'
EXPORTING
i_check1 = payr-checf
i_check2 = payr-chect
IMPORTING
e_distance = par_anzp.
ADD 1 TO par_anzp.
WHEN 2.
hlp_checf_restart = payr-checv.
ENDCASE.
tab_check-sign = 'I'.
tab_check-option = 'BT'.
CALL FUNCTION 'GET_CHECK_INTERVAL'
EXPORTING
i_zbukr = zw_zbukr-low
i_hbkid = sel_hbki-low
i_hktid = sel_hkti-low
i_check = p_rchk
IMPORTING
e_pcec = pcec
EXCEPTIONS
OTHERS = 4.
pcec-checf = p_rchk.
IF sy-subrc NE 0.
CLEAR pcec-fstap.
IF '9' GT 'Z'. "#EC PORTABLE
pcec-chect = '9999999999999'.
ELSE.
pcec-chect = 'ZZZZZZZZZZZZZ'.
ENDIF.
ENDIF.
DO.
tab_check-low = pcec-checf.
tab_check-high = pcec-chect.
APPEND tab_check.
IF pcec-fstap IS INITIAL.
EXIT.
ENDIF.
SELECT SINGLE * FROM pcec
WHERE zbukr EQ pcec-zbukr
AND hbkid EQ pcec-hbkid
AND hktid EQ pcec-hktid
AND stapl EQ pcec-fstap.
IF sy-subrc NE 0.
EXIT.
ENDIF.
ENDDO.
ELSE. "neue Schecks
IF sy-batch NE space. "new checks
CALL FUNCTION 'LOT_CHECK'
EXPORTING
i_zbukr = zw_zbukr-low
i_hbkid = sel_hbki-low
i_hktid = sel_hkti-low
i_stapl = p_stap
IMPORTING
e_stapl = p_stap
EXCEPTIONS
OTHERS = 4.
IF sy-subrc NE 0.
MESSAGE ID sy-msgid TYPE 'S' NUMBER sy-msgno WITH sy-msgv1.
STOP.
ENDIF.
ENDIF.
SELECT SINGLE * FROM pcec
WHERE zbukr EQ zw_zbukr-low
AND hbkid EQ sel_hbki-low
AND hktid EQ sel_hkti-low
AND stapl EQ p_stap.
ENDIF.
IMPORT flg_local FROM MEMORY ID 'MFCHKFN0'.
IF sy-subrc EQ 0. "bei Transaktion 'Scheck neu
flg_pruefung = 0. "drucken' Pruefung ausschalten
ENDIF. "no check when 'reprint check'
ELSE. "Vorschlagslauf oder nur Avise
"proposal run or only advices
pcec-mandt = sy-mandt. "Testdaten erhalten Dummy-Scheck-
pcec-zbukr = zw_zbukr-low. "nummern, die nicht in PAYR abge-
pcec-hbkid = sel_hbki-low. "speichert werden
pcec-hktid = sel_hkti-low. "test checks get dummy check
pcec-stapl = 1. "numbers, not stored in PAYR
pcec-checf = 'TEST000000001'.
pcec-chect = 'TEST999999999'.
pcec-fstap = 0.
pcec-checl = space.
ENDIF.
ENDFORM. "Scheckdaten prüfen
*----------------------------------------------------------------------*
* FORM SCHECKINFO_PRUEFEN *
*----------------------------------------------------------------------*
* Prüfen, ob die Belegnummer bereits in PAYR gespeichert ist *
* test that payment document number is already stored in PAYR *
*----------------------------------------------------------------------*
* keine USING-Parameter *
* no USING-parameters *
*----------------------------------------------------------------------*
FORM scheckinfo_pruefen.
DATA: hlp_rwbtr LIKE reguh-rwbtr.
IF t042z-xnopo NE space. "keine Zahlungsaufträge erlaubt
IF sy-batch EQ space. "im Scheckmanagement
MESSAGE a071(f3). "payment orders are not allowed
ELSE. "in the check management
MESSAGE s071(f3).
MESSAGE s549(fs).
flg_selektiert = 0.
STOP.
ENDIF.
ENDIF.
CLEAR payr.
CHECK:
par_zdru NE space, "nur bei Scheckdruck
"only if checks are to be printed
zw_xvorl EQ space, "nur bei Echtlauf
"only after production run
flg_pruefung EQ 1. "nicht beim 'Schecks neu drucken'
"not in transaction reprint check
IF hlp_laufk NE 'P'. "FI-Beleg vorhanden?
SELECT * FROM payr
WHERE zbukr EQ reguh-zbukr
AND vblnr EQ reguh-vblnr
AND gjahr EQ regud-gjahr
AND voidr EQ 0.
ENDSELECT.
sy-msgv1 = reguh-zbukr.
sy-msgv2 = regud-gjahr.
sy-msgv3 = reguh-vblnr.
ELSE. "HR-Abrechnung vorhanden?
IF flg_neud NE 1.
IF reguh-rwbtr EQ 0. "Prüfung des Grundes für ZeroNet
SELECT * FROM tvoid WHERE sytyp EQ 4.
EXIT. "Test that void reason code for
ENDSELECT. "zero net checks exists
IF sy-subrc NE 0.
IF sy-batch EQ space.
MESSAGE a669(fs).
ELSE.
MESSAGE s669(fs).
MESSAGE s549(fs).
flg_selektiert = 0.
STOP.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
IF NOT reguh-seqnr IS INITIAL.
SELECT * FROM payr
WHERE pernr EQ reguh-pernr
AND seqnr EQ reguh-seqnr
AND btznr EQ reguh-btznr
AND voidr EQ 0.
ENDSELECT.
ELSE. "HR-Sonderfall Stammdatenabschlag
hlp_rwbtr = - reguh-rwbtr.
SELECT * FROM payr
WHERE pernr EQ reguh-pernr
AND seqnr EQ reguh-seqnr
AND btznr EQ reguh-btznr
AND zaldt EQ reguh-zaldt
AND rwbtr EQ hlp_rwbtr
AND waers EQ reguh-waers
AND voidr EQ 0.
ENDSELECT.
ENDIF.
sy-msgv1 = reguh-pernr.
sy-msgv2 = reguh-seqnr.
sy-msgv3 = reguh-btznr.
ENDIF.
IF flg_restart NE 0.
IF NOT payr-chect IN tab_check.
REJECT.
ENDIF.
IF sy-subrc NE 0. "Scheck nicht vorhanden
IF sy-batch EQ space. "check does not exist
MESSAGE a564(fs) WITH sy-msgv1 sy-msgv2 sy-msgv3.
ELSE.
MESSAGE s564(fs) WITH sy-msgv1 sy-msgv2 sy-msgv3.
MESSAGE s549(fs).
flg_selektiert = 0.
STOP.
ENDIF.
ENDIF.
ELSEIF flg_neud EQ 1. "soll Scheck neu gedruckt werden?
IF NOT payr-chect IN tab_check. "is this check to be reprinted?
REJECT.
ELSE.
*payr = payr.
ENDIF.
ELSE.
IF sy-subrc EQ 0. "Scheck bereits vorhanden
"check does exist
CALL FUNCTION 'READ_CUSTOMIZED_MESSAGE'
EXPORTING
i_arbgb = 'FS'
i_dtype = 'A'
i_msgnr = '670'
IMPORTING
e_msgty = sy-msgty.
IF sy-msgty EQ 'A'.
IF sy-batch EQ space.
MESSAGE a670(fs) WITH sy-msgv1 sy-msgv2 sy-msgv3.
ELSE.
MESSAGE s670(fs) WITH sy-msgv1 sy-msgv2 sy-msgv3.
MESSAGE s549(fs).
flg_selektiert = 0.
STOP.
ENDIF.
ELSE.
fimsg-msgid = 'FS'.
fimsg-msgv1 = sy-msgv1.
fimsg-msgv2 = sy-msgv2.
fimsg-msgv3 = sy-msgv3.
PERFORM message USING 670.
REJECT.
ENDIF.
ENDIF.
ENDIF.
ENDFORM. "Scheckinfo prüfen
*----------------------------------------------------------------------*
* FORM SCHECKNUMMERN_SPERREN *
*----------------------------------------------------------------------*
* Sperren des zu druckenden Schecknummernbereichs *
* enqueue check numbers *
*----------------------------------------------------------------------*
* keine USING-Parameter *
* no USING-parameters *
*----------------------------------------------------------------------*
FORM schecknummern_sperren.
DATA:
up_stapl LIKE pcec-stapl,
up_answer(1) TYPE c,
up_subrc LIKE sy-subrc.
CHECK zw_xvorl EQ space. "nur bei Echtlauf
"only after production run
IF flg_restart EQ 0. "nur ohne Restart
"only without restart mode
up_stapl = pcec-stapl.
DO.
CALL FUNCTION 'ENQUEUE_EFPCEC'
EXPORTING
zbukr = pcec-zbukr
hbkid = pcec-hbkid
hktid = pcec-hktid
stapl = pcec-stapl
_wait = 'X'
_collect = 'X'.
IF pcec-fstap IS INITIAL.
EXIT.
ENDIF.
SELECT SINGLE * FROM pcec
WHERE zbukr EQ pcec-zbukr
AND hbkid EQ pcec-hbkid
AND hktid EQ pcec-hktid
AND stapl EQ pcec-fstap.
IF sy-subrc NE 0.
EXIT.
ENDIF.
ENDDO.
pcec-stapl = up_stapl.
DO.
CALL FUNCTION 'FLUSH_ENQUEUE'
EXCEPTIONS
foreign_lock = 8.
up_subrc = sy-subrc.
IF up_subrc EQ 0 OR sy-batch NE space.
EXIT.
ENDIF.
SET EXTENDED CHECK OFF.
CALL FUNCTION 'POPUP_TO_CONFIRM_WITH_MESSAGE'
EXPORTING
diagnosetext1 = text-900
diagnosetext2 = sy-msgv1
diagnosetext3 = text-901
textline1 = text-902
textline2 = text-903
titel = text-904
IMPORTING
answer = up_answer.
IF up_answer NE 'J'.
EXIT.
ENDIF.
SET EXTENDED CHECK ON.
ENDDO.
IF up_subrc NE 0. "Nummern sind durch anderen
IF sy-batch EQ space. "Benutzer gesperrt
PERFORM scheckdruck_mail. "numbers are locked by
MESSAGE a536(fs) WITH sy-msgv1."another user
ELSE.
MESSAGE s536(fs) WITH sy-msgv1.
MESSAGE s549(fs).
STOP.
ENDIF.
ELSE.
CALL FUNCTION 'LOT_CHECK'
EXPORTING
i_zbukr = pcec-zbukr
i_hbkid = pcec-hbkid
i_hktid = pcec-hktid
i_stapl = pcec-stapl
IMPORTING
e_stapl = pcec-stapl
EXCEPTIONS
OTHERS = 4.
IF sy-subrc NE 0.
IF zw_laufi+5(1) EQ '*'.
PERFORM scheckdruck_mail.
fimsg-msgno = sy-msgno.
fimsg-msgv1 = sy-msgv1.
MESSAGE a577(fs) WITH fimsg-msgno fimsg-msgv1.
ELSE.
MESSAGE ID sy-msgid TYPE 'E' NUMBER sy-msgno WITH sy-msgv1.
ENDIF.
ENDIF.
SELECT SINGLE * FROM pcec
WHERE zbukr = pcec-zbukr
AND hbkid = pcec-hbkid
AND hktid = pcec-hktid
AND stapl = pcec-stapl.
ENDIF.
IF sy-batch NE space.
MESSAGE s550(fs) WITH pcec-checl."Ausgabe des Nummernstandes
ENDIF. "print last check number
"assigned
ENDIF.
IF flg_restart NE 0 OR
flg_neud NE 0.
DO.
CALL FUNCTION 'ENQUEUE_EFPAYR'
EXPORTING
zbukr = pcec-zbukr
hbkid = pcec-hbkid
hktid = pcec-hktid
_wait = 'X'
EXCEPTIONS
foreign_lock = 8.
up_subrc = sy-subrc.
IF up_subrc EQ 0 OR sy-batch NE space.
EXIT.
ENDIF.
SET EXTENDED CHECK OFF.
CALL FUNCTION 'POPUP_TO_CONFIRM_WITH_MESSAGE'
EXPORTING
diagnosetext1 = text-900
diagnosetext2 = sy-msgv1
diagnosetext3 = text-901
textline1 = text-902
textline2 = text-903
titel = text-904
IMPORTING
answer = up_answer.
IF up_answer NE 'J'.
EXIT.
ENDIF.
SET EXTENDED CHECK ON.
ENDDO.
IF up_subrc NE 0. "Zahlungsträgerdatei ist durch
IF sy-batch EQ space. "anderen Benutzer gesperrt
PERFORM scheckdruck_mail. "payment register is locked by
MESSAGE a556(fs) WITH sy-msgv1."another user
ELSE.
MESSAGE s556(fs) WITH sy-msgv1.
MESSAGE s549(fs).
STOP.
ENDIF.
ENDIF.
ENDIF.
ENDFORM. "Schecknummern sperren
*----------------------------------------------------------------------*
* FORM SCHECKNUMMER_ERMITTELN *
*----------------------------------------------------------------------*
* Erste, nächste bzw. letzte Schecknummer ermitteln *
* find out first, next or last check number *
*----------------------------------------------------------------------*
* TYP = 1 erster benutzter Scheck *
* first used check *
* 2 Scheck (bei Seitenüberlauf nur die erste Seite) *
* check (only first page when overflow) *
* 3 Formularabschluß *
* summary *
*----------------------------------------------------------------------*
FORM schecknummer_ermitteln USING typ.
DATA: hlp_rwbtr LIKE reguh-rwbtr.
IF flg_restart EQ 0. "kein Restart
"no restart
IF pcec-checl IS INITIAL.
regud-checf = pcec-checf. "Start mit neuem Stapel
regud-stapf = pcec-stapl. "start with a new lot
regud-chect = pcec-checf.
regud-stapt = pcec-stapl.
*pcec = pcec.
ELSE.
CALL FUNCTION 'ADD_N_TO_CHECK_NUMBER'
EXPORTING
i_pcec = pcec
i_n = 1
IMPORTING
e_pcec = *pcec.
IF typ EQ 1.
regud-checf = *pcec-checl. "erste Schecknummer
regud-stapf = *pcec-stapl. "first check number
regud-chect = *pcec-checl.
regud-stapt = *pcec-stapl.
ELSE.
regud-chect = *pcec-checl. "nächste/letzte Schecknummer
regud-stapt = *pcec-stapl. "next/last check number
ENDIF.
ENDIF.
IF *pcec-zwels NE space AND *pcec-zwels NA reguh-rzawe.
IF sy-batch EQ space.
MESSAGE a665(fs) WITH reguh-rzawe *pcec-stapl *pcec-zwels.
ELSE.
MESSAGE s665(fs) WITH reguh-rzawe *pcec-stapl *pcec-zwels.
MESSAGE s549(fs).
STOP.
ENDIF.
ENDIF.
ELSE. "Restart
IF typ EQ 1.
CALL FUNCTION 'GET_CHECK_INTERVAL'
EXPORTING
i_zbukr = zw_zbukr-low
i_hbkid = sel_hbki-low
i_hktid = sel_hkti-low
i_check = hlp_checf_restart
IMPORTING
e_pcec = pcec.
pcec-checl = hlp_checf_restart.
regud-checf = pcec-checl. "erste Schecknummer
regud-stapf = pcec-stapl. "first check number
regud-chect = pcec-checl.
regud-stapt = pcec-stapl.
ELSE.
IF hlp_laufk NE 'P'. "FI-Beleg vorhanden
SELECT * FROM payr "Scheck zum Zahlungsbeleg
WHERE zbukr EQ reguh-zbukr "payment document's check
AND vblnr EQ reguh-vblnr
AND gjahr EQ regud-gjahr
AND voidr EQ 0.
ENDSELECT.
ELSE. "HR-Abrechnung vorhanden
IF NOT reguh-seqnr IS INITIAL.
SELECT * FROM payr
WHERE pernr EQ reguh-pernr
AND seqnr EQ reguh-seqnr
AND btznr EQ reguh-btznr
AND voidr EQ 0.
ENDSELECT.
ELSE. "HR-Sonderfall Stammdatenabschlag
hlp_rwbtr = - reguh-rwbtr.
SELECT * FROM payr
WHERE pernr EQ reguh-pernr
AND seqnr EQ reguh-seqnr
AND btznr EQ reguh-btznr
AND zaldt EQ reguh-zaldt
AND rwbtr EQ hlp_rwbtr
AND waers EQ reguh-waers
AND voidr EQ 0.
ENDSELECT.
ENDIF.
ENDIF.
IF typ EQ 2 AND payr-checv NE space.
IF payr-checv NE '*'.
SELECT * FROM payr
WHERE zbukr EQ payr-zbukr
AND hbkid EQ payr-hbkiv
AND hktid EQ payr-hktiv
AND rzawe EQ payr-rzawe
AND chect EQ payr-checv
AND voidr EQ 2.
EXIT.
ENDSELECT.
ELSE.
CALL FUNCTION 'GET_CHECK_INTERVAL'
EXPORTING
i_check = payr-chect
i_hbkid = payr-hbkid
i_hktid = payr-hktid
i_zbukr = payr-zbukr
IMPORTING
e_pcec = pcec.
* The check might not be last one printed from the lot
pcec-checl = payr-chect.
CALL FUNCTION 'SUBTRACT_N_FROM_CHECK_NUMBER'
EXPORTING
i_pcec = pcec
IMPORTING
e_pcec = pcec
EXCEPTIONS
not_filled = 1
not_found = 2
not_numeric = 3
not_valid = 4
OTHERS = 5.
IF sy-subrc EQ 0.
SELECT SINGLE * FROM payr
WHERE zbukr EQ payr-zbukr
AND hbkid EQ payr-hbkid
AND hktid EQ payr-hktid
AND rzawe EQ payr-rzawe
AND chect EQ pcec-checl
AND voidr EQ 2.
ENDIF.
ENDIF.
ENDIF.
CALL FUNCTION 'GET_CHECK_INTERVAL'
EXPORTING "zugehöriger Stapel
i_zbukr = zw_zbukr-low "accompanying lot
i_hbkid = sel_hbki-low
i_hktid = sel_hkti-low
i_check = payr-checf
IMPORTING
e_pcec = pcec.
pcec-checl = payr-checf.
IF typ EQ 2 AND flg_restart NE 2.
CALL FUNCTION 'ADD_N_TO_CHECK_NUMBER'
EXPORTING
i_pcec = pcec
i_n = par_anzp
IMPORTING
e_pcec = pcec.
ENDIF.
IF typ EQ 3.
CALL FUNCTION 'ADD_N_TO_CHECK_NUMBER'
EXPORTING "nächster Scheck=Formularabschluß
i_pcec = pcec "next check=summary
i_n = 1
IMPORTING
e_pcec = pcec.
IF flg_restart NE 2 AND par_anzp NE 0.
PERFORM schecks_umnumerieren.
ENDIF.
ENDIF.
regud-chect = pcec-checl. "nächste/letzte Schecknummer
regud-stapt = pcec-stapl. "next/last check number
ENDIF.
ENDIF.
hlp_seite = '1'.
ENDFORM. "Schecknummer ermitteln
*----------------------------------------------------------------------*
* FORM SCHECKAVIS_ZEILE *
*----------------------------------------------------------------------*
* Schreiben einer Zeile des Avis zum Scheck *
* Write one line of the remittance advice of the check *
*----------------------------------------------------------------------*
* keine USING-Parameter *
* no USING-parameters *
*----------------------------------------------------------------------*
FORM scheckavis_zeile.
CALL FUNCTION 'WRITE_FORM'
EXPORTING
element = hlp_ep_element
function = 'APPEND'
EXCEPTIONS
window = 1
element = 2.
IF sy-subrc EQ 2.
err_element-fname = t042e-zforn.
err_element-fenst = 'MAIN'.
err_element-elemt = hlp_ep_element.
err_element-text = text_525.
COLLECT err_element.
ENDIF.
* Vornumerierte Schecks: Schecknummer hochzählen ab 2.Seite
* prenumbered checks: add 1 to check number
IF flg_schecknum EQ 1.
CALL FUNCTION 'GET_TEXTSYMBOL'
EXPORTING
line = '&PAGE&'
start_offset = 0
IMPORTING
value = hlp_page.
IF hlp_page NE hlp_seite.
hlp_seite = hlp_page.
PERFORM schecknummer_addieren.
ENDIF.
ENDIF.
ENDFORM. "Scheckavis Zeile
*----------------------------------------------------------------------*
* FORM SCHECKNUMMER_ADDIEREN *
*----------------------------------------------------------------------*
* Werden zu einem Scheck mehrere Seiten gedruckt (Probedruck oder *
* Seitenüberlauf), so wird ab Seite 2 mit dieser Routine hochgezählt *
* If one check has more than 1 page (test or overflow), this routine *
* computes the current check number *
*----------------------------------------------------------------------*
* keine USING-Parameter *
* no USING-parameters *
*----------------------------------------------------------------------*
FORM schecknummer_addieren.
*pcec = pcec.
IF pcec-checl EQ space. "neuer Stapel / new lot
*pcec-checl = *pcec-checf.
hlp_page = hlp_page - 1.
ELSEIF flg_restart NE 0. "Restart
hlp_page = hlp_page - 1.
ENDIF.
CALL FUNCTION 'ADD_N_TO_CHECK_NUMBER'
EXPORTING
i_pcec = *pcec
i_n = hlp_page
IMPORTING
e_pcec = *pcec.
regud-chect = *pcec-checl. "nächste Schecknummer
regud-stapt = *pcec-stapl. "next check number
ENDFORM. "Schecknummer addieren
*----------------------------------------------------------------------*
* FORM SCHECKS_UMNUMERIEREN *
*----------------------------------------------------------------------*
* Umnumerieren, wenn beim Restart, der nicht alle Schecks neu druckt, *
* Probedrucke angegeben worden sind *
* renumber, if in restart mode test prints are wished and not all *
* checks are to be reprinted *
*----------------------------------------------------------------------*
* keine USING-Parameter *
* no USING-parameters *
*----------------------------------------------------------------------*
FORM schecks_umnumerieren.
DATA: up_mode TYPE c.
DATA up_bdc LIKE bdcdata OCCURS 9 WITH HEADER LINE.
CLEAR up_bdc.
up_bdc-program = 'SAPMFCHK'.
up_bdc-dynpro = '400'.
up_bdc-dynbegin = 'X'.
APPEND up_bdc.
CLEAR up_bdc.
up_bdc-fnam = 'PAYR-ZBUKR'.
up_bdc-fval = zw_zbukr-low.
APPEND up_bdc.
CLEAR up_bdc.
up_bdc-fnam = 'PAYR-HBKID'.
up_bdc-fval = sel_hbki-low.
APPEND up_bdc.
CLEAR up_bdc.
up_bdc-fnam = 'PAYR-HKTID'.
up_bdc-fval = sel_hkti-low.
APPEND up_bdc.
CLEAR up_bdc.
up_bdc-fnam = 'PAYR-CHECF'.
up_bdc-fval = hlp_checf_restart.
APPEND up_bdc.
CLEAR up_bdc.
up_bdc-fnam = 'PAYR-CHECT'.
up_bdc-fval = pcec-checl.
APPEND up_bdc.
CLEAR up_bdc.
up_bdc-fnam = 'PAYR-VOIDR'.
up_bdc-fval = '01'.
APPEND up_bdc.
CALL FUNCTION 'GET_CHECK_INTERVAL'
EXPORTING
i_zbukr = zw_zbukr-low
i_hbkid = sel_hbki-low
i_hktid = sel_hkti-low
i_check = hlp_checf_restart
IMPORTING
e_pcec = *pcec.
*pcec-checl = hlp_checf_restart.
CALL FUNCTION 'ADD_N_TO_CHECK_NUMBER'
EXPORTING
i_pcec = *pcec
i_n = par_anzp
IMPORTING
e_pcec = *pcec.
CLEAR up_bdc.
up_bdc-fnam = 'PCEC-CHECF'.
up_bdc-fval = *pcec-checl.
APPEND up_bdc.
CLEAR up_bdc.
up_bdc-fnam = 'BDC_OKCODE'.
up_bdc-fval = '/18'.
APPEND up_bdc.
*kurzfristig entsperren, da die Sperre in FCH4 gesetzt wird
* IF PAR_NENQ EQ SPACE.
PERFORM schecknummern_entsperren. "RFFORI01
* ENDIF.
up_mode = 'N'.
CALL TRANSACTION 'FCH4' USING up_bdc MODE up_mode.
MESSAGE ID sy-msgid TYPE 'S' NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
pcec-checl = sy-msgv4.
ENDFORM. "Schecks umnumerieren
*----------------------------------------------------------------------*
* FORM SCHECKINFO_SPEICHERN *
*----------------------------------------------------------------------*
* Speichern der Scheckinformationen in PAYR und *
* aktualisieren des Schecknummernstandes in PCEC *
* store check information in PAYR and update the *
* last used number in PCEC *
*----------------------------------------------------------------------*
* TYP = 1 Probedrucke *
* test print *
* 2 Schecks, evtl. mit Überlauf *
* checks, perhaps with overflow *
* 3 Formularabschluß *
* summary *
*----------------------------------------------------------------------*
FORM scheckinfo_speichern USING typ.
CHECK flg_restart EQ 0. "nicht im Restartfall
"not in restart mode
DATA:
hlp_rwbtr LIKE reguh-rwbtr,
up_checf LIKE payr-checf, "Nummern der bedruckten Schecks
up_chect LIKE payr-chect, "numbers of printed checks
up_checv LIKE payr-checv.
* Nummern der bedruckten Schecks berechnen
* compute numbers of printed checks
IF pcec-checl IS INITIAL. "Start mit neuem Stapel
pcec-checl = pcec-checf. "start with a new lot
ELSE.
CALL FUNCTION 'ADD_N_TO_CHECK_NUMBER'
EXPORTING
i_pcec = pcec
i_n = 1
IMPORTING
e_pcec = pcec.
ENDIF.
up_checf = pcec-checl.
IF cnt_seiten GT 1.
cnt_seiten = cnt_seiten - 1.
CALL FUNCTION 'ADD_N_TO_CHECK_NUMBER'
EXPORTING
i_pcec = pcec
i_n = cnt_seiten
IMPORTING
e_pcec = pcec.
cnt_seiten = cnt_seiten + 1.
ENDIF.
up_chect = pcec-checl.
IF zw_xvorl EQ space. "Echtlauf (PAYR und PCEC updaten)
"production run
* Prüfen, ob Eintrag bereits in PAYR vorhanden ist
* test that entry does not already exist in PAYR
SELECT * FROM payr
WHERE ichec EQ space
AND zbukr EQ pcec-zbukr
AND hbkid EQ pcec-hbkid
AND hktid EQ pcec-hktid
AND chect EQ up_chect.
ENDSELECT.
IF sy-subrc EQ 0. "Schecknummer bereits vorhanden
CALL FUNCTION 'CLOSE_FORM'. "check number already exists
ROLLBACK WORK.
fimsg-msgid = 'FS'.
fimsg-msgv1 = pcec-zbukr.
fimsg-msgv2 = pcec-hbkid.
fimsg-msgv3 = pcec-hktid.
fimsg-msgv4 = up_chect.
PERFORM message USING 552.
fimsg-msgid = 'FS'.
PERFORM message USING 549.
PERFORM fehlermeldungen.
PERFORM information.
IF sy-batch EQ space.
MESSAGE i552(fs)
WITH pcec-zbukr pcec-hbkid pcec-hktid up_chect.
ENDIF.
STOP.
ENDIF.
* PAYR füllen und Scheckinfo abspeichern
* fill PAYR and store check information
CLEAR payr.
payr-mandt = sy-mandt.
payr-zbukr = pcec-zbukr.
payr-hbkid = pcec-hbkid.
payr-hktid = pcec-hktid.
payr-rzawe = reguh-rzawe.
payr-laufd = zw_laufd.
payr-laufi = zw_laufi.
payr-pridt = sy-datlo.
payr-priti = sy-timlo.
payr-prius = sy-uname.
CASE typ.
* Probedrucke
* test prints
WHEN 1.
payr-checf = up_checf.
payr-chect = up_chect.
payr-voidr = 1.
payr-voidd = sy-datlo.
payr-voidu = sy-uname.
CALL FUNCTION 'VOID_CHECKS'
EXPORTING
i_payr = payr.
* Schecks, evtl. mit Überlauf
* checks, perhaps with overflow
WHEN 2.
IF cnt_seiten GT 1. "Überlauf
payr-checv = pcec-checl. "overflow
payr-hbkiv = pcec-hbkid.
payr-hktiv = pcec-hktid.
CALL FUNCTION 'SUBTRACT_N_FROM_CHECK_NUMBER'
EXPORTING
i_pcec = pcec
i_n = 1
IMPORTING
e_pcec = pcec.
payr-checf = up_checf.
payr-chect = pcec-checl.
payr-voidr = 2.
payr-voidd = sy-datlo.
payr-voidu = sy-uname.
CALL FUNCTION 'VOID_CHECKS'
EXPORTING
i_payr = payr
IMPORTING
e_checv = up_checv.
CLEAR payr. "Vorbereitung für echten Scheck
payr-checv = up_checv. "mit Rückverweis zum entwerteten
payr-hbkiv = pcec-hbkid. "Scheck
payr-hktiv = pcec-hktid. "prepare genuine check
CALL FUNCTION 'ADD_N_TO_CHECK_NUMBER'
EXPORTING
i_pcec = pcec
i_n = 1
IMPORTING
e_pcec = pcec.
ENDIF.
MOVE-CORRESPONDING reguh TO payr.
IF hlp_laufk EQ 'P'.
payr-vblnr = space.
payr-kunnr = space.
payr-lifnr = space.
ENDIF.
IF payr-rwbtr EQ 0. "zero net check with special
IF tvoid-sytyp NE 4. "void reason code
SELECT * FROM tvoid WHERE sytyp EQ 4.
EXIT.
ENDSELECT.
ENDIF.
payr-voidr = tvoid-voidr.
payr-voidd = sy-datlo.
payr-voidu = sy-uname.
ENDIF.
payr-strgb = reguh-srtgb.
payr-gjahr = regud-gjahr.
payr-rwbtr = - payr-rwbtr.
payr-rwskt = - payr-rwskt.
payr-checf = up_chect.
payr-chect = up_chect.
payr-pridt = sy-datlo.
payr-priti = sy-timlo.
payr-prius = sy-uname.
tab_uebergreifend-zbukr = reguh-zbukr.
tab_uebergreifend-vblnr = reguh-vblnr.
READ TABLE tab_uebergreifend.
IF sy-subrc EQ 0.
payr-xbukr = 'X'.
ELSE.
payr-xbukr = space.
ENDIF.
IF flg_neud EQ 1.
IF payr-checv NE space OR *payr-checv NE space.
payr-checv = '*'.
ENDIF.
ENDIF.
INSERT payr.
UPDATE pcec.
* Schecknummer merken für das Avis
* memorize check number for advice printing
tab_schecks-zbukr = reguh-zbukr.
tab_schecks-vblnr = reguh-vblnr.
tab_schecks-chect = payr-chect.
APPEND tab_schecks.
CASE flg_neud.
* Beim Neudruck alten Scheck entwerten
* void old check in reprint mode
WHEN 1.
PERFORM scheck_entwerten.
IF payr-checv EQ space.
payr-hbkiv = *payr-hbkid.
payr-hktiv = *payr-hktid.
payr-checv = *payr-chect.
ENDIF.
UPDATE payr.
* Beim Neudruck ohne Angabe von Schecks alle Kandidaten
* entwerten (sofern nicht bereits geschehen) und verweisen
* void all relevant checks if no check numbers were specified
* on the selection screen and set pointer to new check
WHEN 2.
IF hlp_laufk NE 'P'.
SELECT * FROM payr INTO *payr
WHERE zbukr EQ payr-zbukr
AND vblnr EQ payr-vblnr
AND gjahr EQ payr-gjahr
AND ( hbkid NE payr-hbkid
OR hktid NE payr-hktid
OR chect NE payr-chect ).
PERFORM scheck_entwerten.
ENDSELECT.
ELSE.
IF NOT reguh-seqnr IS INITIAL.
SELECT * FROM payr INTO *payr
WHERE pernr EQ reguh-pernr
AND seqnr EQ reguh-seqnr
AND btznr EQ reguh-btznr
AND ( zbukr NE payr-zbukr
OR hbkid NE payr-hbkid
OR hktid NE payr-hktid
OR chect NE payr-chect ).
PERFORM scheck_entwerten.
ENDSELECT.
ELSE.
hlp_rwbtr = - reguh-rwbtr.
SELECT * FROM payr INTO *payr
WHERE pernr EQ reguh-pernr
AND seqnr EQ reguh-seqnr
AND btznr EQ reguh-btznr
AND zaldt EQ reguh-zaldt
AND rwbtr EQ hlp_rwbtr
AND waers EQ reguh-waers
AND ( zbukr NE payr-zbukr
OR hbkid NE payr-hbkid
OR hktid NE payr-hktid
OR chect NE payr-chect ).
PERFORM scheck_entwerten.
ENDSELECT.
ENDIF.
ENDIF.
IF sy-dbcnt NE 0.
IF sy-dbcnt EQ 1 AND payr-checv EQ space.
payr-hbkiv = *payr-hbkid.
payr-hktiv = *payr-hktid.
payr-checv = *payr-chect.
ELSE.
payr-checv = '*'.
ENDIF.
UPDATE payr.
ENDIF.
ENDCASE.
* Formularabschluß
* summary
WHEN 3.
payr-checf = up_checf.
payr-chect = up_chect.
payr-voidr = 3.
payr-voidd = sy-datlo.
payr-voidu = sy-uname.
CALL FUNCTION 'VOID_CHECKS'
EXPORTING
i_payr = payr.
ENDCASE.
CALL FUNCTION 'DB_COMMIT'.
ENDIF.
ENDFORM. "Scheckinfo speichern
*----------------------------------------------------------------------*
* FORM SCHECK_ENTWERTEN *
*----------------------------------------------------------------------*
* Entwerten der alten Schecks bei Neudruck und Verweis zum neuen Scheck*
* Void old checks in reprint mode and set pointer to new check +
*----------------------------------------------------------------------*
* keine USING-Parameter *
* no USING-parameters *
*----------------------------------------------------------------------*
FORM scheck_entwerten.
IF *payr-checv NE space.
IF *payr-checv NE '*'.
UPDATE payr SET hbkiv = payr-hbkid
hktiv = payr-hktid
checv = payr-chect
WHERE zbukr EQ *payr-zbukr
AND hbkid EQ *payr-hbkiv
AND hktid EQ *payr-hktiv
AND rzawe EQ *payr-rzawe
AND chect EQ *payr-checv.
ELSE.
UPDATE payr SET hbkiv = payr-hbkid
hktiv = payr-hktid
checv = payr-chect
WHERE zbukr EQ *payr-zbukr
AND hbkid EQ *payr-hbkid
AND hktid EQ *payr-hktid
AND rzawe EQ *payr-rzawe
AND checv EQ *payr-chect.
ENDIF.
payr-checv = '*'.
ENDIF.
*payr-hbkiv = payr-hbkid.
*payr-hktiv = payr-hktid.
*payr-checv = payr-chect.
IF *payr-voidr EQ 0.
*payr-voidr = tvoid-voidr.
ENDIF.
*payr-voidd = sy-datlo.
*payr-voidu = sy-uname.
*payr-extrd = 0.
*payr-extrt = 0.
UPDATE *payr.
ENDFORM. "Scheck entwerten
*----------------------------------------------------------------------*
* FORM SCHECKNUMMERN_ENTSPERREN *
*----------------------------------------------------------------------*
* Entsperren des gedruckten Schecknummernbereichs *
* dequeue check numbers +
*----------------------------------------------------------------------*
* keine USING-Parameter *
* no USING-parameters *
*----------------------------------------------------------------------*
FORM schecknummern_entsperren.
CHECK zw_xvorl EQ space. "nur bei Echtlauf
"only after production run
CALL FUNCTION 'DEQUEUE_ALL'.
ENDFORM. "Schecknummern entsperren
*----------------------------------------------------------------------*
* FORM SCHECKDRUCK_MAIL *
*----------------------------------------------------------------------*
* Im Online-Scheckdruck wird ein Mail versendet, wenn der Druck *
* nicht erfolgreich war *
* Using post + print the user will get a mail if the print was not *
* successfull *
*----------------------------------------------------------------------*
* keine USING-Parameter *
* no USING-parameters *
*----------------------------------------------------------------------*
FORM scheckdruck_mail.
CHECK sy-tcode EQ 'FBZ4'.
DATA BEGIN OF up_object_hd_change.
INCLUDE STRUCTURE sood1.
DATA END OF up_object_hd_change.
DATA BEGIN OF up_user.
INCLUDE STRUCTURE soud3.
DATA END OF up_user.
DATA BEGIN OF up_objcont OCCURS 10.
INCLUDE STRUCTURE soli.
DATA END OF up_objcont.
DATA BEGIN OF up_objhead OCCURS 1.
INCLUDE STRUCTURE soli.
DATA END OF up_objhead.
DATA BEGIN OF up_objpara OCCURS 10.
INCLUDE STRUCTURE selc.
DATA END OF up_objpara.
DATA BEGIN OF up_objparb OCCURS 1.
INCLUDE STRUCTURE soop1.
DATA END OF up_objparb.
DATA BEGIN OF up_receivers OCCURS 1.
INCLUDE STRUCTURE soos1.
DATA END OF up_receivers.
CLEAR:
up_object_hd_change,
up_user,
up_objcont,
up_objhead,
up_objpara,
up_objparb,
up_receivers.
REFRESH:
up_objcont,
up_objhead,
up_objpara,
up_objparb,
up_receivers.
SET EXTENDED CHECK OFF.
up_object_hd_change-objla = sy-langu.
up_object_hd_change-objnam = text-910.
up_object_hd_change-objdes = text-911.
up_object_hd_change-objsns = 'F'.
up_object_hd_change-vmtyp = 'T'.
up_object_hd_change-acnam = 'FBZ5'.
up_user-sapnam = sy-uname.
CALL FUNCTION 'SO_NAME_CONVERT'
EXPORTING
name_in = up_user
IMPORTING
name_out = up_user
EXCEPTIONS
OTHERS = 8.
IF sy-subrc NE 0.
up_user-usrnam = sy-uname.
ENDIF.
up_objcont-line = space. APPEND up_objcont.
up_objcont-line = text-912. APPEND up_objcont.
up_objcont-line = text-913. APPEND up_objcont.
up_objcont-line = space. APPEND up_objcont.
up_objcont-line = text-914.
GET PARAMETER ID 'BUK' FIELD reguh-zbukr.
GET PARAMETER ID 'BLN' FIELD reguh-vblnr.
IF regud-gjahr EQ 0.
GET PARAMETER ID 'GJR' FIELD regud-gjahr.
ENDIF.
REPLACE '&' WITH:
reguh-vblnr INTO up_object_hd_change-objdes,
reguh-zbukr INTO up_objcont-line,
reguh-vblnr INTO up_objcont-line,
regud-gjahr INTO up_objcont-line.
APPEND up_objcont.
up_objcont-line = space. APPEND up_objcont.
up_objcont-line = text-915. APPEND up_objcont.
up_objcont-line = text-916. APPEND up_objcont.
up_objpara-name = 'GJR'.
up_objpara-low = regud-gjahr. APPEND up_objpara.
up_objpara-name = 'BLN'.
up_objpara-low = reguh-vblnr. APPEND up_objpara.
up_receivers-recnam = up_user-usrnam.
up_receivers-acall = 'X'.
up_receivers-sndex = 'X'. APPEND up_receivers.
SET EXTENDED CHECK ON.
CALL FUNCTION 'SO_OBJECT_SEND'
EXPORTING
object_hd_change = up_object_hd_change
object_type = 'RAW'
owner = up_user-usrnam
TABLES
objcont = up_objcont
objhead = up_objhead
objpara = up_objpara
objparb = up_objparb
receivers = up_receivers
EXCEPTIONS
OTHERS = 4.
COMMIT WORK.
ENDFORM. "Scheckdruck Mail
