Add a field VBAP-MTVFP (availabilty check grp)to VA01/02/03 overview screen

Hi,
I want to add the field VBAP-MVTFP to the overview screen of Sales Order--> tcodes VA01/02/03.
I came to know that this can be done by adding the field name in TCVIEW table but I am unable to see the field on the layout even upon doing so.
Could someone please help?

Hi,
Append the table VBAP with the field you wanted to display at additional data A or B, and then write the code in sales order user exit to populate the field value.
try user exit "USEREXIT_MOVE_FIELD_TO_VBAP" under include MV45AFZZ.
regards
Vivek.

Similar Messages

How to add custoim fields on the additiondata b tab of va01 and va02

Hi All,
   i want to add the field on the Additional data B tab of the VA01 and VA02 at header level.
    Already one field is there now i want to add one more field.How to proceed.
   I think i have to go with screen exits.Can you help me in proceeding further and where should i write the code.
   It is urgetn.Please help me

I have to move the updated fields to the vbak table
The code is like this
If      VBAK-ZZGrswgh   less than    ZTRKLMT-ZZweight OR
        VBAK-ZZCubTot    less than    ZTRKLMT-ZZCube   OR
        VBAK-ZZPaltot      less than    ZTRKLMT-ZZPallet
              CLEAR VBAK_ZZTRKLMT.
Else
              MOVE X TO VBAK_ZZTRKLMT.
End if
should i write this code in the USEREXIT_MOVE_FIELD_TO_VBAK of program MV45AFZZ ?
This user exit should trigger when
VBAK-AUART Equals 'ZWH' OR
    VBAK-AUART Equals 'ZFV'
Reply soon

Need to add new fields in transaction UDM_DISPUTE.

Hi Friends,
This is regarding UDM_DISPUTE transaction in FSCM.
I need to add new fields (drop down lists) in transaction UDM_DISPUTE.
Program Name: SAPLSRMCLFRM2
Screen Number: 100
Can any one please suggest me with the name of exit using which I can add these new fields.
Or another way through which I can add these new fields viz., BADI or classes.
Thank You in Advance!
Regards,
Tejaswini

Execute the below code to find the userexits the t-code is using
REPORT yuserexit_vin NO STANDARD PAGE HEADING.
TABLES : tstc, tadir, modsapt, modact, trdir, tfdir, enlfdir.
TABLES : tstct. DATA : jtab LIKE tadir OCCURS 0 WITH HEADER LINE.
DATA : field1(30).
DATA : v_devclass LIKE tadir-devclass.
PARAMETERS : p_tcode LIKE tstc-tcode OBLIGATORY.
SELECT SINGLE * FROM tstc WHERE tcode EQ p_tcode.
IF sy-subrc EQ 0.
SELECT SINGLE * FROM tadir WHERE pgmid = 'R3TR' AND object = 'PROG' AND obj_name = tstc-pgmna.
MOVE : tadir-devclass TO v_devclass.
IF sy-subrc NE 0.
    SELECT SINGLE * FROM trdir WHERE name = tstc-pgmna.
    IF trdir-subc EQ 'F'.
      SELECT SINGLE * FROM tfdir WHERE pname = tstc-pgmna.
      SELECT SINGLE * FROM enlfdir WHERE funcname = tfdir-funcname.
      SELECT SINGLE * FROM tadir WHERE pgmid = 'R3TR' AND object = 'FUGR' AND obj_name EQ enlfdir-area.
      MOVE : tadir-devclass TO v_devclass.
    ENDIF.
ENDIF.
SELECT * FROM tadir INTO TABLE jtab WHERE pgmid = 'R3TR' AND object = 'SMOD' AND devclass = v_devclass.
SELECT SINGLE * FROM tstct WHERE sprsl EQ sy-langu AND tcode EQ p_tcode.
FORMAT COLOR COL_POSITIVE INTENSIFIED OFF.
WRITE:/(19) 'Transaction Code - ', 20(20) p_tcode, 45(50) tstct-ttext.
SKIP.
IF NOT jtab[] IS INITIAL.
    WRITE:/(95) sy-uline.
    FORMAT COLOR COL_HEADING INTENSIFIED ON.
    WRITE:/1 sy-vline, 2 'Exit Name', 21 sy-vline , 22 'Description', 95 sy-vline.
    WRITE:/(95) sy-uline.
    LOOP AT jtab.
      SELECT SINGLE * FROM modsapt WHERE sprsl = sy-langu AND name = jtab-obj_name.
      FORMAT COLOR COL_NORMAL INTENSIFIED OFF.
      WRITE:/1 sy-vline, 2 jtab-obj_name HOTSPOT ON, 21 sy-vline , 22 modsapt-modtext, 95 sy-vline.
    ENDLOOP.
    WRITE:/(95) sy-uline.
    DESCRIBE TABLE jtab.
    SKIP.
    FORMAT COLOR COL_TOTAL INTENSIFIED ON.
    WRITE:/ 'No of Exits:' , sy-tfill.
