How to add warehouse in Delivery?

Hi, in a outbound delivery, in the header picking tab, I am not able to select a warehouse (locked). Is this transferred over from somewhere in the sales order? How would I assign a warehouse to this DN?
Thanks
MR

This question should have been posted in sales forum.
Ensure that you have assigned the warehouse number to plant/storate location in IMG
thanks
G. Lakshmipathi

Similar Messages

How to add imort cash delivery duty to material cost

Dear Friends,
The requirement is like this:
We pay some import duties on cash on delivery basis. How could it be added to the material cost?We can not add it on PO as we get the invoice (like courrier charges) on delivery basis. Can we put it during IV.
Regards,
ASK

In SPRO,Activate direct postings in LIV,now material tab is activated in MIRO,You can directly debit
material to value of courier charges etc.
Based on invoice you can pay vendor in mode of cash.

How to add purchase amount & delivery cost in Bills of Ladding

According to my client i want to use biils of lading while picking bills of lading system should pick delivery cost and purchase amount. Is it way using BADI/Exit Or Implicit Enhancement is there. Please let me know.
Moderator message : Spec dumping not allowed, duplicate post locked. Non-adherence of forum rules will lead to deletion of user-id.
Edited by: Vinod Kumar on Aug 5, 2011 1:47 PM

Hi Thomas,
What about using the "Last Calculated Pricelist". Would'nt that carry forward the Valuation Price? You would need to run a "Update Parent Prices Globally" to update the latest Valuation of the Item. Please check on this as I am not 100% sure of it.
So try this as it may work.
- Create a pricelist called "Valuation Pricelist" and base this pricelist on the "Last Calculated Pricelist" and at a factor of 1.
- Set your Components Item's Pricelist as the "Valuation Pricelist" on your Item's BOM.
- Set your Parent's Item Pricelist also to the "Valuation Priclist" on you Item's BOM and click the orange arrow/triangle button to update the "Parent Product Price" value.
- Update the BOM
- Run a full Production cycle and see what your results are and this should have a "Total Variance" (between your "Actual Components Cost" and your "Actual Product Cost") to zero $0.00
If I am correct, this should carry the total components' values over to that manufactured parent's value.
But every time you purchase a component ("Recieve"), you will need to do an "Update Parent Item Prices Globally".
Try this and let me know what your results are.
Thanks
Message was edited by: Noor Jooma

How to add delivery sms report to frame,if i use gnokii

i uses gnokii to send sms..i made frame from java.. i succesed send sms,,but how i known about sms delivery report to frame

Hello
Here is a working code in VB.NET
    Private Sub AddDeliverNoteBasedOnReserveInvoice(ByVal e As Integer)
        Dim oInv As SAPbobsCOM.Documents = oCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.oInvoices)
        Dim oDln As SAPbobsCOM.Documents = oCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.oDeliveryNotes)
        If oInv.GetByKey(e) AndAlso oInv.ReserveInvoice = BoYesNoEnum.tNoThen
            Exit Sub
        End If
        oDln.CardCode = oInv.CardCode
        oDln.DocType = SAPbobsCOM.BoDocumentTypes.dDocument_Items
        oDln.DocDate = Today
        oDln.DocDueDate = Today
        For i As Integer = 0 To oInv.Lines.Count - 1
            If i > 0 Then oDln.Lines.Add()
            oDln.Lines.SetCurrentLine(i)
            oDln.Lines.BaseType = SAPbobsCOM.BoObjectTypes.oInvoices
            oDln.Lines.BaseEntry = oInv.DocEntry
            oDln.Lines.BaseLine = i
        Next
        If oDln.Add = 0 Then
            MsgBox("Good")
            Dim newCode As String = oCompany.GetNewObjectKey()
            MsgBox(newCode)
        Else
            MsgBox("Error " + oCompany.GetLastErrorDescription())
        End If
    End Sub
use the this link to convert to c#
Regards,
János
Edited by: János Nagy on Nov 30, 2009 9:21 AM

How to Add Delivery Note based on sales Order

How to add a delivery note based on sales order.
say i have a order no. 10 and linenumber 0 to 3.
each time i book with order no 10 and line no.3,i need to add to delivery note.
i also in need of adding just one Header and Multiple lines(Header for order Number - 10 and multiple lines for each Booking ).
How can i achieve this.

Hi
You can search the samples....C:\-->Program files->SAP----->SDK->Samples->DiAPI----->OrderandInvoice...
Here invoice is added for a particular sales order.....the same can be done for delivery.....
Hope it helps

