메뉴 건너뛰기

SAP 한국 커뮤니티

ALV 스크린에서 행삭제 버튼에 대한 질문입니다.

초보생 2007.07.19 13:19 조회 수 : 2800 추천:64

일반 ALV가 아니고 온라인 ALV를 만들고 있습니다.


 


ALV 스크린에서 행삭제 버튼을 만들고 싶은데 아는게 없다보니


 


로직을 어떻게 넣어서 구성해야 할지 잘 모르겠습니다. 


 


현재 ALV 스크린에 기본 버튼은 있는 상태구요 행삽입, 행추가, 행삭제, 행복제 버튼은


 


없습니다. 지금 필요한것은 행삭제만 필요합니다. 


 


 


저의 로직을 조금 보여 드리자면  선언부 입니다.
*---------------------------------------------------------------------------*
PROGRAM zscb_test001.


*- A L V -------------------------------------------------------------------*
TYPE-POOLS : slis.
DATA: BEGIN OF gt_exctab OCCURS 10,
        button  LIKE sy-ucomm,
      END OF gt_exctab.

DATA: fieldcat TYPE slis_t_fieldcat_alv,
      fieldcat_ln LIKE LINE OF fieldcat,
      p_f2code         LIKE sy-ucomm       VALUE  '&ETA'.

DATA: ok_code LIKE sy-ucomm,
      save_ok LIKE sy-ucomm,
      g_container TYPE scrfname VALUE 'BCALV_GRID_DEMO_0100_CONT1',
      grid1  TYPE REF TO cl_gui_alv_grid,
      g_custom_container TYPE REF TO cl_gui_custom_container,
      gt_fieldcat type lvc_t_fcat,
      pt_fieldcat type lvc_t_fcat,
      ls_fcat type lvc_s_fcat,
      gs_layout TYPE lvc_s_layo,
      g_max TYPE i VALUE 100,
      l_pos        TYPE i VALUE 0,
      lt_exclude type ui_functions,
      lt_f4 type lvc_t_f4 with header line,
      rs_selfield TYPE slis_selfield.


* screen 선언
DATA: gs_zsailing LIKE zsailing_s_001,
      gs_zcustom  LIKE zcustom_s_001.

* internal table 선언
DATA: BEGIN OF gt_outtab OCCURS 0,
        regno    LIKE zsailing_t_001-regno,     "등록번호
        io       LIKE zsailing_t_001-io,        "구분자
        buino    LIKE zcustom_t_001-buino,      "거래자 등록번호
        sdate    LIKE zsailing_t_001-sdate,     "날짜
        bname    LIKE zcustom_t_001-bname,      "거래자 상호
        bcond    LIKE zcustom_t_001-bcond,      "거래자 업태
        beven    LIKE zcustom_t_001-beven,      "거래자 종목
        buibd    LIKE zsailing_t_001-buibd,     "거래내역 text
        blans    LIKE zsailing_t_001-blans,     "공란수
        waers    LIKE zsailing_t_001-waers,     "통화키
        taxpe    LIKE zsailing_t_001-taxpe,     "항목별 세액
        suppr    LIKE zsailing_t_001-suppr,     "공급가액
        taxpr    LIKE zsailing_t_001-taxpr,     "세액
        t_cost1  LIKE zsailing_t_001-suppr,     "공급원가
        t_cost2  LIKE zsailing_t_001-suppr,     "공급가액 + 세액
        armcd    LIKE zsailing_t_001-armcd,     "신고자주류코드(도매)
        mccod    LIKE zsailing_t_001-mccod,     "주류코드(소매)
        blank    LIKE zsailing_t_001-blank,     "공란
        celltab  TYPE lvc_t_styl,
        del(1)   TYPE c,
      END OF gt_outtab.

DATA: gt_outtab2 LIKE zcustom_t_001 OCCURS 0 WITH HEADER LINE.
DATA: gt_outtab3 LIKE zsailing_t_001 OCCURS 0 WITH HEADER LINE.

* data 선언
DATA: l_flagcurr LIKE zsailing_s_001-waers.
DATA: g_num LIKE zsailing_t_001-regno.
DATA: l_num(4) TYPE c VALUE '0000'.
DATA: lt_celltab TYPE lvc_t_styl,
      l_index TYPE i.



