BAPI_SHIPMENT_CREATE

Question

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

Answer 1

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 [email protected]