Graphical POPUP progress display

最新推荐文章于 2020-08-02 18:00:57 发布

java_smalltalk

最新推荐文章于 2020-08-02 18:00:57 发布

阅读量94

点赞数

文章标签： F# Office Microsoft EXT XML

本示例展示了如何使用SAP系统中的进度弹窗功能。通过设置按钮文本、当前值、布局等参数来更新进度窗口，并在循环中调用进度弹窗函数，实现了进度的动态展示。

***********************************************************

* Developer : S.Srini.

* Location : Chennai,

* : Tamil Nadu,

* : <?xml:namespace prefix = st1 ns = "urn:schemas-microsoft-com:office:smarttags" /><country-region w:st="on"><place w:st="on">India</place></country-region>.

* Date : 03/09/2001.

***********************************************************

data: val type i.

data event(6) type c.

<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" />

val = 0.

do 4 times.

val = val + 25.

CALL FUNCTION 'EPS_PROGRESS_POPUP'

EXPORTING

BTN_TXT = 'CANCEL'

CURVAL_G2 = VAL

LAYOUT = '1'

MAXVAL_G2 = '100'

POPUP_LINK = 'ASYNC'

POPUP_STAT = '1'

POPUP_TITLE = 'SAP'

TEXT_1 = 'TEXT 1'

TEXT_2 = 'TEXT 2'

TEXT_3 = 'TEXT 3'

TEXT_4 = 'TEXT 4'

TEXT_G1 = 'TEXT G1'

TEXT_G2 = 'TEXT G2'

TITLE_G2 = 'TITLE G2 '

WINID = 100.

IF SY-SUBRC <> 0.

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

ENDDO.

PERFORM CLOSEGRAPH.

************************************************************

FORM CLOSEGRAPH.

CALL FUNCTION 'PROGRESS_POPUP'

EXPORTING

STAT = '2'

WINID = 100.

CALL FUNCTION 'GRAPH_DIALOG'

EXPORTING

CLOSE = 'X'.

ENDFORM.

***********************************************************

<?xml:namespace prefix = v ns = "urn:schemas-microsoft-com:vml" /><shapetype id="_x0000_t75" stroked="f" filled="f" path="m@4@5l@4@11@9@11@9@5xe" o:preferrelative="t" o:spt="75" coordsize="21600,21600"><font color="#000000"><stroke joinstyle="miter"></stroke></font><formulas><f eqn="if lineDrawn pixelLineWidth 0"></f><f eqn="sum @0 1 0"></f><f eqn="sum 0 0 @1"></f><f eqn="prod @2 1 2"></f><f eqn="prod @3 21600 pixelWidth"></f><f eqn="prod @3 21600 pixelHeight"></f><f eqn="sum @0 0 1"></f><f eqn="prod @6 1 2"></f><f eqn="prod @7 21600 pixelWidth"></f><f eqn="sum @8 21600 0"></f><f eqn="prod @7 21600 pixelHeight"></f><f eqn="sum @10 21600 0"></f></formulas><path o:connecttype="rect" gradientshapeok="t" o:extrusionok="f"></path><lock aspectratio="t" v:ext="edit"></lock></shapetype><shape id="_x0000_i1025" style="WIDTH: 370.5pt; HEIGHT: 162.75pt" type="#_x0000_t75"><imagedata o:title="" src="file:///C:%5CDOCUME~1%5C11894~1.ITC%5CLOCALS~1%5CTemp%5Cmsohtml1%5C01%5Cclip_image001.png"></imagedata></shape>