테이블을 ALV스크린에 나타낸 펑션입니다.
*--------------------------------------------------------------------------*
form build_fieldcat.

  call function 'LVC_FIELDCATALOG_MERGE'
       exporting
            i_structure_name = 'zsc_s_001'
       changing
            ct_fieldcat      = pt_fieldcat.

  loop at pt_fieldcat into ls_fcat.
       if ls_fcat-fieldname eq 'BUIBD'
       or ls_fcat-fieldname eq 'BLANS'
       or ls_fcat-fieldname eq 'WAERS'
       or ls_fcat-fieldname eq 'ARMCD'
       or ls_fcat-fieldname eq 'MCCOD'
       or ls_fcat-fieldname eq 'BLANK'
       or ls_fcat-fieldname eq 'SUPPR'
       or ls_fcat-fieldname eq 'TAXPE'.

      ls_fcat-edit = 'X'.
      ls_fcat-checktable = '!'.        "do not check foreign keys

      modify pt_fieldcat from ls_fcat.
    endif.
  endloop.

endform.
*--------------------------------------------------------------------------*

번호 제목 글쓴이 날짜 조회 수
468 <b>[완료]</b>GROUP BY , GROUP BY ~ HAVING 구문관련 질문입니다. [3] order001 2007.11.28 3295
467 <img src=3.gif>한글깨짐현상에 대해서요. 2바이트 스트링 값이 어떻게 구성되는지도 좀 궁금합니다. [2] 오류제로 2010.02.10 3296
466 <img src=3.gif>패키지(개발클래스)를 통으로 CTS 따려면 어떻게 해야하는지요? [3] 기쁨 2011.01.25 3296
465 <img src=2.gif>Factory calendar 기준으로 두 날짜 사이의 일수 계산하기 [1] imgood 2011.01.06 3297
464 <b>[완료]</b>ALV CLASS에서 MARK 필드 선택 사용법 [3] SAMBATIME 2008.03.02 3301
463 <b>[완료]</b>SQL문의 성능 향상 질문. [16] 초보보초보 2007.02.07 3305
462 [요청]screen속성과 표준툴바에 대해.. [2] 원더걸 2008.12.17 3307
461 <img src=3.gif>ALV에서 특정필드의 중복된 row에 대하여 하나로 겹치기(화면첨부) [3] file Fjohnny 2011.02.08 3310
460 [요청]80문제 덤프 아리송한 문제 문의드립니다. [4] 제슨오 2008.03.21 3312
459 <img src=2.gif>ABAP Dump 해결 부탁드립니다. (The ABAP/4 Open SQL array insert results in duplicate database records.) [7] file 으컁컁 2010.03.24 3312
458 <b>[완료]</b><b>[완료]</b><b>[완료]</b><b>[완료]</b>[re] 메뉴-Program의 서브메뉴인 execute in background를 비활성화 방법? [6] sapjoy 2007.01.10 3313
457 [re] EXCEL(엑셀)을 출력화면으로 하여 INTERNAL TABLE의 데이터를 수정 또는 INSERT할 수 있는 방법의 질문 초보보초보 2007.01.26 3313
456 한 배치잡안에 여러개의 프로그램 실행 중 한건이 취소 될경우 자동 배치잡 생성문제 [2] 하얀콩 2007.04.05 3313
455 [요청]Write 혹은 Alv할때 소수점과 소수점 아래 영을 출력 아니 하려면 ? [1] Bizzard.Chul 2009.03.17 3315
454 <img src=3.gif>[급해요]sy-datum의 한달전 날짜를 구하는 펑션이 있나요? [5] 니가해라후라이 2009.10.22 3318
453 [요청]ALV 삭제버튼에 대해 문의드립니다. [6] ABAP짱! 2008.03.20 3319
452 [요청]스마트폼 - 페이지 번호 매기기. [2] JiruMi 2009.03.16 3321
451 [요청]Table PS9103을(를) 활성화할 수 없었습니다.. 테이블 오류관련입니다.. 무한반복 2008.06.16 3333
450 [요청]'TEXT_CONVERT_XLS_TO_SAP' 함수설명 부탁드려요. [1] 다급 2008.06.18 3337
449 <b>[완료]</b>FUNCTION 만들때 한가지 질문이요... [4] 꽃미남 2008.07.16 3338