How to add a field to the selection screen and when the user enters ...

hi all,
can any one plesase send the code of how to add a field to seletiion screen and when the user enters in the field , it should be store in the database table , the table is MKPF and the field is BKTXT. Thanks.

Hi Kripa,
   If u r using PNP ldb then the screen u will get is the screen for that ldb and if u want to add some more fields then u define using selection-screen..as follows
SELECTION-SCREEN BEGIN OF BLOCK mysel WITH FRAME TITLE text-111.
PARAMETERS: n_in_en RADIOBUTTON GROUP g1,
            q_ev RADIOBUTTON GROUP g1.
SELECTION-SCREEN END OF BLOCK mysel.
SELECTION-SCREEN BEGIN OF BLOCK mysel1 WITH FRAME TITLE text-222.
PARAMETERS: r_date TYPE sy-datum DEFAULT sy-datum.
SELECTION-SCREEN END OF BLOCK mysel1.
SELECTION-SCREEN BEGIN OF BLOCK mysel2 WITH FRAME TITLE text-333.
PARAMETERS:f_ver(3) TYPE c DEFAULT 1,
           c_no(10) TYPE c DEFAULT '9D0161',
           u_id(15) TYPE c,
           password(15) TYPE c,
           r_email(30) TYPE c DEFAULT PARAMETERS: s_not TYPE c AS CHECKBOX.
PARAMETERS:t_run TYPE c AS CHECKBOX.
SELECTION-SCREEN END OF BLOCK mysel2.
SELECTION-SCREEN BEGIN OF BLOCK mysel3 WITH FRAME TITLE text-444.
SELECTION-SCREEN BEGIN OF BLOCK mysel4 WITH FRAME TITLE text-555.
PARAMETERS: p_ser RADIOBUTTON GROUP g2,
a_ser RADIOBUTTON GROUP g2.
SELECTION-SCREEN END OF BLOCK mysel4.
SELECTION-SCREEN BEGIN OF BLOCK mysel5 WITH FRAME TITLE text-666.
PARAMETERS:p_path TYPE string.
SELECTION-SCREEN END OF BLOCK mysel5.
SELECTION-SCREEN END OF BLOCK mysel3.
u will get this additional screen after the screen of ldb.
I hope this will help u..
Thanks & Regards
Ashu Singh.

Similar Messages

How to add profit center in fbl5n selection screen

how to add profit center in fbl5n selection screen
and
it is save to copy ddf from sap to cus
wll it affect anything else

When you are on selection screen of FBL5N, press (Shift + F4) DYNAMIC SELECTIONS, there you will see a Dynamic selection screen along with your normal FBL5N selection screen, you will find Profit Centre ther, if you don't find Profit Centre in Dynamic Selection Screen you can add the same from the list on the left, search for profit centre, place your cursor on Profit centre and press the Arrow Button(Copy Selected) on top of the list. Now you will find Prfit Centre in Dynamic selection screen, fill the field with values and press save, that's it.....
Reward points if useful, get back in case of query...
Cheers!!!

REPORT PAINTER - Add a field to a selection screen - custom report

Hi,
I'm trying to add a field to a selection screen to a CUSTOM REPORT that has been made in REPORT PAINTER (Y_DVL_xxxxxxx). How should I proceed to do so?
Thanks a lot,
Julien

Hi Julien Girard ,
Could you please check the below link :
http://help.sap.com/saphelp_erp2005/helpdata/en/56/32e339b62b3011e10000000a11402f/frameset.htm
Regards,
S.Manu.

REPORT PAINTER - Add a field to a selection screen to a CUSTOM REPORT

Hi,
I'm trying to add a field to a selection screen to a CUSTOM REPORT that has been made in REPORT PAINTER (Y_DVL_xxxxxxx). How should I proceed to do so?
Thanks a lot,
Julien

Hi Julien Girard ,
Could you please check the below link :
http://help.sap.com/saphelp_erp2005/helpdata/en/56/32e339b62b3011e10000000a11402f/frameset.htm
Regards,
S.Manu.

How to add program documentation icon on selection screen

Hi All,
Please let me know how to add program documentation icon on selection screen.
Thanks
Jog

THis is pretty straight forward, in se38, enter program name, click change. Now click Go To, Documentation. Enter the documentation on this screen, save and activate, now run the program, the icon will be there.
REgards,
Rich Heilman

HT1338 My mac book pro has three updates ready to install. When I select all three of them and click install it shows them downloading, the computer restarts, and when the computer turns back on and I go to updates again they are still there to install.

My mac book pro has three updates ready to install. When I select all three of them and click install it shows them downloading, the computer restarts, and when the computer turns back on and I go to updates again they are still there to install. Help

Best to install them one at a time, re-booting between each one.

HT201210 my iphone is stuck on the itunes screen and when i try to restore it it just go back to the itunes screen how do i get out of it

my iphone is stuck on the itunes screen and when i try to restore it it just go back to the itunes screen how do i get out of it

Connecting in recovery mode will help: http://support.apple.com/kb/HT1808

Just downloaded and installed new LR CC. No apparent problems with the D/I on my iMac, OS 10.10.3. however LR CC will not start. I get a momentary flash of the opening screen and then the program shuts down. From the posts it looks like this if a ver

Just downloaded and installed new LR CC. No apparent problems with the D/I on my iMac, OS 10.10.3. however LR CC will not start. I get a momentary flash of the opening screen and then the program shuts down. From the posts it looks like this if a very common problem. Any help would be appreciated. Thanks.

Have you tried logging out of your CC desktop app, then logging back in again? Quit/Restart won't work, but logging out and back in should. See here: https://helpx.adobe.com/creative-cloud/kb/sign-in-out-creative-cloud-desktop-app.html

HT201210 my phone is stuck in the activation screen and when i try to restore it says that there was an error when trying to download the request

i updated my iphone 4 to ios6 and today it doeasnt let me get out of my activations screen. it says the activation server is unavailabe. i just cant get out of the activation screen and use the apps nor se my phone. help please

And i did it from my iPod

How to add a field in dynamic selections

