Zitat:
Original erstellt von KBB:
Hallo Forum,ich arbeite gerne mit Mehrfachabbildungen. Wenn ich eine Mehrfachabbildung aber editiere, merke ich nicht immer, das es eine ist. Denn der Hinweis in ME10, dieses kleine "M" unten in der Statuszeile, ist recht winzig. Gibt es andere Möglichkeiten, diesen Hinweis markanter zu machen? Evtl. durch eine andere Darstellung auf dem Bildschirm?
Vielen Dank schonmal vorab für Eure Antworten
Klaus
Anbei die Lösung deines Problems.
Einfach per INPUT nachladen.
Ich hoffe Dir geholfen zu haben.
mfg
DEFINE Sm_parts_1
inq_env 0
LET ver (inq 2)
IF
(SUBSTR (STR (ver)) 1 1 = '1')
Sm_parts_1_10
ELSE
Sm_parts_1_8
END_IF
END_DEFINE
{***************************************************}
DEFINE Frs_m_check_multipart
LOCAL check_multi
LOCAL uq_partname
LOCAL dumminfo
LOCAL multifound
LOCAL username
PARAMETER check_multi_search
RESET_PART_NUMBER
PB_LTAB_UPDATE
LET multifound 0
LET i 0
LET imax (LTAB_ROWS 'PBT_LTAB')
LOOP
LET i (i+1)
EXIT_IF (i>imax)
LET username (TRIM (READ_LTAB 'PBT_LTAB' i 1))
LET uq_partname (READ_LTAB 'PBT_LTAB' i 2)
LET check_multi (READ_LTAB 'PBT_LTAB' i 3)
IF
(check_multi = (STR check_multi_search))
EDIT_PART uq_partname
ADD_ELEM_INFO ('MULTIPART : '+(STR check_multi)) SELECT ALL CONFIRM END
LET multifound 1
END_IF
END_LOOP
IF
(multifound = 1)
DISPLAY ('Teil <'+(STR username)+'> ist eine Mehfachabbildung')
LOOP
READ NUMBER '1 = OK ----------------------- 2 = Teilefamilie zeigen' DEFAULT 1 wahl
EXIT_IF
((wahl = 1) OR (wahl = 2))
END_LOOP
Frs_m_react wahl check_multi_search
END_IF
END_DEFINE
{***************************************************}
DEFINE Frs_m_react
PARAMETER wahl
PARAMETER check_multi
IF
(wahl = 1)
END
ELSE_IF
(wahl = 2)
SHOW GLOBAL ALL OFF SHOW DIMENSIONS OFF
SPOTLIGHT OFF
SHOW GLOBAL INFOS (STR('MULTIPART : '+(STR check_multi))) RED END
REDRAW
DISPLAY 'Teilefamilie wird angezeigt'
SHOW GLOBAL ALL ON SHOW DIMENSIONS ON
SPOTLIGHT ON
REDRAW
END_IF
CHANGE_GLOBAL_INFO 'MULTIPART :*' '' END
EDIT_PART partidnew END
END_DEFINE
{***************************************************}
DEFINE Frs_m_handle
INQ_PART '.'
LET partidold (INQ 302)
LOOP
READ PNT 'Zu editierendes Teil waehlen' selpart
TRAP_ERROR
EDIT_PART selpart
IF
(CHECK_ERROR = 1)
Frs_m_handle
END_IF
INQ_PART '.'
LET partidnew (INQ 302)
EXIT_IF
((STR partidold)<>(STR partidnew))
END_LOOP
LET i 0
LET imax (LTAB_ROWS 'PBT_LTAB')
LOOP
LET i (i+1)
LET username (TRIM (READ_LTAB 'PBT_LTAB' i 1))
LET uq_partname (READ_LTAB 'PBT_LTAB' i 2)
LET check_multi_search (READ_LTAB 'PBT_LTAB' i 3)
EXIT_IF
(uq_partname = partidnew)
END_LOOP
IF
(check_multi_search <> '')
Frs_m_check_multipart check_multi_search
END_IF
END_DEFINE
{*******Menuemacro ME10 Version bis 9.x***************************}
DEFINE Sm_parts_1_8
LET Lastmen 'Tm_parts_1'
IF (I_port)
Check_i_port
END_IF
IF (NOT I_port)
MENU_BUFFER ON
CURRENT_MENU Sm_parts_1_layout_name T_clear_menu Menu_control_icons
MENU Colo0 Bcol5 CENTER 'TEILE 1' '' 1 3
MENU YELLOW Bcol1 'EDITIEREN' 'Frs_m_handle' 2 1
MENU YELLOW Bcol0 'Teil' 'Frs_m_handle' 2 2
MENU 'Top' 'EDIT_PART TOP' 3 1
MENU 'Oberbaugrp' 'EDIT_PART PARENT' 3 2
MENU Colo0 Bcol1 'BEGINNEN' 'INIT_PART' 4 1
MENU 'Teil' 'INIT_PART' 4 2
MENU 'Einzelteil' 'INIT_SUBPART' 5 2
MENU Colo0 Bcol1 'ENDE' 'END_PART' 6 1
MENU Colo0 Bcol1 'ERSTELLEN' 'CREATE_SUBPART' 7 1
MENU 'Einzelteil' 'CREATE_SUBPART' 7 2
MENU 'Detail' 'CREATE_DETAIL' 8 2
MENU Colo0 Bcol1 'ELEM BIND' 'GATHER' 9 1
MENU 'LÎsch Alt' 'GATHER' 9 2
MENU 'Kopieren' 'GATHER COPY' 10 2
MENU Colo0 Bcol1 'BEM BIND' 'GATHER_DIM' 11 1
MENU Colo0 Bcol7 'OPTIONEN' '' 12 1
MENU 'Alles daru' 'ALL_BELOW' 12 2
MENU 'Alles darÏ' 'ALL_ABOVE' 13 2
MENU Colo0 Bcol1 'TEIL BIND' 'GATHER PART' 14 1
MENU 'LÎsch Alt' 'GATHER PART' 14 2
MENU 'Kopieren' 'GATHER COPY PART' 15 2
MENU Colo0 Bcol1 'ZEIGEN' 'SHOW_PART' 16 1
MENU 'Teil' 'SHOW_PART' 16 2
MENU 'Alles' 'SHOW_PART ALL' 17 1
MENU 'Teil []' 'SHOW_PART PART_BOX' 17 2
MENU Colo0 Bcol1 'ET INTEGR' 'SMASH_SUBPART' 18 1
MENU Colo0 Bcol7 'OPTIONEN' '' 19 1
MENU 'DatenBehal' 'KEEP_DATA' 19 2
MENU 'AnzeigBeha' 'KEEP_DISPLAY' 20 2
MENU Colo0 Bcol1 'MEHRF ABB' 'SHARE_PART' 21 1
MENU Colo0 Bcol1 'EIGENST TL' 'UNSHARE_PART' 21 2
MENU Colo0 Bcol1 'TL EDITOR' 'PRT_EDITOR' 22 1
MENU Colo0 Bcol7 'OPTIONEN' 'PRT' 23 1
MENU 'Drucker' 'PRT' 23 2
MENU 'LÎsch Alt' 'DEL_OLD' 24 1
MENU 'AnfÏgen' 'APPEND' 24 2
MENU Colo0 Bcol5 '' '' 25 1
MENU Colo0 Bcol5 CENTER 'MENÛ 2' 'Tm_parts_2' 25 2 Eight_menu_slots_add
END_IF
END_DEFINE
{*******Menuemacro ME10 Version ab 10.x***************************}
DEFINE Sm_parts_1_10
LET Lastmen 'Tm_parts_1'
IF (I_port)
Check_i_port
END_IF
IF (NOT I_port)
MENU_BUFFER ON
CURRENT_MENU Sm_parts_1_layout_name T_clear_menu Menu_control_icons
MENU Colo0 Bcol5 CENTER (DGETTEXT 'me10mac' 'PARTS 1') '' 1 3
MENU
YELLOW Bcol1 (DGETTEXT 'me10mac' 'EDIT') 'Frs_m_handle' 2 1
MENU
YELLOW Bcol0 (DGETTEXT 'me10mac' 'Part') 'Frs_m_handle' 2 2
MENU (DGETTEXT 'me10mac' 'Top') 'EDIT_PART TOP' 3 1
MENU (DGETTEXT 'me10mac' 'Parent') 'EDIT_PART PARENT' 3 2
MENU Colo0 Bcol1 (DGETTEXT 'me10mac' 'INITIATE') 'INIT_PART' 4 1
MENU (DGETTEXT 'me10mac' 'Part') 'INIT_PART' 4 2
MENU (DGETTEXT 'me10mac' 'Subpart') 'INIT_SUBPART' 5 2
MENU Colo0 Bcol1 (DGETTEXT 'me10mac' 'END') 'END_PART' 6 1
MENU Colo0 Bcol1 (DGETTEXT 'me10mac' 'CREATE PRT') 'CREATE_SUBPART' 7 1
MENU (DGETTEXT 'me10mac' 'Subpart') 'CREATE_SUBPART' 7 2
MENU (DGETTEXT 'me10mac' 'Detail') 'CREATE_DETAIL' 8 2
MENU Colo0 Bcol1 (DGETTEXT 'me10mac' 'GATHER EL') 'GATHER' 9 1
MENU (DGETTEXT 'me10mac' 'Delete Old') 'GATHER' 9 2
MENU (DGETTEXT 'me10mac' 'Copy') 'GATHER COPY' 10 2
MENU Colo0 Bcol1 (DGETTEXT 'me10mac' 'GATHER DIM') 'GATHER_DIM' 11 1
MENU Colo0 Bcol7 (DGETTEXT 'me10mac' 'OPTIONS') '' 12 1
MENU (DGETTEXT 'me10mac' 'All Below') 'ALL_BELOW' 12 2
MENU (DGETTEXT 'me10mac' 'All Above') 'ALL_ABOVE' 13 2
MENU Colo0 Bcol1 (DGETTEXT 'me10mac' 'GATHER PRT') 'GATHER PART' 14 1
MENU (DGETTEXT 'me10mac' 'Delete Old') 'GATHER PART' 14 2
MENU (DGETTEXT 'me10mac' 'Copy') 'GATHER COPY PART' 15 2
MENU Colo0 Bcol1 (DGETTEXT 'me10mac' 'SHOW PRT') 'SHOW_PART' 16 1
MENU (DGETTEXT 'me10mac' 'Curr Part') 'SHOW_PART' 16 2
MENU (DGETTEXT 'me10mac' 'All Prts') 'SHOW_PART ALL' 17 1
MENU (DGETTEXT 'me10mac' 'Part Boxed') 'SHOW_PART PART_BOX' 17 2
MENU Colo0 Bcol1 (DGETTEXT 'me10mac' 'SMASH SUBP') 'SMASH_SUBPART' 18 1
MENU Colo0 Bcol7 (DGETTEXT 'me10mac' 'OPTIONS') '' 19 1
MENU (DGETTEXT 'me10mac' 'KeepData') 'KEEP_DATA' 19 2
MENU (DGETTEXT 'me10mac' 'KeepDisply') 'KEEP_DISPLAY' 20 2
MENU Colo0 Bcol1 (DGETTEXT 'me10mac' 'SHARE') 'SHARE_PART' 21 1
MENU Colo0 Bcol1 (DGETTEXT 'me10mac' 'UNSHARE') 'UNSHARE_PART' 21 2
MENU Colo0 Bcol1 (DGETTEXT 'me10mac' 'PRT EDITOR') 'PRT_EDITOR' 22 1
MENU Colo0 Bcol7 (DGETTEXT 'me10mac' 'OPTIONS') 'PRT' 23 1
MENU (DGETTEXT 'me10mac' 'Printer') 'PRT' 23 2
MENU (DGETTEXT 'me10mac' 'Delete Old') 'DEL_OLD' 24 1
MENU (DGETTEXT 'me10mac' 'Append') 'APPEND' 24 2
MENU Colo0 Bcol5 '' '' 25 1
MENU Colo0 Bcol5 CENTER (DGETTEXT 'me10mac' 'MENU 2') 'Tm_parts_2' 25 2
Eight_menu_slots_add
END_IF
END_DEFINE
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP