Removal of an input in material

Hi Experts,
I need help with mass removal in the field : MARA-NTGEW, MARA-VOLUM, MARA-VOLEH.
Meaning, a want to clear all the inputs in those field. I have tried to use MM17, but its only helpful for changes, not clearing.
Please advise
David

the massage is :
MK101
Diagnosis
During inbound processing for the IDoc, messages have arisen while checking material data.
System Response
The system has filed these messages in the form of an application log with the number MASS003127000000.
Procedure
View the application log.
Proceed

Similar Messages

How to remove sr. no. profile from material master

Dear all,
I have maintained serial no. profile-Q001 in plant data/stor.2.
But now I want to remove serial no. profile from material master.
but it showing message serial no. already assign to this material.
Pls suggest
Thanks
Shabbir.Kureshi

Dear Thyagarajan,
I have got the solution.
Thanks a lot.
Thanks & Regards
Shabbir Kureshi

How to Remove batch mangement indicator from Material Master

Hi
I am trying to remove batch mangement indicator from Material master..but system does not allow
Before this .. I have done all activities also ...clear open SD documnets ,deliveriy documents ,PO documents ,Process order teco and . reservations and activae deletion flag in batch ... and made current period stock an previous period stock zero... i have cleard all documnets ...still system does not allow remove indicator..could you please guide in this issue ..how to remove batch indicator.
Regards
Sasi

Hi,
Please refer the below links.
Re: untick Batch Manegement Indicator on Material Master
Remove batch management flag and deletion of material documents
How to remove Batch Management in the Material
Re: How to remove Batch Management Check in the Material
Thanks.

How to remove the redundant input English (United States) in the Language Control Panel on Windows 8?

I have English (Australia) and English (United States) in the same order installed in the Language panel.
I try to remove the redundant English (United States). I click Options to open it. I found the option Remove for the Input method is dimmed out and disabled.

Hi,
To uninstall language package try following steps:
Type lpksetup.exe in search charm.
Press enter to open Install and uninstall display languages wizard.
Try to uninstall it.
If there is any error happened, post back here.
Kate Li
TechNet Community Support

LSMW Direct input for Material Master

Hi,
I need to upload the following views data into SAP using direct input (RMDATIND)
Basic Data 1
Basic Data 2
Classification
Sales: Sales Org. Data 1
Sales: Sales Org. Data 2
Sales: General/Plant Data
Foreign Trade: Export Data
Sales Text
Purchasing
Foreign Trade: Import Data
Purchase Order Text
Work Scheduling
General Plant Data / Storage 1
General Plant Data / Storage 2
Accounting 1
Accounting 2
Costing 1
Costing 2
Is it possible to upload these views through direct input or is there any limitation with the direct input method because i'm able to map the below fields only once
Country of Origin
Region of Origin
Excemption Certificate
Ex. Certificate number
Issue date of Cert. No.
Indicator: Military goods
the above fields are repeated twice for the views
Foreign Trade: Export Data
Foreign Trade: Import Data
If anybody has done material master in lsmw please let me know.
Thanks in advance.
Poorna

Hi,
I need to upload the following views data into SAP using direct input (RMDATIND)
Basic Data 1
Basic Data 2
Classification
Sales: Sales Org. Data 1
Sales: Sales Org. Data 2
Sales: General/Plant Data
Foreign Trade: Export Data
Sales Text
Purchasing
Foreign Trade: Import Data
Purchase Order Text
Work Scheduling
General Plant Data / Storage 1
General Plant Data / Storage 2
Accounting 1
Accounting 2
Costing 1
Costing 2
Is it possible to upload these views through direct input or is there any limitation with the direct input method because i'm able to map the below fields only once
Country of Origin
Region of Origin
Excemption Certificate
Ex. Certificate number
Issue date of Cert. No.
Indicator: Military goods
the above fields are repeated twice for the views
Foreign Trade: Export Data
Foreign Trade: Import Data
If anybody has done material master in lsmw please let me know.
Thanks in advance.
Poorna

Lsmw : Direct Input : 0020 Material Master :Error

hi all !
I'm onto making a lsmw for material master direct input.i'm facing the following error :
1.The field Marc-LADGR is defined as a required field : it doesnt contain an entry
2.You have not fully maintained the tax classifications.
in my flat file i have duly filled in the field MARC-LADGR
need help ,plz see if you can track wats the problem.
thanks and regards,
sachin

ya sachin ... as u r telling .. download from the std program... & continue the process....
my suggestion ... cross check again with ur fields of the source structure ....i mean decalre only fields .. which are required .. then do the field mapping again for the all the fields...
i believe there will be documentation for the std program .... check it & go thru with that ..map it ... wherever needed ....
try & let me know...
thanks,
manjunath ms

Removal of leading zeros for material no. in report

hi
my issue is that i have to remove leading zeros for material number when displaying in alv grid.iam getting output.but leading have to truncated automatically.
eg: 000000000000000102
the ouput should be 102.
please do provide solution for this or any function module.thanks in advance.

Hi Sanjana,
while populating the internal table use the conversion exit available for MATNR. this will remove the leading zeros.
oter possible way, declare the internaltable by referring the data element MATNR, i hope if you do this, it will delete the leading zeros automaticallt.
or if you declare the internal table field as charecter type, use the ALPLA_CONVERSION_EXIT_INPUT ot OUTPUT function module to remove the leading zeros.
Reward the points if it is helpful..

How to remove Batch Management in the Material

Hi All,
The Batch Management indicator for a Material was accidentally activated, thus upon goods movement the system required user to enter a Batch Number. The user, not knowing the implications, entered a Batch Number.
Now we want to remove the Batch Management indicator, I already asked the user to reverse the goods movement posted and have the Batch Number flagged for deletion at both Plant and Storage Location Level via MSC2N.
MM02 still won't allow the removal of the tick mark in the indicator.
There are options I have looked at:
1) Create a new Material Code in place of the old one.
2) Archive the Batch Number then try to remove the tick mark via MM02 - will this even work out?
But the priority is still to retain the same Material Code. Is there any other way/option?
Thanks a lot!!! =)

It is a little painful but here are the basic steps.
Remove all stock.
Cancel all demand, no requisitions, no purchase orders,
production orders etc. Transaction MD04 must be empty.
Use transaction MSC2N to place a deletion indicator on every
past batch for that material prior to the end of your fiscal period or
month.
Run transaction MM74 to archive the "flagged for deletion" batch
numbers.
In the next period or month go to transaction MM02 and remove
the batch flag from the material master.
hope it helps

How to show the same result as I input (PO Material Text)

I have a question that
I need to show PO Material Text in the form.
i use this function as usual....
CALL FUNCTION 'READ_TEXT'
    EXPORTING
      ID                      = 'BEST'
      LANGUAGE                = 'E'
      NAME                    = T_NAME
      OBJECT                  = 'MATERIAL'
    TABLES
      LINES                   = T_TLINE
    EXCEPTIONS
      ID                      = 1
      LANGUAGE                = 2
      NAME                    = 3
      NOT_FOUND               = 4
      OBJECT                  = 5
      REFERENCE_CHECK         = 6
      WRONG_ACCESS_TO_ARCHIVE = 7
      OTHERS                  = 8.