HI,
There is a requirement in which i need to add a field in existing program of dynamic selections.
I have added a field in the screen.But I was not able to write the label and is not displaying.
I ahve copied evrything from existing coding.but still.
In the program ,Field groups are being used.
I have inserted my field in that header and item of field groups.
But i was not able to select the data based on this selection.
i will attach my code here for reference.
can anyone please help me how to use these filed symbols.
If possible send me the document on Dynamic selections.
the field i need to add is bkpf-bktxt
TABLES:
tcurx,
lfa1,
kna1,
bhdgd,
bkpf,
bseg,
bsega,
b0sg,
fimsg,
sarkey,
t001,
vbset,
sscrfields.
 Selektionsparameter *
begin_of_block 1.
PARAMETERS:
par_nbel LIKE rfpdo-bpetnbel, "Normale Belege
par_vbel LIKE rfpdo-epojvbel, "Vorerfaßte Belege
par_sbel LIKE rfpdo-bpetsbel, "Statistischen Belege
par_mbel LIKE rfpdo-epojmbel, "Musterbelege
par_dbel LIKE rfpdo1-korbdbel. "Dauerbuchungsurbelege
end_of_block 1.
begin_of_block 2.
PARAMETERS:
par_summ LIKE rfpdo1-allgsumm, "nur Summenausgabe
par_hkto LIKE rfpdo2-beljhkto, "Hauptbuch- statt Personenkonto
par_altk LIKE rfpdo1-allgaltk, "alternative Kontonummer
par_lsep LIKE rfpdo-allglsep, "Listseparation
par_mikf LIKE rfpdo-allgmikf, "Mikrofiche-Zeile
par_line LIKE rfpdo1-allgline. "Zusatztitel
Eingaben für optische Archivierung
SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS: arc LIKE rfpdo1-allgarch.
SELECTION-SCREEN COMMENT 3(29) text-103 FOR FIELD arc.
SELECTION-SCREEN POSITION POS_LOW.
PARAMETERS: arc_msg1(10) MODIF ID arc.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN POSITION POS_LOW.
PARAMETERS: arc_msg2(10) MODIF ID arc.
SELECTION-SCREEN END OF LINE.
end_of_block 2.
PARAMETERS: arc_mem LIKE arc_params NO-DISPLAY.
 Felder und Feldleisten *
CONSTANTS:
con_true TYPE i VALUE 1,
con_false TYPE i VALUE 2,
con_hash TYPE i VALUE 1,
con_vendor TYPE c VALUE 'K',
con_cust TYPE c VALUE 'D'.
Global Data
DATA: BEGIN OF hash_totals OCCURS 25,
 bukrs LIKE t001-bukrs,
 poper(7),
 dramt LIKE bseg-wrbtr,
 cramt LIKE bseg-wrbtr,
 END OF hash_totals.
DATA:
factor TYPE i,
Zähler
cnt_bukrs(4) TYPE p, "Anzahl Buchungskreise
cnt_max LIKE sy-tfill, "Maximum der CNT_Ti
cnt_t0 LIKE sy-tfill, "Anzahl Einträge in Ti
cnt_t1 LIKE sy-tfill,
cnt_t2 LIKE sy-tfill,
cnt_t3 LIKE sy-tfill,
cnt_t4 LIKE sy-tfill,
cnt_t5 LIKE sy-tfill,
Fehler
err_altkt(1) TYPE c, "alt. Kontonummer nicht gefunden
Flags
flg_section TYPE i,
flg_vendr2 TYPE i,
flg_vendr3 TYPE i,
flg_color(1) TYPE n, "0 - intensified off
Hilfsfelder
hlp_belnr(10) TYPE c, "Anzeigefeld Belegnummer
hlp_bstat LIKE bkpf-bstat, "Status vorerfaßter Belege
hlp_buper(7) TYPE c, "Buchungsperiode mit '/'
hlp_null(1) TYPE p VALUE 0, "Betrag Null
hlp_sakan LIKE ska1-sakan, "Anzeigefeld Kontonummer
hlp_wrshb(26) TYPE c, "FW-Betrag mit Währung in Klammer
hlp_vnd_amt(43) TYPE c,
Texte
txt_line0(132) TYPE c, "Überschriften
txt_line1(132) TYPE c,
txt_line2(132) TYPE c,
txt_line(132) TYPE c, "Hilfstext
Feldleisten
BEGIN OF mikfi, "Information Mikrofiche-Zeile
 bstat LIKE bkpf-bstat,
 bukrs LIKE bkpf-bukrs,
 gjahr LIKE bkpf-gjahr,
 belnr LIKE bkpf-belnr,
END OF mikfi.
 Interne Tabellen *
DATA:
Belegkopfinformationen
BEGIN OF t0 OCCURS 4, "0 - allgemeine Angaben
 info(1) TYPE n, "1 - vorerfaßter Beleg
END OF t0, "2 - Referenz
 "3 - Storno
 "4 - gelöschter vorerfaßter Beleg
 "5 - ersetzter vorerfaßter Beleg
 "6 - Ausgleichsbeleg
 "7 - zurückgenommener Ausgleich
Personenkonteninformationen je Beleg
BEGIN OF t1 OCCURS 10,
 koart LIKE bseg-koart, "Kontoart
 ktonr LIKE bseg-kunnr, "Kontonummer(Debitor/Kreditor)
 bschl LIKE bseg-bschl, "Buchungsschlüssel
 xnegp LIKE bseg-xnegp, "Negativbuchung
 umskz LIKE bseg-umskz, "Sonderumsatzkennzeichen
 zlspr LIKE bseg-zlspr, "Payment Block Key - CR 21709
 dmshb LIKE bsega-dmshb, "Soll-Haben Betrag in Hauswährung
 wrshb LIKE bsega-dmshb, "Betrag in Fremdwährung
 xfwae(1) TYPE c, "X - Fremdwährungsinformation
 name1 LIKE lfa1-name1, "Customer/ Vendor Name
END OF t1,
Steuerinformationen je Beleg
BEGIN OF t2 OCCURS 10,
 mwskz LIKE bseg-mwskz, "Mehrwertsteuerkennzeichen
 dmshb LIKE bsega-dmshb, "Soll-Haben Betrag in Hauswährung
