Bapi_po_change --> WBS Element

Colapsar
X
 
  • Tiempo
  • Mostrar
Limpiar Todo
nuevos mensajes
  • makarthy
    Junior Member
    • dic
    • 11

    #1

    Bapi_po_change --> WBS Element

    Hola a todos,

    estamos intentando añadir líneas de un pedido de compra con la bapi.

    Nos muestra el error:

    KI 235 : La cta 60000000 requiere una imputación relevante para la contabilidad de costes.

    Importante: El pep lo tenemos informado.

    Os paso el código para ver si os ayuda

    * POHEADER
    i_hdr-PO_NUMBER = ld_ebeln.
    i_hdrx-PO_NUMBER = 'X'.
    append i_hdr.
    append i_hdrx.

    * POCOND
    POCOND-ITM_NUMBER = t_temp-po_item.
    POCONDX-ITM_NUMBER = t_temp-po_item.
    POCOND-COND_TYPE = t_temp-COND_TYPE.
    POCONDX-COND_TYPE = 'X'.
    POCOND-COND_VALUE = t_temp-COND_VALUE.
    POCONDX-COND_VALUE = 'X'.
    POCOND-CURRENCY = t_temp-CURRENCY.
    POCONDX-CURRENCY = 'X'.
    POCOND-COND_P_UNT = t_temp-COND_P_UNT.
    POCONDX-COND_P_UNT = 'X'.
    append pocond.
    append pocondx.

    * POITEM
    POITEM-po_item = t_temp-po_item.
    POITEMX-po_item = t_temp-po_item.
    POITEMX-po_itemx = 'X'.
    POITEM-PLANT = ld_werks.
    POITEMX-PLANT = 'X'.
    POITEM-MATERIAL = t_temp-MATERIAL.
    POITEMX-MATERIAL = 'X'.
    POITEM-QUANTITY = t_temp-QUANTITY.
    POITEMX-QUANTITY = 'X'.
    POITEM-PO_UNIT = t_temp-PO_UNIT.
    POITEMX-PO_UNIT = 'X'.
    POITEM-NET_PRICE = t_temp-COND_VALUE.
    POITEMX-NET_PRICE = 'X'.
    POITEM-ACCTASSCAT = t_temp-ACCTASSCAT.
    POITEMX-ACCTASSCAT = 'X'.
    append poitem.
    append poitemx.

    * POSCHEDULE
    POCHDL-PO_ITEM = t_temp-po_item.
    POCHDLX-PO_ITEM = t_temp-po_item.
    POCHDLX-PO_ITEMX = 'X'.
    POCHDL-QUANTITY = t_temp-quantity.
    POCHDLX-QUANTITY = 'X'.
    POCHDL-DELIVERY_DATE = t_temp-DELIVERY_DATE.
    POCHDLX-DELIVERY_DATE = 'X'.
    append POCHDL.
    append POCHDLX.

    * Parameter: POACCOUNT

    POACOUNT-PO_ITEM = t_temp-po_item.
    POACOUNTX-PO_ITEM = t_temp-po_item.
    POACOUNTX-PO_ITEMX = 'X'.
    POACOUNT-SERIAL_NO = '02'.
    POACOUNTX-SERIAL_NO = '02'.
    POACOUNT-QUANTITY = t_temp-quantity.
    POACOUNTX-QUANTITY = 'X'.
    * POACOUNT-GL_ACCOUNT = t_temp-GL_ACCOUNT.
    * POACOUNTX-GL_ACCOUNT = 'X'.
    * POACOUNT-CO_AREA = t_temp-CO_AREA.
    * POACOUNTX-CO_AREA = 'X'.
    POACOUNT-WBS_ELEMENT = t_temp-WBS_ELEMENT.
    POACOUNTX-WBS_ELEMENT = 'X'.
    * POACOUNT-FUNC_AREA = t_temp-FUNC_AREA.
    * POACOUNTX-FUNC_AREA = 'X'.
    * POACOUNT-FUNC_AREA_LONG = t_temp-FUNC_AREA.
    append POACOUNT.
    append POACOUNTX.


    endloop.
    * Para añadir items
    * i_hdrx-updateflag = 'U'.

    CALL FUNCTION 'BAPI_PO_CHANGE'
    EXPORTING
    PURCHASEORDER = ld_ebeln
    POHEADER = i_hdr
    POHEADERX = i_hdrx
    NO_PRICE_FROM_PO = 'X'
    TABLES
    return = lt_return
    POITEM = POITEM
    POITEMX = POITEMX
    POACCOUNT = POACOUNT
    POACCOUNTX = POACOUNTX
    POSCHEDULE = POCHDL
    POSCHEDULEX = POCHDLX
    POCOND = POCOND
    POCONDX = POCONDX.

    Muchas gracias
Trabajando...