SAP屠夫作品汇总3(13)

sap

* PLEASE DELETE THE FIRST '*' FORM THE BEGINING OF THE FOLLOWING LINES *

* IF THE ACCOUNTING MODULE IS INSTALLED IN YOUR SYSTEM: *

*FORM u102 USING bool_data TYPE gb002_015. *DATA: SUM(10) TYPE C. *

* LOOP AT BOOL_DATA-BSEG INTO BSEG * WHERE SHKZG = 'S'. * BSEG-ZUONR = 'Test'.

* MODIFY BOOL_DATA-BSEG FROM BSEG. * ADD BSEG-DMBTR TO SUM. * ENDLOOP. *

* BKPF-XBLNR = TEXT-001.

* REPLACE '&' WITH SUM INTO BKPF-XBLNR. *

*ENDFORM.

***********************************************************************

** EXIT EXAMPLES FROM PUBLIC SECTOR INDUSTRY SOLUTION ** ** PLEASE DELETE THE FIRST '*' FORM THE BEGINING OF THE FOLLOWING LINE

** TO ENABLE PUBLIC SECTOR EXAMPLE SUBSTITUTION EXITS

***********************************************************************

*INCLUDE rggbs_ps_forms.

*eject

* begin of insertion "wms092357

*&---------------------------------------------------------------------* *& Form u200

*&---------------------------------------------------------------------* * text

*----------------------------------------------------------------------*

FORM U200 USING E_RMVCT TYPE BSEG-BEWAR. "#EC CALLED