PROBLEM IN DELETE THE PARKED INVOICE

Dear cons
We have parked an invoice document. but we want to delete the document.at the time of deletion the system gives an error message" that Transfer table would lead to a duplicate record in CDPOS/CDPOS_UID.When the generated update module XXXX_WRITE_DOCUMENT was called, several of the same table lines were transferred in a transfer table.
If these line items are written to CDPOS/CDPOS_UID, the termination SAPSQL_ARRAY_INSERTDUPREC would occur.
The OBJECTCLAS and OBJECTID of the change document object (possibly truncated) that is to be written are output.
System Response
System termination
The system terminates.
Procedure
If you were working in dialog mode:
An error message is displayed.
If you were not working in dialog mode:
An express message is received:
The express document "Update terminated" by author "XXXXX YYYY" is received.
You can view the terminated update in the Update overview (SM13). The error message is displayed by double-clicking on the relevant lines.pl. solve it.
thanks
nrk

hi,
Temp solution: Open the parked doc in MIR7, remove the PO Number, it will reset the values..
put the PO no. again...and delete...
regards
Johny KT

Similar Messages

MASS Deleting of Parked Invoices Urgent Urgent

Hello,
How to delete the Parked Invoices.
Is there any transaction for mass delete??
Regards,
Kumar

hi,
MR8M --> cancel invoice document
MRA1 --> create archive
MRA2 --> delete documents
MRA4 --> manage archive
first you archive the parked invoices and using MRA2 you can delete all archived invoice documents.
hope this may help you,
regards,
srinivas

Deletion of parked invoices after carry forward of open items in FM

Hi,
We have Funds management activated in our client.The MIRO invoices are parked for the year 2008.We follow calendar year.Open item are carried forward to 2009 without posting/deleting the parked invoices.We are now unable to delete the parked invoices. We get the following error message while trying to delete the invoice:
Posting in fis. yr 2008 is not possible; in FM open doc. 5000005928 in fis. yr 2009
Message no. FMCF102
Diagnosis
It is not possible to change document 5000005928 in fiscal year 2008 because the document was updated as open commitment in fiscal year 2009 in Funds Management.
System Response
The posting is not carried out.
Procedure
To change the document
If the fiscal year 2008 is later than 2009:
Carry document 5000005928 forward to fiscal year 2008 using program Closing Operations: Carryforward of Open Items (RFFMCCF1).
If fiscal year 2008 is earlier than 2009 and document 5000005928 was carried forward already:
Reset the commitment carryforward using program Closing Operations: Reset Carryforward of Open Items (RFFMCCFR)
Then you can make the change to document 5000005928.
I tried to undo Carry forward using FMJ3,but I get a message "There are no items to be reversed"
Please guide me,
Thanks in advance
Latha

Hi,
Please, check note 1285456. The CF of parked invoices was apparently performed with discrepancies in the tables.
Regards,
Eli

Deletion of Parked Invoice

Hi friends,
Need your help on the below issue
I am trying to delete a Parked invoice for which the PO has been already archived. Hence system is not allowing to delete the parked invoice
1. Is there any way how to delete the parked invoice?
2. Because when we check in transaction FBL1N(Vendor Line item display) with option "Parked Items" system shows all parked items. But the PO used in those parked invoices are already archived . we do not want to see that parked invoice in FBL1N transcation with option "Parked Items?
Please help
Deva

Hi Krishna,
We unable to delete the parked document in MIR7 as the PO has been archived.
system says purchase order item xxxxx xxx doesn't exist
Can any one help on how to delete the parked invoice for which PO has been archived
Thanks
Deva

Mass delete the parked EDI LIV invoices

Hey Guys:
I want to Mass delete the parked EDI LIV invoices. I have implemented note <b>971193 - FIPP: Mass deletion of parked documents</b> which is pulling data from FBV0...which is not the place where parked EDI LIV invoices are in.
I have found a table RBKP which is having my parked LIV invoices document numbers.
Can some of you give me a solution from where exactly we can mass delete these parked LIV invoices which have not touched the F1 yet.
Thanks
Gitaa

Have you tried Mir4

Deletion of Parked Invoices - Mass deletion

Can any one please guide the T.code for the Mass deletion of parked IRs.
With regards,
Gokul.