END OF t2,
Sachkonteninformationen je Beleg
BEGIN OF t3 OCCURS 20,
 mwskz LIKE bseg-mwskz, "Mehrwertsteuerkennzeichen
 bschl LIKE bseg-bschl, "Buchungsschlüssel
 xnegp LIKE bseg-xnegp, "Negativbuchung
 koart LIKE bseg-koart, "Kontoart
 hkont LIKE bseg-hkont, "Hauptbuchkonto
 dmshb LIKE bsega-dmshb, "Soll-Haben Betrag in Hauswährung
 kostl LIKE bseg-kostl, "Cost Center
 prctr LIKE bseg-prctr, "Profit Center
END OF t3,
Sonderhauptbuchbeträge für Debitoren (nur Ausgabe)
BEGIN OF t4 OCCURS 5,
 umskz LIKE bseg-umskz, "Sonderumsatzkennzeichen
 dmsol(9) TYPE p, "Soll-Betrag Hauswährung
 dmhab(9) TYPE p, "Haben-Betrag Hauswährung
END OF t4,
Sonderhauptbuchbeträge für Kreditoren (nur Ausgabe)
BEGIN OF t5 OCCURS 5,
 umskz LIKE bseg-umskz, "Sonderumsatzkennzeichen
 dmsol(9) TYPE p, "Soll-Betrag Hauswährung
 dmhab(9) TYPE p, "Haben-Betrag Hauswährung
END OF t5,
Summeninformationen je Buchungskreis
BEGIN OF tbukrs OCCURS 20,
 bstat LIKE bkpf-bstat, "Belegstatus
 bukrs LIKE bkpf-bukrs, "Buchungskreis
START OF CHANGE FOR CR63816 by OS0794 on 01/29/2008
 bktxt LIKE bkpf-bktxt,
END OF CHANGE FOR CR63816 by OS0794 on 01/29/2008
 gjahr LIKE bkpf-gjahr, "Buchungsjahr
 monat LIKE bkpf-monat, "Buchungsmonat
 dmsol(9) TYPE p, "Soll-Betrag Hauswährung
 dmhab(9) TYPE p, "Haben-Betrag Hauswährung
 waers LIKE t001-waers, "Währungsschlüssel (nur Ausgabe)
END OF tbukrs,
Sonderhauptbuchinformationen je Buchungskreis
BEGIN OF tbukrs_u OCCURS 20,
 bstat LIKE bkpf-bstat, "Belegstatus
 bukrs LIKE bkpf-bukrs, "Buchungskreis
START OF CHANGE FOR CR63816 by OS0794 on 01/29/2008
 bktxt LIKE bkpf-bktxt,
END OF CHANGE FOR CR63816 by OS0794 on 01/29/2008
 gjahr LIKE bkpf-gjahr, "Buchungsjahr
 monat LIKE bkpf-monat, "Buchungsmonat
 koart LIKE bseg-koart, "Kontoart
 umskz LIKE bseg-umskz, "Sonderumsatzkennzeichen
 dmsol(9) TYPE p, "Soll-Betrag Hauswährung
 dmhab(9) TYPE p, "Haben-Betrag Hauswährung
 waers LIKE t001-waers, "Währungsschlüssel (nur Ausgabe)
END OF tbukrs_u,
Summeninformationen je Hauswährung
BEGIN OF twaers OCCURS 10,
 bstat LIKE bkpf-bstat, "Belegstatus
 waers LIKE t001-waers, "Hauswährungsschlüssel
 gjahr LIKE bkpf-gjahr, "Buchungsjahr
 monat LIKE bkpf-monat, "Buchungsmonat
 dmsol(9) TYPE p, "Soll-Betrag Hauswährung
 dmhab(9) TYPE p, "Haben-Betrag Hauswährung
END OF twaers,
Sonderhauptbuchinformationen je Hauswährung
BEGIN OF twaers_u OCCURS 20,
 bstat LIKE bkpf-bstat, "Belegstatus
 waers LIKE t001-waers, "Währungsschlüssel
 gjahr LIKE bkpf-gjahr, "Buchungsjahr
 monat LIKE bkpf-monat, "Buchungsmonat
 koart LIKE bseg-koart, "Kontoart
 umskz LIKE bseg-umskz, "Sonderumsatzkennzeichen
 dmsol(9) TYPE p, "Soll-Betrag Hauswährung
 dmhab(9) TYPE p, "Haben-Betrag Hauswährung
END OF twaers_u,
Fehlerprotokoll im Batch
BEGIN OF tfimsg OCCURS 10.
 INCLUDE STRUCTURE fimsg.
DATA END OF tfimsg.
 Strukturen für optische Archivierung *
DATA BEGIN OF info OCCURS 10.
 INCLUDE STRUCTURE bhinf.
DATA END OF info.
DATA:
arc_save LIKE arc_params,
arc_valid.
 Feldgruppen *
FIELD-GROUPS: header, daten.
INSERT:
bkpf-bukrs "Buchungskreis
bkpf-bktxt "Change by OS0794
bkpf-bstat "Belegstatus
bkpf-gjahr "Geschäftsjahr
bkpf-belnr "Belegnummer
bseg-buzei "Buchungszeile
INTO header.
INSERT
bkpf-blart "Belegart
bkpf-bktxt "Change by OS0794
bkpf-budat "Buchungsdatum
bkpf-stblg "Stornobelegnummer
bkpf-waers "Währungsschlüssel
bkpf-xblnr "Referenzangabe
bseg-bschl "Buchungsschlüssel
bseg-xnegp "Negativbuchung
bseg-zlspr "Payment Block Key - CR 21709
bseg-hkont "Hauptbuchkonto
bseg-koart "Kontoart
bseg-kunnr "Debitornummer
bseg-lifnr "Kreditornummer
bseg-mwart "Mehrwertsteuerart (A oder V)
bseg-mwskz "Mehrwertsteuerkennzeichen
bseg-umskz "Sonderhauptbuch-Kennzeichen
bsega-dmshb "S/H-Betrag in Hauswährung
bsega-mdshb "Umsatzsteuerbetrag in Hauswährg
bsega-wrshb "S/H-Betrag in Fremdwährung
hlp_bstat "Status vorerfaßter Belege bzw.
bseg-kostl
bseg-prctr
bkpf-monat
INTO daten. "Status von Belegen ohne Zeilen
 Vorschlagswerte *
