Excise RG23C Opening Balance
Hi friends,
I have a doubt. Please anybony can helpus.
Let's take an example:
On 1st june, 2010 client goes live.
so opening balances for RG23C is updated in Table and corresponding FI entry is also posted, giving effect in Excise & FI books.
Now if on 1st July,2010 , If there is a finding, that the opening balance posted in June is short by "X" amount (the X amount can be plus or negative).
Question:
How to rectify this?
If there is any JV as to be passed in transaction code J1IH, please can you explain in detail, like the subtransaction type, to be used? so that it will help us
Please can you educate me.pl pl pl
Thank you and Kindest Regards
Srikaanth
Dear,
You can change the balance through J_2IACCBAL table.
just goto table through SE16 then change button on top you can modify the values after that post the balance JV through F-02 FI postings.
Check the below link for more details.
[RG23C opening balance upload|http://www.google.co.in/url?sa=t&source=web&cd=3&ved=0CCAQFjAC&url=http%3A%2F%2Fhelp.sap.com%2Fbp_bblibrary%2F470%2FDocumentation%2FJ33_BPP_32_CHEM_EN_IN.doc&ei=g_9MTIKoAsS6rAf8rIi5Dg&usg=AFQjCNH9SuyMQLBO0n09Wb16cg0060ZuAg&sig2=LFSwxcUVZ0fCcGcwhDcXyQ]
Regards,
Kishore
Similar Messages
-
Opening balance of excise register
Hi All,
1. Last year our client not capture the some excise incoming and outgoing data early in Part I and Part II for RG23A, RG23C.
2. Our client want match the Excise legacy data 31/03/2011 with match with Excise Balance.
3. If data not match so they want do the upload opening balance in Part 1 and Part 11 for RG23A, RG23C, PLA Account.
4. Last year they have run some excise group monthly utilization.
5. Current year 2011 they are update some register till 30.04.2011.
6. When we doing monthly utilization (J2IUN) for Last year month of April (2010) and posting date 30.04.2010, But is showing error because MM period has been closed, MM period is open 01/2011 and 02/2011. But if i can change the posting period 31/03/2011 so it is posted so we are not understand MM period is closed only FI period is open how can system remit the excise duty in date 31/03/2011.
Pl guide how to resolve the issue
Thanks
NKSHi ,
As i have seen there will be List of Line items with details will be available.
Generally , It will be done through Initial Clearing and General Clearing Procedure
regards
Naresh -
Opening balances for excise registers
Hi
What would be the process for updation of excise registers with opening balance. The transfer is from Legacy to SAP
Regards
Sanilhi....
I could find register for BED & AED...
which register to be used for Education cess & Higher Education cess....
we have 4 different G/L accounts for BED, AED, ECess & HECess... how to upload values in individual G/L accounts....
regards,
Anand -
Excise Opening balances E.Cess and SHE. Cess entry missing in J_2IACCBAL
Dear Guru's
We have recently gone live and was updating the RG23A Part 2 entries,
I am only getting the RG23ABED register entry for the updation of Basic Excise duty (BED) and I am not getting the register entry for updating the E.Cess and SHE. Cess in table J_2IACCBAL
How do we update the E.Cess and SHE. Cess opening balances.
Regards
Prabhjot Singhopening balance for 2 and 1 %
Go to SE11, give table: J_2IACCBAL and choose display F(7).
On Dictionary: Display Table screen, choose Utilities --> Table contents --> Create Entries, from menu bar and make the following entries
Client - Leave it blank
Enter your excise group,
Register: RG23AECS for Edu Cess 2% and
RG23AAT1 for SEC Cess 1%.
CL BAL: enter the closing balace here only and remaining follow the same procedure for entering RG23ABED .
This is only the direct table entry of opening Balance, so you need to make an FI entry thro F-02. For ex.
RG23A ECS Part II Account DR
To Initial balances clearing a/c
Only after this extract the balances thro J2I5 else you may encounter getting wrong extract.
follow the same procedure for RE23C cesses also.
regards
KI -
Opening balance upload for Excise groups
Dear All,
One of my client wants to upload excise balances of excise groups and corrosponding entry in FI.
Client is already go live on 01/04/2008. During cutover activities balances are uploaded for only 1 excise group.
Now he want to upload for remaining 5 excise groups.
Out of that for 2 excise groups already transactions are done in system and registers are extracted.
For 3 excise groups there are no transaction in system.
Please advice me what we can do in above 2 cases and what will be the procedure.
Regards,
Umeshhi
Now he want to upload for remaining 5 excise groups.
>Out of that for 2 excise groups already transactions are done in system and registers are extracted.
for this initial balance upload will be dificult as syatem already have transactions
then also try following in dev server
do the initial upload on the date pirior to the transaction date
then again run j1i5 and j2i5
>For 3 excise groups there are no transaction in system.
for this u can directly have the initial upload on back date
The initial upload process is as follows
Use following
http://help.sap.com/bp_bblibrary/470/Documentation/J33_BPP_32_CHEM_EN_IN.doc
http://help.sap.com/saphelp_erp60_sp/helpdata/en/18/8e113999724854e10000000a11405a/content.htm
opening balance for 2 and 1 %
Go to SE11, give table: J_2IACCBAL and choose display F(7).
On Dictionary: Display Table screen, choose Utilities --> Table contents --> Create Entries, from menu bar and make the following entries
Client - Leave it blank
Enter your excise group,
Register: RG23AECS for Edu Cess 2% and
RG23AAT1 for SEC Cess 1%.
CL BAL: enter the closing balace here only and remaining follow the same procedure for entering RG23ABED .
This is only the direct table entry of opening Balance, so you need to make an FI entry thro F-02. For ex.
RG23A ECS Part II Account DR
To Initial balances clearing a/c
Only after this extract the balances thro J2I5 else you may encounter getting wrong extract.
follow the same procedure for RE23C cesses also.
regards
SAP Learner -
Dear All,
I am using SAP 2007 B PL 13. Please help me out as to how to upload the opening balancs for excise duties so that the same can be shown in RG 23 A Part II or RG 23 C Part II.
Regards,
RahulHi Rahul,
Through Goods receipt you can give the opening balances of RM in RG 23 A part I and the amount of excise duty (RG 23 A part II) on this material you can post to excise account through JV only.
Which excise register you are using? (XL or Custmise in crystal)
Regards,
Datta Kharat -
Hi Experts,
In my RG23A AND RG23C ANNEXURE10 report opening balance is not coming. Herewith i am sending the code of the report. Kindly do the needful.
Regards,
Shankar
CODING:
REPORT YMS_ANNEXURE10NEW NO STANDARD PAGE HEADING LINE-SIZE 255
LINE-COUNT 60.
*REPORT ZKVB_CENVAT_CREDIT_LEDGER_NEW
DICTIONARY STRUCTURES USED *
TABLES: J_1IPART2 , J_1IEXCHDR , J_1IEXCDTL , GLT0 .
INTERNAL TABLES USED *
DATA : BEGIN OF ITAB_EXCISE OCCURS 0 ,
SERIALNO LIKE J_1IPART2-SERIALNO , "SERIAL NUMBER
BUDAT LIKE J_1IPART2-BUDAT , "DATE
TRNTYP LIKE J_1IPART2-TRNTYP , "TRANSACTION TYPE
EXNUM LIKE J_1IEXCHDR-EXNUM , "EXCISE INVOICE NUMBER
EXDAT LIKE J_1IEXCHDR-EXDAT , "EXCISE INVOICE DATE
EXBED LIKE J_1IEXCHDR-EXBED , "CENVAT
EXSED LIKE J_1IEXCHDR-EXSED , "SED
CVDIND LIKE J_1IEXCHDR-CVDIND ,
RDOC3 LIKE J_1IEXCDTL-RDOC3 ,
ECS LIKE J_1IPART2-ECS,
ECS1 LIKE J_1IPART2-ECS,
OCT_ECS LIKE J_1IPART2-ECS,
END OF ITAB_EXCISE.
DATA : BEGIN OF ITAB_EXCISE1 OCCURS 0 ,
SERIALNO LIKE J_1IPART2-SERIALNO , "SERIAL NUMBER
SERIALNO_C LIKE J_1IPART2-SERIALNO ,
BUDAT LIKE J_1IPART2-BUDAT , "DATE
TRNTYP LIKE J_1IPART2-TRNTYP , "TRANSACTION TYPE
EXNUM LIKE J_1IEXCHDR-EXNUM , "EXCISE INVOICE NUMBER
EXDAT LIKE J_1IEXCHDR-EXDAT , "EXCISE INVOICE DATE
EXBED LIKE J_1IEXCHDR-EXBED , "CENVAT
EXSED LIKE J_1IEXCHDR-EXSED , "SED
CVDIND LIKE J_1IEXCHDR-CVDIND ,
RDOC3 LIKE J_1IEXCDTL-RDOC3 ,
SERIALNO1 LIKE J_1IPART2-SERIALNO ,
EXBED1 LIKE J_1IPART2-EXBED,
EXSED1 LIKE J_1IPART2-EXSED,
ECS LIKE J_1IPART2-ECS,
ECS1 LIKE J_1IPART2-ECS,
OCT_ECS LIKE J_1IPART2-ECS,
END OF ITAB_EXCISE1.
*DATA : ITAB1 LIKE ZEXCISE_SED_BED OCCURS 0 WITH HEADER LINE .
DATA : ITAB_EXCISE2 LIKE ITAB_EXCISE1 OCCURS 0 WITH HEADER LINE.
DATA : BEGIN OF ITAB_DISPLAY OCCURS 0,
SERIALNO LIKE J_1IPART2-SERIALNO , "SERAIL NUMBER
BUDAT LIKE J_1IPART2-BUDAT , "DATE
CENVAT_OPG type p decimals 3, "OPENING CENVAT
SED_OPG LIKE J_1IPART2-EXSED , "OPENING SED
ECS LIKE J_1IPART2-ECS , "OPENING ECS
EXNUM_CR LIKE J_1IEXCHDR-EXNUM , "CERDIT EXC INV NUMBER
EXDAT_CR LIKE J_1IEXCHDR-EXDAT , "CREDIT EXC INV DATE
CENVAT_CR type p decimals 3, "CREDIT CENVAT
ADDL_DTY type p decimals 2,
SED_CR LIKE J_1IEXCHDR-EXSED , "CREDIT SED
TOT_CENVAT_CR type p decimals 3,
TOT_CENVAT_CESS type p decimals 3,
TOT_SED_CR LIKE J_1IEXCHDR-EXSED ,
EXNUM_DB LIKE J_1IEXCHDR-EXNUM ,
EXDAT_DB LIKE J_1IEXCHDR-EXDAT ,
CENVAT_DB type p decimals 3,
SED_DB LIKE J_1IEXCHDR-EXSED ,
CENVAT_CLS type p decimals 3,
SED_CLS LIKE J_1IPART2-EXSED ,
total_ecs like J_1IPART2-ECS,
ECS1 LIKE J_1IPART2-ECS,
CNT TYPE P,
OCT_ECS LIKE J_1IPART2-ECS,
END OF ITAB_DISPLAY.
DATA : BEGIN OF ITAB_EXNUM OCCURS 0 ,
EXNUM LIKE J_1IEXCHDR-EXNUM ,
EXDAT LIKE J_1IEXCHDR-EXDAT ,
CENVAT like J_1IEXCHDR-exbed,
ADDL_DTY like J_1IEXCHDR-exbed,
SED LIKE J_1IEXCHDR-EXSED ,
CNT TYPE P,
END OF ITAB_EXNUM.
DATA : BEGIN OF ITAB_EXNUM1 OCCURS 0 ,
EXNUM LIKE J_1IEXCHDR-EXNUM ,
EXDAT LIKE J_1IEXCHDR-EXDAT ,
CENVAT LIKE J_1IEXCHDR-EXBED ,
SED LIKE J_1IEXCHDR-EXSED ,
CNT TYPE P,
END OF ITAB_EXNUM1.
DATA: BEGIN OF ITAB_GLT0 OCCURS 0,
RACCT LIKE GLT0-RACCT,
TSLVT LIKE GLT0-TSLVT,
TSL01 LIKE GLT0-TSL01,
TSL02 LIKE GLT0-TSL02,
TSL03 LIKE GLT0-TSL03,
TSL04 LIKE GLT0-TSL04,
TSL05 LIKE GLT0-TSL05,
TSL06 LIKE GLT0-TSL06,
TSL07 LIKE GLT0-TSL07,
TSL08 LIKE GLT0-TSL08,
TSL09 LIKE GLT0-TSL09,
TSL10 LIKE GLT0-TSL10,
TSL11 LIKE GLT0-TSL11,
TSL12 LIKE GLT0-TSL12,
END OF ITAB_GLT0.
DATA : BEGIN OF OPEN_BAL_OCT OCCURS 0,
ECS LIKE J_1IPART2-ECS,
END OF OPEN_BAL_OCT.
DATA : BEGIN OF ITAB_CESSCO OCCURS 0,
ECS LIKE J_1IPART2-ECS,
TRNTYP LIKE J_1IPART2-TRNTYP ,
END OF ITAB_CESSCO.
DATA : MM(2) TYPE C ,
GR_TOTAL_CESS_SEPT LIKE J_1IPART2-ECS,
GR_TOTAL_CESS_OCT LIKE J_1IPART2-ECS,
GR_TOTAL_CESS_NOV LIKE J_1IPART2-ECS,
GR_TOTAL_CESS_DEC LIKE J_1IPART2-ECS,
GR_TOTAL_CESS_JAN LIKE J_1IPART2-ECS,
GR_TOTAL_CESS_FEB LIKE J_1IPART2-ECS,
GR_TOTAL_CESS_MAR LIKE J_1IPART2-ECS,
GR_TOTAL_CESS_APR LIKE J_1IPART2-ECS,
GR_TOTAL_CESS_MAY LIKE J_1IPART2-ECS, " FOR JUNE OPENING BALANCE
GR_TOTAL_CESS_JUN LIKE J_1IPART2-ECS, " FOR JULY OPENING BALANCE
GR_TOTAL_CESS_JUL LIKE J_1IPART2-ECS, " FOR AUGUST OPENINGBALANCE
GR_TOTAL_CESS_AUG LIKE J_1IPART2-ECS, " FOR SEPT OPENING BALANCE
GR_TOTAL_CESS_SEP LIKE J_1IPART2-ECS,
GR_TOTAL_CESS_CO LIKE J_1IPART2-ECS,
CREDIT_ECS LIKE J_1IPART2-ECS,
DEBIT_ECS LIKE J_1IPART2-ECS ,
CREDIT_ECS1 LIKE J_1IPART2-ECS,
DEBIT_ECS1 LIKE J_1IPART2-ECS ,
CREDIT_ECS2 LIKE J_1IPART2-ECS,
DEBIT_ECS2 LIKE J_1IPART2-ECS ,
CREDIT_ECS3 LIKE J_1IPART2-ECS,
DEBIT_ECS3 LIKE J_1IPART2-ECS ,
CREDIT_ECS4 LIKE J_1IPART2-ECS,
DEBIT_ECS4 LIKE J_1IPART2-ECS ,
CREDIT_ECS5 LIKE J_1IPART2-ECS,
DEBIT_ECS5 LIKE J_1IPART2-ECS ,
CREDIT_ECS6 LIKE J_1IPART2-ECS,
DEBIT_ECS6 LIKE J_1IPART2-ECS,
CREDIT_ECS7 LIKE J_1IPART2-ECS, " FOR JUNE OPENING BALANCE
DEBIT_ECS7 LIKE J_1IPART2-ECS,
CREDIT_ECS8 LIKE J_1IPART2-ECS, " FOR JULY OPENING BALANCE
DEBIT_ECS8 LIKE J_1IPART2-ECS,
CREDIT_ECS9 LIKE J_1IPART2-ECS, " FOR AUGUST OPENING BALANCE
DEBIT_ECS9 LIKE J_1IPART2-ECS,
CREDIT_ECS10 LIKE J_1IPART2-ECS, " FOR SEPT OPENING BALANCE
DEBIT_ECS10 LIKE J_1IPART2-ECS,
CREDIT_ECS11 LIKE J_1IPART2-ECS, " FOR OCT OPENING BALANCE
DEBIT_ECS11 LIKE J_1IPART2-ECS,
CREDIT_ECSCO LIKE J_1IPART2-ECS,
DEBIT_ECSCO LIKE J_1IPART2-ECS.
DATA : ITAB_GLT0_1 LIKE ITAB_GLT0 OCCURS 0 WITH HEADER LINE.
SELECT OPTION INTERNAL TABLE DEFINATIONS *
RANGES : R_TRNTYP FOR J_1IPART2-TRNTYP.
R_BUDAT FOR J_1IPART2-BUDAT.
DATA VARIABLES USED *
DATA: V_LIN LIKE SY-TABIX .
DATA : V_OPENING_BED LIKE ITAB_DISPLAY-CENVAT_OPG.
DATA : V_OPENING_SED LIKE ITAB_DISPLAY-SED_OPG.
DATA : OCT_ECS LIKE J_1IPART2-ECS.
DATA : TOTAL_ECS LIKE J_1IPART2-ECS.
DATA : TOTAL_ECS_1 LIKE J_1IPART2-ECS.
DATA : GR_TOTAL_ECS LIKE J_1IPART2-ECS.
DATA : INIT_ECS LIKE J_1IPART2-ECS.
DATA : GR_TOTAL_CREDIT_CESS LIKE J_1IPART2-ECS.
DATA : GR_TOTAL_DEBIT_CESS LIKE J_1IPART2-ECS.
DATA : GR_CLOSE_BAL_CESS LIKE J_1IPART2-ECS.
SELECTION SCREEN *
SELECTION-SCREEN BEGIN OF BLOCK BLK1 WITH FRAME.
PARAMETERs : P_WERKS LIKE J_1IEXCDTL-WERKS MEMORY ID WRK.
SELECT-OPTIONS : S_BUDAT FOR J_1IPART2-BUDAT,
S_REGTYP FOR J_1IPART2-REGTYP.
SELECTION-SCREEN END OF BLOCK BLK1 .
*RANGES R_BUDAT FOR J_1IPART2-BUDAT.
EVENT ----> TOP OF PAGE *
TOP-OF-PAGE.
PERFORM F_003_TOPI_PEHNAO.
EVENT ----> AT SELECTION SCREEN *
*t selection-screen.
perform f_006_check_karo.
EVENT ----> START OF SELECTION *
START-OF-SELECTION.
PERFORM F_001_SERIAL_NOS_UTHAO.
PERFORM F_002_DISPLAY_TABLE_BHARO.
PERFORM F_005_CREDIT_SUBTOTAL.
EVENT ----> END OF SELECTION *
END-OF-SELECTION.
PERFORM F_004_DIKHAO.
*& Form F_001_SERIAL_NOS_UTHAO
text
--> p1 text
<-- p2 text
FORM F_001_SERIAL_NOS_UTHAO.
PERFORM F_002_TRNTYP_CHUNO.
DATA : BEGIN OF OPEN_BAL_OCT OCCURS 0,
ECS LIKE J_1IPART2-ECS,
TOTAL_ECS LIKE J_1IPART2-ECS,
END OF OPEN_BAL_OCT.
DATA : LOWMM(2) TYPE N.
DATA : LOWYR(4) TYPE N.
DATA : LOWDT(2) TYPE N.
DATA : L1 LIKE J_1IPART2-BUDAT.
DATA : L2 LIKE J_1IPART2-BUDAT.
LOWMM = S_BUDAT-LOW+4(2).
IF LOWMM = '01'.
LOWMM = '12'.
ELSE.
LOWMM = LOWMM - 1.
ENDIF.
IF LOWMM = '12'.
LOWYR = S_BUDAT-LOW+0(4) - 1.
ELSE.
LOWYR = S_BUDAT-LOW+0(4).
ENDIF.
LOWDT = S_BUDAT-LOW+6(2).
CONCATENATE LOWYR LOWMM LOWDT INTO L1.
CALL FUNCTION 'LAST_DAY_OF_MONTHS'
EXPORTING
DAY_IN = L1
IMPORTING
LAST_DAY_OF_MONTH = L2
EXCEPTIONS
DAY_IN_NO_DATE = 1
OTHERS = 2.
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
RANGES CO_BUDAT FOR J_1IPART2-BUDAT.
IF P_WERKS = '1000'.
CO_BUDAT-LOW = '20041001'.
ELSEIF P_WERKS = '3000'.
CO_BUDAT-LOW = '20041201'.
ELSEIF P_WERKS = '4000'.
CO_BUDAT-LOW = '20041201'.
ELSEIF P_WERKS = '2000'.
CO_BUDAT-LOW = '20041201'.
ELSEIF P_WERKS = '5000'.
CO_BUDAT-LOW = '20041201'.
ENDIF.
CO_BUDAT-HIGH = L2.
CO_BUDAT-SIGN = 'I'.
CO_BUDAT-OPTION = 'BT'.
APPEND CO_BUDAT.
CLEAR CO_BUDAT.
SELECT J_1IEXCDTL1RG23ASER J_1IEXCDTL1RG23CSER
J_1IPART21BUDAT J_1IPART21TRNTYP
J_1IEXCHDR1EXNUM J_1IEXCHDR1EXDAT J_1IEXCDTL1~EXBED
J_1IEXCDTL1EXSED J_1IEXCHDR1CVDIND J_1IEXCDTL1~RDOC3
J_1IPART21SERIALNO J_1IPART21EXBED J_1IPART21~EXSED
J_1IPART21~ECS
INTO TABLE ITAB_EXCISE1 FROM
( J_1IPART2 AS J_1IPART21 INNER JOIN J_1IEXCHDR AS J_1IEXCHDR1 ON
J_1IPART21TRNTYP EQ J_1IEXCHDR1TRNTYP AND
J_1IPART21DOCYR EQ J_1IEXCHDR1DOCYR AND
J_1IPART21DOCNO EQ J_1IEXCHDR1DOCNO )
LEFT OUTER JOIN J_1IEXCDTL AS J_1IEXCDTL1 ON
J_1IPART21TRNTYP EQ J_1IEXCDTL1TRNTYP AND
J_1IPART21DOCYR EQ J_1IEXCDTL1DOCYR AND
J_1IPART21DOCNO EQ J_1IEXCDTL1DOCNO
WHERE J_1IPART21~REGTYP IN S_REGTYP AND
J_1IPART21~BUDAT IN S_BUDAT AND
J_1IEXCHDR1~WERKS EQ P_WERKS AND
J_1IEXCHDR1~STATUS NE 'D'.
IF P_WERKS = '1000'.
SELECT ECS TRNTYP FROM J_1IPART2 INTO TABLE ITAB_CESSCO WHERE
EXGRP EQ '01' AND
REGTYP = 'A' AND
BUDAT IN CO_BUDAT.
ELSEIF P_WERKS = '2000'.
SELECT ECS TRNTYP FROM J_1IPART2 INTO TABLE ITAB_CESSCO WHERE
EXGRP EQ '81' AND
REGTYP = 'A' AND
BUDAT IN CO_BUDAT.
ELSEIF P_WERKS = '3000'.
SELECT ECS TRNTYP FROM J_1IPART2 INTO TABLE ITAB_CESSCO WHERE
EXGRP EQ '31' AND
REGTYP = 'A' AND
BUDAT IN CO_BUDAT.
ELSEIF P_WERKS = '4000'.
SELECT ECS TRNTYP FROM J_1IPART2 INTO TABLE ITAB_CESSCO WHERE
EXGRP EQ '41' AND
REGTYP = 'A' AND
BUDAT IN CO_BUDAT.
ELSEIF P_WERKS = '5000'.
SELECT ECS TRNTYP FROM J_1IPART2 INTO TABLE ITAB_CESSCO WHERE
EXGRP EQ '55' AND
REGTYP = 'A' AND
BUDAT IN CO_BUDAT.
ENDIF.
LOOP AT ITAB_CESSCO.
CASE ITAB_CESSCO-TRNTYP.
WHEN 'GRPO' OR 'DIEX' OR 'EWPO'.
CREDIT_ECSCO = CREDIT_ECSCO + ITAB_CESSCO-ECS.
WHEN 'MRDY'.
DEBIT_ECSCO = DEBIT_ECSCO + ITAB_CESSCO-ECS.
ENDCASE.
ENDLOOP.
MM = S_BUDAT-LOW+4(2).
GR_TOTAL_CESS_CO = CREDIT_ECSCO - DEBIT_ECSCO.
LOOP AT ITAB_EXCISE1.
ITAB_EXCISE1-OCT_ECS = OCT_ECS.
MODIFY ITAB_EXCISE1.
ENDLOOP.
DELETE ITAB_EXCISE1 WHERE NOT TRNTYP IN R_TRNTYP .
SORT ITAB_EXCISE1 BY SERIALNO BUDAT.
DELETE ADJACENT DUPLICATES FROM ITAB_EXCISE1 COMPARING SERIALNO
BUDAT
SERIALNO1
EXBED1.
APPEND LINES OF ITAB_EXCISE1 TO ITAB_EXCISE2.
DELETE ITAB_EXCISE2 WHERE NOT SERIALNO IS INITIAL.
DELETE ITAB_EXCISE1 WHERE SERIALNO IS INITIAL.
SORT ITAB_EXCISE2 BY SERIALNO BUDAT SERIALNO1 EXBED1.
DELETE ADJACENT DUPLICATES FROM ITAB_EXCISE2 COMPARING SERIALNO
BUDAT
SERIALNO1
EXBED1.
APPEND LINES OF ITAB_EXCISE2 TO ITAB_EXCISE1.
SORT ITAB_EXCISE1 BY SERIALNO BUDAT.
LOOP AT ITAB_EXCISE1.
MOVE-CORRESPONDING ITAB_EXCISE1 TO ITAB_EXCISE .
IF ITAB_EXCISE1-SERIALNO IS INITIAL.
MOVE : ITAB_EXCISE1-SERIALNO1 TO ITAB_EXCISE-SERIALNO.
MOVE : ITAB_EXCISE1-EXBED1 TO ITAB_EXCISE-EXBED.
MOVE : ITAB_EXCISE1-EXSED1 TO ITAB_EXCISE-EXSED.
MOVE : ITAB_EXCISE1-OCT_ECS TO ITAB_EXCISE-OCT_ECS.
MOVE : ITAB_EXCISE1-ECS TO ITAB_EXCISE-ECS.
ENDIF.
COLLECT ITAB_EXCISE .
ENDLOOP.
CLEAR ITAB_EXCISE1.REFRESH ITAB_EXCISE1.FREE ITAB_EXCISE1.
DELETE ADJACENT DUPLICATES FROM ITAB_EXCISE COMPARING SERIALNO.
DESCRIBE TABLE ITAB_EXCISE LINES V_LIN.
IF V_LIN LE 0.
MESSAGE E000(8I) WITH 'No Records Found'.
ENDIF.
PERFORM F_005_DIEX_DTL_SE_UTHAO.
ENDFORM. " F_001_SERIAL_NOS_UTHAO
*& Form F_002_TRNTYP_CHUNO
text
--> p1 text
<-- p2 text
FORM F_002_TRNTYP_CHUNO.
MOVE : 'I' TO R_TRNTYP-SIGN.
MOVE : 'EQ' TO R_TRNTYP-OPTION.
MOVE : 'GRPO' TO R_TRNTYP-LOW.
APPEND R_TRNTYP.
MOVE : 'DIEX' TO R_TRNTYP-LOW.
APPEND R_TRNTYP.
MOVE : 'MRDY' TO R_TRNTYP-LOW.
APPEND R_TRNTYP.
MOVE : 'EWPO' TO R_TRNTYP-LOW.
APPEND R_TRNTYP.
ENDFORM. " F_002_TRNTYP_CHUNO
*& Form F_002_DISPLAY_TABLE_BHARO
text
--> p1 text
<-- p2 text
FORM F_002_DISPLAY_TABLE_BHARO.
DATA : V_CNT TYPE I.
DATA : V_PREV_EXDAT LIKE J_1IEXCHDR-EXDAT ,
V_PREV_EXNUM LIKE J_1IEXCHDR-EXNUM .
DATA : V_DATE LIKE SY-DATUM.
DATA : V_YYYY(4) , V_MM(2) , V_DD(2).
PERFORM F_006_KHOL_BUND.
SORT ITAB_EXCISE BY SERIALNO.
LOOP AT ITAB_EXCISE.
MOVE : ITAB_EXCISE-SERIALNO TO ITAB_DISPLAY-SERIALNO.
MOVE : ITAB_EXCISE-BUDAT TO ITAB_DISPLAY-BUDAT.
MOVE : V_OPENING_BED TO ITAB_DISPLAY-CENVAT_OPG.
MOVE : V_OPENING_SED TO ITAB_DISPLAY-SED_OPG.
MOVE : ITAB_EXCISE-OCT_ECS TO ITAB_DISPLAY-OCT_ECS.
CASE ITAB_EXCISE-TRNTYP.
WHEN 'GRPO' OR 'DIEX' OR 'EWPO'.
To pick up RDOC3 as date for transaction type DIEX
IF ITAB_EXCISE-TRNTYP EQ 'DIEX'.
IF ITAB_EXCISE-RDOC3 CA '.'.
SPLIT ITAB_EXCISE-RDOC3 AT '.' INTO V_DD V_MM V_YYYY.
CONCATENATE V_YYYY V_MM V_DD INTO ITAB_DISPLAY-EXDAT_CR.
ELSE.
CONCATENATE ITAB_EXCISE-RDOC34(4) ITAB_EXCISE-RDOC32(2)
ITAB_EXCISE-RDOC3+0(2) INTO ITAB_DISPLAY-EXDAT_CR
ENDIF.
ELSE.
MOVE : ITAB_EXCISE-EXDAT TO ITAB_DISPLAY-EXDAT_CR.
ENDIF.
MOVE : ITAB_EXCISE-EXNUM TO ITAB_DISPLAY-EXNUM_CR.
Checking for Addl Duty of customs
IF ITAB_EXCISE-CVDIND EQ 'X'.
MOVE : ITAB_EXCISE-EXBED TO ITAB_DISPLAY-ADDL_DTY.
ELSE.
MOVE : ITAB_EXCISE-EXBED TO ITAB_DISPLAY-CENVAT_CR.
ENDIF.
MOVE : ITAB_EXCISE-EXSED TO ITAB_DISPLAY-SED_CR.
MOVE : ITAB_EXCISE-ECS TO ITAB_DISPLAY-ECS.
Getting the count of EXNUM
IF V_PREV_EXDAT EQ ITAB_EXCISE-EXDAT AND
V_PREV_EXNUM EQ ITAB_EXCISE-EXNUM.
V_CNT = V_CNT + 1.
ELSE.
V_CNT = 1.
ENDIF.
MOVE : V_CNT TO ITAB_DISPLAY-CNT.
MOVE : ITAB_EXCISE-EXNUM TO V_PREV_EXNUM.
MOVE : ITAB_EXCISE-EXDAT TO V_PREV_EXDAT.
Debits
WHEN 'MRDY'.
MOVE : ITAB_EXCISE-EXNUM TO ITAB_DISPLAY-EXNUM_DB.
MOVE : ITAB_EXCISE-EXDAT TO ITAB_DISPLAY-EXDAT_DB.
MOVE : ITAB_EXCISE-EXBED TO ITAB_DISPLAY-CENVAT_DB.
MOVE : ITAB_EXCISE-EXSED TO ITAB_DISPLAY-SED_DB.
MOVE : ITAB_EXCISE-ECS TO ITAB_DISPLAY-ECS1.
ENDCASE.
Total Credits
ITAB_DISPLAY-TOT_CENVAT_CR = ITAB_DISPLAY-CENVAT_OPG +
ITAB_DISPLAY-CENVAT_CR +
ITAB_DISPLAY-ADDL_DTY .
ITAB_DISPLAY-TOT_SED_CR = ITAB_DISPLAY-SED_OPG +
ITAB_DISPLAY-SED_CR .
Closing Balance
ITAB_DISPLAY-CENVAT_CLS = ITAB_DISPLAY-TOT_CENVAT_CR -
ITAB_DISPLAY-CENVAT_DB.
ITAB_DISPLAY-SED_CLS = ITAB_DISPLAY-TOT_SED_CR -
ITAB_DISPLAY-SED_DB.
APPEND ITAB_DISPLAY.
MOVE : ITAB_DISPLAY-CENVAT_CLS TO V_OPENING_BED.
MOVE : ITAB_DISPLAY-SED_CLS TO V_OPENING_SED.
CLEAR : ITAB_DISPLAY .
ENDLOOP.
ENDFORM. " F_002_DISPLAY_TABLE_BHARO
*& Form F_003_TOPI_PEHNAO
text
--> p1 text
<-- p2 text
FORM F_003_TOPI_PEHNAO.
WRITE:/70 'CENVAT CREDIT LEDGER FOR PERIOD:' , (12) S_BUDAT-LOW ,
'to' , (12) S_BUDAT-HIGH , 180 'Page :' , SY-PAGNO .
SKIP 3.
WRITE :/25(30) 'OPENING BALANCE' CENTERED ,
66(50) 'CREDIT' CENTERED ,
118(28) 'CREDIT SUBTOTAL' CENTERED ,
150(28) 'TOTAL CREDIT' CENTERED ,
182(36) 'DEBIT' CENTERED ,
225(28) 'BALANCE OF CREDIT' CENTERED .
WRITE:/1 TEXT-001 ,
12 TEXT-002 ,
24(12) TEXT-003 CENTERED,
40(12) TEXT-004 CENTERED,
56 TEXT-005 ,
66(12) TEXT-003 CENTERED,
81(12) TEXT-006 CENTERED,
102(12) TEXT-004 CENTERED,
118(12) TEXT-003 CENTERED,
134(12) TEXT-004 CENTERED,
150(12) TEXT-003 CENTERED,
166(12) TEXT-004 CENTERED,
182 TEXT-007 , "Doc no
194(12) TEXT-003 CENTERED,
210(12) TEXT-004 CENTERED,
225(12) TEXT-003 CENTERED,
240(12) TEXT-004 CENTERED. "(255)
WRITE:/56 TEXT-008 , 81 TEXT-009 CENTERED
, 182 TEXT-002.
WRITE:/56 TEXT-002 , 81 TEXT-010 CENTERED .
WRITE:/1(11) '1' CENTERED ,
12(11) '2' CENTERED ,
24(12) '3' CENTERED ,
40(12) '4' CENTERED ,
55(11) '5' CENTERED ,
66(12) '8a' CENTERED ,
81(12) '8b' CENTERED ,
102(12) '8c' CENTERED ,
150(12) '9' CENTERED ,
166(12) '10' CENTERED ,
182(11) '11' CENTERED , "Doc no
194(12) '12a' CENTERED ,
210(12) '12B' CENTERED ,
225(12) '13' CENTERED ,
240(12) '14' CENTERED . "(255)
WRITE :/
ENDFORM. " F_003_TOPI_PEHNAO
*& Form F_004_DIKHAO
text
--> p1 text
<-- p2 text
FORM F_004_DIKHAO.
DATA : V_FIRST , V_PREV_EXNUM LIKE J_1IEXCHDR-EXNUM .
DATA : V_PREV_EXDAT LIKE J_1IEXCHDR-EXDAT , V_CNT TYPE I .
SORT ITAB_DISPLAY BY SERIALNO BUDAT EXNUM_CR.
LOOP AT ITAB_DISPLAY.
IF SY-TABIX = 1.
TOTAL_ECS = GR_TOTAL_CESS_CO .
TOTAL_ECS_1 = GR_TOTAL_CESS_CO .
ENDIF.
WRITE:/1 ITAB_DISPLAY-SERIALNO ,
12 ITAB_DISPLAY-BUDAT ,
24(15) ITAB_DISPLAY-CENVAT_OPG .
WRITE: 40(14) TOTAL_ECS.
IF NOT ITAB_DISPLAY-EXNUM_CR IS INITIAL.
WRITE : 55 ITAB_DISPLAY-EXNUM_CR ,
66(15) ITAB_DISPLAY-CENVAT_CR ,
82(14) ITAB_DISPLAY-ADDL_DTY .
---------------------INCLUDING CESS CREDIT VALUE---------
IF NOT ITAB_DISPLAY-ECS IS INITIAL.
WRITE : 102(14) ITAB_DISPLAY-ECS.
ENDIF.
READ TABLE ITAB_EXNUM1 WITH KEY EXNUM = ITAB_DISPLAY-EXNUM_CR
EXDAT = ITAB_DISPLAY-EXDAT_CR
CNT = ITAB_DISPLAY-CNT .
IF SY-SUBRC EQ 0.
WRITE : 118(15) ITAB_EXNUM1-CENVAT.
IF NOT ITAB_EXNUM1-SED IS INITIAL.
WRITE : 134(14) ITAB_EXNUM1-SED.
ENDIF.
ENDIF.
ENDIF.
WRITE : 150(15) ITAB_DISPLAY-TOT_CENVAT_CR.
IF NOT ITAB_DISPLAY-TOT_SED_CR IS INITIAL.
WRITE : 166(14) ITAB_DISPLAY-TOT_SED_CR.
ENDIF.
WRITE : 166(14) TOTAL_ECS.
IF NOT ITAB_DISPLAY-EXNUM_DB IS INITIAL.
WRITE : 182 ITAB_DISPLAY-EXNUM_DB ,
194(15) ITAB_DISPLAY-CENVAT_DB .
*--GETTING CESS VALUE FOR DEBIT--
IF NOT ITAB_DISPLAY-ECS1 IS INITIAL.
WRITE : 210(14) ITAB_DISPLAY-ECS1.
ENDIF.
ENDIF.
WRITE : 225(15) ITAB_DISPLAY-CENVAT_CLS.
RECENT CHANGES -
IF NOT ITAB_DISPLAY-ECS IS INITIAL.
TOTAL_ECS = ITAB_DISPLAY-ECS + TOTAL_ECS.
ENDIF.
IF NOT ITAB_DISPLAY-ECS1 IS INITIAL.
TOTAL_ECS = TOTAL_ECS - ITAB_DISPLAY-ECS1 .
ENDIF.
WRITE : 240(13) TOTAL_ECS.
RECENT CHANGES -
IF NOT ITAB_DISPLAY-EXNUM_CR IS INITIAL.
WRITE :/55 ITAB_DISPLAY-EXDAT_CR.
ENDIF.
IF NOT ITAB_DISPLAY-EXNUM_DB IS INITIAL.
WRITE :/182 ITAB_DISPLAY-EXDAT_DB.
ENDIF.
GR_TOTAL_ECS = GR_TOTAL_ECS + TOTAL_ECS.
COMPUTE GR_TOTAL_CREDIT_CESS = GR_TOTAL_CREDIT_CESS +
ITAB_DISPLAY-ECS .
COMPUTE GR_TOTAL_DEBIT_CESS = GR_TOTAL_DEBIT_CESS +
ITAB_DISPLAY-ECS1 .
COMPUTE GR_CLOSE_BAL_CESS = ( TOTAL_ECS_1 + GR_TOTAL_CREDIT_CESS )
- GR_TOTAL_DEBIT_CESS.
AT LAST.
IF NOT ITAB_DISPLAY-ECS IS INITIAL.
TOTAL_ECS = ITAB_DISPLAY-ECS + TOTAL_ECS.
ENDIF.
IF NOT ITAB_DISPLAY-ECS1 IS INITIAL.
TOTAL_ECS = TOTAL_ECS - ITAB_DISPLAY-ECS1 .
ENDIF.
WRITE:/(255) SY-ULINE.
WRITE:/212(12) GR_TOTAL_DEBIT_CESS.
SUM.
WRITE:/(255) SY-ULINE.
WRITE:/40(12) GR_TOTAL_ECS ,
WRITE: 66 ITAB_DISPLAY-CENVAT_CR ,
82 ITAB_DISPLAY-ADDL_DTY ,
102 ITAB_DISPLAY-SED_CR ,
102(12) GR_TOTAL_CREDIT_CESS,
168(12) GR_TOTAL_CREDIT_CESS,
194 ITAB_DISPLAY-CENVAT_DB .
210 ITAB_DISPLAY-SED_DB.
WRITE : 240(13) GR_CLOSE_BAL_CESS.
WRITE:/(255) SY-ULINE.
ENDAT.
MOVE : ITAB_DISPLAY-EXNUM_CR TO V_PREV_EXNUM.
MOVE : ITAB_DISPLAY-EXDAT_CR TO V_PREV_EXDAT.
IF NOT ITAB_DISPLAY-ECS IS INITIAL.
TOTAL_ECS = ITAB_DISPLAY-ECS + total_ecs.
ENDIF.
IF NOT ITAB_DISPLAY-ECS1 IS INITIAL.
TOTAL_ECS = TOTAL_ECS - ITAB_DISPLAY-ECS1 .
ENDIF.
GR_TOTAL_ECS = GR_TOTAL_ECS + TOTAL_ECS.
ENDLOOP.
ENDFORM. " F_004_DIKHAO
*& Form F_005_CREDIT_SUBTOTAL
text
--> p1 text
<-- p2 text
FORM F_005_CREDIT_SUBTOTAL.
DATA : V_CENVAT LIKE J_1IEXCHDR-EXBED , V_SED LIKE J_1IEXCHDR-EXSED.
DATA : V_CNT TYPE I.
LOOP AT ITAB_DISPLAY WHERE EXNUM_CR NE SPACE.
MOVE : ITAB_DISPLAY-EXNUM_CR TO ITAB_EXNUM-EXNUM.
MOVE : ITAB_DISPLAY-EXDAT_CR TO ITAB_EXNUM-EXDAT.
MOVE : ITAB_DISPLAY-CENVAT_CR TO ITAB_EXNUM-CENVAT.
MOVE : ITAB_DISPLAY-ADDL_DTY TO ITAB_EXNUM-ADDL_DTY.
MOVE : ITAB_DISPLAY-SED_CR TO ITAB_EXNUM-SED.
APPEND ITAB_EXNUM.
ENDLOOP.
SORT ITAB_EXNUM BY EXNUM EXDAT.
LOOP AT ITAB_EXNUM.
AT NEW EXDAT.
MOVE : ITAB_EXNUM-EXNUM TO ITAB_EXNUM1-EXNUM.
CLEAR : V_CNT , V_CENVAT , V_SED.
ENDAT.
V_CNT = V_CNT + 1.
V_CENVAT = V_CENVAT + ITAB_EXNUM-CENVAT + ITAB_EXNUM-ADDL_DTY.
V_SED = V_SED + ITAB_EXNUM-SED.
AT END OF EXDAT.
MOVE : ITAB_EXNUM-EXDAT TO ITAB_EXNUM1-EXDAT.
MOVE : V_CENVAT TO ITAB_EXNUM1-CENVAT.
MOVE : V_SED TO ITAB_EXNUM1-SED.
MOVE : V_CNT TO ITAB_EXNUM1-CNT.
APPEND ITAB_EXNUM1.
ENDAT.
ENDLOOP.
DELETE ITAB_EXNUM1 WHERE CNT EQ 1.
ENDFORM. " F_005_CREDIT_SUBTOTAL
*& Form F_006_CHECK_KARO
text
--> p1 text
<-- p2 text
*FORM F_006_CHECK_KARO.
DATA : ITAB_CHECK LIKE ZEXCISE_SED_BED OCCURS 0 WITH HEADER LINE.
SELECT * FROM ZEXCISE_SED_BED INTO TABLE ITAB_CHECK WHERE
ZDATE IN S_BUDAT
DESCRIBE TABLE ITAB_CHECK LINES V_LIN.
IF V_LIN GT 0.
SORT ITAB_CHECK BY ZDATE DESCENDING.
READ TABLE ITAB_CHECK INDEX 1.
MESSAGE E000(8I) WITH 'Please execute the report for date after'
ITAB_CHECK-ZDATE.
ENDIF.
*ENDFORM. " F_006_CHECK_KARO
*& Form F_006_KHOL_BUND
text
--> p1 text
<-- p2 text
FORM F_006_KHOL_BUND.
TABLES : MARD .
DATA : MM LIKE MARD-LFMON , YYYY LIKE MARD-LFGJA.
CALL FUNCTION 'Z_GET_FINANCIAL_YEAR'
EXPORTING
DATE = S_BUDAT-LOW
IMPORTING
F_PERIOD = MM
F_YEAR = YYYY
EXCEPTIONS
OTHERS = 1.
****KANS INSERT
IF P_WERKS EQ '1000'.
SELECT * FROM GLT0 WHERE BUKRS EQ '1000' AND
RYEAR EQ YYYY AND
RACCT EQ '0000155110' .
MOVE-CORRESPONDING GLT0 TO ITAB_GLT0.
COLLECT ITAB_GLT0.
ENDSELECT.
SELECT * FROM GLT0 WHERE BUKRS EQ '1000' AND
RYEAR EQ YYYY AND
RACCT EQ '0000155130' .
MOVE-CORRESPONDING GLT0 TO ITAB_GLT0_1.
COLLECT ITAB_GLT0_1.
ENDSELECT.
ELSEIF P_WERKS EQ '3000'.
SELECT * FROM GLT0 WHERE BUKRS EQ '1000' AND
RYEAR EQ YYYY AND
RACCT EQ '0000157110' .
MOVE-CORRESPONDING GLT0 TO ITAB_GLT0.
COLLECT ITAB_GLT0.
ENDSELECT.
SELECT * FROM GLT0 WHERE BUKRS EQ '1000' AND
RYEAR EQ YYYY AND
RACCT EQ '0000157130' .
MOVE-CORRESPONDING GLT0 TO ITAB_GLT0_1.
COLLECT ITAB_GLT0_1.
ENDSELECT.
Begin of corrections
ELSEIF P_WERKS EQ '4000'.
SELECT * FROM GLT0 WHERE BUKRS EQ '1000' AND
RYEAR EQ YYYY AND
RACCT EQ '0000158110' .
MOVE-CORRESPONDING GLT0 TO ITAB_GLT0.
COLLECT ITAB_GLT0.
ENDSELECT.
SELECT * FROM GLT0 WHERE BUKRS EQ '1000' AND
RYEAR EQ YYYY AND
RACCT EQ '0000158130' .
MOVE-CORRESPONDING GLT0 TO ITAB_GLT0_1.
COLLECT ITAB_GLT0_1.
ENDSELECT.
ELSEIF P_WERKS EQ '2000'.
SELECT * FROM GLT0 WHERE BUKRS EQ '1000' AND
RYEAR EQ YYYY AND
RACCT EQ '0000156110' .
MOVE-CORRESPONDING GLT0 TO ITAB_GLT0.
COLLECT ITAB_GLT0.
ENDSELECT.
SELECT * FROM GLT0 WHERE BUKRS EQ '1000' AND
RYEAR EQ YYYY AND
RACCT EQ '0000156130' .
MOVE-CORRESPONDING GLT0 TO ITAB_GLT0_1.
COLLECT ITAB_GLT0_1.
ENDSELECT.
ELSEIF P_WERKS EQ '5000'.
SELECT * FROM GLT0 WHERE BUKRS EQ '1000' AND
RYEAR EQ YYYY AND
RACCT EQ '0000159110' .
MOVE-CORRESPONDING GLT0 TO ITAB_GLT0.
COLLECT ITAB_GLT0.
ENDSELECT.
SELECT * FROM GLT0 WHERE BUKRS EQ '1000' AND
RYEAR EQ YYYY AND
RACCT EQ '0000159130' .
MOVE-CORRESPONDING GLT0 TO ITAB_GLT0_1.
COLLECT ITAB_GLT0_1.
ENDSELECT.
****End of corrections (20.04.2002 for Plant 4000)
ENDIF.
READ TABLE ITAB_GLT0 INDEX 1.
READ TABLE ITAB_GLT0_1 INDEX 1.
CASE MM.
WHEN '01'.
MOVE : ITAB_GLT0-TSLVT TO V_OPENING_BED.
MOVE : ITAB_GLT0_1-TSLVT TO V_OPENING_SED.
WHEN '02'.
V_OPENING_BED = ITAB_GLT0-TSLVT + ITAB_GLT0-TSL01.
V_OPENING_SED = ITAB_GLT0_1-TSLVT + ITAB_GLT0_1-TSL01.
WHEN '03'.
V_OPENING_BED = ITAB_GLT0-TSLVT + ITAB_GLT0-TSL01 +
ITAB_GLT0-TSL02 .
V_OPENING_SED = ITAB_GLT0_1-TSLVT + ITAB_GLT0_1-TSL01 +
ITAB_GLT0_1-TSL02.
WHEN '04'.
V_OPENING_BED = ITAB_GLT0-TSLVT + ITAB_GLT0-TSL01 +
ITAB_GLT0-TSL02 + ITAB_GLT0-TSL03 .
V_OPENING_SED = ITAB_GLT0_1-TSLVT + ITAB_GLT0_1-TSL01 +
ITAB_GLT0_1-TSL02 + ITAB_GLT0_1-TSL03 .
WHEN '05'.
V_OPENING_BED = ITAB_GLT0-TSLVT + ITAB_GLT0-TSL01 +
ITAB_GLT0-TSL02 + ITAB_GLT0-TSL03 +
ITAB_GLT0-TSL04 .
V_OPENING_SED = ITAB_GLT0_1-TSLVT + ITAB_GLT0_1-TSL01 +
ITAB_GLT0_1-TSL02 + ITAB_GLT0_1-TSL03 +
ITAB_GLT0_1-TSL04 .
WHEN '06'.
V_OPENING_BED = ITAB_GLT0-TSLVT + ITAB_GLT0-TSL01 +
ITAB_GLT0-TSL02 + ITAB_GLT0-TSL03 +
ITAB_GLT0-TSL04 + ITAB_GLT0-TSL05 .
V_OPENING_SED = ITAB_GLT0_1-TSLVT + ITAB_GLT0_1-TSL01 +
ITAB_GLT0_1-TSL02 + ITAB_GLT0_1-TSL03 +
ITAB_GLT0_1-TSL04 + ITAB_GLT0_1-TSL05 .
WHEN '07'.
V_OPENING_BED = ITAB_GLT0-TSLVT + ITAB_GLT0-TSL01 +
ITAB_GLT0-TSL02 + ITAB_GLT0-TSL03 +
ITAB_GLT0-TSL04 + ITAB_GLT0-TSL05 +
ITAB_GLT0-TSL06 .
V_OPENING_SED = ITAB_GLT0_1-TSLVT + ITAB_GLT0_1-TSL01 +
ITAB_GLT0_1-TSL02 + ITAB_GLT0_1-TSL03 +
ITAB_GLT0_1-TSL04 + ITAB_GLT0_1-TSL05 +
ITAB_GLT0_1-TSL06 .
WHEN '08'.
V_OPENING_BED = ITAB_GLT0-TSLVT + ITAB_GLT0-TSL01 +
ITAB_GLT0-TSL02 + ITAB_GLT0-TSL03 +
ITAB_GLT0-TSL04 + ITAB_GLT0-TSL05 +
ITAB_GLT0-TSL06 + ITAB_GLT0-TSL07 .
V_OPENING_SED = ITAB_GLT0_1-TSLVT + ITAB_GLT0_1-TSL01 +
ITAB_GLT0_1-TSL02 + ITAB_GLT0_1-TSL03 +
ITAB_GLT0_1-TSL04 + ITAB_GLT0_1-TSL05 +
ITAB_GLT0_1-TSL06 + ITAB_GLT0_1-TSL07 .
WHEN '09'.
V_OPENING_BED = ITAB_GLT0-TSLVT + ITAB_GLT0-TSL01 +
ITAB_GLT0-TSL02 + ITAB_GLT0-TSL03 +
ITAB_GLT0-TSL04 + ITAB_GLT0-TSL05 +
ITAB_GLT0-TSL06 + ITAB_GLT0-TSL07 +
ITAB_GLT0-TSL08 .
V_OPENING_SED = ITAB_GLT0_1-TSLVT + ITAB_GLT0_1-TSL01 +
ITAB_GLT0_1-TSL02 + ITAB_GLT0_1-TSL03 +
ITAB_GLT0_1-TSL04 + ITAB_GLT0_1-TSL05 +
ITAB_GLT0_1-TSL06 + ITAB_GLT0_1-TSL07 +
ITAB_GLT0_1-TSL08 .
WHEN '10'.
V_OPENING_BED = ITAB_GLT0-TSLVT + ITAB_GLT0-TSL01 +
ITAB_GLT0-TSL02 + ITAB_GLT0-TSL03 +
ITAB_GLT0-TSL04 + ITAB_GLT0-TSL05 +
ITAB_GLT0-TSL06 + ITAB_GLT0-TSL07 +
ITAB_GLT0-TSL08 + ITAB_GLT0-TSL09 .
V_OPENING_SED = ITAB_GLT0_1-TSLVT + ITAB_GLT0_1-TSL01 +
ITAB_GLT0_1-TSL02 + ITAB_GLT0_1-TSL03 +
ITAB_GLT0_1-TSL04 + ITAB_GLT0_1-TSL05 +
ITAB_GLT0_1-TSL06 + ITAB_GLT0_1-TSL07 +
ITAB_GLT0_1-TSL08 + ITAB_GLT0_1-TSL09 .
WHEN '11'.
V_OPENING_BED = ITAB_GLT0-TSLVT + ITAB_GLT0-TSL01 +
ITAB_GLT0-TSL02 + ITAB_GLT0-TSL03 +
ITAB_GLT0-TSL04 + ITAB_GLT0-TSL05 +
ITAB_GLT0-TSL06 + ITAB_GLT0-TSL07 +
ITAB_GLT0-TSL08 + ITAB_GLT0-TSL09 +
ITAB_GLT0-TSL10 .
V_OPENING_SED = ITAB_GLT0_1-TSLVT + ITAB_GLT0_1-TSL01 +
ITAB_GLT0_1-TSL02 + ITAB_GLT0_1-TSL03 +
ITAB_GLT0_1-TSL04 + ITAB_GLT0_1-TSL05 +
ITAB_GLT0_1-TSL06 + ITAB_GLT0_1-TSL07 +
ITAB_GLT0_1-TSL08 + ITAB_GLT0_1-TSL09 +
ITAB_GLT0_1-TSL10 .
WHEN '12'.
V_OPENING_BED = ITAB_GLT0-TSLVT + ITAB_GLT0-TSL01 +
ITAB_GLT0-TSL02 + ITAB_GLT0-TSL03 +
ITAB_GLT0-TSL04 + ITAB_GLT0-TSL05 +
ITAB_GLT0-TSL06 + ITAB_GLT0-TSL07 +
ITAB_GLT0-TSL08 + ITAB_GLT0-TSL09 +
ITAB_GLT0-TSL10 + ITAB_GLT0-TSL11 .
V_OPENING_SED = ITAB_GLT0_1-TSLVT + ITAB_GLT0_1-TSL01 +
ITAB_GLT0_1-TSL02 + ITAB_GLT0_1-TSL03 +
ITAB_GLT0_1-TSL04 + ITAB_GLT0_1-TSL05 +
ITAB_GLT0_1-TSL06 + ITAB_GLT0_1-TSL07 +
ITAB_GLT0_1-TSL08 + ITAB_GLT0_1-TSL09 +
ITAB_GLT0_1-TSL10 + ITAB_GLT0_1-TSL11 .
ENDCASE.
ENDFORM. " F_006_KHOL_BUND
*& Form F_005_DIEX_DTL_SE_UTHAO
text
--> p1 text
<-- p2 text
FORM F_005_DIEX_DTL_SE_UTHAO.
*ppend lines of itab_excise to itab_excise1.
*elete itab_excise where trntyp eq 'DIEX'.
*elete itab_excise1 where trntyp ne 'DIEX'.
ENDFORM. " F_005_DIEX_DTL_SE_UTHAOStar ,
Tell me how u are calc.Opening Balance?
Regards
Prabhu -
Hi All,
As per the new excise requirement we have to show the opening and closing balances of all the materials in RG1 register.
Please help me how to get this?
What is Extraction Indicator in J2irg1bal table?
Please help
Thanks
PrasadHi Satyendra ,
For initial upload in RG1 there are 2 tables you need to manually update. J_2IRG1BAL from CIN or SD side. And Accounts to be updated for Balance in J_2IACCBAL.
There are 2 ways for updating balance tables
On last day of month enter Balance in Closing balance field.
OR enter opening balance on 1 st day of month.
Also check Material form P ,can be maintained in user exit for permanent effect.
After updating balances ,
perform any one transaction on system.
and then Extract the Rg1 table .
Ask FI consultant to put in FI JV after balance upload in ACCBAL table.
If you have not done table entries before performing transaction and extraction of RG1 then balances will not appear .
Check with your senior there and use table edit in such case (I hope you are not on production server at the moment) .Then again perform Extraction and check once.
SD FI and ABAP to be present and take decision accordingly. -
RG1 register opening balance and closing balance updation
Hi All,
We are using the RG1 register recently i.e. after the Functional Upgrade (ECC 6.0). While executing J2I6 RG1 Excel report, opening balance and closing balance is not appearing in the report even though we have done the J1I5 extraction.
Is it mandatory to update the J_2IRG1BAL table with zero stock as and when the new material codes are created.
Regards,
PraveenHI
Yes it is mandatory to update the table J_2IRG1BAL with material form and opening stock etc. for all the new materials
EXGRP: Excise group of the material
DATUM: Date from which you want RG1 report i.e. 01.01.2004
MATNR: Material
FORM: P for packed, L for loose. note that the same material cannot be maintained as both packed and loose.
WERKS: Leave it blank
Maintain all relevant opening balance fields. These fields start with OP
Note 951955 - CIN: General clarifications for RG1 goods*
check the above note
regards
Prashanth -
Cenvat opening balance problem
Hi,,
At the time of 50% cenvat credit transfer of capital goods from Credit on Hold a/c (31040) of F.Y:07-08 of Rs.26047791/- to Cenvat credit BED/CESS/SCESS a/c (F.Y:08-09), opening balance is not transferring. Because of this we are unable to pass the utilisation entry against the excise duty liability for the month of April'08, May'08. & June 08.
How this Cenvat opening balance transfer is possible in J2I8 ?
Beside we have not close last year financial account till now. Kinldy tell me which one should be first priority. Should I close last year financial account first and then excise opening balance can be transferred later or vice versa.
With Regards,
SamratHi
Please follow the below:
Entering the closing balance of the RG23A Part II and PLA registers in table J_2IACCBAL, as they were on the day prior to extracting the register data.
For example,. the extract the registers from 1 April 2006. Maintain the closing balances in the table J_2IACCBAL as on 31 March 2006.
Make the entries in table J_2IACCBAL as described below:
Field Entry
EXGRP Excise group of the registers
REGISTER Type of register
Make an entry for each of the following:
u2022 RG23ABED
u2022 RG23ASED
u2022 RG23AAED
u2022 PLABED
u2022 PLASED
u2022 PLAAED
u2022 PLACESS
DATUM Date of the closing balance
WERKS Leave this field blank
OP BAL Leave this field blank
CL BAL Closing balance in the register
EXAMT Leave this field blank
EXIND Leave this field blank
USNAM User ID of the person making the entries
CPUDT Date of entry
CPUTM Time of entry
regards
Sridevi -
Hi,
I want to put the opening balances.The client uses tally and they dont have goods recieved not invoiced account in it.But there are are some goods receipts done but vendor invoice not recieved yet.In this scenario, what balance do I put against the goods recieved not invoiced account in the opening balance for SAP B1.Also , let me know what are other such scenarios which i need to take precaution.
RegardsSBO2005B: Please refer the following URL for complete details
http://help.sap.com/saphelp_sbo2005b/helpdata/en/index.htm
In Journal Entry Window: Country-Specific Fields, General Area: India
Field(s)
Description/Activity
CENVAT Component
Displays the tax type, if the tax is under CENVAT tax category. In a manual journal entry, if CENVAT Component is selected, the Material type must also be selected.
Material Type
Displays the Material type, if the tax is under CENVAT tax category. In a manual journal entry, if Material type is selected, CENVAT Component must also be selected.
SBO2007B: Please refer the following URL for complete details
http://help.sap.com/saphelp_sbo2007b/helpdata/en/b1/8fe14910cf46b9b2ff2de2f315e5a2/frameset.htm
Journal Entry Window: Country-Specific Fields, General Area: India
CENVAT Component Displays the tax types under the CENVAT tax category.
Material Type Displays the material type, if the tax is under the CENVAT tax category.
Location Location in header area:
Select the location by which relevant journal entries are displayed.
You must specify the location if Generate Excise Reg. No or Automatic. Tax is selected.
Location in table area:
You must specify the location if:
Tax Code is used in manual journal entries; default value is the location in the header area
Material Type or Material Component is not NULL
Location, CENVAT Component, and Material Type are copied from the previous or first line and are read-only.
Hope this clarifies your query.
Regards
Satish -
pls help with this.
1)why for e.g opening balance for 1 month period given in MB5B not matching with the same period given in s033 table.
2) sole concern is to match all matnr & their opening balances in MB5B with any Table.........? i tried s033 its not correct....any solutions.....
thanks in advance.hi
Note 951955 - CIN: General clarifications for RG1 goods
maintain the following
entries in table J_2IRG1BAL for all RG1 material.
EXGRP: Excise group of the material
DATUM: Date from which you want RG1 report i.e. 01.01.2004
MATNR: Material
FORM: P for packed, L for loose. note that the same material cannot be
maintained as both packed and loose.
WERKS: Leave it blank
Maintain all relevant opening balance fields. These fields start with
OP
Enter the username in USNAM and CPUDT (current date).
When ever a new material is created this has to be done. For more details
refer the Note No.373001.
If you do not want to maintain the material form in table J_2IRG1BAL, and
want to use your own logic for updating material form in table J_1IRG1
during transaction J1I5 then apply Note No.412864. This note provides
for an user exit J_1I7_userexit_J1I5_matform. In this user exit you can
write your own logic for updating the material form for different
materials irrespective of what the system picks up. Once again please note
that the same material cannot be updated as 'P' for one entry and 'L' for
another entry in table J_1IRG1.
Also check the Note No. 502792 based on your Support pack level. And
always ensure the Latest Support Pack is applied in your
System.
Please check whether you have uploaded the correct Balance of the
Materials in the table J_2IRG1BAL and compare with the table
J_1IRG1.
Please note that the table J_2IRG1BAL alone will have the Material
field. The table J_2IACCBAL has to updated for the Excise Group,
Plant and no Material field will be available.
Hence, identify the Material and compare with the tables
J_1IRG1, cumulative stock.
regards -
Change opening balance RG 23A part II register
Dear Expert,
I want to change Opening balance for RG 23 A part II register for both the field excise duty and Education cess,
while i am executing this transaction J2I6 the amount need to change.
CIN configuration already done from 2006 and that time some balance is laying on opening balance for excise duty and no balance for Edu cess. So i want to change for both the amount, Please advice.
I have attached the screen shot for reference with marked yellow colors for those fields .Please advice.Dear Mani/Sampat,
Thank you for your answer,
Sorry for delay in response as per your comment now i can able to modification the opening balance with table J_2IACCBAL.
I have one more query regarding outgoing excise capturing in RG 23 A part II register.
Could you please advice how can the report capture the debit balance for outgoing excise invoices.
The incoming excise invoices captures perfectly in this register.i have attached screen shot for your reference. -
Who to cummulate the opening balance in Transformation.
Hi Guys,
I am using 0FIAR_O3 DSO, I have an object opening balance in DSO.
I want to cummulate the (debit amount - credit amount) which i am getting from PSA to DSO into opening balance infoobject witht respect to customer.
I want to do this in Transformation.
Please let me know the steps & ABAP code to achive this requirement.
Points will be awarded.
Thanks inadvance
Peterhi,
The steps to be followed are as under:
1. First upload the intial stock balances by using the movement type 561
2. Now use T code J1I5 to update RG23 (Part -1) and RG1
3. Now go to SE11 and make entries in Table J_2IACCBAL through BDC. The data elements to be used are RG23ABED, RG23ASED, RG23AAED, RG23CBED, RG23CSED, RG23CAED, PLABED, PLASED, PLAAED, PLACESS
4. Pass the GL account entries in FI
5. Use T Code J1IH to creat excise JV for RG23 Part -2 on Hold entries
u can also check the below link
Re: Excise Balance Upload
regards
jash
Edited by: diptasya jash on Apr 30, 2009 10:44 AM -
Upload of opening balance in PLA & RG23A/C
Hi all,
I am trying to upload opening balances of RG23A & RG23C through Table J_2IACCBAL.
But system is not allowing me to upload the same, it gives following error
No table entries found for specified key
Message no. MO429
What can be the reason?
Is there anything in addition I have to do before uploading these opening balances through this table?
Please guide me.
Thanks
SonalHi,
To upload balance you have to goto SE11, give database table "J_2IACCBAL", select Display, Menu "Utilities > Table Contents > Create Entires".
Maybe you are looking for
-
I can browse iTunes store with no problem. My network connection is just fine. I can add items to my shopping cart. It's only when I try to view my account or my iTunes shopping cart that I get an error message saying: "We could not complete your iTu
-
Bridge mode CSM - Serverfarm with hosts in different vlans
Hi, I'm trying to answer a question while doing design. I am planning on deploying a CSM in bridge mode with multiple vlans. I need to create a serverfarm which has real servers in two separate server side vlans. I would then present the Vserver on t
-
HT1430 What to do if the message shows "cannot activate iphone" after updating ios5?
After updating to ios5, got the message "no sim card". I turn off and restart, then reset language, country or region, connect to itune, "cannot activate iphone" I dont know what's going on?
-
How do I block telnet port 23 and 2000 (newbie)
I am a small business owner who is trying to comply with Trustwave's PCI compliance to accept credit cards over my virtual terminal. They run a scan once a month and it says that I am not in compliance because Telnet is using port 23 and 2000. I have
-
Smartforms : page count problem
Hi everyone, I am using the system variable SFSY-FORMPAGES and when the total pages is above 9, I get a star "*" instead of the real number of pages. Can someone help. Thanks in advance.