Mass Archived/Deletion of Parked Invoice Document:
T.code : MRA2 -Delete Documents/Archiving Invoice
You can excute the standard program for invoice deletetion RM08RADE the invoice documents from Invoice Verification that were archived with program RM08RARC (object MM_REBEL) from the database. Also this will execute in Test mode But its Records are deleted from the following tables:
RBKP: Document Header: Invoice Receipt
RBTX: Taxes: Incoming Invoice
RSEG: Document Item: Incoming Invoice
RBCO: Account Assignments
RBWS: Withholding Tax Data, Incoming Invoice
KONV: Conditions in the Incoming Invoice
NAST: Message Status
RBVS: Splitting the Vendor Line Item
CDHDR/CDPOS: Change Documents
Prerequisites :
Documents that have reached the end of the retention period set in Customizing. For the retention period, the posting date in the invoice document header is relevant. If no retention period is set in Customizing, the system uses 9999 days as the minimum retention period.
Procedure
1. If the program is only for testing purposes, that is you do not want it to actually delete any data, select the option Test run.
The variant entered in the Archive Customizing (Environment -> Customizing) under Settings for the deletion program in the field Test run variant, is used in this case.
(If the test run option is not flagged, then the system will use the variant which is specified in Archive Customizing in the field Productive run variant.)
2. Specify which data should be deleted with the pushbutton Archive selection.
3. Specify when the job should run with the pushbutton Start time.

Can not delete the incoming invoice- is "held"

Hi, can anybody help me?
What can be done if to PO an incoming invoice was created, but beacuse of some error messages only held, not posted. Now, if they try to delete the invocie (though transaction MIR4) , the message comes :
Invoice document xxxxxx cannot be processed further
Message no. M8422
Diagnosis
The invoice document xxxxxxxx contains the purchasing document xxxxxxxx, and the item 00290. You cannot enter the invoice for this item, or you cannot cancel the invoice document. This can have various causes, for example:
- The PO item is locked
- THE PO item is flagged for deletion
- Another employee is currently processing the purchase order
- The purchase order has not yet been released
- The corresponding service entry sheet has been deleted
- For a held invoice for planned delivery costs: the vendor in the held invoice does not match the vendor in the purchase order condition or with the vendor from the purchase order history. This is because the vendor in the purchase order condition has been changed in the meantime. -> In this case, you can no longer process the held document. You can use report Z_MRM_DELETE_PP from note 501905 to delete the document
The position 290 in Po seems to be ok, no deletion flag or something else, no change of vendor.
Could be the problem caused by the fact, that in the meantime the reall invoice to the same PO was created and also posted?
So how can we delete the held invoice without implementing the note?

Hi,
Please check the frieght condition in the PO item detail screen by taking the icon magnifying glass and check wheather the vendor is changed.
Regards,

Problem in deleting the message after reading

Hi
I m having some problem to delete the message after reading.
i read the FAQ, and there is only one question regarding to delete that i have tried but its not working
As my application required that message should be deleted after the processing.
Please help me out asap
Thank in advance.

now here is the protocol trace from starting to the end point
with the settings of
session.setDebug(true);
and
folder.close(true);
POP3: connecting to host "172.xx.xx.xx", port 110
S: +OK Microsoft Exchange Server 2003 POP3 server version 6.5.6944.0 (xxxxx.xyz.com) ready.
C: USER test1
S: +OK
C: PASS Password
S: +OK User successfully logged on.
C: STAT
S: +OK 1 548
Total messages = 1
New messages = 0
================================
C: TOP 1 0
S: +OK
Received: from yyyyyy ([172.xx.xx.xx]) by xxxxx.xyz.com with Microsoft SMTPSVC(6.0.3790.3959);
     Thu, 11 Sep 2008 12:21:14 +0530
Message-ID: <3373112.1221115884647.JavaMail.284528@yyyyyy>
From: [email protected]
To: [email protected]
Subject: testing
Mime-Version: 1.0
Content-Type: text/plain
Content-Transfer-Encoding: 7bit
Return-Path: [email protected]
X-OriginalArrivalTime: 11 Sep 2008 06:51:14.0500 (UTC) FILETIME=[C8892840:01C913DA]
Date: 11 Sep 2008 12:21:14 +0530
C: LIST 1
S: +OK 1 548
------------STARTING LINE------------
MESSAGE #1:
From: [email protected]
To: [email protected]
Subject: testing
SendDate: Thu Sep 11 12:21:14 IST 2008
CONTENT-TYPE: text/plain
This is plain text
------------TEXT------------
C: RETR 1
S: +OK
Received: from yyyyyy ([172.xx.xx.xx]) by xxxxx.xyz.com with Microsoft SMTPSVC(6.0.3790.3959);
     Thu, 11 Sep 2008 12:21:14 +0530
Message-ID: <3373112.1221115884647.JavaMail.284528@yyyyyy>
From: [email protected]
To: [email protected]
Subject: testing
Mime-Version: 1.0
Content-Type: text/plain
Content-Transfer-Encoding: 7bit
Return-Path: [email protected]
X-OriginalArrivalTime: 11 Sep 2008 06:51:14.0500 (UTC) FILETIME=[C8892840:01C913DA]
Date: 11 Sep 2008 12:21:14 +0530
------------TEXT------------
******************MESSAGE ENDING LINE*****************
C: QUIT
S: +OK Microsoft Exchange Server 2003 POP3 server version 6.5.6944.0 signing off.

