*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
TYPES: BEGIN OF tMWSKZ,
          BUKRS LIKE  T001-BUKRS,
          MWSKZ LIKE  T007A-MWSKZ,
          KBETR LIKE  FTAXP-KBETR,
       END   OF tMWSKZ.
DATA: iMWSKZ TYPE SORTED TABLE OF tMWSKZ
             WITH UNIQUE KEY BUKRS MWSKZ
             WITH HEADER LINE.
*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
TYPES: BEGIN OF tT001,
          BUKRS LIKE  T001-BUKRS,
          LAND1 LIKE  T001-LAND1,
       END   OF tT001.

DATA: iT001  TYPE SORTED TABLE OF tT001
             WITH UNIQUE KEY BUKRS
             WITH HEADER LINE.
*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
FUNCTION ZGET_TAX_PERCENTAGE.
*"----------------------------------------------------------------------
*"*"Локальный интерфейс:
*"  IMPORTING
*"     REFERENCE(BUKRS) LIKE  T001-BUKRS
*"     REFERENCE(MWSKZ) LIKE  T007A-MWSKZ
*"  EXPORTING
*"     REFERENCE(KBETR) LIKE  FTAXP-KBETR
*"----------------------------------------------------------------------
  TABLES: T007K.
  DATA: BEGIN OF PERCENT OCCURS 2.
          INCLUDE STRUCTURE FTAXP.
  DATA: END OF PERCENT.
  CLEAR: KBETR.
  CHECK NOT MWSKZ IS INITIAL.
  READ TABLE iMWSKZ WITH KEY BUKRS = BUKRS
                             MWSKZ = MWSKZ.
  IF SY-SUBRC <> 0.
    PERFORM READ_T001 USING BUKRS.
    CLEAR: iMWSKZ.
    iMWSKZ-BUKRS = BUKRS.
    iMWSKZ-MWSKZ = MWSKZ.
*********************
* копия из J_3RFSCP *
*********************
******* 18.09.01 Без НДС
    SELECT SINGLE * FROM T007K
      WHERE LAND1 = iT001-LAND1
      AND VERSION = 'PAY'
      AND   MWSKZ = MWSKZ.
    IF SY-SUBRC NE 0.
******* 18.09.01 Без НДС
      CALL FUNCTION 'GET_TAX_PERCENTAGE'
           EXPORTING
                ALAND   = iT001-LAND1
                DATAB   = SY-DATUM
                MWSKZ   = MWSKZ
                TXJCD   = ' '
           TABLES
                T_FTAXP = PERCENT
           EXCEPTIONS
                OTHERS  = 1.
      LOOP AT PERCENT.
        IF PERCENT-KSCHL = 'MWVS'                   " ПредварительныйНДС
        OR PERCENT-KSCHL = 'MWAS'                   " Исходящий налог
        OR PERCENT-KSCHL = 'MWR1'. "RUN-corrections " Исх.НДС       (РФ)
          MOVE PERCENT-KBETR TO iMWSKZ-KBETR. " TAX_TAB-KBETR.
          EXIT.
        ENDIF.
      ENDLOOP.
    ENDIF.       "18.09.01 Без НДС
    iMWSKZ-KBETR = iMWSKZ-KBETR / 10.        " * копия из J_3RFSCP *
    INSERT TABLE iMWSKZ.
  ENDIF.
  KBETR = iMWSKZ-KBETR.
ENDFUNCTION.
*---------------------------------------------------------------------*
*       FORM READ_T001                                                *
*---------------------------------------------------------------------*
FORM READ_T001 USING BUKRS LIKE  T001-BUKRS.
  READ TABLE iT001 WITH KEY BUKRS = BUKRS.
  IF SY-SUBRC <> 0.
    CLEAR: iT001.
    iT001-BUKRS = BUKRS.
    SELECT SINGLE LAND1
      FROM T001
      INTO (iT001-LAND1)
      WHERE BUKRS = BUKRS.
    INSERT TABLE iT001.
  ENDIF.
ENDFORM.