BAPI_PR_CREATE

Die Frage ist als "gelöst" markiert. Den entsprechend Beitrag findest du hier.

Getting started ... Alles für einen gelungenen Start.
2 Beiträge • Seite 1 von 1
2 Beiträge Seite 1 von 1

BAPI_PR_CREATE

Beitrag von ibo (ForumUser / 67 / 35 / 9 ) »
Hallo Experte,
ich möchte eine Bestellanforderung (BANF) mit der Leistung über diesen FuBa "BAPI_PR_CREATE" anlegen. Hat jemand von euch ein Beispiel!
Ich habe das Beispiel als Vorlage genommen aber leider konnte ich nur BANF ohne Leistung anlegen. kann mir bitte jemand helfen!

Vielen Dank im Voraus!

Code: Alles auswählen.

REPORT  Zibo_Test_PR_Create.
DATA: header TYPE bapimereqheader,
      headerx TYPE bapimereqheaderx,
      item LIKE TABLE OF bapimereqitemimp WITH HEADER LINE,
      itemx LIKE TABLE OF bapimereqitemx WITH HEADER LINE,
      account  LIKE TABLE OF bapimereqaccount WITH HEADER LINE,
      accountx LIKE TABLE OF bapimereqaccountx WITH HEADER LINE,
      service LIKE TABLE OF bapi_srv_service_line WITH HEADER LINE,
      servicex LIKE TABLE OF bapi_srv_service_linex WITH HEADER LINE,
      serviceaccount LIKE TABLE OF  bapi_srv_acc_data WITH HEADER LINE,
      serviceaccountx  LIKE TABLE OF bapi_srv_acc_datax WITH HEADER LINE,
      preq_no LIKE  bapimereqheader-preq_no,
      lt_return LIKE TABLE OF bapiret2 WITH HEADER LINE,
      wa_return LIKE bapiret2.
header-pr_type = 'NB'."
headerx-pr_type = 'X'.
CLEAR: item.
item-preq_item = '00010'.
item-pur_group = '426'.
item-short_text = 'PR'."
item-plant = '1051'."
item-matl_group = 'AS07'."
item-item_cat = '9'."
item-acctasscat = 'K'."
item-pckg_no = '0000000001'."
APPEND item.
CLEAR: itemx.
itemx-preq_item = '00010'.
itemx-preq_itemx = 'X'.
itemx-pur_group = 'X'."
itemx-short_text = 'X'."
itemx-plant = 'X'."
itemx-matl_group = 'X'."
itemx-item_cat = 'X'."
itemx-acctasscat = 'X'."
itemx-pckg_no = 'X'."
APPEND  itemx.
CLEAR: account.
account-preq_item = '00010'.
account-serial_no = '01'.
*account-quantity = '0.955'.
*account-distr_perc = '95.5'.
account-gl_account = '4205020000'.
account-costcenter = '1042000001'.
*account-co_area = 'CNOC'.
*account-profit_ctr = '9999999999'.
APPEND account.
CLEAR: accountx.
accountx-preq_item = '00010'.
accountx-serial_no = '01'.
accountx-preq_itemx = 'X'.
accountx-serial_nox = 'X'.
*accountx-quantity = 'X'.
*accountx-distr_perc = 'X'.
accountx-gl_account = 'X'.
accountx-costcenter = 'X'.
*accountx-co_area = 'X'.
*accountx-profit_ctr = 'X'.
APPEND accountx.
CLEAR: service.
service-doc_item = '00010'.
service-outline = '0000000001'.
service-srv_line = '0000000010'.
service-short_text = 'service test'.
service-quantity = '10.000'.
service-uom = 'AU'.
service-gross_price = '10.00'.
service-currency = 'CNY'.
*service-matl_group = 'AS07'."
APPEND service.
CLEAR: servicex.
servicex-doc_item = '00010'.
servicex-outline = '0000000001'.
servicex-srv_line = '0000000010'.
servicex-short_text = 'X'.
servicex-quantity = 'X'.
servicex-uom = 'X'.
servicex-gross_price = 'X'.
servicex-currency = 'X'.
*servicex-matl_group = 'X'.
APPEND servicex.
CLEAR: serviceaccount.
serviceaccount-doc_item = '00010'.
serviceaccount-outline = '0000000001'.
serviceaccount-srv_line = '0000000010'.
serviceaccount-serial_no = '01'.
serviceaccount-serial_no_item = '01'.
serviceaccount-percent = '100'.
APPEND serviceaccount.
CLEAR: serviceaccountx.
serviceaccountx-doc_item = '00010'.
serviceaccountx-outline = '0000000001'.
serviceaccountx-srv_line = '0000000010'.
serviceaccountx-serial_no = '01'.
serviceaccountx-serial_no_item = 'X'.
serviceaccountx-percent = 'X'.
APPEND serviceaccountx.
CALL FUNCTION 'BAPI_PR_CREATE'
  EXPORTING
    prheader               = header
    prheaderx              = headerx