Problem in deleting the orders under Custom category.

Hi friends,
        I am facing some problem in deleting the Orders which were created under custom category. In fact we are creating Intransits under Standard category "EI" as well as Custom Category "ZP". I am able to modify the intransits created under "EI" but when I tried to change or delete the orders created under Category "ZP", I am getting a messag triggered by BAPI as " Order can not be changed". atleast I need to delete the order if change is not possible. I am using the BAPI "BAPI_SLSRVAPS_CREATEINTRANS" to create intransits under "EI" and i am using the same BAPI with BADI implementation to "SAPAPO_DM_PO_CHANGE" to create intransits under "ZP". Based on the condition I am changing the am changing the category from EI to ZP in the BADI.
       I am able to change or delete the orders created under the EI but when I tried to change or delete the orders under ZP its giving me a message as Order can not be changed.
       One more thing is If I go to Tcode /SAPAPO/RLCDEL trying to delete all the orders based on category. I am able to see all the orders under created under EI. If I tried to delete the orders based on Custom category ZI it is giving me the message as "No Orders exists in Live cache". But I am able to see the orders in tcode "SAPAPO/RRP3".
       Can any one help me out in making this done. Please help me out in this.
Thanks & Regards,
Ramana.

Hi Visu,
           I really appreciate your gr8 help. Hope you can understand my problem that I am not a SCM person. Still you are responding to my questions with great patience.
           Here what I found is I found the record in OM19 transaction in the object "/SAPAPO/OM_ORDER_EXT_STR". But the interesting is its giving me the GUID as blank . there is empty value in that field. where as the program "/SAPAPO/OM_DELETE_INCON_ORDERS" is asking for the "order GUID".
         can you help me out in finding the order guid and deleting this order.
Regards,
Ramana.

Cancel/delete the Cancelled invoice in crm system

Hi all,
I want to cancel/delete the Cancelled invoice in crm system which hasnu2019t replicated in Finance,because posting closed,we dont want re open that.
Scenario: By mistakenly user has created the cancel invoice for the complete processed Invoice (recon also done).
Now we want to delete/cancel/reverse this cancelled Invoice in crm Which has unnecessarily created??
How can i fix this??
if the solution is Delete the Cancelled invoice give the Table names and procedure how to delete the cancelled Invoice.
Thanks in advance.
shoki.
Edited by: shoki on Dec 24, 2009 12:30 PM

HI
It is not advisable to directly remove an invoice from the CRM system.
Since it is not yet posted to accounting this may create an inconsistency in the FI posting.
However the relevant table in CRM system is /1BEA/CRMB_BDH - this
ANY OTHER SUGGESITIONS???????
SHOKI

Problem related to deletion of parked invoice?

Hi All,
I have parked two same invoices against a po and released one among them and now I want to delete the other one as it's of no use for me. Now When I try to delete the invoice it is showing Message
"Invoice document 5105634579 cannot be processed further". How can i delete the Invoice

Hello Abhinav,
Instead of deleting the existing parked invoice, you may use the same document for parking invoice for some other PO by changing the PO erference and other details. Please see whether it helps and confirm.
With regards.
Sanjay

Problem in deleting the request from ODS......

Hi,
I am not able to delete one INIT request from the ODS. This request was taking long time and eventually it turned to RED. Data was there in PSA but I deleted the request and thought of doing the fresh load .
Problem is that although I have deleted the request from the ODS , it is again coming back to ODS . I have started the fresh load. AS the previous also coming to this ODS its taking long time to load the data.
Can some body let me know how to STOP/DELETE the old request?? I have already turned everything to RED QM status , overall status etc. but still its not getting stoped.
Thanks Jeetu

Hi Jeetu,
Even though u find the job and cancel it or delete it the data load will not stop untill it loads the entire data!
Hope there will be large volume of data !
Until the data load is complete wait and then delete the request and then delete the init and start the fresh load!
I too faced the same issue but i am helpless i could not stop the data load inthe middle!
If you found any solution for this let me also know
Thanks
Ram

Problem in Delete the WBS

Hello,
Please help me regarding WBS. I have created WBS and Budgeting the WBS and release it. After that the User wanted to change the few WBS and create the other WBS regarding that WBS.
First I modify the budget and clear the budgeting amount on that WBS. After that I tried to delete all the particular WBS.
But the system gives the error and it is not deleted.
Can you explain how to solve this problem?
Thanks
Asutosh

Hi,
You cannot delete the WBS as budgeting is done. Please set deletion flag by going to edit ->Status -> set deletion flag which is the standard methodology.
Muraleedharan.R
091 9880028904

Problem in deleting the Cost center