IF SY-SUBRC = 0.
    LOOP AT T_TLINE.
      MOVE T_TLINE-TDLINE TO THE_DOC.
      CONCATENATE THE_DOC1 THE_DOC INTO THE_DOC1.
    ENDLOOP.
ENDIF.
MY_MTEXT = THE_DOC1.
the result maybe concatenate all lines into 1 line
but now, i'd like to show the same line as I input now,
for example:
i input the PO Material Text :
123
456
789
if i use that function, it should become :
123 456 789
but i'd like the result is the same as i input like this.
123
456
789
so, should I need to use "INCLUDE......"   in ABAP Script Form?
Pls advise.
Thx
how to do that?

Thx for your advice,
But I've already use perform...function ...to return the my_mtext. ( but it the single line that i concatenate all the line content..)
FORM GET_MATERIAL_PO_TEXT_FOR_MOULD USING MY_MATNR
                            MY_EBELP
                    CHANGING MY_MTEXT.
but my problem is that...the line of PO text varies....how can I know how many variables need to pass the value to program.
if the value contains 3 lines.. i want to pass this 3 lines and show in the form.
i'm confuse...how to do that ..?

Sound Remover - use external input source?

I'm wondering if Sound Remover can use an input sound file to analyze and then remove sound from the main file?
I have file A (vocal mic with drum bleed) and file B (drums). I'd like to remove or minimize the drums in the vocal mic. Seems ideal to use the drum mix file to analyze and remove drums from the vocal mic.
I'll try the old school time-align, eq match, inverse mix method and see what I get, but it would be so cool if there was some Audition magic to help.
Thanks for any info!
- Jance

If the two files are of the same sample rate and channel count, you can capture the sound model from one file and apply the effect to the other. You can also save the profile selection to disk and load it from within the Sound Remover effect.

How to remove items from INPUT and OUTPUT?

I installed a Movavi demo and deleted (uninstalled) it, but the Movavi sound Grabber still exists in my INPUT and OUTPUT section under sound options. It's making the sound screwy and I often lose audio when I switch from headphones, to blue tooth speaker. Please help!

You have not uninstalled it correctly, check the directions and do so.

How do I remove the symbol input on my keyboard?

I can't get to Entering the normal alphabets and numbers!