*   TESTRUN                =
  IMPORTING
    number                 = preq_no
*   PRHEADEREXP            =
  TABLES
    return                 = lt_return
    pritem                 = item
    pritemx                = itemx
*   PRITEMEXP              =
*   PRITEMSOURCE           =
    praccount              = account
*   PRACCOUNTPROITSEGMENT  =
    praccountx             = accountx
*   PRADDRDELIVERY         =
*   PRITEMTEXT             =
*   PRHEADERTEXT           =
*   EXTENSIONIN            =
*   EXTENSIONOUT           =
*   PRVERSION              =
*   PRVERSIONX             =
*   ALLVERSIONS            =
*   PRCOMPONENTS           =
*   PRCOMPONENTSX          =
*   SERVICEOUTLINE         =
*   SERVICEOUTLINEX        =
    servicelines           = service
    servicelinesx          = servicex
*   SERVICELIMIT           =
*   SERVICELIMITX          =
*   SERVICECONTRACTLIMITS  =
*   SERVICECONTRACTLIMITSX =
    serviceaccount         = serviceaccount
    serviceaccountx        = serviceaccountx
*   SERVICELONGTEXTS       =
*   SERIALNUMBER           =
*   SERIALNUMBERX          =

READ TABLE lt_return INTO wa_return WITH KEY type = 'E'.
IF sy-subrc = 0.
  CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.
ELSE.
  CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
    EXPORTING
      wait = 'X'.
ENDIF.
LOOP AT lt_return INTO wa_return.
  WRITE: / wa_return-message, wa_return-type, wa_return-id, wa_return-number.
ENDLOOP.
´

Viele Grüße
Ibo
Zuletzt geändert von ibo am 10.03.2017 10:20, insgesamt 1-mal geändert.

gesponsert
Stellenangebote auf ABAPforum.com schalten
kostenfrei für Ausbildungsberufe und Werksstudenten


Re: BAPI_PR_CREATE

Beitrag von ibo (ForumUser / 67 / 35 / 9 ) »
Es hat sich erledigt.

Seite 1 von 1

Vergleichbare Themen

2
Antw.
3988
Views
IS-H cl_ish_patient_provisional=>create
von stony007_de » 04.10.2017 15:54 • Verfasst in Sonstige Module
2
Antw.
2970
Views
create objects problem
von Thanatos82 » 18.09.2012 10:52 • Verfasst in ABAP Objects®
0
Antw.
3114
Views
create incomming invoices by BAPI_INCOMINGINVOICE_CREATE
von kuschmich » 02.10.2014 15:36 • Verfasst in ABAP Objects®
6
Antw.
4483
Views
LOOP AT ITAB und CREATE DATA
von lilly-joe » 23.02.2015 12:15 • Verfasst in ABAP® für Anfänger
0
Antw.
1713
Views
Fehler beim Model Create
von Rita » 12.10.2005 09:30 • Verfasst in Web-Dynpro, BSP + BHTML

Über diesen Beitrag

ibo
Die Frage ist als "gelöst" markiert. Den entsprechend Beitrag findest du hier.

Unterstütze die Community und teile den Beitrag für mehr Leser und Austausch

Aktuelle Forenbeiträge

TABSTRIP oder Subscreen
vor 2 Tagen von ewx 2 / 2998
SELECT SUM CUST
vor 2 Tagen von wreichelt 4 / 3119
Banf anlegen
vor 3 Tagen von IHe 3 / 14846
FS-CD schnellstmöglich lernen
vor 4 Tagen von waltersen 3 / 7534
Banf anlegen
vor einer Woche von wreichelt 2 / 15211

Newsletter Anmeldung

Keine Beiträge verpassen! Wöchentlich versenden wir lesenwerte Beiträge aus unserer Community.
Die letzte Ausgabe findest du hier.
Details zum Versandverfahren und zu Ihren Widerrufsmöglichkeiten findest du in unserer Datenschutzerklärung.

Aktuelle Forenbeiträge

TABSTRIP oder Subscreen
vor 2 Tagen von ewx 2 / 2998
SELECT SUM CUST
vor 2 Tagen von wreichelt 4 / 3119
Banf anlegen
vor 3 Tagen von IHe 3 / 14846
FS-CD schnellstmöglich lernen
vor 4 Tagen von waltersen 3 / 7534
Banf anlegen
vor einer Woche von wreichelt 2 / 15211