Hi
When i am trying to delete a cost center, i get the following error :Usage in table T811C
(T811C: Cycles in Overhead Cost Controlling or Profitability Analysis )
Can you help me in solving the problem
Regards
Venkata NR Chundi

hi,
you are use t.code ks04.
and delete the cost centre and check standard hieraty option.
if any problem than discuss me .. than further process are given.
rohit

Problem after deleting the records........

Hi Folks,
Kindly help me with this report.
At one point I am deleting the itfinal internal table w.r.t
to HKONT.Before deleting I am having all the values for
LIFNR and AWKey,but once deleting(as mentioned earlier) I
am not getting these two values.The same Awkey is getting repeated
again and again.
Where I am going wrong.
REPORT zf14 no standard page heading line-size 134.                                    .
TABLES: bkpf,bseg,lfa1,t001.
type-pools:slis.
TYPES : BEGIN OF x_bkpf,
         bukrs TYPE bkpf-bukrs,           " Company Code
         belnr TYPE bkpf-belnr,           " Document Number
         gjahr TYPE bkpf-gjahr,           " Fiscal year
         awkey TYPE bkpf-awkey,           " Object Key
         bldat TYPE bkpf-bldat,
         budat TYPE bkpf-budat,
         END OF x_bkpf.
TYPES : BEGIN OF x_bseg,
         bukrs TYPE bseg-bukrs,           " Company Code
         belnr TYPE bseg-belnr,           " Document Number
         gjahr TYPE bseg-gjahr,           " Fiscal Year
         koart TYPE bseg-koart,
         hkont TYPE bseg-hkont,           " G/L Account
         ebeln TYPE bseg-ebeln,           " Purchasing Document
         lifnr TYPE bseg-lifnr,           " Vendor Code
         name1 type lfa1-name1,
         ort01 type lfa1-ort01,
        END OF x_bseg.
TYPES : BEGIN OF x_bseg1,
         bukrs TYPE bseg-bukrs,           " Company Code
         belnr TYPE bsak-belnr,           " Document Number
         gjahr TYPE bsak-gjahr,           " Fiscal Year
         hkont TYPE bseg-hkont,           " G/L Account
         ebeln TYPE bseg-ebeln,           " Purchasing Document
         lifnr TYPE bseg-lifnr,           " Vendor Code
         wrbtr TYPE bseg-wrbtr,           " Amt.in Doc.Curr
        END OF x_bseg1.
types:begin of x_ven,
      name1 type lfa1-name1,
      ort01 type lfa1-ort01,
      end of x_ven.
TYPES : BEGIN OF x_final,
         bukrs TYPE bkpf-bukrs,           " Company Code
         belnr TYPE bkpf-belnr,           " Document Number
         gjahr TYPE bkpf-gjahr,           " Fiscal year
         blart TYPE bkpf-blart,           " Document Type
         awkey TYPE bkpf-awkey,           " Object Key
         bldat TYPE bkpf-bldat,
         budat TYPE bkpf-budat,
         mwskz TYPE bseg-mwskz,
         qsskz TYPE bseg-qsskz,
         wrbtr TYPE bseg-wrbtr,           " Amount in Doc Curr
         werks TYPE bseg-werks,           " Recv Facility Code
         hkont TYPE bseg-hkont,           " G/L Account
         ebeln TYPE bseg-ebeln,           " Purchasing Document
         ebeln1 type bseg-ebeln,
         lifnr TYPE bseg-lifnr,           " Vendor Code
         lifnr1 type bseg-lifnr,
         dmbtr TYPE bseg-dmbtr,
         wrtbr type bseg-wrbtr,
         vbill type bseg-wrbtr,
         tdsamt type c,
         tdsrate(4),
         shkzg TYPE bseg-shkzg,
         name1 TYPE lfa1-name1,           "vendor Name
         ort01 TYPE lfa1-ort01,           "City
         j_1icstno TYPE j_1imovend-j_1icstno, "CST
         j_1ilstno TYPE j_1imovend-j_1ilstno ,"LST
      END OF x_final.
DATA : it_bkpf   TYPE TABLE OF x_bkpf WITH HEADER LINE .
DATA : it_bseg   TYPE TABLE OF x_bseg WITH HEADER LINE .
DATA : it_bseg1   TYPE TABLE OF x_bseg1 WITH HEADER LINE .
DATA : itfinal TYPE TABLE OF x_final WITH HEADER LINE.
DATA : month_names LIKE t247 OCCURS 0 WITH HEADER LINE.
DATA :i(2),             "month
      y TYPE int4,      "year
      c(4),
      v_bill LIKE bseg-dmbtr. " bill value
DATA : pos TYPE sy-tabix,
        month(99),
        month1(99).