INITIALIZATION.
get_frame_title: 1,2.
par_nbel = 'X'.
par_sbel = space.
par_mbel = space.
par_dbel = space.
par_vbel = 'X'.
 Archivinformationen nur fuer Ausgabe *
AT SELECTION-SCREEN OUTPUT.
LOOP AT SCREEN.
 IF screen-group1 = 'ARC'.
 screen-input = '0'.
 MODIFY SCREEN.
 ENDIF.
ENDLOOP.
 Prüfung und Korrektur der eingegebenen Daten *
AT SELECTION-SCREEN ON arc.
IF arc <> ' ' AND arc_mem(20) = space.
 CALL FUNCTION 'GET_ARCHIVE_PARAMETERS'
 EXPORTING
 in_parameters = arc_save
 printer = ' '
 IMPORTING
 out_parameters = arc_mem
 valid = arc_valid
 EXCEPTIONS
 OTHERS = 04.
 IF arc_valid <> 'X' OR arc_mem = space.
 CLEAR arc_mem.
 MESSAGE e999 WITH text-102.
 ENDIF.
 arc_msg1 = arc_mem(10).
 arc_msg2 = arc_mem+10(10).
ENDIF.
IF arc = ' '.
 CLEAR arc_mem.
 arc_msg1 = arc_msg2 = space.
ENDIF.
arc_save = arc_mem.
AT SELECTION-SCREEN ON arc_msg1.
arc_msg1 = arc_mem(10).
AT SELECTION-SCREEN ON arc_msg2.
arc_msg2 = arc_mem+10(10).
AT SELECTION-SCREEN.
IF par_nbel EQ space AND
 par_mbel EQ space AND
 par_dbel EQ space AND
 par_sbel EQ space AND
 par_vbel EQ space.
 SET CURSOR FIELD 'PAR_NBEL'.
 MESSAGE e111.
ENDIF.
optische Archivierung
IF arc <> ' ' AND par_mikf <> ' '.
 CLEAR arc_mem.
 MESSAGE e999 WITH text-100.
ENDIF.
IF arc <> ' ' AND par_lsep <> ' '.
 CLEAR arc_mem.
 MESSAGE e999 WITH text-101.
ENDIF.
IF arc = 'X' AND sscrfields-ucomm = 'PRIN'.
 sscrfields-ucomm = 'ONLI'.
 sy-pdest = 'LP01'. "wegen Abfrage in Batch-Heading
ENDIF.
 Vorbelegungen *
START-OF-SELECTION.
bhdgd-lines = sy-linsz.
bhdgd-repid = sy-repid.
bhdgd-uname = sy-uname.
bhdgd-separ = par_lsep.
bhdgd-domai = 'BUKRS'.
IF arc = 'X'.
 bhdgd-miffl = 'A'.
ENDIF.
IF par_mikf = 'X'.
 bhdgd-miffl = 'X'.
ENDIF.
Initialisierung für optisches Archiv
PERFORM open_archive(rsbtchh0) USING arc_mem.
info-name = 'BKPF-BSTAT'. info-len = space. APPEND info.
info-name = 'BKPF-BUKRS'. info-len = space. APPEND info.
info-name = 'BSEG-GJAHR'. info-len = space. APPEND info.
info-name = 'BKPF-BELNR'. info-len = space. APPEND info.
info-name = 'BKPF-BKTXT'. info-len = space. APPEND info.
PERFORM start_archive(rsbtchh0) TABLES info.
b0sg-xstan = par_nbel.
b0sg-xstam = par_mbel.
b0sg-xstad = par_dbel.
b0sg-xstas = par_sbel.
b0sg-xstaa = 'X'.
IF par_vbel EQ 'X'.
 b0sg-xstav = 'Z'.
ENDIF.
 Selektion *
GET bkpf FIELDS blart bstat budat monat stblg waers xblnr bktxt.
CLEAR hlp_bstat.
IF 'ABVWZ' CA bkpf-bstat.
 hlp_bstat = bkpf-bstat.
 CLEAR bkpf-bstat.
 IF 'ABWZ' CA hlp_bstat.
 CLEAR: bseg, bsega.
 IF par_summ EQ space.
 EXTRACT daten.
 ENDIF.
 PERFORM summe_merken.
 ENDIF.
ENDIF.
GET bseg.
IF par_summ EQ space.
 EXTRACT daten.
ENDIF.
PERFORM summe_merken.
GET bkpf LATE.
PERFORM vorerfasste_steuer_merken.
 Seitenkopf *
TOP-OF-PAGE.
PERFORM batch-heading(rsbtchh0).
ULINE.
IF flg_section <> con_hash.
 FORMAT COLOR 1 INTENSIFIED OFF.
 WRITE / txt_line0.
 ULINE.
 FORMAT COLOR 1 INTENSIFIED.
 WRITE: / txt_line1,
 / txt_line2.
ELSE.
 FORMAT COLOR 1 INTENSIFIED OFF.
 WRITE: / sy-vline NO-GAP,
 'Hash Totals'(205),
 132 sy-vline.
 ULINE.
 FORMAT COLOR 1 INTENSIFIED.
 WRITE: / sy-vline NO-GAP,
 (10) 'CoCd'(200),
 (07) 'Period'(201),
 sy-vline,
 (16) 'Debit Amount'(202),
 (16) 'Credit Amount'(203),
 sy-vline,
 (16) 'Total'(204).
ENDIF.
ULINE.
 Sortieren der Daten *
END-OF-SELECTION.
DESCRIBE TABLE tbukrs LINES sy-tfill.
IF sy-tfill EQ 0.
 CALL FUNCTION 'POPUP_NO_LIST'.
ENDIF.
SORT.
SORT tbukrs.
 Belegjournal *
LOOP.
*-- Neuer Buchungskreis -
 AT NEW bkpf-bukrs.
 SELECT SINGLE * FROM t001 WHERE bukrs EQ bkpf-bukrs.
 IF sy-subrc NE 0.
 IF sy-batch EQ space.
 MESSAGE a101 WITH bkpf-bukrs.
 ELSE.
 MESSAGE s101 WITH bkpf-bukrs.
 STOP.
 ENDIF.
 ENDIF.
 bhdgd-bukrs = bkpf-bukrs.
 bhdgd-werte = bkpf-bukrs.
 PERFORM new-section(rsbtchh0).
 PERFORM titel_fuellen USING '5'.
 ENDAT.
