BAPI_SHIPMENT_CREATE

[Former Member]

How can i create a shipment with the execution dates in the deadline?? How i fill the BAPISHIPMENTSTAGEDEADLINE?

can anybody post an example please? i need to create a shipment with status "shipment completion". thanks

[Former Member]

Hai Rodrigo

Check the SAP Standard Program 'SDVTTK01'

this program uses 'BAPI_SHIPMENT_CREATE'

CALL FUNCTION 'BAPI_SHIPMENT_CREATE'

EXPORTING

HEADERDATA = HEADERDATA

IMPORTING

SHIPMENTGUID = SHIPMENTGUID

TRANSPORT = OBJECT-KEY-TRANSPORT

TABLES

ADDRESS = ADDRESS

HDUNHEADER = HDUNHEADER

HDUNITEM = HDUNITEM

RETURN = RETURN

ITEMONSTAGE = ITEMONSTAGE

STAGEDEADLINE = STAGEDEADLINE

STAGEDATA = STAGEDATA

ITEMDATA = ITEMDATA

HEADERDEADLINE = HEADERDEADLINE

EXCEPTIONS

OTHERS = 01.

Thanks & regards

Sreenivasulu P

[Former Member]

Hi Sreenivas,

I need to assign certain type of deliveries to a particular shipment rite now i am trying with the following code. plz suggest me how to use this BAPI_SHIPMENT_CEATE. If possible send me sample code.

Code rite now i am using is

*&---------------------------------------------------------------------*
*& Report  Y_EPP001
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT  y_epp001.

DATA : is_xvttk TYPE vttkvb,                  " Shipment Header
      it_xvttp TYPE TABLE OF vttpvb,         " Shipment Item
      it_yvttp TYPE TABLE OF vttpvb,         " Shipment Item
      it_xvtsp TYPE TABLE OF vtspvb,         " Stage or Item assignment
      it_yvtsp TYPE TABLE OF vtspvb,
      it_deliveries TYPE TABLE OF ship_deliv," Store Deliveries.
      it_xtrlk TYPE TABLE OF vtrlk,
      it_xtrlp TYPE TABLE OF vtrlp,
      it_xvtts TYPE TABLE OF vttsvb.

DATA : wa_deliveries LIKE LINE OF it_deliveries.
DATA : ws_xvtts LIKE LINE OF it_xvtts.

*
*wa_deliveries-vbeln = '0080000754'.
*wa_deliveries-tprfo = '1'.
*
*APPEND wa_deliveries TO it_deliveries.

wa_deliveries-vbeln = '0080000691'.
wa_deliveries-tprfo = '2'.

APPEND wa_deliveries TO it_deliveries.

**** Reading of deliveries for shipment processing
CALL FUNCTION 'SD_SHIPMENT_DELIVERY_VIEW'
 EXPORTING
   i_partner_role                      = 'X'
   opt_items                           = 'X'
   opt_status_data                     = 'X'
   opt_partners                        = 'X'
   opt_customer_data                   = 'X'
   opt_customizing_data                = 'X'
   opt_order_data                      = 'X'
   opt_export_data                     = 'X'
   opt_stawn_data                      = 'X'
   opt_hazmat_dat                      = 'X'

  TABLES
    i_deliv                             = it_deliveries
* Delivery Header data
    c_vtrlk                             = it_xtrlk
* Delivery Item data
    c_vtrlp                             = it_xtrlp

  EXCEPTIONS
   no_deliveries                       = 1
   error_reading_delivery_header       = 2
   error_reading_partner_table         = 3
   OTHERS                              = 4
          .
IF sy-subrc <> 0.
  MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
          WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.

*** Pass the shipment numbe here and get Previous deliveris assigned.
BREAK-POINT.

CALL FUNCTION 'RV_SHIPMENT_VIEW'
  EXPORTING
    shipment_number                   = '0000001292'
    option_tvtk                       = 'X'
    option_ttds                       = 'X'
    option_items                      = 'X'
    option_sales_orders               = 'X'
    option_export_data                = 'X'
    option_stawn_read                 = 'X'
    option_segments                   = 'X'
    option_partners                   = 'X'
    option_messages                   = 'X'
    option_packages                   = 'X'
    option_package_dialog             = 'X'
    option_flow                       = 'X'
    option_authority_check            = ' '
    activity                          = 'A'
    option_no_refresh                 = ''
    option_ignore_missing_deliv       = 'X'

 IMPORTING
*** The Lastitem no assigend & lastsequence num asigned.
    f_vttkvb                          = is_xvttk
 TABLES
*** Old Deliveries asigned to Shipment.
    f_vttp                            = it_xvttp
*** Stage/item assignment.
    f_vtsp                            = it_xvtsp

 EXCEPTIONS
   not_found                         = 1
   no_authority                      = 2
   delivery_missing                  = 3
   delivery_lock                     = 4
   OTHERS                            = 5
          .
IF sy-subrc <> 0.
 MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.

*** Assign Delivery to Shipment.
CALL FUNCTION 'SD_DELIVERY_ASSIGN_TO_SHIPMENT'
  EXPORTING
    i_tknum                      =  '0000001292'
  tables
    c_xvttp                      = it_xvttp
    c_yvttp                      = it_yvttp
    c_xvtsp                      = it_xvtsp
    c_yvtsp                      = it_yvtsp
    i_deliveries                 = it_deliveries
    i_xtrlk                      = it_xtrlk
    i_xtrlp                      = it_xtrlp
    i_xvtts                      = it_xvtts
  changing
    c_xvttk                      = is_xvttk
 EXCEPTIONS
   NO_TRANSPORT_RELEVANCE       = 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.

BREAK-POINT.

Thanks in advance. Plz send usful document to mohan.avasaram@wipro.com