data:sl_no(3) value 0.
*Alv
DATA:itfieldcat TYPE slis_t_fieldcat_alv WITH HEADER LINE.
DATA:itrepid TYPE sy-repid.
itrepid = sy-repid.
DATA:itevent TYPE slis_t_event.
DATA:itlistheader TYPE slis_t_listheader.
DATA:walistheader LIKE LINE OF itlistheader.
DATA:itlayout TYPE slis_layout_alv.
DATA:top TYPE slis_formname.
DATA:itsort TYPE slis_t_sortinfo_alv WITH HEADER LINE.
DATA:itprintparams TYPE slis_print_alv.
DATA:itvariant TYPE disvariant.
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
PARAMETERS     : p_bukrs LIKE t001-bukrs OBLIGATORY. "Company code
SELECT-OPTIONS : s_lifnr FOR lfa1-lifnr, "Vendor name
                 s_budat for sy-datum obligatory,            "bkpf-budat OBLIGATORY,     "Date
                 s_gjahr FOR bseg-gjahr NO-DISPLAY.
SELECTION-SCREEN END OF BLOCK b1.
AT SELECTION-SCREEN.
SELECT SINGLE bukrs
               INTO t001-bukrs
               FROM t001
               WHERE bukrs = p_bukrs.
IF sy-subrc <> 0.
    MESSAGE e000(z_ma) WITH 'Invalid Company Code'.
ENDIF.
IF NOT s_lifnr[] IS INITIAL.
    SELECT SINGLE lifnr
                  INTO lfa1-lifnr
                  FROM lfa1
                  WHERE lifnr IN s_lifnr.
    IF sy-subrc <> 0.
      MESSAGE e000(z_ma) WITH 'Invalid Vendor'.
    ENDIF.
ENDIF.
START-OF-SELECTION.
*13
if s_budat is not initial.
if s_budat-high is not initial.
      while s_budat-low le s_budat-high.
            i = s_budat+7(2).
            if i > 3.
                s_gjahr = s_budat+3(4).
                append s_gjahr.
            else.
                c = s_budat+3(4).
                S_GJAHR = C - 1.
                append s_gjahr.
            endif.
            s_budat-low = s_budat-low + 1.
      endwhile.
   else.
      i = s_budat+7(2).
      if i > 3.
        s_gjahr = s_budat+3(4).
        append s_gjahr.
      else.
        c = s_budat+3(4).
        S_GJAHR = C - 1.
        append s_gjahr.
     endif.
   endif.
endif.
*13
SELECT bukrs belnr gjahr awkey bldat budat
           INTO TABLE it_bkpf
           FROM bkpf
           WHERE bukrs = p_bukrs
           AND   budat IN s_budat
           and   gjahr = s_gjahr. "13
IF NOT it_bkpf[] IS INITIAL.
SELECT bukrs belnr dmbtr wrbtr hkont ebeln lifnr
               FROM bseg
               INTO CORRESPONDING FIELDS OF TABLE it_bseg
               FOR   ALL ENTRIES IN it_bkpf
               WHERE bukrs = it_bkpf-bukrs
               and   belnr = it_bkpf-belnr
               AND   gjahr = s_gjahr                            "13-it_bkpf-gjahr
               AND   koart = 'K'.
ENDIF.
IF NOT it_bseg[] IS INITIAL.
SELECT belnr gjahr dmbtr wrbtr hkont ebeln lifnr
                  FROM bseg
                  INTO CORRESPONDING FIELDS OF TABLE it_bseg1
                  FOR   ALL ENTRIES IN it_bkpf
                  WHERE bukrs = it_bkpf-bukrs                    "13it_bkpf-bukrs
                  AND   belnr = it_bkpf-belnr                    "13it_bkpf-belnr
                  AND   gjahr = s_gjahr.                         "13-it_bkpf-gjahr.
ENDIF.
LOOP AT it_bkpf.
MOVE-CORRESPONDING it_bkpf TO itfinal.
APPEND itfinal.
ENDLOOP.
LOOP AT it_bseg.
MOVE-CORRESPONDING it_bseg TO itfinal.
append itfinal.
select single name1 ort01 from lfa1 into (itfinal-name1 , itfinal-ort01) where lifnr = it_bseg-lifnr.
select single j_1icstno j_1ilstno into (itfinal-j_1icstno , itfinal-j_1ilstno) from j_1imovend
    where lifnr = it_bseg-lifnr.
ENDLOOP.
LOOP AT it_bseg1.
MOVE-CORRESPONDING it_bseg1 TO itfinal.
APPEND itfinal.
ENDLOOP.
loop at it_bseg1.
itfinal-ebeln1 = it_bseg1-ebeln.
append itfinal.
endloop.
*Deleting the records from ITFINAL w.r.t HKONT.
<b>LOOP AT itfinal.
IF itfinal-hkont NE   '0020106230' AND
   itfinal-hkont NE    '0020106330'.
