SAPHRABAP调用Visio生成组织架构图文档格式.docx
《SAPHRABAP调用Visio生成组织架构图文档格式.docx》由会员分享,可在线阅读,更多相关《SAPHRABAP调用Visio生成组织架构图文档格式.docx(60页珍藏版)》请在冰豆网上搜索。
struc-seqnr,
parent
tree_id
TYPE
lvc_nkey,
text(25),
text4(40),
short(14),
otype
(2),
realo
realo,
istat
(1),
begda(10),
endda(10),
vistat
(1),
vbegda(10),
vendda(10),
prozt(8),
objid
objec-objid,
END
t_node.
type_trec,
key
type_trec.
parent_stack_line,
level
struc-level,
parent_stack_line.
*----------------------------------------------------------------------*
*
error
handling
(for
internal
errors)
type
for
ABAP
callstack
t_s_abap_callstack,
mainprogram
sy-repid,
include
line
i,
eventtype
abdbg-leventtype,
event
abdbg-levent,
flag_system,
t_s_abap_callstack.
variable
DATA:
g_callstack
STANDARD
TABLE
g_callstack_wa
macro
should
never
be
called
;
-)
DEFINE
internal_error.
"
&
1
action
that
lead
to
error
get
call
'
ABAP_CALLSTACK'
DEPTH'
field
99
CALLSTACK'
g_callstack.
current
form/event
read
table
into
index
1.
message
i001(aq_ad_hoc)
with
g_callstack_wa-event
1.
action.
END-OF-DEFINITION.
it_node
t_node,
it_tab
wa_node
waobjec,
stext
objec-stext,
short
objec-short,
objec-realo,
plvar
objec-plvar,
otype
objec-otype,
begda
objec-begda,
endda
objec-endda,
istat
objec-istat,
seqnr
waobjec.
ok_code
sy-ucomm,
save_ok
sy-ucomm.
CLASS
cl_gui_object
DEFINITION
LOAD.
control_container
REF
TO
cl_gui_custom_container,
alv_tree_control
cl_gui_alv_tree,
alv_html_header
cl_gui_html_viewer,
fieldcatalog
lvc_s_fcat,
hierarchy_header
treev_hhdr.
lt_list_commentary
slis_t_listheader,
gs_variant
disvariant.
s_node
lvc_nkey.
otype.
answer
(1).
it_toolbar_excluding
ui_functions.
excl_tab
it_recursions
exist_rec
flag_x.
repid
sel_table
rsparams.
g_optimize_flag
flag
VALUE
note
768405
g_optimize_button
smp_dyntxt.
#EC
NEEDED
handling
g_parent_stack
g_parent_stack_wa
lv_string
string.
gx_acc_mode_on
abap_bool.
t_data,
oname
hrp1000-short,
sname
pname
orgid
hrp1000-objid,
posid
perid
kname
kccid
graph
imagefile
char40,
t_data.
gt_data
wa_data
g_visio_path
string,
g_visio_para
OLE对象
g_aplicacion
ole2_object.
Aplicacion
Visio
g_documentos
Coleccion
de
Documentos
g_documento
Documento
g_addon
Addon
g_addons
Addons
g_sistema
g_template_path
g_template_file
g_data_file
g_workdir
g_parametro_macro
g_orgwiz
string
OrgCWIZ'
.
SELECTION
SCREEN
*
SELECTION-SCREEN
BLOCK
block1
WITH
FRAME
TITLE
text-001.
technical
depth
PARAMETERS
tdepth
gdstr-tdepth.
SKIP.
recursion
check
PARAMETERS:
recurs
RADIOBUTTON
GROUP
g2
pppch-recurs
DEFAULT
X'
visio
flag_x
block1.
*PARAMETERS:
ORG_PATH
STRING
C:
\Program
Files\Microsoft
Office\Office12\ORGWIZ.EXE'
INITIALIZATION
INITIALIZATION.
Structured
evaluation
$pch$-acces
=
$structured$.
pchtimed
D'
initialize
variables
CLEAR:
it_node[].
sy-repid.
START-OF-SELECTION
START-OF-SELECTION.
perform
all
objects?
IF
pchobjid[]
IS
INITIAL
AND
pchsobid[]
INITIAL.
CALL
FUNCTION
POPUP_TO_CONFIRM'
EXPORTING
titlebar
消息'
(027)
text_question
查询所有部门?
(015)
display_cancel_button
IMPORTING
answer
answer
EXCEPTIONS
text_not_found
1
OTHERS
2.
sy-subrc
<
>
0.
internal_error
.
NOTEXT
ENDIF.
back
selection
screen
2'
CLEAR
sel_table[].
RS_REFRESH_FROM_SELECTOPTIONS'
curr_report
repid
TABLES
selection_table
sel_table
not_found
no_report
2
3.
SUBMIT
rhstru00
VIA
SELECTION-SCREEN
SELECTION-TABLE
sel_table.
Branchwise
authority
$pch$-stru_authy
A'
Check
recursions
$pch$-recurs
$pch$-tdepth
tdepth.
$pch$-refre
$off$.
GET
OBJEC
objec.
MOVE-CORRESPONDING
objec
waobjec-seqnr
struc-seqnr.
set
the
of
node
wa_node-id
determine
correct
id
struc-pup
there
is
no
as
this
topmost
g_parent_stack,
g_parent_stack_wa.
wa_node-parent
struc-pup.
add
node
stack
g_parent_stack_wa-level
struc-level.
g_parent_stack_wa-id
INSERT
INTO
g_parent_stack
INDEX
ELSE.
was
a
parent
READ
*there
in
stack
available
now
check
if
levels
match
delete
entries
are
deeper
structure
they
can
not
parents
DELETE
WHERE
again
entry
from
g_parent_stack_wa-id.
others
where
skipped
text
NOT
waobjec-ste