ELSE.
    FORMAT COLOR COL_NEGATIVE INTENSIFIED ON.
    WRITE:/(95) 'No User Exit exists'.
ENDIF.
ELSE.
FORMAT COLOR COL_NEGATIVE INTENSIFIED ON.
WRITE:/(95) 'Transaction Code Does Not Exist'.
ENDIF.
AT LINE-SELECTION.
GET CURSOR FIELD field1.
CHECK field1(4) EQ 'JTAB'.
SET PARAMETER ID 'MON' FIELD sy-lisel+1(10).
CALL TRANSACTION 'SMOD' AND SKIP FIRST SCREEN.
* *---End of Program

How to add Gender field to Zurich IT002 screen

Hi All,
I am planning to add Gender field with 2 radio buttons male and female to Zurich IT002 screen.
As far as I know this is the program MP000200 and screen number 2002 that is getting called.
How do i modify it or how do i enhance it to add another field.Is there any BADI for doing this.
I went to SE51 and try to create a copy of MP000200 but it is not allowing me to do that.
Please let me know the solution
Thanks
Bala Duvvuri

Hi All,
Let me tell the requirement very clearly.
If we open IT002 sreen for a US employee we have Gender block that consists of Male,Female readio buttons but if we open for a Zurich employee we dont see them.So we would like to add those fields for Zurich also.
How do i do that
Thanks
Bala Duvvuri

Add custom fields in check status

Hi Gurus,
Please help me out in this. My requirement is I need to add two custiom fields in the check status (bbpsc04) and based on the values entered in the custom fields I need to search for the shopping carts.
Please let me know how to add two fields in the check status and fetch the data based on the values entered in the custom fields.
Thanks in advance,
Andy.

Hi Andy,
first you need to make the customer fields for the shopping cart (header or item level) I assume that's already done.
Now to add the customer fields to the <u>extended</u> search you need to do the following:
1. Define the customer field in include:
a. SC HEADER INCL_EEW_PD_SEARCH_HDR_CSF_SC
OR
b. SC ITEM INCL_EEW_PD_SEARCH_ITM_CSF_SC
you have to set fields XINPUT and XDISPLAY to 'X' in table ET_FIELDS for the fields you want to use in BADI BBP_CUF_BADI_2 in method MODIFY_SCREEN. The fields defined this way are displayed if you choose the 'Extended search' link.
Refer to note 672960 - "User-defined fields 2" For more detailed instructions.

Add new fields with EEW and assign a standard check table?

Hi,
I would like to add more language fields to a BP - Sold-to (Organization). As I see, one possibility is to use EEW.
Is it then possible to link this field to an existing check table in order to get the existing langauge codes by default?
Thanks in advance!
//a

Hi,
Actually i am working on the similar task. I added 2 custom fields in order item level using EEWB. I added the check table to my custom field but for some reason it wouldn't show up. So i added the values to the DOMAIN assigned to the custom field and the values showed up on the screen in the seatch help.
I am actually still trying to find other possibilities. I will let you know if i find any.
Hope this helps you,
Karuna.

Add new field (Check number) in Txn FBL1N

Hi SAP,
Is there any way or configuration i need to do so that i can add new field (Check number) in vendor line item (Txn FBL1N)?
Here the details of the field (Check number):
Field name: CHECT
Table name: PAYR
Program name: SAPMFCHK
Appreciate your help. I will give points who help me solve this problem.
TQ
Regards,
Nazrul

Hi,
For that you Go through this below method.
I tested this senario it is working properly.
Go T.code O7E4
IMG > Financial A/cing > Accounts Receivable and Accounts Payable > Vendor Accounts > Line Items > Display Line Items > Define Line item without ALV>Choose Selection Fields
Account type K
Insert Field Name whichever you want
Save
Next Go to the FBL1N.
Select change layout button and select check number from
Save the layout
That is enough For that
If Have any doubt regarding this feel free to ask
May be this information is useful to you
Regards
Surya

Incompletion log Field VBAP POSEX is not defind in incompltion procedure ZA

Hi Friends,
Need some help on this issue.
We have some orders created in production, and when ever we go to VA02-> enter-> it pops up with the below error message." Field VBAP POSEX is not defined in incompletion procedure ZA ".
I already checked the incompletion procuredue and the field VBAP-POSEX (Purchase order item) was not at all defiend.
It gives the incompletion log for only certain line items in the sales order and not for all. There are already few items delivered and we cannot reject the order to create a new one.
I reveiwed this note "1497255 - Incompletion for PO item number (vbap-posex)" but it states it is for specifically for intercompnay orders.
Our case is standard trade order. It woud be really great anyone has come across the same situation so that i can seek for help..
Thank you so much!!
Best Regards,
Ram