DELETE itfinal.
endif.
clear itfinal.
ENDLOOP.</b>
*Caluculating Bill Value
loop at itfinal.
if itfinal-hkont =     '0020106230'.
itfinal-tdsrate = '2%'.
itfinal-vbill = itfinal-wrbtr * 100 / 2.
modify itfinal.
elseif itfinal-hkont = '0020106330'.
itfinal-tdsrate = '4%'.
itfinal-vbill = itfinal-wrbtr * 100 / 4.
modify itfinal.
endif.
endloop.
sort itfinal by belnr.
delete adjacent duplicates from itfinal comparing belnr.
format reset.
format color col_normal.
LOOP AT itfinal.
sl_no = sl_no + 1.
write:/ sy-vline,
         2 sl_no,
         7 sy-vline,
         10 itfinal-ebeln1,
         21 sy-vline,
         23 itfinal-awkey,
         44 sy-vline,
         45 itfinal-bldat,
         57 sy-vline,
         60 itfinal-vbill,
         75 sy-vline,
         76 itfinal-tdsrate,
         85 sy-vline,
         89 itfinal-wrbtr,
         106 sy-vline,
         109 itfinal-belnr,
         121 sy-vline,
         124 itfinal-budat,
         134 sy-vline.
ENDLOOP.
write:/ sy-uline.
top-of-page.
data : name1(60).
data : month_text(127),
        string(99).
call function 'MONTH_NAMES_GET'
   exporting
     language                    = sy-langu
IMPORTING
RETURN_CODE                 =
    tables
      month_names                 = month_names[]
   exceptions
     month_names_not_found       = 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.
format reset.
format color col_positive.
if not s_budat-low is initial .
    read table month_names with key mnr = s_budat-low+4(2).
    if sy-subrc = 0.
      month = month_names-ltx.
      string = 'Details of TDS (2% / 4%) On Works Contract Deducted'.
      concatenate string 'for the Month of' month into month_text
      separated by space.
      write :/ month_text.
      skip 1.
    endif.
endif.
concatenate itfinal-name1 ',' itfinal-ort01
                   into name1 separated by space.
write :/ 'Vendor Code           :', itfinal-lifnr.
write :/ 'Vendor Name and City :', name1.
skip 1.
write :/ 'TNGST Registration No :', itfinal-j_1ilstno,
         / 'CST Registration No   :', itfinal-j_1icstno.
skip 1.
Display the coloumn headings
format reset.
format color col_heading.
write :/ sy-uline.
write:/ sy-vline,
         2 'Sl_no',
         7 sy-vline,
         10 'P.O. No',
         21 sy-vline,
         22 'Invoice No',
         44 sy-vline,
         45 'Inv Date',
         57 sy-vline,
         60 'Bill value',
         75 sy-vline,
         76 'TDS Rate',
         85 sy-vline,
         89 'TDS Amount' ,
         106 sy-vline,
         108 'Doc.No.',
         121 sy-vline,
         125 'Pos Date',
         134 sy-vline,
sy-uline.
K.Kiran.

