Hola que tal, Estoy trabajando en un requerimiento para una empresa y debo crear un pedido de traslado utilizando esta bapi. Algún ejemplo, tutorial recomendación de como utilizar esta bapi?
Agradezco su ayuda.
Aquí, código:
*
* BAPI TO Upload Inventory Data
*
* GMCODE Table T158G - 01 - MB01 - Goods Receipts for Purchase Order
* 02 - MB31 - Goods Receipts for Prod Order
* 03 - MB1A - Goods Issue
* 04 - MB1B - Transfer Posting
* 05 - MB1C - Enter Other Goods Receipt
* 06 - MB11
*
* Domain: KZBEW - Movement Indicator
* Goods movement w/o reference
* B - Goods movement for purchase order
* F - Goods movement for production order
* L - Goods movement for delivery note
* K - Goods movement for kanban requirement (WM - internal only)
* O - Subsequent adjustment of "material-provided" consumption
* W - Subsequent adjustment of proportion/product unit material
*
report zbapi_goodsmovement.
parameters: p-file like rlgrap-filename default
'c:\sapdata\TEST.txt'.
parameters: e-file like rlgrap-filename default
'c:\sapdata\gdsmvterror.txt'.
parameters: xpost like sy-datum default sy-datum.
data: begin of gmhead.
include structure bapi2017_gm_head_01.
data: end of gmhead.
data: begin of gmcode.
include structure bapi2017_gm_code.
data: end of gmcode.
data: begin of mthead.
include structure bapi2017_gm_head_ret.
data: end of mthead.
data: begin of itab occurs 100.
include structure bapi2017_gm_item_create.
data: end of itab.
data: begin of errmsg occurs 10.
include structure bapiret2.
data: end of errmsg.
data: wmenge like iseg-menge,
errflag.
data: begin of pcitab occurs 100,
ext_doc(10), "External Document Number
mvt_type(3), "Movement Type
doc_date(8), "Document Date
post_date(8), "Posting Date
plant(4), "Plant
material(18), "Material Number
qty(13), "Quantity
recv_loc(4), "Receiving Location
issue_loc(4), "Issuing Location
pur_doc(10), "Purchase Document No
po_item(3), "Purchase Document Item No
del_no(10), "Delivery Purchase Order Number
del_item(3), "Delivery Item
prod_doc(10), "Production Document No
scrap_reason(10), "Scrap Reason
upd_sta(1), "Update Status
end of pcitab.
call function 'WS_UPLOAD'
exporting
filename = p-file
filetype = 'DAT'
* IMPORTING
* FILELENGTH =
tables
data_tab = pcitab
* EXCEPTIONS
* FILE_OPEN_ERROR = 1
* FILE_READ_ERROR = 2
* NO_BATCH = 3
* GUI_REFUSE_FILETRANSFER = 4
* INVALID_TYPE = 5
* OTHERS = 6
.
if sy-subrc <> 0.
message id sy-msgid type sy-msgty number sy-msgno
with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
exit.
endif.
gmhead-pstng_date = sy-datum.
gmhead-doc_date = sy-datum.
gmhead-pr_uname = sy-uname.
gmcode-gm_code = '01'. "01 - MB01 - Goods Receipts for Purchase Order
loop at pcitab.
itab-move_type = pcitab-mvt_type.
itab-mvt_ind = 'B'.
itab-plant = pcitab-plant.
itab-material = pcitab-material.
itab-entry_qnt = pcitab-qty.
itab-move_stloc = pcitab-recv_loc.
itab-stge_loc = pcitab-issue_loc.
itab-po_number = pcitab-pur_doc.
itab-po_item = pcitab-po_item.
concatenate pcitab-del_no pcitab-del_item into itab-item_text.
itab-move_reas = pcitab-scrap_reason.
append itab.
endloop.
loop at itab.
write:/ itab-material, itab-plant, itab-stge_loc,
itab-move_type, itab-entry_qnt, itab-entry_uom,
itab-entry_uom_iso, itab-po_number, itab-po_item,
pcitab-ext_doc.
endloop.
call function 'BAPI_GOODSMVT_CREATE'
exporting
goodsmvt_header = gmhead
goodsmvt_code = gmcode
* TESTRUN = ' '
* IMPORTING
goodsmvt_headret = mthead
* MATERIALDOCUMENT =
* MATDOCUMENTYEAR =
tables
goodsmvt_item = itab
* GOODSMVT_SERIALNUMBER =
return = errmsg
.
clear errflag.
loop at errmsg.
if errmsg-type eq 'E'.
write:/'Error in function', errmsg-message.
errflag = 'X'.
else.
write:/ errmsg-message.
endif.
endloop.
if errflag is initial.
commit work and wait.
if sy-subrc ne 0.
write:/ 'Error in updating'.
exit.
else.
write:/ mthead-mat_doc, mthead-doc_year.
perform upd_sta.
endif.
endif.
*---------------------------------------------------------------------*
* FORM UPD_STA *
*---------------------------------------------------------------------*
* ........ *
*---------------------------------------------------------------------*
form upd_sta.
loop at pcitab.
pcitab-upd_sta = 'X'.
modify pcitab.
endloop.
call function 'WS_DOWNLOAD'
exporting
filename = p-file
filetype = 'DAT'
* IMPORTING
* FILELENGTH =
tables
data_tab = pcitab
* EXCEPTIONS
* FILE_OPEN_ERROR = 1
* FILE_READ_ERROR = 2
* NO_BATCH = 3
* GUI_REFUSE_FILETRANSFER = 4
* INVALID_TYPE = 5
* OTHERS = 6
.
endform.
*--- End of Program
Fuente: h_tp://www.erpgreat.com/abap/bapi-goodsmvt-create-to-post-goods-movement.htm
2 Me gusta
Esa es otra bapi, Con esta tambien se pueden crear pedidos de TRASLADO?
Hasta donde he leído, si te puede servir
Gracias, Voy a implementarlo para ver si me sirve.
Buenas @Jeison_Galind,
te pongo un pequeño fragmento de código, a ver si te sirve:
CALL FUNCTION 'BAPI_GOODSMVT_CREATE'
EXPORTING
goodsmvt_header = ls_goodsmvt_header
goodsmvt_code = ps_gm_code
testrun = p_test
IMPORTING
materialdocument = lv_materialdoc
matdocumentyear = lv_matdoctyear
TABLES
goodsmvt_item = lt_goodsmvt_item
return = lt_return.
Subrutinas utilizadas:
*& Form FILL_GOODSMVT_HEADER
*&---------------------------------------------------------------------*
FORM fill_goodsmvt_header USING p_datum
CHANGING ps_goodsmvt_header TYPE bapi2017_gm_head_01.
* Fecha de contabilización
ps_goodsmvt_header-pstng_date = p_datum.
* Fecha de documento
ps_goodsmvt_header-doc_date = p_datum.
* Descripción
ps_goodsmvt_header-header_txt = TEXT-t01.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form FILL_GOODSMVT_ITEMS
*&---------------------------------------------------------------------*
FORM fill_goodsmvt_items TABLES pt_goodsmvt_item STRUCTURE bapi2017_gm_item_create
USING pi_lote TYPE charg_d
pi_lote_previo TYPE charg_d
p_datum
ps_gm_code TYPE bapi2017_gm_code
ps_lote TYPE z_s_lote.
DATA:
lv_meins TYPE mara-meins,
lv_datum TYPE datum.
* Obtenemos unidad matnr
SELECT SINGLE meins FROM mara INTO lv_meins WHERE matnr = ps_lote-matnr.
CLEAR pt_goodsmvt_item.
** Material
pt_goodsmvt_item-material = ps_lote-matnr.
** Planta
pt_goodsmvt_item-plant = ps_lote-werks.
** Almacén
pt_goodsmvt_item-stge_loc = ps_lote-lgort.
** Lote
* lv_datum = p_datum - 1.
* pt_goodsmvt_item-batch(6) = lv_datum+2(6).
pt_goodsmvt_item-batch = pi_lote_previo.
pt_goodsmvt_item-batch(6) = p_datum+2(6).
** Clase valoración
* pt_goodsmvt_item-val_type = pt_goodsmvt_item-batch.
SELECT SINGLE bwtar FROM mcha
INTO pt_goodsmvt_item-val_type
WHERE charg EQ pt_goodsmvt_item-batch
AND matnr EQ pt_goodsmvt_item-material
AND werks EQ pt_goodsmvt_item-plant.
** Lote destino material a traspasar
pt_goodsmvt_item-move_batch = pi_lote.
** Clase de valoracion destino
* pt_goodsmvt_item-move_val_type = pt_goodsmvt_item-move_batch.
SELECT SINGLE bwtar FROM mcha
INTO pt_goodsmvt_item-move_val_type
WHERE charg EQ pt_goodsmvt_item-move_batch
AND matnr EQ pt_goodsmvt_item-material
AND werks EQ pt_goodsmvt_item-plant.
** move type
pt_goodsmvt_item-move_type = '310'.
** Cantidad
pt_goodsmvt_item-entry_qnt = ps_lote-clabs.
** Unidad de medida
pt_goodsmvt_item-entry_uom = lv_meins.
** Cod. material
pt_goodsmvt_item-move_mat = ps_lote-matnr.
** Cod. centro
pt_goodsmvt_item-move_plant = ps_lote-werks.
** Cod. almacen
pt_goodsmvt_item-move_stloc = ps_lote-lgort.
APPEND pt_goodsmvt_item.
ENDFORM.
Un saludo!
Buenas estimado @Jeison_Galind,
Tal y como te comentan los compañeros, puede utilizar la BAPI: BAPI_GOODSMVT_CREATE, es un muy sencilla en algunos casos y se pone compleja en otros, simplemente es como cualquier BAPI, pero tienes buenos ejemplos, si tienes dudas puedes ponerla por aquí.
Saludos.
1 me gusta
Este tema se cerró automáticamente 91 días después del último post. No se permiten nuevas respuestas.