*-- Neuer Belegstatus -
 AT NEW bkpf-bstat.
 PERFORM new_page USING bkpf-bstat.
 flg_color = 1.
 ENDAT.
*-- Neue Belegnummer -
 AT NEW bkpf-belnr.
 REFRESH: t0, t1, t2, t3.
 PERFORM belegkopf_merken.
 mikfi-bstat = bkpf-bstat.
 mikfi-bukrs = bkpf-bukrs.
 mikfi-gjahr = bkpf-gjahr.
 mikfi-belnr = bkpf-belnr.
 bhdgd-grpin = mikfi.
 ENDAT.
*-- Belegzeile -
 PERFORM belegzeile_merken.
*-- Ende einer Belegnummer -
 AT END OF bkpf-belnr.
 PERFORM beleg_schreiben.
 ULINE.
 ENDAT.
*-- Ende eines Buchungskreises -
 AT END OF bkpf-bukrs.
 PERFORM titel_fuellen USING '4'.
 PERFORM buchungskreis_schreiben USING bkpf-bukrs.
 ENDAT.
ENDLOOP.
 Summenblätter *
bhdgd-bukrs = ' '.
bhdgd-werte = ' '.
PERFORM new-section(rsbtchh0).
PERFORM titel_fuellen USING '4'.
PERFORM buchungskreis_schreiben USING ' '.
PERFORM hauswaehrung_schreiben.
 Print Hash Totals *
flg_section = con_hash.
NEW-PAGE.
PERFORM prt_hash TABLES hash_totals.
 Fehlerprotokoll *
CALL FUNCTION 'FI_MESSAGE_CHECK'
 EXCEPTIONS
 no_message = 4.
IF sy-subrc = 0.
 IF sy-batch EQ space.
 PERFORM titel_fuellen USING '6'.
 NEW-PAGE.
 FORMAT COLOR 6 INTENSIFIED.
 CALL FUNCTION 'FI_MESSAGE_SORT'.
 CALL FUNCTION 'FI_MESSAGE_PRINT'
 EXPORTING
 i_xskip = 'X'.
 ELSE.
 CALL FUNCTION 'FI_MESSAGE_GET'
 TABLES
 t_fimsg = tfimsg.
 LOOP AT tfimsg.
 MESSAGE ID tfimsg-msgid TYPE tfimsg-msgty NUMBER tfimsg-msgno
 WITH tfimsg-msgv1 tfimsg-msgv2 tfimsg-msgv3 tfimsg-msgv4.
 ENDLOOP.
 ENDIF.
ENDIF.
 U N T E R P R O G R A M M E *
 0. TITEL_FUELLEN *
 1. NEW_PAGE *
 2. SUMME_MERKEN *
 3. VORERFASSTE_STEUER_MERKEN *
 4. BELEGKOPF_MERKEN *
 5. BELEGZEILE_MERKEN *
 6. BELEG_SCHREIBEN *
 7. BUCHUNGSKREIS_SCHREIBEN *
 8. HAUSWAEHRUNG_SCHREIBEN *
 9. SUMMENZEILE_SCHREIBEN *
 10. KONTONUMMER *
0. FORM TITEL_FUELLEN *
 Ersetzt das Global &CCCU durch die Buchungskreiswährung *
 F00_TEXT ist 4, 5 oder 6, je nach Gruppe der Textelemente *
FORM titel_fuellen USING f00_text.
DATA:
 BEGIN OF txt_502,
 T1(49) TYPE C, "CR 21709
 W1(23) TYPE C, "CR 21709
 t1(50) TYPE c, "CR 21709
 w1(22) TYPE c, "CR 21709
 t2(6) TYPE c,
 w2(15) TYPE c,
 t3(21) TYPE c,
 w3(16) TYPE c,
 t4(2) TYPE c,
 END OF txt_502.
CASE f00_text. "Textelemente
 WHEN '4'. "- für die Summenliste
 txt_line0 = text-400.
 txt_line1 = text-401.
 txt_line2 = text-402.
 WHEN '5'. "- für die Einzelpostenliste
 txt_line0 = text-500.
 txt_line1 = text-501.
 txt_line2 = text-502.
 IF par_hkto EQ 'X'.
 txt_line1+33(10) = text-505.
 txt_line2+33(10) = text-506.
 ENDIF.
 txt_502 = txt_line2.
 REPLACE '&CCCU' WITH t001-waers INTO:
 txt_502-w1, txt_502-w2, txt_502-w3.
 CONDENSE:
 txt_502-w1, txt_502-w2, txt_502-w3.
 WRITE:
 txt_502-w1 TO txt_502-w1 RIGHT-JUSTIFIED,
 txt_502-w2 TO txt_502-w2 RIGHT-JUSTIFIED,
 txt_502-w3 TO txt_502-w3 RIGHT-JUSTIFIED.
 txt_line2 = txt_502.
 WHEN '6'. "- für die Fehlerliste
 txt_line0 = text-600.
 txt_line1 = text-601.
 txt_line2 = space.
 WHEN OTHERS. "- initialisieren
 txt_line0 = space.
 txt_line1 = space.
 txt_line2 = space.
ENDCASE.
ENDFORM. "TITEL_FUELLEN
1. FORM NEW_PAGE *
 Initialisierungen für BATCH-HEADING Routine *
 F01_BSTAT steuert den Aufbau des Reporttitels *
FORM new_page USING f01_bstat.
CASE f01_bstat. "Reporttitel
 WHEN 'D'. "- für Dauerbuchungsurbelege
 bhdgd-line1 = text-001.
 WHEN 'M'. "- für Musterbelege
 bhdgd-line1 = text-002.
 WHEN 'S'. "- für statistische Belege
 bhdgd-line1 = text-003.
 WHEN OTHERS. "- für normale/vorerfaßte Belege
 bhdgd-line1 = sy-title.
ENDCASE.
bhdgd-line2 = par_line.
bhdgd-inifl = 0.
NEW-PAGE.
ENDFORM. "NEW_PAGE
2. FORM SUMME_MERKEN *
 Merken der Summeninformation *
