when 'KDFKC'.
      if vbkd-posnr > 0 or
         svbkd-tabix = 0.
        da_mengev = 0.
        if vbap-umvkz > 0.
          if vbap-kzfme is initial.
            da_mengev = xvbapf-faklmeng * vbap-umvkn / vbap-umvkz.
          else.
            da_mengev = xvbapf-faklmengv.
          endif.
        endif.
        if xvbup-fksta ca 'C' or
           xvbup-fksaa ca 'C' or
           ( da_mengev ge vbap-lsmeng and
             da_mengev gt 0 and
             vbap-fkrel ca con_fkrel_liefer ).
          screen-input = 0.
        endif.
      else.
        if xvbuk-fkstk ca 'C' and
           xvbuk-fksak ca 'C' or
           xvbuk-fkstk ca ' ' and
           xvbuk-fksak ca 'C' or
           xvbuk-fkstk ca 'C' and
           xvbuk-fksak ca ' '.
          screen-input = 0.
        endif.
      endif.