销售订单

文章

SAP销售退货业务

如果发生客诉等原因需要退回货物，则可以使用退货销售订单收回货物并冲减收入和成本。退货的核准以及退回货物的QC可以在线下做也可以在SAP做，退货订单可以参考Billing或者SO创建…

ag
2020.12.17
5.4K010

文章

删除销售订单BAPI

REPORT zdelete_sales_order.

TABLES vbak.
DATA: itab_vbak LIKE TABLE OF vbak.
DATA: itab_vbap LIKE TABLE OF vbap.
DATA: itab_vbkd LIKE TABLE OF vbkd.

DATA: wa_vbak LIKE vbak.
DATA: wa_vbap LIKE vbap.
DATA: wa_vbkd LIKE vbkd.


DATA: lt_order_header_in  LIKE bapisdh1,
      lt_order_header_inx LIKE bapisdh1x,
      lt_return           LIKE bapiret2 OCCURS 0 WITH HEADER LINE,
      lt_order_item_in    LIKE bapisditm OCCURS 0 WITH HEADER LINE,
      lt_order_item_inx   LIKE bapisditmx OCCURS 0 WITH HEADER LINE.

DATA lt_vbak LIKE TABLE OF vbak WITH HEADER LINE.

SELECT-OPTIONS s_vbeln FOR vbak-vbeln OBLIGATORY.


*SELECT * INTO TABLE itab_vbak FROM vbak WHERE vbeln IN s_vbeln.
*SELECT * INTO TABLE itab_vbap FROM vbap WHERE vbeln IN s_vbeln.
*SELECT * INTO TABLE itab_vbkd FROM vbkd WHERE vbeln IN s_vbeln.


SELECT vbeln INTO CORRESPONDING FIELDS OF TABLE lt_vbak
  FROM vbak
  WHERE vbeln IN s_vbeln.


LOOP AT lt_vbak.
  lt_order_header_inx-updateflag = 'D'.
  CALL FUNCTION 'BAPI_SALESORDER_CHANGE'
    EXPORTING
      salesdocument    = lt_vbak-vbeln
*     ORDER_HEADER_IN  = LT_ORDER_HEADER_IN
      order_header_inx = lt_order_header_inx
    TABLES
      return           = lt_return.

  LOOP AT lt_return WHERE type = 'E' OR type = 'A'.
  ENDLOOP.
  IF sy-subrc = 0.
    ROLLBACK WORK.
    WRITE:lt_vbak-vbeln,' E'.
  ELSE.
    COMMIT WORK AND WAIT.
    WRITE:lt_vbak-vbeln,' S'.
  ENDIF.

ENDLOOP.

*LOOP AT ITAB_VBAK INTO WA_VBAK.
*
*  DELETE FROM VBAK WHERE VBELN = WA_VBAK-VBELN.
*  DELETE FROM VBAP WHERE VBELN = WA_VBAK-VBELN.
*  DELETE FROM VBKD WHERE VBELN = WA_VBAK-VBELN.
*  DELETE FROM VBEP WHERE VBELN = WA_VBAK-VBELN.
*  DELETE FROM VBPA WHERE VBELN = WA_VBAK-VBELN.
*
*ENDLOOP.

REPORT zdelete_sales_order.

TABLES vbak.

DATA: itab_vbak LIKE TABLE OF vbak.

DATA: itab_vbap LIKE TABLE OF vbap.

DATA: itab_vbkd LIKE TABLE OF vbkd.

DATA: wa_vbak LIKE vbak.

DATA: wa_vbap LIKE vbap.

DATA: wa_vbkd LIKE vbkd.

DATA: lt_order_header_in LIKE bapisdh1,

lt_order_header_inx LIKE bapisdh1x,

lt_return LIKE bapiret2 OCCURS 0 WITH HEADER LINE,

lt_order_item_in LIKE bapisditm OCCURS 0 WITH HEADER LINE,

lt_order_item_inx LIKE bapisditmx OCCURS 0 WITH HEADER LINE.

DATA lt_vbak LIKE TABLE OF vbak WITH HEADER LINE.

SELECT-OPTIONS s_vbeln FOR vbak-vbeln OBLIGATORY.

*SELECT * INTO TABLE itab_vbak FROM vbak WHERE vbeln IN s_vbeln.

