Bapi Va01

[zonanet]

Saludos a todos!!


Estoy tratando con la bapi BAPI_SALESORDER_CREATEFROMDAT1 de la tx. VA01 y todo bien, sólo que el campo importe me lo multiplica por 1000 (ejem, el valor es 50 y en la va02 me da 50000).

Alguien sabe algo a respecto o le ha sucedido????

Gracias por el aporte.

[zonanet]

Se solucionó, todo es cuestión de una nota para la bapi.

Saludos a todos.

[Jonathan Barrio Rodriguez]

¿Podrías darnos infor de la solución? o el número de la nota?

Saludos

[zonanet]

¿Podrías darnos infor de la solución? o el número de la nota?

Saludos

La nota es: 195142

Se tiene que dividir entre 10 por las razones que se explican en la nota.


Saludos.

[Jonathan Barrio Rodriguez]

OK, muchas gracias.

[Vicente_Arellano]

Por favor podrias enviarme el codigo de la funcionalidad de esta BAPI.

[Jonathan Barrio Rodriguez]

El código ahora mismo no lo tengo.
A ver si te puedo conseguir algún ejemplo por ahí.

Lo que sí te voy a recomendar es que utilices Createfromdata2. Funciona mejor y te quitará quebraderos de cabeza cómo por ejemplo a la hora de modificar los Interlocutores Comerciales

[Jonathan Barrio Rodriguez]

Ejemplo...

