Number Items Sometimes Given A Default Aggregate Of NONE
I'm using Discoverer 10g (10.1.2.0). After incorporating an Oracle table into an EUL, I notice that several of the number type columns are given a default aggregate of <NONE> as well as the default position of TOP. And other number type columns in the same table are defaulted to SUM and DATA POINT, respectively. I have to go into the properities box and manually change these
number type columns to SUM and DATA POINT in order for them to be aggregated properly in a workbook. Why does Discoverer do this? It seems to be a random thing. There is nothing unusual between these number type columns. In fact, in the underlying table all of these columns have the data type of NUMBER.
Has anyone an idea as to why this is happening? Thank you.
AS3 requires default values to be simple "compile-time constants". The typical workaround for a case like this is to do
function myFunction(arg1:MyObject = null):void
if (!arg1)
arg1 = new MyObject(0, 0, 0);
Gordon Smith
Adobe Flex SDK Team
Similar Messages
-
GL account given in Default Settings for Items is not taking precedence
Hi All,
Could you please give your valuable inputs for my query
Which takes precedence....GL account given in Default Settings for Items at the top of the shop screen or the Product category and GL account assignment maintained in SRM GUI?
Scenario: I input a GL account in 'Default Settings for Items' at the top of the shop screen. Then click on Describe Requirements. Here I change the Product Category and add the line item to shopping cart.
What GL account will appear in the cost assignment? Default value maintained at the top or the value maintained in the Product category table.
Thanks
Deepthi....Hi Muthu,
Thank you for your response.
It is not picking the default G/L account assigned to cost center( I believe you are talking abt OKB9 trans). It is picking the G/L account which is assigned to the product category in the customising. This is happenning only if the product category is changed for the line item while adding the item to shopping cart. Otherwise the same G/L account given at the header is appearing in the line item too.
Also While changing the G/L# information in Default settings for items at top, if Cost center is also changed then the same cost center is appearing in the cost assignment section for the line item but not the G/L.
Wanted to know if this is a standard design or not. I would like to have the header data to take precedence over the product category and G/L assignment. Any suggestions please
No ..... I checked in csks table.There are many cost centers for the company code.
Thanks
Deepthi.. -
Help: How to add a library item to hide the default Window menu
Hi,
In this post: Help: How to add a library item to hide the default Window menu, it described how to create an menu that will hide the default window menu.
I'd like to know if there a way to put this component into library so that others can directly inherit this menu in other FORMS and how to implement it.
JimmyHi,
I found the solution and the post was not properly phrased. There is no need to add menu into library. All we need is to put the compiled menu into Oracle AS and add the menu name the menu module of the given form.
Thanks.
Jimmy -
Re : Restrict the number items in Billing
hI
How to restrict the number items in Billing ? For Example No. of item in billing is maximum 5. Suppose our delivery document contains 7 items then I need first 5 in one invoice and remaining in another invoice. How to do this?.
Thanks
maniHi,
Go to SPRO>>>IMG>>>Sales & Distribution>>>Billing>>>Billing Documents>>>Country-specific features>>>Maintain Maximum No. Of Billing Items.
This is where you can define a maximum number of items allowed for all billing documents within a given sales organization.
However, maintaining data here is not enough alone to bring about a billing split by number of billing items.
You must also go to copying control for order/delivery to billing document at item level under "Data VBRK/VBRP" and maintain routine 006 "individual invoice limited" or a similar routine that accesses the data maintained here.
Thanks -
I AM HAVING ISSUES GETTING MY NEW ADOBE PHOTOSHOP ELEMENTS 12 TO ACCEPT THE SERIAL NUMBER IT HAS GIVEN ME. SEVERAL MONTHS AGO I FINALLY MANAGED TO FIND THE ONLINE HELP AND THEY SPENT AN HOUR OR SO TRYING TO HELP ME AND THEN WHEN I WENT TO USE IT AGAIN AND SIGN IN IT WAS THE SERIAL NUMBER AGAIN AND SAYS IT DOES WORK. I NEED HELP. I'VE HAD THIS FOR NEARLY A YEAR AND CAN'T USE IT.
Error "The serial number is not valid for this product" | Creative Suite
if that fails to help you click 'still need help' at adobe support, https://helpx.adobe.com/contact.html -
Can we use same item category as a default in both scenarios(Sales and STO)
Dear Friends,
can any one help m for the following
shall we go with same item category as a default in both scenarios (Sales and STO) if yes please guid me how to go ahead.
Regards
NischalHi,
I am bit confused here Sales item categories are different and STO is come in MM module & in mm item categories are diffrent.
Can you explain from which point of view you considering STO
kapil -
Statusrecord 37:Sender partner number in control record is default
Hi all
I am sending MATMAS data from one R/3 to another R/3 in ALE.
when i am testing it from we19..... I'm the data is not sent insted it is being saved in database.
In WE05 I can see the following error.... and the lights are green.
statusrecord 37:Sender partner number in control record is default
Please help me
Thankyou
SIMONHi Joergen,
we also have similar problem to send out ordrsp. Could you tell me how to solve this problem as I saw tht this problem of yours has been answered.
Thanks inadvance for your reply,
Lily -
EA608 EDI: Sender partner number in control record is default
We have created some KU partners in WE20 for sending billing documents to the SD bill-to partner but is running into an output error EA608 (EDI: Sender partner number in control record is default) on the billing document when trying to create IDOC's.
Settings on partner:
Partner: 12345
Partner type: KU
Partner function: BP
Message type: INVOIC
Application: V3 : Billing
Output type: ZEDI : US EDI Invoice
Process code: SD09 : INVOIC: Invoic
EDI Standard X
Message type 810
Version 004010
Any idea to what the problem is?
BR
JoergenHi Joergen,
we also have similar problem to send out ordrsp. Could you tell me how to solve this problem as I saw tht this problem of yours has been answered.
Thanks inadvance for your reply,
Lily -
EDI: Sender partner number in control record is default
Hello!
Another problem... in SUS - MM, Plan Driven Procurement
I try to send PO from MM to SUS. But in the messages I get following
error: "EDI: Sender partner number in control record is default"
Message no. EA608
SAP Note Number: 111342 doesn't help
the logical systems are maintained!
Any idea about this problem?
Kind regards,
BarbaraIf this is in regards to an ASN: Check to see if this customer buys several divisions or is relevant for one division only. In our instance of SAP, we found that it didn’t go to the Customer Master division setup relevant to the division on the ASN to get the ACCT AT CUST field, it went to the first in the sequence of divisions and got that ACCT AT CUST field information. That information was not filled out as it was a new division and that is what kept the output from happening. For example: we had divison 02, 04, 06 and 08. We added division 03 and extended all customers to division 03. Those customers that only bought division 04 just stopped sending ASNS. The ASN was for division 04, but SAP logic was retrieving the ACCT AT CUST information (SALES tab, not CORRESPONDENCE tab) for divison 03, but we didn’t have that filled out.
Hope that helps. -
BOM item and Serial number item in Delivery through DI
Hi Guys,
When I create a delivery with one ore more sales-bom items and one ore more serial number items and I add one ore more sales-bom items before one of the serial number items the creation of the delivery goes wrong with the following error: "You should use existing serial/batch numbers for this document type [الرسالة 29-51]"
when I add all the seriail number items before the sales-bom items the delivery is created perfectly.
Has anyone seen this error?
It happens at least from SBO 9 PL08 and higher.
Thanks
Ad KerremansHi Ad!
Thank you for your reply.
Did you try a BOM item which components need serial numbers?
I opened a ticket SAP B1: How to create a delivery with BOM items and serials numbers
Would you mind to take a look and give me some advice?
Billy -
Camel Query : Calender list : Get Items agains given date that must be greater than and eqaul to start date and greater less than or equal to end date ?
A Snap of Employee holiday list
Case : Anne juul Sondergaar is on leave from 05-06-2014 to 07-06-2014
I need a query to check wheither Anne juul is on leave at 06-06-2014 ????
I am using this query that return nothing
SPQueryquery =
newSPQuery();
query.Query =
@"<Where>
<And>
<And>
<Leq>
<FieldRef Name='Til' />
<Value Type='DateTime'>"
+ WorkingStartDate.ToString("yyyy-MM-dd")
+ @"</Value>
</Leq>
<Geq>
<FieldRef Name='Fra' />
<Value Type='DateTime'>"
+ WorkingStartDate.ToString("yyyy-MM-dd")
+ @"</Value>
</Geq>
</And>
<Eq>
<FieldRef Name='Medarbejdere' />
<Value Type='Lookup'>"
+ EmployeeName.Trim() +
@"</Value>
</Eq>
</And>
</Where>"
query.ViewFields =
" <FieldRef Name='ID' />";
Ahsan RanjhaHello,
Download CAML query builder from below location and use it to build your query:
http://social.msdn.microsoft.com/Forums/sharepoint/en-US/f7b36ebc-6142-404a-8b04-9c87de272871/where-can-i-download-the-u2u-caml-query-builder-for-sharepoint-2010may-i-know-the-exact-link?forum=sharepointgeneralprevious
Hemendra:Yesterday is just a memory,Tomorrow we may never see
Please remember to mark the replies as answers if they help and unmark them if they provide no help -
Generate delivery items for packaging materials but aggregate in one line
Hy, we have a requirement for delivery process, we have WM and we make picking by RF, and automatic generate items for packaging materials, but one line per pallet and the deliveries have a lot of line items that we want to aggregate in only one line item, instead of having for e.g. 30 lines with one pallet we need to have one line item with quantity 30.
can you help us,
Thanks in advance.
jonhHi,
You can very well achieve this by usinh a spilt routine in your copy control from sales document to delivery document.
Goto tcode: VOFM - Data transfer - deliveries.
For this you need to write a routine with the help of your ABAPer & to include logic something like this:
You have to identify some unique feild in the two material or even the material code itself.
Then in the routine logic, you pass this feilds in the combination criterai field in delivery that is "ZUKRL"
Then in copy control sales doc to delivery: you attach this routine in header details in data transfer "Header Data"
See the code below for your help:
SELECT SINGLE PRAT1 PRAT2 PRAT3 PRAT4 PRAT5 INTO (MVKE-PRAT1,MVKE-PRAT2,MVKE-PRAT3,MVKE-PRAT4,MVKE-PRAT5) FROM MVKE
WHERE MATNR = CVBAP-MATNR
AND VKORG = CVBAK-VKORG
AND VTWEG = CVBAK-VTWEG.
IF NOT MVKE-PRAT1 IS INITIAL.
ZUK1-C+0(1) = 'O'. "FOR OIL
*LIKP-ZUKRL = ZUK1.
ENDIF.
IF NOT MVKE-PRAT2 IS INITIAL.
ZUK1-C+0(1) = '1'. " FOR FRAGILE 1
*LIKP-ZUKRL = ZUK1.
ENDIF.
IF NOT MVKE-PRAT3 IS INITIAL.
ZUK1-C+0(1) = 'N'. " FOR NON FRAGILE
LIKP-ZUKRL = ZUK1.
ENDIF.
IF NOT MVKE-PRAT4 IS INITIAL.
ZUK1-C+0(1) = '2'. " FOR FRAGILE 2
LIKP-ZUKRL = ZUK1.
ENDIF.
IF NOT MVKE-PRAT5 IS INITIAL.
ZUK1-C+0(1) = 'B'. " FOR BULK / OVERWEIGHT
LIKP-ZUKRL = ZUK1.
ENDIF.
LIKP-ZUKRL = ZUK1.
CONDENSE LIKP-ZUKRL NO-GAPS.
endif.
Hope this helps you
Regards,
Dhananjay -
Finding an idoc number from a given sales document
hi,
please send me the code for the finding idoc number for a given sales document.
it is urgent............
thanks in advance..........I written the code to find the idoc number for given Purchase order number,so you can change the code depends on your requirement
TYPE-POOLS: slis.
tables : edid4 , edidc ,edids ,lfa1,teds2.
DATA: t_fieldcatalog TYPE slis_t_fieldcat_alv.
DATA: s_fieldcatalog TYPE slis_fieldcat_alv.
DATA: s_layout TYPE slis_layout_alv.
DATA: text11 LIKE E1EDP02.
DATA: text111 LIKE E1MBXYI.
DATA: s_keyinfo TYPE slis_keyinfo_alv.
DATA: v_repid TYPE syrepid.
DATA: V_MSGNO LIKE T100-MSGNR.
*DATA: V_TEXT(90).
DATA : WA_EDIDS TYPE EDIDS.
data : begin of itab_edids occurs 0,
user like edids-UNAME,
date like edids-CREDAT,
time like edids-cretim,
idoc like edids-docnum,
MESSAGETYPE like edidc-MESTYP,
VENDOR LIKE EDIDC-SNDPRN,
name like lfa1-name1,
icon(1),
EXPAND TYPE C,
end of itab_edids.
data : itab type edid4.
data : begin of itab_edidc occurs 0,
doc_num like edidc-docnum,
MESSAGETYPE like edidc-MESTYP,
IDOCTYPE like edidc-DOCTYP,
PARTNERNUMBER like edidc-RCVPRN,
PARTNERTYPE like edidc-RCVPRT,
MESSAGECODE like edidc-MESCOD,
VENDOR LIKE EDIDC-SNDPRN,
data like edidc-credat,
*include structure edidc.
end of itab_edidc.
data : begin of itab_status occurs 0,
idoc like edids-docnum,
date_stauus like edids-logdat,
status_counter like edids-countr,
staTus like edids-status,
*descrp like teds2-descrp,
DESCRP(70),
ponumber like ekpo-ebeln,
MESS LIKE edidc-MESTYP,
*appdoc like edids-stapa1,
end of itab_status.
data : text like edid4-sdata.
DATA: text1 LIKE E1EDK01.
data : begin of itab_teds1 occurs 0.
include structure teds1.
data end of itab_teds1.
*selection-screen begin of block sb with frame title text-001.
*select-options:
s_rsdat for edidc-CREDAT.
*selection-screen end of block sb.
DATA: f_fieldcatalog TYPE slis_fieldcat_alv.
selection-screen begin of block sb with frame title text-001.
parameters:
p_su radiobutton group gp1,
p_re radiobutton group gp1,
p_al radiobutton group gp1.
select-options:
s_rsdat for edids-creDAT,
s_user for edids-uname.
selection-screen end of block sb.
initialization.
PERFORM INITIALIZATION.
start-of-selection.
PERFORM DATA_RETRIVAL.
PERFORM DATA_BASED_SELECTION.
PERFORM PASSING_ALV.
*select docnum mestyp doctyp rcvprn rcvprt mescod credat into
*table itab_edidc from edidc
*where credat in s_rsdat.
*CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
*EXPORTING
*i_program_name = v_repid
*I_INTERNAL_TABNAME = 'ITAB_STATUS'
*CHANGING
*ct_fieldcat = t_fieldcatalog.
*CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
*EXPORTING
*i_program_name = v_repid
*I_INTERNAL_TABNAME = 'ITAB_EDIDS'
*CHANGING
*ct_fieldcat = t_fieldcatalog.
s_LAYOUT-ZEBRA = 'X'.
*s_LAYOUT-SUBTOTALS_TEXT = 'SUBTOTAL'.
*s_LAYOUT-TOTALS_TEXT = 'TOTAL'.
*& Form INITIALIZATION
text
--> p1 text
<-- p2 text
FORM INITIALIZATION.
V_REPID = SY-REPID.
s_keyinfo-header01 = 'IDOC'.
s_keyinfo-item01 = 'IDOC'.
*s_layout-subtotals_text = 'SUBTOTAL TEXT'.
*s_layout-key_hotspot = 'X'.
*s_layout-expand_fieldname = 'EXPAND'.
CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
EXPORTING
i_program_name = V_REPID
I_INTERNAL_TABNAME = 'ITAB_STATUS'
I_INCLNAME = V_repid
CHANGING
ct_fieldcat = T_fieldcatalog
EXCEPTIONS
INCONSISTENT_INTERFACE = 1
PROGRAM_ERROR = 2
OTHERS = 3.
CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
EXPORTING
i_program_name = V_REPID
I_INTERNAL_TABNAME = 'ITAB_EDIDS'
I_INCLNAME = V_repid
CHANGING
ct_fieldcat = T_fieldcatalog
EXCEPTIONS
INCONSISTENT_INTERFACE = 1
PROGRAM_ERROR = 2
OTHERS = 3.
f_fieldcatalog-just = 'L'.
MODIFY t_fieldcatalog FROM f_fieldcatalog
TRANSPORTING just
WHERE ( fieldname = 'IDOC' OR FIELDNAME = 'STATUS_COUNTER' ).
f_fieldcatalog-SELTEXT_L = 'Status Message'.
MODIFY t_fieldcatalog FROM f_fieldcatalog
TRANSPORTING SELTEXT_L
WHERE fieldname = 'DESCRP'.
f_fieldcatalog-TECH = 'X'.
MODIFY t_fieldcatalog FROM f_fieldcatalog
TRANSPORTING TECH
WHERE fieldname = 'EXPAND'.
f_fieldcatalog-REPTEXT_DDIC = 'Vendor Name'.
MODIFY t_fieldcatalog FROM f_fieldcatalog
TRANSPORTING REPTEXT_DDIC
WHERE fieldname = 'NAME'.
*f_fieldcatalog-REPTEXT_DDIC = 'V Code 32122'.
*MODIFY t_fieldcatalog FROM f_fieldcatalog
*TRANSPORTING REPTEXT_DDIC
*WHERE fieldname = 'VENDOR'.
ENDFORM. " INITIALIZATION
*& Form DATA_RETRIVAL
text
--> p1 text
<-- p2 text
FORM DATA_RETRIVAL.
select uname credat cretim docnum into table
itab_edids from edids
where credat in s_rsdat and
uname in s_user and
countr = ' '.
select uname credat cretim docnum from edids
*APPENDING CORRESPONDING FIELDS OF TABLE itab_edids
where logdat in s_rsdat and
uname in s_user.
SELECT budat hkont belnr shkzg wrbtr FROM bsas
*APPENDING CORRESPONDING FIELDS OF TABLE it_temp WHERE hkont = w_glacct
*"wa_cb-gl_account
*AND bukrs IN (so_bukrs-low)
*AND budat < so_date-low.
delete adjacent duplicates from itab_edids.
if not itab_edids[] is initial.
select docnum mestyp doctyp rcvprn rcvprt mescod SNDPRN credat into
table itab_edidc from edidc for all entries in itab_edids
where docnum = itab_edids-idoc.
endif.
LOOP AT ITAB_edids.
READ TABLE ITAB_EDIDC WITH KEY DOC_NUM = ITAB_EDIDS-IDOC.
itab_edids-messagetype = ITAB_EDIDC-MESSAGETYPE.
itab_edids-VENDOR = ITAB_EDIDC-VENDOR.
MODIFY ITAB_EDIDS.
CLEAR ITAB_EDIDS.
ENDLOOP.
DELETE ITAB_EDIDC WHERE MESSAGETYPE = 'ORDERS'.
loop at itab_edids.
read table itab_edidc with key doc_num = itab_edids-idoc.
if sy-subrc ne 0.
delete itab_edids.
endif.
endloop.
select docnum logdat countr status into table itab_status from edids for
all entries in itab_edidc where docnum = itab_edidc-doc_num.
LOOP AT ITAB_STATUS.
READ TABLE ITAB_EDIDC WITH KEY DOC_NUM = ITAB_STATUS-IDOC.
ITAB_STATUS-MESS = ITAB_EDIDC-MESSAGETYPE.
MODIFY ITAB_STATUS.
CLEAR ITAB_STATUS.
ENDLOOP.
loop at itab_status.
clear : text ,text1 , text11, text111, itab.
select single descrp from teds2 into itab_status-descrp
where status = itab_status-STATUS AND
LANGUA = 'E'.
select single sdata into text from edid4 where
DOCNUM = itab_status-idoc and
segnam = 'E1EDK01'.
*MOVE: text TO text1,
text1-BELNR TO itab_status-ponumber.
itab_status-ponumber = text1-belnr.
move text+83(30) to itab_status-ponumber.
MODIFY ITAB_STATUS.
clear itab_status.
IF itab_status-MESS = 'WMMBXY'.
select single * from edid4 INTO ITAB where segnam = 'E1MBXYI' AND
HLEVEL = '02' AND DOCNUM = itab_status-idoc.
MOVE : ITAB-SDATA TO TEXT111 ,
text111-EBELN TO itab_status-ponumber.
**text1-BELNR TO ponumber.
ELSE.
select single * from edid4 INTO ITAB where segnam = 'E1EDP02' AND
HLEVEL = '03' AND DOCNUM = itab_status-idoc.
MOVE : ITAB-SDATA TO TEXT11 ,
*text1-EBELN TO ponumber.
text11-BELNR TO itab_status-ponumber.
endif.
MODIFY ITAB_STATUS.
clear itab_status.
endloop.
ENDFORM. " DATA_RETRIVAL
*& Form PASSING_ALV
text
--> p1 text
<-- p2 text
FORM PASSING_ALV.
s_LAYOUT-EXPAND_FIELDNAME = 'EXPAND'.
DATA: t_events TYPE slis_t_event.
DATA: s_events LIKE LINE OF t_events.
s_events-form = 'TOP_OF_PAGE'.
s_events-name = 'TOP_OF_PAGE'.
APPEND s_events TO t_events.
s_layout-lights_fieldname = 'ICON'.
sort itab_status by status_counter descending. " -
mod3
CALL FUNCTION 'REUSE_ALV_HIERSEQ_LIST_DISPLAY'
EXPORTING
i_callback_program = v_repid
is_layout = s_layout
it_fieldcat = t_fieldcatalog
i_callback_user_command = 'USER_COMMAND'
i_tabname_header = 'ITAB_EDIDS'
i_tabname_item = 'ITAB_STATUS'
IT_EVENTS = t_events
is_keyinfo = s_keyinfo
TABLES
t_outtab_header = itab_EDIDS
t_outtab_item = itab_STATUS
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. " PASSING_ALV
*& Form DATA_BASED_SELECTION
text
--> p1 text
<-- p2 text
FORM DATA_BASED_SELECTION.
if p_su eq 'X'.
*loop at itab_status where status = '53'.
*select single stapa1 from edids into itab_status-appdoc
where docnum = itab_status-idoc and status = '53'.
*delete itab_status where status ne '53'.
*modify itab_status.
*endloop.
delete itab_status where status ne '53'.
loop at itab_edids.
read table itab_status with key idoc = itab_edids-idoc binary search.
if sy-subrc ne 0.
delete itab_edids.
ELSE.
*SHIFT ITAB_EDIDS-IDOC LEFT DELETING LEADING '0'.
MODIFY ITAB_EDIDS.
endif.
endloop.
LOOP AT ITAB_STATUS WHERE MESS NE 'WMMBXY'.
SELECT SINGLE * FROM EDIDS INTO WA_EDIDS WHERE DOCNUM = ITAB_STATUS-IDOC
AND COUNTR = ITAB_STATUS-STATUS_COUNTER.
IF WA_EDIDS-STATXT CA '&'.
V_MSGNO = WA_EDIDS-STAMNO.
IF V_MSGNO NE '000'. "----mod3
CALL FUNCTION 'MESSAGE_PREPARE'
EXPORTING
msg_id = WA_EDIDS-STAMID
msg_no = V_MSGNO
MSG_VAR1 = wa_edids-stapa1
MSG_VAR2 = WA_EDIDS-STAPA2
MSG_VAR3 = WA_EDIDS-STAPA3
MSG_VAR4 = WA_EDIDS-STAPA4
IMPORTING
MSG_TEXT = itab_status-descrp.
CONDENSE ITAB_STATUS-DESCRP.
ENDIF."---- mod3
ELSE .
ITAB_STATUS-DESCRP = WA_EDIDS-STATXT.
ENDIF.
*SHIFT ITAB_STATUS-IDOC LEFT DELETING LEADING '0'.
*SHIFT ITAB_STATUS-STATUS_COUNTER LEFT DELETING LEADING '0'.
MODIFY ITAB_STATUS.
ENDLOOP.
LOOP AT ITAB_STATUS WHERE MESS EQ 'WMMBXY'.
SHIFT ITAB_STATUS-IDOC LEFT DELETING LEADING '0'.
SHIFT ITAB_STATUS-STATUS_COUNTER LEFT DELETING LEADING '0'.
ITAB_STATUS-DESCRP = 'APPLICATION DOCUMENT POSTED'.
MODIFY ITAB_STATUS.
ENDLOOP.
delete adjacent duplicates from itab_edids comparing idoc.
elseif p_re eq 'X'.
loop at itab_status where status = '53'.
delete itab_edids where idoc = itab_status-idoc.
endloop.
loop at itab_status.
read table itab_edids with key idoc = itab_status-idoc binary search.
if sy-subrc ne 0.
delete itab_status.
endif.
endloop.
LOOP AT ITAB_STATUS.
SELECT SINGLE * FROM EDIDS INTO WA_EDIDS WHERE DOCNUM = ITAB_STATUS-IDOC
AND COUNTR = ITAB_STATUS-STATUS_COUNTER.
IF WA_EDIDS-STATXT CA '&'.
V_MSGNO = WA_EDIDS-STAMNO.
IF V_MSGNO NE '000'. "----mod3
CALL FUNCTION 'MESSAGE_PREPARE'
EXPORTING
msg_id = WA_EDIDS-STAMID
msg_no = V_MSGNO
MSG_VAR1 = WA_EDIDS-STAPA1
MSG_VAR2 = WA_EDIDS-STAPA2
MSG_VAR3 = WA_EDIDS-STAPA3
MSG_VAR4 = WA_EDIDS-STAPA4
IMPORTING
MSG_TEXT = itab_status-descrp.
CONDENSE ITAB_STATUS-DESCRP.
endif. "-----mod3
ELSE .
ITAB_STATUS-DESCRP = WA_EDIDS-STATXT.
ENDIF.
SHIFT ITAB_STATUS-IDOC LEFT DELETING LEADING '0'.
SHIFT ITAB_STATUS-STATUS_COUNTER LEFT DELETING LEADING '0'.
MODIFY ITAB_STATUS.
ENDLOOP.
LOOP AT ITAB_EDIDS.
SHIFT ITAB_EDIDS-IDOC LEFT DELETING LEADING '0'.
MODIFY ITAB_EDIDS.
ENDLOOP.
delete adjacent duplicates from itab_edids comparing idoc.
elseif p_al eq 'X'.
delete adjacent duplicates from itab_edids comparing idoc.
LOOP AT ITAB_STATUS." WHERE MESS NE 'WMMBXY'.
SELECT SINGLE * FROM EDIDS INTO WA_EDIDS WHERE DOCNUM = ITAB_STATUS-IDOC
AND COUNTR = ITAB_STATUS-STATUS_COUNTER.
IF WA_EDIDS-STATXT CA '&'.
V_MSGNO = WA_EDIDS-STAMNO.
IF V_MSGNO NE '000'. "----mod3
CALL FUNCTION 'MESSAGE_PREPARE'
EXPORTING
msg_id = WA_EDIDS-STAMID
msg_no = V_MSGNO
MSG_VAR1 = WA_EDIDS-STAPA1
MSG_VAR2 = WA_EDIDS-STAPA2
MSG_VAR3 = WA_EDIDS-STAPA3
MSG_VAR4 = WA_EDIDS-STAPA4
IMPORTING
MSG_TEXT = itab_status-descrp.
CONDENSE ITAB_STATUS-DESCRP.
endif. "----mod3
ELSE .
ITAB_STATUS-DESCRP = WA_EDIDS-STATXT.
ENDIF.
*SHIFT ITAB_STATUS-IDOC LEFT DELETING LEADING '0'.
*SHIFT ITAB_STATUS-STATUS_COUNTER LEFT DELETING LEADING '0'.
MODIFY ITAB_STATUS.
ENDLOOP.
endif.
LOOP AT ITAB_EDIDS.
if p_su EQ 'X'.
itab_edids-icon = '3'.
elseif p_re eq 'X'.
itab_edids-icon = '1'.
ELSE.
read table itab_sTATUS with key idoc = itab_EDIDS-idoc
STATUS = '53' ."binary search.
IF SY-SUBRC EQ 0.
itab_edids-icon = '3'.
ELSE.
itab_edids-icon = '1'.
ENDIF.
ENDIF.
select single name1 from lfa1 into itab_edids-name where
lifnr = itab_edids-vendor.
SHIFT ITAB_EDIDS-IDOC LEFT DELETING LEADING '0'.
MODIFY ITAB_EDIDS.
clear itab_edids.
ENDLOOP.
loop at itab_status.
SHIFT ITAB_STATUS-IDOC LEFT DELETING LEADING '0'.
SHIFT ITAB_STATUS-STATUS_COUNTER LEFT DELETING LEADING '0'.
if itab_status-descrp is initial.
select single descrp from teds2 into itab_status-descrp
where status = itab_status-STATUS AND
LANGUA = 'E'.
endif.
MODIFY ITAB_STATUS.
clear itab_status.
endloop.
sort itab_status by idoc.
sort itab_edids by idoc.
ENDFORM. " DATA_BASED_SELECTION
*& Form TOP_OF_PAGE
text
FORM TOP_OF_PAGE.
SKIP.
ULINE.
IF P_SU EQ 'X'.
WRITE : / 'TITLE : SUCCESSFULLY POSTED IDOC', 50 'DATE :', SY-DATUM..
ELSEIF P_RE EQ 'X'.
WRITE : / 'TITLE : REJECTED IDOCS' ,50 'DATE :', SY-DATUM.
ELSEIF P_AL EQ 'X'.
WRITE : / 'TITLE : ALL IDOCS' ,50 'DATE :', SY-DATUM.
ENDIF.
WRITE :/9 'Successful-Green light Unsuccessful-Red Light'.
format color COL_TOTAL intensified on.
WRITE : / 'NOTE : DOUBLE CLICK TO SEE CORREPONDING IDOC AND PO'.
WRITE :/9 'DOUBLE CLICK IDOC NO ON HEADER LIST'.
WRITE : 'AND PO NUMBER ON DETAIL LIST'.
format color off.
ULINE.
SKIP.
ENDFORM. "TOP_OF_PAGE
FORM user_command *
--> UCOMM *
--> SELFIELD *
FORM user_command USING ucomm LIKE sy-ucomm
selfield TYPE slis_selfield.
DATA: WA_IDOC9 LIKE EDIDC-DOCNUM.
DATA: SELTAB TYPE TABLE OF RSPARAMS,
SELTAB_WA LIKE LINE OF SELTAB.
RANGES : R_DATE FOR EDIDC-CREDAT." SY-DATUM.
IF ucomm = '&IC1'.
if SELFIELD-SEL_TAB_FIELD = 'ITAB_EDIDS-IDOC'.
READ TABLE itab_edids INDEX selfield-tabindex.
IF sy-subrc = 0.
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
EXPORTING
INPUT = ITAB_edids-IDOC
IMPORTING
OUTPUT = WA_IDOC9.
*r_date-low = itab_edids-date.
*r_date-high = itab_edids-date.
*r_date-SIGN = 'I'.
*r_date-OPTION = 'BT'.
*append r_date.
SUBMIT RSEIDOC2 WITH DOCNUM = wa_idoc9
WITH CREDAT in R_DATE[] AND RETURN.
ENDIF.
ELSEIF SELFIELD-SEL_TAB_FIELD = 'ITAB_STATUS-PONUMBER'.
READ TABLE itab_STATUS INDEX selfield-tabindex.
IF sy-subrc = 0.
SET PARAMETER ID 'BES' FIELD itab_sTATUS-PONUMBER.
CALL TRANSACTION 'ME23N' AND SKIP FIRST SCREEN.
ENDIF.
ENDIF.
ENDIF.
ENDFORM..
Thanks
Seshu -
Hi,
Why does Form Builder add one digit to the Maximum Length property of number data base block items...????
For example , if a db column is of datatype number(2)... then this item is represented by 3 digits- not 2- in the Maximum Length....This is true if the data block is created via the block wizard....
Would it be any problem... if in the above example , i modified the Maximum Length to 2 ...????
Have you noticied it...????
Thanks,
SimonIn forms the definition of a number items length is the length of how many characters it holds and not how many digits.
If you have length 4 and you want to set a value of 22.22 it will not accept, since 22.22 is 5 characters 4 numbers and the decimal point. And just like Paul said, if the number is negative then you need one more character for the " - " minus sign.
Tony -
My Services are from 3 Network UK, what should i do to get my phone number corrected in iTunes as it is displaying still the old number I was given at the time of purchase wheras it is now changed on my request
Try Settings > General > Reset > Reset Network Settings on your device.
Note you may have to re-enter stored Wi-Fi passwords after using this feature.
tt2
Maybe you are looking for
-
Connecting a Powerbook G4 12-inch to HD TV
Does anyone know or can they recommend which cable is best to connect a 12-inch Powerbook G4 to a HD TV? (the TV has component, HDMI, S-Video, Scart connections) Through it's production span I think the Powerbook was built with two different ports on
-
Extended Rights not working in Reader X - resetting form
Hi, To make the problem clear i will put it in steps 1. I have a form created in LiveCycle Designer. 2. I save it in two ways: as a static and dynamic file pdf. (to test both options) 3. I reopen it in Adobe Acrobat 4. Save it as a copy with extended
-
BPM Question: JDBC Sender to RFC to JDBC Receiver
I have the following requirement: JDBC Sender Adapter (by nature Asynchronous) SELECT multiple rows from a table To RFC Receiver Adapter (Synchronous) To JDBC Receiver Adapter (Synchronous) UPDATE multiple rows in a table Then IF <SAP:Error> X
-
How to install 3c905c NIC in Solaris 8 in SPARC platform
i bought a 3c905c NIC. I want to install it into SUN Blade 100 (SPARC platform) Solaris 8. I do need help how can I configure this NIC?tks.
-
Is it possible to lock the onscreen numeric keyboard on the iPad mini so that I do not have to go back to the regular keyboard every time I press the space button?