<img src=3.gif>write 구문 문의 (셀 병합)

맨날초보 2009.12.08 08:42 조회 수 : 2302

write문으로 구현이 되어있어 수정 중 인데요.

기존 소스는

    WHEN '2'.
      WRITE : / '|  비스켓    |',
                 24 SY-VLINE, 33 SY-VLINE, 61 SY-VLINE, 100 SY-VLINE,
               / '|  개수        |',

                 24 SY-VLINE, 33 SY-VLINE, 61 SY-VLINE, 100 SY-VLINE.
    WHEN '3'.
      WRITE : / '|  스낵        |',

24 SY-VLINE, 33 SY-VLINE, 61 SY-VLINE, 100 SY-VLINE,
/ '| 개수 |',

24 SY-VLINE, 33 SY-VLINE, 61 SY-VLINE, 100 SY-VLINE.

수정본은 어떻게 해야될지 ....
표안에 표 그리기인데 어렵네요.

아시는 분???

b.jpg [File Size:14.1KB/Download:43]

이 게시물을

수정 삭제 목록

kkamui

2009.12.08 10:24

케이스 밖에 AT NEW 'XXX' .

                      WRITE :/ '|   종류 |'    " 최초일때 라이트

                  ENDAT.



케이스 탈때마다 비스켓 이나 스낵 앞에

                      WRITE :/ '|            |'
" 최초건이 아닌경우 라이트

                        갯수 앞에

                      WRITE :/ '|            |'

이렇게 하심 아마도 ...... ^^;;

댓글 수정 삭제
맨날초보

2009.12.08 17:38

타이틀(제목) 부분이라 Loop~EndLoop 안에서 돌지 않거든요.

루프안에서 돌거라면 저도 덜 고민될텐데..... ㅠㅠ

다른 방법을 찾고 있습니다.

댓글 수정 삭제
요요

2009.12.08 21:39

write 문장을 거의 쓸 필요가 없어서요. ^^;

헤더만 쓰실거라면 아래처럼하시고 부가적인 데코레이션은 원하시는 대로 하시면

되지 않을까 싶습니다. 도움 되시길...

PERFORM write_header.
*&---------------------------------------------------------------------*
*&      Form WRITE_HEADER
*&---------------------------------------------------------------------*
FORM write_header .

PERFORM uline USING 'X' 101.
PERFORM line_draw USING 'X' 60 '제      목'.
PERFORM line_draw USING ' ' 36 '데 이 터 '.

PERFORM uline USING 'X' 101.

PERFORM line_draw USING 'X' 29 space.
PERFORM line_draw USING ' ' 29 '비스켓'.
PERFORM line_draw USING ' ' 36 space.

PERFORM line_draw USING 'X' 29 space.
PERFORM line_draw USING ' ' 29 '개 수'.
PERFORM line_draw USING ' ' 36 space.

PERFORM line_draw USING 'X' 29 '종    류'.
PERFORM uline USING ' ' 69.

PERFORM line_draw USING 'X' 29 space.
PERFORM line_draw USING ' ' 29 '스넥'.
PERFORM line_draw USING ' ' 36 space.

PERFORM line_draw USING 'X' 29 space.
PERFORM line_draw USING ' ' 29 '개 수'.
PERFORM line_draw USING ' ' 36 space.

PERFORM uline USING 'X' 101.

ENDFORM.                    " WRITE_HEADER
*&---------------------------------------------------------------------*
*&      Form ULINE
*&---------------------------------------------------------------------*
FORM uline USING   lf   TYPE any
                    line TYPE any.

CASE lf.
    WHEN 'X'.    WRITE / sy-uline(line). " Line feed
    WHEN OTHERS. WRITE   sy-uline(line).
ENDCASE.

ENDFORM.                    " ULINE
*&---------------------------------------------------------------------*
*&      Form LINE_DRAW
*&---------------------------------------------------------------------*
FORM line_draw USING    new_line TYPE any
                         text_size TYPE i
                         text      TYPE any.

CASE new_line.
    WHEN 'X'.
      WRITE / sy-vline NO-GAP.
      WRITE AT (text_size) text CENTERED.

    WHEN OTHERS.
      WRITE AT (text_size) text CENTERED.
ENDCASE.

WRITE sy-vline NO-GAP.

ENDFORM.                    " LINE_DRAW

댓글 수정 삭제
맨날초보

2009.12.09 17:45

↑요요님 답변 감사합니다. 알려주신대로 수정해서 했는데도 여전히 셀병합은 안되네요. ㅠㅠ 다른 좋은 방법은 뭐 없을까요?

댓글 수정 삭제
요요

2009.12.09 20:07

위에 수정 후 레이아웃에 맞게 만든 건데요.

그냥 복사하셔서 출력해보시면 수정 후 레이아웃과 동일한 포맷으로 나옵니다.