SPAN {font-family: "Courier New";font-size: 10pt;color: #000000;background: #FFFFFF;}.L0S32 {color: #3399FF;}.L0S33 {color: #4DA619;}.L0S52 {color: #0000FF;}.L0S55 {color: #800080;}.L0S70 {color: #808080;}
types: begin of ty_item,
POSNR type vbap-POSNR,
matnr type vbap-matnr,
KWMENG type vbap-KWMENG,
VRKME type vbap-VRKME,
WERKS type vbap-WERKS,
NETPR type vbap-NETPR,
WAERK type vbap-WAERK,
mark type char1,
end of ty_item.

data: w_bapiaddr1 type bapiaddr1,
w_bapisdhd1 type bapisdhd1,
w_bapiret2 type bapiret2,
w_bapisditm type bapisditm,
w_bapisditmx type bapisditmx,
w_bapicond type bapicond,
w_bapicondx type bapicondx,
w_bapiparnr type bapiparnr,
w_reltype type bapireltype-reltype,
w_bapisdls type bapisdls,
w_bapischdl type bapischdl,
w_item type ty_item,

i_bapiaddr1 type STANDARD TABLE OF bapiaddr1,
i_bapiret2 type STANDARD TABLE OF bapiret2,
i_bapisditm type STANDARD TABLE OF bapisditm,
i_bapisditmx type STANDARD TABLE OF bapisditmx,
i_bapicond type STANDARD TABLE OF bapicond,
i_bapicondx type STANDARD TABLE OF bapicondx,
i_bapischdl type STANDARD TABLE OF bapischdl,
i_bapiparnr type STANDARD TABLE OF bapiparnr,
i_item type STANDARD TABLE OF ty_item,

v_posnr TYPE posnr,
v_vbeln type vbak-vbeln,
v_auart type vbak-auart,
v_vkorg type vbak-vkorg,
v_vtweg type vbak-vtweg,
v_spart type vbak-spart,
v_vsbed type vbak-vsbed,
v_vsart type vbkd-vsart,
V_KUNNR1 type kna1-kunnr,
V_KUNNR2 type kna1-kunnr,
V_WAERK type vbak-waerk,
V_vdatu type vbak-vdatu.

SPAN {font-family: "Courier New";font-size: 10pt;color: #000000;background: #FFFFFF;}.L0S52 {color: #0000FF;}.L0S55 {color: #800080;}
REFRESH: i_bapiret2,
i_bapisditm,
i_bapisditmx,
i_bapicond,
i_bapicondx,
i_bapiparnr,
i_bapischdl.

CLEAR: w_bapiret2,
w_bapisditm,
w_bapisditmx,
w_bapicond,
w_bapicondx,
w_bapiparnr,
w_bapisdls,
w_bapischdl.


SPAN {font-family: "Courier New";font-size: 10pt;color: #000000;background: #FFFFFF;}.L0S31 {font-style: italic;color: #808080;}.L0S52 {color: #0000FF;}.L0S55 {color: #800080;}.L0S70 {color: #808080;} CLEAR w_bapisdhd1.

w_bapisdhd1-doc_type = v_auart.
w_bapisdhd1-sales_org = v_vkorg.
w_bapisdhd1-distr_chan = v_vtweg.
w_bapisdhd1-division = v_spart.
w_bapisdhd1-ship_cond = v_vsbed.
w_bapisdhd1-ship_type = v_vsart.
w_bapisdhd1-REQ_DATE_H = v_vdatu.

* MOVE: v_req_date TO w_bapisdhd1-req_date_h,
* v_pri_date TO w_bapisdhd1-price_date,
* v_fro_date TO w_bapisdhd1-ct_valid_f,
* v_to_date TO w_bapisdhd1-ct_valid_t.

SPAN {font-family: "Courier New";font-size: 10pt;color: #000000;background: #FFFFFF;}.L0S31 {font-style: italic;color: #808080;}* Populate Sold To
*---------------------------------------------------------------
w_bapiparnr-partn_role = c_part_fn_ag.
w_bapiparnr-partn_numb = V_KUNNR1.

select single adrnr
from kna1
into w_bapiparnr-addr_link
where kunnr = V_KUNNR1.

if sy-subrc eq 0.

APPEND w_bapiparnr TO i_bapiparnr.

w_bapiaddr1-addr_no = w_bapiparnr-addr_link.
APPEND w_bapiaddr1 TO i_bapiaddr1.

CLEAR: w_bapiparnr, w_bapiaddr1.

endif.


SPAN {font-family: "Courier New";font-size: 10pt;color: #000000;background: #FFFFFF;}.L0S31 {font-style: italic;color: #808080;}* Populate Ship to
*---------------------------------------------------------------
w_bapiparnr-partn_role = c_part_fn_we.
w_bapiparnr-partn_numb = V_KUNNR2.

select single adrnr
from kna1
into w_bapiparnr-addr_link
where kunnr = V_KUNNR2.

if sy-subrc eq 0.

APPEND w_bapiparnr TO i_bapiparnr.

w_bapiaddr1-addr_no = w_bapiparnr-addr_link.
APPEND w_bapiaddr1 TO i_bapiaddr1.

CLEAR: w_bapiparnr, w_bapiaddr1.

endif.

SPAN {font-family: "Courier New";font-size: 10pt;color: #000000;background: #FFFFFF;}.L0S31 {font-style: italic;color: #808080;}* Build item table
LOOP AT i_item INTO w_item.

ADD 10 TO v_posnr.

move v_posnr to w_item-posnr.

SPAN {font-family: "Courier New";font-size: 10pt;color: #000000;background: #FFFFFF;}.L0S31 {font-style: italic;color: #808080;}.L0S32 {color: #3399FF;}.L0S52 {color: #0000FF;}.L0S55 {color: #800080;}.L0S70 {color: #808080;} CLEAR: w_bapisditm,
w_bapischdl.

w_bapisditm-itm_number = w_item-posnr.
w_bapisditm-material = w_item-matnr.
w_bapisditm-plant = w_item-werks.
w_bapisditm-target_qty = w_item-KWMENG.
* w_bapisditm-target_qu = w_item-VRKME.

APPEND w_bapisditm TO i_bapisditm.

MOVE: w_item-posnr TO w_bapischdl-itm_number,
sy-datum TO w_bapischdl-req_date,
w_item-KWMENG TO w_bapischdl-req_qty.

APPEND w_bapischdl TO i_bapischdl.


ENDLOOP.


SPAN {font-family: "Courier New";font-size: 10pt;color: #000000;background: #FFFFFF;}.L0S31 {font-style: italic;color: #808080;}* Create Sales Order
CALL FUNCTION 'BAPI_SALESORDER_CREATEFROMDAT2'
EXPORTING
order_header_in = w_bapisdhd1
binary_relationshiptype = w_reltype
logic_switch = w_bapisdls
* TESTRUN = c_X
IMPORTING
salesdocument = v_vbeln
TABLES
return = i_bapiret2
order_items_in = i_bapisditm
order_partners = i_bapiparnr
order_schedules_in = i_bapischdl
order_conditions_in = i_bapicond.