*SELECT * INTO TABLE itab_vbap FROM vbap WHERE vbeln IN s_vbeln.

*SELECT * INTO TABLE itab_vbkd FROM vbkd WHERE vbeln IN s_vbeln.

SELECT vbeln INTO CORRESPONDING FIELDS OF TABLE lt_vbak

FROM vbak

WHERE vbeln IN s_vbeln.

LOOP AT lt_vbak.

lt_order_header_inx-updateflag = 'D'.

CALL FUNCTION 'BAPI_SALESORDER_CHANGE'

EXPORTING

salesdocument = lt_vbak-vbeln

* ORDER_HEADER_IN = LT_ORDER_HEADER_IN

order_header_inx = lt_order_header_inx

TABLES

return = lt_return.

LOOP AT lt_return WHERE type = 'E' OR type = 'A'.

ENDLOOP.

IF sy-subrc = 0.

ROLLBACK WORK.

WRITE:lt_vbak-vbeln,' E'.

ELSE.

COMMIT WORK AND WAIT.

WRITE:lt_vbak-vbeln,' S'.

ENDIF.

ENDLOOP.

*LOOP AT ITAB_VBAK INTO WA_VBAK.

* DELETE FROM VBAK WHERE VBELN = WA_VBAK-VBELN.

* DELETE FROM VBAP WHERE VBELN = WA_VBAK-VBELN.

* DELETE FROM VBKD WHERE VBELN = WA_VBAK-VBELN.

* DELETE FROM VBEP WHERE VBELN = WA_VBAK-VBELN.

* DELETE FROM VBPA WHERE VBELN = WA_VBAK-VBELN.

*ENDLOOP.

2020.11.22

2.0K000

文章

BAPI To Update Sales Order Reason For Rejection

REPORT ztestbapiso1.
*&--------------------------------------------------------------------&*
*& Program Description:                                               &*
*& -----------------------                                            &*
*& This demo program will update the reason for rejection for all     &*
*& items in a selected sales order.                                   &*
*&                                                                    &*
*& The program demonstrate the use of the 'BAPI_SALESORDER_CHANGE'.   &*
*&                                                                    &*
*& Author:  ABAPCOOKBOOK                                              &*
*& Website: www.abapcookbook.com                                      &*
************************************************************************

************************************************************************
* DATA DECLARATIONS                                                    *
************************************************************************
*Tables:
TABLES:
  vbap.

*Internal tables:
DATA:
  gt_vbap           TYPE STANDARD TABLE OF vbap,
  gt_item_in        TYPE STANDARD TABLE OF bapisditm,
  gt_item_inx       TYPE STANDARD TABLE OF bapisditmx,
  gt_return         TYPE STANDARD TABLE OF bapiret2.

*Field Symbols:
FIELD-SYMBOLS:
  <fs_vbap>         TYPE vbap.

*Structures:
DATA:
  gst_item_hedx     TYPE bapisdh1x,
  gst_item_in       TYPE bapisditm,
  gst_item_inx      TYPE bapisditmx.

*Variables:
DATA:
  gv_msg            TYPE string.

*Constants:
CONSTANTS:
  gc_error          TYPE string VALUE ': An error occured, no change done to the sales order.',
  gc_success        TYPE string VALUE ': Sales order changed successfully.'.

************************************************************************
* SELECTION SCREEN                                                     *
************************************************************************
SELECT-OPTIONS:
*  Sales Order Number.
   s_vbeln FOR vbap-vbeln OBLIGATORY.

PARAMETERS:
*   Reason for Rejection.
    p_abgru TYPE vbap-abgru OBLIGATORY.


************************************************************************
* CODE LOGIC                                                           *
************************************************************************

*Select sales order data from table VBAP.
SELECT *
  FROM vbap
  INTO TABLE gt_vbap
  WHERE vbeln IN s_vbeln.

IF sy-subrc EQ 0.

  LOOP AT gt_vbap ASSIGNING <fs_vbap>.

*   (Order Header Level)
*   Setting the update flag at order header level to update mode.
    gst_item_hedx-updateflag = 'U'.

*   (Order Item Level)
*   Setting of the material number(MATNR) at order item level.
    gst_item_in-material = <fs_vbap>-matnr.

