VA21 创建报价单

1、前台

报价是提供给客户交付货物或服务的一份文件，客户想要知道产品价格以及装运时间。

事务代码VA21

输入报价单类型和销售组织、分销渠道、产品组

输入售达方和行项目的物料信息，订购数量等信息

输入条件，金额

2、源代码

"--------------------@斌将军--------------------
DATA: lv_vbeln        TYPE bapivbeln-vbeln, "询报价单
      ls_head_in      TYPE bapisdhd1, "抬头
      ls_head_inx     TYPE bapisdhd1x,
      ls_logic_switch TYPE bapisdls,  "执行新的定价标记
      lt_item_in      TYPE TABLE OF bapisditm WITH HEADER LINE, "行项目
      lt_item_inx     TYPE TABLE OF bapisditmx WITH HEADER LINE,
      lt_partner_in   TYPE TABLE OF bapiparnr WITH HEADER LINE, "合作伙伴
      lt_schdl_in     TYPE TABLE OF bapischdl WITH HEADER LINE, "计划行
      lt_schdl_inx    TYPE TABLE OF bapischdlx WITH HEADER LINE,
      lt_cond_in      TYPE TABLE OF bapicond WITH HEADER LINE, "定价
      lt_cond_inx     TYPE TABLE OF bapicondx WITH HEADER LINE,
      lt_return       TYPE TABLE OF bapiret2 WITH HEADER LINE. "返回消息

DATA:lv_check   TYPE char1,
     lv_message TYPE char200.

"询报价单抬头
*  ls_head_in-purch_no_c = '111'."客户参考PO
ls_head_in-purch_date = '20230508'."客户参考日期
ls_head_in-doc_type = 'Z000'. "销售订单类型
ls_head_in-sales_org = '1050'. "销售组织
ls_head_in-distr_chan = '00'."分销渠道
ls_head_in-division = '00'."产品组
ls_head_in-qt_valid_f = '20230508'."询报价单有效开始日期
ls_head_in-qt_valid_t = '20230531'."询报价单有效截止日期

ls_head_inx-updateflag = 'I'.
ls_head_inx-purch_no_c = 'X'."客户参考PO
ls_head_inx-purch_date = 'X'."客户参考日期
ls_head_inx-doc_type = 'X'. "销售订单类型
ls_head_inx-sales_org = 'X'. "销售组织
ls_head_inx-distr_chan = 'X'."分销渠道
ls_head_inx-division = 'X'."产品组
ls_head_inx-qt_valid_f = 'X'."询报价单有效开始日期
ls_head_inx-qt_valid_t = 'X'."询报价单有效截止日期

"合作伙伴

lt_partner_in-partn_role = 'AG'. "售达方
lt_partner_in-partn_numb = '0001003763'."售达方
APPEND lt_partner_in.
CLEAR:lt_partner_in.

ls_logic_switch-pricing = 'G'."重新定价

lt_item_in-itm_number = '000010'."销售分销行项目
lt_item_in-material = '000000000000000999'.
lt_item_in-target_qty = '10'."数量
lt_item_in-target_qu = 'H'."单位
lt_item_in-plant = '1050'."订货工厂
*    lt_item_in-tax_class1 = ."物料税分类

lt_item_inx-updateflag = 'I'.
lt_item_inx-itm_number = '000010'."销售分销行项目
lt_item_inx-material = 'X'."物料编码
lt_item_inx-target_qty = 'X'."数量
lt_item_inx-target_qu = 'X'."单位
lt_item_inx-plant = 'X'."订货工厂
*    lt_item_inx-tax_class1 = 'X'."物料税分类
APPEND: lt_item_in,lt_item_inx.
CLEAR:lt_item_in,lt_item_inx.

"计划行项目
lt_schdl_in-itm_number = '000010'."销售分销行项目
lt_schdl_in-req_qty = '10'."数量

lt_schdl_inx-updateflag = 'I'.
lt_schdl_inx-itm_number = 'X'.
lt_schdl_inx-req_qty = 'X'.
APPEND:lt_schdl_in,lt_schdl_inx.
CLEAR:lt_schdl_in,lt_schdl_inx.
"定价
lt_cond_in-itm_number = '000010'."销售分销行项目
lt_cond_in-cond_type = 'ZP00'.        "条件类型
lt_cond_in-cond_value = 10. "定价值
lt_cond_in-currency = 'CNY'.   "货币码
lt_cond_in-cond_unit = 'H'.  "定价单位
*    lt_cond_in-cond_p_unt = t_item-kpein.

lt_cond_inx-updateflag = 'I'.
lt_cond_inx-itm_number = '000010'."销售分销行项目
lt_cond_inx-cond_type = 'ZP00'.        "条件类型
lt_cond_inx-cond_value = 'X'. "定价值
lt_cond_inx-currency = 'X'.   "货币码
lt_cond_inx-cond_unit = 'X'.  "定价单位
*    lt_cond_inx-cond_p_unt = 'X'.
APPEND:lt_cond_in,lt_cond_inx.
CLEAR:lt_cond_in,lt_cond_inx.

CALL FUNCTION 'BAPI_QUOTATION_CREATEFROMDATA2'
  EXPORTING
*   SALESDOCUMENTIN          =
    quotation_header_in      = ls_head_in
    quotation_header_inx     = ls_head_inx
    logic_switch             = ls_logic_switch
  IMPORTING
    salesdocument            = lv_vbeln
  TABLES
    return                   = lt_return
    quotation_items_in       = lt_item_in
    quotation_items_inx      = lt_item_inx
    quotation_partners       = lt_partner_in
    quotation_schedules_in   = lt_schdl_in
    quotation_schedules_inx  = lt_schdl_inx
    quotation_conditions_in  = lt_cond_in
    quotation_conditions_inx = lt_cond_inx.

CLEAR:lv_check,lv_message.
LOOP AT lt_return WHERE type CA 'EAX'.
  lv_message = lv_message && lt_return-message.
  lv_check = 'E'.
ENDLOOP.

IF lv_check = 'E'.
  CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.

ELSE.
  CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
    EXPORTING
      wait = 'X'.
ENDIF.
"--------------------@斌将军--------------------

定期更文，欢迎关注

TRANSLATE with x

English

Arabic	Hebrew	Polish
Bulgarian	Hindi	Portuguese
Catalan	Hmong Daw	Romanian
Chinese Simplified	Hungarian	Russian
Chinese Traditional	Indonesian	Slovak
Czech	Italian	Slovenian
Danish	Japanese	Spanish
Dutch	Klingon	Swedish
English	Korean	Thai
Estonian	Latvian	Turkish
Finnish	Lithuanian	Ukrainian
French	Malay	Urdu
German	Maltese	Vietnamese
Greek	Norwegian	Welsh
Haitian Creole	Persian

 

TRANSLATE with

COPY THE URL BELOW

Back

EMBED THE SNIPPET BELOW IN YOUR SITE

Enable collaborative features and customize widget: Bing Webmaster Portal

Back