我的监视应用程序每秒访问一个数据库表，以检查其内容是否已更改，并在dynpro上支付特定记录。

FILL_HEADER是固定的，FILL_VALUES可以更改。

这是大多数PBO代码：

设置PF-STATUS'STATUS1100'。

设置TITLEBAR'TITLE1100'。

清除标志。

如果first ='X'。 "原始显示

清除：i_text，is_ma_data。

刷新：i_text，is_ma_data。

创建对象head_cont

导出container_name = top_screen。

创建对象values_cont

导出container_name =值。

创建对象fill_header

导出no_margins ='X'。

创建对象填充值

导出no_margins ='X'。

调用方法fill_header-> initialize_document。

执行fill_field_names。

调用方法fill_header-> merge_document。

调用方法fill_header-> display_document

导出

父= head_cont

容器='FILL_HEADER'

复用控制='X'

redirect_registration ='X'。

first =''。

ENDIF。

...

呼叫方法fill_values-> initialize_document

导出

background_color = bg_c​​olor。

执行fill_field_values。

• 合并文档

调用方法fill_values-> merge_document。

调用方法fill_values-> display_document

导出

父= values_cont

容器='FILL_VALUES'

复用控制='X'

redirect_registration ='X'。

ENDIF。

• 刷新

创建对象gui_timer。

SET HANDLER event_handler-> on结束于gui_timer。

gui_timer-> interval =超时。

调用方法gui_timer->运行。

调用方法cl_gui_cfw =>更新视图。

谢谢。

安吉洛