*   Setting of the item number(POSNR) at order item level.
    gst_item_in-itm_number  = <fs_vbap>-posnr.
    gst_item_inx-itm_number = <fs_vbap>-posnr.

*   Setting of the reason for rejection(ABGRU) at order item level.
    gst_item_in-reason_rej  = p_abgru.
    gst_item_inx-reason_rej = 'X'.

*   Setting the update flag at order item level to update mode.
    gst_item_inx-updateflag = 'U'.

*   BAPI items level tables:
    APPEND:
      gst_item_in  TO gt_item_in,
      gst_item_inx TO gt_item_inx.

*   Calling BAPI to update reason for rejection in the selected sales order.
    CALL FUNCTION 'BAPI_SALESORDER_CHANGE'
      EXPORTING
        salesdocument    = <fs_vbap>-vbeln
        order_header_inx = gst_item_hedx
      TABLES
        return           = gt_return
        order_item_in    = gt_item_in
        order_item_inx   = gt_item_inx.

*   Preparing the result message.
    CONCATENATE <fs_vbap>-vbeln   " Sales Order Number
                <fs_vbap>-posnr   " Item Number
           INTO gv_msg            " Message
   SEPARATED BY space.            " Space

*   Check if at least one error was raised by the BAPI. Loop inside
*   loop is not advise, however, the return table will contains small
*   amount of entries. We can use that for our demo.
    LOOP AT gt_return TRANSPORTING NO FIELDS
    WHERE type EQ 'E'
       OR type EQ 'A'.

*     Exit and rollback changes.
      EXIT.

    ENDLOOP.

*   If error found, rollback database changes.
    IF sy-subrc EQ 0.

*     Rollback changes.
      CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.

*     Preparing error message.
      CONCATENATE gv_msg        "Sales Order and Item Number
                  gc_error      "Error Message
             INTO gv_msg
     SEPARATED BY space.

*     Output message.
      WRITE / gv_msg.

*   Else, no error found, commit database changes.
    ELSE.

*     Commit changes.
      CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
        EXPORTING
          wait = abap_true.

*     Preparing success message.
      CONCATENATE gv_msg        "Sales Order and Item Number
                  gc_success    "Success Message
             INTO gv_msg
     SEPARATED BY space.

*     Output message.
      WRITE / gv_msg.

    ENDIF.

*   Write a line after each sales order.
    AT END OF vbeln.
      WRITE: sy-uline.
    ENDAT.

*   Clearing of variables and structures:
    CLEAR:
*     Variables:
      gv_msg,
*     Structures:
      gst_item_hedx,
      gst_item_in,
      gst_item_inx.

*   Refreshing internal tables:
    REFRESH:
      gt_item_in,
      gt_item_inx,
      gt_return.

  ENDLOOP.

ENDIF.

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

129

130

131

132

133

134

135

136

137

138

139

140

141

142

143

144

145

146

147

148

149

150

151

152

153

154

155

156

157

158

159

160

161

162

163

164

165

166

167

168

169

170

171

172

173

174

175

176

177

178

179

180

181

REPORT ztestbapiso1.

*&--------------------------------------------------------------------&*

*& Program Description: &*

*& ----------------------- &*

*& This demo program will update the reason for rejection for all &*

*& items in a selected sales order. &*

*& &*

*& The program demonstrate the use of the 'BAPI_SALESORDER_CHANGE'. &*

*& &*

*& Author: ABAPCOOKBOOK &*

*& Website: www.abapcookbook.com &*

************************************************************************

* DATA DECLARATIONS *

************************************************************************

*Tables:

TABLES:

vbap.

*Internal tables:

DATA:

gt_vbap TYPE STANDARD TABLE OF vbap,

gt_item_in TYPE STANDARD TABLE OF bapisditm,

gt_item_inx TYPE STANDARD TABLE OF bapisditmx,

gt_return TYPE STANDARD TABLE OF bapiret2.

*Field Symbols:

FIELD-SYMBOLS:

<fs_vbap> TYPE vbap.

*Structures:

DATA:

gst_item_hedx TYPE bapisdh1x,

gst_item_in TYPE bapisditm,

gst_item_inx TYPE bapisditmx.

*Variables:

DATA:

gv_msg TYPE string.

*Constants:

CONSTANTS:

gc_error TYPE string VALUE ': An error occured, no change done to the sales order.',

