MRP with LOT SIZE as "MB"(Monthly Lot Size)
Dear All
When I am Running MRP with LOT SIZE as "MB" (Monthly Lot Size)
System Is raising Planned Order,
My requirement is instead of Planned Orders I need system to raise Purchase Requisition
Regards
Chaitanya
Hello ,
It is because of the procurement type "X" in MRP 2 view of material master . IF you change it to "F" , your problem will be solved
Regards
Ramesh
Similar Messages
-
MRP run with lot size as per prod. version and capacity levelling
Dear PP experts,
Hi, We are working with strategy 10. For SFG and FG produced inhouse we have created BOM and recipe with production version.
For example:
I have a production version with batch size as 100 Kg.
I load PIR for 500 Kg in MD61.
I have maintained lot size as EX in the material master but I have not defined mini. and max. lot size.
Is it possible during the MRP to consider the production version batch size if the mini. and max. lot size is not maintained in the system and create 5 Planned Order of 100 Kg each.
I know, how it can be done by using lot size in material master or by maintaining schedule lines in MD61 or by maintaining quota. But if nothing is maintained is it possible for the system to create 5 Planned orders as per the production version batch size.
Pl. check if this is possible and revert back.
Regards,
PrashantHi
No, system will not consider the size that maintained in the production version for the creation of planned order while the mrp run .
This lost size is used to validate the bom/ routing combiation for the particular pv of the material -
Planned order with Lot size and Planning Calendar in MRP
Hi All
I request your help in understanding MRP results in below mentioned scenario:
Material: A
Planning Calendar: D1 (Monday only)
MRP Type: PD
Lot size: Z1 (this is copy of PK with Period Start = Start Date)
Safety Days Time: 3
Safety time indicator: 2
In house Production time: 1
I am running MRP with
NETCH
Planning mode: 3 (Delete and recreate planning)
scheduling: 2 (lead time scheduling)
"My PIRs are:
"Date--------------------PIR -----Receipt------Avail Qty------ATP Qty ----Actual Cover
"Friday :08.4.11" ---- "-100" ------ "0" ---- "-100.00" ------ "0" ---- "-5"
"Monday: 11.4.11" --- "-200" ----- "0" ----- "-300.00" ------ "0" ----- "-2"
"Wed : 12.4.11" --- "0" ---- "370" ---------- "70.00" --------"20"----- "5"
"Thursday 14.4.11" --- "-50" ------ "0" -------- "20.00" ------- "0" ------"3"
"Saturday 16.4.11" -- "-10" ---------- "0" ------- "0.00" -------- "10" ----- "1"
"Sunday 17.4.112" ---- "-10" ------- "0" ------- "0.00" ---------- "0" ----- "0"
"Tuesday 19.4.11" --- "0" ------- "2000" ------- "2000.00" ------ "2000" --- "6"
"Thursday 21.4.11" -- "-1000" ------ "0" -------"1000.00" ------- "1000" --- "4"
"Monday 25.4.11" --- "-1000" ------- "0" ---------- "0" ----------- "0"------- "0"
"Tuesday 26.4.11"---- "0" -------- "100" -------- "100" -------- "100" ----- "3"
"Friday 29.4.11" --- "-100" ---- "0" ------ "0" -------- "0" -------- "0"
I am executing MRP on 7.04.11
As shown above the, can you please explain why the planned order is on Wed 12th and it covers 5 days requirement and similarly Tuesday 19th and covers 6 days.
I am not able to relate the relation between Planning calendar and Lot size procedure used. Also what would happen if I make planning calendar valid for two days in a week.
Thanks in advance
RahulThanks dear
Yes you are right the Planning Calendar starts 18.4.11 and ends 24.4.11
Now as far as first planned order is concerned I thought it should be scheduled to start&end on Monday 11.04.11, rather it starts&ends on Tuesday 12.4.11. Also the actual coverage days goes up to 5 days even though its maintained for 3 days.
Similarly the second planned order also comes up on Tuesday 19.04.11 and covers 6 days (more than the setting and planning Calendar of only Monday)
On the whole this is confusing me on Lot size and Planning Calendar relation and how it impacts MRP. Can you please help me on this.
Also if you can throw some details on: how to restrict MRP to give planned order only on, say, Monday and Thursday, as only then it could be produced.
Thanks in advance
Rahul -
Planning time fence with Lot size MB
Hi Friends,
I am facing one issue as below,
I am using MRP type P3 , Planning time fence is 20 days , Lot size is MB (Monthly). I am not using MRP group.
Planning time fence should be calculated as Todays date+Planning time fence on MRP1 but if the calculated date with this formula is going in next month system takes first date of next following month as Planning time fence (effect of lot size MB).
WIth lot size EX , it works fine.
Can we avoid shifting of Planning time fence to first date of following month with lot size MB?
Thanks.
SandeepI got a workaround , I have used 2 lot sizing procedure in a sigle lot size. Daily lot size (for Short term) and Monthly lot size for Long term. For short term requirements are grouped for 28 days. Closing the thread. Thanks.
-
BDC with lots of validations and conversions
hi to all experts,
i need a sample bdc program with lots of validations and conversion.
thanksHi,
REPORT ZMMFTS01A_MAINTAIN_SOURCE_LIST NO STANDARD PAGE HEADING
LINE-SIZE 250.
TABLES eord.
***Types Declaration
**Type of Upload File
TYPES : BEGIN OF ty_final,
matnr(018), "Material No
werks(004), "Plant
vdatu(010), "valid From
bdatu(010), "valid To
lifnr(010), "Vendor
ekorg(004), "Purchase Org
reswk(004), "Plant from which material is procured
ebeln(010), "Agreement
ebelp(005), "Item
feskz(003), "Fix
notkz(003), "Blk
autet(003), "MRP
END OF ty_final.
**Type for Error Records
TYPES : BEGIN OF ty_errmsg,
matnr(018),
werks(004),
vdatu(010),
bdatu(010),
lifnr(010),
ekorg(004),
reswk(004),
ebeln(010),
ebelp(005),
feskz(003),
notkz(003),
autet(003),
messg(200),
END OF ty_errmsg.
**Type to get the existing no of records before comparison
TYPES : BEGIN OF ty_eord,
matnr LIKE eord-matnr,
werks LIKE eord-werks,
erdat LIKE eord-erdat,
vdatu LIKE eord-vdatu,
bdatu LIKE eord-bdatu,
lifnr LIKE eord-lifnr,
flifn LIKE eord-flifn,
ebeln LIKE eord-ebeln,
ebelp LIKE eord-ebelp,
febel LIKE eord-febel,
reswk LIKE eord-reswk,
notkz LIKE eord-notkz,
ekorg LIKE eord-ekorg,
autet LIKE eord-autet,
END OF ty_eord.
**Type to get the no of records in the Database after comparison
TYPES : BEGIN OF ty_eord1,
vdatu LIKE eord-vdatu,
bdatu LIKE eord-bdatu,
END OF ty_eord1.
***Data Declarations
DATA : v_repid LIKE sy-repid,
v_datfm LIKE usr01-datfm,
v_message(200),
v_err_rec TYPE i,
v_errors TYPE i,
v_updated TYPE i,
v_matnr TYPE matnr,
v_lines TYPE i,
v_eord_row TYPE i,
s_count(2) TYPE n,
v_fnam(20) TYPE c,
v_tabix(2) TYPE n,
v_vdatu(10),
v_bdatu LIKE eord-bdatu,
v_datum(10),
f_option type ctu_params.
****Begin of Changes by Pavan Ticket 648507 "D13K948908
DATA : s_vdatu TYPE sy-datum,
s_bdatu TYPE sy-datum.
****End of Changes By Pavan Ticket 648507 "D13K948908
***Internal Tables Declaration
DATA : it_eord TYPE STANDARD TABLE OF ty_eord WITH HEADER LINE, "Internal Table for Appending all the Rows of DB Table EORD
it_bdcdata TYPE STANDARD TABLE OF bdcdata WITH HEADER LINE,
it_final TYPE STANDARD TABLE OF ty_final WITH HEADER LINE,
it_err_rec TYPE STANDARD TABLE OF ty_final WITH HEADER LINE,
it_messtab TYPE STANDARD TABLE OF bdcmsgcoll WITH HEADER LINE,
it_errmsg TYPE STANDARD TABLE OF ty_errmsg WITH HEADER LINE,
it_eord1 TYPE STANDARD TABLE OF ty_eord1 WITH HEADER LINE,
it_ctu_params TYPE STANDARD TABLE OF ctu_params WITH HEADER LINE.
DATA : wa_final LIKE LINE OF it_final.
***Constants
CONSTANTS : c_1 TYPE i VALUE '1',
c_12 TYPE i VALUE '12',
c_x VALUE 'X'.
***Selection Screen
SELECTION-SCREEN : BEGIN OF BLOCK header WITH FRAME TITLE text-002.
SELECTION-SCREEN SKIP.
PARAMETERS P_FNAME LIKE RLGRAP-FILENAME OBLIGATORY.
SELECTION-SCREEN : END OF BLOCK header.
I N I L I T I A L I Z A T I O N *
INITIALIZATION.
it_ctu_params-updmode = 'S'.
it_ctu_params-defsize = 'X'.
it_ctu_params-dismode = 'N'.
APPEND it_ctu_params.
A T S E L E C T I O N S C R E E N *
AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_FNAME.
PERFORM file_get.
S T A R T O F S E L E C T I O N *
START-OF-SELECTION.
PERFORM upload_xcel.
IF NOT it_final[] IS INITIAL.
SORT it_final BY matnr werks lifnr ekorg reswk ebeln ebelp.
DESCRIBE TABLE it_final LINES v_lines.
ENDIF.
**To Know the Date Format for the user name in user master record
SELECT SINGLE datfm FROM usr01
INTO v_datfm
WHERE bname = sy-uname.
**Updating the Database based on the Combinations of Vendor/PPL/Porg and Agreement/Item
LOOP AT it_final.
*****Begin of Changes By Pavan Ticket 648507 "D13K948908
CLEAR : s_vdatu, s_bdatu.
CONCATENATE it_final-vdatu6(4) it_final-vdatu0(2) it_final-vdatu+3(2) INTO s_vdatu.
CONCATENATE it_final-bdatu6(4) it_final-bdatu0(2) it_final-bdatu+3(2) INTO s_bdatu.
PERFORM plant_conversion USING it_final-werks.
*****End of Changes By Pavan Ticket 648507 "D13K948908
REFRESH it_eord[].
v_matnr = it_final-matnr.
**Adding preceeding Zeroes to the Material No
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
EXPORTING
INPUT = v_matnr
IMPORTING
OUTPUT = v_matnr.
**Adding preceeding Zeroes to the Vendor
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
EXPORTING
INPUT = it_final-lifnr
IMPORTING
OUTPUT = it_final-lifnr.
**Adding preceeding Zeroes to the Item
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
EXPORTING
INPUT = it_final-ebelp
IMPORTING
OUTPUT = it_final-ebelp.
TRANSLATE it_final-feskz TO UPPER CASE.
TRANSLATE it_final-notkz TO UPPER CASE.
Select the Existing Records from EORD for the Combination of Material and Plant of New Record
SELECT matnr
werks
erdat
vdatu
bdatu
lifnr
flifn
ebeln
ebelp
febel
reswk
notkz
ekorg
autet FROM eord INTO corresponding fields of TABLE it_eord
WHERE matnr EQ v_matnr
AND werks EQ it_final-werks.
SORT it_eord BY matnr werks vdatu bdatu erdat lifnr ekorg reswk ebeln ebelp.
IF sy-subrc EQ 0.
LOOP AT it_eord.
If the Combination of Old Records Vendor/PPL/Porg is same and Agreement/Item
is also same then delete the Old Record and Upload the New Record
IF it_eord-MATNR = V_MATNR AND
it_eord-WERKS = IT_FINAL-WERKS AND
it_eord-LIFNR = IT_FINAL-LIFNR AND
it_eord-EKORG = IT_FINAL-EKORG AND
it_eord-RESWK = IT_FINAL-RESWK AND
it_eord-EBELN = IT_FINAL-EBELN AND
it_eord-EBELP = IT_FINAL-EBELP.
*****Begin of Changes By Pavan Ticket 648507 "D13K948908
IF s_vdatu GT it_eord-bdatu OR s_bdatu LT it_eord-vdatu.
ELSE.
*****End of Changes By Pavan Ticket 648507 "D13K948908
v_tabix = sy-tabix.
PERFORM bdc_dynpro USING 'SAPLMEOR' '0200'.
PERFORM bdc_field USING : 'EORD-MATNR' it_final-matnr,
'EORD-WERKS' it_final-WERKS,
'BDC_OKCODE' '/00'.
PERFORM bdc_dynpro USING 'SAPLMEOR' '0205'.
CONCATENATE 'RM06W-SELKZ(' v_tabix ')' INTO v_fnam.
PERFORM bdc_field USING : v_fnam 'X'.
PERFORM bdc_field USING 'BDC_OKCODE' '=LOES'.
PERFORM bdc_dynpro USING 'SAPLSPO1' '0200'.
PERFORM bdc_field USING 'BDC_OKCODE' '=YES'.
PERFORM bdc_dynpro USING 'SAPLMEOR' '0205'.
PERFORM bdc_field USING 'BDC_OKCODE' '=BU'.
ENDIF.
ELSE.
If the Combination of Old Records Vendor/PPL/Porg is same and Agreement/Item
is different, if the FIX of the Existing one is X and also the FIX of the New one
is X then deselect the FIX of the Old one, if the MRP of the Old one is 1 and also
the MRP of the New one is 1 then delete the MRP of the Old one, if the FIX and MRP
of the Old one is X,1 and if it is same for the new one also, then delete the FIX
and MRP of the Old one and insert the new one also
IF it_eord-lifnr = it_final-lifnr AND
it_eord-ekorg = it_final-ekorg AND
it_eord-reswk = it_final-reswk AND
it_eord-ebeln NE '' AND it_final-ebeln NE ''.
IF it_eord-ebeln NE it_final-ebeln OR it_eord-ebelp NE it_final-ebelp.
IF it_eord-febel EQ 'X' OR it_eord-autet EQ '1'.
v_tabix = sy-tabix.
IF it_final-feskz = 'X' AND it_final-autet = '1'.
it_eord-febel = ''.
it_eord-autet = ''.
*****Begin of Changes By Pavan Ticket 648507 "D13K948908
IF s_vdatu GT it_eord-bdatu OR s_bdatu LT it_eord-vdatu.
ELSE.
*****End of Changes By Pavan Ticket 648507 "D13K948908
PERFORM bdc_dynpro USING 'SAPLMEOR' '0200'.
PERFORM bdc_field USING : 'EORD-MATNR' it_final-matnr,
'EORD-WERKS' it_final-WERKS,
'BDC_OKCODE' '/00'.
PERFORM bdc_dynpro USING 'SAPLMEOR' '0205'.
CONCATENATE 'RM06W-FESKZ(' v_tabix ')' INTO v_fnam.
PERFORM bdc_field1 USING : v_fnam SPACE.
CONCATENATE 'EORD-AUTET(' v_tabix ')' INTO v_fnam.
PERFORM bdc_field1 USING : v_fnam SPACE.
PERFORM bdc_field USING 'BDC_OKCODE' '=BU'.
ENDIF.
ELSEIF
it_final-feskz = 'X'.
it_eord-febel = ''.
*****Begin of Changes By Pavan Ticket 648507 "D13K948908
IF s_vdatu GT it_eord-bdatu OR s_bdatu LT it_eord-vdatu.
ELSE.
*****End of Changes By Pavan Ticket 648507 "D13K948908
PERFORM bdc_dynpro USING 'SAPLMEOR' '0200'.
PERFORM bdc_field USING : 'EORD-MATNR' it_final-matnr,
'EORD-WERKS' it_final-WERKS,
'BDC_OKCODE' '/00'.
PERFORM bdc_dynpro USING 'SAPLMEOR' '0205'.
CONCATENATE 'RM06W-FESKZ(' v_tabix ')' INTO v_fnam.
PERFORM bdc_field1 USING : v_fnam SPACE.
PERFORM bdc_field USING 'BDC_OKCODE' '=BU'.
ENDIF.
ELSEIF
it_final-autet = '1'.
it_eord-autet = ''.
*****Begin of Changes By Pavan Ticket 648507 "D13K948908
IF s_vdatu GT it_eord-bdatu OR s_bdatu LT it_eord-vdatu.
ELSE.
*****End of Changes By Pavan Ticket 648507 "D13K948908
PERFORM bdc_dynpro USING 'SAPLMEOR' '0200'.
PERFORM bdc_field USING : 'EORD-MATNR' it_final-matnr,
'EORD-WERKS' it_final-WERKS,
'BDC_OKCODE' '/00'.
PERFORM bdc_dynpro USING 'SAPLMEOR' '0205'.
CONCATENATE 'EORD-AUTET(' v_tabix ')' INTO v_fnam.
PERFORM bdc_field1 USING : v_fnam SPACE.
PERFORM bdc_field USING 'BDC_OKCODE' '=BU'.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
CLEAR it_eord.
IF NOT it_bdcdata[] IS INITIAL.
CALL TRANSACTION 'ME01' USING it_bdcdata
OPTIONS FROM it_ctu_params.
REFRESH it_bdcdata[].
EXIT.
ENDIF.
ENDLOOP.
ENDIF.
ENDIF.
CLEAR : v_matnr, it_final.
ENDLOOP.
REFRESH : it_eord[].
FREE it_eord.
**Updating the Records of Upload File into ME01
LOOP AT it_final INTO wa_final.
it_final = wa_final.
CLEAR v_matnr.
TRANSLATE it_final-feskz TO UPPER CASE.
TRANSLATE it_final-notkz TO UPPER CASE.
*****Begin of Changes By Pavan Ticket 648507 "D13K948908
PERFORM plant_conversion USING wa_final-werks.
*****End of Changes By Pavan Ticket 648507 "D13K948908
**To convert the Valid From and Valid To into User's Format
CASE v_datfm.
WHEN 1.
CONCATENATE it_final-vdatu3(2) '.' it_final-vdatu0(2) '.' it_final-vdatu+6(4) INTO it_final-vdatu.
CONCATENATE it_final-bdatu3(2) '.' it_final-bdatu0(2) '.' it_final-bdatu+6(4) INTO it_final-bdatu.
WHEN 2.
CONCATENATE it_final-vdatu0(2) '/' it_final-vdatu3(2) '/' it_final-vdatu+6(4) INTO it_final-vdatu.
CONCATENATE it_final-bdatu0(2) '/' it_final-bdatu3(2) '/' it_final-bdatu+6(4) INTO it_final-bdatu.
WHEN 3.
CONCATENATE it_final-vdatu0(2) '-' it_final-vdatu3(2) '-' it_final-vdatu+6(4) INTO it_final-vdatu.
CONCATENATE it_final-bdatu0(2) '-' it_final-bdatu3(2) '-' it_final-bdatu+6(4) INTO it_final-bdatu.
WHEN 4.
CONCATENATE it_final-vdatu6(4) '.' it_final-vdatu0(2) '.' it_final-vdatu+3(2) INTO it_final-vdatu.
CONCATENATE it_final-bdatu6(4) '.' it_final-bdatu0(2) '.' it_final-bdatu+3(2) INTO it_final-bdatu.
WHEN 5.
CONCATENATE it_final-vdatu6(4) '/' it_final-vdatu0(2) '/' it_final-vdatu+3(2) INTO it_final-vdatu.
CONCATENATE it_final-bdatu6(4) '/' it_final-bdatu0(2) '/' it_final-bdatu+3(2) INTO it_final-bdatu.
WHEN 6.
CONCATENATE it_final-vdatu6(4) '-' it_final-vdatu0(2) '-' it_final-vdatu+3(2) INTO it_final-vdatu.
CONCATENATE it_final-bdatu6(4) '-' it_final-bdatu0(2) '-' it_final-bdatu+3(2) INTO it_final-bdatu.
***End of Changes by Pavan "D13K945062
WHEN 'A'.
CONCATENATE it_final-vdatu6(4) '/' it_final-vdatu3(2) '/' it_final-vdatu+0(2) INTO it_final-vdatu.
CONCATENATE it_final-bdatu6(4) '.' it_final-bdatu3(2) '.' it_final-bdatu+0(2) INTO it_final-bdatu.
WHEN 'B'.
CONCATENATE it_final-vdatu6(4) '/' it_final-vdatu3(2) '/' it_final-vdatu+0(2) INTO it_final-vdatu.
CONCATENATE it_final-bdatu6(4) '.' it_final-bdatu3(2) '.' it_final-bdatu+0(2) INTO it_final-bdatu.
WHEN 'C'.
CONCATENATE it_final-vdatu6(4) '/' it_final-vdatu3(2) '/' it_final-vdatu+0(2) INTO it_final-vdatu.
CONCATENATE it_final-bdatu6(4) '.' it_final-bdatu3(2) '.' it_final-bdatu+0(2) INTO it_final-bdatu.
ENDCASE.
AT NEW werks.
CLEAR s_count.
REFRESH : it_bdcdata[], it_eord1[].
PERFORM bdc_dynpro USING 'SAPLMEOR' '0200'.
PERFORM bdc_field USING : 'EORD-MATNR' it_final-matnr,
'EORD-WERKS' it_final-WERKS,
'BDC_OKCODE' '/00'.
PERFORM bdc_dynpro USING 'SAPLMEOR' '0205'.
**Adding preceeding Zeroes to the Material No
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
EXPORTING
INPUT = it_final-matnr
IMPORTING
OUTPUT = v_matnr.
**To know the Number of records in EORD after Updating with new records
SELECT vdatu
bdatu FROM EORD
INTO TABLE it_eord1
WHERE matnr = v_matnr
AND werks = it_final-werks.
DESCRIBE TABLE it_eord1 LINES v_eord_row.
s_count = v_eord_row + 1.
ENDAT.
CONCATENATE 'EORD-VDATU(' s_count ')' INTO v_fnam.
PERFORM bdc_field USING : v_fnam it_final-VDATU.
CONCATENATE 'EORD-BDATU(' s_count ')' INTO v_fnam.
PERFORM bdc_field USING : v_fnam it_final-BDATU.
CONCATENATE 'EORD-EKORG(' s_count ')' INTO v_fnam.
PERFORM bdc_field USING : v_fnam it_final-EKORG.
CONCATENATE 'EORD-LIFNR(' s_count ')' INTO v_fnam.
PERFORM bdc_field USING : v_fnam it_final-LIFNR.
CONCATENATE 'EORD-RESWK(' s_count ')' INTO v_fnam.
PERFORM bdc_field USING : v_fnam it_final-RESWK.
CONCATENATE 'EORD-EBELN(' s_count ')' INTO v_fnam.
PERFORM bdc_field USING : v_fnam it_final-EBELN.
CONCATENATE 'EORD-EBELP(' s_count ')' INTO v_fnam.
PERFORM bdc_field USING : v_fnam it_final-EBELP.
CONCATENATE 'RM06W-FESKZ(' s_count ')' INTO v_fnam.
PERFORM bdc_field USING : v_fnam it_final-FESKZ.
CONCATENATE 'EORD-NOTKZ(' s_count ')' INTO v_fnam.
PERFORM bdc_field USING : v_fnam it_final-NOTKZ.
CONCATENATE 'EORD-AUTET(' s_count ')' INTO v_fnam.
PERFORM bdc_field USING : v_fnam it_final-AUTET.
AT END OF werks.
PERFORM bdc_field USING 'BDC_OKCODE' '=BU'.
REFRESH it_messtab[].
CALL TRANSACTION 'ME01' USING it_bdcdata
OPTIONS FROM it_ctu_params
MODE 'A'
UPDATE 'L'
MESSAGES INTO it_messtab.
IF SY-SUBRC NE 0.
it_err_rec-matnr = it_final-matnr.
it_err_rec-werks = it_final-werks.
it_err_rec-vdatu = it_final-vdatu.
it_err_rec-bdatu = it_final-bdatu.
it_err_rec-lifnr = it_final-lifnr.
it_err_rec-ekorg = it_final-ekorg.
it_err_rec-reswk = it_final-reswk.
it_err_rec-ebeln = it_final-ebeln.
it_err_rec-ebelp = it_final-ebelp.
it_err_rec-feskz = it_final-feskz.
it_err_rec-notkz = it_final-notkz.
it_err_rec-autet = it_final-autet.
APPEND it_err_rec.
CLEAR it_err_rec.
PERFORM format_message.
ENDIF.
ENDAT.
ENDLOOP.
**To Upload the Error Records into another Excel File
IF NOT it_err_rec[] IS INITIAL.
PERFORM errors_file.
DESCRIBE TABLE it_err_rec LINES v_err_rec.
v_errors = v_err_rec - 1.
ELSE.
v_errors = 0.
ENDIF.
v_updated = v_lines - v_errors.
WRITE : /2 'RUN DATE :' color COL_NORMAL, 20 sy-datum,
/2 'RUN TIME :' color COL_NORMAL, 20 sy-uzeit.
SKIP 2.
WRITE : /2 'FILE PATH :' color COL_NORMAL, 20 p_fname.
SKIP 2.
WRITE : /2 'RESULTS' color COL_NORMAL.
SKIP.
WRITE : /2 'Number of Rows in the Upload File :' color COL_NORMAL, v_lines,
/2 'Number of Rows Updated :' color COL_NORMAL, v_updated,
/2 'Number of Error Records :' color COL_NORMAL, v_errors.
IF it_errmsg[] IS NOT INITIAL.
SKIP 2.
WRITE : /2 'Details of the Error Records' color COL_NORMAL.
SKIP.
ULINE.
FORMAT COLOR COL_NORMAL.
WRITE : /2 'Material',
22 'Plant',
28 'Valid From',
40 'Valid To',
52 'Vendor',
64 'Porg',
70 'PPL',
76 'Agreement',
88 'Item',
94 'Fix',
98 'Blk',
102 'MRP',
106 'Err. Description'.
FORMAT COLOR OFF.
ULINE.
LOOP AT it_errmsg.
AT NEW autet.
WRITE : /2 it_errmsg-matnr,
22 it_errmsg-werks,
28 it_errmsg-vdatu,
40 it_errmsg-bdatu,
52 it_errmsg-lifnr,
64 it_errmsg-ekorg,
70 it_errmsg-reswk,
76 it_errmsg-ebeln,
88 it_errmsg-ebelp,
94 it_errmsg-feskz,
98 it_errmsg-notkz,
102 it_errmsg-autet.
ENDAT.
WRITE 106 it_errmsg-messg.
ENDLOOP.
ENDIF.
E N D O F S E L E C T I O N *
END-OF-SELECTION.
*& Form file_get
Selects the File Name and Path
FORM file_get .
CALL FUNCTION 'KD_GET_FILENAME_ON_F4'
EXPORTING
PROGRAM_NAME = v_repid
DYNPRO_NUMBER = SYST-DYNNR
FIELD_NAME = p_fname
CHANGING
FILE_NAME = p_fname
EXCEPTIONS
MASK_TOO_LONG = 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. " file_get
*& Form upload_xcel
Uploading data to an Internal Table
FORM upload_xcel .
DATA: BEGIN OF it_intern OCCURS 0.
INCLUDE STRUCTURE ALSMEX_TABLINE. " Rows for Table with Excel Data
DATA: END OF it_intern.
DATA v_no_rows TYPE i VALUE 9999.
FIELD-SYMBOLS : <fs1>.
CALL FUNCTION 'ALSM_EXCEL_TO_INTERNAL_TABLE'
EXPORTING
FILENAME = P_FNAME
I_BEGIN_COL = c_1
I_BEGIN_ROW = c_1
I_END_COL = c_12
I_END_ROW = v_no_rows
TABLES
INTERN = it_intern
EXCEPTIONS
INCONSISTENT_PARAMETERS = 1
UPLOAD_OLE = 2
OTHERS = 3.
IF SY-SUBRC NE 0.
MESSAGE text-016 TYPE 'I'.
ENDIF.
LOOP AT it_intern.
ASSIGN COMPONENT it_intern-col OF STRUCTURE
it_final TO <fs1>.
IF sy-subrc NE 0.
EXIT.
ENDIF.
<fs1> = it_intern-value.
AT END OF row.
APPEND it_final.
CLEAR it_final.
ENDAT.
Endloop.
FREE it_intern.
***To Delete the Headings from the Internal Table.
DELETE it_final WHERE matnr CA 'MATmat'.
ENDFORM. " upload_xcel
*& Form bdc_dynpro
Populate Screen Name
FORM bdc_dynpro USING PROGRAM
DYNPRO.
CLEAR it_bdcdata.
it_bdcdata-PROGRAM = PROGRAM.
it_bdcdata-DYNPRO = DYNPRO.
it_bdcdata-DYNBEGIN = 'X'.
APPEND it_bdcdata.
ENDFORM. " bdc_dynpro
*& Form bdc_field
Populate Screen Field
FORM bdc_field USING FNAM
FVAL.
IF FVAL <> SPACE.
CLEAR it_bdcdata.
it_bdcdata-FNAM = FNAM.
it_bdcdata-FVAL = FVAL.
APPEND it_bdcdata.
ENDIF.
ENDFORM. " bdc_field
*& Form bdc_field
Populate Screen Field
FORM bdc_field1 USING FNAM
FVAL.
CLEAR it_bdcdata.
it_bdcdata-FNAM = FNAM.
it_bdcdata-FVAL = FVAL.
APPEND it_bdcdata.
ENDFORM. " bdc_field
*& Form errors_file
Downloads the Error Records
FORM errors_file .
DATA : l_fname TYPE string,
l_var1 TYPE string,
l_var2 TYPE string.
l_fname = p_fname.
SPLIT l_fname at '.' into l_var1 l_var2.
CONCATENATE l_var1 '_error.' l_var2 INTO l_fname.
**To Write the Headings in the Excel File
it_err_rec-matnr = text-003.
it_err_rec-werks = text-004.
it_err_rec-vdatu = text-005.
it_err_rec-bdatu = text-006.
it_err_rec-lifnr = text-007.
it_err_rec-ekorg = text-008.
it_err_rec-reswk = text-009.
it_err_rec-ebeln = text-010.
it_err_rec-ebelp = text-011.
it_err_rec-feskz = text-012.
it_err_rec-notkz = text-013.
it_err_rec-autet = text-014.
INSERT it_err_rec INDEX 1.
CLEAR it_err_rec.
CALL FUNCTION 'GUI_DOWNLOAD'
EXPORTING
FILENAME = l_fname
FILETYPE = 'DAT'
APPEND = ' '
CONFIRM_OVERWRITE = ' '
TABLES
DATA_TAB = it_err_rec
EXCEPTIONS
FILE_WRITE_ERROR = 1
NO_BATCH = 2
GUI_REFUSE_FILETRANSFER = 3
INVALID_TYPE = 4
NO_AUTHORITY = 5
UNKNOWN_ERROR = 6
HEADER_NOT_ALLOWED = 7
SEPARATOR_NOT_ALLOWED = 8
FILESIZE_NOT_ALLOWED = 9
HEADER_TOO_LONG = 10
DP_ERROR_CREATE = 11
DP_ERROR_SEND = 12
DP_ERROR_WRITE = 13
UNKNOWN_DP_ERROR = 14
ACCESS_DENIED = 15
DP_OUT_OF_MEMORY = 16
DISK_FULL = 17
DP_TIMEOUT = 18
FILE_NOT_FOUND = 19
DATAPROVIDER_EXCEPTION = 20
CONTROL_FLUSH_ERROR = 21
OTHERS = 22.
IF SY-SUBRC EQ 0.
MESSAGE text-015 TYPE 'S'.
ENDIF.
ENDFORM. " errors_file
*& Form format_message
To Write the Error Records
FORM format_message .
IF NOT it_messtab[] IS INITIAl.
LOOP AT it_messtab.
IF it_messtab-msgtyp = 'E'.
CALL FUNCTION 'FORMAT_MESSAGE'
EXPORTING
ID = it_messtab-msgid
LANG = sy-langu
NO = it_messtab-msgnr
V1 = it_messtab-msgv1
V2 = it_messtab-msgv2
V3 = it_messtab-msgv3
V4 = it_messtab-msgv4
IMPORTING
MSG = v_message
EXCEPTIONS
NOT_FOUND = 1
OTHERS = 2.
IF SY-SUBRC EQ 0.
it_errmsg-matnr = it_final-matnr.
it_errmsg-werks = it_final-werks.
it_errmsg-vdatu = it_final-vdatu.
it_errmsg-bdatu = it_final-bdatu.
it_errmsg-ekorg = it_final-ekorg.
it_errmsg-lifnr = it_final-lifnr.
it_errmsg-reswk = it_final-reswk.
it_errmsg-ebeln = it_final-ebeln.
it_errmsg-ebelp = it_final-ebelp.
it_errmsg-feskz = it_final-feskz.
it_errmsg-notkz = it_final-notkz.
it_errmsg-autet = it_final-autet.
it_errmsg-messg = v_message.
APPEND it_errmsg.
CLEAR : it_errmsg, v_message.
ENDIF.
ENDIF.
ENDLOOP.
ENDIF.
ENDFORM. " format_message
*& Form plant_conversion
Adding preceeding Zeroes
-->P_IT_FINAL_WERKS text
FORM plant_conversion USING P_VAR.
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
EXPORTING
INPUT = P_VAR
IMPORTING
OUTPUT = P_VAR.
ENDFORM. " plant_conversion
Hope it helps!!!
Regards,
Pavan -
Using slideshow with lots of pictures crashes all the time
I am again working on a project with 400 pictures. As I try to get then into the project, the thing just crashes all the time and I have to load back up. Since this has happened to me on many projects, but I do not see others having issues, this implies others do not use slideshow much with lots of pictures. And this time it is a DVD.
DaveWith PPro can you do a transistion to 350 pictures at one time?
Yes, with Automate to Sequence, but there are limitations and qualifications. This would be a good subject to read up on, so that all i's are dotted, and t's are crossed, per the requirements of this function. This will apply a single Transition to all images.
I use Dip-to-Black, Cross-Dissolve and then butt-cuts for 99% of my Transitions. Each is chosen specifically to convey the passage of time, etc.
Can you get PPro do some random pan and zoom on the 350 in a single step?
No. Now, I treat each image as unique, and animate each thusly. If I have one image with a face, I may want to zoom in and pan to the eyes, or the mouth. If I have a group shot, I may want to single out one person's face. Even with advanced AI, no program can possibly know what I, the producer, will want from any picture. I have never used any random pans and zooms, as I have my own ideas of what animation should be applied. That is one reason that I can decide on the exact Scale (size) of each image. In a normal SlideShow, the vast majority of my images will be resized to the exact Frame Size of the Project. I then may have a few, that are larger by a good bit, because I will pan on a zoomed out image. Then, I might have some more, that are in between these sizes. I will do a separate folder for each size of image, and use them accordingly. If I have miscalculated, I just do a resize for that image.
Now, you might want to also look into ProShow Gold, or their Producer program. I am looking at Producer for more "canned" SlideShows, and it looks very good. Have not bought it yet, as PrPro still works well for me, and I still do most of my work by hand and by eye.
Good luck,
Hunt -
Server folder with lots of files hangs Finder and Terminal
I work remotely from home, and connect to my company's PC network using VPN software and Finder's Go -> Connect to Server...
Pre-Tiger, this worked fine. I could browse remote folders in the Finder, no matter how many files and other folders were contained in these folders...
Ever since I loaded Tiger, when I connect to a server and navigate to a folder with "lots of" files (I don't know what the number is, but I do know that one of the folders that is a problem for me has 130 folders in it), the Finder hangs up and has to be relaunched...
The same goes if I open a Terminal window and "cd" to the same directory... if I do an "ls", it hangs.
I repeat, I never had this problem pre-Tiger, and the folders have not grown in size.
Please help?
Thank you!I think I solved it!!! After trying all sorts of copying from backups etc.... with no good result, I resorted to Cocktail and used the function in the second page called... System, under the Tab called Database 'Rebuild launch services database', though don't tick the box.
This fixed things for me!! Hope it works for you too. -
I've recently been given a macbook pro from uni, with lots of adobe software on. I want to pair it with my iMac which has music etc and is it possible to get the software to the imac and the files to the macbook?Giving me the best of both :-)
You would need the original installation disks or files for the Adobe software to get it onto your iMac, and having it on two computers may not be allowed by your university's licensing. Talk to whoever issued the MacBook.
As to the music, just copy it over to the MacBook, either via Home Sharing, file sharing, or an external storage medium (hard drive, USB flash drive, etc.).
Regards. -
Hello, I downloaded an ntfs systemfile from tuxera and used it to convert a usb stick so I could put more than the fat32 4gb on, my Imac froze a while after so I turned it off the on and now I have blue vertical lines on boot up and the a white screen with lots of tine blue symbols after, mouse pointer moves but thats about it.
Have used R and cmd to get a menu up but once I choose one of the four options my mouse is rendered useless and I cant get any further, have downloaded, to another usb stick recovery disk assisstant and am trying to use that in conjunction with the lion option on the previously mentioned screen, computer was responding really slowly and has now frozen on the terms of software license agreement (maybe the last hurdle!) can anyone pleeeeeease help!!!!!??????It's likely that the boot drive is failing, or that there's some other hardware fault. Run the Apple Hardware Test.
Intel-based Macs: Using Apple Hardware Test
Even if the test is negative, you should make a "Genius" appointment at an Apple Store to have the machine tested more thoroughly. -
I have a Word doc with lots of Excel/Pdf attached doc inside. Can I convert this word doc in PDF keeping the attached documents inside the PDF? or do I have to attach all af them again? thank in advance
Attach all of them again.
Be well... -
Can you share photos between computers on a local time machine network? I have iMac with lots of pictures I would like to view on my MacBook Air. Does anyone know how to do this?
Can you share photos between computers on a local time machine network? I have iMac with lots of pictures I would like to view on my MacBook Air. Does anyone know how to do this?
-
My iPad colors are fuzzy with lots of reds and purples. Looks like my digital camera when it needs to be recharged if that helps describe the issue. Can anyone help?
Next step is to back up and restore via iTunes. If the problem continues, restore as a new device and test. If the problem is solved, there is some kind of corruption in your backup file. If it continues, take it to an Apple store for evaluation of a possible hardware problem.
-
I have 2 copies of Firefox open (two different windows with lots of tabs), if I reboot can I restore both sessions? I am familiar with clicking history/ restore previous session, but don't want to reboot to let windows update to do it's thing unless I can restore both sessions.
If they are running different profiles, then yes.
-
Need supplier name along with lot no.
hello sir,
i need to show supplier name along with lot no.
here is my query--
SELECT DISTINCT(b.vc_field1),a.vc_lot_no,a.nu_balance_qty--, c.VC_SUPPLIER_NAME
FROM STK_LOT_SUMMARY a, DT_RECEIPT b, makess.mst_supplier c, purchase.MST_SUP_ITEM d
WHERE a.vc_comp_code = '01'--:GLOBAL.vc_comp_code
AND a.vc_comp_code = b.vc_comp_code
AND b.VC_COMP_CODE=c.VC_COMP_CODE
AND c.VC_COMP_CODE=d.VC_COMP_CODE
AND c.NU_SUPPLIER_CODE=d.NU_SUPPLIER_CODE
AND a.VC_LOT_NO=b.VC_LOT_NO
AND a.vc_item_code=b.vc_item_code
AND b.vc_item_code=d.vc_item_code
AND a.vc_item_code = 'SYUWLNZXYWXXX00400100'--:HD_VERIFY.vc_item_code
--AND b.vc_field1 IS NOT NULL
AND a.vc_lot_no <> '0'
AND a.nu_balance_qty > 0
GROUP BY (a.nu_balance_qty,b.vc_field1, c.VC_SUPPLIER_NAME,a.vc_lot_no)
whose result is---
VC_FIELD1 VC_LOT_NO NU_BALANCE_QTY
11 48.00
22 B 8 192.00
181 A 3 200.00
54 F 13 244.50
143 10 400.00
1343 4 1,000.00
181 2 1,249.00
but when i include supplier name(removing comment) result would be....
VC_FIELD1 VC_LOT_NO NU_BALANCE_QTY VC_SUPPLIER_NAME
11 48.00 Chandak Wools
11 48.00 Somani Woollen Mills
11 48.00 Sonu Monu & Brothers
11 48.00 Somani Woolen Pvt. Ltd
181 A 3 200.00 Chandak Wools
181 A 3 200.00 Somani Woollen Mills
181 A 3 200.00 Sonu Monu & Brothers
181 A 3 200.00 Somani Woolen Pvt. Ltd
143 10 400.00 Chandak Wools
143 10 400.00 Somani Woollen Mills
143 10 400.00 Sonu Monu & Brothers
143 10 400.00 Somani Woolen Pvt. Ltd
1343 4 1,000.00 Chandak Wools
1343 4 1,000.00 Somani Woollen Mills
1343 4 1,000.00 Sonu Monu & Brothers
1343 4 1,000.00 Somani Woolen Pvt. Ltd
22 B 8 192.00 Chandak Wools
22 B 8 192.00 Somani Woollen Mills
22 B 8 192.00 Sonu Monu & Brothers
22 B 8 192.00 Somani Woolen Pvt. Ltd
181 2 1,249.00 Chandak Wools
181 2 1,249.00 Somani Woollen Mills
181 2 1,249.00 Sonu Monu & Brothers
181 2 1,249.00 Somani Woolen Pvt. Ltd
54 F 13 244.50 Chandak Wools
54 F 13 244.50 Somani Woollen Mills
54 F 13 244.50 Sonu Monu & Brothers
54 F 13 244.50 Somani Woolen Pvt. Ltd
please help me how could i write query to get lot no along with supplier name.
total no of rows is 7.but while adding supplier name it compare item code and executes 28 rows.
regardsHi Ishika,
Also check your Joins.
May be you are missing something else.
Thatz the reason all the four supplier combination are repeated.
Go through ur joins again.
Don't forget to use any number column as nvl(nu_balance_qty,0). -
Revision: 18926
Revision: 18926
Author: [email protected]
Date: 2010-12-01 14:07:19 -0800 (Wed, 01 Dec 2010)
Log Message:
bug fix BLZ-570 Double linked list with lot of objects result in BlazeDS Error deserializing error : StackOverflowError
We put hard limit to the max object nest level to prevent StackOverFlowError. the default max object nest level is 1024 and it can be configured in the endpoint/serialziation section in service-config.xml.
This needs documentation.
Checkintests pass
Ticket Links:
http://bugs.adobe.com/jira/browse/BLZ-570
Modified Paths:
blazeds/trunk/modules/common/src/flex/messaging/errors.properties
blazeds/trunk/modules/core/src/flex/messaging/endpoints/AbstractEndpoint.java
blazeds/trunk/modules/core/src/flex/messaging/io/SerializationContext.java
blazeds/trunk/modules/core/src/flex/messaging/io/amf/Amf0Input.java
blazeds/trunk/modules/core/src/flex/messaging/io/amf/Amf3Input.java
blazeds/trunk/modules/core/src/flex/messaging/io/amf/AmfIO.java
Maybe you are looking for
-
Finder crashes when trying to do anything with a jpeg
I cannot view a jpeg by using the quick view spacebar function in finder. I also cannot compress the jpeg and any thing I do with the jpg crashes finder. Does any one know why this is happening or knows how to fix it?? Thanks
-
Disadvantages of Using Externalizable
I know the advantages of using Externalizable. But Iam trying to figure out if it is useful especially in my case. I have an object which has other objects within and that object has some more objects, kind of like many-to-one relationsip. I have bee
-
Do I have a real problem or is this NORMAL? I've never heard anyone else complain about this unless they were using their iphone chargers
-
One thing has always irritated me with iPhoto, but maybe I just don't know how to get around this: I want to be able to attach a photo to a currently created email, not to the new one that iPhoto will create when I select a photo(s) to send. For inst
-
Boolean operations on paths al la AI Pathfinder toolset
New to flash but wanted to tween some animation paths so thought I'd try it out. Is there an equivilent set of operations to AI's Pathfinder palette. I'm after the Subtract Front Object from Back Object function on paths? (Obviously) I can do in AI a