AFVC table
in order to enter the table in need
aufpl Routing number of operations in the orde.
what is this and where do i get this.
what is aplzl general counter of order.
where do i get the data to fill in to these fields.
i haven't come across this problem, however you can check which costelement updated in cooi table. i think
it doesn't matter what costelement updated in afvc table because system concerns more about cooi table for commitments
and reporting.
regards,
Similar Messages
-
Selecting activities from afvc table by network number
hi friends'
i am trying to get a list of activities from afvc table but the network number is in a diferent table (afko)
the joint field is "AUFPL"
what is the easy way to get the list
thanks
best reguardsHi,
Why is Order category required ?
As you mentioned, your requirement is to get all the activities of a network.
Then you may just enter the Order - AUFNR in AFKO table and get AUFPL. Pass this AUFPL to AFVC and get all the activities (VORNR)
Let me know if this helped. or you have a different requirement.
BR
Anjali -
how to get link between plpo and afvc table regarding recipe group and and its detailsfor various operations like different group couner, how could we understand the required one
Hello,
Could you please explain a little bit about your requirement?
Coz PLPO & AFVC can be linked through fields - Group & Group Counter. Also this can be further linked to AFRU using confirmation numbers & etc.
Revert with details.
Regards,
Anup -
AFVC table note updated when Cost element is changed in PR
For External activity PR is created and in PR cost element is changed. When I go back and check the activity in CN22 it reflects new cost element correctly. But when I check the AFVC table entries it still shows the old cost element.
Did any one experienced same problem and I could not find any OSS note on this.i haven't come across this problem, however you can check which costelement updated in cooi table. i think
it doesn't matter what costelement updated in afvc table because system concerns more about cooi table for commitments
and reporting.
regards, -
Datasource and Data flow for SAP table AFVC and field AUFPL
Hi
During mapping of SAP fields to datasource field we have come accross AFVC table and field AUFPL .I am not able to find datasource for above mentioned table or field.Can any one please help me out ?
Thanks
DattaHi DLK,
You can search using SE11.
goto SE11 in ECC system, give the table name and click on where used list.
in the next screen select structure and press enter.
in the result screen you will get the list
Regards,
Venkatesh -
TABLE TO FIND OUT THE PERSONAL NUMBER DETAILS FOR MAINT ORDER OPERATION
Dear Friends,
While creating the maintenence order,i am assigning the operation,
Against the each operation ike to alllocate some people(personal number),through requirments assignment tab in the operation.
I want to know in which table and filed, this personal number information is stored since i need to develop a report based on this.
Thanks and Regards
V.Dhanasekaran
Edited by: Dhanasekaran Vadivalagan on Apr 19, 2010 12:55 PMHi Dhanasekharan,
You can send the Order Number to AFKO table and get the AUFPL (Operation No) for that Order.
Then send this AUFPL to AFVC Table and get the personnel Number PERNR field.
This you can make use for reports.
Regards,
MLN Prasad -
Screen enhancement with table control IW31, IW32, IW33.
Hi Gurus,
I am facing issues with enhancement implementation for Maintenance Orders transaction IW31, IW32, IW33. (SAP basis version 4.7)
1) I have implemented enhancement IWO10018 for creating an Enhancement tab in transactions Iw31/ 32/ 33. This tab has got a table control which has 4 columns: -Operations, Operation short text, Estimated Cost and Currency Unit.
First two fields are non editable and are populated for all the Operations in Operations tab. Last two columns are editable and value entered in these are stored in the database on saving. Now the issue is I am able to fetch all the operations from AFVC table but these are the one which have been saved. Suppose I navigate between the tabs Operations and Enhancement and enter a new operation in Operations tab, I should get the same in my Enhancement tab table control field as well.
Though we can obtain one value from structure (SAPLCOIH)AFVGD but this gives only one value. If we need to get the table of values, is their any option ???
P.S. Assumption in this requirement was that there can be at max 50 operations in an order and 200 new fields are created for this in include CI_AUFK in table AUFK.
2) In standard report transction IW39 to display the orders and operations, if we need to display additional columns for displaying Estimated Costs and Units per order, how do we need to implement enhancement IWOC0004. Do we need to add all custom fields in structure RIHAUFK_LIST as well. If you could please elaborate its implementation, it would be helpful.
3) In standard report transaction IW49N, is there any enhancement available to add new fields in ALV display. (SAP basis version 4.7).
I would be grateful if i can get a quick response as I am stuck in middle of something important.
Edited by: shreya tagra on May 12, 2010 8:32 PMHey All,
To my questions further, I had found the runtime internal table where Operations are stored before saving.
It is AFVGD_BT and its main program is SAPLCOBO. So it can be accessed through (SAPLCOBO)AFVGD_BT[].
Also for 2 and 3 question, the given enhancement would work and we need to update fieldcatalog with custom fields.
For this add our fields in RIHAUFK_LIST.
Now, I am facing another issue. Since the enhancement tab is a subscreen, i am not able to get its okcodes. eg: When I click enhancement tab, sy-ucomm is 'CUK', when I scroll up or down again it is 'CUK', if I press enter again it is '+CUK'. To enable scrolling functions I need to get correct okcodes and differentitaed ones because on each user command, a different action is required. Any pointers how can this be achieved.
Will post my solution once i m completly done with it. Till then your pointers are awaited..
Thanks,
Shreya -
Update of the field earliest/latest possible activity (AFVC-FRSP)
Hello Abaplers,
is their a solution for updating the field FRSP of the AFVC table, out of a report, without updating it directly via OpenSQL?.
Actually i use the BAPI: BAPI_NETWORK_MAINTAIN.
But it seems to be that the bapi has no entry in the corresponding
structure I_ACTIVITY for the FRSP field of the AFVC table.
I searched for different function modules for updating the field seperatly,
but with no result.
I will appreciate your help.
Many thanks in advance.
Alexanderthanks for your answer, i know but i think it`s usally not the way which SAP recommend.
I want to avoid it because of the risks in some cases (FK-Field updates, changeable masterdata -> inconsistency, bypassing the checks of the data element etc.).
But it seems to be that there is no other way (bapi, fm etc) and the direct update is the one and only method for updating the field? -
Trying to find the Network Activity number from the CATSPS table
Hi Experts
I am trying to build a report to show unprocessed time on Network Activities. The time is entered via CAT2 and transferred to CATSPS via the CATA job.
Once the data hits the table, an internal system number is given to activity.
I have the following example:
Say I have three Network Activities all linked to the same Network and WBS as follows:
Network Activity #
43000121 0001
43000121 0002
43000121 MTS
When I post time against the 2nd and 3rd NWAu2019s, CATSPS has the following entries:
RNPLNR RAUFPL RAPLZL
000043000121 0000000182 00000002
000043000121 0000000182 00000003
Now the RAPLZL field has no visual link to the NWA.
Does anyone know of the Internal table that holds the link between the RAPLZL field and the Activity that is represents.
I have already looked at PLPO (no entries).
Any other suggestions would be appreciated.
Thank you in advanceMatch the entries RAUFPL, RAPLZL of CATSPS with AUFPL, APLZL of AFVC table, you will get the activity number(VORNR)
-
Hi Experts,
Please some one tell me how to find the source table for a structure table. I have table called AFVGD( Structure Table) and AFIH( Transparent Table) , I want to find the physical table where this two tables based on like I want to know Price field is coming from that is existing in AFVGD.
Thanks
Robbiego to se11 display the structure afvgd.
the price field PREIS take data element name and it will be PREIS
and come back to initial screen of se11 go to data type give the name PREIS here in application tool bar you can find the where used list button just click it will pop up some box check tables there and press enter it will display the tables list.
i think you can find it in AFVC table.
regards
shiba dutta -
Table Link : Prod Order & Operations attached to the Order
Hello,
I need to extract Following Data:
Input: Prod Order Numbers
Output. Operations & Control key attached to the production Order.
Request to give the Table link to get the infornation.
Thanks & Regards
NitinHi,
Production Order No-AUFNR from AFKO table
Operations from AFVC table
Link between AFKO and AFVC is AUFPL(Routing no. of operations)
-Thaila Shree -
Syntax error while writing a select query.
Hi all,
I have a requirement where I have to pick a value if the text for that value is
MYCARu2019S Lovliest Car.
And so I wrote a query that
SELECT RUECK INTO XRUECK FROM AFVC WHERE ltxa1 = ' MYCARu2019S Lovliest Car'.
ENDSELECT.
But it gives me a syntax error saying
u201CLiterals taking up more than one line not permittedu201D.
Can some one tell me what is wrong. I need to select RUECK value from AFVC table if
ltxa1 value is ' MYCARu2019S Lovliest Car'.
Kindly help what is going wrong...
Regards,
Jessica SamHi,
Narendran is right use two single quotes.
also careful wile comparing string. i think as you write ltxa1 value is ' MYCARu2019S Lovliest Car'.
so while comparing you must not use space just before staring use the following
SELECT rueck INTO xrueck FROM afvc WHERE ltxa1 = 'MYCAR''S Lovliest Car'. " Not use Space before M
ENDSELECT.
Hope will help you.
Kind Regards,
Faisal -
Hello experts, I have a function module that runs so slow, I just want to seek some advice to help me have a better performance speed what can I used and alternatives to make my codes faster... any advice can help
Heres my <b> code </b>
<b>Declaration</b>
FUNCTION-POOL YXBW_0PRODORDER_ATTR. "MESSAGE-ID ..
TYPE-POOLS: RSAP, RSSG, SRSC, SRSD, RSAOT, RSFH.
DATA: ippord_bw LIKE ppord_bw.
DATA : itabix LIKE sy-tabix.
DATA : V_OBJNR LIKE JEST-OBJNR.
DATA : BEGIN OF i_data_temp OCCURS 0.
INCLUDE STRUCTURE ppord_bw.
DATA : END OF i_data_temp.
data: begin of i_jest_obj occurs 0,
objnr like jest-objnr,
end of i_jest_obj.
*TYPES Declaration *
TYPES : BEGIN OF t_afpo,
aufnr LIKE afpo-aufnr, "Order Number
plnum LIKE afpo-plnum, "Planned order number
psamg LIKE afpo-psamg, "Scrap quantity in item
psmng LIKE afpo-psmng, "Order item quantity
wemng LIKE afpo-wemng, "Quantity of goods for the order item
amein LIKE afpo-amein, "Unit of measure for in-house production
meins LIKE afpo-meins, "Base unit of measure
pamng LIKE afpo-pamng, "Fixed quantity of scrap from production
pgmng LIKE afpo-pgmng, "Total planned order quantity
ablad LIKE afpo-ablad, "Unloading point
END OF t_afpo.
TYPES: BEGIN OF t_afko,
aufnr LIKE afko-aufnr, "Order Number
gltrp LIKE afko-gltrp, "Basic finish date
gstrp LIKE afko-gstrp, "Basic start date
ftrms LIKE afko-ftrms, "Scheduled release date
gltrs LIKE afko-gltrs, "Scheduled finish
gstrs LIKE afko-gstrs, "Scheduled start
gstri LIKE afko-gstri, "Actual start date
gltri LIKE afko-gltri, "Actual finish date
ftrmi LIKE afko-ftrmi, "Actual release date
gmein LIKE afko-gmein, "Base unit of measure
plnty LIKE afko-plnty, "Task list type
plnnr LIKE afko-plnnr, "Key for task groupKey
plnal LIKE afko-plnal, "Group counter
aufld LIKE afko-aufld, "Date of BOM routing transfer
aufpl LIKE afko-aufpl,"Routing number for operations
igmng LIKE afko-igmng, "Yield confirmed order confirmation
iasmg LIKE afko-iasmg, "Scrap confirmed for order
END OF t_afko.
TYPES: BEGIN OF t_afvc,
aufpl LIKE afvc-aufpl, "Routing number for operations order
arbid LIKE afvc-arbid, "Object ID of the resource
END OF t_afvc.
TYPES: BEGIN OF t_zbw_afvv_c,
aufpl LIKE zbw_afvv_c-aufpl, "Routing number
ism03 LIKE zbw_afvv_c-ism03, "Previously confirmed activity
ile03 LIKE zbw_afvv_c-ile03, "Unit of measure
vgw02 LIKE zbw_afvv_c-vgw02, "Standard value
vge02 LIKE zbw_afvv_c-vge02, "Unit of measure standard value
isdd LIKE zbw_afvv_c-isdd, "Actual start: Execution (date)
isdz LIKE zbw_afvv_c-isdz, "Actual start: Execution (time)
END OF t_zbw_afvv_c.
TYPES: BEGIN OF t_CRHD,
objid LIKE crhd-objid, "Object ID of the resource
arbpl LIKE crhd-arbpl, "Work Center
END OF t_CRHD.
TYPES: BEGIN OF t_jest,
objnr LIKE jest-objnr, "Object Number
stat LIKE jest-stat, "Status
END OF t_jest.
*Internal Table Declaration *
DATA: i_afpo TYPE STANDARD TABLE OF t_afpo,
wa_afpo TYPE t_afpo,
i_afko TYPE STANDARD TABLE OF t_afko,
wa_afko TYPE t_afko,
i_afvc TYPE STANDARD TABLE OF t_afvc,
wa_afvc TYPE t_afvc,
i_afvc_d TYPE STANDARD TABLE OF t_afvc,
wa_afvc_d TYPE t_afvc,
i_jest TYPE STANDARD TABLE OF t_jest,
wa_jest TYPE t_jest,
i_zbw_afvv_c TYPE STANDARD TABLE OF t_zbw_afvv_c,
wa_zbw_afvv_c TYPE t_zbw_afvv_c,
i_CRHD TYPE STANDARD TABLE OF t_CRHD,
wa_CRHD TYPE t_CRHD.
<b>Actual Code</b>
i_data_temp[] = i_t_data[].
IF i_data_temp[] IS INITIAL.
RAISE rsap_customer_exit_error.
EXIT.
ELSE.
retrieves values of appended fields from afpo table
SELECT aufnr "Order Number
plnum "Planned order number
psamg "Scrap quantity in item
psmng "Order item quantity
wemng "Quantity of goods for the order item
amein "Unit of measure for in-house production
meins "Base unit of measure
pamng "Fixed quantity of scrap from production
pgmng "Total planned order quantity
ablad "Unloading point
FROM afpo
INTO TABLE i_afpo
FOR ALL ENTRIES IN i_data_temp
WHERE aufnr = i_data_temp-aufnr.
IF sy-subrc = 0.
ENDIF.
retrieves values of appended fields and aufpl from afko table that
will be used as a look up in table afvv
SELECT aufnr "Order Number
gltrp "Basic finish date
gstrp "Basic start date
ftrms "Scheduled release date
gltrs "Scheduled finish
gstrs "Scheduled start
gstri "Actual start date
gltri "Actual finish date
ftrmi "Actual release date
gmein "Base unit of measure
plnty "Task list type
plnnr "Key for task groupKey
plnal "Group counter
aufld "Date of BOM routing transfer
aufpl "Routing number for operations
igmng "Yield confirmed order confirmation
iasmg "Scrap confirmed for order
FROM afko
INTO TABLE i_afko
FOR ALL ENTRIES IN i_afpo
WHERE aufnr = i_afpo-aufnr.
IF sy-subrc = 0.
ENDIF.
loop at i_data_temp.
CONCATENATE 'OR' i_data_temp-aufnr into i_jest_obj-objnr.
append i_jest_obj.
endloop.
retrieves appended fields from afvv table
SELECT aufpl "Routing number
ism03 "Previously confirmed activity
ile03 "Unit of measure
vgw02 "Standard value
vge02 "Unit of measure standard value
isdd "Actual start: Execution (date)
isdz "Actual start: Execution (time)
FROM zbw_afvv_c
INTO TABLE i_zbw_afvv_c
FOR ALL ENTRIES IN i_afko
WHERE aufpl = i_afko-aufpl.
IF sy-subrc = 0.
ENDIF.
retrieves ARBID from afvc table that will be used as a lookup in CHRD
table to get the workcenter
SELECT aufpl "Routing number for operations order
arbid "Object ID of the resource
FROM afvc
INTO TABLE i_afvc
FOR ALL ENTRIES IN i_afko
WHERE aufpl = i_afko-aufpl.
IF sy-subrc = 0.
ENDIF.
retrieves Work Center based on the arbid selected from afvc table
SELECT objid "Object ID of the resource
arbpl " Work Center
FROM crhd
INTO TABLE i_crhd
FOR ALL ENTRIES IN i_afvc
WHERE objid = i_afvc-arbid.
IF sy-subrc = 0.
ENDIF.
SELECT objnr "Object Number
stat "Status
FROM jest
INTO TABLE i_jest
for all entries in i_jest_obj
where objnr = i_jest_obj-objnr
AND ( stat EQ 'I0045' OR stat EQ 'I0076' OR stat EQ 'I0012' ).
IF SY-SUBRC = 0.
ENDIF.
ENDIF.
MAIN PROCESSING *****
i_afvc_d[] = i_afvc[].
SORT i_afvc BY aufpl ASCENDING.
SORT i_afvc_d BY aufpl DESCENDING.
SORT : i_afko BY aufnr,
i_afpo BY aufnr,
i_zbw_afvv_c BY aufpl.
LOOP AT i_t_data INTO ippord_bw.
itabix = sy-tabix.
clears work area
CLEAR: wa_afpo,
wa_afko,
wa_afvc,
wa_zbw_afvv_c,
wa_crhd.
read internal table i_afpo
READ TABLE i_afpo INTO wa_afpo
WITH KEY aufnr = ippord_bw-aufnr.
IF sy-subrc = 0.
ippord_bw-zzwemng = wa_afpo-wemng.
ippord_bw-zzamein = wa_afpo-amein.
ippord_bw-amein = wa_afpo-amein.
ippord_bw-zzpsamg = wa_afpo-psamg.
ippord_bw-zzpgmng = wa_afpo-pgmng.
ippord_bw-zzpamng = wa_afpo-pamng.
ippord_bw-zzpsmng = wa_afpo-psmng.
ippord_bw-psmng = wa_afpo-psmng.
ippord_bw-zzmeins = wa_afpo-meins.
ippord_bw-zzplnum = wa_afpo-plnum.
ippord_bw-zzablad = wa_afpo-ablad.
ENDIF.
read internal table i_afko
READ TABLE i_afko INTO wa_afko
WITH KEY aufnr = ippord_bw-aufnr.
IF sy-subrc = 0.
ippord_bw-zzftrms = wa_afko-ftrms.
ippord_bw-zzgstri = wa_afko-gstri.
ippord_bw-zzftrmi = wa_afko-ftrmi.
ippord_bw-zzgstrp = wa_afko-gstrp.
ippord_bw-zziasmg = wa_afko-iasmg.
ippord_bw-zzigmng = wa_afko-igmng.
ippord_bw-zzgmein = wa_afko-gmein.
ippord_bw-zzplnnr = wa_afko-plnnr.
ippord_bw-zzplnty = wa_afko-plnty.
ippord_bw-zzplnal = wa_afko-plnal.
ippord_bw-zzaufld = wa_afko-aufld.
ippord_bw-zzgltrs = wa_afko-gltrs.
ippord_bw-zzgstrs = wa_afko-gstrs.
ippord_bw-zzgltri = wa_afko-gltri.
ippord_bw-zzgltrp = wa_afko-gltrp.
read internal table i_afvv
READ TABLE i_zbw_afvv_c INTO wa_zbw_afvv_c
WITH KEY aufpl = wa_afko-aufpl.
IF sy-subrc = 0.
ippord_bw-ism03 = wa_zbw_afvv_c-ism03.
ippord_bw-ile03 = wa_zbw_afvv_c-ile03.
ippord_bw-vgw02 = wa_zbw_afvv_c-vgw02.
ippord_bw-vge02 = wa_zbw_afvv_c-vge02.
ippord_bw-isdd = wa_zbw_afvv_c-isdd.
ippord_bw-isdz = wa_zbw_afvv_c-isdz.
ENDIF.
*Pull first resource
READ TABLE i_afvc INTO wa_afvc
WITH KEY wa_zbw_afvv_c-aufpl.
IF sy-subrc = 0.
READ TABLE i_crhd INTO wa_crhd
WITH KEY objid = wa_afvc-arbid.
IF sy-subrc = 0.
ippord_bw-zzarbpl1 = wa_crhd-arbpl.
ENDIF. "read i_crhd
ENDIF. "read i_afvc
*Pull last resource
CLEAR: wa_afvc_d,
wa_crhd.
READ TABLE i_afvc_d INTO wa_afvc_d
WITH KEY wa_zbw_afvv_c-aufpl.
IF sy-subrc = 0.
READ TABLE i_crhd INTO wa_crhd
WITH KEY objid = wa_afvc_d-arbid.
IF sy-subrc = 0.
ippord_bw-zzarbpl2 = wa_crhd-arbpl.
ENDIF. "read i_crhd
ENDIF. "read i_afvc
ENDIF. "read i_afko
CLEAR v_objnr.
READ TABLE i_data_temp INDEX itabix.
SHIFT i_data_temp-aufnr LEFT BY 5 PLACES.
CONCATENATE 'OR00000' i_data_temp-aufnr INTO v_objnr.
TECO Status
READ TABLE i_jest INTO wa_jest
WITH KEY objnr = v_objnr
stat = 'I0045'.
IF sy-subrc = 0.
ippord_bw-zzteco = 'X'.
ENDIF.
Deletion Flag Status
READ TABLE i_jest INTO wa_jest
WITH KEY objnr = v_objnr
stat = 'I0076'.
IF sy-subrc = 0.
ippord_bw-zzdlfl = 'X'.
ENDIF.
Delivered Status
READ TABLE i_jest INTO wa_jest
WITH KEY objnr = v_objnr
stat = 'I0012'.
IF sy-subrc = 0.
ippord_bw-zzdlv = 'X'.
ENDIF.
MODIFY i_t_data FROM ippord_bw INDEX itabix.
ENDLOOP.
refreshes content of internal table
REFRESH: i_data_temp,
i_afko,
i_afpo,
i_afvc,
i_afvc_d,
i_jest,
i_zbw_afvv_c.
frees up the memory space containing the internal table
FREE: i_data_temp,
i_afko,
i_afpo,
i_afvc,
i_afvc_d,
i_jest,
i_crhd.Also this select could be improved:
* retrieves Work Center based on the arbid selected from afvc table
SELECT objid "Object ID of the resource
arbpl " Work Center
FROM crhd
INTO TABLE i_crhd
FOR ALL ENTRIES IN i_afvc
WHERE objid = i_afvc-arbid.
IF sy-subrc = 0.
ENDIF.
Try:
* retrieves Work Center based on the arbid selected from afvc table
SELECT objid "Object ID of the resource
arbpl " Work Center
FROM crhd
INTO TABLE i_crhd
FOR ALL ENTRIES IN i_afvc
<b>WHERE OBJTY in ('A', 'AA', 'FH', 'H')</b>
WHERE objid = i_afvc-arbid.
IF sy-subrc = 0.
ENDIF. -
Purchase requistion number and line item number linkage with work order opr
Hello,
I want to know what is the link between Purchase requisition number along with its line item number with work order operation number.
For the non stock component assign to Work order operation ( say operation 10) the PR get generated for that component which assign to that operation .
in which table we can find that PR as input and output as Work order number along with its operation .
In AFVC table if we put PR as input then it does not show any entry for that PR number?
Regards
VaibhavHI Vaibhav,
If you have the Work Order Number AUFNR, then you can get AUFPL from AFKO.
Then Pass AUFPL to AFVC table to get BANFN(Purchase requisition number) and BNFPO(Item number of the purchase requisition in the order).
Regards,
Ravi -
Problem in SAVE_TEXT usage
I am facing problem in displaying the Long text in Open Maintenance orders IW31 Sscreen.
i am uploading the long text using SAVE_TEXT function module.
i can see the data in STXL table but i am not able to see the data on the transaction screen display or change mode.
I am using correct object name ,id and etc..in header table objectid: AUFK, TEXTID: AVOT ,tdname:clintidroutingnumber(afvc table aufpl field sequence(like 0001.. ), language: EN.
Text line also i am passing and i am enering the direct saving mpde.
i am getting sy-subrc eq = 0.
and i am able to get the data by READ_TEXT table.
my problem is why the Long text data is not diaplying on the scrreen(TEXT editor).
same thing happening in COmponents LONG TEXT in the same TCODE
Please Help me.Hi Srinivas,
I've been facing similar problem.I followed the procedure that you've mentioned , but still couldn't display the long text on the transaction IW32.I've attaching the code as well.
*& Include ZXWO1U05
DATA:text_object_name LIKE stxh-tdname.
DATA: BEGIN OF ltxt_lines OCCURS 0.
INCLUDE STRUCTURE tline.
DATA: END OF ltxt_lines.
DATA:p_object LIKE thead-tdobject VALUE 'AUFK',
p_name LIKE thead-tdname,
p_language LIKE thead-tdspras VALUE 'E',
p_type LIKE thead-tdid VALUE 'KOPF',
p_header LIKE thead .
TYPES: BEGIN OF lt_edit_line,
line LIKE rssource-line, "c(72)
END OF lt_edit_line.
DATA lt_edit_table TYPE TABLE OF lt_edit_line.
DATA:ls_efindpar TYPE efindpar.
DATA:t_trace TYPE TABLE OF ewffndtrac,
t_result TYPE TABLE OF efindres.
TYPES:BEGIN OF ty_eablg,
ablbelnr TYPE ablbelnr,
anlage TYPE anlage,
ablesgr TYPE ablesgr,
ableinh TYPE ableinh,
adatsoll TYPE adatsoll,
END OF ty_eablg.
DATA:t_eablg TYPE TABLE OF ty_eablg,
ls_edit_table TYPE c LENGTH 132.
FIELD-SYMBOLS:<fs_eablg> TYPE ty_eablg,
<fs_trace> TYPE ewffndtrac.
CONSTANTS:lc_instln TYPE efindres-objtype VALUE 'INSTLN'.
CONSTANTS:lc_period TYPE ablesgr VALUE '01',
lc_moveout TYPE ablesgr VALUE '03',
lc_movein TYPE ablesgr VALUE '06'.
CALL FUNCTION 'CO_ZK_TEXTKEY_CAUFV' "Gets me the thead-tdname
EXPORTING
aufnr = caufvd_imp-aufnr
IMPORTING
ltsch = text_object_name.
p_name = text_object_name.
CALL FUNCTION 'READ_TEXT'
EXPORTING
language = p_language
id = p_type
name = p_name
object = p_object
IMPORTING
header = p_header
TABLES
lines = ltxt_lines
EXCEPTIONS
id = 01
language = 02
name = 03
not_found = 04
object = 05
reference_check = 06.
IF sy-subrc IS INITIAL.
REFRESH lt_edit_table.
ENDIF.
ls_efindpar-l_devloc = caufvd_imp-tplnr.
*get the installation
CALL FUNCTION 'ISU_FINDER'
EXPORTING
x_objtype = lc_instln
x_findpar = ls_efindpar
TABLES
yt_result = t_result
yt_trace = t_trace
EXCEPTIONS
insufficient_selection = 1
objtype_not_supported = 2
additional_selection_needed = 3
OTHERS = 4.
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
*get the 13 meter reads.
DATA:lv_calc_date TYPE bkpf-bldat,
lv_tabix TYPE sy-tabix,
lv_text(100) TYPE c.
CONSTANTS:lc_read TYPE bseg-dtws2 VALUE '13'.
CALL FUNCTION '/SAPHT/DRM_CALC_DATE'
EXPORTING
date = sy-datum
days = '00'
months = lc_read
sign = '-'
years = '00'
IMPORTING
calc_date = lv_calc_date.
READ TABLE t_trace ASSIGNING <fs_trace> WITH KEY objtype = lc_instln.
IF sy-subrc = 0.
SELECT ablbelnr anlage ablesgr ableinh adatsoll
FROM eablg
INTO TABLE t_eablg
WHERE anlage = <fs_trace>-objkey
AND adatsoll BETWEEN lv_calc_date AND sy-datum
AND ( ablesgr = lc_period OR ablesgr = lc_moveout OR ablesgr = lc_movein ).
IF sy-subrc = 0.
LOOP AT t_eablg ASSIGNING <fs_eablg>.
AT FIRST .
CONCATENATE ls_edit_table 'MR unit ' INTO ls_edit_table SEPARATED BY space.
CONCATENATE ls_edit_table 'Installation ' INTO ls_edit_table SEPARATED BY space.
CONCATENATE ls_edit_table 'MRU reason ' INTO ls_edit_table SEPARATED BY space.
CONCATENATE ls_edit_table 'Scheduled MR Dt ' INTO ls_edit_table SEPARATED BY space.
APPEND ls_edit_table TO lt_edit_table.
ENDAT.
CLEAR: ls_edit_table.
CLEAR lv_text.
lv_text = <fs_eablg>-adatsoll.
CONCATENATE lv_text ' ' ls_edit_table INTO ls_edit_table SEPARATED BY space.
CLEAR lv_text.
lv_text = <fs_eablg>-ablbelnr.
CONCATENATE lv_text ' ' ls_edit_table INTO ls_edit_table SEPARATED BY space.
CLEAR lv_text.
lv_text = <fs_eablg>-anlage.
CONCATENATE lv_text ' ' ls_edit_table INTO ls_edit_table SEPARATED BY space.
CLEAR lv_text.
lv_text = <fs_eablg>-ableinh.
CONCATENATE lv_text ' ' ls_edit_table INTO ls_edit_table SEPARATED BY space.
APPEND ls_edit_table TO lt_edit_table.
CLEAR: ls_edit_table,lv_text.
ENDLOOP.
ENDIF.
ENDIF.
TYPES:BEGIN OF ty_elev,
anlage TYPE anlage,
vstelle TYPE vstelle,
vbsart TYPE vbsart,
eigent TYPE e_gpartner,
END OF ty_elev.
DATA:t_elev TYPE TABLE OF ty_elev.
FIELD-SYMBOLS:<fs_elev> TYPE ty_elev.
IF t_eablg IS NOT INITIAL.
SELECT elanlage evvstelle evvbsart eveigent
FROM eanl AS el
INNER JOIN evbs AS ev
ON elvstelle = evvstelle
INTO TABLE t_elev
FOR ALL ENTRIES IN t_eablg
WHERE el~anlage = t_eablg-anlage.
ENDIF.
LOOP AT t_elev ASSIGNING <fs_elev>.
AT FIRST.
ls_edit_table = 'Premise'.
CONCATENATE ls_edit_table 'Premise Type' 'Owner Allc' INTO ls_edit_table SEPARATED BY space.
APPEND ls_edit_table TO lt_edit_table.
CLEAR ls_edit_table.
ENDAT.
ls_edit_table = <fs_elev>-eigent.
CONCATENATE ls_edit_table <fs_elev>-vbsart <fs_elev>-vstelle INTO ls_edit_table SEPARATED BY space.
APPEND ls_edit_table TO lt_edit_table.
CLEAR ls_edit_table.
ENDLOOP.
LOOP AT lt_edit_table INTO ltxt_lines-tdline.
ltxt_lines-tdformat = '*'.
APPEND ltxt_lines.
ENDLOOP.
if p_header is not initial.
CALL FUNCTION 'SAVE_TEXT'
EXPORTING
CLIENT = SY-MANDT
header = p_header
INSERT = 'X'
SAVEMODE_DIRECT = 'X'
OWNER_SPECIFIED = ' '
LOCAL_CAT = ' '
IMPORTING
FUNCTION =
NEWHEADER =
tables
lines = ltxt_lines
EXCEPTIONS
ID = 1
LANGUAGE = 2
NAME = 3
OBJECT = 4
OTHERS = 5
IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
else.
UPDATE AUFk SET ltext = 'X' where aufnr = caufvd_imp-aufnr .
ENDIF.
else.
p_header-tdobject = p_object.
p_header-tdname = p_name.
p_header-tdspras = p_language.
p_header-tdid = p_type.
p_header-TDFUSER = sy-uname.
p_header-TDFRELES = '701'.
p_header-TDFDATE = sy-datum.
p_header-TDFTIME = sy-uzeit.
CALL FUNCTION 'SAVE_TEXT'
EXPORTING
CLIENT = SY-MANDT
header = p_header
INSERT = 'X'
SAVEMODE_DIRECT = 'X'
OWNER_SPECIFIED = ' '
LOCAL_CAT = ' '
IMPORTING
FUNCTION =
NEWHEADER =
tables
lines = ltxt_lines
EXCEPTIONS
ID = 1
LANGUAGE = 2
NAME = 3
OBJECT = 4
OTHERS = 5
IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
else.
UPDATE AUFk SET ltext = 'X' where aufnr = caufvd_imp-aufnr .
endif.
endif.
CALL FUNCTION 'COMMIT_TEXT'
EXPORTING
OBJECT = p_object
NAME = p_name
ID = p_type
LANGUAGE = 'E'
SAVEMODE_DIRECT = 'X'
KEEP = ' '
LOCAL_CAT = ' '
IMPORTING
COMMIT_COUNT =
TABLES
T_OBJECT =
T_NAME =
T_ID =
T_LANGUAGE =
Kindly request you to provide a suitable solution at your earliest convenience.
Thanks,
Chakram Govindarajan
Maybe you are looking for
-
Setting up a PIX-PIX VPN with Dynamic and Static IP's
Hey everyone.. I'm recently working to deploy two PIx-506E devices at a remote site and at my home. I want to be able to connect these together and eventually create a spoke and hub method of deployment to keep several of the places I manage separate
-
BPC 10.0 NW - Black data cells
Hello experts, we experienced quite a strange behaviour of our BPC webreports. Some of our reports show black data cells (see screenshot below). The same reports executed in BPC for Excel look perfect. [Screenshot|http://img131.imagevenue.com/img.php
-
Oracle Portal 3.0 for NT installation problems.. HELP!!!
this is what shows up when I try to access my portal page: Call to WPG_SESSION API Failed. Error-Code:6550 Error TimeStamp:Wed, 06 Dec 2000 19:09:23 GMT Database Log In Failed TNS is unable to connect to destination. Invalid TNS address supplied or d
-
Order in where clause - SQL statement
Hi, The order of the fields in Where clause in OpenSQL statements is important to get the right index? Select a b c from t1 where d = p_d and e = p_e Or Select a b c from t1 where e = p_e and d = p_d Index: columns e and d. Thanks !
-
Best way to generate one record per day from a table with eff/exp dates
Hi, Have a table which has various attributes and an eff and exp date. e.g attributea, 01/05/2012, 16/05/2012 We wish to create another table from this table to have one record per day. e.g 16 records. What is best way to achieve this in OWB ? Thanks