FORM summe_merken.
CLEAR tbukrs.
tbukrs-bstat = bkpf-bstat.
tbukrs-bukrs = bkpf-bukrs.
tbukrs-bktxt = bkpf-bktxt.
tbukrs-gjahr = bkpf-gjahr.
tbukrs-monat = bkpf-monat.
tbukrs-dmsol = bsega-dmsol.
tbukrs-dmhab = bsega-dmhab.
IF 'DK' CA bseg-koart.
 MOVE-CORRESPONDING tbukrs TO tbukrs_u.
 tbukrs_u-koart = bseg-koart.
 tbukrs_u-umskz = bseg-umskz.
 tbukrs_u-dmsol = bsega-dmsol.
 tbukrs_u-dmhab = bsega-dmhab.
 COLLECT tbukrs_u.
 tbukrs_u-monat = 0. "Summe für das Geschäftsjahr
 COLLECT tbukrs_u.
ENDIF.
COLLECT tbukrs.
ENDFORM. "SUMME_MERKEN
3. FORM VORERFASSTE_STEUER_MERKEN *
 Nachlesen der Steuerzeilen vorerfaßter Belege *
 Gefüllt wird TBUKRS und der Extrakt *
FORM vorerfasste_steuer_merken.
CHECK hlp_bstat EQ 'V'.
SELECT * FROM vbset
 WHERE ausbk EQ bkpf-bukrs
 AND belnr EQ bkpf-belnr
 AND gjahr EQ bkpf-gjahr.
 CHECK vbset-hwste NE 0.
 CLEAR: bseg, bsega.
 bseg-koart = 'S'.
 bseg-mwart = 'V'. "oder 'A', nur zum Füllen von T2
 bseg-mwskz = vbset-mwskz.
 IF vbset-shkzg EQ 'S'.
 bsega-dmsol = vbset-hwste.
 bsega-dmshb = vbset-hwste.
 ELSE.
 bsega-dmhab = vbset-hwste.
 bsega-dmshb = - vbset-hwste.
 ENDIF.
 IF par_summ EQ space.
 EXTRACT daten.
 ENDIF.
 PERFORM summe_merken.
ENDSELECT.
ENDFORM. "VORERFASSTE_STEUER_MERKEN
4. FORM BELEGKOPF_MERKEN *
 Je Beleg werden gefüllt: *
 T0 - Informationsflag *
FORM belegkopf_merken.
t0-info = 0. "Belegkopf
APPEND t0.
CASE hlp_bstat.
 WHEN 'A'.
 t0-info = 6. "Ausgleichsbeleg
 APPEND t0.
 WHEN 'B'.
 t0-info = 7. "zurückgen. Ausgleichsbeleg
 APPEND t0.
 WHEN 'V'.
 t0-info = 1. "vorerfaßter Beleg
 APPEND t0.
 WHEN 'W'.
 t0-info = 5. "ersetzter vorerfaßter Beleg
 APPEND t0.
 WHEN 'Z'.
 t0-info = 4. "gelöschter vorerfaßter Beleg
 APPEND t0.
ENDCASE.
IF bkpf-xblnr NE space AND hlp_bstat NA 'BWZ'.
 t0-info = 2. "Referenz
 APPEND t0.
ENDIF.
IF bkpf-stblg NE space.
 t0-info = 3. "Storno
 APPEND t0.
ENDIF.
SORT t0.
ENDFORM. "BELEGKOPF_MERKEN
5. FORM BELEGZEILE_MERKEN *
 Je Beleg werden gefüllt: *
 T1 - Personenkonteninformation *
 T2 - Steuerinformation (nicht bei vorerfaßten Belegen) *
 T3 - Sachkonteninformation *
FORM belegzeile_merken.
Vendors/ Customers
IF bseg-koart CA 'DK'.
 t1-koart = bseg-koart.
 IF par_hkto EQ 'X'.
 t1-ktonr = bseg-hkont.
 ELSEIF bseg-koart EQ 'K'.
 t1-ktonr = bseg-lifnr.
 ELSE.
 t1-ktonr = bseg-kunnr.
 ENDIF.
 t1-bschl = bseg-bschl.
 t1-umskz = bseg-umskz.
 t1-xnegp = bseg-xnegp.
 t1-zlspr = bseg-zlspr. "CR 21709
 t1-dmshb = bsega-dmshb.
 t1-wrshb = bsega-wrshb.
 t1-xfwae = space.
 APPEND t1.
Read the vendor description.
 IF bseg-koart = con_vendor.
 flg_vendr2 = con_true.
 flg_vendr3 = con_true.
 CLEAR lfa1-name1.
 SELECT SINGLE name1
 INTO lfa1-name1
 FROM lfa1
 WHERE lifnr = bseg-lifnr.
 ELSEIF bseg-koart = con_cust.
 CLEAR kna1-name1.
 SELECT SINGLE name1
 INTO kna1-name1
 FROM kna1
 WHERE kunnr = bseg-kunnr.
 ENDIF.
 IF bkpf-waers EQ t001-waers.
 CLEAR t1.
 ENDIF.
 t1-xfwae = 'X'.
 t1-name1 = lfa1-name1.
 IF t1-name1 IS INITIAL.
 t1-name1 = kna1-name1.
 ENDIF.
 APPEND t1.
 CLEAR:
 kna1-name1,
 lfa1-name1.
 CLEAR t1.
Save the hash total amounts
 CLEAR tcurx-currdec.
 SELECT SINGLE currdec
 INTO tcurx-currdec
 FROM tcurx
 WHERE currkey = bkpf-waers.
 IF tcurx-currdec = 1.
 factor = 10.
 ELSE.
 factor = 100.
 ENDIF.
 CLEAR hash_totals.
 hash_totals-bukrs = bkpf-bukrs.
 CONCATENATE bkpf-monat '/' bkpf-gjahr INTO hash_totals-poper.
 IF bsega-wrshb < 0.
 hash_totals-cramt = bsega-wrshb * factor.
 ELSE.
 hash_totals-dramt = bsega-wrshb * factor.
 ENDIF.
 COLLECT hash_totals.
Tax accounts
ELSEIF bseg-mwart CA 'AV'.
 t2-mwskz = bseg-mwskz.
 t2-dmshb = bsega-dmshb.
 APPEND t2.
 IF flg_vendr2 = con_true.
 flg_vendr2 = con_false.
 CLEAR t2.
 APPEND t2.
 ENDIF.
