MastersForum

Quellcode

PROCESS BEFORE OUTPUT.

MODULE status_0100.
CALL SUBSCREEN: SUB1 INCLUDING sy-repid '0110',
                SUB2 INCLUDING sy-repid '0120'.


PROCESS AFTER INPUT.

MODULE cancel AT EXIT-COMMAND.


CALL SUBSCREEN: SUB1,
                SUB2.

MODULE user_command.

Quellcode

REPORT ...

DATA: aufart TYPE bapisdhd1-doc_type,
      vkorg TYPE bapisdhd1-sales_org,
      vkweg TYPE bapisdhd1-distr_chan,
      sparte TYPE bapisdhd1-division,
      material TYPE bapisditm-material,
      menge TYPE bapischdl-req_qty.

DATA field(10) TYPE c.

" Interne Tabelle anlegen - Typ definieren
DATA: it_order_items_in TYPE STANDARD TABLE OF bapisditm
        WITH DEFAULT KEY,
      it_order_schedules_in TYPE STANDARD TABLE OF bapischdl
        WITH DEFAULT KEY,
      it_return TYPE STANDARD TABLE OF bapiret2
        WITH DEFAULT KEY,
      it_order_partners TYPE STANDARD TABLE OF bapiparnr
        WITH DEFAULT KEY.

" Definition der Zeilen vom Typ der Tabelle von bapisdhd1
DATA: wa_order_header LIKE bapisdhd1,
      wa_order_partners LIKE bapiparnr,
      wa_order_items_in LIKE bapisditm,
      wa_order_schedules_in LIKE bapischdl,
      wa_return LIKE bapiret2,
      salesdocument LIKE bapivbeln-vbeln,
      IS_OK TYPE C.

CONTROLS TABSTR TYPE TABSTRIP.

DATA: ok_code TYPE syst-ucomm,
      save_ok LIKE ok_code.

"DATA number TYPE sy-dynnr. "blättern SAP APPLIC

TABSTR-activetab = 'TAB1'.
"number = '0120'. "blättern SAP APPLIC

Call SCREEN 100.


" Zuweisung
wa_order_header-doc_type = aufart.
wa_order_header-sales_org = vkorg.
wa_order_header-distr_chan = vkweg.
wa_order_header-division = sparte.
wa_order_header-purch_no_c = 'AUS33'.
wa_order_header-purch_date = sy-datum.

wa_order_partners-partn_role = 'AG'.
wa_order_partners-partn_numb = '0000001400'.

wa_order_items_in-material = 'R-F100'.
APPEND wa_order_items_in TO it_order_items_in.

wa_order_schedules_in-req_qty = '1'.
wa_order_schedules_in-ITM_NUMBER = '000010'.


APPEND wa_order_schedules_in TO it_order_schedules_in.

"definierte Zeile in interne Tabelle schreiben
APPEND wa_order_partners TO it_order_partners.




MODULE status_0100 OUTPUT.
  SET PF-STATUS 'SCREEN_100'.
ENDMODULE.

MODULE cancel INPUT.
  LEAVE PROGRAM.
ENDMODULE.

MODULE user_command INPUT.
 save_ok = ok_code.
  CLEAR ok_code.

CASE save_ok.
  WHEN 'B_TEST'.
    field = 'test'.
   "WHEN 'ADD'. " siehe ADD weiter unten
     "
  WHEN OTHERS.
    field = save_ok.
ENDCASE.

  
ENDMODULE.

MODULE USER_COMMAND_0120.
   save_ok = ok_code.
  CLEAR ok_code.


" Bestätigungs-Button - ruft BAPI_SALESORDER auf, um Auftrag anzulegen
  IF save_ok = 'TEST'.
field = 'test'.
      "Aufruf von bapi salesorder
     CALL FUNCTION 'BAPI_SALESORDER_CREATEFROMDAT2'
       EXPORTING
         order_header_in               = wa_order_header
      IMPORTING
         salesdocument                 = salesdocument
       TABLES
         return                        = it_return
         order_items_in                = it_order_items_in
         order_partners                = it_order_partners
         order_schedules_in            = it_order_schedules_in.

     IS_OK = 'S'.

     LOOP AT it_return into wa_return.

       IF wa_return-TYPE <> 'S'.
         Write: wa_return-message.
         IS_OK = 'N'.
       ENDIF.

     ENDLOOP.

     IF IS_OK eq 'S'.
       WRITE: 'Der Verkaufsbeleg wird unter ', salesdocument, ' abgelegt' .
       COMMIT WORK AND WAIT.
     ENDIF.
ENDIF.

ENDMODULE.