Field too big
Dear All,
i am very new in Oracle, so may be you can help me.
We have some 'very' big views here. So when i look with the
Schema Manager i see only a littel part of this view.
I have tryed to change or copy this view, but oracle tells me
that the view is valid !!!
We are working on a Unixbox with Windows 95 Clients.
Thanks
Thomas
null
Extending the field length would not make the error going away. Instead it makes it easier for the user to enter wrong units and conversions. As SAP will less often dump, you will encounter your errors much later than now.
analyse your materials and correct the wrong entries, conversions to alternative units are stored in table MARM
Similar Messages
-
Field Length too big to display
Hi
We have a scenario where the wrong unit of measure was used and resulted in numbers that were too big to display on deliveries and reports eg 555, 000, 000, 000, 000.00. We are now changing the UOM for the affected PNs but wondered if anybody has any other solutions on how SAP can cope with displaying fields that are too large for its defined length for all the old deliveries created previously. Currently these hit run time display errors. We have already extended the field length once but need a more robust solution in case there are any more materials like this.
ThanksExtending the field length would not make the error going away. Instead it makes it easier for the user to enter wrong units and conversions. As SAP will less often dump, you will encounter your errors much later than now.
analyse your materials and correct the wrong entries, conversions to alternative units are stored in table MARM -
Safari font specifically in Google search is way too BIG
The font in Google search is way too big. Only in Google. Other websites show normal fonts. Did someone encounter such problem? Please help me! Thank you!
Hello How Goes It,
select the cells you want to have no margin and choose the text inspector of the infopalette and the text tab button. At the bottom is a slider and a number field. There you can adjust the margin thickness.
Frank. -
ODI-40406: Bytes are too big for array error
Hello ,
I am trying to load a flat file from a table. I am working on ODI 11G.
Following are performed.
Staging area different from SOurce is checked.
IKM used is : IKM SQL to File Append
Truncate is True
No LKM is used.
I am getting following error:
java.lang.IllegalArgumentException: ODI-40406: Bytes are too big for array
create header (RECORDTYPE,
ASSIGN_NUM,
USR_ID,
START_TIME,
JOBCODEID,
AISLE_AREA_ID,
PLANE_DATE,
CLIENT_ID,
CSTNUM,
WH_ID)
/*$$SNPS_START_KEYSNP$CRDWG_TABLESNP$CRTABLE_NAME=UNITIME TO RPSNP$CRLOAD_FILE=C:\Program Files\ODI_BI_APPS/UNITIME TO RP.txtSNP$CRFILE_FORMAT=FSNP$CRFILE_SEP_FIELD=0x0009SNP$CRFILE_SEP_LINE=0x000D0x000ASNP$CRFILE_FIRST_ROW=0SNP$CRFILE_ENC_FIELD=SNP$CRFILE_DEC_SEP=SNP$CRSNP$CRDWG_COLSNPThere is a possibility of mismatch of datatype, that can cause the problem.
Say in ODI model, you have defined a 'Date type' field to be stored as 'String' however at the time of mapping in 'Interface', no conversion happens (from date to string) for this particular object. This causes the problem.
The original query remains valid at DB side (fires for datetype) however fails while integrating (anticipating String which may be longer than defined in modelbecause of your NLS setting in DB). Therefore the best way would be to apply conversion for that particular field (in this case, use TO_CHAR(Date type,'Desired Date Format'). -
ODI-40406: Bytes are too big for array
I am getting the following error: java.lang.IllegalArgumentException: ODI-40406: Bytes are too big for array
I am trying to a file to file mapping and all of my columns match in size. Does anyone have any ideas what this problem could be? I am getting an error when it tries to perform an integration step while trying to create the target table. I am assuming it is something wrong with one of my datastores
Edited by: 897642 on Nov 16, 2011 5:19 PMThere is a possibility of mismatch of datatype, that can cause the problem.
Say in ODI model, you have defined a 'Date type' field to be stored as 'String' however at the time of mapping in 'Interface', no conversion happens (from date to string) for this particular object. This causes the problem.
The original query remains valid at DB side (fires for datetype) however fails while integrating. Therefore the best way would be to apply conversion for that particular field (in this case, use TO_CHAR(Date type,'Desired Date Format'). -
DBIF_RSQL_INVALID_RSQL statement too big
Hi All,
We are on SAP R/3 4.6C (kernel 46D 64 bit pacth 2113 with last DBLS library, AIX 5.2, DB2 7.1 on z/os 1.4) and for a BW extraction we have the following dump:
"ABAP runtime error DBIF_RSQL_INVALID_RSQL, RSQL error 13 occurred.
The following message also appears in the developer trace:
B *** ERROR => dbtran ERROR (set_input_da_spec): statement too big
B marker count = 1195 > max. marker count = 726."
For the OSS note 655018 the limit of marker count is 2000, but in the trace of work process we read 726.
Many thanks for your help
BobHi Bernhard,
thak you for reply. This is the dump:
============================================================
ABAP runtime errors DBIF_RSQL_INVALID_RSQL
Occurred on 16.01.2008 at 10:29:04
RSQL error 13 when accessing table "EKKO ".
What happened?
The current ABAP/4 program "SAPDBERM " had to be terminated because
one of the statements could not be executed.
This is probably due to an error in the ABAP/4 program.
What can you do?
Note the actions and input that caused the error.
Inform your SAP system administrator.
You can print out this message by choosing "Print". Transaction ST22
allows you to display and manage termination messages, including keeping
them beyond their normal deletion date.
Error analysis
The SQL statement generated from SAP Open SQL violates a
restriction imposed by the database system used in R/3.
For details, refer to either the system log or the developer trace.
Possible reasons for error:
o Maximum size of an SQL statement exceeded.
o The statement contains too many input variables.
o The input data requires more space than is available.
o ...
You can usually find details in the system log (SM21) and in
the developer trace of the relevant work process (ST11).
In the event of an error, the developer trace often gives the
current restrictions.
How to correct the error
The SAP Open SQL statement concerned must be divided into several
smaller units.
If the problem occurred because an excessively large table was used
in an IN itab construct, you can use FOR ALL ENTRIES instead.
When you use this addition, the statement is split into smaller units
according to the restrictions of the database system used.
System environment
SAP Release.............. "46C"
Application server....... "R3PRD"
Network address.......... "172.24.10.50"
Operating system......... "AIX"
Release.................. "5.2"
Hardware type............ "00C7A3EC4C00"
Database server.......... "r3prddb_gb"
Database type............ "DB2"
Database name............ "PRD"
Database owner........... "SAPR3"
Character set............ "en_US.ISO8859-1"
SAP kernel............... "46D"
Created on............... "Aug 25 2005 20:51:50"
Created in............... "AIX 1 5 00447C4A4C00"
Database version......... " "
Patch level.............. "2113"
Patch text............... " "
Supported environment....
Database................. "DB2 for OS/390 6.1"
SAP database version..... "46D"
Operating system......... "AIX 1 4, AIX 2 4, AIX 3 4, AIX 1 5, AIX 2 5, AIX 3
5, , System build information:, -
, LCHN :
775484"
User, transaction...
Client.............. 300
User................ "ALEREMOTE"
Language key........ "E"
Transaction......... " "
Program............. "SAPDBERM "
Screen.............. "SAPMSSY0 1000"
Screen line......... 6
Information on where termination occurred
The termination occurred in the ABAP/4 program "SAPDBERM " in
"PUT_EKKO".
The main program was "AQZZSYSTBWGENER0SY000000000361 ".
The termination occurred in line 333
of the source code of program "SAPDBERM " (when calling the editor 3330).
The program "SAPDBERM " was started as a background job.
Source code extract
003030 ENDFORM.
003040
003050 ----
003060 FORM PUT_EKKO.
003070
003080 CONSTANTS: LC_PACKAGE_SIZE LIKE SY-TFILL VALUE 10.
003090 DATA: BEGIN OF LT_SEKKO OCCURS 0,
003100 EBELN LIKE EKKO-EBELN,
003110 END OF LT_SEKKO.
003120 DATA: BEGIN OF LT_TEKKO OCCURS 0,
003130 EBELN LIKE EKKO-EBELN,
003140 END OF LT_TEKKO.
003150 DATA: L_INDEX_FROM LIKE SY-TABIX,
003160 L_INDEX_TO LIKE SY-TABIX,
003170 L_EKPO_TABIX LIKE SY-TABIX.
003180 PERFORM KSCHL_SETZEN.
003190 ONEST = P_ONEST.
003200 TEST = TESTLAUF.
003210 DB_DEL = ' '. "VETVG und Komponenten bleiben noch stehen
003220 DETPROT = P_PROT.
003230 ANDAT = ER_ANDAT.
003240 PERFORM AKTIVITAET_SETZEN(SAPFM06D) USING '06'.
003250 SELECT EBELN FROM EKKO INTO TABLE LT_SEKKO
003260 WHERE EBELN IN ER_EBELN
003270 AND EKORG IN ER_EKORG
003280 AND BSTYP IN ER_BSTYP
003290 AND BEDAT IN ER_BEDAT
003300 AND BSART IN ER_BSART
003310 AND EKGRP IN ER_EKGRP
003320 * AND MEMORY NE 'X'
> ORDER BY EBELN.
003340 L_INDEX_FROM = 1.
003350
003360 DO.
003370 REFRESH LT_TEKKO.
003380 L_INDEX_TO = L_INDEX_FROM + LC_PACKAGE_SIZE - 1.
003390 LOOP AT LT_SEKKO FROM L_INDEX_FROM
003400 TO L_INDEX_TO.
003410 APPEND LT_SEKKO TO LT_TEKKO.
003420 ENDLOOP.
003430 IF SY-SUBRC NE 0.
003440 EXIT.
003450 ENDIF.
003460 SELECT * FROM EKKO INTO TABLE XEKKO
003470 FOR ALL ENTRIES IN LT_TEKKO
003480 WHERE EBELN = LT_TEKKO-EBELN
003490 ORDER BY PRIMARY KEY.
003500 SELECT * FROM EKPO INTO TABLE XEKPO
003510 FOR ALL ENTRIES IN LT_TEKKO
003520 WHERE EBELN = LT_TEKKO-EBELN
Contents of system fields
SY field contents..................... SY field contents.....................
SY-SUBRC 0 SY-INDEX 0
SY-TABIX 1 SY-DBCNT 152
SY-FDPOS 1 SY-LSIND 0
SY-PAGNO 0 SY-LINNO 1
SY-COLNO 1
============================================================
We have also installed the last kernel and the DBSL 2342.
Thank you and regards
Bob -
Offset declaration too big for structure (unicode checks)
Has anyone worked with this user exit to Derive values for co/pa?
Enhancement COPA0001
Comp ZXKKEU11
I set up WA_CE1AWG1 as data: WA_CE1AWG1 like CE1AWG1.
and tried to copy I_COPA_ITEM to this variable
WA_CE1AWG1 = I_COPA_ITEM.
I get a runtime error Offset declaration too big for structure.
will I have to change program SAPLXKKE to remove unicode checks. Is there any other way to read in the fields from input structure I_COPA_ITEM?hi
1.r u sure I_COPA_ITEM is structure or table.
2. if it is a struccture make sure the WA_CE1AWG1 and I_COPA_ITEM are with same structures and types..
i think I_COPA_ITEM is table type --> to find it open in debugging mode then try to resolve.
Please Close this thread.. when u r problem is solved
Reward if Helpful
Regards
Naresh Reddy K -
Hello,
In my application I have a form field which a non-negative number should be entered in.
In order to make my application maximally user-friendly, I validate that field if it has a value entered, if the value entered is a number and if the number entered is negative.
I validate the string with a Integer.parseInt() method. If it throws a NumberFormatException, then the input string is not a number (empty or text) and I display a message "The input string is not a number...". When it doesn't throw anything, then I validate the number to negativity.
But when I enter string "5000000000" (five billions), the result is NumberFormatException and the resulting message is "The input string is not a number...", which is obviously bad. Is there a way to know whether the NumberFormatException was thrown because of invalid string or because of too large number was entered?
Moreover, if value -5000000000 (minus five billions) was entered, I would like to display message "Input number must be non-negative...", instead of "Number too big...".
Thanks
Edited by: Shagrat on Feb 19, 2009 2:20 AMShagrat wrote:
Thanks for a quick response.
I appreciate your suggestions, but using BigInteger would only move the size a little big futherWell, quite a lot further, to be honest. I'm currently running this code:
String x = "1";
while(true) {
BigInteger b = new BigInteger(x);
System.err.println(x.length());
x = x.concat("0");
}And it hasn't died yet, after several minutes, by which point the numbers are massive. Like, 10^10000 and counting. I wonder what on Earth your users will be doing that requires bigger numbers than that.
Sounds like you want to do some input validation before you even decide if you've got a number or not -
I can't figure out how to downsize my photos for a website that won't take anything above 3MB my Photos are 4MB. Even when I send them in an email, they are too big to send more than 3 at a time and I don't know how to fix it! Help says that when I select a photo it gives me the option to downsize. It does NOT?????
This is the iPhoto for iOS forum. Are you asking about iPhoto on your Mac?
In iPhoto on your Mac select Export and you will have the option to select a size for your photo.
In iPhoto for iOS this capability is not there. I use PhotoForege2 on my iPad to resize my photos to meet the requirements you describe. -
Saving animated gif error - canvas size too big?
Hi,
i have been asked to create an animated gif which has a snow effect in the background. The animation runs pretty well using the pattern style to move the animated snow down. The problem is when I try to export the animation the save for web dialogue window freezes and I can't quit photoshop. I have tried to make the canvas (image size) smaller and it works.
Is there a memory problem with creating animations in Photoshop if the document size is too big, im running a 3000x1000px at 72dpi
TThe animation would be used on a web app, which a script could probably do a better job, but I need to try this first.
thanks
listerSomething is very wrong here. The point behind using GIFs is that they are small and OK to put on a Web site.
First thing: forget all about PPI - this has absolutely no relevance to Web/screen images; it is only used for printing. You need to think about the pixel size.
So, how big in pixels are your starting images?
How big do you want the resulting GIF to be? Again, you have to decide in pixels, as the viewing size will depend upon screen resolution of the person looking at it. You can use a notional PPI of 70-100 to guess how big it will be in inches, but that's all it is - a guess.
Is this getting you going in the right direction?
I cannot resist commenting that I hate almost all animated GIFs as they reduce Web site usability so much. -
Recently when I open any apps the pages are too big for the screen. They shrink when pinched but immediately become bigger again. It's very difficult to scroll too. The keypad has become very sticky. Missing letters and spaces when I type and needing to tap the keys much harder than usual
I have the exact same problem, I think. I was on my iPad 3's home page swiping R-L to locate a certain icon when all of a sudden the screen appeared to get HUGE. So big I could only see one or two icons. I couldn't even turn it off to try a reboot because after I pushed the sleep/wake button, I couldn't find the red slide bar. I finally just had to wait for the battery to die, then recharge it, and it looked normal again. I also spoke with several friends who haven either iPads or iPhones, and they've all had this happen to them. I checked my accessibility settings, and Zoom was already off. So what is causing this problem for so many people, and what can we do to prevent it? Please help.
-
Hi Folks,
I am getting the following dump error.Can any one here please throw some light on this.
Field too small when calculating totals in internal table.
<b>In the internal table "\PROGRAM=ZFI\DATA=IT_HEADER[]", a SUM statement is used to calculate totals. However, the values are too large for the designated field.
The name of the field is "KURSF".
The name of the field is "KURSF".</b>
The field "KURSF" in the program "ZFIR_IMPORT_REGISTER"
be a different
type (e.g. type P of appropriate length).
REPORT ZFI.
TABLES: rbkp,
rseg,
bset,
mara,
lfa1,
ekko,
t161t.
TYPE-POOLS: slis.
TYPES: BEGIN OF TY_CUSTOM,
WRBTR TYPE RSEG-WRBTR,
KSCHL TYPE RSEG-KSCHL,
EBELN TYPE RSEG-EBELN,
EBELP TYPE RSEG-EBELP,
END OF TY_CUSTOM.
TYPES: BEGIN OF ty_itab,
lfbnr LIKE rseg-lfbnr, " GR NO
belnr LIKE rbkp-belnr, " MIRO doc.no.
buzei LIKE rseg-buzei, " MIRO line item number
fidoc LIKE bkpf-belnr, " accounting doc.no.
matnr LIKE rseg-matnr, " Material number
maktx LIKE makt-maktx, " material description
xblnr LIKE rbkp-xblnr, " Reference Document Number
budat LIKE rbkp-budat, " Posting Date in Document
mwskz LIKE rseg-mwskz, " Tax Code
bklas LIKE rseg-bklas, " Valuation Class
menge LIKE rseg-menge, " Quantity
gjahr LIKE rseg-gjahr, " Fiscal Year
bldat LIKE rbkp-bldat, " Document Date
lifnr TYPE rbkp-lifnr, "Vendor Code
stcd1 TYPE lfa1-stcd1, "Tin number
matkl TYPE mara-matkl, "Mat Desc
name1 TYPE lfa1-name1, "Vendor Name
awkey TYPE bkpf-awkey, "Reference Key
str_suppl1 TYPE adrc-str_suppl1, "Street
post_code1 TYPE adrc-post_code1, "Pincode
city1 TYPE adrc-city1, "City
region TYPE adrc-region, "Region
adrnr TYPE lfa1-adrnr, "Address Number
dms(3) TYPE c, "DMS
werks TYPE rseg-werks, "PLANT
bukrs TYPE rseg-bukrs, "COMPANY CODE
stblg TYPE rbkp-stblg, "DOCUMENT REVERSAL INDICATOR
mtart TYPE mara-mtart, "MATERIAL TYPE
wrbtr TYPE rseg-wrbtr, "Base Amount
tax_amount TYPE konv-kwert, "Tax amount for summary
vgart TYPE rbkp-vgart, "Transaction Type
ivtyp TYPE rbkp-ivtyp, "Invoice Category
reverse(2), "Invoice Reversed
land1 TYPE lfa1-land1, "Country Key
*Fields added for customs
BED TYPE RSEG-WRBTR, "BASIC ED FOR CUSTOMS
CVD TYPE RSEG-WRBTR, "CVD FOR CUSTOMS
ECVD TYPE RSEG-WRBTR, "CESS ON VD FOR CUSTOMS
ECED TYPE RSEG-wrbtr, "CESS ON DUTIES
lfgja type rseg-lfgja, "Mat Doc Year
frbnr type mkpf-frbnr, "Bill of Lading No
waers type rbkp-waers,
txz01 TYPE ekpo-txz01, "Short Text for Material
ebeln TYPE rseg-ebeln, "Purchasing Doc
bsart type ekko-bsart, "Pur.Doc Type
batxt type t161t-batxt, "Desc for Pur Doc.Type
ebelp TYPE ekpo-ebelp, "Purchase Ord Ln Item
NCVD TYPE RSEG-WRBTR, "CESS ON VD FOR CUSTOMS
SBED TYPE RSEG-wrbtr, "CESS ON DUTIES
TEXT(30),
qtr_yr(4),
qtr_mth(10),
*Fields added for Inr Value for exchange rate
kursf type rbkp-kursf,
inrval type rseg-wrbtr,
BELNR1 TYPE RBKP-BELNR,
remarks(15),
END OF ty_itab.
TYPES: BEGIN OF ty_header,
belnr LIKE rbkp-belnr, " MIRO doc.no.
fidoc LIKE bkpf-belnr, " accounting doc.no.
xblnr LIKE rbkp-xblnr, " Reference Document Number
budat LIKE rbkp-budat, " Posting Date in Document
mwskz LIKE rseg-mwskz, " Tax Code
bklas LIKE rseg-bklas, " Valuation Class
gjahr LIKE rseg-gjahr, " Fiscal Year
bldat LIKE rbkp-bldat, " Document Date
lifnr TYPE rbkp-lifnr, "Vendor Code
stcd1 TYPE lfa1-stcd1, "Tin number
name1 TYPE lfa1-name1, "Vendor Name
awkey TYPE bkpf-awkey, "Reference Key
str_suppl1 TYPE adrc-str_suppl1, "Street
post_code1 TYPE adrc-post_code1, "Pincode
city1 TYPE adrc-city1, "City
region TYPE adrc-region, "Region
adrnr TYPE lfa1-adrnr, "Address Number
dms(3) TYPE c, "DMS
werks TYPE rseg-werks, "PLANT
bukrs TYPE rseg-bukrs, "COMPANY CODE
stblg TYPE rbkp-stblg, "DOCUMENT REVERSAL INDICATOR
mtart TYPE mara-mtart, "MATERIAL TYPE
wrbtr TYPE rseg-wrbtr, "Base Amount
tax_amount TYPE konv-kwert, "Tax amount for summary
vgart TYPE rbkp-vgart, "Transaction Type
ivtyp TYPE rbkp-ivtyp, "Invoice Category
reverse(2), "Invoice Reversed
land1 TYPE lfa1-land1, "Country Key
BED TYPE RSEG-WRBTR, "BASIC ED FOR CUSTOMS
CVD TYPE RSEG-WRBTR, "CVD FOR CUSTOMS
ECVD TYPE RSEG-WRBTR, "CESS ON VD FOR CUSTOMS
ECED TYPE RSEG-wrbtr, "CESS ON DUTIES
lfgja type rseg-lfgja, "Mat Doc Year
frbnr type mkpf-frbnr, "Bill of Lading No
waers type rbkp-waers,
txz01 TYPE ekpo-txz01, "Short Text for Material
NCVD TYPE RSEG-WRBTR, "CESS ON VD FOR CUSTOMS
SBED TYPE RSEG-wrbtr, "CESS ON DUTIES
TEXT(30),
qtr_yr(4),
qtr_mth(10),
*Fields added for Inr Value for exchange rate
kursf type rbkp-kursf,
inrval type rseg-wrbtr,
BELNR1 TYPE RBKP-BELNR,
remarks(15),
END OF ty_header.
types: begin of ty_pohistory,
xblnr type ekbe-xblnr,
bewtp type ekbe-bewtp,
belnr type ekbe-belnr,
gjahr type ekbe-gjahr,
end of ty_pohistory.
TYPES: BEGIN OF ty_temp,
fidoc TYPE bkpf-belnr, "FIDOC No
awkey TYPE bkpf-belnr, "Reference Key
gjahr TYPE bkpf-gjahr, "Fiscal Year
budat TYPE bkpf-budat, "Posting Date
belnr TYPE rbkp-belnr, "Doc No
blart TYPE bkpf-blart, "Document Type
END OF ty_temp.
*Internal Table
DATA: itab TYPE ty_itab OCCURS 0 WITH HEADER LINE.
DATA: itab_temp TYPE ty_temp OCCURS 0 WITH HEADER LINE.
DATA : IT_CUSTOM TYPE TY_CUSTOM OCCURS 0 WITH HEADER LINE.
data: it_pohistory type ty_pohistory occurs 0 with header line.
data : it_header type ty_header occurs 0 with header line.
data : it_temp14 type ty_header occurs 0 with header line.
*Data Declaration
DATA: BKTXT TYPE MKPF-BKTXT.
DATA: FRBNR TYPE MKPF-FRBNR.
data: budat type mkpf-budat.
DATA: BELNR TYPE RSEG-BELNR.
data: gjahr type rseg-gjahr.
data: date1(10).
data: date2(10).
data: title(70).
DATA : adrnr1 LIKE t001w-adrnr.
DATA: plant_name1 LIKE adrc-name1.
DATA: plant_name2 type adrc-name2.
data: plant_name(70).
DATA: comp_name1 LIKE adrc-name1.
DATA: comp_name2 type adrc-name2.
data: comp_name(70).
DATA: month(2).
For ALV display
DATA: itfieldcat TYPE slis_t_fieldcat_alv WITH HEADER LINE,
gd_layout TYPE slis_layout_alv,
itsort TYPE slis_t_sortinfo_alv WITH HEADER LINE.
DATA: gd_prntparams TYPE slis_print_alv.
DATA : it_data TYPE slis_t_listheader,
wa_data LIKE LINE OF it_data.
**ALV Declaration
DATA: it_alv1 LIKE TABLE OF itab WITH HEADER LINE.
DATA : i TYPE n.
DATA : col_name(10) TYPE c.
data: text(70).
*Selection Screen
SELECTION-SCREEN BEGIN OF BLOCK block1 WITH FRAME TITLE text-001.
PARAMETERS:p_bukrs LIKE rbkp-bukrs OBLIGATORY.
SELECT-OPTIONS: s_werks FOR rseg-werks NO INTERVALS OBLIGATORY.
SELECT-OPTIONS: s_regio FOR lfa1-regio NO INTERVALS.
SELECT-OPTIONS: s_lifnr FOR lfa1-lifnr NO INTERVALS.
select-options: s_bsart for ekko-bsart no intervals.
SELECT-OPTIONS:s_bldat FOR rbkp-bldat.
SELECT-OPTIONS:s_budat FOR rbkp-budat OBLIGATORY.
SELECTION-SCREEN END OF BLOCK block1.
SELECTION-SCREEN BEGIN OF BLOCK block2 WITH FRAME TITLE text-002.
PARAMETERS : R1 RADIOBUTTON GROUP G1.
PARAMETERS : R2 RADIOBUTTON GROUP G1.
SELECTION-SCREEN END OF BLOCK block2.
SELECT-OPTIONS: s_mwskz FOR rseg-mwskz NO-DISPLAY.
SELECT-OPTIONS: s_land1 FOR lfa1-land1 NO-DISPLAY.
START-OF-SELECTION.
PERFORM get_data.
**Filtering the Data based on the Document Type and Document Status in the Internal Table
LOOP AT itab_temp.
IF itab_temp-blart = 'RE'.
itab_temp-belnr = itab_temp-awkey+0(10).
MODIFY itab_temp.
ELSE.
DELETE itab_temp.
ENDIF.
ENDLOOP.
WRITE : s_budat-low TO date1,
s_budat-high TO date2.
CONCATENATE 'Import Purchase Register From :' date1 ' To : ' date2 INTO text.
if r1 = 'X'.
PERFORM taxvalues.
PERFORM filtering.
PERFORM CUSTOMS.
perform filtering2.
PERFORM build_layout.
PERFORM build_fieldcat.
PERFORM alv_display.
endif.
if r2 = 'X'.
PERFORM taxvalues.
PERFORM filtering.
PERFORM CUSTOMS.
perform filtering2.
PERFORM importheader.
PERFORM build_layout.
PERFORM build_fieldcat1.
PERFORM alv_display_header.
endif.
*& Form get_data
text
--> p1 text
<-- p2 text
FORM get_data .
SELECT belnr AS fidoc
awkey
budat
gjahr
blart
FROM bkpf INTO CORRESPONDING FIELDS OF TABLE itab_temp
WHERE bukrs = p_bukrs
AND budat IN s_budat
AND bstat = space.
IF sy-subrc NE 0.
MESSAGE 'No Values exist for the Selection.' TYPE 'S'.
STOP.
ENDIF.
ENDFORM.
*& Form taxvalues
text
--> p1 text
<-- p2 text
FORM taxvalues .
LOOP AT itab_temp.
MOVE-CORRESPONDING itab_temp TO itab.
SELECT SINGLE
lifnr
xblnr
belnr
gjahr
stblg
bldat
vgart
ivtyp
waers
kursf
FROM rbkp INTO CORRESPONDING FIELDS OF itab
WHERE belnr = itab_temp-belnr
AND gjahr = itab_temp-gjahr.
SELECT menge
bklas
matnr
lfbnr
werks
mwskz
buzei
wrbtr
pstyp
kschl
ebeln
ebelp
lfgja
shkzg FROM rseg INTO CORRESPONDING FIELDS OF itab
WHERE belnr = itab_temp-belnr
AND gjahr = itab_temp-gjahr.
APPEND itab.
ENDSELECT.
CLEAR itab.
CLEAR itab_temp.
ENDLOOP.
LOOP AT itab .
*Purchase Order Document Type.
select single bsart from ekko into corresponding fields of itab
where ebeln = itab-ebeln.
select single batxt from t161t into corresponding fields of itab
where spras = 'EN' AND
bsart = itab-bsart.
*Material Details
SELECT SINGLE matkl mtart FROM mara
INTO CORRESPONDING FIELDS OF itab
WHERE mara~matnr = itab-matnr.
SELECT SINGLE name1 adrnr land1 FROM lfa1 INTO
(itab-name1,itab-adrnr,itab-land1) WHERE lifnr = itab-lifnr.
*Short Text
SELECT SINGLE txz01 INTO itab-maktx FROM ekpo
WHERE ebeln = itab-ebeln
and ebelp = itab-ebelp.
**Vendor Address
SELECT SINGLE str_suppl1
post_code1
city1
region
FROM adrc INTO CORRESPONDING FIELDS OF itab
WHERE addrnumber = itab-adrnr.
itab-qtr_yr = itab-bldat+0(4).
month = itab-bldat+4(2).
CASE month.
WHEN '01'.
itab-qtr_mth = 'JAN'.
WHEN '02'.
itab-qtr_mth = 'FEB'.
WHEN '03'.
itab-qtr_mth = 'MAR'.
WHEN '04'.
itab-qtr_mth = 'APR'.
WHEN '05'.
itab-qtr_mth = 'MAY'.
WHEN '06'.
itab-qtr_mth = 'JUN'.
WHEN '07'.
itab-qtr_mth = 'JUL'.
WHEN '08'.
itab-qtr_mth = 'AUG'.
WHEN '09'.
itab-qtr_mth = 'SEP'.
WHEN '10'.
itab-qtr_mth = 'OCT'.
WHEN '11'.
itab-qtr_mth = 'NOV'.
WHEN '12'.
itab-qtr_mth = 'DEC'.
ENDCASE.
*INR VALUE CALCULATION
<b>itab-inrval = itab-wrbtr * itab-kursf.</b>MODIFY itab.
ENDLOOP.
ENDFORM. " taxvalues
*& Form build_layout
text
--> p1 text
<-- p2 text
FORM build_layout .
CLEAR itab.
gd_layout-zebra = 'X'.
gd_layout-colwidth_optimize = 'X'.
ENDFORM. " build_layout
*& Form build_fieldcat
text
--> p1 text
<-- p2 text
FORM build_fieldcat .
IF itab[] IS INITIAL.
MESSAGE 'No Values exist for the Selection.' TYPE 'S'.
STOP.
ENDIF.
DEFINE m_fieldcat.
itfieldcat-fieldname = &1.
itfieldcat-col_pos = &2.
itfieldcat-seltext_l = &3.
itfieldcat-do_sum = &4.
itfieldcat-outputlen = &5.
append itfieldcat to itfieldcat.
clear itfieldcat.
END-OF-DEFINITION.
m_fieldcat 'LFBNR' '' 'GR NO' '' 10.
m_fieldcat 'BELNR' '' 'MIRO NO' '' 10.
m_fieldcat 'BUZEI' '' 'MIRO LN ITM' '' 10.
m_fieldcat 'LIFNR' '' 'VENDOR CODE' '' 10.
m_fieldcat 'NAME1' '' 'VENDOR NAME' '' 14.
m_fieldcat 'STR_SUPPL1' '' 'VENDOR ADDRESS' '' '15' .
m_fieldcat 'POST_CODE1' '' 'PINCODE' '' 6.
m_fieldcat 'XBLNR' '' 'VEN INV NO' '' 16.
m_fieldcat 'BLDAT' '' 'VEN INV DATE' '' 8.
m_fieldcat 'EBELN' '' 'PUR ORD NO' '' 10.
m_fieldcat 'BATXT' '' 'PUR ORD DOC.TYPE' '' 20. "Pur Doc. Type Description
m_fieldcat 'EBELP' '' 'PUR LN ITM' '' 5.
m_fieldcat 'WERKS' '' 'PLANT' '' 8.
m_fieldcat 'MATNR' '' 'MAT NO' '' 18.
m_fieldcat 'MAKTX' '' 'MAT DESC' '' 15.
m_fieldcat 'MATKL' '' 'MAT CC' '' 7.
m_fieldcat 'MENGE' '' 'QTY' '' 13.
m_fieldcat 'WRBTR' '' 'VAL. OF GOODS' '' 11.
m_fieldcat 'WAERS' '' 'CURR' '' 5.
m_fieldcat 'INRVAL' '' 'INR VALUE' '' 13.
m_fieldcat 'BED' '' 'BED' '' 10.
m_fieldcat 'CVD' '' 'CVD' '' 10.
m_fieldcat 'ECVD' '' 'CESS ON CVD' '' 10.
m_fieldcat 'ECED' '' 'CESS ON DUTIES' '' 13.
*Bill of Lading Removed and Bill of Entry Added.
m_fieldcat 'FRBNR' '' 'BILL OF LADING' '' 13.
m_fieldcat 'BELNR1' '' 'BILL OF ENTRY' '' 13.
m_fieldcat 'REVERSE' '' 'Reversed' '' 2.
m_fieldcat 'FIDOC' '' 'FI DOC NO' '' 10.
m_fieldcat 'MWSKZ' '' 'TC' '' 2.
m_fieldcat 'BKLAS' '' 'VL CLS' '' 4.
m_fieldcat 'CITY1' '' 'VENDOR CITY' '' 10.
m_fieldcat 'QTR_MTH' '' 'MONTH' '' 10.
m_fieldcat 'QTR_YR' '' 'YEAR' '' 4.
m_fieldcat 'REMARKS' '' 'REMARKS' '' 15.
ENDFORM. " build_fieldcat
*& Form list1
text
-->R_UCOMM text
-->RS_SELFIELDtext
FORM list1 USING r_ucomm LIKE sy-ucomm
rs_selfield TYPE slis_selfield.
Check function code
CASE r_ucomm.
WHEN '&IC1'.
Check field clicked on within ALVgrid report
IF rs_selfield-fieldname = 'LFBNR'.
AND rs_selfield-fieldname = 'GJAHR'.
Read data table, using index of row user clicked on
READ TABLE itab
INTO wa_ekko
INDEX rs_selfield-tabindex.
Set parameter ID for transaction screen field
SET PARAMETER ID 'MBN' FIELD itab-lfbnr.
SET PARAMETER ID 'GJR' FIELD itab-gjahr.
Sxecute transaction ME23N, and skip initial data entry screen
CALL TRANSACTION 'MB03' AND SKIP FIRST SCREEN.
ENDIF.
IF rs_selfield-fieldname = 'FIDOC'.
AND rs_selfield-fieldname = 'GJAHR'.
Read data table, using index of row user clicked on
READ TABLE itab
INTO wa_ekko
INDEX rs_selfield-tabindex.
Set parameter ID for transaction screen field
SET PARAMETER ID 'BLN' FIELD itab-fidoc.
SET PARAMETER ID 'BUK' FIELD p_bukrs.
SET PARAMETER ID 'GJR' FIELD itab-gjahr.
Sxecute transaction ME23N, and skip initial data entry screen
CALL TRANSACTION 'FB03' AND SKIP FIRST SCREEN.
ENDIF.
IF rs_selfield-fieldname = 'BELNR'.
AND rs_selfield-fieldname = 'GJAHR'.
Read data table, using index of row user clicked on
READ TABLE itab
INTO wa_ekko
INDEX rs_selfield-tabindex.
Set parameter ID for transaction screen field
SET PARAMETER ID 'RBN' FIELD itab-BELNR.
SET PARAMETER ID 'GJR' FIELD itab-gjahr.
Sxecute transaction ME23N, and skip initial data entry screen
CALL TRANSACTION 'MIR4' AND SKIP FIRST SCREEN.
ENDIF.
IF rs_selfield-fieldname = 'BELNR1'.
AND rs_selfield-fieldname = 'GJAHR'.
Read data table, using index of row user clicked on
READ TABLE itab
INTO wa_ekko
INDEX rs_selfield-tabindex.
Set parameter ID for transaction screen field
SET PARAMETER ID 'RBN' FIELD itab-BELNR1.
SET PARAMETER ID 'GJR' FIELD itab-gjahr.
Sxecute transaction ME23N, and skip initial data entry screen
CALL TRANSACTION 'MIR4' AND SKIP FIRST SCREEN.
ENDIF.
ENDCASE.
ENDFORM.
*& Form alv_display
text
--> p1 text
<-- p2 text
FORM alv_display .
IF sy-batch = space.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
i_callback_program = sy-repid
is_layout = gd_layout
i_callback_user_command = 'LIST1'
I_CALLBACK_TOP_OF_PAGE = 'TOP_OF_PAGE'
it_fieldcat = itfieldcat[]
i_save = 'A'
is_print = gd_prntparams
it_sort = itsort[]
TABLES
t_outtab = itab
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.
ELSEIF sy-batch = 'X'.
CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
EXPORTING
i_callback_program = sy-repid
it_fieldcat = itfieldcat[]
it_sort = itsort[]
TABLES
t_outtab = itab
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.
ENDIF.
ENDFORM. " alv_display
*& Form FILTERING
text
--> p1 text
<-- p2 text
FORM filtering .
Material type should be of ROH or HALB or FERT
*CLEAR s_mtart.
*REFRESH s_mtart.
*s_mtart-sign = 'I'.
*s_mtart-option = 'EQ'.
*s_mtart-low = 'ROH'.
*APPEND s_mtart.
*s_mtart-low = 'HALB'.
*APPEND s_mtart.
*s_mtart-low = 'FERT'.
*APPEND s_mtart.
*CLEAR s_mtart.
*Tax Code for WCT should not be included.
s_mwskz-sign = 'I'.
s_mwskz-option = 'EQ'.
s_mwskz-low = 'W1'.
APPEND s_mwskz.
s_mwskz-low = 'W2'.
APPEND s_mwskz.
s_mwskz-low = 'W3'.
APPEND s_mwskz.
s_mwskz-low = 'W4'.
APPEND s_mwskz.
s_mwskz-low = 'W5'.
APPEND s_mwskz.
s_mwskz-low = 'W6'.
APPEND s_mwskz.
s_land1-sign = 'I'.
s_land1-option = 'NE'.
s_land1-low = 'IN'.
APPEND s_land1.
LOOP AT itab.
IF itab-mwskz NOT IN s_mwskz
AND itab-shkzg EQ 'S'
AND itab-bldat IN s_bldat
AND itab-region IN s_regio
AND itab-lifnr IN s_lifnr
AND itab-land1 IN s_land1
AND itab-werks IN s_werks
AND itab-bsart IN s_bsart.
ELSE.
DELETE itab.
CONTINUE.
ENDIF.
IF itab-vgart EQ 'RS'
AND itab-ivtyp EQ '5'
AND itab-stblg NE ' '.
itab-reverse = 'RS'.
ELSEIF itab-vgart EQ 'RD'
AND itab-ivtyp EQ ' '
AND itab-stblg NE ' '.
itab-reverse = 'RD'.
ENDIF.
MODIFY itab.
ENDLOOP.
ENDFORM. " FILTERING
*& Form CUSTOMS
text
--> p1 text
<-- p2 text
form CUSTOMS .
LOOP AT ITAB.
IF ITAB-LFBNR IS NOT INITIAL.
SELECT SINGLE BKTXT
FRBNR
budat
FROM MKPF INTO (BKTXT,FRBNR,budat)
WHERE MBLNR = ITAB-LFBNR
and mjahr = itab-lfgja.
move frbnr to itab-frbnr.
perform get_custom_invoice.
else.
select xblnr
bewtp
belnr
gjahr
from ekbe into table it_pohistory
where ebeln = itab-ebeln
and ebelp = itab-ebelp.
sort it_pohistory by xblnr.
read table it_pohistory with key xblnr = itab-xblnr bewtp = 'E' binary search.
if sy-subrc = 0.
SELECT SINGLE BKTXT
FRBNR
budat
FROM MKPF INTO (BKTXT,FRBNR,budat)
WHERE MBLNR = it_pohistory-belnr
and mjahr = it_pohistory-gjahr.
move it_pohistory-belnr to itab-lfbnr.
move frbnr to itab-frbnr.
perform get_custom_invoice.
endif.
ENDIF.
MODIFY ITAB.
clear: bktxt,frbnr,budat.
ENDLOOP.
SORT itab BY lfbnr belnr. " Sorting by GR no.
endform. " CUSTOMS
*& Form get_custom_invoice
text
--> p1 text
<-- p2 text
form get_custom_invoice .
CALL FUNCTION 'GET_CURRENT_YEAR'
EXPORTING
BUKRS = p_bukrs
DATE = budat
IMPORTING
CURRY = gjahr
determine if wrong characters were entered
IF ( BKTXT CN '1234567890' ).
*string contains wrong characters!
ITAB-BELNR1 = BKTXT.
ITAB-remarks = 'Wrng BoE Ref'.
EXIT.
ENDIF.
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
EXPORTING
input = BKTXT
IMPORTING
OUTPUT = BELNR
ITAB-BELNR1 = BELNR.
*For getting the Customs MIRO doc, it is assumed that the Fiscal Year of Customs Miro is same as Fiscal Year of Migo Posting Date
clear it_custom.
refresh it_custom.
SELECT WRBTR
KSCHL
EBELN
EBELP
FROM RSEG INTO CORRESPONDING FIELDS OF IT_CUSTOM
WHERE BELNR = BELNR
and gjahr = gjahr.
if sy-subrc = 0.
APPEND IT_CUSTOM.
endif.
ENDSELECT.
LOOP AT IT_CUSTOM.
IF IT_CUSTOM-EBELN = ITAB-EBELN AND IT_CUSTOM-EBELP = ITAB-EBELP.
CASE IT_CUSTOM-KSCHL.
WHEN 'JCDB'.
MOVE IT_CUSTOM-WRBTR TO ITAB-BED.
WHEN 'JCV1'.
MOVE IT_CUSTOM-WRBTR TO ITAB-CVD.
WHEN 'JECV'.
MOVE IT_CUSTOM-WRBTR TO ITAB-ECVD.
WHEN 'JEDB'.
MOVE IT_CUSTOM-WRBTR TO ITAB-ECED.
WHEN 'JCDS'.
MOVE IT_CUSTOM-WRBTR TO ITAB-SBED.
WHEN 'JCV2'.
MOVE IT_CUSTOM-WRBTR TO ITAB-NCVD.
ENDCASE.
ENDIF.
ENDLOOP.
endform. " get_custom_invoice
*& Form filtering2
text
--> p1 text
<-- p2 text
form filtering2 .
loop at itab.
if itab-lfbnr is initial.
delete itab.
endif.
endloop.
endform. " filtering2
*& Form top_of_page
text
FORM top_of_page.
CLEAR IT_DATA.
REFRESH IT_DATA.
*Company Details
SELECT adrnr FROM t001 INTO adrnr1 WHERE bukrs = p_bukrs.
ENDSELECT.
SELECT name1 name2 FROM adrc INTO (comp_name1,comp_name2) WHERE addrnumber = adrnr1.
ENDSELECT.
concatenate comp_name1 comp_name2 into comp_name.
wa_data-typ = 'H'.
wa_data-info = comp_name.
APPEND wa_data TO it_data.
*Plant Details for Display
loop at s_werks.
SELECT single adrnr FROM t001w INTO adrnr1 WHERE werks = s_werks-low.
SELECT single name1 name2 FROM adrc INTO (plant_name1,plant_name2) WHERE addrnumber = adrnr1.
concatenate s_werks-low ' - ' plant_name1 ',' plant_name2 into plant_name.
wa_data-info = plant_name.
APPEND wa_data TO it_data.
endloop.
WRITE : s_budat-low TO date1,
s_budat-high TO date2.
if r1 = 'X'.
CONCATENATE 'Import Purchase Register From :' date1 ' To : ' date2 INTO title.
elseif r2 = 'X'.
CONCATENATE 'Imp.Pur.Reg- Inv.Header From :' date1 ' To : ' date2 INTO title.
endif.
wa_data-info = title.
APPEND wa_data TO it_data.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
EXPORTING
it_list_commentary = it_data
I_LOGO =
I_END_OF_LIST_GRID =
CLEAR WA_DATA.
CLEAR IT_DATA.
ENDFORM. "top_of_page
*& Form importheader
text
--> p1 text
<-- p2 text
form importheader .
LOOP AT itab.
MOVE-CORRESPONDING itab TO it_header.
APPEND it_header.
ENDLOOP.
SORT it_header BY belnr.
<b>LOOP AT it_header.
AT END OF belnr.
READ TABLE it_header INDEX sy-tabix.
SUM. </b> " Summing the Amount for each Vendor Invoice No.
MOVE-CORRESPONDING it_header TO it_temp14.
APPEND it_temp14.
CLEAR it_temp14.
ENDAT.
ENDLOOP.
SORT it_temp14 BY belnr ASCENDING. " SORTING BY MIRO NUMBER
endform. " importheader
*& Form build_fieldcat1
text
--> p1 text
<-- p2 text
form build_fieldcat1 .
IF itab[] IS INITIAL.
MESSAGE 'No Values exist for the Selection.' TYPE 'S'.
STOP.
ENDIF.
DEFINE m_fieldcat.
itfieldcat-fieldname = &1.
itfieldcat-col_pos = &2.
itfieldcat-seltext_l = &3.
itfieldcat-do_sum = &4.
itfieldcat-outputlen = &5.
append itfieldcat to itfieldcat.
clear itfieldcat.
END-OF-DEFINITION.
m_fieldcat 'BELNR' '' 'MIRO NO' '' 10.
m_fieldcat 'LIFNR' '' 'VENDOR CODE' '' 10.
m_fieldcat 'NAME1' '' 'VENDOR NAME' '' 14.
m_fieldcat 'STR_SUPPL1' '' 'VENDOR ADDRESS' '' '15' .
m_fieldcat 'POST_CODE1' '' 'PINCODE' '' 6.
m_fieldcat 'XBLNR' '' 'VEN INV NO' '' 16.
m_fieldcat 'BLDAT' '' 'VEN INV DATE' '' 8.
m_fieldcat 'WERKS' '' 'PLANT' '' 8.
m_fieldcat 'WRBTR' '' 'VAL. OF GOODS' '' 11.
m_fieldcat 'WAERS' '' 'CURR' '' 5.
m_fieldcat 'INRVAL' '' 'INRVALUE' '' 11.
m_fieldcat 'BED' '' 'BED' '' 10.
m_fieldcat 'CVD' '' 'CVD' '' 10.
m_fieldcat 'ECVD' '' 'CESS ON CVD' '' 10.
m_fieldcat 'ECED' '' 'CESS ON DUTIES' '' 13.
*Bill of Lading Removed and Bill of Entry Added.
m_fieldcat 'FRBNR' '' 'BILL OF LADING' '' 13.
m_fieldcat 'BELNR1' '' 'BILL OF ENTRY' '' 13.
m_fieldcat 'REVERSE' '' 'Reversed' '' 2.
m_fieldcat 'FIDOC' '' 'FI DOC NO' '' 10.
m_fieldcat 'MWSKZ' '' 'TC' '' 2.
m_fieldcat 'BKLAS' '' 'VL CLS' '' 4.
m_fieldcat 'CITY1' '' 'VENDOR CITY' '' 10.
m_fieldcat 'QTR_MTH' '' 'MONTH' '' 10.
m_fieldcat 'QTR_YR' '' 'YEAR' '' 4.
m_fieldcat 'REMARKS' '' 'REMARKS' '' 15.
ENDFORM. " build_fieldcat
*& Form alv_display_header
text
--> p1 text
<-- p2 text
form alv_display_header .
IF sy-batch = space.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
i_callback_program = sy-repid
is_layout = gd_layout
i_callback_user_command = 'LIST2'
I_CALLBACK_TOP_OF_PAGE = 'TOP_OF_PAGE'
it_fieldcat = itfieldcat[]
i_save = 'A'
is_print = gd_prntparams
it_sort = itsort[]
TABLES
t_outtab = it_temp14
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.
ELSEIF sy-batch = 'X'.
CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
EXPORTING
i_callback_program = sy-repid
it_fieldcat = itfieldcat[]
it_sort = itsort[]
TABLES
t_outtab = it_temp14
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.
ENDIF.
endform. " alv_display_header
*& Form list1
text
-->R_UCOMM text
-->RS_SELFIELDtext
FORM list2 USING r_ucomm LIKE sy-ucomm
rs_selfield TYPE slis_selfield.
Check function code
CASE r_ucomm.
WHEN '&IC1'.
IF rs_selfield-fieldname = 'FIDOC'.
AND rs_selfield-fieldname = 'GJAHR'.
Read data table, using index of row user clicked on
READ TABLE it_temp14
INTO wa_ekko
INDEX rs_selfield-tabindex.
Set parameter ID for transaction screen field
SET PARAMETER ID 'BLN' FIELD it_temp14-fidoc.
SET PARAMETER ID 'BUK' FIELD p_bukrs.
SET PARAMETER ID 'GJR' FIELD it_temp14-gjahr.
Sxecute transaction ME23N, and skip initial data entry screen
CALL TRANSACTION 'FB03' AND SKIP FIRST SCREEN.
ENDIF.
IF rs_selfield-fieldname = 'BELNR'.
AND rs_selfield-fieldname = 'GJAHR'.
Read data table, using index of row user clicked on
READ TABLE it_temp14
INTO wa_ekko
INDEX rs_selfield-tabindex.
Set parameter ID for transaction screen field
SET PARAMETER ID 'RBN' FIELD it_temp14-BELNR.
SET PARAMETER ID 'GJR' FIELD it_temp14-gjahr.
Sxecute transaction ME23N, and skip initial data entry screen
CALL TRANSACTION 'MIR4' AND SKIP FIRST SCREEN.
ENDIF.
IF rs_selfield-fieldname = 'BELNR1'.
AND rs_selfield-fieldname = 'GJAHR'.
Read data table, using index of row user clicked on
READ TABLE it_temp14
INTO wa_ekko
INDEX rs_selfield-tabindex.
Set parameter ID for transaction screen field
SET PARAMETER ID 'RBN' FIELD it_temp14-BELNR1.
SET PARAMETER ID 'GJR' FIELD it_temp14-gjahr.
Sxecute transaction ME23N, and skip initial data entry screen
CALL TRANSACTION 'MIR4' AND SKIP FIRST SCREEN.
ENDIF.
ENDCASE.
ENDFORM.
Message was edited by:
Kiran KSandeep,
It is working fine for all the dates,but going giving dump only for a particular date.
KURSF is of length 9.Is it including decimal places.
So,if i declare a varibale of type p decimals 5 and then move actual kursf value to this variable and then SUM,it will work fine.
data:kursf1 type p decimals 5.
move it_header-kursf to it_header-kursf1.
or
just declare the existing kursf as type p decimals 5
But why it is not giving dump for other dates.
Thanks,
K.Kiran. -
Hi! I need help, today I connected my mac Book Air to a tv for a presentation and as soon as I conected it the image on my screen went bigger. And I cant find the way to put it back as it was before. The Images are too big! heelp
Morning DeeHutton,
Thanks for using Apple Support Communities.
For more information on this, take a look at this article:
iPhone: Hardware troubleshooting
http://support.apple.com/kb/ts2802
Best of luck,
Mario -
My homescreen won't resize and I can't access anything because everything is too big to navigate. Help.
Double-tap the screen with three fingers to disable Zoom.
To turn off Zoom go to Settings > General > Accessibility > Zoom and turn this Off. -
I'm stuck with a large folder of music on my PC in My Music folder. And I used "Organize Library" in iTunes but it didn't copy everything over because the amount of music was too big. I've deleted the original copies of music outside of iTunes to open up more space and was wondering if I do a second "Organize Library" if it will recognize that some of the music has already been copied over.
I don't know what "restore the iPod" is
It's usually the second thing to do (after Reset) when the iPod is not working correctly.
Select the iPod in iTunes and click Restore.
See this -> Restoring iPod to factory settings
what about my main question? Can I go back to "sync all" but manually block certain albums?
No because sync all is just that.
Sycning specific playlists should work fine. And you can create more than one and sync which ones you want.
Maybe you are looking for
-
Oracle forms to j2ee/web application
Hello all, I need help with converting "oracle forms" to j2ee/web application. There are only 2-3 forms. But I needed to know how to do it from scratch. I looked at some softwares available to do it. But its costly. Basically the company I am working
-
The plastic around the screen of iPhone 5 is sink showing some light from the inside
As I say, my iPhone 5 is not too good anymore. It maybe because of the time, but it only sink in one spot. So, do this happen to the others? Please help.
-
Bluetooth in a Car and Lock Code
Hello, in our companny we use Nokia E51 Phones, and we use Mail for Exchange to syncronisize. Our Policy request a lock code every 15 minutes. The Problem is now when the Phone is with Bluetooth concectet to a Car, you can only make calls if the lock
-
Macbook shutoff is a bad battery issue - free replacements offered
MacBook and MacBook Pro Battery Update 1.2 Apple has recently discovered that some batteries used in its MacBook and MacBook Pro notebooks may have battery performance issues. Apple is offering a software update that is designed to address these issu
-
Delta Linked object: reset attribute to inherit from parent
Hi all, I inherited an ESS system where the SAP content had changes made to it. The SAP supplied Employee Self-Service Role had some of the worksets set to Invisible in Navigation Areas. I would like to clear the indicator that says that attribute