Dynamic selection in program RFBILA00
Hi!
can any one tell how to add fields at document level ( for example trading partner in document) in dynamic selection of program RFBILA00.
Is there any relevant SAP notes?
regs,
ramesh B
Hello,
You can enter Trading partner field in dynamic selection at the G/L
account master record level.
When you enter the trading partner X in the dynamic selections, you
select only the accounts that have in the master data (transaction fs03)
the trading partner X.
The field trading partner that you see in the master data is stored
in the table ska1.
Unfortunatelly in dynamic selection in RFBILA00, it is not possible to
select the trading partner at document level.
Regards,
Renan
Similar Messages
-
How to use dynamic selection screen inputs in main program
hi all,
its a report where in it calls one dynamic selection screen( user need to enter the parameters here) after that i need to use those inputs for some check, can any buddy help how to use/ get that input parameters into main program.
regards,
vara..Hi,
i think u have created that dynamic selection screen in seperate program and calling to ur main program.instead of that u just create that synamic selection screen program as include program and include it in ur main program.
or u need to use set/get parameter id concept.
rgds,
bharat. -
HR - dynamic selections field name and field value in the program
HI all,
I am using dynamic selections for a HR report.
I have created a view with 20 fields and added it to HR report category ___00003(All fields suppressed).
I need to check these fields in the program. But i am not able to get the field name and value in the program for dynamic selections fields.
Please let me know how to get the field names and values in the program for dynamic selections .
Thanks,
Kranthi.You have to read the itab <i>pnpdynse</i> in your Program to obtain the Dynamic Selection values. This itab has a deep structure.. you can set a break point in one of the events before <b>get pernr</b> & in the debug mode, you will able to display the itab <i>pnpdynse</i>.. you can then identify how to get the values into your code..
~Suresh -
Access field from dynamic selection screen of LDB in local program
I am using ldb PSJ in my program. I want to use input given in fields "Plant" and "Business Area" in my program and do some process based on input in this field. Both these fields come as part of dynamic selection. How can I access this field in my program?
Take a look at [Dynamic Selections in the Database Program|http://help.sap.com/saphelp_nw04/helpdata/en/67/93b80914a911d2953c0000e8353423/frameset.htm]
You may try to access this LDB program data via field-symbols and assign to (SAPDBPSJ)DYN_SEL.
> TYPE-POOLS rsds.
> DATA: l_dyn_sel TYPE rsds_type.
> FIELD-SYMBOLS: <fs> TYPE rsds_type.
> DATA: name(17) VALUE '(SAPDBPSJ)DYN_SEL'.
> ASSIGN (name) TO <fs>.
> l_dyn_sel = <fs>.
> UNASSIGN <fs>.
Regards -
Dynamic Selections in Standard SAP program
There is an Icon which enables dynamic selection in the Standard SAP Transaction 'FBL3N'. How can I add or fields from this dynamic selection?
Any help would be appeciated.
Thanks,
ALAM.Hi ,
it all need upon requrement..
if any extra paramaters need to add to input or output ---check for Badi or User-exits and add functionality.
if no enhacements found try to create a copy of standard program and create z Program and add own code..
Always better to create custom program for rather manually doing code changes to standard program..
Prabhudas -
Program with Dynamic selection but no LDB is used
Hello Friends,
Can any one tell me the any standard program name, In which Dynamic selection (Free Selection) is used but LDB(Logical Data Base) is not used.
Lalit SoniNot possoble with out LDB, it uses selection-screen dynamic selections for table <tabname> in ldb, one alternative is using the screen table to hide selection.
E,.g
loop at screen.
if screen-group1 = 'FS1' .
screen-active = 1.
modify screen.
endif.
endloop. -
Dynamic selection in ALV report
Hi Guru's
I have cpoied a standatrd program(RFBILA00) into Z-program.
I need to display the profit centre from dynamic selection in ALV header output when profit centre is selected.If not no need to display it.
Please do the needful.
Thanks,
Sunil.hi,
Refer to the link,
http://www.abapcode.info/2007/06/dynamic-selection-on-alv-at-run-time.html
This may help you.
Regards
Sumit Aagrwal -
RS_VARIANT_CREATE and dynamic selections
We would like to use a function module to create a variant and run the job in batch mode. The program that we are trying to use is RFBILA00. We need to use one of the dynamic selections and do not know how to do this.
Can anyone help? I have seen other posts on this subject but no one ever answers them.
thanks!Thanks for your input but this does not help. We have a program that is run that creates the variant to run F.01 using RFBILA00. The variants are not defined before this program runs.
We are able to create the variant based on input from a selection screen in our z program, but now have a requirement to use the dynamic selection P/L account type and Balance sheet account.
Our Z program creates the variant, runs the job and then deletes the variant.
If anyone has any other ideas, we are open to suggestions. -
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/ customerHi,
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 -
Is it possible to display only dynamically selected fields in the out put?
Is it possible to display only dynamically selected fields in the out put? i need to display set of columns in the selection criteria, but in the output i have display only input given fields. because i need to convert it into .csv file. So i have to display selected fields from internal table. In oracle they are using"execute immediate". is there any equivalent in SAP?
thanks in advance.Hi Remya,
Are you talking about dynamic programming in ABAP ?
If yes, there are concepts like RTTS which facilitates it.
Yes, the select query also supports dynamic selection of fields. ( Please care about ( ) in dynamic sql ).
Do more research on Field Symbols and statements like ASSIGN COMPONENT OF.
Regards,
Philip. -
How to deal with dynamic selection screen elements when macros are used?
Hello experts,
This is regarding the dynamic selection screen elements. Actually the requirement is to modify the existing standard report program RFUMSV00 by copying it into a Z report, adding a few selection screen elements and new fields in the output. I actually did everything required except for the one thing that is going out of my reach.
There are a certain fields which are coming when they are not supposed to get displayed. I don't understand the code because of its obsoleteness. Neither can I debug it because it is just data declaration.
This is the code where there is a fault. If I copy the entire code into a new Z report, I'm getting new fields like Entry Date, Document Type, Reference Transaction, Reference key, Logical system.
DEFINE selection_screen_line.
selection-screen: begin of line.
parameters &3 like &4 default 'X' modif id mc4.
selection-screen: comment (30) &1 for field &3 modif id mc4.
selection-screen: comment pos_low(10) text-019
for field &2 modif id mc4. "neu
parameters &2 like rfums_alv-variante modif id mc4.
selection-screen:
position pos_high.
selection-screen: pushbutton (15) text-028
user-command &5 modif id mc4.
selection-screen end of line.
END-OF-DEFINITION.
Kindly, suggest me the right solution.In the program attributes ( SE38 > RFUMSV00 > GOTO > Properties ), you will find a logical database BRF declared. The include DBBRFSEL is part of the selection screen of this logical database.
The selection screen is actually the selection screen of this logical database.
Under the Logical Database field, there is a Selection screen field where you can input which selection screen of the logical database to be used.
But, this is just to change the selection screen that is displayed. To completely suppress it you need to remove logical database declaration from the properties of the program and call it inside your program through function module.
You cannot just remove it from the declaration because many of its variables are used in the program.
So call it using function module as the first step in INITIALIZATION section of the program.
The syntax and function module to call it in your program can be found in the following thread :
How to hide the selection screen of a Logical datebase?
Regards,
Ashish -
How to add a new Field in the Dynamic Selection screen section.
HI,
There is a requirement in which I need to add a field in existing program of dynamic selections.
I need to add a field KNKK-DBRTG (Customer Rating) in dynamic selections screen of some existing report
which has a dynamic selection screen with other fields like customer account, company code etc. Along with this i need to add Customer rating field also in the selection screen.
I have used GET KNKK statement to select this in the Dynamic selection screen. But I need to make it appear
on the screen.
LDB used is the Customer Database.
I have added GET KNKK statement after GET KNA1 statement.
Can any one help me how we can make this rating field appear in the selection screen.
With the GET statement Credit control area Fields can be selected in the selection screen but I have to permanantly add the field in the selection screen.
Regards
Prashant PrabhuHi,
So you need that this new field have data in old records?
1.- If you are in BI 7.0 and the logic or data for that New field are in the same Dimension, you can use a Remodeling to fill it. I mean if you want if you want to load from a Master Data from other InfoObject in the same Dim.
2.- If condition "1" is not yours.
First add the new field, then create a Backup Cube (both cubes with the new field) and make a full update with all information in the original Cube. The new field willl be empty in both cubes.
Create an UR from BackUp_Cube to Original_Cube with all direct mapping and create a logic in the Start Routine of the UR (modiying the data_package) you can look for the data in the DSO that you often use to load.
To do that both cubes have to be Datasources ( right click on Cube-> aditional function-> and I think is "Extract Datasource")
Hope it helps. Regards, Federico -
How to translate the text dynamically in the program?
Hi All,
I have a requirement where I need to translate the text dynamically in the program based on the Language Key retrieved.
Let's say that the Login language is 'EN' and in the logic has retrieved the language 'IT'(based on some conditions). I have to transate the text(which is maintained using the text elements) to ITALIAN(IT) Language and send the same as an email.
Could you please tell me if any Function Module is available in SAP which translates the text Dynamically in the program. or is there any other way to translate the text dynamically in the program.
Could you please share your valuable inputs? Thank you in advance.
Thanks & regards,
Paddu.you could use SET LOCALE LANGUAGE myLanguage - so you can switch to the desired language and all texts will selected from that language.
-
Exclude one field from Logical Database's dynamic selection screen
Hi Guru,
I have a requirement to amend a program to exclude the document number field (bsik-belnr) from the dynamic selection-screen of the logical database KDF(Vendor Database) so that the program will not filter according to the document number.
I have use the below syntax in my zprogram.
selection-screen exclude select-options: doc-no.
However I get syntax error "The addition EXCLUDE is only allowed in INCLUDE DBKDFSEL".
Please advice.
Best Regards,
FungThe selection part of the logical database defines input fields for selecting data.
The runtime environment displays these on the selection screen when you run an executable program linked to the logical database.
Include called DB<ldbname>SEL.
SELECTION-SCREEN BEGIN OF VERSION ver TEXT-xxx.
SELECTION-SCREEN EXCLUDE ... .
SELECTION-SCREEN END OF VERSION ver.
Defines a selection screen version (with a three-character name ver ). Between BEGIN OF VERSION and END OF VERSION , you can exclude selection screen objects for the version ver , i.e. remove them from the selection screen with SELECTION-SCREEN EXCLUDE.
SELECTION-SCREEN DYNAMIC SELECTIONS FOR TABLE dbtab
If one of these tables is active in the report (i.e. it is declared under TABLES or lies somewhere on the path from the root of the database hierarchy to a table declared with TABLES ), a pushbutton called 'Dynamic selections' appears on the selection screen. -
Need to disable one of the select-options in dynamic selection screen
Hi,
we have copied the Standard program: RFDOPR00 into Z, my requirement is to disable one of the select-options in dynamic selection screen for ex: Reason code(User shouldnot able to enter anything in it).
Can anyone please tell me the procedure to do it... I had tried using at selection-screen but it doesnt work as it in 'LOOP AT SCREEN', i am not able to capture the Parameter name(screen-name).
Thanks,
RaviHi,
Get inside your selection screen, by executing your program.
Now type /h in the field where you enter transaction code and press enter.
Now again press enter, this will take you debugger starting from your Selection screen.
You might be knowing this, still if you are not aware of this, this might be a valuable tip.
From here , you can trace your Parameter name.
Maybe you are looking for
-
Installing 64bit OS and memory expansion
Can installing a 64bit OS on a R61-5KM allow me to expand the allowable memory within the unit. I currently have WinXP Pro and I know that even though I have installed 4GB of ram, the OS can only work with 3GB, even though the BIOS states that I have
-
Hello, I want to sell my iPhone 4s to get iPhone 5, how can i do that?
Hello, I want to sell my iPhone 4s to get iPhone 5, how can i do that? Can i sell my iPhone 4s to get iPhone 5, what should i do? the phone is on a good condition
-
Pricing condition not appearing in the COMMPR01 for service products
Dear All, i have created the a condition type ZPR in R3 . This condition type is successfully replicated to CRM along with the access sequence and the relevant tables . Now the problem is when i am trying to maintain the price in COMMPR01 for the
-
Help: Interesting Problem
I need help. If any compationate soul is willing to help, I would appreciate it greatly!!! Please reply here or send the code to [email protected] Problem: A palindrome problem Study the following interesting fact: (1)Take any number N, (2) reverse i
-
JSP ASP PHP (and others)
Does anyone know how many projects are implementing JSPs in comparison to those using .asp (and others)? I was just curious.. There's an "unfair" (I think) comparison (March 2002) here http://php.weblogs.com/popularity