Invoice Validation status check in Invoice base tables - urgent Pls..
All,
Version:11.5.10.2
After the invoice is validated in Invoice workbench (AP), where the validation status got stored. I came across ap_invoices_v table and AP_INVOICES_PKG.GET_APPROVAL_STATUS package can be used to check the status. But I've seen in ap_invoice_distributions_all table, match_status_update flag gets updated with flag 'A' after validation of invoice.
I want to know which option(view,package or ap_invoice_distributions_all table) Oracle recommends to check the status of invoice.
rgds
sen
Metalink note 301806.1 tells how the validation status is generated (it is not a field in a table for sure) which is different from approval_status.
I have taken the note and came up with this function to determine it and works well so far.
FUNCTION getvalstatus(p_invoice_id IN NUMBER) return VARCHAR2
IS
p_dist_count NUMBER;
p_dist_valid_count NUMBER;
p_dist_nevvald_count NUMBER;
p_dist_needs_revald NUMBER;
p_hold_count number;
p_status varchar2(25);
BEGIN
SELECT count(*) INTO p_dist_count FROM
ap_invoice_distributions_all WHERE invoice_id=p_invoice_id;
SELECT count(*) INTO p_dist_valid_count FROM
ap_invoice_distributions_all WHERE invoice_id=p_invoice_id
and match_status_flag='A' ;
SELECT count(*) INTO p_dist_nevvald_count FROM
ap_invoice_distributions_all WHERE invoice_id=p_invoice_id
AND (match_status_flag='N' OR match_status_flag IS NULL);
SELECT count(*) INTO p_hold_count FROM ap_holds_all
WHERE invoice_id=p_invoice_id
and release_lookup_code is null;
IF (p_dist_count=p_dist_valid_count and p_hold_count=0 and p_dist_count <>0) THEN
p_status:='Validated';
ELSIF
p_dist_count=p_dist_nevvald_count THEN
p_status:='Never Validated';
ELSIF
p_hold_count >0 THEN
p_status:='On Hold';
else
p_status:='Needs Revalidation';
end if;
RETURN p_status;
end getvalstatus;
Similar Messages
-
Global_attribute20 field in ap_payment_schedules_all table - Urgent Pls
All,
Version: 11.5.10.2
I created an invoice, from the 'Scheduled Payments' tab I checked the 'Hold' flag. After the flag is checked in the UI, I noticed the global_attribute20 field in the ap_payment_schedules_all updates to 'EP' along with the hold_flag='Y'. I want to know the significance of global_attribute20 and what are all the other possible values of this field like 'EP'??
this is quite urgent, pls help.
rgds
senHave you tried to enable trace on this form to find out how this column gets populated?
FAQ: Common Tracing Techniques within the Oracle Applications 11i/R12 [ID 296559.1] -- 3. How does one enable trace in the Oracle Application screens / forms?
Can you reproduce the issue with other invoices?
Do you have any other instance where you can try the same and see if the issue is reproducible?
Thanks,
Hussein -
How to join two pl/sql tables .,.,,Urgent pls help
Hi,
Please tell me how to join to pl/sql tables with example
thanks
aspIf your main intention is to get the common records/or getting whole records from the 2 different pl/sql arrays then , pls check this piece of code & explanation
The SQL language has long offered the ability to apply set operations (UNION, INTERSECT, and MINUS) to the result sets of queries. In Oracle Database 10g, you can now use those same high-level, very powerful operators against nested tables (and only nested tables) in your PL/SQL programs and on nested tables declared as columns inside relational tables.
Let's take a look at some of the syntax needed to do this, starting with UNION.
First, I create a schema-level nested table type:
CREATE OR REPLACE TYPE strings_nt
IS TABLE OF VARCHAR2(100);
Then I define a package and within it create and populate two nested tables of this type, each containing some of my father's and my favorite things:
CREATE OR REPLACE PACKAGE favorites_pkg
IS
my_favorites strings_nt
:= strings_nt ('CHOCOLATE'
, 'BRUSSEL SPROUTS'
, 'SPIDER ROLL'
dad_favorites strings_nt
:= strings_nt ('PICKLED HERRING
, 'POTATOES'
, 'PASTRAMI'
, 'CHOCOLATE'
PROCEDURE show_favorites (
title_in IN VARCHAR2
, favs_in IN strings_nt
END;
In this package, I also include a procedure to show the contents of a strings_nt nested table. This will come in very handy shortly.
By defining these collections in a package, outside any program, they persist (they maintain their state and values) for the duration of my session or until I change or delete them. This means that I can now write programs outside the package to manipulate the contents of those collections.
Note that this package has been simplified for the purposes of presenting collection functionality. In a production application, you should always take care to "hide" your package data, as with these collections, in the package body, and then provide procedures and functions to manage the data.
Suppose, for example, that I would like to combine these two collections into a single collection of our favorites. Prior to Oracle Database 10g, I would have to write a loop that transfers the contents of one collection to another. Now, I can rely on the MULTISET UNION operator, as shown below:
DECLARE
our_favorites
strings_nt := strings_nt ();
BEGIN
our_favorites :=
favorites_pkg.my_favorites
MULTISET UNION ---- Use INTERSECT , if you want to know common records
favorites_pkg.dad_favorites;
favorites_pkg.show_favorites (
'ME then DAD', our_favorites);
END;
The output from this script is:
ME then DAD
1 = CHOCOLATE
2 = BRUSSEL SPROUTS
3 = SPIDER ROLL
4 = PICKLED HERRING
5 = POTATOES
6 = PASTRAMI
7 = CHOCOLATE
------------------------------ -
Hi All
Does any one know the base tables of open hub entries?
I created a openhub and its not visible I want to check in the base tables
Thanks
NaveenHi Naveen,
These are the tables related to openhub :
RSBOHDEST - Directory of Open Hub Destinations
RSBOHDESTT - Directory of Open Hub Destinations with descriptions
RSBOHDESTVAR - Directory of Parameters of Open Hub Destinations
Hope this helps
Thanks,
Raj -
R12 Payables: SQL Query to List Invoices along with their Validation Status
Hi All,
I am looking for a SQL query that gives me the list of all AP Invoices and their Validation Status.
Thanks,
Anilselect invoice_id, invoice_num, invoice_amount, invoice_currency_code, approval_status_lookup_code from AP_INVOICES_V ;
--Prasanna -
Which invoice validation status transfer to next period or future period.
Dear All
can any one explain which invoice validation status transfer to next period or future period.
The validation status can be 1) Validated 2) Needs revalidation 3) cancelled 4) Approved 5) never validated.
can i know which validation status moves to next open period and which can be to future open period.
Regards
Shaizy
Edited by: user11298424 on 10 Aug, 2012 2:51 AMHi ,
I have run the query given by you. it shows Y for posted. but when I query JE_BATCH_ID from AP_INVOICE_DISTRIBUTIONS_ALL, it shows null JE_BATCH_ID.
How can I get corresponding GL Batch and journals for these invoices?
JE_BATCH_ID ACCOUNTING_DATE PERIOD_NAME POSTED_FLAG ACCRUAL_POSTED_FLAG
3/28/2012 MAR-12 Y Y
3/28/2012 MAR-12 Y Y
3/28/2012 MAR-12 Y Y
3/28/2012 MAR-12 Y Y
3/28/2012 MAR-12 Y Y
3/28/2012 MAR-12 Y Y
3/28/2012 MAR-12 Y Y
3/28/2012 MAR-12 Y Y
3/28/2012 MAR-12 Y Y
3/28/2012 MAR-12 Y Y
3/28/2012 MAR-12 Y Y
3/28/2012 MAR-12 Y Y
3/28/2012 MAR-12 Y Y
3/28/2012 MAR-12 Y Y
3/28/2012 MAR-12 Y Y
3/28/2012 MAR-12 Y Y
3/28/2012 MAR-12 Y Y
3/28/2012 MAR-12 Y Y
3/28/2012 MAR-12 Y Y
3/28/2012 MAR-12 Y Y
3/28/2012 MAR-12 Y Y -
Hi Gurus,
Tell me what r the purchase invoice tax tables.
i mean in which table purchase invoice BED, Educational Cess & Higher ECess fields are available.
regards,
lakshminarayanaHi
Purchase Invoice Tax Tables :
http://www.sap123.com/showthread.php?t=1.
In above link you will find invoice verification tables related to tax.
Invoice Verification
BSIM - Secondary index: documents for material
MYMFT - FIFO results table
MYML - LIFO material layer
MYMLM - LIFO material layer (monthly)
MYMP - LIFO period stocks, single material
MYMP1 - Receipt data LIFO/FIFO valuation
MYPL - LIFO pool layer
MYPLM - LIFO pool layer (monthly)
RBCO - Document item, incoming invoice account assignment
RBDIFFKO - Invoice Verification: conditions
RBDIFFME - Invoice Verification: quantity differences
RBDRSEG - Invoice Verification batch: invoice document items
RBKP - Document header: incoming invoice
RBKPB - Invoice document header (batch invoice verification)
RBTX - Taxes:incoming invoice
RBVD - Invoice document: summarization data
RBVDMAT - Invoice Verification: summarization data, material
RBWT - Withholding tax:incoming invoice
RKWA - Consignment withdrawals
RSEG - Document item, incoming invoice
With Regards
Nikunj Shah -
Blocked Invoices in Table VFX3 KNVV table ?
Hi All,
Can someone please tell me how i can realease a blocked invoice in table VFX3 KNVV ?
Thank you
Priya
Points will be assignedWithout more information that is a difficult question to answer. There are mulriple reasons why an invoice may have been blocked for posting?
I am assuming that you are meaning the transaction VFX3 or are you meaning table KNVV.
The transaction VFX3 is traditionally used to clear up all billing blocks. In order to clear a blocked invoice, you would highlight the specific row for that invoice and hit the flag icon to release. There may still be issues why it is blocked and you may have to go back a step to unblock. If you would like to share more information, I would be happy to help. -
Status Check on Table of Contents
My status checks work fine for all of my slides, except when I have my "Next" button jump to a slide later down the line. For some reason I'm not getting a checkmark on the TOB for that particular slide.
Also, on that particular slide, the duration will say "1:03" instead of "0.03." 0.03 is what I have allotted according to my slide timeline. So I guess it's taking into account the duration for all of the slides that I'm jumping over. Accessing the slides that I'm jumping over doesn't seem to give me a status check on the slide either.
Has anyone had this problem?
Sorry if this is confusing!I'll give that a try and see what happens.
Although, my "Next" buttons are set up that way on each slide (they pause at 1.5 seconds) and they seem to be working fine. It's only when I have the "Next" button jump over slides, for example, slide 8 jumps to slide 21 because slides 9-20 are set up as a Glossary, Examples, Resource Information, etc.
I put buttons on each slide so the student can access the Glossary, Examples, and Resource Information at any time during the training. Then on the TOB, I have these slides turned off so the student only accesses them by clicking the button on the slides.
But I'm open to trying anything so I appreciate your suggestion!
Date: Tue, 4 May 2010 09:02:35 -0600
From: [email protected]
To: [email protected]
Subject: Status Check on Table of Contents
Hi there
I don't believe the check mark will appear unless the slide plays fully. If you have a button on the slide that is pausing at perhaps 1.5 seconds and the total silde time is perhaps 3 seconds, you are essentially skipping over 1.5 seconds of the slide to visit the linked slide. You might try adjusting the pause point so it's at the end of the slide and see if that improves things. It may and it may not. I'm not certain. But it's worth a try.
Cheers... Rick
| http://www.robowizard.com/pc.gif | Helpful and Handy Links
http://www.Adobe.com/cfusion/mmform/index.cfm?name=wishform&product=5
http://www.ShowMeSolutions.biz
http://sorcererstone.wordpress.com/
http://www.gooberguides.com |
> -
Hello All,
I need to develop conversion interface of open purchase orders.
Need help to know what are the base tables which are used for the same.
Also Need to know what all validations needs to be done.
I have identified a few.
1 PO Number already Exists in Oracle EBS.
2 Vendor not defined in Oracle EBS.
3 Currency Code not defined in Oracle EBS.
4 Bill to Location Not defined.
5 Ship to Location not defined.
6 Payment Terms not defined in Oracle EBS.
7 Vendor Site not defined
8 Buyer Not defined in EBS
9 EBS Ship to Org does not exist
9 UOM Code not defined in EBS
10 Account Code not valid
Can someone pls help with the experiences.
ThanksHi,
3 important tables when you are converting the PO's in Oracle interface are
PO_HEADERS_INTERFACE
PO_LINES_INTERFACE
PO_DISTRIBUTIONS_INTERFACE
Normally when you are converting the data through the stanadard interface, all validations are taken care by the above interface tables, Import Standard Purchase Orders is the standard concurrent program provided by oracle to load the data from standard interface to the base tables. PO_HEADERS_ALL, PO_LINES_ALL, PO_LINE_LOCATIONS_ALL, PO_DISTRIBUTIONS_ALL.
And also you need to take care of the partially received PO's, Partially Billed PO's.
Hope this Helps,
Raghav -
Can I bring in Invoice Memo Text using Invoice Interface Tables?
Is there's a way to bring in Memo Lines using Invoice Interface tables. I got a need of converting around 5000 characters from legacy system to Oracle into Multiple Memo lines. I know that each memo line at the invoice level has 2000 character limit.
Please advise.If I understood properly, you can use AR_MEMO_LINES_PKG.INSERT_ROW to inset to rows to AR_MEMO_LINES_ALL_B.
In RA_INTERFACE_LINES_ALL, column MEMO_LINE_ID is used to import this reference.
I hope this helps.
Bilal SARIOZ -
Status of VIEW after partitioning base table.
Hi All,
I would like to know the status of the view when i perform Range partitioning on Base table???
I will be performing these below steps for partitioning:
1. Rename the Original base table.
2. Create new partitioned table by naming it as original table name.
3. Insert rows from Original table to partitioned table.
As from above steps i am renaming the original base table and creating Partitioned base table with the same original name.
Do VIEWS based on this table will refer to new partitioned table having same name, or do i need to re-create views???
-YasserView refers to NEW Partition TABLE on the same name... it's not the problem.. if you didn't rename delete add column_name.
SQL> create table a1 (id number);
Table created.
SQL> create view v_a1 as select * from a1;
View created.
SQL> desc v_a1;
Name Null? Type
ID NUMBER
SQL> alter table a1 rename to a2;
Table altered.
SQL> desc v_a1;
ERROR:
ORA-24372: invalid object for describe
SQL> create table a1 (id varchar2(40))
2 /
Table created.
SQL> desc v_a1;
Name Null? Type
ID VARCHAR2(40) -
How to stored data after clicking check box save in data base table
TABLES:mseg,mard,mkpf.
TYPE-POOLS:slis.
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
SELECT-OPTIONS:smblnr FOR mseg-mblnr MODIF ID m1,
smatnr FOR mseg-matnr MODIF ID m2,
swerks FOR mard-werks MODIF ID m3,
slgort FOR mard-lgort MODIF ID m4,
slgpbe FOR mard-lgpbe MODIF ID m5,
scharg FOR mseg-charg MODIF ID m6,
sbwart FOR mseg-bwart MODIF ID m7,
skostl FOR mseg-kostl MODIF ID m8,
saufnr FOR mseg-aufnr MODIF ID m9,
srsnum FOR mseg-rsnum MODIF ID m10.
SELECTION-SCREEN END OF BLOCK b1.
SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE text-002.
PARAMETERS:pre RADIOBUTTON GROUP radi USER-COMMAND ucomm DEFAULT 'X',
pse RADIOBUTTON GROUP radi,
bps RADIOBUTTON GROUP radi.
SELECTION-SCREEN END OF BLOCK b2.
SELECTION-SCREEN BEGIN OF BLOCK b3 WITH FRAME TITLE text-003.
PARAMETER:layout TYPE i.
SELECTION-SCREEN END OF BLOCK b3.
DATA:BEGIN OF itab OCCURS 0,
mblnr LIKE mseg-mblnr,
matnr LIKE mseg-matnr,
werks LIKE mard-werks,
lgort LIKE mard-lgort,
lgpbe LIKE mard-lgpbe,
charg LIKE mseg-charg,
bwart LIKE mseg-bwart,
budat LIKE mkpf-budat,
menge LIKE mseg-menge,
meins LIKE mseg-meins,
kostl LIKE mseg-kostl,
aufnr LIKE mseg-aufnr,
rsnum LIKE mseg-rsnum,
checkbox TYPE c,
END OF itab.
DATA: gt_fieldcat TYPE slis_t_fieldcat_alv,
gw_fieldcat TYPE slis_fieldcat_alv,
gt_layout TYPE slis_layout_alv.
START-OF-SELECTION.
SELECT msegmblnr msegmatnr mardwerks mardlgort mardlgpbe msegcharg msegbwart mkpfbudat
msegmenge msegmeins msegkostl msegaufnr mseg~rsnum
INTO TABLE itab FROM
mseg JOIN mard ON mardmatnr EQ msegmatnr
JOIN mkpf ON msegmblnr EQ mkpfmblnr
WHERE mseg~matnr IN smatnr.
IF sy-subrc EQ 0.
SORT itab BY matnr.
PERFORM display_alv_output.
ENDIF.
*& Form display_alv_output
text
--> p1 text
<-- p2 text
FORM display_alv_output.
REFRESH gt_fieldcat.
gw_fieldcat-fieldname = 'MBLNR'.
gw_fieldcat-tabname = 'itab'.
gw_fieldcat-col_pos = 1.
gw_fieldcat-seltext_m = 'material document'.
gw_fieldcat-key = 'x'.
APPEND gw_fieldcat TO gt_fieldcat.
CLEAR gw_fieldcat.
gw_fieldcat-fieldname = 'MATNR'.
gw_fieldcat-tabname = 'itab'.
gw_fieldcat-col_pos = 2.
gw_fieldcat-seltext_m = 'material'.
gw_fieldcat-key = ' '.
APPEND gw_fieldcat TO gt_fieldcat.
CLEAR gw_fieldcat.
gw_fieldcat-fieldname = 'WERKS'.
gw_fieldcat-tabname = 'itab'.
gw_fieldcat-col_pos = 3.
gw_fieldcat-seltext_m = 'plant'.
gw_fieldcat-key = ' '.
APPEND gw_fieldcat TO gt_fieldcat.
CLEAR gw_fieldcat.
gw_fieldcat-fieldname = 'LGORT'.
gw_fieldcat-tabname = 'itab'.
gw_fieldcat-col_pos = 4.
gw_fieldcat-seltext_m = 'storage location'.
gw_fieldcat-key = ' '.
APPEND gw_fieldcat TO gt_fieldcat.
CLEAR gw_fieldcat.
gw_fieldcat-fieldname = 'LGPBE'.
gw_fieldcat-tabname = 'itab'.
gw_fieldcat-col_pos = 5.
gw_fieldcat-seltext_m = 'storage bin'.
gw_fieldcat-key = ' '.
APPEND gw_fieldcat TO gt_fieldcat.
CLEAR gw_fieldcat.
gw_fieldcat-fieldname = 'CHARG'.
gw_fieldcat-tabname = 'itab'.
gw_fieldcat-col_pos = 6.
gw_fieldcat-seltext_m = 'Batch number'.
gw_fieldcat-key = ' '.
APPEND gw_fieldcat TO gt_fieldcat.
CLEAR gw_fieldcat.
gw_fieldcat-fieldname = 'BWART'.
gw_fieldcat-tabname = 'itab'.
gw_fieldcat-col_pos = 7.
gw_fieldcat-seltext_m = 'Movement Type (Inventory Management)'.
gw_fieldcat-key = ' '.
APPEND gw_fieldcat TO gt_fieldcat.
CLEAR gw_fieldcat.
gw_fieldcat-fieldname = 'BUDAT'.
gw_fieldcat-tabname = 'itab'.
gw_fieldcat-col_pos = 8.
gw_fieldcat-seltext_m = 'Posting Date in the Document'.
gw_fieldcat-key = ' '.
APPEND gw_fieldcat TO gt_fieldcat.
CLEAR gw_fieldcat.
gw_fieldcat-fieldname = 'MENGE'.
gw_fieldcat-tabname = 'itab'.
gw_fieldcat-col_pos = 9.
gw_fieldcat-seltext_m = 'QUANTITY'.
gw_fieldcat-key = ' '.
APPEND gw_fieldcat TO gt_fieldcat.
CLEAR gw_fieldcat.
gw_fieldcat-fieldname = 'MEINS'.
gw_fieldcat-tabname = 'itab'.
gw_fieldcat-col_pos = 10.
gw_fieldcat-seltext_m = 'Basic unit of measure'.
gw_fieldcat-key = ' '.
APPEND gw_fieldcat TO gt_fieldcat.
CLEAR gw_fieldcat.
gw_fieldcat-fieldname = 'KOSTL'.
gw_fieldcat-tabname = 'itab'.
gw_fieldcat-col_pos = 11.
gw_fieldcat-seltext_m = 'Cost center'.
gw_fieldcat-key = ' '.
APPEND gw_fieldcat TO gt_fieldcat.
CLEAR gw_fieldcat.
gw_fieldcat-fieldname = 'AUFNR'.
gw_fieldcat-tabname = 'itab'.
gw_fieldcat-col_pos = 12.
gw_fieldcat-seltext_m = 'Order Number'.
gw_fieldcat-key = ' '.
APPEND gw_fieldcat TO gt_fieldcat.
CLEAR gw_fieldcat.
gw_fieldcat-fieldname = 'RSNUM'.
gw_fieldcat-tabname = 'itab'.
gw_fieldcat-col_pos = 13.
gw_fieldcat-seltext_m = 'Number of Reservation / Depe'.
gw_fieldcat-key = ' '.
APPEND gw_fieldcat TO gt_fieldcat.
CLEAR gw_fieldcat.
gw_fieldcat-col_pos = 14.
gw_fieldcat-fieldname = 'CHECKBOX'.
gw_fieldcat-seltext_m = 'Compltd'.
gw_fieldcat-checkbox = 'X'.
gw_fieldcat-edit = 'X'.
APPEND gw_fieldcat TO gt_fieldcat.
CLEAR gw_fieldcat.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
I_CALLBACK_PROGRAM = 'ZREPORT'
IS_LAYOUT = gt_layout
IT_FIELDCAT = gt_fieldcat
TABLES
t_outtab = itab
EXCEPTIONS
PROGRAM_ERROR = 1
OTHERS = 2.
ENDFORM. " display_alv_output
this is mycode .
send me replay.Hi Lakshmi,
Can u explain briefly what is ur requirement. U mean to say that after clicking the checkbox in data base table or Screen?
Regards,
Jayaram... -
STATUS Field isBlank on AP_INVOICES_INTERFACE table but REQUEST_ID is there
Hi All,
After running Payables Open Interface Import, I see Request_id is populated on AP_INVOICES_INTERFACE Table but STATUS field is still blank and i don't see any error details on AP_INTERFACE_REJECTIONS_TABLE as well for these invoices and ofcourse not in Base tables. I am under the impressions that, when ever This Standard Import is run, it will update Request_ID along with STATUS field to either PROCESSED or REJECTED. But in my case only request_id populated but not STATUS. Does anyone had faced this? and what could be the case?
Thank you.Hello,
Does the report output show whether records have been processed?
Else check whether ORG_ID and SOURCE (Note: the source name must be setup in Payables lookups setup) are correctly populated in AP_INVOICES_INTERFACE.
Vik -
How to stored data after clicking checkbox in data base table
REPORT ZT .
TYPE-pools: slis.
tables:mkpf,mseg,mard,COWB_COMP,ZTABLE.
Types:BEGIN OF tp_data,
mblnr LIKE mseg-mblnr,
matnr LIKE mseg-matnr,
werks LIKE mard-werks,
lgort LIKE mard-lgort,
lgpbe LIKE mard-lgpbe,
charg LIKE mseg-charg,
bwart LIKE mseg-bwart,
budat LIKE mkpf-budat,
menge LIKE mseg-menge,
meins LIKE mseg-meins,
kostl LIKE mseg-kostl,
aufnr LIKE mseg-aufnr,
rsnum LIKE mseg-rsnum,
endkz like COWB_COMP-endkz,
END OF tp_data,
tp_tbl_data TYPE STANDARD TABLE OF tp_data.
MODIFIED*******************
DATA: WA TYPE TP_DATA.
MODIFIED*******************
*data: t_data like Y00_MM_ISSUE_DAT occurs 0 with header line.
Constants
Data objects (variable declarations and definitions)
Report data to be shown.
DATA: it_data TYPE STANDARD TABLE OF tp_data.
MODIFIED*******************
DATA : V_REPID LIKE SY-REPID.
MODIFIED*******************
Heading of the report.
DATA: t_heading TYPE slis_t_listheader.
*========================== Selection Screen
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
SELECT-OPTIONS:smblnr FOR mseg-mblnr MODIF ID m1,
smatnr FOR mseg-matnr MODIF ID m2,
swerks FOR mard-werks MODIF ID m3,
slgort FOR mard-lgort MODIF ID m4,
slgpbe FOR mard-lgpbe MODIF ID m5,
scharg FOR mseg-charg MODIF ID m6,
sbwart FOR mseg-bwart MODIF ID m7,
skostl FOR mseg-kostl MODIF ID m8,
saufnr FOR mseg-aufnr MODIF ID m9,
srsnum FOR mseg-rsnum MODIF ID m10.
SELECTION-SCREEN END OF BLOCK b1.
SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE text-002.
PARAMETERS:pre RADIOBUTTON GROUP radi USER-COMMAND ucomm DEFAULT 'X',
pse RADIOBUTTON GROUP radi,
bps RADIOBUTTON GROUP radi.
SELECTION-SCREEN END OF BLOCK b2.
SELECTION-SCREEN BEGIN OF BLOCK b3 WITH FRAME TITLE text-003.
PARAMETER:layout TYPE i.
SELECTION-SCREEN END OF BLOCK b3.
MODIFIED*******************
INITIALIZATION.
V_REPID = sy-repid.
MODIFIED*******************
*=========================== Event Blocks
AT selection-SCREEN.
start-OF-selection.
PERFORM get_data USING it_data.
END-OF-selection.
PERFORM build_alv USING it_data t_heading.
*=========================== Subroutines
*& Form get_data
Gets the information to be shown in the report.
FORM get_data USING t_data TYPE tp_tbl_data.
SELECT msegmblnr msegmatnr mardwerks mardlgort mard~lgpbe
msegcharg msegbwart mkpf~budat
msegmenge msegmeins msegkostl msegaufnr mseg~rsnum
INTO CORRESPONDING FIELDS OF TABLE t_data
FROM mseg
JOIN mard ON mardmatnr EQ msegmatnr
JOIN mkpf ON msegmblnr EQ mkpfmblnr
WHERE mseg~matnr IN smatnr.
ENDFORM. " get_data
*& Form build_alv
Builds and display the ALV Grid.
FORM build_alv USING t_data TYPE tp_tbl_data
t_heading TYPE slis_t_listheader.
ALV required data objects.
DATA: w_title TYPE lvc_title,
w_comm TYPE slis_formname,
w_status TYPE slis_formname,
x_layout TYPE slis_layout_alv,
t_event TYPE slis_t_event,
t_fieldcat TYPE slis_t_fieldcat_alv,
t_sort TYPE slis_t_sortinfo_alv.
REFRESH t_fieldcat.
REFRESH t_event.
REFRESH t_sort.
CLEAR x_layout.
CLEAR w_title.
Field Catalog
PERFORM set_fieldcat2 USING:
1 'MBLNR' 'MBLNR' 'MSEG' space space space space space space
space space space space space space t_fieldcat ,
2 'MATNR' 'MATNR' 'MSEG' space space space space space space
space space space space space space t_fieldcat ,
3 'WERKS' 'WERKS' 'MARD' space space space space space space
space space space space space space t_fieldcat,
4 'LGORT' 'LGORT' 'MARD' space space space space space space
space space space space space space t_fieldcat ,
5 'LGPBE' 'LGPBE' 'MARD' space space space space space space
space space space space space space t_fieldcat ,
6 'CHARG' 'CHARG' 'MSEG' space space space space space space
space space space space space space t_fieldcat ,
7 'BWART' 'BWART' 'MSEG' space space space space space space
space space space space space space t_fieldcat,
8 'BUDAT' 'BUDAT' 'MKPF' space space space space space space
space space space space space space t_fieldcat,
9 'MENGE' 'MENGE' 'MSEG' space space space space space space
space space space space space space t_fieldcat,
10 'MEINS' 'MEINS' 'MSEG' space space space space space space
space space space space space space t_fieldcat,
11 'KOSTL' 'KOSTL' 'MSEG' space space space space space space
space space space space space space t_fieldcat,
12 'AUFNR' 'AUFNR' 'MSEG' space space space space space space
space space space space space space t_fieldcat,
13 'RSNUM' 'RSNUM' 'MSEG' space space space space space space
space space space space space space t_fieldcat,
14 'ENDKZ' 'ENDKZ' 'COWB_COMP' space space 'select' 'Select this row' 'Sel' 'Select this row' space space space 'X' 'X' space t_fieldcat.
Layout
x_layout-zebra = 'X'.
Top of page heading
PERFORM set_top_page_heading USING t_heading t_event.
Events
PERFORM set_events USING t_event.
GUI Status
w_status = ''.
User commands
w_comm = 'USER_COMMAND'.
Order
Example
PERFORM set_order USING '<field>' 'IT_DATA' 'X' space space t_sort.
PERFORM set_order USING 'MBLNR' 'IT_DATA' 'X' space 'X' t_sort.
PERFORM set_order USING 'EBELN' 'IT_DATA' 'X' space 'X' t_sort.
PERFORM set_order USING 'EBELP' 'IT_DATA' 'X' space space t_sort.
Displays the ALV grid
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
i_callback_program = V_REPID
it_fieldcat = t_fieldcat
is_layout = x_layout
it_sort = t_sort
i_callback_pf_status_set = w_status
i_callback_user_command = w_comm
i_save = 'X'
it_events = t_event
i_grid_title = w_title
TABLES
t_outtab = t_data
EXCEPTIONS
program_error = 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.
ENDFORM. " build_alv.
*& Form set_top_page_heading
Creates the report headings.
FORM set_top_page_heading USING t_heading TYPE slis_t_listheader
t_events TYPE slis_t_event.
DATA: x_heading TYPE slis_listheader,
x_event TYPE LINE OF slis_t_event.
Report title
CLEAR t_heading[].
CLEAR x_heading.
x_heading-typ = 'H'.
x_heading-info = 'Reporte Prueba'(001).
APPEND x_heading TO t_heading.
Program name
CLEAR x_heading.
x_heading-typ = 'S'.
x_heading-KEY = 'Program: '.
x_heading-info = sy-repid.
APPEND x_heading TO t_heading.
User who is running the report
CLEAR x_heading.
x_heading-typ = 'S'.
x_heading-KEY = 'User: '.
x_heading-info = sy-uname.
APPEND x_heading TO t_heading.
Date of execution
CLEAR x_heading.
x_heading-typ = 'S'.
x_heading-KEY = 'Date: '.
WRITE sy-datum TO x_heading-info.
APPEND x_heading TO t_heading.
Time of execution
CLEAR x_heading.
x_heading-typ = 'S'.
x_heading-KEY = 'Time: '.
WRITE sy-uzeit TO x_heading-info.
APPEND x_heading TO t_heading.
Top of page event
x_event-name = slis_ev_top_of_page.
x_event-FORM = 'TOP_OF_PAGE'.
APPEND x_event TO t_events.
ENDFORM.
*& Form set_events
Sets the events for ALV.
The TOP_OF_PAGE event is alredy being registered in
the set_top_page_heading subroutine.
FORM set_events USING t_events TYPE slis_t_event.
DATA: x_event TYPE LINE OF slis_t_event.
Example
clear x_event.
x_event-name = .
x_event-form = .
append x_event to t_event.
ENDFORM.
*& Form set_order
Adds an entry to the order table.
FORM set_order USING p_fieldname p_tabname p_up p_down p_subtot
t_sort TYPE slis_t_sortinfo_alv.
DATA: x_sort TYPE slis_sortinfo_alv.
CLEAR x_sort.
x_sort-fieldname = p_fieldname.
x_sort-tabname = p_tabname.
x_sort-UP = p_up.
x_sort-down = p_down.
x_sort-subtot = p_subtot.
APPEND x_sort TO t_sort.
ENDFORM. "set_order
*& Form set_fieldcat2
Adds an entry to the field catalog.
FORM set_fieldcat2 USING p_colpos p_fieldname p_ref_fieldname
p_ref_tabname
p_outputlen p_noout
p_seltext_m p_seltext_l p_seltext_s p_reptext_ddic p_ddictxt
p_hotspot p_showasicon p_checkbox p_edit
p_dosum
t_fieldcat TYPE slis_t_fieldcat_alv.
DATA: wa_fieldcat TYPE slis_fieldcat_alv.
CLEAR wa_fieldcat.
General settings
wa_fieldcat-fieldname = p_fieldname.
wa_fieldcat-col_pos = p_colpos.
wa_fieldcat-no_out = p_noout.
wa_fieldcat-HOTSPOT = p_hotspot.
wa_fieldcat-CHECKBOX = p_checkbox.
wa_fieldcat-ICON = p_showasicon.
wa_fieldcat-do_sum = p_dosum.
Set reference fieldname, tablenam and rollname.
If p_ref_tabname is not given, the ref_fieldname given is a data
*element.
If p_ref_tabname is given, the ref_fieldname given is a field of a
*table. In case ref_fieldname is not given, it is copied from the
*fieldname.
IF p_ref_tabname IS INITIAL.
wa_fieldcat-rollname = p_ref_fieldname.
ELSE.
wa_fieldcat-ref_tabname = p_ref_tabname.
IF p_ref_fieldname EQ space.
wa_fieldcat-ref_fieldname = wa_fieldcat-fieldname.
ELSE.
wa_fieldcat-ref_fieldname = p_ref_fieldname.
ENDIF.
ENDIF.
Set output length.
IF NOT p_outputlen IS INITIAL.
wa_fieldcat-outputlen = p_outputlen.
ENDIF.
Set text headers.
IF NOT p_seltext_m IS INITIAL.
wa_fieldcat-seltext_m = p_seltext_m.
ENDIF.
IF NOT p_seltext_l IS INITIAL.
wa_fieldcat-seltext_l = p_seltext_l.
ENDIF.
IF NOT p_seltext_s IS INITIAL.
wa_fieldcat-seltext_s = p_seltext_s.
ENDIF.
IF NOT p_reptext_ddic IS INITIAL.
wa_fieldcat-reptext_ddic = p_reptext_ddic.
ENDIF.
IF NOT p_ddictxt IS INITIAL.
wa_fieldcat-ddictxt = p_ddictxt.
ENDIF.
Set as editable or not.
IF NOT p_edit IS INITIAL.
wa_fieldcat-INPUT = 'X'.
wa_fieldcat-EDIT = 'X'.
ENDIF.
APPEND wa_fieldcat TO t_fieldcat.
ENDFORM. "set_fieldcat2
*& Form top_of_page
Called on top_of_page ALV event.
Prints the heading.
FORM top_of_page.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
EXPORTING
i_logo = 'TRVPICTURE04'
it_list_commentary = t_heading.
ENDFORM. " alv_top_of_page
*& Form user_command
Called on user_command ALV event.
Executes custom commands.
FORM user_command USING r_ucomm LIKE sy-ucomm
rs_selfield TYPE slis_selfield.
case sy-ucomm.
WHEN '&DATA_SAVE'.
LOOP AT IT_DATA INTO WA WHERE ENDKZ = 'X'.
IF WA-ENDKZ = 'X'.
*******MODIFIED*********************************
U DELETE THIS CODE N USER UR INSERT CODE TO CHECK
SY-MSGV1 = WA-MBLNR. " U CAN DELETE
SY-MSGV2 = WA-MATNR. " U CAN DELETE
MESSAGE ID 'BC_BOR' TYPE 'I' NUMBER '888' " U CAN DELETE
WITH SY-MSGV1 SY-MSGV2. " U CAN DELETE
*******MODIFIED*********************************
INSERT ZTABLE.
ENDIF.
endloop.
ENDCASE.
ENDFORM. "user_command
this is my code, database will stored in fields only.data is empty,
how to slove that one,send any sugestion.Hi Lakshmi,
Can u explain briefly what is ur requirement. U mean to say that after clicking the checkbox in data base table or Screen?
Regards,
Jayaram...
Maybe you are looking for
-
We are observing high memory usage for each callable/prepared stmt, using 10.2.0.1.0 JDBC Driver. The char[] in oracle/jdbc/driver/T4CVarcharAccessor was alloted 64K to 320K and grows with usage. This problem is worse with 10.1.0.2. driver which was
-
Is there a way in indesign to have it automatically find/replace? Like can i set up a paragraph style or something. My clients always want the same character such as .. made into . and :: made into : without manually inputting them in find/change
-
Is there anyway to delay quicktime starting on a web page, like with an embed parameter? Controls like "volume", "loop", etc are so easy to work with, is there one for delay starting?
-
No DVD/CD drive. How to install?
I have photoshop elements 13, and I am trying to download it on my macbook air- I have the discs but no disc drive on my computer. How can I still install it?
-
Error during CSSExport.bat
Hi I am trying to run the CSSExport.bat (file contents below). I am receiving the following command line error when trying to run:- Exception in thread "main" java.lang.NoClassDefFoundError: com/hyperion/css/exchange/CommandUtility From previous sear