GL Accounts
ELSEIF hlp_bstat NA 'ABWZ'.
 t3-mwskz = bseg-mwskz.
 t3-bschl = bseg-bschl.
 t3-xnegp = bseg-xnegp.
 t3-koart = bseg-koart.
 t3-hkont = bseg-hkont.
 t3-dmshb = bsega-dmshb.
 APPEND t3.
 IF flg_vendr3 = con_true
 OR NOT bseg-kostl IS INITIAL
 OR NOT bseg-prctr IS INITIAL.
 flg_vendr3 = con_false.
 CLEAR t3.
 t3-kostl = bseg-kostl.
 t3-prctr = bseg-prctr.
 APPEND t3.
 CLEAR t3.
 ENDIF.
ENDIF.
ENDFORM. "BELEGZEILE_MERKEN
6. FORM BELEG_SCHREIBEN *
 Ausgabe der Belginformationen *
FORM beleg_schreiben.
DATA:
 len TYPE i.
Berechnung der benötigten Zeilen pro Beleg
DESCRIBE TABLE:
 t0 LINES cnt_t0,
 t1 LINES cnt_t1,
 t2 LINES cnt_t2,
 t3 LINES cnt_t3.
cnt_max = cnt_t0.
IF cnt_max LT cnt_t1.
 cnt_max = cnt_t1.
ENDIF.
IF cnt_max LT cnt_t2.
 cnt_max = cnt_t2.
ENDIF.
IF cnt_max LT cnt_t3.
 cnt_max = cnt_t3.
ENDIF.
ADD 1 TO cnt_max.
IF cnt_max LE 10.
 RESERVE cnt_max LINES.
ELSE.
 RESERVE 5 LINES.
ENDIF.
SUBTRACT 1 FROM cnt_max.
Farbe setzen
IF flg_color EQ 0.
 FORMAT COLOR 2 INTENSIFIED OFF.
 flg_color = 1.
ELSE.
 FORMAT COLOR 2 INTENSIFIED.
 flg_color = 0.
ENDIF.
Index fuer optische Archivierung
PERFORM new-group(rsbtchh0).
DO cnt_max TIMES.
Belegkopfinformationen
 WRITE /1 sy-vline NO-GAP.
 IF sy-index LE cnt_t0.
 READ TABLE t0 INDEX sy-index.
 CASE t0-info.
 WHEN 0. "Belegkopf
 hlp_belnr = bkpf-belnr. "Belegnr. mit führenden Nullen
 Referenz auf Originalbeleg
 PERFORM start_doc_reference(rsbtchh0)
 USING bkpf-bukrs bkpf-belnr bkpf-gjahr bkpf-bktxt. " change*
 WRITE:
 bkpf-bukrs,
 hlp_belnr,
 bkpf-blart,
 bkpf-budat DD/MM/YYYY.
 Ende der Referenz auf Originalbeleg
 PERFORM end_doc_reference(rsbtchh0).
 WHEN 1. "Vorerfaßter Beleg
 WRITE:
 (29) text-507.
 WHEN 2. "Referenz
 WRITE:
 (12) text-503,
 bkpf-xblnr.
 WHEN 3. "Storno
 WRITE:
 (12) text-504,
 bkpf-stblg.
 WHEN 4. "Gelöschter vorerfaßter Beleg
 WRITE:
 (29) text-507,
 (40) text-508.
 WHEN 5. "Ersetzter vorerfaßter Beleg
 txt_line = text-509.
 REPLACE:
 '&BLN' WITH bkpf-xblnr(10) INTO txt_line,
 '&GJR' WITH bkpf-xblnr+10 INTO txt_line.
 WRITE:
 (29) text-507,
 (40) txt_line.
 WHEN 6. "Ausgleichsbeleg
 WRITE: "
 (29) text-510. "
 WHEN 7. "zurückgen. Ausgleichsbeleg
 WRITE: "
 (29) text-511. "
 ENDCASE.
 ENDIF.
Personenkonteninformationen
Subledger Account Information
 WRITE 31(1) sy-vline NO-GAP.
Internal tables T0 - T5 hold data for each section.
 IF sy-index LE cnt_t1.
 READ TABLE t1 INDEX sy-index.
 IF par_hkto EQ 'X'.
 PERFORM kontonummer USING t1-ktonr hlp_sakan.
 ELSE.
 hlp_sakan = t1-ktonr.
 ENDIF.
 IF t1-xfwae EQ space.
 IF t1-xnegp = 'X'.
 t1-xnegp = '-'.
 ENDIF.
 Write the vendor number.
 WRITE: t1-koart,
 hlp_sakan,
 t1-bschl NO-GAP.
 IF t1-umskz IS INITIAL.
 WRITE: t1-xnegp NO-GAP,
 t1-umskz.
 ELSE.
 WRITE: t1-umskz NO-GAP,
 t1-xnegp.
 ENDIF.
 WRITE: t1-zlspr. "CR 21709 / 23588
 WRITE: (22) t1-dmshb CURRENCY t001-waers.
 ELSE.
 Write the document currency, amount and the
 vendor/ customer

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

How to gray out certain fields on the selection screen based on the radio b

HI All,
I have an ALV report. On the selection screen I have 2 radio buttons ..for eg..A and B.
When radio button A(its on by default) is on..certain fields not relevant to this should be grayed out. Similarly when radio button B is on, certain fields should be grayed out.
I did the AT SELECTION SCREEN OUTPUT and also did the
LOOP AT SCREEN....ENDLOOP logic. The logic works but when I click the radio button B...the screen fields automatically does not gray out. I have to press ENTER and then its grays out.
I know a USER_COMMAND needs to be attached.
Can anyone give me a step by step details of how to do this. I truly appreciate it. if a screen painter thing is required..please give me the tcode and step by step detail to do this.
Thanks

Try this one too:
REPORT ztest.
TABLES: mara,
        bkpf.
CONSTANTS:
              c_pos(3) TYPE c VALUE 'POS',
              c_acc(3) TYPE c VALUE 'ACC',
              c_all(3) TYPE c VALUE 'ALL',
              c_x TYPE c VALUE 'X'.
