DATA: BEGIN OF itab_data OCCURS 10.
        INCLUDE STRUCTURE fiaa_salvtab_razuga.
DATA:answ_gje LIKE anlcv-answ_gje,
     DATA: END OF itab_data.

DATA: BEGIN OF x,
        answ       LIKE anlcv-answ_gje.
      END OF x.
SELECTION-SCREEN BEGIN OF BLOCK bl1                       
                 WITH FRAME                               
                 TITLE text-bl1.                           
SELECT-OPTIONS:
                        so_answ  FOR x-answ NO-DISPLAY.
SELECTION-SCREEN END   OF BLOCK bl1. 

GET anlcv.
        x-answ  = anlcv-answ_gje.
  CHECK x-answ   in SO_ANSW.
   PERFORM sort_check.
  CLEAR itab_data.
  PERFORM sort_felder_vorbereiten.
  MOVE-CORRESPONDING anlb TO itab_data.                   
  MOVE-CORRESPONDING anlav TO itab_data.
  itab_data-btr1     = x-answ.
  itab_data-waers = sav_waer1.
  itab_data-flg_pick_up = 'X'.
  itab_data-range = 1.
  itab_data-hlp_level = con_srtst.
  IF summb ne space.
    PERFORM hashsum_collection USING itab_data.
  ELSE.
    APPEND itab_data.
  ENDIF.

+вывод btr1

FORM SAVE_TRANSACTION USING VALUE(V_LISTTYP).

data: lt_orgpost type t_post.
data: ld_HKTYP(10) TYPE C,
      ld_HKOBJ(24) TYPE C.


  CHECK ANEPV-BWASL IN R_SEL_BWASL.
  CLEAR POST.

  MOVE: ANEK-BUDAT  TO POST-BUDAT,
        ANEK-XBLNR  TO POST-XBLNR,
        ANEK-SGTXT  TO POST-SGTXT,
        ANEK-MENGE  TO POST-MENGE,
        ANEK-MEINS  TO POST-MEINS,
        ANEK-XANTEI TO POST-XANTEI.
  MOVE: ANEPV-BUKRS TO POST-BUKRS,
        ANEPV-GJAHR TO POST-GJAHR,
        ANEPV-BELNR TO POST-BELNR,
        ANEPV-BWASL TO POST-BWASL,
        ANEPV-BZDAT TO POST-BZDAT,
        ANLCV-ANSW_GJE TO POST-ANSW_GJE.
  CASE V_LISTTYP.
    WHEN 'ZUG'.
       POST-BTR1 = ANEPV-ANBTR.
       POST-BTR2 = ANLCV-ANSW_GJE.
       POST-BTR3 = ANEPV-SAFAB.
   
  if not pa_orgep is initial.
    PERFORM HERKUNFT_ERMITTELN USING    ANEK ANEPV
                             CHANGING ld_HKTYP ld_HKOBJ "POST-PLAUS
                                      POST-BBS_TYP.
       concatenate ld_hktyp ld_hkobj
       into post-origin separated by space.

*      IF  POST-LNSAN IS INITIAL.
       if anepv-lnsan is initial.
         PERFORM ORGINALPOSTEN_AUSGEBEN
                                        using     ANEK ANEPV
                                        changing  lt_orgpost.
       ENDIF.
  endif.

  CNT_EPOST = CNT_EPOST + 1.
ADD-CORRESPONDING POST TO GANL.

  APPEND POST.
  append lines of lt_orgpost to post.
  clear lt_orgpost[].
ENDFORM.