Hi Lakshmipathi,
Firstly, thanks for the response.
Yes.. I did checked... the field VBAP-POSEX was not maintained at item level though.
The same item in other order does not have this problem and it is still open.
This is specific to only very few orders, namely 4 or 5 orders but not with others.
Moreover, these materils are widely used among other company codes or sales org but no issues what so ever.
This one appears to be a peculiar case. Thanks for your time and suggestions for looking it over.
Thank you..
Best Regards,
Ram

How to add additional fields to zreport which contains standard report code

Hi Experts,
In order to add additional fields to standard report i copied the code into zreport but i am unable to add additonal field into report because the code is looking so complex.
standard report:AQZZ/SAPQUERY/FKF1============
     or
sapmenu->accounting->financial accounting->accounts payable->information system->reports for accounts payable accounting->master data->S_ALR_87012087-Addresslist.
Additional feilds to add is :Region,company code,country
Please let me know how toidentify ALV and guide me how to solve this.
Regards,
naresh.

Hello Naresh,
First check whether these three fields are available in the text elements area.
Please write your code in the subroutine %comp_ldesc.
Repeat the code for your three new fields
perform ldesc(rsaqexce) using 'G00010000X010       00 A1'
    %txt1 %txt2 %txt3 'LFA1-LIFNR' LFA1-LIFNR 'LFA1-LIFNR'.
read table %textpool_langu into %textpool_langu_line
                             with key ID = 'I' key = 'A01'.
if sy-subrc is initial. %txt1 = %textpool_langu_line-entry.
else. %txt1 = %txt_unknown.
endif.
So this subroutine will give you the basic list. Now Program is creating ALV with this basic list. So I think you don't need to worry about that. Please have a thorugh look at the code over this perform, and write accordingly.
I think this is enoogh.
Please update if you got the solution, which will be informative for others.
regards,
Antony Thomas
Edited by: Antony Thomas on Jul 27, 2010 7:57 AM

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 add a field in standard tcode pa30 with info type 21.

Hi Experts
I need to add a field Child Allowance Entitlement in PA30 transaction where infotype is 21, this field is available in table P0021 but which is not active in standard transaction.
I just check in SPRO Settings - > Personnel Management - > Personnel Administration -> Customizing user Interface -> Change screen modificaion -> in that i gave the module pool number as mp002100 and screen number as 2000. the field is not shown there. but in alternative screen 2005 that field is available how can i display that field in the standard transaction pa30 with infotype 21.
Can anyone please suggest me to display the field in the standard transaction.
Regards,
Vijayan.R