write 하는데 좋은 방법이 어디있겠어요. ㅠㅠ

위 프로그램은 크게 라인과 텍스트를 출력하는 기능이고

세부로 시작부분이냐 아니냐 하는 4가지 기능으로 구분되는데요.

1. under-line 전체

2. under-line 부분 : 지정된 길이만큼 under-line 출력

3. text(new-line) : 새로운 라인에 텍스트 출려 ( vertical line 으로 시작 )

4. text(general) : 지정된 길이에 텍스트 출력

로 구분됩니다. 그것만 잘 이해하셔도 별 문제 없으리라 생각됩니다.

기타 decoration 에 대한 것은 맨날초보님 맘대로 하시면 되구요.

실 데이터가 들어가게 되면 지정된 position을 변수로 처리하시고

loop 를 돌아야 하는 데이터를 데이터 출력부분에 값으로 넣어주시기만

하시면 됩니다.

댓글 수정 삭제
요요

2009.12.09 20:29

가상의 데이터를 만들어서 한번 구현해 봤습니다.

도움이 되시길... ^^

TYPES : BEGIN OF ty_st,
          code TYPE c LENGTH 1,
          text TYPE char255,
        END   OF ty_st.
DATA : itst TYPE SORTED TABLE OF ty_st WITH UNIQUE KEY code.

DATA dref TYPE REF TO data.
FIELD-SYMBOLS <fs_any> TYPE ANY.

DATA : BEGIN OF itab OCCURS 0,
         stype TYPE c LENGTH 1,
         s_cnt TYPE n LENGTH 20,
       END   OF itab.

DEFINE ins.
create data dref like line of &1.
assign dref->* to <fs_any>.
<fs_any> = &2.
insert <fs_any> into table &1.
END-OF-DEFINITION.
* Set code

ins itst : 'A비스켓', 'B빙과', 'C스낵','D초콜릿'.
ins itab : 'A30', 'B20', 'C15', 'D50'.

PERFORM write_header.

PERFORM write_body.

*&---------------------------------------------------------------------*
*&      Form WRITE_HEADER
*&---------------------------------------------------------------------*
FORM write_header .

PERFORM uline USING 'X' 101.
PERFORM line_draw USING 'X' 60 '제      목'.
PERFORM line_draw USING ' ' 36 '데 이 터 '.

PERFORM uline USING 'X' 101.

ENDFORM.                    " WRITE_HEADER
*&---------------------------------------------------------------------*
*&      Form ULINE
*&---------------------------------------------------------------------*
FORM uline USING   lf   TYPE any
                    line TYPE any.

CASE lf.
    WHEN 'X'.    WRITE / sy-uline(line). " Line feed
    WHEN OTHERS. WRITE   sy-uline(line).
ENDCASE.

ENDFORM.                    " ULINE
*&---------------------------------------------------------------------*
*&      Form LINE_DRAW
*&---------------------------------------------------------------------*
FORM line_draw USING    new_line TYPE any
                         text_size TYPE i
                         text      TYPE any.

CASE new_line.
    WHEN 'X'.
      WRITE / sy-vline NO-GAP.
      WRITE AT (text_size) text CENTERED.

    WHEN OTHERS.
      WRITE AT (text_size) text CENTERED.
ENDCASE.

WRITE sy-vline NO-GAP.

ENDFORM.                    " LINE_DRAW
*&---------------------------------------------------------------------*
*&      Form WRITE_BODY
*&---------------------------------------------------------------------*
FORM write_body .

DATA l_kind_posi TYPE i.
DATA l_kind_text TYPE string.
DATA l_lines     TYPE i.
DATA lsst        TYPE ty_st.

DESCRIBE TABLE itab LINES l_lines.

l_kind_posi = l_lines / 2.

LOOP AT itab.

    IF sy-tabix = l_kind_posi.
      l_kind_text = '종 류'.
    ELSE.
      CLEAR l_kind_text.
    ENDIF.
    READ TABLE itst INTO lsst WITH KEY code = itab-stype.

    PERFORM line_draw USING 'X' 29 space.
    PERFORM line_draw USING ' ' 29 lsst-text.
    PERFORM line_draw USING ' ' 36 space.

    PERFORM line_draw USING 'X' 29 space.
    PERFORM line_draw USING ' ' 29 '개 수'.
    PERFORM line_draw USING ' ' 36 itab-s_cnt.

    AT LAST.
      PERFORM uline     USING 'X' 101.
      EXIT.
    ENDAT.

    PERFORM line_draw USING 'X' 29 l_kind_text.
    PERFORM uline     USING ' ' 69.

ENDLOOP.

ENDFORM.                    " WRITE_BODY

댓글 수정 삭제
맨날초보

2009.12.09 22:56

