when 'KUNNR'.
      if kuagv-kunnr is initial and
         screen-name = 'KUAGV-KUNNR' and
         screen-active = 1.
        set cursor field 'KUAGV-KUNNR'.
      endif.
      check screen-input = 1.
      if not kuagv-kunnr is initial.
        screen-input = 1.
        describe table gruko lines sy-tfill.
        if not call_dialog is initial or
           not vbak-aufnr is initial or
           not vbak-qmnum is initial or
           not vbak-vbeln_grp is initial or
           not sy-tfill is initial or
           t180-trtyp = chara.
          screen-input = 0.
        endif.
        loop at xvbfa
          where ( vbelv eq vbak-vbeln or vbeln eq vbak-vbeln )
            and ( plmin ca '+-' or vbtyp_n ca vbtyp_bestell ).
          screen-input = 0.
          exit.
        endloop.
      endif.
      perform tpaer_select using tvak-pargr
                                 'AG'
                                 space
                                 sy-subrc.
      if tpaer-papfl is initial.
        screen-input = 0.
      endif.
*     field not changeable if successor was created via DP90
      if not kuagv-kunnr is initial and screen-input = 1.
        if gsv_screen_input ne 2.
*         screen input has already been determined
          screen-input = gsv_screen_input.
        else.
          loop at xvbap.
            check ( ( xvbap-vbelv eq xvbap-vbeln and
                      xvbap-posnv eq xvbap-posnr and
                      xvbap-kzvbr eq kzvbr_e )
               or not xvbap-ps_psp_pnr is initial ).
*           check document flow
            loop at xvbfa
              where vbelv eq xvbap-vbeln
                and posnv eq xvbap-posnr
                and stufe = '00'
                and vbtyp_n ca vbtyp_anfo.
*             document might have been created via DP90
*             read XVBKD to determine which transaction
              read table xvbkd with key posnr = xvbap-posnr
                   binary search.
              if sy-subrc eq 0 and not xvbkd-ffprf is initial.
*               might be DP90
                select single * from vbap into da_vbap
                       where vbeln = xvbfa-vbeln
                       and   posnr = xvbfa-posnn.
                if da_vbap-vkgru eq vkgru_dyn_posten.
                  screen-input = 0.
                  exit.
                endif.
              else.
*               could be VA90
                select single * from vbak into da_vbak
                       where vbeln eq xvbfa-vbeln.
                if da_vbak-vbklt eq vbklt_fakt_anf.
                  screen-input = 0.
                  exit.
                endif.
              endif.
            endloop.
            if screen-input ne 1.
              exit.
            endif.
          endloop.
          gsv_screen_input = screen-input.
        endif.
      endif.

        loop at xvbfa
          where ( vbelv eq vbak-vbeln or vbeln eq vbak-vbeln )
            and ( plmin ca '+-' or vbtyp_n ca vbtyp_bestell ).
          screen-input = 0.
          exit.
        endloop.