RG1 Report Tables
Hi,
Can any one please provide the list tables/views which used RG1 Report.Kindly let me know.
RG-1 register, i.e. daily stock account of excisable goods.
We have seeded report oracle EBS ,but unable find the table/views of reports.kindly let me know the solution.
Similar Messages
-
Hi All,
We developed a report to display RG1 report, currently in that we are facing a problem.
The problem is when we run the report fro the current month its is not displaying the closing balnce done for the material in the previous month. (i.e.) If the report is run for the January month and if not transaction is performed in the December month the report is supose to fetch the last last transaction performed inthe November month.
The thing is it fetching the value for January month and not the value of November month.
Below we have pasted the logic used for this issue.
The Bold sentence is what used for the specific logic.
*& Report ZFI_IN01_RG1_REPORT
REPORT ZFI_IN01_RG1_REPORT LINE-SIZE 265.
TYPE-POOLS : SLIS.
TABLES : ZIN01_RG1BASE, "RG1 Base Table
MAKT, " Material Descriptions
J_1ICHIDTX. " Chapter id and Text
TYPES: BEGIN OF TP_RG1BASE,
MBLNR LIKE ZIN01_RG1BASE-MBLNR,
REF_DOC LIKE ZIN01_RG1BASE-REF_DOC,
MATNR LIKE ZIN01_RG1BASE-MATNR,
ZEILE LIKE ZIN01_RG1BASE-ZEILE,
J_1ICHID LIKE ZIN01_RG1BASE-J_1ICHID, " CHAPTER ID
J_1ICHT1 LIKE J_1ICHIDTX-J_1ICHT1, " CHAPTER ID DESC
BUDAT LIKE ZIN01_RG1BASE-BUDAT,
BWART LIKE ZIN01_RG1BASE-BWART,
KZBEW LIKE ZIN01_RG1BASE-KZBEW,
CPUTM like ZIN01_RG1BASE-CPUTM,
SPLIT_ID like ZIN01_RG1BASE-SPLIT_ID,
MENGE LIKE ZIN01_RG1BASE-MENGE,
CLOSE_BAL_PRD LIKE ZIN01_RG1BASE-CLOSE_BAL_PRD,
EXPIND LIKE ZIN01_RG1BASE-EXPIND,
ZKZBEW LIKE ZIN01_RG1BASE-ZKZBEW,
REF_MTYPE LIKE ZIN01_RG1BASE-REF_MTYPE,
END OF TP_RG1BASE.
DATA : IG_RG1BASE TYPE STANDARD TABLE OF TP_RG1BASE WITH HEADER LINE
INITIAL SIZE 100 WITH DEFAULT KEY,
WG_RG1BASE LIKE LINE OF IG_RG1BASE,
IG_RG1BASE_COPY LIKE TABLE OF IG_RG1BASE,
WG_RG1BASE_COPY LIKE LINE OF IG_RG1BASE,
IG_SUBCONT TYPE STANDARD TABLE OF TP_RG1BASE WITH HEADER LINE
INITIAL SIZE 100 WITH DEFAULT KEY.
WG_SUBCONT LIKE LINE OF IG_RG1BASE.
DATA : G_OPEN_BAL LIKE ZIN01_RG1BASE-CLOSE_BAL_PRD,
G_CLOSE_BAL LIKE ZIN01_RG1BASE-CLOSE_BAL_PRD,
G_FLAG .
<b>DATA : IG_SORT TYPE TABLE OF ZIN01_RG1BASE ,
WG_SORT TYPE ZIN01_RG1BASE,
IG_ZIN01_RG1BASE LIKE TABLE OF ZIN01_RG1BASE WITH HEADER LINE.</b>
Selection Screen
SELECTION-SCREEN : BEGIN OF BLOCK BLOCK1 WITH FRAME.
PARAMETERS : PF_BUDAT LIKE MKPF-BUDAT OBLIGATORY , " FROM DATE
PT_BUDAT LIKE MKPF-BUDAT OBLIGATORY. " TO DATE
SELECTION-SCREEN : END OF BLOCK BLOCK1.
AT Selection Screen
AT SELECTION-SCREEN.
SELECT SINGLE * FROM ZIN01_RG1BASE WHERE BUDAT BETWEEN PF_BUDAT AND PT_BUDAT AND CANC_IND <> 'C'.
IF SY-SUBRC <> 0.
MESSAGE E006(ZIN01_FI).
ENDIF.
START OF SELECTION
START-OF-SELECTION.
SELECT MBLNR REF_DOC MATNR ZEILE A~J_1ICHID J_1ICHT1 BUDAT BWART KZBEW CPUTM
SPLIT_ID MENGE CLOSE_BAL_PRD EXPIND ZKZBEW REF_MTYPE FROM ZIN01_RG1BASE AS A INNER JOIN J_1ICHIDTX AS B
ON A~J_1ICHID = B~J_1ICHID
INTO TABLE IG_RG1BASE
WHERE BUDAT BETWEEN PF_BUDAT AND PT_BUDAT AND CANC_IND <> 'C'
AND B~LANGU = SY-LANGU+0(1) AND BWART <> '602'
AND BWART <> '262'
AND BWART <> '202'
AND BWART <> '123'
AND BWART <> '162'
AND BWART <> '102'
AND BWART <> '502'
AND BWART <> '532'.
IF SY-SUBRC <> 0.
MESSAGE E006(ZIN01_FI).
ELSE.
SELECT A~MBLNR A~XBLNR B~RDOC1 B~ZEILE B~RITEM1 B~EXBAS B~MENGE INTO TABLE IG_EXCISE FROM MKPF AS A INNER JOIN
J_1IEXCDTL AS B ON A~XBLNR = B~RDOC1
FOR ALL ENTRIES IN IG_RG1BASE
WHERE A~MBLNR = IG_RG1BASE-MBLNR AND B~STATUS <> 'R'.
IF SY-SUBRC <> 0.
MESSAGE E006(ZIN01_FI).
ELSE.
SELECT VBELN POSNN INTO TABLE IG_VBFA FROM VBFA FOR ALL ENTRIES IN IG_EXCISE
WHERE VBELV = IG_EXCISE-RDOC1 AND POSNV = IG_EXCISE-RITEM1 AND VBTYP_N = 'M'.
SORT IG_RG1BASE BY MATNR .
IG_RG1BASE_COPY[] = IG_RG1BASE[].
DELETE ADJACENT DUPLICATES FROM IG_RG1BASE_COPY COMPARING MATNR.
<b>SORT IG_RG1BASE BY MATNR BUDAT CPUTM SPLIT_ID.
SELECT * FROM ZIN01_RG1BASE INTO IG_ZIN01_RG1BASE.
IG_SORT[] = IG_ZIN01_RG1BASE[].
SORT IG_SORT BY MATNR BUDAT DESCENDING.</b>
*for 122 AND 161 movement type : if the refdoc is 101 f , subtract 122 menge from 101 menge.
LOOP AT IG_RG1BASE_COPY INTO WG_RG1BASE_COPY.
CLEAR G_FLAG.
LOOP AT IG_RG1BASE INTO WG_RG1BASE WHERE MATNR = WG_RG1BASE_COPY-MATNR.
<b>IF G_FLAG = ' '.
PERFORM OPENING_BALANCE.
WG_MAIN-OPEN_BAL = G_OPEN_BAL.
ELSE.
WG_MAIN-OPEN_BAL = G_CLOSE_BAL.
ENDIF.</b>
APPEND WG_MAIN TO IG_MAIN.
CLEAR : WG_MAIN, WG_RG1BASE.
ENDLOOP.
CLEAR WG_RG1BASE_COPY.
ENDLOOP.
PERFORM OPENING_BAL_CHANGE.
PERFORM DISPLAY.
*& Form OPENING_BALANCE
text
FORM OPENING_BALANCE.
G_FLAG = F.
<b>READ TABLE IG_SORT INTO WG_SORT WITH KEY MATNR = WG_MATERIAL-MATNR.
IF SY-SUBRC = 0.
*RECIPT +
IF WG_RG1BASE-BWART = '101' AND WG_RG1BASE-KZBEW = 'F' OR WG_RG1BASE-BWART = '501' OR WG_RG1BASE-BWART = '561' OR WG_RG1BASE-BWART = '531'.
G_OPEN_BAL = WG_SORT-CLOSE_BAL_PRD - WG_RG1BASE-MENGE.
*ISSUES
ELSEIF WG_RG1BASE-REF_MTYPE = '101' AND WG_RG1BASE-ZKZBEW = 'F' .
G_OPEN_BAL = WG_SORT-CLOSE_BAL_PRD + WG_RG1BASE-MENGE.
ELSEIF WG_RG1BASE-REF_MTYPE = '501' OR WG_RG1BASE-REF_MTYPE = '561' OR WG_RG1BASE-REF_MTYPE = '531'.
G_OPEN_BAL = WG_SORT-CLOSE_BAL_PRD + WG_RG1BASE-MENGE.
ELSE.
G_OPEN_BAL = WG_SORT-CLOSE_BAL_PRD.
ENDIF.
ELSE.
G_OPEN_BAL = 0.
ENDIF.</b>
ENDFORM.
Suggestions and Help will be much appreciated.
Regards.
Ramesh.Hi,
I am having already this report please use this coding.
REPORT YMS_EXDET MESSAGE-ID E4 NO STANDARD PAGE HEADING LINE-SIZE 350.
*REPORT ZMM_EXIN_DOC_ALV_HEADER .
TABLES : J_1IEXCHDR, " header table
J_1IEXCDTL, " item table
J_1IPART1, " Excise part I detials
J_1IPART2, " Excise Part II details
LFA1, " vendor master table
J_1IMOVEND, " vendor excise details table
MSEG, " Document Segment: Material
MKPF, " Header: Material Document
DD07T, " domain text table
T001W. " Plant and Branch Details
DATA : BEGIN OF IT_CHDR OCCURS 100,
SERIALNO LIKE J_1IPART1-SERIALNO,
DOCNO LIKE J_1IEXCHDR-DOCNO,
DOCYR LIKE J_1IEXCHDR-DOCYR,
EXNUM LIKE J_1IEXCHDR-EXNUM,
EXDAT LIKE J_1IEXCHDR-EXDAT,
WERKS LIKE J_1IEXCHDR-WERKS,
EXBED LIKE J_1IEXCHDR-EXBED,
EXCCD LIKE J_1IEXCHDR-EXCCD,
ECS LIKE J_1IEXCHDR-ECS,
STATUS LIKE J_1IEXCHDR-STATUS, "CHALLAN STATUS
END OF IT_CHDR.
DATA : BEGIN OF IT_CDTL OCCURS 100,
SERIALNO LIKE J_1IPART1-SERIALNO,
DOCYR LIKE J_1IEXCDTL-DOCYR,
DOCNO LIKE J_1IEXCDTL-DOCNO,
EXNUM LIKE J_1IEXCDTL-EXNUM,
EXDAT LIKE J_1IEXCDTL-EXDAT,
LIFNR LIKE J_1IEXCDTL-LIFNR,
MATNR LIKE J_1IEXCDTL-MATNR,
MAKTX LIKE J_1IEXCDTL-MAKTX,
CHAPID LIKE J_1IEXCDTL-CHAPID,
EXBAS LIKE J_1IEXCDTL-EXBAS,
EXBED LIKE J_1IEXCDTL-EXBED,
ECS LIKE J_1IEXCDTL-ECS,
MENGE LIKE J_1IEXCDTL-MENGE,
MEINS LIKE J_1IEXCDTL-MEINS,
RDOC2 LIKE J_1IEXCDTL-RDOC2,
EXGRP LIKE J_1IEXCDTL-EXGRP,
RDOC1 LIKE J_1IEXCDTL-RDOC1,
STATUS LIKE J_1IEXCDTL-STATUS, "CHALLAN STATUS
END OF IT_CDTL.
DATA TEXT(10).
DATA : BEGIN OF IT_OUT OCCURS 0,
SERIALNO LIKE J_1IPART1-SERIALNO,
TEXT1 LIKE TEXT,
EXNUM LIKE J_1IEXCDTL-EXNUM,
EXDAT LIKE J_1IEXCDTL-EXDAT,
NAME LIKE LFA1-NAME1,
DDTEXT LIKE DD07T-DDTEXT,
EXCCD LIKE J_1IEXCHDR-EXCCD,
BUDAT LIKE MKPF-BUDAT,
EXBAS LIKE IT_CDTL-EXBAS,
EXBED LIKE IT_CDTL-EXBED,
ECS LIKE IT_CDTL-ECS,
MATNR LIKE IT_CDTL-MATNR,
MAKTX LIKE IT_CDTL-MAKTX,
CHAPID LIKE IT_CDTL-CHAPID,
MENGE LIKE IT_CDTL-MENGE,
MEINS LIKE IT_CDTL-MEINS,
DEL_IND(1),
END OF IT_OUT.
DATA IT_PART2 LIKE J_1IPART1 OCCURS 0 WITH HEADER LINE.
DATA S_NO(4) .
DATA DB_CNT LIKE SY-TABIX.
DATA EBELN_T LIKE MSEG-EBELN .
TYPE-POOLS : SLIS.
DATA : AFIELD TYPE SLIS_FIELDCAT_ALV.
DATA : LIST_HEADER TYPE SLIS_T_LISTHEADER,
FIELDCAT TYPE SLIS_T_FIELDCAT_ALV,
LS_FTCAT TYPE LVC_S_FCAT,
SORTCAT TYPE SLIS_T_SORTINFO_ALV,
SORTCAT_LN LIKE LINE OF SORTCAT,
G_REPID LIKE SY-REPID,
G_BACK_GROUND(70), "like bapibds01-objkey,
GS_VARIANT LIKE DISVARIANT,
G_SAVE ,
GT_EVENTS TYPE SLIS_T_EVENT,
ALV_EVENT TYPE SLIS_ALV_EVENT,
EVENTCAT TYPE SLIS_T_EVENT,
EVENTCAT_LN LIKE LINE OF EVENTCAT,
LAYOUT_IN TYPE SLIS_LAYOUT_ALV,
LAYOUT_IN1 TYPE SLIS_LAYOUT_ALV.
CONSTANTS : GC_FORMNAME_TOP_OF_PAGE TYPE SLIS_FORMNAME VALUE
'TOP_OF_PAGE',
GC_FORMNAME_USER_COMMAND TYPE SLIS_FORMNAME VALUE
'USER_COMMAND',
GC_FORMNAME_BEFORE_OUTPUT TYPE SLIS_FORMNAME VALUE
'BEFORE_OUTPUT'.
ALV_EVENT TYPE SLIS_ALV_EVENT,
DATA EX_NO LIKE IT_CHDR-EXNUM VALUE 0.
DATA REGTYP_1 LIKE J_1IPART1-REGTYP.
SELECTION-SCREEN BEGIN OF BLOCK B WITH FRAME.
PARAMETERS WERKS TYPE J_1IEXCHDR-WERKS.
SELECT-OPTIONS : BUDAT FOR J_1IEXCHDR-EXDAT.
PARAMETERS : R1 RADIOBUTTON GROUP GRP DEFAULT 'X',
R2 RADIOBUTTON GROUP GRP.
SELECTION-SCREEN END OF BLOCK B.
INITIALIZATION.
G_REPID = SY-REPID.
G_SAVE = 'A'.
PERFORM BUILD_EVENT USING GT_EVENTS[].
PERFORM ALV_EVENT_INIT.
AT SELECTION-SCREEN.
REFRESH LIST_HEADER.
PERFORM TOP_OF_PAGE_LIST_HEADER USING LIST_HEADER.
START-OF-SELECTION.
PERFORM ALV_EVENT_INIT.
G_REPID = SY-REPID.
G_BACK_GROUND = ' ' .
IF R1 = 'X'.
CLEAR R2. CLEAR : REGTYP_1.
REGTYP_1 = 'A'.
set titlebar 'BALAJI' with DB_CNT.
ELSEIF R2 = 'X'.
CLEAR R1.CLEAR : REGTYP_1.
REGTYP_1 = 'C'.
set titlebar 'BALAJI1' with DB_CNT.
ENDIF.
SELECT * FROM J_1IPART1
INTO CORRESPONDING FIELDS OF TABLE IT_PART2
WHERE REGTYP = REGTYP_1 AND
TRNTYP = 'GRPO'.
AND BUDAT IN BUDAT.
DOCYR = IT_CDTL-DOCYR AND
DOCNO = IT_CDTL-DOCNO.
LOOP AT IT_PART2.
SELECT SINGLE * FROM J_1IEXCHDR
INTO CORRESPONDING FIELDS OF IT_CHDR
WHERE TRNTYP = 'GRPO' AND
STATUS NE ' ' AND
STATUS EQ ' ' AND
DOCYR = IT_PART2-DOCYR AND
DOCNO = IT_PART2-DOCNO AND
WERKS = WERKS AND
EXDAT IN BUDAT.
ORDER BY EXDAT.
IF SY-SUBRC = 0.
APPEND IT_CHDR.
ELSE.
CONTINUE.
ENDIF.
IF SY-SUBRC <> 0.
MESSAGE E084.
ENDIF.
ENDLOOP.
*******************SPD****************
SELECT * INTO CORRESPONDING FIELDS OF IT_CDTL FROM J_1IEXCDTL WHERE
TRNTYP = 'GRPO' AND WERKS = WERKS AND
EXDAT IN BUDAT AND STATUS NE 'B'.
SELECT SINGLE * FROM J_1IPART1 WHERE DOCNO = IT_CDTL-DOCNO AND
DOCYR = IT_CDTL-DOCYR AND
REGTYP = REGTYP_1.
IF SY-SUBRC EQ 0.
SELECT SINGLE * FROM J_1IPART2 WHERE DOCNO = IT_CDTL-DOCNO AND
DOCYR = IT_CDTL-DOCYR.
IF SY-SUBRC NE 0.
IT_CDTL-SERIALNO = J_1IPART1-SERIALNO.
APPEND IT_CDTL.
ENDIF.
ENDIF.
ENDSELECT.
***************SPD********************
SELECT BDOCNO BDOCYR BEXNUM BEXDAT BWERKS BEXBED B~EXCCD
B~ECS
B~STATUS
A~SERIALNO
FROM J_1IPART1 AS A INNER JOIN J_1IEXCHDR AS B
ON ADOCYR = BDOCYR AND ADOCNO = BDOCNO INTO CORRESPONDING
FIELDS OF TABLE IT_CHDR WHERE B~TRNTYP = 'GRPO' AND
BWERKS = WERKS AND BEXDAT IN BUDAT AND
B~STATUS = ' ' AND
B~STATUS = 'C' AND
A~REGTYP = REGTYP_1.
SORT IT_PART2 BY SERIALNO.
LOOP AT IT_CHDR.
SELECT * FROM J_1IEXCDTL
INTO CORRESPONDING FIELDS OF IT_CDTL
FOR ALL ENTRIES IN IT_CHDR
WHERE
TRNTYP = 'GRPO' AND
STATUS EQ ' ' AND
STATUS EQ 'C' AND
STATUS NE 'P' AND
DOCNO = IT_CHDR-DOCNO AND
DOCYR = IT_CHDR-DOCYR AND
EXNUM = IT_CHDR-EXNUM AND
EXDAT = IT_CHDR-EXDAT AND
WERKS = IT_CHDR-WERKS.
IF SY-SUBRC = 0.
APPEND IT_CDTL.
CLEAR IT_CDTL.
ELSE.
CONTINUE.
ENDIF.
ENDSELECT.
MODIFY IT_CDTL INDEX SY-TABIX.
CLEAR IT_CDTL.
ENDLOOP.
*****spd change**********
*LOOP AT IT_CDTL.
*SELECT SINGLE * FROM J_1IPART2 WHERE DOCNO = IT_CDTL-DOCNO AND
DOCYR = IT_CDTL-DOCYR.
*IF SY-SUBRC = 0.
DELETE IT_CDTL INDEX SY-TABIX.
*ENDIF.
*ENDLOOP.
**SELECT
*******spd ****************
SORT IT_CDTL BY EXNUM EXDAT.
DELETE ADJACENT DUPLICATES FROM IT_CDTL COMPARING MATNR EXNUM EXDAT.
LOOP AT IT_CDTL.
CLEAR TEXT.
DB_CNT = DB_CNT + 1.
READ TABLE IT_CHDR WITH KEY EXNUM = IT_CDTL-EXNUM DOCNO =
IT_CDTL-DOCNO.
READ TABLE IT_PART2 WITH KEY DOCNO = IT_CDTL-DOCNO .
IT_OUT-SERIALNO = IT_PART2-SERIALNO.
SELECT SINGLE NAME1 FROM LFA1
INTO IT_OUT-NAME
WHERE LIFNR = IT_CDTL-LIFNR.
SELECT SINGLE * FROM LFA1
WHERE LIFNR = IT_CDTL-LIFNR.
IF LFA1-LAND1 EQ 'IN'.
TEXT = 'INVOICE'.
IT_OUT-TEXT1 = TEXT.
ELSE.
TEXT = 'BOE'.
IT_OUT-TEXT1 = TEXT.
ENDIF.
SELECT SINGLE * FROM J_1IMOVEND
WHERE LIFNR = IT_CDTL-LIFNR.
SELECT SINGLE * FROM DD07T
INTO IT_OUT-DDTEXT
WHERE DOMNAME = 'J_1IVTYP' AND
DDLANGUAGE = 'EN' AND
DOMVALUE_L = J_1IMOVEND-J_1IVTYP.
IF DD07T-DDTEXT = 'First Stage Dealer of indigenous excisable goods'
OR
DD07T-DDTEXT = 'Second Stage Dealer of indigenous excisablegoods'.
DD07T-DDTEXT = 'Dealer'.
ENDIF.
IT_OUT-DDTEXT = DD07T-DDTEXT.
ELSEIF DD07T-DDTEXT = 'Second Stage Dealer of indigenous excisable
*goods'.
DD07T-DDTEXT =
CLEAR EBELN_T.
SELECT SINGLE LFBNR FROM MSEG
INTO EBELN_T
WHERE MBLNR = IT_CDTL-RDOC2 .
SELECT SINGLE * FROM MSEG
WHERE BWART EQ '106' AND
LFBNR = EBELN_T ."and
ebeln = ebeln_t.
IF SY-SUBRC = 0.
IT_OUT-DEL_IND = 'X'.
ELSE.
IT_OUT-DEL_IND = ' '.
ENDIF.
SELECT SINGLE BUDAT FROM MKPF
INTO IT_OUT-BUDAT
WHERE MBLNR = EBELN_T ."MSEG-LFBNR.
IT_OUT-EXNUM = IT_CDTL-EXNUM.
IT_OUT-EXDAT = IT_CDTL-EXDAT.
IT_OUT-EXCCD = IT_CHDR-EXCCD.
IT_OUT-SERIALNO = IT_CHDR-SERIALNO.
IT_OUT-SERIALNO = IT_CDTL-SERIALNO.
IT_OUT-EXBAS = IT_CDTL-EXBAS.
IT_OUT-EXBED = IT_CDTL-EXBED.
IT_OUT-ECS = IT_CDTL-ECS.
IT_OUT-MATNR = IT_CDTL-MATNR.
IT_OUT-MAKTX = IT_CDTL-MAKTX.
IT_OUT-CHAPID = IT_CDTL-CHAPID.
IT_OUT-MENGE = IT_CDTL-MENGE.
IT_OUT-MEINS = IT_CDTL-MEINS.
APPEND IT_OUT.
EX_NO = IT_CDTL-EXNUM.
ENDLOOP.
Title Portion
IF REGTYP_1 = 'A'.
SET TITLEBAR 'BALAJI' WITH DB_CNT.
ELSEIF REGTYP_1 = 'C'.
SET TITLEBAR 'BALAJI1' WITH DB_CNT.
ENDIF.
AFIELD-COL_POS = 1.
AFIELD-FIELDNAME = 'SERIALNO'.
AFIELD-SELTEXT_L = 'SERIAL NO.'.
AFIELD-JUST = 'L'.
APPEND AFIELD TO FIELDCAT.
AFIELD-COL_POS = 2.
AFIELD-FIELDNAME = 'TEXT1'.
AFIELD-SELTEXT_L = 'TYPE OF DOC'.
AFIELD-JUST = 'L'.
AFIELD-DECIMALS_OUT = '0'.
AFIELD-NO_ZERO = 'X'.
APPEND AFIELD TO FIELDCAT.
AFIELD-COL_POS = 3.
AFIELD-FIELDNAME = 'EXNUM'.
AFIELD-SELTEXT_L = 'DOC.NO'.
AFIELD-JUST = 'L'.
APPEND AFIELD TO FIELDCAT.
AFIELD-COL_POS = 4.
AFIELD-FIELDNAME = 'EXDAT'.
AFIELD-SELTEXT_L = 'DOC.DATE'.
AFIELD-JUST = 'C'.
APPEND AFIELD TO FIELDCAT.
AFIELD-COL_POS = 5.
AFIELD-FIELDNAME = 'NAME'.
AFIELD-SELTEXT_L = 'NAME OF THE SUPPLIER'.
AFIELD-NO_ZERO = 'X'.
AFIELD-JUST = 'L'.
APPEND AFIELD TO FIELDCAT.
AFIELD-COL_POS = 6.
AFIELD-FIELDNAME = 'DDTEXT'.
AFIELD-SELTEXT_L = 'TYPE-OF-SUPPLIER'.
AFIELD-JUST = 'L'.
APPEND AFIELD TO FIELDCAT.
AFIELD-COL_POS = 7.
AFIELD-FIELDNAME = 'EXCCD'.
AFIELD-SELTEXT_L = 'ECC OF THE SUPPLIER'.
AFIELD-NO_ZERO = 'X'.
AFIELD-JUST = 'L'.
APPEND AFIELD TO FIELDCAT.
AFIELD-COL_POS = 8.
AFIELD-FIELDNAME = 'BUDAT'.
AFIELD-SELTEXT_L = 'INPUT RECV DATE'.
AFIELD-JUST = 'C'.
APPEND AFIELD TO FIELDCAT.
AFIELD-COL_POS = 9.
AFIELD-FIELDNAME = 'EXBAS'.
AFIELD-SELTEXT_L = 'ASSESSABLE-VALUE'.
AFIELD-DO_SUM = 'X'.
AFIELD-JUST = 'R'.
AFIELD-DECIMALS_OUT = '2'.
APPEND AFIELD TO FIELDCAT.
AFIELD-COL_POS = 10.
AFIELD-FIELDNAME = 'EXBED'.
AFIELD-SELTEXT_L = 'DET OF CREDIT TAKEN CENVAT'.
AFIELD-JUST = 'R'.
APPEND AFIELD TO FIELDCAT.
AFIELD-COL_POS = 11.
AFIELD-FIELDNAME = 'ECS'.
AFIELD-SELTEXT_L = 'DET OF CREDIT TAKEN E-CESS'.
AFIELD-JUST = 'R'.
APPEND AFIELD TO FIELDCAT.
AFIELD-COL_POS = 12.
AFIELD-FIELDNAME = 'MATNR'.
AFIELD-SELTEXT_L = 'MATERIAL-CODE'.
AFIELD-JUST = 'L'.
APPEND AFIELD TO FIELDCAT.
AFIELD-COL_POS = 13.
AFIELD-FIELDNAME = 'MAKTX'.
AFIELD-SELTEXT_L = 'DESCRIPTION'.
AFIELD-JUST = 'L'.
APPEND AFIELD TO FIELDCAT.
AFIELD-COL_POS = 14.
AFIELD-FIELDNAME = 'CHAPID'.
AFIELD-SELTEXT_L = 'TARIFF-ID'.
AFIELD-JUST = 'L'.
APPEND AFIELD TO FIELDCAT.
AFIELD-COL_POS = 15.
AFIELD-FIELDNAME = 'MENGE'.
AFIELD-SELTEXT_L = 'QUANTITY'.
AFIELD-JUST = 'R'.
AFIELD-DO_SUM = ' '.
APPEND AFIELD TO FIELDCAT.
AFIELD-COL_POS = 16.
AFIELD-FIELDNAME = 'MEINS'.
AFIELD-SELTEXT_L = 'UOM'.
AFIELD-JUST = 'C'.
APPEND AFIELD TO FIELDCAT.
AFIELD-COL_POS = 17.
AFIELD-FIELDNAME = 'DEL_IND'.
AFIELD-SELTEXT_L = 'Deleted'.
AFIELD-JUST = 'C'.
APPEND AFIELD TO FIELDCAT.
AFIELD-COL_POS = 18.
AFIELD-FIELDNAME = 'PO NO'.
AFIELD-SELTEXT_L = 'PURDOCNO'.
AFIELD-JUST = 'C'.
APPEND AFIELD TO FIELDCAT.
* LAYOUT FOR ZEBRA CATLOG
LAYOUT_IN-COLWIDTH_OPTIMIZE = 'X'.
LAYOUT_IN-ZEBRA = 'X'.
LAYOUT_IN-GET_SELINFOS = 'X'.
LAYOUT_IN-CONFIRMATION_PROMPT = 'X'.
LAYOUT_IN-DETAIL_POPUP = 'X' .
SORTCAT-decimals = '0'.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
I_CALLBACK_PROGRAM = G_REPID
I_CALLBACK_USER_COMMAND = 'USER_COMMAND'
I_SAVE = G_SAVE
IS_VARIANT = GS_VARIANT
IT_FIELDCAT = FIELDCAT
IT_SORT = SORTCAT
IS_LAYOUT = LAYOUT_IN
IT_EVENTS = EVENTCAT
I_BACKGROUND_ID = g_back_ground
TABLES
T_OUTTAB = IT_OUT.
*& Form TOP_OF_PAGE_LIST_HEADER
text
-->LIST_HEADERtext
FORM TOP_OF_PAGE_LIST_HEADER USING LIST_HEADER TYPE SLIS_T_LISTHEADER.
DATA : HLINE TYPE SLIS_LISTHEADER,
TEXT(60) TYPE C.
CLEAR : HLINE,TEXT.
HLINE-TYP = 'H'.
HLINE-INFO = TEXT.
APPEND HLINE TO LIST_HEADER.
SELECT SINGLE * FROM T001W WHERE WERKS = WERKS.
CLEAR : HLINE,TEXT.
HLINE-TYP = 'H'.
WRITE 'PLANT :' TO TEXT.
WRITE WERKS TO TEXT+8.
HLINE-INFO = TEXT.
APPEND HLINE TO LIST_HEADER.
CLEAR : HLINE,TEXT.
HLINE-TYP = 'H'.
WRITE T001W-NAME1 TO TEXT.
HLINE-INFO = TEXT.
APPEND HLINE TO LIST_HEADER.
CLEAR : HLINE,TEXT.
HLINE-TYP = 'H'.
WRITE T001W-STRAS TO TEXT.
HLINE-INFO = TEXT.
APPEND HLINE TO LIST_HEADER.
CLEAR : HLINE,TEXT.
HLINE-TYP = 'H'.
WRITE T001W-ORT01 TO TEXT.
HLINE-INFO = TEXT.
APPEND HLINE TO LIST_HEADER.
CLEAR : HLINE,TEXT.
HLINE-TYP = 'H'.
WRITE 'DATE :' TO TEXT.
WRITE BUDAT-LOW TO TEXT+7.
IF BUDAT-HIGH NE ''.
WRITE 'TO' TO TEXT+18.
WRITE BUDAT-HIGH TO TEXT+22.
ENDIF.
HLINE-INFO = TEXT.
APPEND HLINE TO LIST_HEADER.
ENDFORM. "TOP_OF_PAGE_LIST_HEADER
*& Form ALV_EVENT_INIT
text
FORM ALV_EVENT_INIT .
CLEAR ALV_EVENT.
ALV_EVENT-NAME = SLIS_EV_TOP_OF_PAGE.
ALV_EVENT-FORM = 'ALV_TOP_OF_PAGE'.
APPEND ALV_EVENT TO EVENTCAT.
CLEAR ALV_EVENT.
ALV_EVENT-NAME = SLIS_EV_TOP_OF_LIST.
ALV_EVENT-FORM = 'ALV_TOP_OF_LIST'.
APPEND ALV_EVENT TO EVENTCAT.
CLEAR ALV_EVENT.
ALV_EVENT-NAME = SLIS_EV_END_OF_LIST.
ALV_EVENT-FORM = 'ALV_END_OF_LIST'.
APPEND ALV_EVENT TO GT_EVENTS.
CLEAR ALV_EVENT.
ALV_EVENT-NAME = SLIS_EV_END_OF_PAGE.
ALV_EVENT-FORM = 'ALV_END_OF_PAGE'.
APPEND ALV_EVENT TO GT_EVENTS.
ENDFORM. "ALV_EVENT_INIT
*& Form ALV_TOP_OF_PAGE
text
FORM ALV_TOP_OF_PAGE.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
EXPORTING
IT_LIST_COMMENTARY = LIST_HEADER
I_LOGO = 'ENJOYSAP_LOGO'.
ENDFORM. "ALV_TOP_OF_PAGE
*& Form BUILD_EVENT
text
-->P_GT_EVENTS[] text
FORM BUILD_EVENT USING P_EVENTS TYPE SLIS_T_EVENT.
CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
EXPORTING
I_LIST_TYPE = 0
IMPORTING
ET_EVENTS = P_EVENTS
EXCEPTIONS
LIST_TYPE_WRONG = 1
OTHERS = 2.
READ TABLE P_EVENTS WITH KEY NAME = SLIS_EV_USER_COMMAND INTO
ALV_EVENT.
IF SY-SUBRC = 0.
MOVE GC_FORMNAME_USER_COMMAND TO ALV_EVENT-FORM.
APPEND ALV_EVENT TO P_EVENTS.
ENDIF.
READ TABLE P_EVENTS WITH KEY NAME = SLIS_EV_BEFORE_LINE_OUTPUT INTO
ALV_EVENT.
IF SY-SUBRC = 0.
MOVE GC_FORMNAME_BEFORE_OUTPUT TO ALV_EVENT-FORM.
APPEND ALV_EVENT TO P_EVENTS.
ENDIF.
ENDFORM. " BUILD_EVENT
Thanks,
Shankar -
Hi all,
Following is the clients requirements for RG1 report,
1. When there is opening qnty for materials,but no transactions(production or issues) the report should show the details of opening & closing stock of FG stocks,
where as the above requirement is notmet with stanard RG1 report,palnning to go for ABAP custom developmwnt,
can anyone provide inputs how to handle the same through ABAP?
Moderator message - Please do not simply post yourr clients requirements and hope that someone will do your work for you - post locked
Edited by: Rob Burbank on Sep 1, 2009 9:20 AMHi,
1. Fetch all the material details from the table j_1iRG1(it contains rg1 transaction details) with desired inputs (plant, date range, excise group ect.) to itab1
2. Sort or delete material which are not FG from itab1.
3. Fetch the opening & closing balance for sorted FG materials details from table j_2irg1bal for corresponding input details and put in itab2.
4. Compare two internal table and collect materials details in the third internal table which are not found itab1.
5. Display final internal table as output
Hope this will be helpful. -
RG1 report-Ztable_entries insertion
Hi Folks,
Inorder to create a RG1 report the previous development team has created a ztable of the same strcuture as J_2IRG1BAL.But I was not able to find out how they are inserting the entires into this ztable.
1.Is there any possibility that they would have return any bdc to populate this ztable?
2.J_2IRG1BAL needs two transactions to be run for the table to have the entries( I heard),so does the same logic applies for the ztable too?
3.What are the ways to find how a ztable is getting populated?
K.Kiran.Hi Man,
Poppulating Entries for RG1 Related tables is bit tricky. It gets poppulated when u run tcode J2I5. For this SAP is having many considerations like updating RG1BAL Table and other related tables.
Hope this answers your query. for RG1 and CIN you can contact me on email or mobile given in my profile.
Regards,
Darshan
<i><b>**Reward Points to helpful answers; it motivates us to answer more</b></i> -
Report / Table for getting Datewise item cost
Friends,
Can u help me know MM Report / Table for getting Datewise item cost in a plant.hi,
try table S031...Movement of stocks....
THis shd help you..
Regards
Priyanka.P -
Hi Gurus,
While executing the program S_ALR_87013105 (Detailed Reports
For Sales Order : Plan/Actual Comparison ) system showing the selection log.
"Have no authorization for the report/table 7KU6_001 and 7KU6_002".
But for the user the authorization check through SU53 was successful.
Pl can any one suggest on this issue.
Thanks in advance,
VijayHi,
Contact your basis consultant to provide the missing authorisation. This is one of the authorisation object.
Regards,
Sankar -
User/Profile Risk Violation Report table is empty
Dear community,
I am struggeling to find the solution for a quite simple problem: the user and profile risk violation report tables show no results (are empty). And this, although the associated tables (in the backend) contain entries for the same selection criteria (eg. GRACPROFILEACTVL etc.). What could be the reason for that? I started again the batch risk analysis very carefully (manually) on User and Profile Level, for the correct rule set and the correct system, it completed successfully, but I still can't see any results (not even a message like "No violations" or something). As an example, I took the profile SAP_ALL for a target system, which should obviously return a lot of risks/violations.
I have also checked that this is not an authorization issue. To be more precise, actually, this functionality is working fine on the development and UAT GRC system, but not in production.
Any help is highly appreciated. Thanks in advance.Hi Erik,
The problem you are facing with only due to the SoD rule sets, which are in active as you might not have generated in Production system
Generate the SoD rule sets, run the jobs and then run the risks reports, you will get the results as expected.
Regards,
Ameet -
How to find out the Area Menu for a Report/ Table/Function Module
Hi,
Is there any procedure to find out the <b>"AREA MEANU"</b> for a Report/Table/Function Module...
Or is there any Transaction code / Report is available to find out all the report for a particular "AREA MENU".
Thank you for your quick response...
Regards,
Thiru
<b></b>Hi,
Check these below threads:
user log in & log out time SAO
How to find user log-out time ?
Regards,
Nitin -
Error in ABAP Report TABLES declaration
Hi,
I am a Basis administrator and trying to write a small program for archiving.
I get a folowing error when user the following statement in a report -
TABLES: RSDAARCHREQ.
The error is as follows -
"RSDAARCHREQ" must be a flat structure. You cannot use internal tables,
strings, references, or structures as components. -
I can include all the other tables requred but somehow this particular table gives me this error which I have never encountered earlier. This is BI 7.0 and it is standard SAP transparent table.
Please help me.
I will appreciate it.
Regards,
SumeHi Sume,
Do not declare RSDAARCHREQ in tables.
If you want a internal table declare in the below mentioned way .
data: it_RSDAARCHREQ TYPE STANDARD TABLE OF RSDAARCHREQ.
select * into table
it_RSDAARCHREQ
from RSDAARCHREQ.
Regards
Naresh -
Hi i am new to OAF. Please someone help me in how to create a Pivot report table in OAF?
The table structure should be like
_______________________________________Column1________________________Column2____________________Column3
_______________________________________Part1 __________________________ Part2______________________Part3
_______________________________________Part 1.a_____Part1.b____________ Part2.a_______ part2.b_________Part3.a_______ part3.c
Row1__Organization name1 Manager Name1 count of employees
Row2__Organization name2 Manager Name2 count of employees
Edited by: 847828 on Mar 28, 2011 1:27 AM
Edited by: 847828 on Mar 28, 2011 1:33 AM
Edited by: 847828 on Mar 28, 2011 1:39 AMHi,
Kindly elaborate your requirement.
Thanks,
Gaurav -
Hi All,
We r not getting proper RG1 report print on A4 size with all records
and format. Quantity are not coming on print view through J2iln
transaction.
YusufHi
Can you see the quantity on the print preview screen?
If yes then that report is not meant for A4 size.
If no then you will have to check with your ABAPer as to why the quantity is not seen.
Regards
Sandy -
Timestamp format in Report table
How can you set the timestamp value to nowrap in the Report table results. It is the only column that is wrapping since the timestamp is longer than the Column header
I also work with Timestamps, and I would ask what you are trying to achieve. The Timestamp takes up a lot of room. If you don't necessarily need every bit of the timestamp, use a dateformat to display it in a shorter format that fits in the space restraints you define. If you need all the data, you're going to have to either give it the space it needs (could be up to almost 30 characters) or put it on two lines.
You could also try using HTML tags to affect the font size, or even display the full timestamp as a mouseover. Other than that, not many options. -
Project Server 2013 : Report table not updated with Published tables
Hello Team,
We found the issue that Publish and Reporting table have difference in work attribute. is their any way that we can refresh the Reporting table in one go.
Thanks.If this issue is specific to one or few projects, using Save for sharing would be much more easier.
If this issue is for all the projects then as NicoOosthuysen recommended RDB refresh would be the option. Having said that you have to take extra measure before you start RDb refresh , since it is very high system resource and time consuming activity
Steps for Save for sharing
1. Open MS Project Pro 2013.
2. Open the project plan from the server.
3. Now save it locally without making changes in the File Name, using File > Share > Save For Sharing. Provide local location. Do not close Project Professional
4. Now save back the project back to server using File > Save As (Project Name should be grayed out)
5. Save and then publish the project plan.
Hrishi Deshpande Senior Consultant -
Add fields to reporting table/structure CCSS
My customer has defined some new fields (Z......) for WBS reporting in table PRPS. They would like to use these fields in report painter reports, but we have not managed to make them available in the library used (6P3). In order to make that happen they must show in the reporting table/structure used (CCSS) I guess? According to SAP there's no "easy way" of doing this, but obviously it should be possible.
Can somebody give ma an idea how this can be done?Eventually we manage to get the customer defined field to show up as a characteristic in the relevant library. The reason we struggled with this was the defined length of the field. SAP does not accept a characteristic with a defined field length of more than 24 characters (we had 30). We ended up redefining the length of the field directly in include CI_CC1Z.
Edited by: Roar Sørli on Feb 5, 2009 2:52 PM -
Oracle APEX 4.0 - Interactive Report - Table Column Filter Issue
Environment: Oracle APEX 4.0 - Interactive Report - Table Column header Filter Issue
We have developed an interactive report using Oracle APEX 4.0, which contains a record count of around 3,000 Rows. All the rows values are unique in nature. When we try to filter the same with the help of column header filter option available in the interactive report,We get only 1000 records.
Could some one help us, why this behaviour under APEX Table Column Header Filter as if it does not display beyond 1000 distinct values.
Is there a way or workaround on how to get all the records in the column header filter?
Thanks in advance.
KrishHi
Thanks for the advice and this issue has been moved to the below URL
Oracle APEX 4.0 - Interactive Report - Table Column Filter Issue Posted: No
Krish
Maybe you are looking for
-
I have a 60GB ipod and since upgrading to itunes 7.0, every time I try to transfer my library, I get the error message: "ipod cannot be updated. The disk could not be read from or written to" I've tried the all the advice at http://docs.info.apple.co
-
How do I transfer music from a PC to my iphone 4s
I have 2 windows based PC's. I have the latest iTunes (10.5) on both. I set up my iPhone 4s on PC 1. When connected to PC 2, iTunes will not allow me to move music from iTunes to the phone. I am signed into my iTunes account on PC 2 when I am att
-
Migrating from Powerbook G4 to Macbook Pro - Anything I need to know?
I'm about the begin the process of migrating from one computer to the other. I have cleaned/tidied up my powerbook, tossing old files and making sure all is in order. Is there anything special I need to know? Here are my specific questions before I g
-
Financial Reports WIndows Service(s) missing?
I'm trying to install Oracle EPM version 11.1.2.1, and I'm pretty far along, but this seems weird. Everything is installed and configured, but I have no Windows service(s) for FR on the services tier server. Looking at the startup order in the Instal
-
How to compare the query definiation of two or more queries?
HI Folks. I am attempting to determine if there is a method by which I can compare query definination of two or more queries or shows me the differences between queries. Transaction RSRTQ only give the query details of single query at a time and doe