↑요요님 답변 감사합니다. ^^ 큰 도움 되었습니다.

자체적으로 해결했습니다.

      WRITE : / '| 전      자 | 사업자등록번호 |',
                41 SY-VLINE, 46 SY-VLINE, 74 SY-VLINE, 100 SY-VLINE,
                '|              | 발   행   분   |',
                41 SY-VLINE, 46 SY-VLINE, 74 SY-VLINE, 100 SY-VLINE,
                17 SY-ULINE, 41 SY-VLINE, 46 SY-VLINE, 74 SY-VLINE, 100 SY-VLINE,
                '| 세금계산서 | 주민등록번호   |',
                41 SY-VLINE, 46 SY-VLINE, 74 SY-VLINE, 100 SY-VLINE,
                '|              | 발   행   분   |',
                41 SY-VLINE, 46 SY-VLINE, 74 SY-VLINE, 100 SY-VLINE,
                17 SY-ULINE, 41 SY-VLINE, 46 SY-VLINE, 74 SY-VLINE, 100 SY-VLINE,
                '| 발 행   분 | 소        계   |',
                41 SY-VLINE, 46 SY-VLINE, 74 SY-VLINE, 100 SY-VLINE.

댓글 수정 삭제

번호	제목	글쓴이	날짜	조회 수
4292	<img src=2.gif>alv 에서 로컬파일 다운로드시 계정코드가 잘려서 다운되는 이유? [1]	sourire	2009.12.12	1176
4291	<img src=2.gif>GENERATE_SUBPOOL_DIR_FULL 에러덤프뜨는 해결방법 좀 부탁드립니다. [1]	99avenue	2009.12.11	4194
4290	<img src=1.gif>넷위버 ABAP 평가판을 원격 PC에서도 접속이 가능한가요??	Channy	2009.12.11	1132
4289	<img src=3.gif>[HR] PA30에 왼쪽에 나오는 조직 tree구조에 대하여... [4]	im 해성	2009.12.11	1650
4288	<img src=1.gif>혹시 PP의 마스터레시피(master recipe) 업로드하는 BAPI가 있나요?	Norton	2009.12.11	1336
4287	<img src=2.gif>여러 BAPI를 순차적으로 돌린 후 마지막에 한거번에 COMMIT 하는 방법? [3]	아밥	2009.12.10	2443
4286	<img src=3.gif>레별 5가 되려면 어케 해야 하나요...(죄송합니다 ABAP에 이런 질문) [4]	im 해성	2009.12.10	1239
4285	<img src=3.gif>alv 강제 유저 코맨드 발생시키는 방법 쫌 갈켜주세요 [7]	아밥고지를 찾아서	2009.12.10	2276
4284	<img src=3.gif>cts 후 발생한 덤프에 대한 질문입니다 [1]	아밥어렵네요	2009.12.10	1111
4283	아..삭제하고 싶다(30자 이상 입력하기도 어렵네요..) [1]	버미!	2009.04.15	1390
4282	<img src=3.gif>Hierarchy 구조에서 체크박스 이벤트 문의 [1]	버미!	2009.12.09	1245
4281	<img src=3.gif>BAPI_MATERIAL_SAVEDATA 펑션 관련 질문입니다. [3]	Norton	2009.12.09	1734
4280	<img src=2.gif>BDC를 안돌리고 해당 트랜잭션의 성공 message를 알수 있을까요? [2]	깁슨매냐	2009.12.09	1259
4279	<img src=3.gif>자재마스터 업로드 BAPI 필드 관련하여 문의드립니다. [3]	Norton	2009.12.09	1995
»	<img src=3.gif>write 구문 문의 (셀 병합) [7]	맨날초보	2009.12.08	2302
4277	<img src=1.gif>SW white-box Test 를 하는(했던) Site 가 있는지요.	MadMax	2009.12.09	1085
4276	<img src=3.gif>SQL 문에 속도가 느릴 때 TABLE INDEX 설정하는 방법 [7]	아밥	2009.12.09	1824
4275	<img src=2.gif>write 구문 문의 2 (좀더 구체적으로 그림과 소스 첨부합니다.) [2]	맨날초보	2009.12.09	948
4274	<img src=3.gif>ALV 하나의 셀안에 [아이콘+텍스트] 넣을 수 있나요? ^^;; [6]	유리선율	2009.12.09	1391
4273	<img src=2.gif>평선 IMPORT에서 Select-option값 가능한지... [4]	Bizzard.Chul	2009.12.08	1191

쓰기 태그

첫 페이지 108 109 110 111 112 113 114 115 116 117 끝 페이지

SAP 한국 커뮤니티

로그인

<img src=3.gif>write 구문 문의 (셀 병합)

댓글 7

kkamui

맨날초보

요요

맨날초보

요요

요요

맨날초보