REPORT  zhr_uploadpic                       .
PARAMETERS: p_path TYPE epsdirnam
DEFAULT '\\eserver\HR\photo\',
            p_print AS CHECKBOX DEFAULT 'X'.

***********************************************************************
*      I N T E R N A L   T A B L E S
***********************************************************************
DATA : BEGIN OF it_data OCCURS 0,
         rp50g-pernr(8), " LIKE RP50G-PERNR,
      END OF it_data.

DATA: filename(255), pernr_id LIKE rp50g-pernr, count TYPE EPSFILSIZ,
one_percent TYPE f, progress TYPE i.
DATA: object_id TYPE saeobjid, ext(3), pos_count TYPE i.
DATA path TYPE epsdirnam.
DATA: outdoctab LIKE toadt OCCURS 0 WITH HEADER LINE.
DATA: file_table TYPE STANDARD TABLE OF epsfili.

DATA: dir_table LIKE sdokpath OCCURS 0 WITH HEADER LINE.
DATA: wa_file_table TYPE epsfili.

DATA: text_progress(20).

***********************************************************************
*     S T A R T - O F - S E L E C T I O N
***********************************************************************
START-OF-SELECTION.

  path = p_path.

  CALL FUNCTION 'EPS_GET_DIRECTORY_LISTING'
    EXPORTING
      dir_name                     = path
*    FILE_MASK                    = '*.jpg'
IMPORTING
*   DIR_NAME                     =
   FILE_COUNTER                 = count
*   ERROR_COUNTER                =
    TABLES
      dir_list                     = file_table
   EXCEPTIONS
     invalid_eps_subdir           = 1
     sapgparam_failed             = 2
     build_directory_failed       = 3
     no_authorization             = 4
     read_directory_failed        = 5
     too_many_read_errors         = 6
     empty_directory_list         = 7
     OTHERS                       = 8
            .
  IF sy-subrc <> 0.
*    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
*            WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
    RETURN.
  ENDIF.

  one_percent = count / 100.
  LOOP AT file_table INTO wa_file_table.
    pos_count = sy-tabix.
    progress = pos_count / one_percent.
    SPLIT wa_file_table-name AT '.' INTO pernr_id ext.
    count = 8 - STRLEN( pernr_id ).
    SHIFT pernr_id RIGHT BY count PLACES.
    TRANSLATE pernr_id USING ' 0'.

    CONCATENATE path '/' wa_file_table-name INTO filename.
    CONCATENATE pernr_id '0002' INTO object_id.

    CALL FUNCTION 'ALINK_DOCUMENTS_CREATE_DIALOG'
      EXPORTING
        archiv_id                          = 'ES'
       document_class                      = 'JPG'
       document_type                       = 'HRICOLFOTO'
       filename                            = filename
       multiple                            = 'X'
*    FILEDELETE                          = ' '
*  IMPORTING
*    ARCHIV_DOC_ID                       =
*    RETURN_DOCUMENT_CLASS               =
     TABLES
       outdoctab                           = outdoctab
*  CHANGING
*    INFILETAB                           =
     EXCEPTIONS
       error_contentrepository             = 1
       error_archivelink_customizing       = 2
       canceled_by_user                    = 3
       OTHERS                              = 4
              .

    CALL FUNCTION 'ALINK_DELETE'
            EXPORTING
             archiv_id                      = outdoctab-contrep_id
*   ARC_DOC_ID                     = outdoctab-arc_doc_id
             ar_object                      = 'HRICOLFOTO'
             delete_flag                    = 2
              object_id                      = object_id
              sap_object                     = 'PREL'
              client                         = sy-mandt
*   SINGLE_ENTRY                   = ' '
             documentclass                  = 'JPG'
* IMPORTING
*   ALL_CONNECTIONS_DELETED        =
           EXCEPTIONS
             error_connectiontable          = 1
             error_parameter                = 2
             error_archiv                   = 3
             error_kernel                   = 4
             error_communicationtable       = 5
             OTHERS                         = 6
                    .

    LOOP AT outdoctab.

      CALL FUNCTION 'ARCHIV_CONNECTION_INSERT'
        EXPORTING
          archiv_id                   = outdoctab-contrep_id
          arc_doc_id                  = outdoctab-arc_doc_id
*    AR_DATE                     = ' '
          ar_object                   = 'HRICOLFOTO'
*    DEL_DATE                    = ' '
*    MANDANT                     = ' '
          object_id                   = object_id
          sap_object                  = 'PREL'
          doc_type                    = 'JPG'
*    BARCODE                     = ' '
  EXCEPTIONS
    error_connectiontable       = 1
    OTHERS                      = 2.
      IF p_print = 'X'.
        IF sy-subrc = 0.
          WRITE: / pos_count, AT 30 wa_file_table-name.
        ENDIF.
      ENDIF.
      COMMIT WORK.
      text_progress = progress.
      CONDENSE text_progress.
      CONCATENATE text_progress ' % загружено' INTO text_progress.
      CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
        EXPORTING
          percentage = progress
          text       = text_progress.

    ENDLOOP.

    CLEAR filename.

  ENDLOOP.