How to add Excise item with out chapter id

Dear all,
How to add Excise item with out chapter id?
Chapter id of purchae items will be known only after receiving Invoice/gate pass/delivery chalan from supplier/vendor
To send a purchase order we need to create that particular item in the master, but with out assigning chapter id system is not allowing to save without chapter id.
How to solve this?
I am with SAP 8.8 and PL 10
Thanks in advance
regards,
Kumar

Hi Kumar,
Refer the book of chapter ID or find out on internet you will get the chapter ID.
Still if you not able to get the chapter id then consult with excise advisory.
But you can add Excise PO until you have the excise details in Item master.
Regards,
Datta Kharat

How to add a specific order type into any particular report

Hi All,
How to add a specific document type(order type) into any particular report in order to review OTD performance.
I need to add one specific order type to existing reports which will help to check the performance of the delivery type for that particular order type to the users.
Thanks,
Raj

Hi Rajesh,
thanks for the reply when i tried as the way you said.. but the system is asking more details like varient. so if you can clearly specify the process for order type (VOV8-- table TVAK) so it will helpful for me.
Thanks
Raj

How to add fields in smartform

Hi,
I would like to add some fields in standard smartform for outbound delivery ( VL03N ). Actually, I formatted smartform accourding to clent requirement. But I am not getting how to add some fields in that. Please, help me with any example.
Thanks ...

