Outputting sy-tabix value in serial number.
Dear expert,
I have all the data stored in the internal table. I need to output it in the same serial number as it is in internal table along with the serial number (sy-tabix value) against this internal table data in report output display.
Thanks in advance.
Hi,
Loop at itab.
Itab-serialnum = sy-tabix.
Modify Itab.
endlloop.
Naxt call alv display by passing the serial num filed catalog.
Prabhudas
Similar Messages
-
BAPI_PO_CHANGE - Account assignment serial number issue
Hi,
I am modifying Service PO with BAPI_PO_CHANGE.
I am passign A/c Assignment with WBS_Element value and serial number '01' for individual line.
PO has A/c Assignment catagory P(Project).
But the existing PO which i want to modify, had Serial number '02' for A/c assignemnt serial number.
So it is giving Short dump with raising exception for the class of Account assignnment handler.
What need to dofor such A/c assignment catagory in Service PO Case.?
Regards,
ManojHi,
Please try to change the serial number manually in mE22N and see.
Regards,
Nagaraj -
HI Team,
In ibase component when user change the serial number we need to set date time in Extra attribute filed..if we click edit ,User change serial number after save we need to set date time in Extra Attribute 4 field .
Component - PRDGENSET
In this component there is no attributes,so where we need to implement and how to implement please help.
Thanks
kalpanaHi Abi,
Thanks for your reply..see i debugged..i have put break point in method SET_S_STRUCT method if press enter in serial number ,debuggeris triggered..in SET_S_STRUCT method value getting serial number..so how to write the logic here...
In GET_S_STRUCT method iam getting all attributes but serial number is not filled..So could you please help here what to do..
in set_S_STRCUT method value iam gettin serial number...in collection wrapper iam geting zrealtions if i open attributes_ref -if i pass Attribute value in run time its getting displayed.so how to write the logic based on serial number please help some coding.
Thanks
kalpana -
CS6 existing serial number holder. Am I eligible to join creative cloud?
Hi,
I have purchased Adobe CS6 Master collection student suit from Adobe site recently, now I am thinking to join the CREATIVE CLOUD.
I have tried to join threw the plan for the individuls - ' Existing CS Customers special offer ' button. it leads to pick a plan. I have picked and try to join - complete for cs6.
When I click this button, it leads me to the join creative cloud page. When I try to sign in their with my user name and password, Its saying you are not qualified.
I don't know why, I have a valued CS6 SERIAL NUMBER WITH ME and its already registerd.
Could you advice me to get the proper steps to join the Cloud threw the existing CS Customer offer!.
ThanksEdu versions don't qualify for an extra discount because you already got them at a considerably lower price. If you are stil la student, use the the S&T version of CC, otherwise you will need to join CC without any further discounts.
Mylenium -
MIGO Exit -- get the serial number
Hello, everyone
When push the Enter button or save button in MIGO,I'd like to get the serial number using exit.
But I think that it is impossible to get the serial number in MIGO Exit.
Because, they are not IMPORT Parameter which can get serial number.
Anyone knows if we can get the serial number in MIGO Exit?
SomaHi,
Even I have a similar requirement to get the value of serial number in runtime in MIGO tcode, I searched and dint find any FM or BAPI to fetch it. So I used the following code.
*field-symbols declarations
field-symbols: <it_goserial> type STANDARD TABLE,
<wa_goserial> type any,
<lv_searial_number> type any.
*for retreiving the serial number
ASSIGN ('(SAPLMIGO)OREF_DETAIL->T_GOSERIAL') TO <it_goserial>.
if sy-subrc = 0.
*Get the serial numbers entered
READ TABLE <it_goserial> INDEX 1 ASSIGNING <wa_goserial>.
if sy-subrc = 0.
*serial number is the second component of the wa_goserial structure (cannot use the component name 'serialno' b/c the component is NOT defined in the Data Dictionary - it's defined in program LMIGOKE1)
ASSIGN COMPONENT 2 OF STRUCTURE <wa_goserial> TO <lv_searial_number>.
endif.
endif.
<lv_searial_number> contains the derial number value at runtime. -
Find Machine Bios Serial Number
Hi,
Need to find out the machine bios serial number in SCCM Hardware inventory.
Check in the SQL database SQL database views V_GS_PC_Bios, the value for serial number showing NULL.
Do we have to enable or create the custom class to get the bios serial number?
Regards,
Milind Dhuri.You may find that some make/models of hardware may store the serial number in slightly varying classes in WMI.
In some, it might be in Win32_BIOS. In others, Win32_ComputerSystem, or Win32_ComputerSystemProduct, Win32_BaseBoard, etc.
Yes, it *might* be necessary to enable some additional classes in HINV, but I usually find that the data is already being inventoried, just that I am looking in the wrong place :)
Sometimes, there is no serial number stored in SMBIOS at all. (typically with smaller suppliers)
A quick and easy way to check if you have make/model variation as the cause of this dilemma, is to use Resource explorer in the ConfigMgr console.
https://technet.microsoft.com/en-us/library/gg712311.aspx
Don
(Please take a moment to "Vote as Helpful" and/or "Mark as Answer", where applicable.
This helps the community, keeps the forums tidy, and recognises useful contributions. Thanks!) -
Displaying serial number in the report output
Hi everyone
may i know hw can we display serial number inthe report output.hi,
Assuming that you wanted to print the entries of internal table record by record ... do this way ...
loop at itab.
write : sy-tabix. " Record Position
endloop.
Regards,
Santosh -
How to output serial number in wwi template from the production order
Dear Experts ,
Has Sap defined report symbol to output serial number in sap glmDear S P
there are "lots" of threads discussing this.
GLM - Serial Number Hide
EHS GLM how to define serial numbers out of a list
Bar Code in SAP GLM
New changes for GLM in EHP7.0 and ERP 6.0
GLM - Serial Number Hide
Sap GLM Serial NUmber printing
Please check them
C.B. -
How to get Serial Number value which is under T-CODE IW33
Hi Experts,
During my developing, I dont know how to catch the Serial Number value (SERNR) which is under T-CODE IW33, Please help me? Thnks a bunch~
QuentinThank u two for ur so quickly replies,
After my check from frontend, i found the field AFPO-SERNR is not the one i said, because the length is diffirent and frontend has value but AFPO-SERNR has no value
Gautham,
I found the value serial number in EQUI is my need, but i dont know equipment number, what i know is only Repair Service Order Number, do u have any further advice?
Thanks~
Quen -
My output loop tunnel value is "#1". What does this number signify.
I am a new Labview person. I have a While Loop containing a Fract/Exp String to Number fuction. The output goes directly to a loop tunnel whose value is 8 using a probe but when running in highlight mode the value displayed on the tunnel is "#1". What is the significance of this value.
It means you are not dealing with a scalar value, but with an array. The #1 means that the array size is one element. For arrays, it does not show the values, but the number of elements. A wise choice, because arrays can be huge. ;-)
LabVIEW Champion . Do more with less code and in less time . -
How to output serial number from production order in GLM ?
how to pull serial number from production order in wwi template for GLM ?
Hi,
Please have a look to this thread:
BAPI/RFC to get serial numbers for a production order
Hope it helps,
Kr,
m. -
Help: How to add serial number data into Delivery Order document
Dear Gurus,
I am creating an interface program and I have problem in attaching the serial number data to the corresponding material code for a certain delivery order document in R/3 4.6C SP22 system.
The serial number can be attached either during the creation of the Delivery Order itself or in the subsequent step after creating the Delivery Order (i.e.: create the D/O document first, and then update the D/O data).
The BAPI_OUTB_DELIVERY_CONFIRM_DEC FM does not provide any input parameter to let me put the serial number in this R/3 version.
By tracing in SE30 the standard program VL02N --> Menu --> Extras --> Serial Number --> Continue (Enter) --> Save (Ctrl+S), I found out that the serial attachment 'might' be done during sub-routine SERIAL_LISTE_POST_LS in program SAPLIPW1. It will in turn executes FM SERIAL_LISTE_POST_LS. The commit to database table will be done in update task by FM OBJK_POST_UPDATE_N and SERIAL_POST_UPDATE_LS.
<b>My question:</b>
============
1. Is FM SERNR_ADD_TO_LS can be used to attach the serial number to D/O?
If yes, how to do it please because I already tried it I can not see the serial information in VL02N after that. There is no any insert or update to database in this function module. Should I call other FM after this? I want to try to call FM OBJK_POST_UPDATE_N and SERIAL_POST_UPDATE_LS but I do not know how I can retrieve the global object such as XOBJK_ALL that is necessary for the input parameter.
2. If SERNR_ADD_TO_LS can not be used, what other FM can I use? Can I call SERIAL_LISTE_POST_LS instead? Is there any reliable way to generate the import parameter for this FM, such as XSER00, XSER01, XOBJK_ALL and XEQUI?
Thank you in advanced for your kind assistance.
Best Regards,
HiroshiTry something similar to this below...
Afterwards you should do a call transaction to VL02N and immediately SAVE. This is sufficient to ensure the status on the serial numbers is updated correctly.
FUNCTION z_mob_serialnr_update_ls.
""Local interface:
*" IMPORTING
*" VALUE(VBELN_I) LIKE LIKP-VBELN
*" TABLES
*" SERNO_TAB STRUCTURE RISERLS
*" YSER00 STRUCTURE SER00 OPTIONAL
*" YSER01 STRUCTURE RSERXX OPTIONAL
*" YOBJK_ALL STRUCTURE RIPW0 OPTIONAL
*" YEQUI STRUCTURE RIEQUI OPTIONAL
*" YMASE STRUCTURE MASE OPTIONAL
*" EXCEPTIONS
*" NO_EQUIPMENT_FOUND
The modified/confirmed table of serial numbers is supplied in
SERNO_TAB.
These are updated in the SAP tables
YSER00 - General Header Table for Serial Number Management
YSER01 - Document Header for Serial Numbers for Delivery
YOBJK_ALL - Internal Table for Object List Editing/Serial Numbers
YEQUI - Internal Structure for IEQUI
local data
DATA: BEGIN OF del_wa,
vbeln LIKE likp-vbeln,
posnr LIKE lips-posnr,
matnr LIKE lips-matnr,
lfimg LIKE lips-lfimg.
DATA: END OF del_wa.
DATA: del_tab LIKE del_wa OCCURS 0.
DATA: _ct TYPE i.
DATA: lastobknr LIKE objk-obknr.
DATA: _debug.
CLEAR: yser00, yser01, yobjk_all, yequi, ymase.
REFRESH: yser00, yser01, yobjk_all, yequi, ymase.
GET PARAMETER ID 'ZEDI_DEBUG' FIELD _debug.
OBJECT KEYS
read the delivery items with serial numbers to be processed
SELECT * INTO CORRESPONDING FIELDS OF TABLE del_tab
FROM lips
WHERE vbeln = vbeln_i
AND serail NE space.
if nothing is relevant for serial numbers bailout
DESCRIBE TABLE del_tab LINES _ct.
IF _ct IS INITIAL.
EXIT.
ENDIF.
==== read the existing object keys for delivery items
SELECT * INTO CORRESPONDING FIELDS OF TABLE yser01
FROM ser01
WHERE lief_nr = vbeln_i.
IF sy-subrc = 0.
yser01-dbknz = 'X'. "entry exists in db
MODIFY yser01 TRANSPORTING dbknz WHERE dbknz = space.
ENDIF.
== check if there is a header entry for the delivery item
LOOP AT del_tab INTO del_wa.
READ TABLE yser01 WITH KEY lief_nr = del_wa-vbeln
posnr = del_wa-posnr.
IF sy-subrc NE 0.
create one
CALL FUNCTION 'OBJECTLIST_NUMBER'
IMPORTING
obknr = yser01-obknr.
yser00-mandt = sy-mandt.
yser00-obknr = yser01-obknr.
APPEND yser00.
SELECT SINGLE kunnr INTO (yser01-kunde)
FROM likp
WHERE vbeln = vbeln_i.
yser01-mandt = sy-mandt.
yser01-lief_nr = del_wa-vbeln.
yser01-posnr = del_wa-posnr.
yser01-vorgang = 'SDLS'.
yser01-vbtyp = 'J'.
yser01-bwart = '601'.
yser01-dbknz = space. "not in db
yser01-loknz = space. "do not delete
APPEND yser01.
ENDIF.
ENDLOOP.
check if any entries should be deleted
LOOP AT yser01.
READ TABLE serno_tab WITH KEY vbeln = yser01-lief_nr
posnr = yser01-posnr.
IF sy-subrc NE 0.
yser01-loknz = 'X'. "mark for delete
MODIFY yser01.
ENDIF.
ENDLOOP.
collect all the object keys for the delivery item with s/n's
LOOP AT yser01.
READ TABLE serno_tab WITH KEY vbeln = yser01-lief_nr
posnr = yser01-posnr.
IF sy-subrc = 0.
READ TABLE yser00 WITH KEY obknr = yser01-obknr.
IF sy-subrc NE 0.
yser00-mandt = yser01-mandt.
yser00-obknr = yser01-obknr.
APPEND yser00.
ENDIF.
ENDIF.
ENDLOOP.
IF NOT _debug IS INITIAL. BREAK-POINT. ENDIF.
SERIAL NO OBJECTS
==== read the existing serial numbers from the database
via object number into YOBJK_ALL
LOOP AT yser00.
SELECT * APPENDING CORRESPONDING FIELDS OF TABLE yobjk_all
FROM objk
WHERE obknr = yser00-obknr.
ENDLOOP.
yobjk_all-dbknz = 'X'.
MODIFY yobjk_all TRANSPORTING dbknz WHERE dbknz = space.
=== add any new serial numbers
LOOP AT serno_tab.
READ TABLE yser01 WITH KEY lief_nr = serno_tab-vbeln
posnr = serno_tab-posnr.
READ TABLE yobjk_all WITH KEY sernr = serno_tab-sernr
matnr = del_wa-matnr.
IF sy-subrc NE 0.
this is a new serial number
yobjk_all-mandt = sy-mandt.
yobjk_all-obknr = yser01-obknr.
yobjk_all-obzae = 0.
yobjk_all-equnr = yequi-equnr.
yobjk_all-objvw = 'S'.
yobjk_all-sernr = serno_tab-sernr.
yobjk_all-matnr = del_wa-matnr.
yobjk_all-datum = sy-datum.
yobjk_all-taser = 'SER01'.
yobjk_all-equpd = 'X'.
yobjk_all-objnr = yequi-objnr.
yobjk_all-dbknz = space.
yobjk_all-loknz = space.
APPEND yobjk_all.
ENDIF.
ENDLOOP.
=== mark any which are no longer confirmed as deleted
LOOP AT yobjk_all.
READ TABLE yser01 WITH KEY obknr = yobjk_all-obknr.
READ TABLE serno_tab WITH KEY vbeln = yser01-lief_nr
posnr = yser01-posnr
sernr = yobjk_all-sernr.
IF sy-subrc NE 0.
yobjk_all-loknz = 'X'.
MODIFY yobjk_all TRANSPORTING loknz.
ENDIF.
ENDLOOP.
EQUIPMENT RECORDS
== get the equipment records
LOOP AT yobjk_all.
SELECT SINGLE * INTO CORRESPONDING FIELDS OF yequi
FROM equi
WHERE sernr = yobjk_all-sernr
AND matnr = yobjk_all-matnr.
IF sy-subrc NE 0.
CONTINUE.
ENDIF.
IF yobjk_all-dbknz = space AND
yobjk_all-loknz = space.
yequi-dbknz = 'X'.
yequi-obknr = yobjk_all-obknr.
yequi-j_vorgang = 'PMS3'. "add to delivery
yequi-matnr_old = yequi-matnr.
APPEND yequi.
yobjk_all-equnr = yequi-equnr.
MODIFY yobjk_all TRANSPORTING equnr.
CONTINUE.
ENDIF.
IF yobjk_all-dbknz = 'X' AND
yobjk_all-loknz = 'X'.
yequi-dbknz = 'X'.
yequi-j_vorgang = 'PMSA'. "delete from delivery
yequi-matnr_old = yequi-matnr.
APPEND yequi.
CONTINUE.
ENDIF.
ENDLOOP.
remove any Equipment records that do not need to be processed
DELETE yequi WHERE j_vorgang IS initial.
IF NOT _debug IS INITIAL. BREAK-POINT. ENDIF.
fill the object counter
LOOP AT del_tab INTO del_wa.
READ TABLE yser01 WITH KEY lief_nr = del_wa-vbeln
posnr = del_wa-posnr.
DO del_wa-lfimg TIMES.
READ TABLE yobjk_all WITH KEY obknr = yser01-obknr
obzae = sy-index.
IF sy-subrc NE 0.
READ TABLE yobjk_all WITH KEY obknr = yser01-obknr
obzae = 0.
IF sy-subrc = 0.
yobjk_all-obzae = sy-index.
MODIFY yobjk_all INDEX sy-tabix TRANSPORTING obzae.
ENDIF.
ENDIF.
ENDDO.
ENDLOOP.
IF NOT _debug IS INITIAL. BREAK-POINT. ENDIF.
===========================================
update the delivery
===========================================
CALL FUNCTION 'SERIAL_LISTE_POST_LS'
TABLES
xser00 = yser00
xser01 = yser01
xobjk_all = yobjk_all
xequi = yequi
xmase = ymase.
TAB_CUOBJ =
XSER03 =
CALL FUNCTION 'STATUS_BUFFER_EXPORT_TO_MEMORY'
EXPORTING
i_memory_id = memid_status.
COMMIT WORK AND WAIT.
CALL FUNCTION 'Z_MOB_SERIALNR_REFRESH_LS'
EXPORTING
ctu = 'X'
mode = 'N'
UPDATE = 'L'
GROUP =
USER =
KEEP =
HOLDDATE =
NODATA = '/'
vbeln_i = vbeln_i.
IMPORTING
SUBRC =
TABLES
MESSTAB =
ENDFUNCTION.
FUNCTION z_mob_serialnr_refresh_ls.
""Local interface:
*" IMPORTING
*" VALUE(CTU) LIKE APQI-PUTACTIVE DEFAULT 'X'
*" VALUE(MODE) LIKE APQI-PUTACTIVE DEFAULT 'N'
*" VALUE(UPDATE) LIKE APQI-PUTACTIVE DEFAULT 'L'
*" VALUE(GROUP) LIKE APQI-GROUPID OPTIONAL
*" VALUE(USER) LIKE APQI-USERID OPTIONAL
*" VALUE(KEEP) LIKE APQI-QERASE OPTIONAL
*" VALUE(HOLDDATE) LIKE APQI-STARTDATE OPTIONAL
*" VALUE(NODATA) LIKE APQI-PUTACTIVE DEFAULT '/'
*" VALUE(VBELN_I) LIKE LIKP-VBELN
*" EXPORTING
*" VALUE(SUBRC) LIKE SYST-SUBRC
*" TABLES
*" MESSTAB STRUCTURE BDCMSGCOLL OPTIONAL
DATA: vbeln_001 LIKE bdcdata-fval.
vbeln_001 = vbeln_i.
subrc = 0.
PERFORM bdc_nodata USING nodata.
PERFORM open_group USING group user keep holddate ctu.
PERFORM bdc_dynpro USING 'SAPMV50A' '4004'.
PERFORM bdc_field USING 'BDC_CURSOR'
'LIKP-VBELN'.
PERFORM bdc_field USING 'BDC_OKCODE'
'/00'.
PERFORM bdc_field USING 'LIKP-VBELN'
vbeln_001.
PERFORM bdc_dynpro USING 'SAPMV50A' '1000'.
PERFORM bdc_field USING 'BDC_OKCODE'
'=PSER_T'.
PERFORM bdc_field USING 'BDC_CURSOR'
'LIPS-POSNR(01)'.
PERFORM bdc_dynpro USING 'SAPLIPW1' '0200'.
PERFORM bdc_field USING 'BDC_CURSOR'
'RIPW0-SERNR(01)'.
PERFORM bdc_field USING 'BDC_OKCODE'
'=RWS'.
PERFORM bdc_dynpro USING 'SAPMV50A' '1000'.
PERFORM bdc_field USING 'BDC_OKCODE'
'=SICH_T'.
PERFORM bdc_field USING 'BDC_CURSOR'
'LIPS-MATNR(02)'.
PERFORM bdc_transaction TABLES messtab
USING 'VL02N'
ctu
mode
update.
IF sy-subrc <> 0.
subrc = sy-subrc.
EXIT.
ENDIF.
PERFORM close_group USING ctu.
ENDFUNCTION.
INCLUDE bdcrecxy. -
Dear Experts,
I herewith attachedc my codings i waht to add serial number how to do that i have done something but it is giving all zero values.,.,.,
*& Report ZAPPRAISAL_LAG
REPORT ZAPPRAISAL.
*Declaration of type-pools
TYPE-POOLS SLIS.
*Declaration of tables
TABLES : PA0025, PA0001.
DATA : LV_VALUE TYPE I.
*Declaration of work area
DATA: BEGIN OF WA_PA0025,
PERNR TYPE PA0025-PERNR,
ENDDA TYPE PA0025-ENDDA,
BEGDA TYPE PA0025-BEGDA,
AEDTM TYPE PA0025-AEDTM,
BWNAM TYPE PA0025-BWNAM,
DAT25 TYPE PA0025-DAT25,
GRPNR TYPE PA0025-GRPNR,
ENAME TYPE EMNAM,
BUKRS TYPE PA0001-BUKRS,
number type i,
END OF WA_PA0025,
WA_FCAT TYPE SLIS_T_FIELDCAT_ALV WITH HEADER LINE,
wa_sort TYPE SLIS_SORTINFO_ALV,
WA_EVENTS TYPE SLIS_T_EVENT WITH HEADER LINE.
DATA: row_number type i.
*Declaration of internal tables
DATA : IT_PA0025 LIKE TABLE OF WA_PA0025,
IT_FCAT TYPE SLIS_T_FIELDCAT_ALV,
I_SORT TYPE STANDARD TABLE OF SLIS_SORTINFO_ALV,
IT_EVENTS TYPE SLIS_T_EVENT.
*selection screen
SELECTION-SCREEN BEGIN OF BLOCK FF WITH FRAME TITLE TEXT-001.
*SELECT-OPTIONS S_DATE FOR PA0025-DAT25.
parameters : p_date type pa0025-dat25.
parameters : p_date1 type pa0025-dat25.
SELECT-OPTIONS S_BUKRS FOR PA0001-BUKRS NO INTERVALS.
SELECTION-SCREEN END OF BLOCK FF.
*ALV EVENTS
WA_EVENTS-FORM = 'HEADER'.
WA_EVENTS-NAME = 'TOP_OF_PAGE'.
APPEND WA_EVENTS TO IT_EVENTS.
CLEAR : WA_EVENTS.
*start-of-selection event.
START-OF-SELECTION.
SELECT DISTINCT
A~PERNR
A~ENDDA
A~BEGDA
A~AEDTM
A~BWNAM
A~DAT25
A~GRPNR
B~ENAME
B~BUKRS
INTO TABLE IT_PA0025
FROM PA0025 AS A
INNER JOIN PA0001 AS B
ON BPERNR = APERNR
WHERE A~DAT25
between p_date and p_date1
AND B~BUKRS IN S_BUKRS.
SORT IT_PA0025 by pernr.
DESCRIBE TABLE IT_PA0025 LINES LV_VALUE.
loop at it_pa0025 into wa_pa0025.
row_number = row_number + 1 .
WA_PA0025-number = row_number.
*append wa_pa0025 to IT_PA0025.
endloop.
perform fcat using '1' 'NUMBER' 'S.no' '12' '' 'C410' 'C'.
PERFORM FCAT USING '2' 'PERNR' 'Personnel number' '16' 'X' 'C410' 'C'.
PERFORM FCAT USING '3' 'ENAME' 'Employee name' '26' '' '' ''.
PERFORM FCAT USING '4' 'BUKRS' 'Company code' '15' '' '' 'C'.
PERFORM FCAT USING '5' 'BEGDA' 'Start date' '11' '' '' ''.
PERFORM FCAT USING '6' 'ENDDA' 'End date' '10' '' '' ''.
PERFORM FCAT USING '7' 'AEDTM' 'Changed date' '13' '' '' ''.
PERFORM FCAT USING '8' 'BWNAM' 'Appraiser' '18' '' '' ''.
PERFORM FCAT USING '9' 'DAT25' 'Appraised date' '15' '' '' ''.
CLEAR wa_sort.
wa_sort-fieldname = 'PERNR'.
wa_sort-up = 'X'.
APPEND wa_sort TO i_sort.
CLEAR wa_sort.
wa_sort-FIELDNAME = 'DAT25'.
wa_sort-UP = 'X'.
APPEND wa_sort TO I_SORT.
CLEAR wa_sort.
wa_sort-FIELDNAME = 'BUKRS'.
wa_sort-UP = 'X'.
APPEND wa_sort TO I_SORT.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
I_CALLBACK_PROGRAM = SY-CPROG
I_CALLBACK_USER_COMMAND = 'USER_COMMAND'
IT_SORT = I_SORT
I_GRID_TITLE = 'Report'
IT_FIELDCAT = IT_FCAT
IT_EVENTS = IT_EVENTS
TABLES
T_OUTTAB = IT_PA0025.
*& Form USER_COMMAND
text
--> p1 text
<-- p2 text
FORM USER_COMMAND USING U_UCOMM TYPE SY-UCOMM
US_SELF_FIELD TYPE SLIS_SELFIELD.
CASE U_UCOMM.
WHEN '&IC1'.
READ TABLE IT_PA0025 INTO WA_PA0025 INDEX US_SELF_FIELD-TABINDEX.
CASE US_SELF_FIELD-FIELDNAME.
WHEN 'PERNR'.
SET PARAMETER ID : 'PER' FIELD WA_PA0025-PERNR.
CALL TRANSACTION 'PA30'.
ENDCASE.
ENDCASE.
ENDFORM. " USER_COMMAND
FORM FCAT USING FP_COL_POS
FP_FIELDNAME
FP_SELTXT_M
FP_OUTPOUTLEN
FP_HOTSPOT
FP_EMPHASIZE
FP_JUST.
WA_FCAT-COL_POS = FP_COL_POS.
WA_FCAT-FIELDNAME = FP_FIELDNAME.
WA_FCAT-SELTEXT_M = FP_SELTXT_M.
WA_FCAT-OUTPUTLEN = FP_OUTPOUTLEN.
WA_FCAT-HOTSPOT = FP_HOTSPOT.
WA_FCAT-EMPHASIZE = FP_EMPHASIZE.
WA_FCAT-JUST = FP_JUST.
APPEND WA_FCAT TO IT_FCAT.
CLEAR : WA_FCAT.
ENDFORM. " FCAT
*& Form HEADER
text
--> p1 text
<-- p2 text
FORM HEADER . "#EC CALLED
DATA : IT_HEADER TYPE SLIS_T_LISTHEADER,
WA_HEADER LIKE LINE OF IT_HEADER.
WA_HEADER-TYP = 'H'.
WA_HEADER-INFO = TEXT-006.
APPEND WA_HEADER TO IT_HEADER.
CLEAR WA_HEADER.
WA_HEADER-TYP = 'S'.
WA_HEADER-KEY = TEXT-007.
CONCATENATE SY-DATUM+6(2) '.'
SY-DATUM+4(2) '.'
SY-DATUM(4) INTO WA_HEADER-INFO. "Current date
APPEND WA_HEADER TO IT_HEADER.
CLEAR WA_HEADER.
WA_HEADER-TYP = 'S'.
WA_HEADER-KEY = TEXT-012.
MOVE LV_VALUE TO WA_HEADER-INFO.
APPEND WA_HEADER TO IT_HEADER.
CLEAR WA_HEADER.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
EXPORTING
IT_LIST_COMMENTARY = IT_HEADER.
CLEAR : IT_HEADER[], WA_HEADER.
ENDFORM. " HEADER
Thanks and Regards,
Thirukumaran. Rhi
LOOP AT it_pa0025 INTO wa_pa0025.
row_number = row_number + 1 .
wa_pa0025-number = row_number.
" Add this statement here
MODIFY it_pa0025 INDEX sy-tabix FROM wa_pa0025 TRANSPORTING number.
ENDLOOP.
Thanks & Regards -
BAPI to get inbound delivery from material serial number
BAPI to get inbound delivery number from material serial number?
input---material serial number.
output--inbound delivery number.Perhaps instead of using a BAPI you can code it like this.
DATA:serial(10) TYPE n VALUE '0000340078',
pos TYPE i VALUE 1.
START-OF-SELECTION.
WHILE pos <= 10 AND serial+pos(1) = 0.
pos = pos + 1.
ENDWHILE.
REPLACE ALL OCCURRENCES OF '0' IN serial(pos) WITH space.
WRITE serial. -
Hi experts,
iam doing alv report. iam having sl.no. filed in the internal table.
for output depending on different options, it is not showing the sl.no. in proper order.
for each input or requirement it is taking the same sl.no. series and the output is correct we r getting but sl.no order is not correct.
ex:option 1.
output:
sl.no.
1
2
3......
ex:option 2. (according to option this values only we require but, the serial number should be 1,2,3, in this order)
output:
sl.no.
12
21
32
33....
right answers can be rewarded......................
Message was edited by:
dasr ractually..........
if i go for normal reporting......
if i do not give procurement type e or f............it will fetch all the records belong to
e and f. sl.no coming is 1,2,....................100...............correct iam getting.
if i give procurement type e or f............it will fetch some records which belongs to e or f that records only it will fetch but the sl.no. sequence is notlike 1,2,3,..........100. it is giving 1,3,5,6, ...........50.
Maybe you are looking for
-
ITunes crash on start -even in safe mode
Bonjour, Since three days my iTunes crash on start. I remove all plugins, tried to start in safe mode, no USB device connected, but no result. Please find the crash below. This is really annoying, no possibility to sync iPhone and iPad. Could someone
-
For the new iPhone 5s - is there not an option anymore to edit imessages without deleting the whole stream? There are some things I need to keep within a stream and some not necessary, and it looks as like no editing within a conversation?
-
Web ADI Importer Success Message Creation failing
Hi Gurus, When I'm trying to create a 'Success Message' importer, it is failing with the below error: "oracle.jbo.TooManyObjectsException: JBO-25013: Too many objects match the primary key oracle.jbo.Key[20003 SM_501017 US ]." When I observed the sta
-
Need itunes to search for music!!
I can't figure out how to get itunes to search my hard drive for music. Since all kinds of problems with installing new version (old one wiped out entirely) finally got it to open, (two months later) now there's almost no music. Two 50 cent albums, n
-
I was unable to install the software for HP's Scanjet 4070 Photosmart Scanner on my PC using Vista. It says it is not supported on this O/S. Is there installation software available to install this scanner on a Windows Vista PC or Windows 8.1 PC? I c