For every line item, I want to write horizontal line.

Question

Hello experts,
In the main window of my sapscript form, I am displaying multiple line items. What I want to do is write a horizontal line so what I did is this:
/: SIZE WIDTH '75.0' CH HEIGHT '0' LN
/: BOX FRAME 10 TW
/: POSITION YORIGIN +1 LN
I was having a problem yesterday as to why my &ULINE& is always shorter than the width of my MAIN window. So I am currently experimenting with BOX statement. But the problem is, I want to write it after every end of a line item. I placed the code above where the original &ULINE& was placed(inside the main window).
Hope to hear from you guys. Thank you and have a nice day to all!

Answer 1

Hi,
Below is my code inside my MAIN window.
MAIN
/* Element /E set outside PROTECT statement
Element POS_ZEILE
/: PROTECT
I1 ,,&MSEG-ZEILE&,,&MSEG-MATNR&,,&MSEG-ERFMG&,,&MSEG-ERFME&
/: IF &MSEG-BWART& EQ 'Z75'
=  ,,&MSEG-UMLGO&
/: ELSE
/:  IF &MSEG-BWART& NE '315'
=  ,,&MSEG-LGORT&
/:  ENDIF
/: ENDIF
/: IF NOT &MSEG-BWART& EQ '631'
=  ,,&MSEG-CHARG&
/: ENDIF
/: IF &MSEG-BWART& EQ '631'
=  ,,&KNA1-NAME1&
/: ENDIF
/: IF &MSEG-BWART& NE '631'
/: IF &MKPF-TCODE2& NE 'MB01' AND &MKPF-TCODE2& NE 'MIGO_GR'
I1 ,,&MSEG-WEMPF&
/: ELSE
I1 ,,&MSEG-EBELN&
/: ENDIF
/: ENDIF
I2 ,,&MABDR-MAKTX&
/: PERFORM GET_RCV_LOC IN PROGRAM ZSR_GOODS_TRANSFER_SLIP
/: USING &MSEG-EBELN&
/: USING &MSEG-EBELP&
/: CHANGING &WA_KOSTL&
/: ENDPERFORM.
/: IF &MKPF-TCODE2& EQ 'MB1A' OR &MKPF-TCODE2& EQ 'MB1C' OR &MKPF-TCODE2& EQ 'MIGO_GI'
/:   IF &MSEG-GRUND& EQ ''
/*     IF &MSEG-BWART& EQ 'Z29'
/* ,,</><TX>&MSEG-SGTXT(15)&</>
/*     ELSE.
=  ,,&WA_KOSTL&
/*     ENDIF.
/:   ELSE.
=  ,,&MSEG-GRUND&
/:   ENDIF
/: ELSEIF &MKPF-TCODE2& EQ 'MB01' AND &V_REVRS& EQ 'Y'
/:   IF &MSEG-GRUND& EQ ''
=  ,,&WA_KOSTL&
/:   ELSE
=  ,,&MSEG-GRUND&
/:   ENDIF
/: ELSEIF &MKPF-TCODE2& EQ 'MIGO_GR' AND &V_REVRS& EQ 'Y'
/:   IF &MSEG-GRUND& EQ ''
=  ,,&WA_KOSTL&
/:   ELSE
=  ,,&MSEG-GRUND&
/:   ENDIF
/: ELSEIF &MKPF-TCODE2& EQ 'MB1B' AND &MSEG-BWART& NE '315'
/:  IF &MSEG-BWART& EQ 'Z75'
=  ,,&MSEG-LGORT&
/:  ELSE
/:   IF &MSEG-UMLGO& EQ ''
=  ,,&WA_KOSTL&
/:   ELSE
=  ,,&MSEG-UMLGO&
/:   ENDIF
/:  ENDIF
/: ELSEIF &MKPF-TCODE2& EQ 'MB1B' AND &MSEG-BWART& EQ '315'
/:   IF &MSEG-LGORT& EQ ''
=  ,,&WA_KOSTL&
/:   ELSE
=  ,,&MSEG-LGORT&
/:   ENDIF
/: ENDIF
/: IF &MKPF-TCODE2& EQ 'MB1A'  OR &MKPF-TCODE2& EQ 'MIGO_GI'
/:   IF &MSEG-KOSTL& EQ ''
=  ,,&MSEG-EBELN&
/:   ELSE
/:    IF &MSEG-BWART& EQ 'Z29'
=  ,,<TX>&MSEG-SGTXT(15)&</>
/:     ELSE.
=  ,,&MSEG-KOSTL&
/:    ENDIF.
/:   ENDIF
/: ELSEIF &MKPF-TCODE2& EQ 'MB1B' OR &MKPF-TCODE2& EQ 'MB1C' OR &MKPF-TCODE2& EQ 'MB01'  OR &MKPF-TCODE2& EQ 'MIGO_GR'
/:  IF &MSEG-BWART& EQ '323' OR &MSEG-BWART& EQ 'Z73'
=  ,,&MSEG-GRUND&
/:  ELSEIF &MSEG-BWART& EQ 'Z75'
=  ,,&MSEG-GRUND&
/:  ELSE
/:    IF &MSEG-UMCHA& EQ ''
=  ,,&MSEG-EBELN(10)&
/:    ELSE
=  ,,&MSEG-UMCHA(10)&
/:    ENDIF
/:  ENDIF
/: ENDIF
=  ,,&MSEG-KUNNR&
/: IF &MSEG-BWART& EQ '601'
/  ,,   &V_BEZEI&
/: IF &V_MATGRP& EQ 'X'
/: ENDIF
/: ENDIF
/: ENDPROTECT
/: IF &V_SERIAL_NO& = 'N'
/: SIZE WIDTH '75.0' CH HEIGHT '0' LN
/: BOX FRAME 10 TW
/: POSITION YORIGIN +1 LN     
/: ENDIF
Element SERNUM
/: PROTECT
/: IF &V_SERIAL_NO& = 'Y'
/: IF &V_FIRST_NUM& = 'Y'
/: IF &SERIAL_TAB-END& EQ &SPACE&
SI ,,Serial Numbers:,,&SERIAL_TAB-START&
/: ELSE
SI ,,Serial Numbers:,,&SERIAL_TAB-START&,,-,,&SERIAL_TAB-END&
/: ENDIF
/: ELSEIF &SERIAL_TAB-END& EQ &SPACE&
SI ,,,,&SERIAL_TAB-START&
/: ELSE
SI ,,,,&SERIAL_TAB-START&,,-,,&SERIAL_TAB-END&
/: ENDIF
/: ENDIF
/: IF &V_FINISH& EQ 'Y'
/: SIZE WIDTH '75.0' CH HEIGHT '0' LN
/: BOX FRAME 10 TW
/: POSITION YORIGIN +1 LN
/: ENDIF
/: ENDPROTECT