Are you getting this for the 4 lines?
œ∑´®†¥¨^øπ“‘
åß∂ƒ©˙∆˚¬…æ«
`Ω≈ç√∫~µ≤≥÷
¡€#¢∞§¶•ªº–≠
If so your opt. key is stuck, or the contact under it is damaged.

About material master data batch input

hello
    i wrote a batch input for material master data. but it can't work ,i can't use it to create material.hope someone help me!thanks.code is below.
report z_mat_batchinput no standard page heading
      line-size 255 message-id YB.
       mat batch input
include bdcrecx1.
include .
tables: mara,marm,MARC,MARD,T134,NRIV,T006A,T023,T001W,T001L,
        TVKO,TVTW,T025,TTGR,TLGR,TVKWZ,T006.
data: DIMID like t006-DIMID.
data: flag, K, tmp.
DATA: X TYPE I.
************ÉÏÔØÎÄ¼þÄÚ±í************************
data: begin of record occurs 0,
        MATNR(018),        " ÎïÁÏºÅ
        MTART(004),        " ÎïÁÏÀàÐÍ
**generaldata1**
        MAKTX(040),        " ÎïÁÏÃèÊö
       EAKTX(040),        " Ó¢ÎÄÃèÊö
        MEINS(003),        " »ù±¾¼ÆÁ¿µ¥Î»
        MATKL(009),        " ÎïÁÏ×é
        BISMT(018),        " ¾ÉÎïÁÏºÅ
       EXTWG(018),        " Íâ²¿ÎïÁÏ×é
       SPART(002),        " ²¿ÃÅ
        MTPOS_MARA(004),   " ÆÕÍ¨ÏîÄ¿Àà±ð×é
        BRGEW(017),        " Ã«ÖØ
        GEWEI(003),        " ÖØÁ¿µ¥Î»
        NTGEW(017),        " ¾»ÖØ
        VOLUM(017),        " Ìå»ý
        VOLEH(003),        " Ìå»ýµ¥Î»
        GROES(032),        " Á¿¸Ù
        MAGRV(004),        " ÎïÁÏ×éµÄ°ü×°Îï
**generaldata2**
        NORMT(018),        " ¹¤Òµ±ê×¼ÃèÊö
        FERTH(018),        " ÀàÐÍ
        WRKST(048),        " ¹æ¸ñ
**generaldata1**
       EAN11(018),        " ²úÆ·±íÊ¶Âë
**generaldata2**
       ZEIAR(003),        " ÎÄµµÀàÐÍ£¬ºÏÀí´¢±¸ÖÜ×ªÆÚ
        WERKS(004),        " ¹¤³§
        VKORG(004),        " ÏúÊÛ×éÖ¯
        VTWEG(002),        " ·ÖÏúÇþµÀ
**salesorg 1**
       VRKME(003),        " ÏúÊÛµ¥Î»
       VMREN(006),        " ÏúÊÛµ¥Î»×ª»»Òò×Ó
       VMREZ(006),        " »ù±¾µ¥Î»×ª»»Òò×Ó
        SPART(002),        " ²úÆ·×é
        DWERK(004),        " ½»»õ¹¤³§
        TAXKM(001),        " ÎïÁÏË°·ÖÀà
**salesorg 2**
        KONDM(002),        " ÎïÁÏ¶¨¼Û×é
        KTGRM(002),        " ¿ÆÄ¿ÉèÖÃ×é
       MVGR1(003),                                         " ÎïÁÏ×é 1
       MVGR2(003),                                         " ÎïÁÏ×é 2
        MTPOS(004),        " ÏîÄ¿Àà±ð×é
       VERSG(001),        " ÎïÁÏÍ³¼Æ×é
**ÏúÊÛ£ºÒ»°ã/¹¤³§Êý¾Ý**
        MTVFP(002),        " ¿ÉÓÃÐÔ¼ì²é
        XCHPF(001),        " Åú´Î¹ÜÀí
       YCHPF(001),        " ÅúÁ¿¹ÜÀí
        TRAGR(004),        " ÔËÊä×é
        ladgr(004),        " ×°ÔØ×é
**pur**
       BSTME(003),        " ¶©µ¥µ¥Î»
       UMREZ(006),        " »ù±¾µ¥Î»×ª»»Òò×Ó
       UMREN(006),        " ¶©µ¥µ¥Î»×ª»»Òò×Ó
       WEBAZ(003),        " ÊÕ»õ´¦ÀíÊ±¼ä
        EKGRP(003),        " ²É¹º×é
      LGORT(004),        " ¿â´æµØ
**Ò»°ã¹¤³§Êý¾Ý/²Ö´¢1**
       AUSME(003),        " ·¢»õµ¥Î»
       UMREJ(006),        " »ù±¾µ¥Î»×ª»»Òò×Ó
       UMREF(006),        " ·¢»õµ¥Î»×ª»»Òò×Ó
       XCHPF(001),        " ÅúÁ¿¹ÜÀí
**MRP 1**
       DISGR(004),        " MRP×é
        DISMM(002),        " MRPÀàÐÍ
       FXHOR(003),        " ¼Æ»®µÄÊ±½ì
        DISPO(003),        " MRP¿ØÖÆÕß
        DISLS(002),        " ÅúÁ¿
        MAABC(001),        " ABC±êÊ¶
       BSTFE(018),        " ¹Ì¶¨ÅúÁ¿´óÐ¡
**MRP 2**
       RESKZ(001),        " »ñÈ¡ÀàÐÍ
        BESKZ(001),        " ²É¹ºÀàÐÍ
       SOBSL(002),        " ÌØÊâ²É¹ºÀà
       LGPRO(004),        " ·¢»õ²Ö´¢µØµã
       RGEKZ(001),        " ·´³å
        PLIFZ(003),        " ¼Æ»®½»»õÊ±¼ä
       VEBAZ(003),        " ÊÕ»õ´¦ÀíÊ±¼ä
        DZEIT(008),        "×ÔÖÆÉú²ú
        FHORI(003),        " ¼Æ»®±ß¼ÊÂë
       EISBE(018),        " °²È«¿â´æ
**MRP 3**
        PERKZ(001),        " ÆÚ¼ä±êÊ¶
        STRGR(002),        " ²ßÂÔ×é
       VRMOD(001),        " ÏûºÄÄ£Ê½
       VINT1(003),        " ÄæÏòÏûºÄÆÚ¼ä
       VINT2(003),        " ÏòÇ°ÏûºÄÆÚ¼ä
        NTVFP(002),        " ¿ÉÓÃÐÔ¼ì²é
**MRP 4**
       SAUFT(001),        " ÖØ¸´ÖÆÔì±êÖ¾
       SFEPR(004),        " ÖØ¸´Éú²ú²ÎÊýÎÄ¼þ
**¹¤×÷¼Æ»®**
       FEVOR(003),        " Éú²úµ÷¶ÈÔ±
       FRTME(003),        " Éú²úµ¥Î»
       SMREZ(006),        " »ù±¾µ¥Î»×ª»»Òò×Ó
       SMREN(006),        " Éú²úµ¥Î»×ª»»Òò×Ó
       UEETK(001),        " ÎÞÏÞÖÆ¹ýÁ¿½»»õ
**»á¼Æ 1**
        BKLAS(004),        " ÆÀ¹ÀÀà
       BWTTY(001),        " ¹À¼Û·ÖÀà
        VPRSV(001),        " ¼Û¸ñ¿ØÖÆ
        PEINH(006),        " ¼Û¸ñµ¥Î»
        VERPR(015),        " ÒÆ¶¯Æ½¾ù¼Û
        STPRS(015),        " ±ê×¼¼Û
**»á¼Æ 2**
       BWPRH(014),        " ÉÌÒµ¼Û¸ñ 1
**³É±¾ 1**
       LOSGR(018),        " ÅúÁ¿³É±¾ºËËã
**³É±¾ 2**
       ZPLP1(014),        " ¼Æ»®¼Û¸ñ 1
       ZPLD1(010),        " ¼Æ»®ÈÕÆÚ 1
**qm**
        ART1(8),            "¼ìÑéÀàÐÍ1
        AKTIV1(1),          "ÒÑ¼¤»î
        QMPUR(1),             "¼¤»î²É¹ºÖÐµÄ QM
        SSQSS(8),          "QM ¿ØÖÆÂë¡¢
       QMATV(8),          "QM¼ìÑéÉèÖÃ
       ART2(8),            "¼ìÑéÀàÐÍ2
       AKTIV2(6),          "ÒÑ¼¤»î
       ART3(8),            "¼ìÑéÀàÐÍ3
       AKTIV3(6),          "ÒÑ¼¤»î
      end of record.
************ÏÂÔØ¸ñÊ½/´íÎóÎÄ¼þÄÚ±í**************
data: begin of record1 occurs 0,
        MATNR(018),        " ÎïÁÏºÅ
        MTART(008),        " ÎïÁÏÀàÐÍ
**»ù±¾Êý¾Ý1**
        MAKTX(040),        " ÎïÁÏÃèÊö
       EAKTX(040),        " Ó¢ÎÄÃèÊö
        MEINS(013),        " »ù±¾¼ÆÁ¿µ¥Î»
        MATKL(009),        " ÎïÁÏ×é
        BISMT(018),        " ¾ÉÎïÁÏºÅ
       EXTWG(018),        " Íâ²¿ÎïÁÏ×é
       SPART(002),        " ²¿ÃÅ
        MTPOS_MARA(004),   " ÆÕÍ¨ÏîÄ¿Àà±ð×é
        BRGEW(017),        " Ã«ÖØ
        GEWEI(008),        " ÖØÁ¿µ¥Î»
        NTGEW(017),        " ¾»ÖØ
        VOLUM(017),        " Ìå»ý
        VOLEH(008),        " Ìå»ýµ¥Î»
        GROES(032),        " Á¿¸Ù
        MAGRV(014),        " ÎïÁÏ×éµÄ°ü×°Îï
**»ù±¾Êý¾Ý2**
        NORMT(018),        " ¹¤Òµ±ê×¼ÃèÊö
        FERTH(018),        " ÀàÐÍ
        WRKST(048),        " ¹æ¸ñ
**»ù±¾Êý¾Ý1**
       EAN11(018),        " ²úÆ·±íÊ¶Âë
**»ù±¾Êý¾Ý2**
       ZEIAR(003),        " ÎÄµµÀàÐÍ£¬ºÏÀí´¢±¸ÖÜ×ªÆÚ
        WERKS(004),        " ¹¤³§
        VKORG(008),        " ÏúÊÛ×éÖ¯
        VTWEG(008),        " ·ÖÏúÇþµÀ
**ÏúÊÛ×éÖ¯ 1**
       VRKME(003),        " ÏúÊÛµ¥Î»
       VMREN(006),        " ÏúÊÛµ¥Î»×ª»»Òò×Ó
       VMREZ(006),        " »ù±¾µ¥Î»×ª»»Òò×Ó
        SPART(006),        " ²úÆ·×é
        DWERK(008),        " ½»»õ¹¤³§
        TAXKM(010),        " ÎïÁÏË°·ÖÀà
**ÏúÊÛ×éÖ¯ 2**
        KONDM(010),        " ÎïÁÏ¶¨¼Û×é
        KTGRM(010),        " ¿ÆÄ¿ÉèÖÃ×é
       MVGR1(003),                                         " ÎïÁÏ×é 1
       MVGR2(003),                                         " ÎïÁÏ×é 2
        MTPOS(010),        " ÏîÄ¿Àà±ð×é
       VERSG(001),        " ÎïÁÏÍ³¼Æ×é
**ÏúÊÛ£ºÒ»°ã/¹¤³§Êý¾Ý**
        MTVFP(010),        " ¿ÉÓÃÐÔ¼ì²é
        XCHPF(008),        " Åú´Î¹ÜÀí
       YCHPF(001),        " ÅúÁ¿¹ÜÀí
        TRAGR(006),        " ÔËÊä×é
        ladgr(006),        " ×°ÔØ×é
**²É¹º**
       BSTME(003),        " ¶©µ¥µ¥Î»
       UMREZ(006),        " »ù±¾µ¥Î»×ª»»Òò×Ó
       UMREN(006),        " ¶©µ¥µ¥Î»×ª»»Òò×Ó
       WEBAZ(003),        " ÊÕ»õ´¦ÀíÊ±¼ä
        EKGRP(006),        " ²É¹º×é
      LGORT(004),        " ¿â´æµØ
**Ò»°ã¹¤³§Êý¾Ý/²Ö´¢1**
       AUSME(003),        " ·¢»õµ¥Î»
       UMREJ(006),        " »ù±¾µ¥Î»×ª»»Òò×Ó
       UMREF(006),        " ·¢»õµ¥Î»×ª»»Òò×Ó
       XCHPF(001),        " ÅúÁ¿¹ÜÀí
**MRP 1**
       DISGR(004),        " MRP×é
        DISMM(009),        " MRPÀàÐÍ
       FXHOR(003),        " ¼Æ»®µÄÊ±½ì
        DISPO(011),        " MRP¿ØÖÆÕß
        DISLS(004),        " ÅúÁ¿
        MAABC(007),        " ABC±êÊ¶
       BSTFE(018),        " ¹Ì¶¨ÅúÁ¿´óÐ¡
**MRP 2**
       RESKZ(001),        " »ñÈ¡ÀàÐÍ
        BESKZ(008),        " ²É¹ºÀàÐÍ
       SOBSL(002),        " ÌØÊâ²É¹ºÀà
       LGPRO(004),        " ·¢»õ²Ö´¢µØµã
       RGEKZ(001),        " ·´³å
        PLIFZ(012),        " ¼Æ»®½»»õÊ±¼ä
       VEBAZ(003),        " ÊÕ»õ´¦ÀíÊ±¼ä
        DZEIT(008),        "×ÔÖÆÉú²ú
        FHORI(010),        " ¼Æ»®±ß¼ÊÂë
       EISBE(018),        " °²È«¿â´æ
**MRP 3**
        PERKZ(008),        " ÆÚ¼ä±êÊ¶
        STRGR(006),        " ²ßÂÔ×é
       VRMOD(001),        " ÏûºÄÄ£Ê½
       VINT1(003),        " ÄæÏòÏûºÄÆÚ¼ä
       VINT2(003),        " ÏòÇ°ÏûºÄÆÚ¼ä
        NTVFP(010),        " ¿ÉÓÃÐÔ¼ì²é
**MRP 4**
       SAUFT(001),        " ÖØ¸´ÖÆÔì±êÖ¾
       SFEPR(004),        " ÖØ¸´Éú²ú²ÎÊýÎÄ¼þ
**¹¤×÷¼Æ»®**
       FEVOR(003),        " Éú²úµ÷¶ÈÔ±
       FRTME(003),        " Éú²úµ¥Î»
       SMREZ(006),        " »ù±¾µ¥Î»×ª»»Òò×Ó
       SMREN(006),        " Éú²úµ¥Î»×ª»»Òò×Ó
       UEETK(001),        " ÎÞÏÞÖÆ¹ýÁ¿½»»õ
**»á¼Æ 1**
        BKLAS(006),        " ÆÀ¹ÀÀà
       BWTTY(001),        " ¹À¼Û·ÖÀà
        VPRSV(008),        " ¼Û¸ñ¿ØÖÆ
        PEINH(008),        " ¼Û¸ñµ¥Î»
        VERPR(015),        " ÒÆ¶¯Æ½¾ù¼Û
        STPRS(015),        " ±ê×¼¼Û
**»á¼Æ 2**
       BWPRH(014),        " ÉÌÒµ¼Û¸ñ 1
**³É±¾ 1**
       LOSGR(018),        " ÅúÁ¿³É±¾ºËËã
**³É±¾ 2**
       ZPLP1(014),        " ¼Æ»®¼Û¸ñ 1
       ZPLD1(010),        " ¼Æ»®ÈÕÆÚ 1
**ÖÊÁ¿¹ÜÀí**
        ART1(8),            "¼ìÑéÀàÐÍ1
        AKTIV1(6),          "ÒÑ¼¤»î
        QMPUR(010),             "¼¤»î²É¹ºÖÐµÄ QM
        SSQSS(8),          "QM ¿ØÖÆÂë¡¢
       QMATV(8),          "QM¼ìÑéÉèÖÃ
       ART2(8),            "¼ìÑéÀàÐÍ2
       AKTIV2(6),          "ÒÑ¼¤»î
       ART3(8),            "¼ìÑéÀàÐÍ3
       AKTIV3(6),          "ÒÑ¼¤»î
      end of record1.
selection-screen begin of block 0 with frame title text-001.
selection-screen begin of line .
selection-screen position 1.
parameters: test like rkec1-test .
selection-screen
comment 3(4) text-004 for field test.
selection-screen position 26.
parameters: oldfile like rlgrap-filename.
selection-screen
comment 9(17) text-003 for field oldfile.
selection-screen: end of line.
selection-screen begin of line.
selection-screen position 1.
parameters: dnldflag like rkec1-test default 'X'.
selection-screen
comment 3(4) text-005 for field dnldflag.
selection-screen position 26.
parameters: outfile like rlgrap-filename .
selection-screen
comment 9(17) text-006 for field outfile.
selection-screen: end of line.
selection-screen end of block 0 .
SELECTION-SCREEN BEGIN OF BLOCK 1 WITH FRAME TITLE TEXT-002.
selection-screen begin of line.
selection-screen position 1.
PARAMETERS: GEN1 LIKE RKEC1-TEST.
selection-screen
comment 3(9) text-007 for field GEN1.
selection-screen position 26.
PARAMETERS: GEN2 LIKE RKEC1-TEST.
selection-screen
comment 28(9) text-008 for field GEN2.
selection-screen end of line.
selection-screen begin of line.
selection-screen position 1.
PARAMETERS: SALORG1 LIKE RKEC1-TEST.
selection-screen
comment 3(21) text-009 for field SALORG1.
selection-screen position 26.
PARAMETERS: SALORG2 LIKE RKEC1-TEST.
selection-screen
comment 28(21) text-010 for field SALORG2.
selection-screen position 51.
PARAMETERS: SALPLANT LIKE RKEC1-TEST.
selection-screen
comment 53(19) text-011 for field SALPLANT.
selection-screen end of line.
selection-screen begin of line.
selection-screen position 1.
PARAMETERS: PURCHASE LIKE RKEC1-TEST.
selection-screen
comment 3(21) text-012 for field PURCHASE.
selection-screen position 26.
PARAMETERS: PLTSTRG1 LIKE RKEC1-TEST.
selection-screen
comment 28(21) text-018 for field PLTSTRG1.
selection-screen end of line.
selection-screen begin of line.
selection-screen position 1.
PARAMETERS: MRP1 LIKE RKEC1-TEST.
selection-screen
comment 3(4) text-013 for field MRP1.
selection-screen position 13.
PARAMETERS: MRP2 LIKE RKEC1-TEST.
selection-screen
comment 15(4) text-014 for field MRP2.
selection-screen position 26.
PARAMETERS: MRP3 LIKE RKEC1-TEST.
selection-screen
comment 28(4) text-015 for field MRP3.
selection-screen position 37.
PARAMETERS: MRP4 LIKE RKEC1-TEST.
selection-screen
comment 39(4) text-016 for field MRP4.
selection-screen position 51.
PARAMETERS: PLANTSTR LIKE RKEC1-TEST.
selection-screen
comment 53(8) text-017 for field PLANTSTR.
selection-screen end of line.
selection-screen begin of line.
selection-screen position 1.
PARAMETERS: QAU LIKE RKEC1-TEST.
selection-screen
comment 3(8) text-023 for field QAU.
selection-screen position 13.
PARAMETERS: ACC1 LIKE RKEC1-TEST.
selection-screen
comment 15(5) text-019 for field ACC1.
selection-screen position 26.
PARAMETERS: ACC2 LIKE RKEC1-TEST.
selection-screen
comment 28(5) text-020 for field ACC2.
selection-screen position 37.
PARAMETERS: COR1 LIKE RKEC1-TEST.
selection-screen
comment 39(5) text-021 for field COR1.
selection-screen position 51.
PARAMETERS: COR2 LIKE RKEC1-TEST.
selection-screen
comment 53(5) text-022 for field COR2.
selection-screen end of line.
SELECTION-SCREEN END OF BLOCK 1.
at selection-screen on value-request for oldfile.
call function 'KD_GET_FILENAME_ON_F4'
       EXPORTING
            mask      = ',ÎÄ±¾ÎÄ¼þ(ÖÆ±í·û·Ö¸ô),*.txt'
            static    = 'X'
       CHANGING
            file_name = oldfile.
at selection-screen on value-request for outfile.
call function 'KD_GET_FILENAME_ON_F4'
       EXPORTING
            mask      = ',Microsoft Excel¹¤×÷²¾,*.xls'
            static    = 'X'
       CHANGING
            file_name = outfile.
initialization.
******µÃµ½ÎÄ¼þÄ¿Â¼*******
call function 'WS_QUERY'
       EXPORTING
            query = 'CD'
       IMPORTING
            return = outfile.
if sy-subrc <> 0.
    message e005 with outfile.
endif.
oldfile = outfile.
concatenate outfile 'mat_fat' into outfile.
*ÅúÊäÈëÄ¬ÈÏÃû³Æ
group = 'MATBATCHIN'.
start-of-selection.
if dnldflag eq 'X' and not ( outfile is initial ).
    perform download_data.
    stop.
endif.
perform upload_data.
if test = ' '.
*ÊÓÍ¼²ÎÊý¼ì²é
    IF ( GEN1 NE 'X' AND GEN2 NE 'X' AND SALORG1 NE 'X'
       AND SALORG2 NE 'X' AND SALPLANT NE 'X'
       AND PURCHASE NE 'X' AND PLTSTRG1 NE 'X'
       AND MRP1 NE 'X' AND MRP2 NE 'X' AND MRP3 NE 'X'
           AND MRP4 NE 'X' AND PLANTSTR NE 'X'
       AND ACC1 NE 'X' AND ACC2 NE 'X'
       AND COR1 NE 'X' AND COR2 NE 'X' and qau ne 'X' ) .
      MESSAGE E000 WITH 'ÇëÑ¡ÔñÐèÎ¬»¤ÊÓÍ¼'.
    ENDIF.
    perform open_group.
    SORT RECORD BY WERKS MATNR.
    loop at record.
      perform bdc_fill.
      perform bdc_transaction using 'MM01'.
      clear: bdcdata.
      refresh: bdcdata.
    endloop.
    perform close_group.
else.
    perform file_check.
endif.
end-of-selection.
*&      Form UPLOAD_DATA
      ÉÏÔØÅúÊäÈëÊý¾Ý
--> p1        text
<-- p2        text
form upload_data.
call function 'WS_UPLOAD'
       EXPORTING
            filename                = oldfile
            filetype                = 'DAT'
       TABLES
            data_tab                = record
       EXCEPTIONS
            conversion_error        = 1
            file_open_error         = 2
            file_read_error         = 3
            invalid_table_width     = 4
            invalid_type            = 5
            no_batch                = 6
            unknown_error           = 7
            gui_refuse_filetransfer = 8
            customer_error          = 9
            others                  = 10.
if sy-subrc <> 0.
    message E000 with 'ÇëÊäÈëÉÏÔØÎÄ¼þ'.
endif.
read table record with key MATNR = '**'.
if sy-tabix lt 1.
    message E000 with 'ÉÏÔØÎÄ¼þÎÄ¼þÍ·ÓëÊý¾ÝÖ®¼äÎÞ**'.
endif.
delete record from 1 to sy-tabix.
endform.                               " UPLOAD_DATA
*&      Form BDC_FILL
      ÅúÊäÈë
--> p1        text
<-- p2        text
form bdc_fill.
data: N type I,
        M type I,
        S_MATNR(018),
        test(1) type N.
PERFORM BDC_FILL_INITALSCR.    "³õÊ¼ÆÁÄ»
tmp = '0'.
condense record-matnr no-gaps.
test = record-matnr(1).
if test <> ''.
    M = STRLEN( RECORD-MATNR ).
    M = 18 - M.
    DO M TIMES.
      CONCATENATE '0' RECORD-MATNR INTO S_MATNR.
      RECORD-MATNR = S_MATNR.
    ENDDO.
endif.
**ÅÐ¶ÏÎïÁÏ»ù±¾ÊÓÍ¼ÊÇ·ñÒÑ¾±»Î¬»¤¹ý**
SELECT SINGLE * FROM MARA WHERE MATNR = RECORD-MATNR.
IF SY-SUBRC NE 0.
    K = '0'.
Else.
    condense MARA-PSTAT no-gaps.
    N = strlen( mara-pstat ).
    M = 0.
    record-meins = mara-meins.
    do N times.
      K = MARA-PSTAT+M.
      IF K = 'K'.
        EXIT.
      ENDIF.
      M = M + 1.
    enddo.
ENDIF.
IF ( ( GEN1 EQ 'X' OR GEN2 EQ 'X' ) AND SALORG1 NE 'X'
     AND SALORG2 NE 'X' AND SALPLANT NE 'X'
     AND PURCHASE NE 'X' AND PLTSTRG1 NE 'X'
     AND MRP1 NE 'X' AND MRP2 NE 'X' AND MRP3 NE 'X'
         AND MRP4 NE 'X' AND PLANTSTR NE 'X'
     AND ACC1 NE 'X' AND ACC2 NE 'X'
     AND COR1 NE 'X' AND COR2 NE 'X' and qau ne 'X' ) .
    IF K EQ 'K'.
      perform bdc_dynpro      using 'SAPLMGMM' '0070'.
      perform bdc_field       using 'BDC_CURSOR'
                                    'MSICHTAUSW-DYTXT(15)'.
      perform bdc_field       using 'BDC_OKCODE'
                                    '/N'.
    ELSE.
      PERFORM BDC_FILL_CHOICEVIEW.   "Ñ¡ÔñÊÓÍ¼
    ENDIF.
ELSE.
    PERFORM BDC_FILL_CHOICEVIEW.   "Ñ¡ÔñÊÓÍ¼
    PERFORM BDC_FILL_ORGVIEW.      "×éÖ¯¼¶±ð
ENDIF.
TRANSLATE record-MEINS TO UPPER CASE.
TRANSLATE record-BSTME TO UPPER CASE.
TRANSLATE record-VRKME TO UPPER CASE.
TRANSLATE record-FRTME TO UPPER CASE.
TRANSLATE record-AUSME TO UPPER CASE.
if gen1 eq 'X'.
    IF K NE 'K'.
      PERFORM GENERALDATA1.
    ENDIF.
endif.
if gen2 eq 'X'.
    IF K NE 'K'.
      perform generaldata2.
    ENDIF.
endif.
if salorg1 eq 'X'.
    perform salorg1.
endif.
if salorg2 eq 'X'.
    perform salorg2.
endif.
if salplant eq 'X'.
    perform salplant.
endif.
if purchase eq 'X'.
    perform purchasedata.
endif.
if mrp1 eq 'X'.
    perform MRP1.
endif.
if mrp2 eq 'X'.
    perform MRP2.
endif.
if mrp3 eq 'X'.
    perform MRP3.
endif.
if mrp4 eq 'X'.
    perform MRP4.
endif.
if PLANTSTR eq 'X'.
    perform PLANTSTR.
endif.
if PLTSTRG1 eq 'X'.
    perform PLTSTRG1.
endif.
if qau eq 'X'.
    perform qualitydata.
endif.
if ACC1 eq 'X'.
    perform ACC1DATA.
endif.
if ACC2 eq 'X'.
    perform ACC2DATA.
endif.
if COR1 eq 'X'.
    perform COR1DATA.
endif.
if COR2 eq 'X'.
    perform COR2DATA.
endif.
perform BDC_SAVE.
endform.                               " BDC_FILL
*&      Form GENERALDATA1
      Ò»°ãÊý¾Ý 1
--> p1        text
<-- p2        text
form generaldata1.
perform bdc_dynpro      using 'SAPLMGMM' '4004'.
perform bdc_field       using 'BDC_OKCODE'
                                "'=ZU01'.
                                '/00'.
perform bdc_field       using 'MAKT-MAKTX'
                                record-MAKTX.       " ÎïÁÏÃèÊö
perform bdc_field       using 'MARA-MEINS'
                                record-MEINS.       " »ù±¾¼ÆÁ¿µ¥Î»
perform bdc_field       using 'MARA-MATKL'
                                record-MATKL.       " ÎïÁÏ×é
perform bdc_field       using 'MARA-BISMT'
                                record-BISMT.
perform bdc_field       using 'MARA-EXTWG'
                               record-EXTWG.
perform bdc_field       using 'MARA-SPART'
                               record-SPART.
perform bdc_field       using 'MARA-MTPOS_MARA'
                                record-MTPOS_MARA.
perform bdc_field       using 'BDC_CURSOR'
                                'MARA-GROES'.
perform bdc_field       using 'MARA-BRGEW'
                                record-BRGEW.
if record-gewei = '' and ( salorg1 = 'X' or salorg2 = 'X'
                       or salplant = 'X' ).
    perform bdc_field       using 'MARA-GEWEI'
                                  'KG'.              " ÖØÁ¿µ¥Î»
else.
    perform bdc_field       using 'MARA-GEWEI'
                                  record-GEWEI.      " ÖØÁ¿µ¥Î»
endif.
perform bdc_field       using 'MARA-NTGEW'
                                record-NTGEW.
perform bdc_field       using 'MARA-VOLUM'
                                record-VOLUM.
perform bdc_field       using 'MARA-VOLEH'
                                record-VOLEH.
perform bdc_field       using 'MARA-GROES'
                                record-GROES.
condense record-EAN11 no-gaps.
if record-EAN11 <> ''.
   perform bdc_field       using 'MARA-EAN11'
                                 record-EAN11.
   perform bdc_field       using 'MARA-NUMTP'
                                 'HT'.
endif.
perform bdc_field       using 'MARA-MAGRV'
                                record-MAGRV.
perform bdc_dynpro      using 'SAPLMGMM' '4300'.
perform bdc_field       using 'BDC_OKCODE'
                               '=ZU02'.
condense record-EAKTX no-gaps.
if record-EAKTX <> ''.
   perform bdc_field       using 'SKTEXT-SPRAS(2)'
                                 'EN'.
   perform bdc_field       using 'SKTEXT-MAKTX(2)'
                                 record-EAKTX.
endif.
perform bdc_dynpro      using 'SAPLMGMM' '4300'.
perform bdc_field       using 'BDC_OKCODE'
                               '=MAIN'.
if record-meins <> 'PAK'.
   perform bdc_field       using 'SMEINH-UMREN(05)'
                                 '1'.
   perform bdc_field       using 'SMEINH-MEINH(05)'
                                 'PAK'.
   perform bdc_field       using 'SMEINH-UMREZ(05)'
                                 '1'.
endif.
perform bdc_dynpro      using 'SAPLMGMM' '4004'.
perform bdc_field       using 'BDC_OKCODE'
                                '/00'.
endform.                               " GENERALDATA
*&      Form generaldata2
      Ò»°ãÊý¾Ý 2
--> p1        text
<-- p2        text
FORM generaldata2.
perform bdc_dynpro      using 'SAPLMGMM' '4004'.
perform bdc_field       using 'BDC_OKCODE'
                                '/00'.
perform bdc_field       using 'MAKT-MAKTX'
                                record-MAKTX.
perform bdc_field       using 'BDC_CURSOR'
                                'MARA-NORMT'.
condense record-ferth no-gaps.
if record-ferth <> ''.
    perform bdc_field       using 'MARA-FERTH'
                                  record-FERTH.
endif.
perform bdc_field       using 'MARA-NORMT'
                                record-NORMT.
perform bdc_field       using 'MARA-WRKST'
                                record-WRKST.
perform bdc_field       using 'MARA-ZEIAR'
                               record-ZEIAR.
ENDFORM.                    " generaldata2
*&      Form salorg1
      ÏúÊÛ×éÖ¯ 1
--> p1        text
<-- p2        text
FORM salorg1.
condense RECORD-SPART no-gaps.
PERFORM BDC_DYNPRO      USING 'SAPLMGMM' '4000'.
PERFORM BDC_FIELD       USING 'BDC_OKCODE'
                                '/00'.
PERFORM BDC_FIELD       USING 'MAKT-MAKTX'
                                RECORD-MAKTX.     " ÎïÁÏÃèÊö
IF K NE 'K'.
    perform bdc_field       using 'MARA-MEINS'
                                  record-MEINS.   " »ù±¾¼ÆÁ¿µ¥Î»
ENDIF.
perform bdc_field       using 'MARA-SPART'
                                record-SPART.     " ²úÆ·×é
perform bdc_field       using 'MVKE-DWERK'
                                record-DWERK.     " ½»»õ¹¤³§
PERFORM BDC_FIELD       USING 'MG03STEUER-TAXKM(01)'
                                RECORD-TAXKM.     " ÎïÁÏË°·ÖÀà
condense RECORD-VRKME no-gaps.
IF RECORD-MEINS <> RECORD-VRKME and RECORD-VRKME <> ''.
   perform bdc_field       using 'MVKE-VRKME'
                                 record-VRKME.     " ÏúÊÛµ¥Î»
   select single * from MARM where matnr = record-matnr
                 and meinh = record-vrkme.
   if SY-SUBRC NE 0.
     tmp = 'W'.
     select single * from t006 where MSEHI = record-meins.
     if t006-DIMID = 'AAAADL'.
       DIMID = ''.
     else.
       DIMID = t006-DIMID.
     endif.
     select single * from t006 where MSEHI = record-vrkme.
     if dimid <> t006-DIMID.
       PERFORM BDC_DYNPRO      USING 'SAPLMGMM' '0510'.
       PERFORM BDC_FIELD       USING 'BDC_OKCODE'
                                     '=ENTR'.
       perform bdc_field       using 'RMMZU-UMREN'
                                     record-VMREN. "ÏúÊÛµ¥Î»×ª»»Òò×Ó
       perform bdc_field       using 'RMMZU-UMREZ'
                                     record-VMREZ. "»ù±¾µ¥Î»×ª»»Òò×Ó
       PERFORM BDC_DYNPRO      USING 'SAPLMGMM' '4000'.
       PERFORM BDC_FIELD       USING 'BDC_OKCODE'
                                     '/00'.
     endif.
   endif.
ENDIF.
perform bdc_dynpro      using 'SAPLMGMM' '4200'.
perform bdc_field       using 'BDC_OKCODE'      " µ÷ÓÃË°Àà×ÓÆÁÄ»
                                '/00'.
PERFORM BDC_DYNPRO      USING 'SAPLMGMM' '4000'.
PERFORM BDC_FIELD       USING 'BDC_OKCODE'      " ·µ»ØÏúÊÛ×éÖ¯ 1ÆÁÄ»
                                '/00'.
ENDFORM.                                                    " salorg1
*&      Form salorg2
      ÏúÊÛ×éÖ¯ 2
--> p1        text
<-- p2        text
FORM salorg2.
PERFORM BDC_DYNPRO      USING 'SAPLMGMM' '4000'.
PERFORM BDC_FIELD       USING 'BDC_OKCODE'
                                '/00'.
PERFORM BDC_FIELD       USING 'BDC_CURSOR'
                                'MVKE-KTGRM'.
PERFORM BDC_FIELD       USING 'MVKE-VERSG'
                               RECORD-VERSG.     " ÎïÁÏÍ³¼Æ×é
PERFORM BDC_FIELD       USING 'MVKE-KTGRM'
                                RECORD-KTGRM.     " ¿ÆÄ¿ÉèÖÃ×é
PERFORM BDC_FIELD       USING 'MVKE-KONDM'
                                RECORD-KONDM.     " ÎïÁÏ¶¨¼Û×é
perform bdc_field       using 'MVKE-MTPOS'
                                RECORD-MTPOS.     " ÏîÄ¿Àà±ð×é
PERFORM BDC_FIELD       USING 'MVKE-MVGR1'
                               RECORD-MVGR1.               " ÎïÁÏ×é 1
PERFORM BDC_FIELD       USING 'MVKE-MVGR2'
                               RECORD-MVGR2.               " ÎïÁÏ×é 2
ENDFORM.                                                    " salorg2
*&      Form salplant
      ÏúÊÛ£ºÒ»°ã/¹¤³§Êý¾Ý
--> p1        text
<-- p2        text
FORM salplant.
PERFORM BDC_DYNPRO      USING 'SAPLMGMM' '4000'.
PERFORM BDC_FIELD       USING 'BDC_OKCODE'
                                '/00'.
select single * from marc where matnr = record-matnr
                              and werks = record-werks.
if SY-SUBRC NE 0 OR MARC-MTVFP = ''.
    PERFORM BDC_FIELD       USING 'MARC-MTVFP'
                                  RECORD-MTVFP.     " ¿ÉÓÃÐÔ¼ì²é
endif.
PERFORM BDC_FIELD       USING 'MARA-TRAGR'
                                  RECORD-TRAGR.   " ÔËÊä×é
PERFORM BDC_FIELD       USING 'MARC-LADGR'
                                RECORD-LADGR.     " ×°ÔØ×é
perform bdc_field       using 'MARC-XCHPF'
                                record-XCHPF.     " ÅúÁ¿¹ÜÀí
ENDFORM.                    " salplant
*&      Form PURCHASEDATA
      ²É¹ºÊý¾Ý
--> p1        text
<-- p2        text
form purchasedata.
perform bdc_dynpro      using 'SAPLMGMM' '4000'.
perform bdc_field       using 'BDC_OKCODE'
                                '/00'.
perform bdc_field       using 'BDC_CURSOR'
                                'MARC-WEBAZ'.
perform bdc_field       using 'MAKT-MAKTX'
                                record-MAKTX.
IF K NE 'K'.
    perform bdc_field       using 'MARA-MEINS'
                                  record-MEINS.     " »ù±¾¼ÆÁ¿µ¥Î»
    perform bdc_field       using 'MARA-MATKL'
                                  record-MATKL.     " ÎïÁÏ×é
ENDIF.
condense RECORD-BSTME no-gaps.
IF RECORD-MEINS <> RECORD-BSTME and RECORD-BSTME <> ''.
   perform bdc_field       using 'MARA-BSTME'
                                 record-BSTME.     " ¶©µ¥µ¥Î»
   select single * from MARM where matnr = record-matnr
                 and meinh = record-bstme.
   if SY-SUBRC NE 0 and
         ( record-vrkme <> record-bstme or tmp <> 'W' ).
     tmp = 'W'.
     select single * from t006 where MSEHI = record-meins.
     if t006-DIMID = 'AAAADL'.
       DIMID = ''.
     else.
       DIMID = t006-DIMID.
     endif.
     select single * from t006 where MSEHI = record-bstme.
     if dimid <> t006-DIMID.
       PERFORM BDC_DYNPRO      USING 'SAPLMGMM' '0510'.
       PERFORM BDC_FIELD       USING 'BDC_OKCODE'
                                     '=ENTR'.
       perform bdc_field       using 'RMMZU-UMREN'
                                     record-UMREN. "¶©µ¥µ¥Î»×ª»»Òò×Ó
       perform bdc_field       using 'RMMZU-UMREZ'
                                     record-UMREZ. "»ù±¾µ¥Î»×ª»»Òò×Ó
       PERFORM BDC_DYNPRO      USING 'SAPLMGMM' '4000'.
       PERFORM BDC_FIELD       USING 'BDC_OKCODE'
                                     '/00'.
     endif.
   endif.
ENDIF.
perform bdc_field       using 'MARC-EKGRP'
                                record-EKGRP.       " ²É¹º×é
perform bdc_field       using 'MARC-WEBAZ'
                               record-WEBAZ.       " ÊÕ»õ´¦ÀíÊ±¼ä
endform.                               " PURCHASEDATA
*&      Form MRP1
      text
--> p1        text
<-- p2        text
FORM MRP1.
perform bdc_dynpro      using 'SAPLMGMM' '4000'.
perform bdc_field       using 'BDC_OKCODE'
                                '/00'.
perform bdc_field       using 'MAKT-MAKTX'
                               record-MAKTX.       " ÎïÁÏÃèÊö
IF K NE 'K'.
   perform bdc_field       using 'MARA-MEINS'
                                 record-MEINS.     " »ù±¾µ¥Î»
ENDIF.
perform bdc_field       using 'MARC-DISGR'
                               record-DISGR.       " MRP×é
perform bdc_field       using 'MARC-MAABC'
                                record-MAABC.       " ABC±êÊ¶
perform bdc_field       using 'MARC-DISMM'
                                record-DISMM.       " MRPÀàÐÍ
perform bdc_field       using 'MARC-FXHOR'
                               record-FXHOR.       " ¼Æ»®µÄÊ±½ì
perform bdc_field       using 'MARC-DISPO'
                                record-DISPO.       " MRP¿ØÖÆÕß
perform bdc_field       using 'MARC-DISLS'
                                record-DISLS.       " ÅúÁ¿
perform bdc_field       using 'MARC-BSTFE'


Here is a sample program which creates a material with the bare minmal fields, this will get you started.
report zrich_0003 .
data: headdata type bapimathead.
data: clientdata type bapi_mara.
data: clientdatax type bapi_marax.
data: descdata type table of BAPI_MAKT with header line.
data: return type bapiret2 .
data: returnm type table of bapi_matreturn2 with header line.
data: xmara type mara.
parameters: p_matnr type mara-matnr.
headdata-material        = p_matnr.
headdata-ind_sector      = 'M'.
headdata-matl_type       = 'FERT'.
headdata-basic_view = 'X'.
clientdata-BASE_UOM   = 'EA'.
clientdatax-BASE_UOM   = 'X'.
clientdata-old_mat_no = 'Old Material'.
clientdatax-old_mat_no = 'X'.
clientdata-division = '00'.
clientdatax-division = 'X'.
descdata-LANGU = sy-langu.
descdata-MATL_DESC = 'This is the description'.
append descdata.
call function 'BAPI_MATERIAL_SAVEDATA'
exporting
    headdata                   = headdata
    clientdata                 = clientdata
    clientdatax                = clientdatax
*   PLANTDATA                  =
*   PLANTDATAX                 =
*   FORECASTPARAMETERS         =
*   FORECASTPARAMETERSX        =
*   PLANNINGDATA               =
*   PLANNINGDATAX              =
*   STORAGELOCATIONDATA        =
*   STORAGELOCATIONDATAX       =
*   VALUATIONDATA              =
*   VALUATIONDATAX             =
*   WAREHOUSENUMBERDATA        =
*   WAREHOUSENUMBERDATAX       =
*   SALESDATA                  =
*   SALESDATAX                 =
*   STORAGETYPEDATA            =
*   STORAGETYPEDATAX           =
importing
   return                     = return
tables
    MATERIALDESCRIPTION        = descdata
*   UNITSOFMEASURE             =
*   UNITSOFMEASUREX            =
*   INTERNATIONALARTNOS        =
*   MATERIALLONGTEXT           =
*   TAXCLASSIFICATIONS         =
    returnmessages             = returnm
*   PRTDATA                    =
*   PRTDATAX                   =
*   EXTENSIONIN                =
*   EXTENSIONINX               =
check sy-subrc = 0.
Regards,
Rich Heilman

How to config MIGO (or MB01) Goods Receipt by PO can input material numer?

Dear All,
I have a case for when MIGO(or MB01) Goods Receipt by Purchase Order, user can input the Purchase order and also can allow to input the Material number.Because when PO item has many lines,user want to input the Material number to select Goods Receipt .If user input the Purchase order ,then all of the lines have displaied in MIGO,but some lines not to Goods Receipt .
How can I config it ?
Thanks
Sun

Hi,
In MIGO when you enter the purchase order, the program will read all open lines related to that PO. Now if you want to post GR only for few lines, then at the bottom of the screen for each line you will find a check box called Item OK, flag this. Alternatively you will find this checkbox in each line as well.
The system will post GR only for those lines for which you have selected Item OK.
In MB01, you can uncheck the first check box that you see for those items for which you do not want to post GR.
Hope the above answers your query.
Regards,
Vivek

Removal of batch management indicator from material master

I had removed all batch stock from material code but when trying to remove batch management indicator from material master system is giving the message "batches already exist"
Please suggest the solution.

Hi,
   The material is NEW and Batch Managed. No stocks, orders, batches are existing.
   If the Batch Management indicator is removed in Material Master, is there any way *to see/track the batch/lot * of the product.
Scenarios: Material is NOT Batch Managed
1.     How to track a batch received for Purchase order.
2.     How to track a Batch created in a Production order.
3.     How to track a Batch in Sales Order.
Thanks,
VB

Removal of an input in material

Similar Messages

Maybe you are looking for