Field PAYR-LAUFI

Hi,
I need advice on this field.
I can create my own 'LAUFI' using txn F110.
But if I post manually using F-53 or F-58, the system will auto generate this 'LAUFI'.
when I check the field content; i can have number and user id.. e.g '00001o, 00003o, HNHAR, JENN'.
so my question is, how and where can i get this LAUFI auto generate function in SAP?
I need to control the system from generating using the user id.
Because I have problem to find the payment record inside table REGUH and REGUP based on this LAUFI.
I have no problem to select the payment record if the LAUFI is number like 0001o or 0002o.
one more question, why inside the table, this LAUFI stored as 00001, but to display the DME file (txn FDTA or FBPM), i need to add 'o' for the number... e.g. '00001o', '00004o'? currently i hardcode my program with the addtional 'o', but what happen if there is other alphabet been used?
that's all. thanks soo much.

although I apply this note, but still not resolve my problem.
I have customized the DME tree to cater for the special payment scenario (partial, partial+full, downpayment).
To get the FI details, instead of reading from the BKPF and BSEG table, i plan to use the REGUH and REGUP table.
With these 2 tables, everything is there, it is cater for all scenarios.
I don't have problem to extract data from REGUH/REGUP if the identification (LAUFI) is number (0000no) or declared ID from F110. My last solution for this, if I found the user id as the ID then I have to refer to the classic table BKPF/BSEG.

Similar Messages

User Exit for FCH5 for field PAYR-NNME1

Hi,
        Please provide some user exits for Tcode FCH5 for field PAYR-ZNME1 so that user cannot modify
customer information in existing checks.
Thks & Regds
Shailesh