Hi Vijayan,
to modify the infotype screen for your purposes, you have to maintain feature P0021 as mentioned above, in order to obtain your screen modifier.
Usually this modifier is equal to your corresponding MOLGA.
This modifier is then used in V_T588M, when you can assign alternate screen modification to your modifier.
Let`s say :
Modifier 06 - France - Screen 2000
Modifier 01 - Germany - Screen 2000 with some hidden fields.
I hope it helps
Best regards
Ondrej
Edited by: Ondrej Smutny on Aug 15, 2011 10:38 PM

How to add a field in the view not in context node

Hi All,
I want to add a new field in one of my views. The problem is that the field does not exist in the context node. I have checked in the BOL model there it comes under another root object. I would like to know whether it is possible to add the field from another root object.
can you please help to me to solve this issue.
Advance Thanks & Regards
Sujith

Hi Ashish,
I will give a detailed explanation of my requirement. I am working in ICWEB client for utility services, In this case for a particular view in the bsp application CRM_IUFCS_IC/View1.htm i want to add a field but the field is not the context nodes, or any of the related entities in the BOl Model. But its in another root object in the BOL Model. So i would like to know how can i add this field into my layout.
e.g.:let context node in view to be modified is buag and the field to be added is under BuilHeader object. This is the scenario.
Advance Thanks,
Sujith

How to add a field from BSAK/BSIK table in FI_AP_4 Data source

Hi Experts.
I need to add a field in FI_AP_4 data source.
Can you provide me steps in detail to do so, any sample for ABAP code too. field name is XZAHL and it is in multiple tables.
Thanks
mihameed

hi Amams
check this link
Adding Fields to Sales order
i think it may give u some idea
Regards,
Naveen

How to add a field in sales order header

Hi all,
I need to add a custom field say a check box in sales order header in additional data B tab.
let me know step by step.
Points will be rewarded.
Thanks.
Ramya

additional data B in sales order
sales order - Additional data B
Add new fields to Additional Data B tab in sales order
Reward Points..

Need exit to add new fields for Vendor master creation

Hi All,
        I have to add a new screen with some fields in Vendor master (Xk01) creation. Can any one suggest me
any screen exit / user exit through which I can add these fields.
       Please explain the procedure to add the fields through exit.This will be of great help.
Thanks
Vinod.

run the following program which ggives available exits for tcode
REPORT z_find_userexit NO STANDARD PAGE HEADING.
*& Enter the transaction code that you want to search through in order
*& to find which Standard SAP User Exits exists.
*& Tables
TABLES : tstc,     "SAP Transaction Codes
         tadir,    "Directory of Repository Objects
         modsapt, "SAP Enhancements - Short Texts
         modact,   "Modifications
         trdir,    "System table TRDIR
         tfdir,    "Function Module
         enlfdir, "Additional Attributes for Function Modules
         tstct.    "Transaction Code Texts
*& Variables
DATA : jtab LIKE tadir OCCURS 0 WITH HEADER LINE.
DATA : field1(30).
DATA : v_devclass LIKE tadir-devclass.
*& Selection Screen Parameters
SELECTION-SCREEN BEGIN OF BLOCK a01 WITH FRAME TITLE text-001.
SELECTION-SCREEN SKIP.
PARAMETERS : p_tcode LIKE tstc-tcode OBLIGATORY.
SELECTION-SCREEN SKIP.
SELECTION-SCREEN END OF BLOCK a01.
*& Start of main program
START-OF-SELECTION.
Validate Transaction Code
SELECT SINGLE * FROM tstc
    WHERE tcode EQ p_tcode.
Find Repository Objects for transaction code
IF sy-subrc EQ 0.
    SELECT SINGLE * FROM tadir
       WHERE pgmid    = 'R3TR'
         AND object   = 'PROG'
         AND obj_name = tstc-pgmna.
    MOVE : tadir-devclass TO v_devclass.
    IF sy-subrc NE 0.
      SELECT SINGLE * FROM trdir
         WHERE name = tstc-pgmna.
      IF trdir-subc EQ 'F'.
        SELECT SINGLE * FROM tfdir
          WHERE pname = tstc-pgmna.
        SELECT SINGLE * FROM enlfdir
          WHERE funcname = tfdir-funcname.
        SELECT SINGLE * FROM tadir
          WHERE pgmid    = 'R3TR'
            AND object   = 'FUGR'
            AND obj_name = enlfdir-area.
        MOVE : tadir-devclass TO v_devclass.
      ENDIF.
    ENDIF.
Find SAP Modifactions
    SELECT * FROM tadir
      INTO TABLE jtab
      WHERE pgmid    = 'R3TR'
        AND object   = 'SMOD'
        AND devclass = v_devclass.
    SELECT SINGLE * FROM tstct
      WHERE sprsl EQ sy-langu
        AND tcode EQ p_tcode.
    FORMAT COLOR COL_POSITIVE INTENSIFIED OFF.
    WRITE:/(19) 'Transaction Code - ',
    20(20) p_tcode,
    45(50) tstct-ttext.
    SKIP.
    IF NOT jtab[] IS INITIAL.
      WRITE:/(95) sy-uline.
      FORMAT COLOR COL_HEADING INTENSIFIED ON.
      WRITE:/1 sy-vline,
      2 'Exit Name',
      21 sy-vline ,
      22 'Description',
      95 sy-vline.
      WRITE:/(95) sy-uline.
      LOOP AT jtab.
        SELECT SINGLE * FROM modsapt
        WHERE sprsl = sy-langu AND
        name = jtab-obj_name.
        FORMAT COLOR COL_NORMAL INTENSIFIED OFF.
        WRITE:/1 sy-vline,
        2 jtab-obj_name HOTSPOT ON,
        21 sy-vline ,
        22 modsapt-modtext,
        95 sy-vline.
      ENDLOOP.
      WRITE:/(95) sy-uline.
      DESCRIBE TABLE jtab.
      SKIP.
      FORMAT COLOR COL_TOTAL INTENSIFIED ON.
      WRITE:/ 'No of Exits:' , sy-tfill.
    ELSE.
      FORMAT COLOR COL_NEGATIVE INTENSIFIED ON.
      WRITE:/(95) 'No User Exit exists'.
    ENDIF.
ELSE.
    FORMAT COLOR COL_NEGATIVE INTENSIFIED ON.
    WRITE:/(95) 'Transaction Code Does Not Exist'.
ENDIF.
Take the user to SMOD for the Exit that was selected.
AT LINE-SELECTION.
GET CURSOR FIELD field1.
CHECK field1(4) EQ 'JTAB'.
SET PARAMETER ID 'MON' FIELD sy-lisel+1(10).
CALL TRANSACTION 'SMOD' AND SKIP FIRST SCREEN.

Add a field VBAP-MTVFP (availabilty check grp)to VA01/02/03 overview screen

Similar Messages

Maybe you are looking for