Hi Manoj,
it depends: If the values for new fields are passed in any interface structures/tables, just add in the eight context.
If not, you must insert a Program lines node.
This tutorial may be helpful as your smartforms experience may be limited:
[SAP Smart Forms (BC-SRV-SCR)|http://help.sap.com/printdocu/core/Print46c/en/data/pdf/BCSRVSCRSF/BCSRVSCRSF.pdf]
Regards,
Clemens

How to make warehouse field inactive for all users in all documents autom.

Hi All,
Can anyone pls tell me "**how to make warehouse field inactive for all users in all documents without having to do it through form setting** "for each and every user. It should be visible but inactive
Thanks & Regards,
Mukesh Agrawal

Hi,
As a work around create a warehouse SelectWH and map the mandatory acoounts as a On hold account(in chart of accounts).So there will not be any posting on this account.
And set this warehouse as default warehouse for all users.
So without selecting the appropriate warehouse the user can not add the document.
I think this might resolve you issue.

How to add send recipet in mail

How to add send mail receipt in mail.

In the Write window's menu, '''Options|Return Receipt''' or '''Options|Delivery Status Notification'''.
No menu? Press the <alt> button.

How to add/change missing header lines in RNIF B2B?

Hi all,
We are using RNIF exchange protocol. We have sent invoice from BPEL to B2B. The message invoice reaches the trading partner but they are unable to process it or sent ack back as few header lines are missing in the RNIF envelope.
Can anyone tell me or provide some pointers abt how to add/change missing header lines in B2B?
These are the headers missing:
Delivery header:
<locationID> <Value>HostTradingPartner</Value> </locationID>
Service Header:
<messageStandard>
<FreeFormText xml:lang="EN">PIDX</FreeFormText>
</messageStandard> <standardVersion>
<VersionIdentifier>1.0</VersionIdentifier>
</standardVersion>
Can anyone provide some inputs on this?

As per RNIF standard, all these header elements (locationID in Delivery Header & messageStandard and standardVersion in Service Header) are optional. As you are using RossettNet over RNIF, so Oracle B2B might not be setting these headers.
I do not have a 10g setup here so cann't test it. I would suggest you to raise a case with Oracle Support because PIDX is a non-RossettaNet standard and it's implementation in Oracle B2B will be different to RossettaNet implementation. Meanwhile, I would try the same in B2B 11g setup.
Regards,
Anuj

How to attach documents in Delivery & in Invoice document of SD processing?

Dear Sirs,
Hi,
Can you please suggest me how to attach documents in Delivery & in Invoice document of SD processing?
I could do so in inquiry, quotation, sales order but not able to locate the path in Delivery and in Invoice.
Pl suggest.
regards,
rajni,

hi ,
GO to SU3 own parameters then add SD_SWU_ACTIVE and X.
Then in VA02,VL02 (edit mode) You can attach the document to respective orders.
If the intermediate Coupling required then 2nd method for this is
CV01N Create the document and attach document to Document no and line NO.
Regards,
Sam

How to add join conditions in ABAP Query.

Hi,
I need a help on "ABAP Query".
How to add join conditions in ABAP Query.
Thanks in advance.
Thanks & Regards,
Ramana

Hi,
See below code,
*& Report ZRNP_ALV_SO
REPORT zrnp_alv_so MESSAGE-ID z7rnp .
INCLUDE zrnp_include .
*SELECTION SCREEN                                                      *
SELECTION-SCREEN BEGIN OF BLOCK blk1 WITH FRAME TITLE text-004 .
SELECT-OPTIONS: s_vbeln FOR vbak-vbeln ,
                s_auart FOR v_auart ,
                s_vkorg FOR v_vkorg ,
                s_spart FOR v_spart ,
                s_kunnr FOR v_kunnr ,
                s_matnr FOR v_matnr .
SELECTION-SCREEN END OF BLOCK blk1 .
*AT SELECTION SCREEN                                                   *
AT SELECTION-SCREEN.
SELECT SINGLE vbeln
                 FROM vbak INTO vbak-vbeln
                 WHERE vbeln IN s_vbeln.
IF sy-subrc <> 0.
    MESSAGE e202.
ENDIF.
*START OF SELECTION                                                    *
START-OF-SELECTION .
PERFORM data_select.
PERFORM t_sort USING i_sort .
PERFORM event_cat USING i_event .
PERFORM fld_cat USING i_fldcat[] .
PERFORM t_layout USING i_layout .
PERFORM fld_cat2 USING i_fldcat2[] .
PERFORM call_alv.
* DATA SELECT                                                          *
*&      Form DATA_SELECT
*       text
* --> p1        text
* <-- p2        text
FORM data_select .
REFRESH: it_vbfa, it_so1, it_del_ful ,it_del1 .
BREAK-POINT.
*SELECT*
        *a~vbeln*
        *a~auart*
        *a~vkorg*
        *a~spart*
        *a~kunnr*
        *b~posnr*
        *b~matnr*
        *c~maktx*
        *b~kwmeng*
        *b~vrkme*
        *INTO TABLE it_so1 FROM vbak AS a*
              *INNER JOIN vbap AS b ON b~vbeln = a~vbeln*
              *INNER JOIN makt AS c ON c~matnr = b~matnr*
              *AND c~spras = sy-langu*
              *WHERE a~vbeln IN s_vbeln .*
IF sy-subrc = 0.
    SORT it_so1 BY vbeln.
    DELETE ADJACENT DUPLICATES FROM it_so1.
ENDIF.
* COLURING DISPLAY                                                     *
DATA: ld_color(1) TYPE c .
* LOOP AT it_so1 INTO wa_so.
* Populate color variable with colour properties
* Char 1 = C (This is a color property)
* Char 2 = 3 (Color codes: 1 - 7)
* Char 3 = Intensified on/off ( 1 or 0 )
* Char 4 = Inverse display on/off ( 1 or 0 )
*           i.e. wa_ekko-line_color = 'C410'
*    ld_color = ld_color + 1.
* Only 7 colours so need to reset color value
*    IF ld_color = 8.
*      ld_color = 1.
*    ENDIF.
*    CONCATENATE 'C' ld_color '10' INTO wa_so-line_color.
** wa_ekko-line_color = 'C410'.
*    MODIFY it_so1 FROM wa_so.
* ENDLOOP .
* IF sy-subrc = 0.
IF NOT it_so1[] IS INITIAL.
    SELECT vbelv
           posnv
           vbeln
           posnn
           vbtyp_n
           INTO TABLE it_vbfa
           FROM vbfa
           FOR ALL ENTRIES IN it_so1
           WHERE vbelv = it_so1-vbeln
           AND   posnn = it_so1-posnr
           AND vbtyp_n ='J' .
    IF sy-subrc = 0.
      SELECT vbeln
             posnr
             matnr
             werks
             lgort
             charg
             lfimg
             vrkme
             FROM lips INTO TABLE it_del_ful
             FOR ALL ENTRIES IN it_vbfa
             WHERE vbeln = it_vbfa-vbeln
             AND   posnr = it_vbfa-posnn.
    ENDIF.
ENDIF.
ENDFORM.                    " DATA_SELECT
**************** EVENT CATALOG ****************************************
*&      Form EVENT_CAT
*       text
*      -->P_I_EVENT text
FORM event_cat USING    p_i_event TYPE slis_t_event .
REFRESH p_i_event .
CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
* EXPORTING
*   I_LIST_TYPE           = 0
   IMPORTING
      et_events             = p_i_event
* EXCEPTIONS
*   LIST_TYPE_WRONG       = 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.
READ TABLE p_i_event WITH KEY name = slis_ev_top_of_page INTO t_event.
IF sy-subrc = 0.
    MOVE 'TOP_OF_PAGE' TO t_event-form.
    MODIFY p_i_event FROM t_event INDEX sy-tabix TRANSPORTING form.
ENDIF.
CLEAR t_event .
ENDFORM.                    " EVENT_CAT
**********FORM FOR EVENT TOP_OF_PAGE**********************************
FORM top_of_page .
REFRESH i_listheader.
DATA: t_header TYPE slis_listheader.
DATA: v_text(50).
WRITE sy-datum TO v_text.
CLEAR t_header.
t_header-typ = 'S'.
t_header-key = "Date".
t_header-info = v_text.
APPEND t_header TO i_listheader.
CLEAR t_header.
CLEAR v_text.
WRITE: 'SALES ORDER & DELIVERY DETAILS REPORT ' TO v_text .
t_header-typ = 'S'.
t_header-key = 'TITLE'.
t_header-info = v_text.
APPEND t_header TO i_listheader.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
    EXPORTING
      it_list_commentary = i_listheader.
*      I_LOGO             = 'ALV_BACKGROUND'.
*   I_END_OF_LIST_GRID       =
ENDFORM.                    "TOP_OF_PAGE
******** FIRST ALV GRID DISPLAY ***************************************
FORM call_alv .
* FORM TO MAKE THE CELL CONTENTS INVISIBLE.
* PERFORM INVISIBLE_CELL_CONTENTS. *
*EXCLUDE-DECLARATION.
CLEAR wa_exclude.
wa_exclude-fcode = '&VEXCEL'.
APPEND wa_exclude TO i_exclude.
*&      Form CALL_ALV
*       text
* --> p1        text
* <-- p2        text
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
   EXPORTING
     i_callback_program                = sy-repid
*    I_CALLBACK_PF_STATUS_SET          = 'SET_PF_STATUS'
     i_callback_user_command           = 'USER_COMMAND1'
     i_callback_top_of_page            = 'TOP_OF_PAGE'
     i_background_id                   = 'ALV_BACKGROUND'
     is_layout                         = i_layout
     it_fieldcat                       = i_fldcat[]
     it_excluding                      = i_exclude
     it_sort                           = i_sort
     it_events                         = i_event
    TABLES
     t_outtab                          = it_so1
* 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.                    " CALL_ALV
************** FIRST FIELDCATALOG *************************************
*&      Form FLD_CAT
*       text
*      -->P_I_FLDCAT[] text
FORM fld_cat USING    p_i_fldcat TYPE slis_t_fieldcat_alv.
CLEAR i_fldcat.
i_fldcat-fieldname   = 'VBELN'. "FIELD FOR WHICH CATALOG ID FILLED
i_fldcat-tabname     = 'IT_SO1'."TABLE NAME
i_fldcat-seltext_m   = 'SALES ORDER NO.'.
i_fldcat-col_pos     = 1.        " POSITION OF THE COLUMN.
i_fldcat-outputlen   = 20.       " SET THE OUTPUT LENGTH.
i_fldcat-emphasize   = 'X'.      " COLOR OF THIS COLUMN.
i_fldcat-key         = 'X'.      " SO THAT THIS FIELD IS NOT
"SCROLLABLE AND HIDDABLE.
i_fldcat-hotspot     = 'X'.
i_fldcat-just(1)     = 'C'.
APPEND i_fldcat.
CLEAR i_fldcat.
i_fldcat-fieldname   = 'AUART'. "FIELD FOR WHICH CATALOG ID FILLED
i_fldcat-tabname     = 'IT_SO1'."TABLE NAME
i_fldcat-seltext_m   = 'SALES DOC. TYPE'.
i_fldcat-col_pos     = 2.        " POSITION OF THE COLUMN.
i_fldcat-outputlen   = 15.       " SET THE OUTPUT LENGTH.
i_fldcat-emphasize   = 'X'.      " COLOR OF THIS COLUMN.
i_fldcat-key         = 'X'.      " SO THAT THIS FIELD IS NOT
"SCROLLABLE AND HIDDABLE.
i_fldcat-just(1)     = 'C'.
APPEND i_fldcat.
CLEAR i_fldcat.
i_fldcat-fieldname   = 'VKORG'. "FIELD FOR WHICH CATALOG ID FILLED
i_fldcat-tabname     = 'IT_SO1'.
i_fldcat-seltext_m   = 'SALES ORG.'.
i_fldcat-col_pos     = 3.        " POSITION OF THE COLUMN.
i_fldcat-outputlen   = 12.       " SET THE OUTPUT LENGTH.
i_fldcat-emphasize   = 'X'.      " COLOR OF THIS COLUMN.
i_fldcat-key         = 'X'.      " SO THAT THIS FIELD IS NOT
"SCROLLABLE AND HIDDABLE.
i_fldcat-just(1)     = 'C'.
APPEND i_fldcat.
CLEAR i_fldcat.
i_fldcat-fieldname   = 'SPART'. "FIELD FOR WHICH CATALOG ID FILLED
i_fldcat-tabname     = 'IT_SO1'.
i_fldcat-seltext_m   = 'DIVISION'.
i_fldcat-col_pos     = 4.        " POSITION OF THE COLUMN.
i_fldcat-outputlen   = 10.       " SET THE OUTPUT LENGTH.
i_fldcat-emphasize   = 'X'.      " COLOR OF THIS COLUMN.
i_fldcat-key         = 'X'.      " SO THAT THIS FIELD IS NOT
"SCROLLABLE AND HIDDABLE.
i_fldcat-just(1)     = 'C'.
APPEND i_fldcat.
CLEAR i_fldcat.
i_fldcat-fieldname   = 'KUNNR'. "FIELD FOR WHICH CATALOG ID FILLED
i_fldcat-tabname     = 'IT_SO1'.
i_fldcat-seltext_m   = 'SOLD TO PARTY'.
i_fldcat-col_pos     = 5.        " POSITION OF THE COLUMN.
i_fldcat-outputlen   = 15.       " SET THE OUTPUT LENGTH.
i_fldcat-emphasize   = 'X'.      " COLOR OF THIS COLUMN.
i_fldcat-key         = 'X'.      " SO THAT THIS FIELD IS NOT
"SCROLLABLE AND HIDDABLE.
i_fldcat-just(1)     = 'C'.
APPEND i_fldcat.
CLEAR i_fldcat.
i_fldcat-fieldname   = 'POSNR'. "FIELD FOR WHICH CATALOG ID FILLED
i_fldcat-tabname     = 'IT_SO1'.
i_fldcat-seltext_m   = 'SALES DOC. ITEM'.
i_fldcat-col_pos     = 6.        " POSITION OF THE COLUMN.
i_fldcat-outputlen   = 17.       " SET THE OUTPUT LENGTH.
i_fldcat-emphasize   = 'X'.      " COLOR OF THIS COLUMN.
i_fldcat-key         = 'X'.      " SO THAT THIS FIELD IS NOT
"SCROLLABLE AND HIDDABLE.
i_fldcat-just(1)     = 'C'.
APPEND i_fldcat.
CLEAR i_fldcat.
i_fldcat-fieldname   = 'MATNR'. "FIELD FOR WHICH CATALOG ID FILLED
i_fldcat-tabname     = 'IT_SO1'.
i_fldcat-seltext_m   = 'MATERIAL NO.'.
i_fldcat-col_pos     = 7.        " POSITION OF THE COLUMN.
i_fldcat-outputlen   = 20.       " SET THE OUTPUT LENGTH.
i_fldcat-emphasize   = 'X'.      " COLOR OF THIS COLUMN.
i_fldcat-key         = 'X'.      " SO THAT THIS FIELD IS NOT
"SCROLLABLE AND HIDDABLE.
i_fldcat-just(1)     = 'C'.
APPEND i_fldcat.
CLEAR i_fldcat.
i_fldcat-fieldname   = 'MAKTX'. "FIELD FOR WHICH CATALOG ID FILLED
i_fldcat-tabname     = 'IT_SO1'.
i_fldcat-seltext_m   = 'DESCRIPTION'.
i_fldcat-col_pos     = 8.        " POSITION OF THE COLUMN.
i_fldcat-outputlen   = 20.       " SET THE OUTPUT LENGTH.
i_fldcat-emphasize   = 'X'.      " COLOR OF THIS COLUMN.
i_fldcat-key         = 'X'.      " SO THAT THIS FIELD IS NOT
"SCROLLABLE AND HIDDABLE.
i_fldcat-just(1)     = 'C'.
APPEND i_fldcat.
CLEAR i_fldcat.
i_fldcat-fieldname   = 'KWMENG'. "FIELD FOR WHICH CATALOG ID FILLED
i_fldcat-tabname     = 'IT_SO1'.
i_fldcat-seltext_m   = 'QUANTITY'.
i_fldcat-col_pos     = 9.        " POSITION OF THE COLUMN.
i_fldcat-outputlen   = 15.       " SET THE OUTPUT LENGTH.
i_fldcat-emphasize   = 'X'.      " COLOR OF THIS COLUMN.
i_fldcat-key         = 'X'.      " SO THAT THIS FIELD IS NOT
"SCROLLABLE AND HIDDABLE.
i_fldcat-do_sum    = 'X'.        " For doing "SUM"
i_fldcat-just(1)     = 'C'.
APPEND i_fldcat.
CLEAR i_fldcat.
i_fldcat-fieldname   = 'VRKME'. "FIELD FOR WHICH CATALOG ID FILLED
i_fldcat-tabname     = 'IT_SO1'.
i_fldcat-seltext_m   = 'SALES UNIT'.
i_fldcat-col_pos     = 10.       " POSITION OF THE COLUMN.
i_fldcat-outputlen   = 10.       " SET THE OUTPUT LENGTH.
i_fldcat-emphasize   = 'X'.      " COLOR OF THIS COLUMN.
i_fldcat-key         = 'X'.      " SO THAT THIS FIELD IS NOT
"SCROLLABLE AND HIDDABLE.
i_fldcat-just(1)     = 'C'.
APPEND i_fldcat.
ENDFORM.                    " FLD_CAT
****************** ALV SORTING ***************************************
*&      Form SORT
*       text
*      -->P_I_SORT text
FORM t_sort USING    p_i_sort TYPE slis_t_sortinfo_alv .
DATA: i_sort TYPE slis_sortinfo_alv .
REFRESH p_i_sort .
CLEAR i_sort.
i_sort-spos = 1.
i_sort-tabname = 'IT_SO1'.
i_sort-fieldname = 'VBELN'.
i_sort-up = 'X'.
i_sort-subtot = 'X'.
i_sort-group = '*'.
APPEND i_sort TO p_i_sort.
ENDFORM.                    " SORT
*FORM SET_PF_STATUS USING rt_extab TYPE slis_t_extab.
* SET PF-STATUS 'ZSTANDARD'.
*ENDFORM. "Set_pf_status
***********FORM FOR EVENT USER_COMMAND1********************************
FORM user_command1 USING r_ucomm LIKE sy-ucomm
                         rs_selfield TYPE slis_selfield.
*CASE R_UCOMM .
*    WHEN '&IC1' .
*    IF rs_selfield-FIELDNAME = 'VBELN' .
*    ENDIF .
* WHEN OTHERS .
* ENDCASE .
CLEAR wa_so.
REFRESH: it_del1 .
IF r_ucomm = '&IC1' AND rs_selfield-fieldname = 'VBELN' AND
rs_selfield-value IS NOT INITIAL.
    READ TABLE it_so1 INTO wa_so INDEX rs_selfield-tabindex.
    IF sy-subrc = 0.
      LOOP AT it_vbfa INTO wa_vbfa WHERE vbelv = wa_so-vbeln
                                   AND   posnv = wa_so-posnr.
        READ TABLE it_del_ful INTO wa_it_del_ful
             WITH KEY vbeln = wa_vbfa-vbelv
                      posnr = wa_vbfa-posnn.
        IF sy-subrc = 0.
          CLEAR wa_del.
          MOVE wa_it_del_ful TO wa_del.
          APPEND wa_del TO it_del1.
        ENDIF.
      ENDLOOP.
    ENDIF.
ENDIF.
********* SECOND ALV GRID DISPLAY ***********************************
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
   EXPORTING
    i_callback_program                = sy-repid
*   I_CALLBACK_PF_STATUS_SET          = 'SET_PF_STATUS'
    i_callback_user_command           = 'USER_COMMAND2'
    i_callback_top_of_page            = 'TOP_OF_PAGE'
    i_background_id                   = 'ALV_BACKGROUND'
    it_fieldcat                       = i_fldcat2[]
    it_sort                           = i_sort
    TABLES
    t_outtab                          = it_del_ful
* 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 .                    "USER_COMMAND1
********** FORM FOR EVENT USER_COMMAND 2 ******************************
FORM user_command2 USING r_ucomm LIKE sy-ucomm
                         rs_selfield TYPE slis_selfield.
CLEAR wa_so.
REFRESH: it_del1 .
IF r_ucomm = '&IC1' AND rs_selfield-fieldname = 'VBELN' AND
rs_selfield-value IS NOT INITIAL.
    READ TABLE it_so1 INTO wa_so INDEX rs_selfield-tabindex.
*    IF SY-SUBRC = 0.
*       LOOP AT it_vbfa INTO wa_vbfa WHERE vbelv = WA_SO-vbeln
*                                    AND   posnv = WA_SO-posnr.
    READ TABLE it_del_ful INTO wa_it_del_ful
         WITH KEY vbeln = rs_selfield-value
                 " vbeln = wa_vbfa-vbeln
                  posnr = wa_vbfa-posnn.
    IF rs_selfield-fieldname = 'VBELN'.
      SET PARAMETER ID 'VL' FIELD wa_vbfa-vbeln .
      CALL TRANSACTION 'VL03' AND SKIP FIRST SCREEN.
    ENDIF .
*       ENDLOOP.
*    ENDIF.
ENDIF.
ENDFORM .                    "USER_COMMAND2
********* SECOND FIELDCATALOG ******************************************
*&      Form FLD_CAT2
*       text
*      -->P_I_FLDCAT2[] text
FORM fld_cat2 USING    p_i_fldcat2 TYPE slis_t_fieldcat_alv .
CLEAR i_fldcat2.
i_fldcat2-fieldname   = 'VBELN'. "FIELD FOR WHICH CATALOG ID FILLED
i_fldcat2-tabname     = 'IT_DEL_FUL'."TABLE NAME
i_fldcat2-seltext_m   = 'DELIVERY NO.'.
i_fldcat2-col_pos     = 1.        " POSITION OF THE COLUMN.
i_fldcat2-outputlen   = 20.       " SET THE OUTPUT LENGTH.
i_fldcat2-emphasize   = 'X'.      " COLOR OF THIS COLUMN.
i_fldcat2-key         = 'X'.      " SO THAT THIS FIELD IS NOT
"SCROLLABLE AND HIDDABLE.
i_fldcat2-hotspot     = 'X'.
i_fldcat2-just(1)     = 'C'.
APPEND i_fldcat2.
CLEAR i_fldcat2.
i_fldcat2-fieldname   = 'POSNR'. "FIELD FOR WHICH CATALOG ID FILLED
i_fldcat2-seltext_m   = 'DELIVERY ITEM'.
i_fldcat2-col_pos     = 2.        " POSITION OF THE COLUMN.
i_fldcat2-outputlen   = 20.       " SET THE OUTPUT LENGTH.
i_fldcat2-emphasize   = 'X'.      " COLOR OF THIS COLUMN.
i_fldcat2-key         = 'X'.      " SO THAT THIS FIELD IS NOT
"SCROLLABLE AND HIDDABLE.
i_fldcat2-just(1)     = 'C'.
APPEND i_fldcat2.
CLEAR i_fldcat2.
i_fldcat2-fieldname   = 'MATNR'. "FIELD FOR WHICH CATALOG ID FILLED
i_fldcat2-seltext_m   = 'MATERIAL NO.'.
i_fldcat2-col_pos     = 3.        " POSITION OF THE COLUMN.
i_fldcat2-outputlen   = 20.       " SET THE OUTPUT LENGTH.
i_fldcat2-emphasize   = 'X'.      " COLOR OF THIS COLUMN.
i_fldcat2-key         = 'X'.      " SO THAT THIS FIELD IS NOT
"SCROLLABLE AND HIDDABLE.
i_fldcat2-just(1)     = 'C'.
APPEND i_fldcat2.
CLEAR i_fldcat2.
i_fldcat2-fieldname   = 'WERKS'. "FIELD FOR WHICH CATALOG ID FILLED
i_fldcat2-seltext_m   = 'PLANT.'.
i_fldcat2-col_pos     = 4.        " POSITION OF THE COLUMN.
i_fldcat2-outputlen   = 20.       " SET THE OUTPUT LENGTH.
i_fldcat2-emphasize   = 'X'.      " COLOR OF THIS COLUMN.
i_fldcat2-key         = 'X'.      " SO THAT THIS FIELD IS NOT
"SCROLLABLE AND HIDDABLE.
i_fldcat2-just(1)     = 'C'.
APPEND i_fldcat2.
CLEAR i_fldcat2.
i_fldcat2-fieldname   = 'LGORT'. "FIELD FOR WHICH CATALOG ID FILLED
i_fldcat2-seltext_m   = 'ST. LOCATION'.
i_fldcat2-col_pos     = 5.        " POSITION OF THE COLUMN.
i_fldcat2-outputlen   = 20.       " SET THE OUTPUT LENGTH.
i_fldcat2-emphasize   = 'X'.      " COLOR OF THIS COLUMN.
i_fldcat2-key         = 'X'.      " SO THAT THIS FIELD IS NOT
"SCROLLABLE AND HIDDABLE.
i_fldcat2-just(1)     = 'C'.
APPEND i_fldcat2.
CLEAR i_fldcat2.
i_fldcat2-fieldname   = 'CHARG'. "FIELD FOR WHICH CATALOG ID FILLED
i_fldcat2-seltext_m   = 'BATCH NO.'.
i_fldcat2-col_pos     = 6.        " POSITION OF THE COLUMN.
i_fldcat2-outputlen   = 20.       " SET THE OUTPUT LENGTH.
i_fldcat2-emphasize   = 'X'.      " COLOR OF THIS COLUMN.
i_fldcat2-key         = 'X'.      " SO THAT THIS FIELD IS NOT
"SCROLLABLE AND HIDDABLE.
i_fldcat2-just(1)     = 'C'.
APPEND i_fldcat2.
CLEAR i_fldcat2.
i_fldcat2-fieldname   = 'LFIMG'. "FIELD FOR WHICH CATALOG ID FILLED
i_fldcat2-seltext_m   = 'ACT. DEL. QTY.'.
i_fldcat2-col_pos     = 7.        " POSITION OF THE COLUMN.
i_fldcat2-outputlen   = 20.       " SET THE OUTPUT LENGTH.
i_fldcat2-emphasize   = 'X'.      " COLOR OF THIS COLUMN.
i_fldcat2-key         = 'X'.      " SO THAT THIS FIELD IS NOT
"SCROLLABLE AND HIDDABLE.
i_fldcat2-just(1)     = 'C'.
APPEND i_fldcat2.
CLEAR i_fldcat2.
i_fldcat2-fieldname   = 'VRKME'. "FIELD FOR WHICH CATALOG ID FILLED
i_fldcat2-seltext_m   = 'SALES UNIT.'.
i_fldcat2-col_pos     = 8.        " POSITION OF THE COLUMN.
i_fldcat2-outputlen   = 20.       " SET THE OUTPUT LENGTH.
i_fldcat2-emphasize   = 'X'.      " COLOR OF THIS COLUMN.
i_fldcat2-key         = 'X'.      " SO THAT THIS FIELD IS NOT
"SCROLLABLE AND HIDDABLE.
i_fldcat2-just(1)     = 'C'.
APPEND i_fldcat2.
ENDFORM.                                                    " FLD_CAT2
***************** ALV LAYOUT *******************************************
*&      Form LAYOUT
*       text
*      -->P_I_LAYOUT text
FORM t_layout USING    p_i_layout TYPE slis_layout_alv .
p_i_layout-zebra = 'X'.
p_i_layout-totals_text = 'GRAND TOTAL ='.
* p_i_layout-CONFIRMATION_PROMPT = 'X'.
* p_i_layout-DEF_STATUS = ' '.
p_i_layout-info_fieldname = 'LINE_COLOR'.
ENDFORM.                    " LAYOUT

How to add Material photo in SAP

Hi folks,
    Does anybody know how to add material photo to material No?
     As now, when our old spare parts are bad, maintanance user have to find a new one to replace, so they need to provide the material No to warehouse user or purchase dept.
    But now as there are a lot of spare parts in SAP, iIt's difficult for them to appoint SAP material No from layout, so we want to add photo to material No.
Great thanks!
Li Jing
Edited by: Li Jing on Apr 2, 2010 12:14 PM

When viewing material, from main menu select System > Services for Object.
You may get a choose object type option, if you do, choose a std way to work e.g. always use Object = Material.
You'll then get a mini free floating toolbar. Select the far left Icon and Create an attachment. Navigate to your picture and upload.
To view the picture, select the Icon second left (this is greyed out if there are no attachments).
You can attach any number of pictures or Word documents etc.
Regards,
Nick

Urgent! how to add Warning for Phase out product

Hi, Can anyone guide soon on how to add a warning message when an Order/Quatation in SAP CRM for phase out product is created so that any sales representive will come to know if total amount/unit defined in the order can be delivered. Reason is to avoid bigger quantity being entered compared to remaining quantity in warehouse.

Hi Piyush
You can define a status in the product master. If you are downloading the product from ECC, you can mention the reason in the material master as "Phase Out Product" and when you download this product in CRM, the status will be shown in Sales and Distribution tab against the field Status.
If the reason is added, then it will give a error message to the sales representative that the product is blocked or phased out.
Hope this will be useful
Thanks and Regards
DJ

How to add warehouse in Delivery?

Similar Messages

Maybe you are looking for