Hi,
check below userexists for Tcode FCH5.
Exit Name     Description
FDTAX001            Enhancement to Transaction FDTA (event after the download)
FEDI0002              Function exits for EDI DOCS in FI - Incoming pyt adv.notes
FEDI0003              Function exits for EDI docs in FI - Save PEXR segments
FEDI0004              Function exits for EDI docs in FI - particular events
FEDI0006              Function Exits for EDI-docs in FI: Save IDCR Segments
RFFOX003            Frame for user exit RFFOX003 (in program RFFOM100)
RFFOX041            Framework for user exit RFFOX041 (in program RFFOBE_I)
RFFOX042            Framework for user exit RFFOX042 (in program RFFOBE_E)
RFFOX043            Framework for user exit RFFOX043 (in program RFFOBE_D)
RFFOX061            Frame for user exit RFFOX061 (in program RFFOCH_P)
RFFOX062            Frame for user exit RFFOX062 (in program RFFOCH_P)
RFFOX063            Frame for user exit RFFOX063 (in program RFFOCH_P)
RFFOX064            Frame for user exit RFFOX064 (in program RFFOCH_P)
RFFOX065            Frame for user exit RFFOX065 (in program RFFOCH_P)
RFFOX066            Frame for user exit RFFOX066 (in program RFFOCH_P)
RFFOX071            Frame for user exit RFFOX071 (in program RFFOCH_U)
RFFOX072            Frame for user exit RFFOX072 (in program RFFOCH_U)
RFFOX073            Frame for user exit RFFOX073 (in program RFFOCH_U)
RFFOX074            Frame for user exit RFFOX074 (in program RFFOCH_U)
RFFOX075            Frame for user exit RFFOX075 (in program RFFOCH_U)
RFFOX081            Frame for user exit RFFOX081 (in program RFFOF__T)
RFFOX082            Frame for user exit RFFOX082 (in program RFFOF__T)
RFFOX100            Frame for user exit RFFOX100 (in program RFFOUS_T)
RFFOX101            Frame for user exit RFFOX101 (in program RFFOUS_T)
RFFOX102            Frame for user exit RFFOX102 (in program RFFOUS_T)
RFFOX103            Frame for user exit RFFOX103 (in program RFFOUS_T)
RFFOX104            user exit
RFFOX105            Frame for user exit RFFOX105 (in program RFFOUS_T)
RFFOX200            Frame for user exit RFFOX200 (in program RFFONZ_T)
RFFOX210            Frame for user exit RFFOX210 (in program RFFOAU_T)
RFFOX211            Frame for user exit RFFOX211 (in program RFFONZ_T)
RFFOX230            General program for user exit RFFOX230 (in program RFF
RFFOX240            Enhancement for User Exit 240 (RFFOAT_P)
RFFOX250            Enhancement for User Exit 250 (RFFODK_E)
RFFOX901            Framework for user exit RFFOX901 (in program RFFOM100)
RFFOX902            Framework for user exit RFFOX902 (in program RFFOM100)
Thanks

Adding fields 2 standard payment list program (RFZALI20) in F110 t-code

hi frnds,
it is a standard progrm using the logical database pfy. to retrive data.
i have to add 5 more fileds along with footer approved by and page break(shown below) to the output list.
please help me with ur inputs.
Header Data:
*Note:
Keep the header data same as standard payment list.
Summary Data:
*Note:
Following fields are only those needs to be added in customized program. For the rest, please refer to the standard program
·     Vendor Chinese Name
·     Check/TT No.
·     PO No.
·     Purchasing Group
·     Reference
·     Due Date
Footer Data:
*Note:
The Footer Data need to be display at the bottom of each page:
·     Review By
·     Prepared By:
Breaking:
·     Page break when information overflow
ZH Name     C     20     As standard     As standard     ADRC- NAME1NAME2     Display vendor Chinese name:Select NAME1NAME2 from ADRCWHERE ADRC-ADDRNUMBER=REGUH- ADRNRAND ADRC-NATION = CIf no data can be retrieved, leave the field as blank.Wrap if the name exceed the limit. Insert the field under Vendor English Name in payment list.Refer to the attached for layout, Highlighted is place should be inserted to :
Check/TT No.     C     8     As standard     As standard     PAYR-CHECT     Display Check/TT number of this payment documentSelect CHECT from PAYRWhere PAYR-LAUFD = REGUH-LAUFDAnd PAYR-LAUFI= REGUH-LAUFIAnd PAYR-VBLNR= REGUH-VBLNR which is displayed in current payment listInsert the field in header line 1 of layout pop-up.
PO No.     C     10     As standard     As standard     BSEG-EBELN     Display the PO number of invoice documentSelect EBELN from BSEG Where BSEG-BELNR=REGUP-BELNRBSEG-GJAHR=REGUP-GJAHRAnd BSEG-BUZEI= REGUP-BUZEIInsert the field in position line 1 of layout pop-up.
Purchasing Group     C     4     As standard     As standard     EKKO-EKGRP     Display purchasing group in order to identify the buyer in charge of related POSelect EKKO-EKGRP from EKKO where EKKO-EBELN =BSEG-EBELN Where BSEG-BELNR=REGUP-BELNRBSEG-GJAHR=REGUP-GJAHR And BSEG-BUZEI= REGUP-BUZEIInsert the field in position line 1 of layout pop-up.
Reference     C     10     As standard     As standard     BKPF-XBLNR     Display physical invoice number of each invoice document in SAPSelect XBLNR from BKPF Where BKPF-BELNR=REGUP-BELNRBKPF-GJAHR=REGUP-GJAHRInsert the field in position line 1 of layout pop-up.
Due Date     C     10     As standard     As standard     Calculated     Display due date for the invoice document.Refer to the calculated logic of the field RFPOSXEXT-FAEDT in program SAPLKKBL (T-Code:FBL1N)Insert the field in position line 1 of layout pop-up.

Hi Sridhar,
Please can you help me. I got the same problem to add the fields to the Payment run Program (RFZALI20). Can You please suggest me how can i solve this problem. I need to add LIFNR, XBLNR & EBELN fields from REGUP table.
Can you please help me ASAP.
Thanks & Regards
Rajendra
Message was edited by:
        Rajendra Prasad

How to add a field in a table control of the subscreen 6103 of tcode f-03

hi abap gurus....i m new to abap and this is my first post ..i m hoping for a reply soon as it is urgent....
my requirement is to add a field PAYR-CHECF to a table control of the subscreen 6103 of tcode f-03

Hi,
Please see documentation of enhancement MM06E005 (transaction SMOD).
Userexit EXIT_SAPMM06E_016 is a component of enhancement MM06E005.
With that enhancement, you can
-   Maintain/supply your own customer fields
-   Update your own customer-specific tables
You cannot:
-   Change standard fields
-   Change data that depends on the document header in the items
-   Change data that depends on an item in the document header
Please have a look at Business Add-In (BAdI) ME_PROCESS_PO_CUST.
Regards,
Edit

Payment run, F110: Regup-LAUFI=00001O, 00002O, ... 00014O, No history

Hi expert,
In REGUP table, I found that the field: LAUFI stored with some auto-generated ID, example:
00001O,
00002O, ...
00014O
These payment run cannot be searched through the screen of automatic payment transaction F110 (by combination of their run date and the above-mentioned run ID (identification)).
These data complicated our customized report of payment run printing. My case is I have same payment document (clearing document created by F110), with same run date, but different identification, as follows:
00014O (seem auto-generated identification)
NG335 (user defined, and with combination of run date, this F110 history is searchable through screen of automatic payment transaction)
In REGUH table, the field of LAUFI also behaves same as REGUP, which has auto-generated identification.
Does anyone face similar problem?
Why there is auto-generated identification? What is its functions?
Thanks in advance.
sbmel

Hi Expert,
Additionally, I found that the field of LAUFI internally is 6 char, but at the the screen of automatic payment transaction F110, the maximum char that can be entered in the identification field is 5 char.
Therefore, can we concluded that those data of REGUH-LAUFI and REGUP-LAUFI that more than 5 char (if the length of LAUFI is 6 char), we can ignore them, as these data is auto-generated by payment run program at the back-end?
I still would like to know why automatic payment program (F110) wants to generate these line item (data).
Any comments from your side?
Thanks in advance.
sbmel

OUTPUT..URGENT

Hi frnds,
 i have modified a standard report to 'z' report.the output comes as like
standard abap list. when i execute the report in foreground and saves the output
in spreadsheet its fine but when i execute it in background the output is messed up.(excel)
 the background needs to be executed in sm37 and spool request is created then we
can see the file type and its output.(sp01).
 a standard program is attached in that report-RSBTCHH0 from where its takes
the output in excel.
Hoe to mail funcitionality to this report
 help me where to make the changes..
REPORT ZFCHKN00
LINE-COUNT (1)
LINE-SIZE 171
NO STANDARD PAGE HEADING
MESSAGE-ID FS.
TABLES:
AUTHA,
BHDGD, "Batch-Heading
BNKA, "Bankdaten
BKPF, "Accounting document header
PAYR, "Scheckdatei
RFSDO, "Select-Options
T001, "für das Land des Buchungskreises
T005, "für den Bankschlüsseltyp im Land
T012, "Banken
T012K, "Bankenkonten
T042Z, "Name des Zahlweges
TCURX, "Nachkommastellen
TVOIT, "Grund ungültiger Scheck, Text
BSAK, "Accounting: Secondary index for vendors (cleared items)
BSEG, "Accounting document segment
REGUH. "Payment data from payment progra
RANGES:
SEL_LAUD FOR PAYR-LAUFD,
SEL_LAUI FOR PAYR-LAUFI,
SEL_XDAT FOR PAYR-EXTRD,
SEL_XTIM FOR PAYR-EXTRT,
SEL_ECHT FOR PAYR-VOIDR,
TAB_RZAWE FOR PAYR-RZAWE.
INCLUDE RFEPOSC1. "Tabelle POSTAB für Rechnungsinfo
DATA:
FLG_INTENSIV(1) TYPE N, "1 - Color intensiv (Streifen)
FLG_POSTEN(1) TYPE N, "1 - Rechnungsposten selektiert
FLG_SUMME(1) TYPE N, "1 - Summe der EPs möglich
HLP_DATUM(10) TYPE C, "aufbereitetes Datum
HLP_VON/BIS(27) TYPE C, "von Nummer bis Nummer
HLP_SUBRC LIKE SY-SUBRC, "Returncode
HLP_WAERS LIKE POSTAB-WAERS, "Währung der EPs
SUM_WRSHB LIKE POSTAB-WRSHB,
SUM_ABZUG LIKE POSTAB-WSKTO, "Summen für die Rechnungssumme
SUM_NETTO LIKE POSTAB-WRSHB,
TXT_ZEILE(132) TYPE C, "Textzeile SYALLA asr 11456
TXT_ZEILE(171) TYPE C, "Textzeile SYALLA asr 11456
BEGIN OF TAB_SUMME OCCURS 10, "pro Zahlweg Summe je Währung
 WAERS LIKE PAYR-WAERS,
 RWBTR LIKE PAYR-RWBTR,
Inserted By Jassi on 04/14/04 - ASR# 23240
 DISER LIKE PAYR-RWBTR, "Discount Earned Total
 DISTA LIKE PAYR-RWBTR, "Discount Taken Total
 DISLO LIKE PAYR-RWBTR, "Discount Lost Total
END OF TAB_SUMME,
BEGIN OF TAB_LAUFK OCCURS 1.
 INCLUDE STRUCTURE ILAUFK.
DATA: END OF TAB_LAUFK,
BEGIN OF MIKLINE, "Feldleiste zur Aufnahem des
ZBUKR LIKE PAYR-ZBUKR, "variablen Teils der Mikro-Fiche-
HBKID LIKE PAYR-HBKID, "Zeile
HKTID LIKE PAYR-HKTID,
RZAWE LIKE PAYR-RZAWE,
CHECF LIKE PAYR-CHECF,
END OF MIKLINE.
DATA: FLAG TYPE C VALUE '0'.
DATA: DISAM TYPE P DECIMALS 5,
 DAYS_1 TYPE I,
 DAYS_2 TYPE I,
 PERC_1 TYPE P DECIMALS 3,
 PERC_2 TYPE P DECIMALS 3,
 DAYS_PAID TYPE I,
 DISER TYPE P DECIMALS 5,
 DISTA TYPE P DECIMALS 2,
 DISTOT(17),
 DISLO TYPE P DECIMALS 2.
ASR # 8269 RKSHARMA----
DATA: BVORG1 LIKE BKPF-BVORG,
 BVORG2 LIKE BKPF-BVORG,
 BUKRS1 LIKE BKPF-BUKRS,
 BUKRS2 LIKE BKPF-BUKRS,
 BELNR1 LIKE BKPF-BELNR,
 BELNR2 LIKE BKPF-BELNR,
 BELNR3 LIKE BKPF-BELNR,
 HKONT1 LIKE BSEG-HKONT,
 SHKZG1 LIKE BSEG-SHKZG,
 DMBTR1 LIKE BSEG-DMBTR.
FIELD-GROUPS:
HEADER,
ZAHLUNG, "means Payment
RECHNUNG. "means Calculation
INSERT
PAYR-HBKID
PAYR-HKTID
PAYR-XMANU
PAYR-RZAWE
PAYR-CHECT
POSTAB-BUKRS
POSTAB-GJAHR
POSTAB-BELNR
INTO HEADER.
INSERT
PAYR
INTO ZAHLUNG.
INSERT
POSTAB
INTO RECHNUNG.
Selektionsparameter *
INCLUDE: RFCHKI99, RFDBRMAC.
PARAMETERS: "Zahlender Buchungskreis
PAR_ZBUK LIKE PAYR-ZBUKR MEMORY ID BUK.
SELECT-OPTIONS:
SEL_HBKI FOR PAYR-HBKID, "Hausbank (Kurzschlüssel)
SEL_HKTI FOR PAYR-HKTID. "Kontenverbindung (Kurzschlüssel)
PARAMETERS: "Personalabrechnungsschecks
PAR_XPER LIKE RFPDO2-CHKNXPER MEMORY ID XHR.
SELECTION-SCREEN SKIP.
BEGIN_OF_BLOCK 0.
SELECT-OPTIONS:
SEL_BNKL FOR T012-BANKL NO-EXTENSION,"Bankleitzahl
SEL_BNKN FOR T012K-BANKN NO-EXTENSION."Bankkonto
SELECT_OPTION_SCHECK.
SELECT-OPTIONS:
SEL_WAER FOR PAYR-WAERS, "Währungsschlüssel
SEL_RWBT FOR PAYR-RWBTR. "Betrag
END_OF_BLOCK 0.
BEGIN_OF_BLOCK 1.
SELECT-OPTIONS:
SEL_ZALD FOR RFSDO-CHKLADAT, "Ausstellungsdatum
SEL_CPUD FOR RFSDO-CHKLEDAT, "Erstellungsdatum
S_BUDAT FOR BKPF-BUDAT,
SEL_BNCD FOR PAYR-BANCD, "Einlösedatum
SEL_USER FOR RFSDO-CHKLUSER, "Scheckaussteller
SEL_VBLN FOR PAYR-VBLNR, "Zahlungsbelegnummer
SEL_PERN FOR PAYR-PERNR, "Personalnummer
SEL_VOID FOR PAYR-VOIDR. "Ungültigkeitsgrund
SELECTION-SCREEN:
BEGIN OF LINE,
COMMENT 01(31) TEXT-015 FOR FIELD ZW_LAUFD.
PARAMETERS:
ZW_LAUFD LIKE PAYR-LAUFD, "Laufdatum
ZW_LAUFI LIKE PAYR-LAUFI, "Laufidentifikation
ZW_XVORL LIKE REGUH-XVORL NO-DISPLAY."Vorschlagslauf
SELECTION-SCREEN:
END OF LINE,
BEGIN OF LINE,
COMMENT 01(31) TEXT-016 FOR FIELD PAR_XDAT.
PARAMETERS:
PAR_XDAT LIKE PAYR-EXTRD, "Extraktdatum
PAR_XTIM LIKE PAYR-EXTRT. "Extraktuhrzeit
SELECTION-SCREEN END OF LINE.
END_OF_BLOCK 1.
BEGIN_OF_BLOCK 2.
PARAMETERS:
PAR_XAUS LIKE RFPDO1-CHKNXAUS, "Scheckaußenstandsliste
PAR_EPOS LIKE RFPDO-CHKNEPOS, "Gezahlte Posten
PAR_LSEP LIKE RFPDO-ALLGLSEP, "Listseparation
PAR_MIKF LIKE RFPDO-ALLGMIKF, "Mikro-Fiche-Information
PAR_LINE LIKE RFPDO1-ALLGLINE. "Zusatzüberschrift
END_OF_BLOCK 2.
Buchungskreis vorbelegen *
INITIALIZATION.
GET_FRAME_TITLE: 0,1,2.
GET_TEXT: 0,1.
IF PAR_XTIM IS INITIAL.
 SHIFT PAR_XTIM BY 6 PLACES.
ENDIF.
REFRESH TAB_LAUFK.
TAB_LAUFK-LAUFK = 'W'.
TAB_LAUFK-SIGN = 'E'.
APPEND TAB_LAUFK.
F4 für den Zahllauf *
AT SELECTION-SCREEN ON VALUE-REQUEST FOR ZW_LAUFD.
CALL FUNCTION 'F4_ZAHLLAUF'
 EXPORTING
 F1TYP = 'D'
 F2NME = 'ZW_LAUFI'
 IMPORTING
 LAUFD = ZW_LAUFD
 LAUFI = ZW_LAUFI
 TABLES
 LAUFK = TAB_LAUFK.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR ZW_LAUFI.
CALL FUNCTION 'F4_ZAHLLAUF'
 EXPORTING
 F1TYP = 'I'
 F2NME = 'ZW_LAUFD'
 IMPORTING
 LAUFD = ZW_LAUFD
 LAUFI = ZW_LAUFI
 TABLES
 LAUFK = TAB_LAUFK.
Prüfung der Eingaben (AT SELECTION-SCREEN) *
INCLUDE RFCHKI00.
IF PAR_XTIM IS INITIAL.
 SHIFT PAR_XTIM BY 6 PLACES.
ENDIF.
Seitentitel (Bankinformation und Überschrift) *
TOP-OF-PAGE.
FORMAT RESET.
MOVE MIKLINE TO BHDGD-GRPIN.
PERFORM BATCH-HEADING(RSBTCHH0).
ULINE.
SKIP.
TXT_ZEILE = TEXT-007.
REPLACE:
 '&HBKID' WITH PAYR-HBKID INTO TXT_ZEILE,
 '&BANKA' WITH BNKA-BANKA INTO TXT_ZEILE,
 '&ORT01' WITH BNKA-ORT01 INTO TXT_ZEILE.
WRITE:
/ TXT_ZEILE(16) COLOR 1 INVERSE,
 TXT_ZEILE+16(115).
TXT_ZEILE = TEXT-008.
REPLACE:
 '&BANKL' WITH T012-BANKL INTO TXT_ZEILE.
WRITE:
/ TXT_ZEILE(16) COLOR 1 INVERSE,
 TXT_ZEILE+16(115).
TXT_ZEILE = TEXT-009.
REPLACE:
 '&HKTID' WITH PAYR-HKTID INTO TXT_ZEILE,
 '&BANKN' WITH T012K-BANKN INTO TXT_ZEILE.
WRITE:
/ TXT_ZEILE(16) COLOR 1 INVERSE,
 TXT_ZEILE+16(115).
SKIP.
ULINE.
FORMAT COLOR 1 INTENSIFIED OFF.
WRITE: / SY-VLINE NO-GAP,
 T042Z-TEXT1,
 132 SY-VLINE. "syalla asr 11456
 171 SY-VLINE. "syalla asr 11456
FORMAT RESET.
ULINE.
TXT_ZEILE = TEXT-005.
IF PAR_XPER NE SPACE.
 TXT_ZEILE+15(10) = TEXT-017.
ENDIF.
IF PAR_XAUS NE SPACE.
 IF TXT_ZEILE CA '/'.
 WRITE:
 SPACE TO TXT_ZEILE+SY-FDPOS,
 SY-VLINE TO TXT_ZEILE+169.
 ENDIF.
ENDIF.
IF PAR_EPOS EQ SPACE.
 WRITE:
 / TXT_ZEILE COLOR 1 INTENSIFIED,
 132 'Disc earned' COLOR 1 INTENSIFIED, "syalla asr 11456
 149 'Disc taken'COLOR 1 INTENSIFIED, "syalla asr 11456
 161 'Disc lost'COLOR 1 INTENSIFIED, "syalla asr 11456
 171 SY-VLINE . "syalla asr 11456
ELSE.
 WRITE:
 / TXT_ZEILE COLOR 7 INTENSIFIED,
 / TEXT-006 COLOR 1 INTENSIFIED,
 171 SY-VLINE . "syalla asr 11456
 SUMMARY.
ENDIF.
ULINE.
Seitenende *
END-OF-PAGE.
ULINE.
Schecks selektieren *
START-OF-SELECTION.
Keine Verarbeitung von Vorschlagsläufen
IF ZW_XVORL NE SPACE.
 MESSAGE S615 WITH SY-REPID.
 STOP.
ENDIF.
Keine FI-Selektion bei HR und umgekehrt
CLEAR SEL_LAUI.
SEL_LAUI-LOW = '+++++P'.
SEL_LAUI-OPTION = 'CP'.
IF PAR_XPER EQ SPACE.
 SEL_LAUI-SIGN = 'E'.
 REFRESH SEL_PERN.
ELSE.
 SEL_LAUI-SIGN = 'I'.
 REFRESH SEL_VBLN.
 CLEAR SEL_VBLN.
 SEL_VBLN-OPTION = 'EQ'.
 SEL_VBLN-SIGN = 'I'.
 APPEND SEL_VBLN.
 CLEAR PAR_EPOS.
ENDIF.
IF ZW_LAUFI IS INITIAL.
 APPEND SEL_LAUI.
ENDIF.
Übergabe der Zahllauf- und Extraktparameter als Select-Option
IF NOT ( ZW_LAUFD IS INITIAL ).
 CLEAR SEL_LAUD.
 SEL_LAUD-LOW = ZW_LAUFD.
 SEL_LAUD-OPTION = 'EQ'.
 SEL_LAUD-SIGN = 'I'.
 APPEND SEL_LAUD.
ENDIF.
IF NOT ( ZW_LAUFI IS INITIAL ).
 CLEAR SEL_LAUI.
 SEL_LAUI-LOW = ZW_LAUFI.
 SEL_LAUI-OPTION = 'EQ'.
 SEL_LAUI-SIGN = 'I'.
 APPEND SEL_LAUI.
ENDIF.
IF NOT ( PAR_XDAT IS INITIAL ).
 CLEAR SEL_XDAT.
 SEL_XDAT-LOW = PAR_XDAT.
 SEL_XDAT-OPTION = 'EQ'.
 SEL_XDAT-SIGN = 'I'.
 APPEND SEL_XDAT.
ENDIF.
IF PAR_XTIM NE SPACE.
 CLEAR SEL_XTIM.
 SEL_XTIM-LOW = PAR_XTIM.
 SEL_XTIM-OPTION = 'EQ'.
 SEL_XTIM-SIGN = 'I'.
 APPEND SEL_XTIM.
ENDIF.
Nur gültige Schecks selektieren, wenn Währung gewünscht
IF NOT ( SEL_WAER IS INITIAL ).
 CLEAR SEL_ECHT.
 SEL_ECHT-OPTION = 'EQ'.
 SEL_ECHT-SIGN = 'I'.
 APPEND SEL_ECHT.
ENDIF.
Zusatztitel füllen
IF PAR_LINE EQ SPACE.
 PAR_LINE = TEXT-014.
 REPLACE '&BUKRS' WITH PAR_ZBUK INTO PAR_LINE.
ENDIF.
Abweichender Titel für die Scheckaußenstandsliste
IF PAR_XAUS NE SPACE.
 SY-TITLE = TEXT-013.
ENDIF.
Batch-Heading und Mikro-Fiche-Zeile vorbereiten
BHDGD-INIFL = 0.
BHDGD-LINES = SY-LINSZ.
BHDGD-UNAME = SY-UNAME.
BHDGD-REPID = SY-REPID.
BHDGD-LINE1 = SY-TITLE.
BHDGD-LINE2 = PAR_LINE.
BHDGD-MIFFL = PAR_MIKF.
BHDGD-SEPAR = PAR_LSEP.
BHDGD-DOMAI = 'BUKRS'.
BHDGD-BUKRS = PAR_ZBUK.
BHDGD-WERTE = PAR_ZBUK.
MIKLINE-ZBUKR = PAR_ZBUK.
PERFORM NEW-SECTION(RSBTCHH0).
Alle möglichen Zahlwege ermitteln, die Schecks produzieren, und
besondere Behandlung der Schecknummer-Parameter/Betrags-Select-Option
INCLUDE RFCHKI10.
SELECT SINGLE * FROM T005 WHERE LAND1 EQ T001-LAND1.
Selektion der Daten
SELECT * FROM PAYR
 WHERE ZBUKR EQ PAR_ZBUK
 AND HBKID IN SEL_HBKI
 AND HKTID IN SEL_HKTI
 AND RZAWE IN TAB_RZAWE
 AND CHECF LE PAR_CHKT
 AND CHECT GE PAR_CHKF
 AND LAUFD IN SEL_LAUD
 AND LAUFI IN SEL_LAUI
 AND VBLNR IN SEL_VBLN
 AND ZALDT IN SEL_ZALD
 AND WAERS IN SEL_WAER
 AND RWBTR IN SEL_RWBT
 AND BANCD IN SEL_BNCD
 AND EXTRD IN SEL_XDAT
 AND EXTRT IN SEL_XTIM
 AND ( PRIDT IN SEL_CPUD
 OR VOIDD IN SEL_CPUD )
 AND ( PRIUS IN SEL_USER
 OR VOIDU IN SEL_USER )
 AND VOIDR IN SEL_VOID
 AND VOIDR IN SEL_ECHT.
 CHECK PAYR-PERNR IN SEL_PERN.
 IF PAR_XAUS NE SPACE. "nur nicht eingelöste Schecks
 CHECK PAYR-XBANC EQ SPACE AND PAYR-VOIDR EQ SPACE.
 ENDIF.
Modification carried out by VChavva on 3/5/01
Check posting date of the document on the selection screen.
 IF NOT S_BUDAT IS INITIAL.
 SELECT SINGLE BUDAT FROM BKPF INTO BKPF-BUDAT
 WHERE BUKRS EQ PAYR-ZBUKR AND
 BELNR EQ PAYR-VBLNR AND
 GJAHR EQ PAYR-GJAHR AND
 BUDAT IN S_BUDAT.
 CHECK SY-SUBRC EQ 0.
 ENDIF.
End modification
 CLEAR POSTAB.
 IF PAYR-XMANU NE SPACE.
 PAYR-RZAWE = SPACE.
 ENDIF.
 EXTRACT ZAHLUNG.
 IF PAR_EPOS NE SPACE AND PAYR-VOIDR EQ SPACE.
 REFRESH: POSTAB.
 CALL FUNCTION 'GET_INVOICE_DOCUMENT_NUMBERS'
 EXPORTING
 I_XBUKR = PAYR-XBUKR
 I_ZBUKR = PAYR-ZBUKR
 I_VBLNR = PAYR-VBLNR
 I_GJAHR = PAYR-GJAHR
 TABLES
 T_INVOICE = POSTAB.
 LOOP AT POSTAB.
 IF POSTAB-XHELL EQ SPACE.
 EXTRACT RECHNUNG.
 ENDIF.
 ENDLOOP.
 ENDIF.
ENDSELECT.
IF SY-SUBRC NE 0.
 MESSAGE S509.
ENDIF.
SORT.
LOOP.
 PERFORM GET_DATA_FOR_DISCOUNT_EARNED. "syalla asr 11456
 PERFORM GET_DATA_FOR_DISCOUNT_TAKEN. "syalla asr 11456
 PERFORM GET_DATA_FOR_DISCOUNT_LOST. "syalla 11456
 AT NEW PAYR-HKTID.
 PERFORM WRITE_BANK.
 ENDAT.
 AT NEW PAYR-RZAWE.
 PERFORM WRITE_ZAHLWEG.
 ENDAT.
 AT ZAHLUNG.
 PERFORM WRITE_ZAHLUNG.
 ENDAT.
 AT RECHNUNG.
 PERFORM WRITE_RECHNUNG.
 ENDAT.
 AT END OF PAYR-CHECT.
 PERFORM WRITE_RECHNUNGSSUMME.
 ENDAT.
 AT END OF PAYR-RZAWE.
 PERFORM WRITE_ZAHLWEGSUMME.
 ENDAT.
ENDLOOP.
IF SY-BATCH NE SPACE.
 MESSAGE S620.
ENDIF.
FORM WRITE_BANK *
Bereitstellen der Zeilen mit den Bankinformationen für den Titel *
FORM WRITE_BANK.
MIKLINE-HBKID = PAYR-HBKID.
MIKLINE-HKTID = PAYR-HKTID.
SELECT SINGLE * FROM T012
 WHERE BUKRS EQ PAYR-ZBUKR
 AND HBKID EQ PAYR-HBKID.
SELECT SINGLE * FROM T012K
 WHERE BUKRS EQ PAYR-ZBUKR
 AND HBKID EQ PAYR-HBKID
 AND HKTID EQ PAYR-HKTID.
IF T005-BNKEY EQ '2'.
 T012-BANKL = T012K-BANKN.
ENDIF.
SELECT SINGLE * FROM BNKA
 WHERE BANKS EQ T012-BANKS
 AND BANKL EQ T012-BANKL.
ENDFORM.
FORM WRITE_ZAHLWEG *
Bereitstellen einer Zeile mit dem Namen des Zahlwegs für den Titel *
FORM WRITE_ZAHLWEG.
MIKLINE-RZAWE = PAYR-RZAWE.
MIKLINE-CHECF = PAYR-CHECF.
IF PAYR-RZAWE NE SPACE.
 SELECT SINGLE * FROM T042Z
 WHERE LAND1 EQ T001-LAND1
 AND ZLSCH EQ PAYR-RZAWE.
ELSEIF PAYR-XMANU EQ SPACE.
 T042Z-TEXT1 = TEXT-010.
ELSE.
 T042Z-TEXT1 = TEXT-011.
ENDIF.
NEW-PAGE.
FLG_INTENSIV = 1.
REFRESH TAB_SUMME.
ENDFORM.
FORM WRITE_ZAHLUNG *
Ausgabe einer Zeile mit Scheckinformationen *
FORM WRITE_ZAHLUNG.
IF PAR_EPOS NE SPACE. "Item Paid
 FORMAT COLOR 7 INTENSIFIED OFF.
ELSE.
 IF FLG_INTENSIV = 0.
 FLG_INTENSIV = 1.
 FORMAT COLOR 2 INTENSIFIED OFF.
 ELSE.
 FLG_INTENSIV = 0.
 FORMAT COLOR 2 INTENSIFIED.
 ENDIF.
ENDIF.
WRITE / SY-VLINE NO-GAP.
IF PAR_XPER NE SPACE AND PAYR-PERNR NE 0.
 PAYR-VBLNR = PAYR-PERNR.
ENDIF.
IF PAYR-VOIDR EQ SPACE.
 WRITE: PAYR-CHECT,
 PAYR-VBLNR,
 PAYR-ZALDT DD/MM/YYYY,
 PAYR-WAERS,
 (14) PAYR-RWBTR CURRENCY PAYR-WAERS NO-SIGN,
 60(30) PAYR-ZNME1.
 CLEAR TXT_ZEILE.
 TXT_ZEILE = PAYR-ZORT1.
 TXT_ZEILE+36 = PAYR-ZREGI.
 CONDENSE TXT_ZEILE.
 IF PAR_XAUS NE SPACE OR PAYR-XBANC EQ SPACE.
 WRITE:
 (38) TXT_ZEILE.
 ELSE.
 WRITE:
 (30) TXT_ZEILE.
 ENDIF.
 IF PAYR-XBANC NE SPACE.
 WRITE:
 117 PAYR-BANCD DD/MM/YYYY. "SYALLA ASR 11456
 122 payr-bancd dd/mm/yyyy. "SYALLA ASR 11456
 ENDIF.
 IF PAR_EPOS EQ SPACE. "Items paid
ASR 4176 BY RAJU
 DISER = DISTA + DISLO.
ASR 4176 BY RAJU
 WRITE: 128 DISER DECIMALS 2. "SYALLA asr 11456
 WRITE: 144 DISTA DECIMALS 2. "SYALLA asr 11456
 WRITE: 160 DISLO DECIMALS 2. "SYALLA asr 11456
 CLEAR: diser,dista,dislo,distot. "JASSI
 ENDIF.
ELSE.
 IF PAYR-CHECF EQ PAYR-CHECT.
 WRITE PAYR-CHECT.
 IF PAYR-VBLNR NE SPACE.
 WRITE: PAYR-VBLNR,
 PAYR-ZALDT DD/MM/YYYY.
 ENDIF.
 ELSE.
 WRITE:
 PAYR-CHECF TO HLP_VON/BIS,
 '-' TO HLP_VON/BIS+13,
 PAYR-CHECT TO HLP_VON/BIS+14.
 CONDENSE HLP_VON/BIS NO-GAPS.
 WRITE HLP_VON/BIS.
 ENDIF.
 TXT_ZEILE = TEXT-004. "entwertet durch ... am ...
 SELECT SINGLE * FROM TVOIT
 WHERE LANGU EQ SY-LANGU
 AND VOIDR EQ PAYR-VOIDR.
 WRITE PAYR-VOIDD TO HLP_DATUM DD/MM/YYYY.
 REPLACE:
 '&VOIDU' WITH PAYR-VOIDU INTO TXT_ZEILE,
 '&VOIDD' WITH HLP_DATUM INTO TXT_ZEILE,
 '&VOIDT' WITH TVOIT-VOIDT INTO TXT_ZEILE.
 CONDENSE TXT_ZEILE.
 WRITE:
 60 TXT_ZEILE.
ENDIF.
WRITE 132 SY-VLINE. " syalla asr 11456
WRITE 171 SY-VLINE. " syalla asr 11456
IF PAYR-VOIDR EQ SPACE.
 TAB_SUMME-WAERS = PAYR-WAERS.
 TAB_SUMME-RWBTR = ABS( PAYR-RWBTR ).
Inserted By Jassi on 04/14/04 - ASR# 23240
 TAB_SUMME-DISER = DISER. "Discount Earned Total
 TAB_SUMME-DISTA = DISTA. "Discount Taken Total
 TAB_SUMME-DISLO = DISLO. "Discount Lost Total
End of Insertion on 04/14/04 - ASR# 23240
 COLLECT TAB_SUMME.
 CLEAR: DISER,DISTA,DISLO,DISTOT. "JASSI
ENDIF.
SUM_WRSHB = 0.
SUM_ABZUG = 0.
SUM_NETTO = 0.
FLG_POSTEN = 0.
FLG_SUMME = 1.
HLP_WAERS = SPACE.
ENDFORM.
FORM WRITE_RECHNUNG *
Ausgabe einer Zeile mit Rechnungsinformationen *
FORM WRITE_RECHNUNG.
DATA:
 ABZUG LIKE POSTAB-WSKTO,
 NETTO LIKE POSTAB-WRSHB.
FORMAT COLOR 2 INTENSIFIED OFF.
IF FLG_POSTEN EQ 0.
 WRITE:
 / SY-VLINE,
 SPACE,
 TEXT-003, "Gezahlte Posten:
WRITE 132 SY-VLINE. " syalla asr 11456
 171 SY-VLINE. " syalla asr 11456
ENDIF.
POSTAB-WRSHB = - POSTAB-WRSHB.
ABZUG = POSTAB-WSKTO + POSTAB-QBSHB.
NETTO = POSTAB-WRSHB + ABZUG.
WRITE:
/ SY-VLINE,
 SPACE,
 POSTAB-BUKRS,
 POSTAB-GSBER,
 POSTAB-XBLNR,
 POSTAB-BELNR,
 POSTAB-BUZEI,
 POSTAB-BLDAT DD/MM/YYYY,
 POSTAB-BUDAT DD/MM/YYYY,
 POSTAB-WAERS,
(17) POSTAB-WRSHB CURRENCY POSTAB-WAERS,
(17) ABZUG CURRENCY POSTAB-WAERS,
(17) NETTO CURRENCY POSTAB-WAERS,
132 SY-VLINE. " syalla asr 11456
 171 SY-VLINE. " syalla asr 11456
SUM_WRSHB = SUM_WRSHB + POSTAB-WRSHB.
SUM_ABZUG = SUM_ABZUG + ABZUG.
SUM_NETTO = SUM_NETTO + NETTO.
FLG_POSTEN = 1.
IF HLP_WAERS EQ SPACE.
 HLP_WAERS = POSTAB-WAERS.
ELSEIF HLP_WAERS NE POSTAB-WAERS.
 FLG_SUMME = 0.
ENDIF.
ENDFORM.
FORM WRITE_RECHNUNGSUMME *
Ausgabe der Summen der Rechnungsinformationen *
FORM WRITE_RECHNUNGSSUMME.
CHECK PAR_EPOS NE SPACE.
IF FLG_POSTEN EQ 1 AND FLG_SUMME EQ 1.
 FORMAT COLOR 3 INTENSIFIED OFF.
 WRITE:
 / SY-VLINE,
 58 TEXT-012,
 69 HLP_WAERS,
 (17) SUM_WRSHB CURRENCY PAYR-WAERS,
 (17) SUM_ABZUG CURRENCY PAYR-WAERS,
 (17) SUM_NETTO CURRENCY PAYR-WAERS,
 132 SY-VLINE. "syalla asr 11456
 171 SY-VLINE. "syalla asr 11456
ENDIF.
ULINE.
ENDFORM.
FORM WRITE_ZAHLWEGSUMME *
Ausgabe der Summen je Währung für diesen Zahlweg *
FORM WRITE_ZAHLWEGSUMME.
FORMAT COLOR 3 INTENSIFIED.
DESCRIBE TABLE TAB_SUMME LINES SY-TFILL.
ADD 2 TO SY-TFILL.
RESERVE SY-TFILL LINES.
SORT TAB_SUMME.
LOOP AT TAB_SUMME.
 AT FIRST.
 IF PAR_EPOS EQ SPACE.
 ULINE.
 ENDIF.
 WRITE:
 /2 TEXT-012,
 13 SPACE.
 ENDAT.
 WRITE:
 1(1) SY-VLINE,
 38 TAB_SUMME-WAERS,
 (14) TAB_SUMME-RWBTR CURRENCY TAB_SUMME-WAERS NO-SIGN.
 132 SY-VLINE. "syalla asr 11456
Inserted By Jassi on 04/14/04 - ASR# 23240
Write Totals
 WRITE:127 TAB_SUMME-DISER DECIMALS 2. "JASSI
 WRITE:144 TAB_SUMME-DISTA DECIMALS 2. "JASSI
 WRITE:161 TAB_SUMME-DISLO DECIMALS 2, "JASSI
End of Insertion on 04/14/04 - ASR# 23240
 171 SY-VLINE. "syalla asr 11456
 NEW-LINE.
ENDLOOP.
IF SY-SUBRC EQ 0 OR PAR_EPOS EQ SPACE.
 ULINE.
ENDIF.
ENDFORM.
*& Form GET_DATA_FOR_DISCOUNT_EARNED
 text
--> p1 text
<-- p2 text
FORM GET_DATA_FOR_DISCOUNT_EARNED.
SELECT * FROM BSAK WHERE AUGBL = PAYR-VBLNR AND BUKRS = PAYR-ZBUKR.
 IF BSAK-BELNR <> BSAK-AUGBL.
 IF BSAK-ZBD1P <> '0.000' OR BSAK-ZBD2P <> '0.000'.
 IF BSAK-ZBD1T <> 0 AND BSAK-ZBD2T = 0.
 DAYS_1 = BSAK-ZBD1T.
 PERC_1 = BSAK-ZBD1P.
 ENDIF.
 IF BSAK-ZBD2T <> 0 AND BSAK-ZBD1T = 0.
 DAYS_1 = BSAK-ZBD2T.
 PERC_1 = BSAK-ZBD2P.
 ENDIF.
 IF BSAK-ZBD1T <> 0 AND BSAK-ZBD1T < BSAK-ZBD2T .
 DAYS_1 = BSAK-ZBD1T.
 PERC_1 = BSAK-ZBD1P.
 DAYS_2 = BSAK-ZBD2T.
 PERC_2 = BSAK-ZBD2P.
 ENDIF.
 IF BSAK-ZBD2T <> 0 AND BSAK-ZBD2T < BSAK-ZBD1T .
 DAYS_1 = BSAK-ZBD2T.
 PERC_1 = BSAK-ZBD2P.
 DAYS_2 = BSAK-ZBD1T.
 PERC_2 = BSAK-ZBD1P.
 ENDIF.
 DAYS_PAID = BSAK-AUGDT - BSAK-ZFBDT.
 IF DAYS_PAID <= DAYS_1.
 DISAM = ( BSAK-DMBTR * PERC_1 ) / 100 .
 ELSEIF DAYS_PAID <= DAYS_2.
 DISAM = ( BSAK-DMBTR * PERC_2 ) / 100 .
 ENDIF.
 DISER = DISER + DISAM.
 CLEAR DISAM.
 ENDIF.
 ENDIF.
 CLEAR: DISAM,PERC_2,PERC_1,DAYS_1,DAYS_2,DAYS_PAID,BSAK.
ENDSELECT.
ENDFORM. " GET_DATA_FOR_DISCOUNT_EARNED
*& Form GET_DATA_FOR_DISCOUNT_TAKEN
 text
--> p1 text
<-- p2 text
FORM GET_DATA_FOR_DISCOUNT_TAKEN.
CLEAR DISTA.
SELECT * FROM BSEG WHERE BUKRS = PAYR-ZBUKR AND BELNR = PAYR-VBLNR.
 IF BSEG-HKONT = '0000820000'.
 IF BSEG-SHKZG = 'S'.
 BSEG-DMBTR = -1 * BSEG-DMBTR.
 ENDIF.
 DISTA = DISTA + BSEG-DMBTR.
Start Of ASR # 8269 RKSHARMA----
 ELSE.
 SELECT SINGLE BVORG FROM BKPF INTO BVORG1
 WHERE BUKRS = PAYR-ZBUKR AND BELNR = PAYR-VBLNR.
IF BVORG1 <> SPACE.
 SELECT BUKRS BELNR FROM BKPF INTO (BUKRS1, BELNR1)
 WHERE BVORG = BVORG1.
 IF BELNR1 <> PAYR-VBLNR AND BUKRS1 <> PAYR-ZBUKR.
 BUKRS2 = BUKRS1.
 BELNR2 = BELNR1.
 ENDIF.
 ENDSELECT.
IF BUKRS2 <> SPACE AND BELNR2 <> SPACE.
 SELECT BELNR FROM BSEG INTO BELNR1
 WHERE AUGBL = BELNR2
 AND BUKRS = BUKRS2.
 IF BELNR1 <> BELNR2.
 BELNR3 = BELNR1.
 ENDIF.
 ENDSELECT.
ENDIF.
CLEAR DISTA.
CLEAR DMBTR1.
IF BELNR3 <> SPACE.
SELECT DMBTR HKONT SHKZG FROM BSEG INTO (DMBTR1, HKONT1, SHKZG1)
 WHERE BELNR = BELNR3
 AND BUKRS = BUKRS2.
 IF HKONT1 = '0000820000'.
 FLAG = 1.
 IF SHKZG1 = 'S'.
 DMBTR1 = -1 * DMBTR1.
 ENDIF.
 IF DMBTR1 <> 0.
 DISTA = DISTA + DMBTR1.
 ELSE.
 DISTA = 0.
 ENDIF.
 ENDIF.
 CLEAR DMBTR1.
 ENDSELECT.
ENDIF.
IF FLAG = 0.
*else. "new line
IF BELNR2 <> SPACE.
SELECT DMBTR HKONT SHKZG FROM BSEG INTO (DMBTR1, HKONT1, SHKZG1)
 WHERE BELNR = BELNR2
 AND BUKRS = BUKRS2.
 IF HKONT1 = '0000820000'.
 IF SHKZG1 = 'S'.
 DMBTR1 = -1 * DMBTR1.
 ENDIF.
 IF DMBTR1 <> 0.
 DISTA = DISTA + DMBTR1.
 ELSE.
 DISTA = 0.
 ENDIF.
 ENDIF.
 CLEAR DMBTR1.
 ENDSELECT.
ENDIF.
ENDIF. "new line----
ENDIF.
End Of ASR # 8269 RKSHARMA----
 ENDIF.
 CLEAR BSEG.
ENDSELECT.
ENDFORM. " GET_DATA_FOR_DISCOUNT_TAKEN
*& Form GET_DATA_FOR_DISCOUNT_LOST
 text
--> p1 text
<-- p2 text
FORM GET_DATA_FOR_DISCOUNT_LOST.
Start Commented by JASSI on 04/14/04 - ASR# 23240
DISTOT = DISER.
DISTOT = DISTOT+0(13).
DISLO = DISTOT - DISTA.
End Commented by JASSI on 04/14/04 - ASR# 23240
Inserted By Jassi on 04/14/04 - ASR# 23240
Fetch the Data for Discount Lost from
Table 'REGUH' - Payment data from payment program
SELECT SINGLE * FROM REGUH WHERE LAUFD = PAYR-LAUFD AND
 LAUFI = PAYR-LAUFI AND
 ZBUKR = PAYR-ZBUKR AND
 LIFNR = PAYR-LIFNR AND
 KUNNR = PAYR-KUNNR AND
 EMPFG = PAYR-EMPFG AND
 VBLNR = PAYR-VBLNR .
IF SY-SUBRC = 0.
 DISLO = REGUH-SKVHW.
ENDIF.
End of Insertion on 04/14/04 - ASR# 23240
ENDFORM. " GET_DATA_FOR_DISCOUNT_LOST

Hi,
I had exactly the same error on printout.
My case was that if the print out is more than 10 pages, the page number was printed as */21' instead of '10/21'.
And the total quantity was not displayed correctly when return.
I asked my ABAPer to check again how wide the space is for being reserved for the total quantity and page number.
As ABAPer increased the space, it solved this problem.
Regards,

Mid month payroll area change

Hi,
i am at the client site and I have been asked to change the payroll area of few employees in the system but system is not allowing me to do that.
What is the best possible solution so that i can change the payroll area so that the changes are reflected in the payroll cycle of the same month?
Regards
Aryan

For this ,
You need to log in SAP system
Once you log in the system then give the TCODE PA30 ( Maintain HR DATA )
Once that screen has appier then you need to give the PERNR No for whome you need to change the Payroll Area.
Give the PERNR No.
Give the infotype 001 ( Organizational Assignment ) and click up on the change ......
Once you get Screen "Change Orgnazation Assigment" you can see the field "Payr.area" give the appropriate Payr.area and save .............
Like this you can change the Payr.area for the Personal NO

Electronic bank statement with CTX payment advice

Hi:
I'm trying to figure out how I can process an electronic bank statement that contains the payment advice embedded as a CTX addendum. I'm finding info how to issue an ACH and add the CTX addendi. But how can I process it when that info comes back from the bank on the electronic bank statement and I'm on the receiving end of that transaction?
Of course I'm looking to clear the corresponding customer open items along the provided payment advice info.
I do see an interpretation algorithm 032, which will look at a payment advice that has already been received prior to the bank statement. That's close, but not quite it.
Maybe the answer is 'functionality not available in SAP standard' and that will be just fine. I've got the list of all the various enhancement points for the process and if that's the route I need to take, I'll be on my merry enhancing way...
Any pointers highly welcome!
Thanks
Stephen

Hello,
From FF.5, if you are using interpretation algorithms 11, 12 or 13,
the check encashment date ( PAYR-BANCD ) will be updated in PAYR when
the check is neither voided nor cashed. The relevant code is as under
RFEBBU10. Source Code :
CASE FEBEP-INTAG.
 WHEN '000'. <- A when for every Int. Algorithm
 WHEN '011'.
 PERFORM SEARCH_CHECK_IN_PAYR.
FORM SEARCH_CHECK_IN_PAYR.
check is not voided nor cashed
 SELECT SINGLE * FROM BKPF WHERE BUKRS = FEBKO-BUKRS
 AND BELNR = PAYR-VBLNR
 AND GJAHR = PAYR-GJAHR.
 IF SY-SUBRC = 0.
 PAYR-XBANC = 'X'.
 PAYR-BANCD = FEBEP-VALUT.
So, the field PAYR-BANC is always updated with FEBEP-VALUT
(Value Date) and there is no standard way to avoid it.
If the check number in the statement is wrong, then the interpretation
algorithm could not update the encashment date. The interpretation
algorithm run only when the electronic bank statement is loaded
(hence only once) and not when FEBA is processed.
In FEBA (SAPMF40A), there is no further update in PAYR, and hence you
need to go to the Cheque Register and change the date manually in this case.
Check Note 115147 for further information.
Regards,
REnan

Payment document which are posted in SAP , however cheque not issued

Dear Experts,
How to generate a report of payment document which are posted in SAP , however cheque has not been issued.
Regards,
Alok

Hello,
Execute the Cheque outgoing account in FBL3N
Click on Settings => Special Fields
PAYR CHECF Check number from
Save
Now re-execute the report
Add the Check number from field into the layout.
You will see the for which documents cheques are beings issues and for which documents cheques are not being issued.
Regards,
Ravi

Regading Fico hurry up Pl

Dear All,
Two different forms should be printed with respective to
cash and bank payment.
Since Document type is same for both Bank and
Cash Payments.
How to differentiate Bank or Cash?
in detail
Since we are writing code for all 5 types of transaction in de same program
ie 1.Cash Receipt. doc type(DZ,AB)
 2.Cash Payment doc type(KZ,SA,AB)
 3.Bank Receipt doc type(DZ,AB,DA)
 4.Bank Payment doc type(KZ,SA)
 5.Journal Voucher doc type(RE,KR,AB,SA)
And we are differntiating the transaction based on corresponding doc type,
Conflict occurs since Doc type (SA,AB etc...) in most of the Transactions.
Please Do Try to solve this issue ASAP.
Thanks in Advance.

Hi
check the table field PAYR-RZAWE
based on this for different country's you can differentiate between the bank and cash entries
Reward points for useful Answers
Regards
Anji

Check Encashment Date in Incoming Payment

Dear SAP Expert,
My client have collection (Incoming Payment) Account and want to update check encashment date. Presently they are doing Manual Bank reconciliation account. Not using FF67. So please advice how can I update Check Encashment date in incoming payment.
Thanks & Regards,
Pankaj

Hi Pankaj,
Please check table PAYR. Please review the details of the fields PAYR-XBANC and PAYR-BANCD. If these are empty, then you can update the check encashment date manually in FCH6.
Hope this helps.
Kind Regards
Soumya

Conversion of 6 character Date Format

Hi friends,
 Could u please send me the details,
i have a datacionary field payr-zaldt type dats length(6)
format MMDDYY i want to convert This date format to Character Fromat
Please suggest Me.
Regards
srinu

HI,
Use the Below function module to conver the date to Charecter format CONVERSION_EXIT_INVDT_INPUT
DATA: W_DATUM LIKE SY-DATUM. " Variable to hold Date
 CALL FUNCTION 'CONVERSION_EXIT_INVDT_INPUT'
 EXPORTING
 INPUT = W_INPUT_DATE
 IMPORTING
 OUTPUT = W_OUTPUT_DATUM.
If you want the Exact date which is 10 character length:
if the field which you mention is 6 character lenght, then use the FM CACS_DATE_GET_YEAR_MONTH to get the correct Month and Year, so you wil have Date, Month and Year in your hand, then concatinate in to a field whcih is TYPE of SY-DATUM, so you will have the correct date format
Thanks
Sudheer

User Exit for znme1

Hi,
Is there any user exit on field PAYR-ZNME1 for Tcode FCH5.
Thks
Shailesh

Hi Shailesh,
Refer to these links
user exits for Tcode FCH5
Re: field exit for account id on tcod fch5
hope they are useful to you.
Thanks!

Trouble with F110_AVIS

hie all , i'm tryin to make a check from the standard .. the checks have to be pre-numbered i want to out put the check number on the check that are being printed.. i have tried using fields from Table PCEC , which is a table that contains pre-numbered checks information , the field CHECT which is supposed to contain the check number contains the check lot number (i.e my checks range from 1-200 the number out put there is always 200 signifying the max number or checks for that lot not the check number for the check being printed.)
does anyone know which reference i can use to out put my check number??

Hi,
Check for field PAYR-CHECT
Regards,
Raju.

F110 - PAYR table fields population

Hello all,
I have done the automatic payment run F110 successfully but when i go to SE38 and run the RFFOUS_C program, its giving "No records selected"
In the table PAYR (SE11), I have selected a field, say check number field/ check run date field/ House bank key field, and checked the content, It is giving "Number of entries which met selecting criteria is zero".
When i have run F110 successfully, then the check information should be populated in PAYR table, but it is not happening???
Please help me with this.
Thanks!

Hi,
Had u assigned check lots to the account id and house bank.
regards
srikanth.

Field PAYR-LAUFI

Similar Messages

Maybe you are looking for