The Selection Screen Definition
SELECTION-SCREEN BEGIN OF BLOCK b_0 WITH FRAME TITLE text-000.
SELECT-OPTIONS: s_mara FOR mara-matnr.
SELECTION-SCREEN END OF BLOCK b_0.
SELECTION-SCREEN BEGIN OF BLOCK b_1 WITH FRAME TITLE text-037.
PARAMETER: rb_all RADIOBUTTON GROUP rb1 USER-COMMAND rad default 'X',
           rb_acc RADIOBUTTON GROUP rb1.
SELECTION-SCREEN END OF BLOCK b_1.
SELECTION-SCREEN BEGIN OF BLOCK b_2 WITH FRAME TITLE text-011. "Acct
SELECT-OPTIONS:   s_blrtc1 FOR bkpf-blart MODIF ID acc,
                  s_blrti1 FOR bkpf-blart MODIF ID acc.
SELECTION-SCREEN END OF BLOCK b_2.
SELECTION-SCREEN BEGIN OF BLOCK b_3 WITH FRAME TITLE text-011. "Acct
SELECT-OPTIONS:   s_blrtc2 FOR bkpf-blart MODIF ID all,
                  s_blrti2 FOR bkpf-blart MODIF ID all,
                  s_blrtv2 FOR bkpf-blart MODIF ID all.
SELECTION-SCREEN END OF BLOCK b_3.
AT SELECTION-SCREEN OUTPUT
AT SELECTION-SCREEN OUTPUT.
PERFORM f0200_screenfield_hide_logic.
initialization.
PERFORM f0200_screenfield_hide_logic.
      FORM f0200_screenfield_hide_logic                             *
FORM f0200_screenfield_hide_logic.
LOOP AT SCREEN.
    IF rb_acc = c_x.
      IF screen-group1 = c_all.
        screen-active = 0.
      ELSE.
        screen-active = 1.
      ENDIF.
    ENDIF.
    MODIFY SCREEN.
    IF rb_all = c_x.
      IF screen-group1 = c_acc.
        screen-active = 0.
      ELSE.
        screen-active = 1.
      ENDIF.
    ENDIF.
    MODIFY SCREEN.
ENDLOOP.
ENDFORM.                    " F0200_SCREENFIELD_HIDE_LOGIC

Add customer field in IH08 selection-screen

Hi guys,
I need to add 1 customer field ZZ to the selection screen IH08 in order to search equipments by the ZZ field.
Did anybody know if it is possible?
Thanks in advance,
LMS

I use enhacemente ITOB0001 to add one field to the screen of equipments (IE01, IE02 and IE03) and that is working perfectly.
In IH08, i put an append structure on structure RIHEQUI_LIST in order to the ZZ field could be seen in the ALV list. But, my problem is to make that ZZ field searchable... I need to search equipment on IH08 by the ZZ field.
I look on SPRO, for the equipments lists customization, i made tests and tests but nothing works...
If anybody knows how to solve this, please help me.
Other chance is to develop a Z program... But i prefer use the IH08...
Best Regards
Edited by: Luís Silva on Jul 31, 2009 11:28 AM
Edited by: Luís Silva on Jul 31, 2009 11:29 AM

Add certain field at dynamic selection screen in FBL3N transaction

Hello Expert,
I would like to add entry date field (BKPF-CPUDT) at dynamic selection screen in FBL3N transaction.
So, I went to SE36 transaction and changed something in selection view for SDF.
However, it didn't work.
Is there anyone who knows how to add a certain field at dynamic selection screen in FBL3N transaction?
Thanks in advance.
BR,
Chris Kim

Hi
Refer to the following thread
Additional field selections in FB03
It talks about adding Header Text field
You should be able to add entry date similarly
Regards
Sach!n

How to Fill the selection screen while calling the transaction

Hi All,
         my requirement is in one of the screen while i will press a push button it will call one transaction and it will fill the selection screen build order number field and skip the first screen i.e the selection screen it will show the output of that report directly.
am using this code .
case sy-ucomm.
while 'FSLR'.
set PARAMETER ID 'ANR' FIELD aufnr.
RANGES s_aufnr FOR afko-aufnr.
      s_aufnr-sign   = 'I'.
      s_aufnr-option = 'EQ'.
      s_aufnr-low    = aufnr.
      APPEND s_aufnr.
CALL TRANSACTION 'ZFS1' USING s_aufnr
     MODE 'E' .
    AND SKIP FIRST SCREEN.
endcase.
here the problem is i cant use both skip screen and using at a time nither the screen is filling nor its skipping the first screen.
but its not working would any one please help how can i do this functionality?

Hi
Do in this way.
DATA: rspar TYPE TABLE OF rsparams WITH HEADER LINE.
rspar-selname = 'S_AUFNR'.
rspar-kind = 'S'.
rspar-sign = 'I'.
rspar-option = 'EQ'.
rspar-low = 'aufnr'.
APPEND rspar.
SUBMIT zfs1_prog VIA SELECTION-SCREEN WITH SELECTION-TABLE rspar AND RETURN.
If this doesnt suit yer requirement, I wud suggest you to use BDC as below.
CALL TRANSACTION 'SE11' USING bdcdata
                       MODE   'E'
                       UPDATE 'A'.

How to add Currency field with dropdown on screen layout (module pool)

I need to add a field called Currency( field label ) with dropdown (like SKB1-WAERS). 
The field label and input output field should default as being hidden and
sould be visible only when other field value ( on the same screen ) should match with the value in the database table .
Could you please suggest me how to create dropdown
and give this functionality with coding ?
Thanks in advance.

Hi,
In the field attributes of the SKB1-WAERS..in the group attributes..give a group name G1..Add the same G1 for the field lable also.
Then in the PBO of the screen..
***Check the conditions..when other field value (on the same screen) matches
***with the value in the database table.
LOOP AT SCREEN.
IF SCREEN-GROUP1 = 'G1'.
 SCREEN-INPUT = '0'.
 SCREEN-INVISIBLE = '1'.
 MODIFY SCREEN.
ENDIF.
ENDLOOP.
Thanks,
Naren

How to add a field to the selection screen and when the user enters ...

Similar Messages

Maybe you are looking for