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

[aris_hidalgo]

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!

[Former Member]

hi

as i understand .. if u want to draw a line after every line item... u can put it in loop for every 10 tw or so for every line item..

can u copy the code so we can go thorough what exactly happening in ur logic..

u can use box command unless u know the position of line items exactly..

[aris_hidalgo]

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