Kiran,
I am pasting code here and i am sure that the code should work now
REPORT zf14 no standard page heading line-size 134. .
TABLES: bkpf,bseg,lfa1,t001.
type-pools:slis.
TYPES : BEGIN OF x_bkpf,
bukrs TYPE bkpf-bukrs, " Company Code
belnr TYPE bkpf-belnr, " Document Number
gjahr TYPE bkpf-gjahr, " Fiscal year
awkey TYPE bkpf-awkey, " Object Key
bldat TYPE bkpf-bldat,
budat TYPE bkpf-budat,
END OF x_bkpf.
TYPES : BEGIN OF x_bseg,
bukrs TYPE bseg-bukrs, " Company Code
belnr TYPE bseg-belnr, " Document Number
gjahr TYPE bseg-gjahr, " Fiscal Year
koart TYPE bseg-koart,
hkont TYPE bseg-hkont, " G/L Account
ebeln TYPE bseg-ebeln, " Purchasing Document
lifnr TYPE bseg-lifnr, " Vendor Code
name1 type lfa1-name1,
ort01 type lfa1-ort01,
END OF x_bseg.
TYPES : BEGIN OF x_bseg1,
bukrs TYPE bseg-bukrs, " Company Code
belnr TYPE bsak-belnr, " Document Number
gjahr TYPE bsak-gjahr, " Fiscal Year
hkont TYPE bseg-hkont, " G/L Account
ebeln TYPE bseg-ebeln, " Purchasing Document
lifnr TYPE bseg-lifnr, " Vendor Code
wrbtr TYPE bseg-wrbtr, " Amt.in Doc.Curr
END OF x_bseg1.
types:begin of x_ven,
name1 type lfa1-name1,
ort01 type lfa1-ort01,
end of x_ven.
TYPES : BEGIN OF x_final,
bukrs TYPE bkpf-bukrs, " Company Code
belnr TYPE bkpf-belnr, " Document Number
gjahr TYPE bkpf-gjahr, " Fiscal year
blart TYPE bkpf-blart, " Document Type
awkey TYPE bkpf-awkey, " Object Key
bldat TYPE bkpf-bldat,
budat TYPE bkpf-budat,
mwskz TYPE bseg-mwskz,
qsskz TYPE bseg-qsskz,
wrbtr TYPE bseg-wrbtr, " Amount in Doc Curr
werks TYPE bseg-werks, " Recv Facility Code
hkont TYPE bseg-hkont, " G/L Account
ebeln TYPE bseg-ebeln, " Purchasing Document
ebeln1 type bseg-ebeln,
lifnr TYPE bseg-lifnr, " Vendor Code
lifnr1 type bseg-lifnr,
dmbtr TYPE bseg-dmbtr,
wrtbr type bseg-wrbtr,
vbill type bseg-wrbtr,
tdsamt type c,
tdsrate(4),
shkzg TYPE bseg-shkzg,
name1 TYPE lfa1-name1, "vendor Name
ort01 TYPE lfa1-ort01, "City
j_1icstno TYPE j_1imovend-j_1icstno, "CST
j_1ilstno TYPE j_1imovend-j_1ilstno ,"LST
END OF x_final.
DATA : it_bkpf TYPE TABLE OF x_bkpf WITH HEADER LINE .
DATA : it_bseg TYPE TABLE OF x_bseg WITH HEADER LINE .
DATA : it_bseg1 TYPE TABLE OF x_bseg1 WITH HEADER LINE .
DATA : itfinal TYPE TABLE OF x_final WITH HEADER LINE.
DATA : month_names LIKE t247 OCCURS 0 WITH HEADER LINE.
DATA :i(2), "month
y TYPE int4, "year
c(4),
v_bill LIKE bseg-dmbtr. " bill value
DATA : pos TYPE sy-tabix,
month(99),
month1(99).
data:sl_no(3) value 0.
*Alv
DATA:itfieldcat TYPE slis_t_fieldcat_alv WITH HEADER LINE.
DATA:itrepid TYPE sy-repid.
itrepid = sy-repid.
DATA:itevent TYPE slis_t_event.
DATA:itlistheader TYPE slis_t_listheader.
DATA:walistheader LIKE LINE OF itlistheader.
DATA:itlayout TYPE slis_layout_alv.
DATA:top TYPE slis_formname.
DATA:itsort TYPE slis_t_sortinfo_alv WITH HEADER LINE.
DATA:itprintparams TYPE slis_print_alv.
DATA:itvariant TYPE disvariant.
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
PARAMETERS : p_bukrs LIKE t001-bukrs OBLIGATORY. "Company code
SELECT-OPTIONS : s_lifnr FOR lfa1-lifnr, "Vendor name
s_budat for sy-datum obligatory, "bkpf-budat OBLIGATORY, "Date
s_gjahr FOR bseg-gjahr NO-DISPLAY.
SELECTION-SCREEN END OF BLOCK b1.
AT SELECTION-SCREEN.
SELECT SINGLE bukrs
INTO t001-bukrs
FROM t001
WHERE bukrs = p_bukrs.
IF sy-subrc <> 0.
MESSAGE e000(z_ma) WITH 'Invalid Company Code'.
ENDIF.
IF NOT s_lifnr[] IS INITIAL.
SELECT SINGLE lifnr
INTO lfa1-lifnr
FROM lfa1
WHERE lifnr IN s_lifnr.
IF sy-subrc <> 0.
MESSAGE e000(z_ma) WITH 'Invalid Vendor'.
ENDIF.
ENDIF.
START-OF-SELECTION.
*13
if s_budat is not initial.
if s_budat-high is not initial.
while s_budat-low le s_budat-high.
i = s_budat+7(2).
if i > 3.
s_gjahr = s_budat+3(4).
append s_gjahr.
else.
c = s_budat+3(4).
S_GJAHR = C - 1.
append s_gjahr.
endif.
s_budat-low = s_budat-low + 1.
endwhile.
else.
i = s_budat+7(2).
if i > 3.
s_gjahr = s_budat+3(4).
append s_gjahr.
else.
c = s_budat+3(4).
S_GJAHR = C - 1.
append s_gjahr.
endif.
endif.
endif.
*13
SELECT bukrs belnr gjahr awkey bldat budat
INTO TABLE it_bkpf
FROM bkpf
WHERE bukrs = p_bukrs
AND budat IN s_budat
and gjahr = s_gjahr. "13
IF NOT it_bkpf[] IS INITIAL.
SELECT bukrs belnr dmbtr wrbtr hkont ebeln lifnr
FROM bseg
INTO CORRESPONDING FIELDS OF TABLE it_bseg
FOR ALL ENTRIES IN it_bkpf
WHERE bukrs = it_bkpf-bukrs
and belnr = it_bkpf-belnr
AND gjahr = s_gjahr "13-it_bkpf-gjahr
AND koart = 'K'.
ENDIF.
IF NOT it_bseg[] IS INITIAL.
SELECT belnr gjahr dmbtr wrbtr hkont ebeln lifnr
FROM bseg
INTO CORRESPONDING FIELDS OF TABLE it_bseg1
FOR ALL ENTRIES IN it_bkpf
WHERE bukrs = it_bkpf-bukrs "13it_bkpf-bukrs
AND belnr = it_bkpf-belnr "13it_bkpf-belnr
AND gjahr = s_gjahr. "13-it_bkpf-gjahr.
ENDIF.
LOOP AT it_bkpf.
MOVE-CORRESPONDING it_bkpf TO itfinal.
APPEND itfinal.
ENDLOOP.
LOOP AT it_bseg.
MOVE-CORRESPONDING it_bseg TO itfinal.
append itfinal.
select single name1 ort01 from lfa1 into (itfinal-name1 , itfinal-ort01) where lifnr = it_bseg-lifnr.
select single j_1icstno j_1ilstno into (itfinal-j_1icstno , itfinal-j_1ilstno) from j_1imovend
where lifnr = it_bseg-lifnr.
ENDLOOP.
LOOP AT it_bseg1.
MOVE-CORRESPONDING it_bseg1 TO itfinal.
APPEND itfinal.
ENDLOOP.
loop at it_bseg1.
itfinal-ebeln1 = it_bseg1-ebeln.
append itfinal.
endloop.
*Deleting the records from ITFINAL w.r.t HKONT.
LOOP AT itfinal.
IF itfinal-hkont NE '0020106230' AND
itfinal-hkont NE '0020106330'.
DELETE itfinal.
clear itfinal.
continue.
else.
clear itfinal.
endif.
ENDLOOP.
*Caluculating Bill Value
loop at itfinal.
if itfinal-hkont = '0020106230'.
itfinal-tdsrate = '2%'.
itfinal-vbill = itfinal-wrbtr * 100 / 2.
modify itfinal.
elseif itfinal-hkont = '0020106330'.
itfinal-tdsrate = '4%'.
itfinal-vbill = itfinal-wrbtr * 100 / 4.
modify itfinal.
endif.
endloop.
sort itfinal by belnr.
delete adjacent duplicates from itfinal comparing belnr.
format reset.
format color col_normal.
LOOP AT itfinal.
sl_no = sl_no + 1.
write:/ sy-vline,
2 sl_no,
7 sy-vline,
10 itfinal-ebeln1,
21 sy-vline,
23 itfinal-awkey,
44 sy-vline,
45 itfinal-bldat,
57 sy-vline,
60 itfinal-vbill,
75 sy-vline,
76 itfinal-tdsrate,
85 sy-vline,
89 itfinal-wrbtr,
106 sy-vline,
109 itfinal-belnr,
121 sy-vline,
124 itfinal-budat,
134 sy-vline.
ENDLOOP.
write:/ sy-uline.
top-of-page.
data : name1(60).
data : month_text(127),
string(99).
call function 'MONTH_NAMES_GET'
exporting
language = sy-langu
IMPORTING
RETURN_CODE =
tables
month_names = month_names[]
exceptions
month_names_not_found = 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.
format reset.
format color col_positive.
if not s_budat-low is initial .
read table month_names with key mnr = s_budat-low+4(2).
if sy-subrc = 0.
month = month_names-ltx.
string = 'Details of TDS (2% / 4%) On Works Contract Deducted'.
concatenate string 'for the Month of' month into month_text
separated by space.
write :/ month_text.
skip 1.
endif.
endif.
concatenate itfinal-name1 ',' itfinal-ort01
into name1 separated by space.
write :/ 'Vendor Code :', itfinal-lifnr.
write :/ 'Vendor Name and City :', name1.
skip 1.
write :/ 'TNGST Registration No :', itfinal-j_1ilstno,
/ 'CST Registration No :', itfinal-j_1icstno.
skip 1.
Display the coloumn headings
format reset.
format color col_heading.
write :/ sy-uline.
write:/ sy-vline,
2 'Sl_no',
7 sy-vline,
10 'P.O. No',
21 sy-vline,
22 'Invoice No',
44 sy-vline,
45 'Inv Date',
57 sy-vline,
60 'Bill value',
75 sy-vline,
76 'TDS Rate',
85 sy-vline,
89 'TDS Amount' ,
106 sy-vline,
108 'Doc.No.',
121 sy-vline,
125 'Pos Date',
134 sy-vline,
sy-uline.
Thanks
seshu

PROBLEM IN DELETE THE PARKED INVOICE

Similar Messages

Maybe you are looking for