{------------------------------------------------------
    Makro hier hineinkopieren:
    C:\...\...\WM_11.61\desktop\custom\ui_cust.m
-------------------------------------------------------}


{------------------------------------------------------
    Warnt bei gesperrten Zeichnungen
    Die Display-Zeilen können verändert werden
-------------------------------------------------------}
DEFINE Dsp_release_warning
  LOCAL Win
  LOCAL Ducid
  LOCAL State
  LET Win (GET_CURRENT_WINDOW)
  Awm_ed_m_get_curr_doc_user_cid Win
  LET Ducid Dms_return_val
  LET State (GET_CACHE_VALUE Ducid Db_state )
  IF (State = 'gesperrt')
    DISPLAY '  Dieses Dokument ist gesperrt  '
    DISPLAY '  Das hat auch einen Grund !  '
    DISPLAY '  Okay, wird trotzdem geladen  '
  END_IF
END_DEFINE

DEFINE Awmc_sd_pa_loadasv_model_sd
  PARAMETER Partial_flag
  Dsp_release_warning
  Awm_sd_pa_loadasv_model_sd Partial_flag
END_DEFINE

DEFINE Awmc_me_generic_pa_load_ronly
  LOCAL Win
  LOCAL Doc_elid
  LOCAL Filetyp
  Dsp_release_warning
  LET Win (GET_CURRENT_WINDOW)
  Awm_ui_get_curr_doc_elid Win
  LET Doc_elid Dms_return_val
  Awm_utl_check_for_filetype "TIFF" Doc_elid
  LET Filetyp Dms_return_val
  IF (Filetyp==1)
    Awmc_pa_load_tif
  ELSE
    Awm_me_generic_pa_load_ronly
  END_IF
END_DEFINE