gc_success TYPE string VALUE ': Sales order changed successfully.'.

************************************************************************

* SELECTION SCREEN *

************************************************************************

SELECT-OPTIONS:

* Sales Order Number.

s_vbeln FOR vbap-vbeln OBLIGATORY.

PARAMETERS:

* Reason for Rejection.

p_abgru TYPE vbap-abgru OBLIGATORY.

************************************************************************

* CODE LOGIC *

************************************************************************

*Select sales order data from table VBAP.

SELECT *

FROM vbap

INTO TABLE gt_vbap

WHERE vbeln IN s_vbeln.

IF sy-subrc EQ 0.

LOOP AT gt_vbap ASSIGNING <fs_vbap>.

* (Order Header Level)

* Setting the update flag at order header level to update mode.

gst_item_hedx-updateflag = 'U'.

* (Order Item Level)

* Setting of the material number(MATNR) at order item level.

gst_item_in-material = <fs_vbap>-matnr.

* Setting of the item number(POSNR) at order item level.

gst_item_in-itm_number = <fs_vbap>-posnr.

gst_item_inx-itm_number = <fs_vbap>-posnr.

* Setting of the reason for rejection(ABGRU) at order item level.

gst_item_in-reason_rej = p_abgru.

gst_item_inx-reason_rej = 'X'.

* Setting the update flag at order item level to update mode.

gst_item_inx-updateflag = 'U'.

* BAPI items level tables:

APPEND:

gst_item_in TO gt_item_in,

gst_item_inx TO gt_item_inx.

* Calling BAPI to update reason for rejection in the selected sales order.

CALL FUNCTION 'BAPI_SALESORDER_CHANGE'

EXPORTING

salesdocument = <fs_vbap>-vbeln

order_header_inx = gst_item_hedx

TABLES

return = gt_return

order_item_in = gt_item_in

order_item_inx = gt_item_inx.

* Preparing the result message.

CONCATENATE <fs_vbap>-vbeln " Sales Order Number

<fs_vbap>-posnr " Item Number

INTO gv_msg " Message

SEPARATED BY space. " Space

* Check if at least one error was raised by the BAPI. Loop inside

* loop is not advise, however, the return table will contains small

* amount of entries. We can use that for our demo.

LOOP AT gt_return TRANSPORTING NO FIELDS

WHERE type EQ 'E'

OR type EQ 'A'.

* Exit and rollback changes.

EXIT.

ENDLOOP.

* If error found, rollback database changes.

IF sy-subrc EQ 0.

* Rollback changes.

CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.

* Preparing error message.

CONCATENATE gv_msg "Sales Order and Item Number

gc_error "Error Message

INTO gv_msg

SEPARATED BY space.

* Output message.

WRITE / gv_msg.

* Else, no error found, commit database changes.

ELSE.

* Commit changes.

CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'

EXPORTING

wait = abap_true.

* Preparing success message.

CONCATENATE gv_msg "Sales Order and Item Number

gc_success "Success Message

INTO gv_msg

SEPARATED BY space.

* Output message.

WRITE / gv_msg.

ENDIF.

* Write a line after each sales order.

AT END OF vbeln.

WRITE: sy-uline.

ENDAT.

* Clearing of variables and structures:

CLEAR:

* Variables:

gv_msg,

* Structures:

gst_item_hedx,

gst_item_in,

gst_item_inx.

* Refreshing internal tables:

REFRESH:

gt_item_in,

gt_item_inx,

gt_return.

ENDLOOP.

ENDIF.

2017.11.07

4.2K200

文章

销售订单的行项目里条件的增强

如果要设置销售订单行项目里的某个类型下的金额数据可能要用到增强来做比如项目类别为TANN时，设置价格为空在LV69AFZZ里面控制代码如下：[crayon-6634ba119e83…

ag
2017.05.03
2.5K000
文章

创建销售订单-用外部给号的方法步骤

For this create the number range in VN01 with the number range object. Go to VOV8 select y…

ag
2017.05.03
1.8K000

2 / 2
上一页
1
2

销售订单

SAP销售退货业务

删除销售订单BAPI

BAPI To Update Sales Order Reason For Rejection

销售订单的行项目里条件的增强

创建销售订单-用外部给号的方法步骤