BDC for the Infotype 0585 in HR Module

Question

Hi ,
Iam facing problem in Uploading the Data into the Infotype 0585 ( Section 80 Deductions - Proposals ).
Can i get any BDC to upload the Infotype 0585-Proposals.
Points will be Surely Rewarded.
Regards,
N.L.Narayana

Answer 1

*& Report  Z_HR_UPLOAD_INFOTYPE_0585
report  z_hr_upload_infotype_0585.
tables:pa0585.
data:begin of it_585 occurs 0 ,
     pernr type rp50g-pernr,   "Personnel no
     begda type pa0585-begda,  "Begin Date
     endda type pa0585-endda,  "End data
     sbs01 type pa0585-sbs01,  "Sub section code
     sbd01 type pa0585-sbd01,  "Sub section division number
     pcn01(12) type c,         "Proposed contribution
     sbs02 type pa0585-sbs02,  "Sub section code
     sbd02 type pa0585-sbd02,  "Sub section division number
     pcn02(12) type c,         "Proposed contribution
     sbs03 type pa0585-sbs03,  "Sub section code
     sbd03 type pa0585-sbd03,  "Sub section division number
     pcn03(12) type c,         "Proposed contribution
     sbs04 type pa0585-sbs04,  "Sub section code
     sbd04 type pa0585-sbd04,  "Sub section division number
     pcn04(12) type c,         "Proposed contribution
     sbs05 type pa0585-sbs05,  "Sub section code
     sbd05 type pa0585-sbd05,  "Sub section division number
     pcn05(12) type c,         "Proposed contribution
     sbs06 type pa0585-sbs06,  "Sub section code
     sbd06 type pa0585-sbd06,  "Sub section division number
     pcn06(12) type c,         "Proposed contribution
     sbs07 type pa0585-sbs07,  "Sub section code
     sbd07 type pa0585-sbd07,  "Sub section division number
     pcn07(12) type c,         "Proposed contribution
     sbs08 type pa0585-sbs08,  "Sub section code
     sbd08 type pa0585-sbd08,  "Sub section division number
     pcn08(12) type c,         "Proposed contribution
     sbs09 type pa0585-sbs09,  "Sub section code
     sbd09 type pa0585-sbd09,  "Sub section division number
     pcn09(12) type c,         "Proposed contribution
     sbs10 type pa0585-sbs10,  "Sub section code
     sbd10 type pa0585-sbd10,  "Sub section division number
     pcn10(12) type c,         "Proposed contribution
     sbs11 type pa0585-sbs11,  "Sub section code
     sbd11 type pa0585-sbd12,  "Sub section division number
     pcn11(12) type c,         "Proposed contribution
     sbs12 type pa0585-sbs12,  "Sub section code
     sbd12 type pa0585-sbd12,  "Sub section division number
     pcn12(12) type c,         "Proposed contribution
     sbs13 type pa0585-sbs13,  "Sub section code
     sbd13 type pa0585-sbd13,  "Sub section division number
     pcn13(12) type c,         "Proposed contribution
     sbs14 type pa0585-sbs14,  "Sub section code
     sbd14 type pa0585-sbd14,  "Sub section division number
     pcn14(12) type c,         "Proposed contribution
     sbs15 type pa0585-sbs15,  "Sub section code
     sbd15 type pa0585-sbd15,  "Sub section division number
     pcn15(12) type c,         "Proposed contribution
     end of it_585.
data:wa_585a like  it_585.
*--selection Screen--
selection-screen: begin of block blk1 with frame title text-000.
parameters: p_file type  rlgrap-filename  obligatory.
selection-screen: end of block blk1.
at selection-screen on value-request for p_file.
*-to locate file in a directory (on value request)
  call function 'KD_GET_FILENAME_ON_F4'
    exporting
      static        = 'X'
    changing
      file_name     = p_file
    exceptions
      mask_too_long = 1
      others        = 2.
  if sy-subrc <> 0.
    message id sy-msgid type sy-msgty number sy-msgno
            with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  endif.
START-OF-SELECTION                                                  *
start-of-selection.
  perform get_data.
  perform emp_invt.
*&      Form  GET_DATA
      text
-->  p1        text
<--  p2        text
form get_data.
READ FILE INTO INTERNAL TABLE.
  data: lv_fname type string.
  lv_fname = p_file.
  call function 'GUI_UPLOAD'
    exporting
      filename                = lv_fname
      filetype                = 'ASC'
      has_field_separator     = '#'
    tables
      data_tab                = it_585[]
    exceptions
      file_open_error         = 1
      file_read_error         = 2
      no_batch                = 3
      gui_refuse_filetransfer = 4
      invalid_type            = 5
      no_authority            = 6
      unknown_error           = 7
      bad_data_format         = 8
      header_not_allowed      = 9
      separator_not_allowed   = 10
      header_too_long         = 11
      unknown_dp_error        = 12
      access_denied           = 13
      dp_out_of_memory        = 14
      disk_full               = 15
      dp_timeout              = 16
      others                  = 17.
  if not sy-subrc is initial.
   MESSAGE e000(ZHRMSG) WITH lv_fname.
  endif.
endform.                    " GET_DATA
*&      Form  EMP_INVT
      text
-->  p1        text
<--  p2        text
form emp_invt.
  data : wa_0585  type p0585,
         it_return type bapireturn1 occurs 0 with header line,
         it_05851  type p0585 occurs 0,
         it_pa0585 type standard table of pa0585 with header line .
  loop at it_585 into wa_585a.
    move-corresponding wa_585a to wa_0585.
    wa_0585-infty = '0585'.
    append wa_0585 to it_05851.
    clear:wa_0585 ,
          wa_585a.
  endloop.
  sort it_05851 by pernr.
  select * from pa0585 into table it_pa0585
  for all entries in it_05851
  where pernr = it_05851-pernr.
  loop at it_05851 into wa_0585.
Convert START Date into internal format (ex: 10/06/04 -> 20040610
    call function 'CONVERSION_EXIT_DATEX_INPUT'
      exporting
        input  = wa_0585-begda
      importing
        output = wa_0585-begda.
Convert END Date into internal format (ex: 10/06/04 -> 20040610 )
    call function 'CONVERSION_EXIT_DATEX_INPUT'
      exporting
        input  = wa_0585-endda
      importing
        output = wa_0585-endda.
*******Function module to lock personnel no
    call function 'BAPI_EMPLOYEE_ENQUEUE'
      exporting
        number = wa_0585-pernr.
         IMPORTING
           return = WA_RETURN.
    read table it_pa0585 with key pernr = wa_0585-pernr
                                begda = wa_0585-begda
                                endda = wa_0585-endda.
    if sy-subrc is initial.
      call function 'HR_INFOTYPE_OPERATION'
        exporting
          infty                  =  '0585'
          number                 =  wa_0585-pernr
  SUBTYPE                =
  OBJECTID               =
  LOCKINDICATOR          =
         validityend            =  wa_0585-endda
         validitybegin          =  wa_0585-begda
  RECORDNUMBER           =
          record                 = wa_0585
          operation              = 'MOD'
          tclas                  =  'A'
         dialog_mode            = '1'
         nocommit               =  ''.
  VIEW_IDENTIFIER        =
  SECONDARY_RECORD       =
IMPORTING
  RETURN                 =   IT_RETURN[].
  KEY                    =
    else.
      call function 'HR_INFOTYPE_OPERATION'
        exporting
          infty                  =  '0585'
          number                 =  wa_0585-pernr
  SUBTYPE                =
  OBJECTID               =
  LOCKINDICATOR          =
         validityend            =  wa_0585-endda
         validitybegin          =  wa_0585-begda
  RECORDNUMBER           =
          record                 = wa_0585
          operation              = 'INS'
          tclas                  =  'A'
         dialog_mode            = '1'
         nocommit               =  ''.
  VIEW_IDENTIFIER        =
  SECONDARY_RECORD       =
IMPORTING
  RETURN                 =   IT_RETURN[].
  KEY                    =
    endif.
Function module to unlock the personnel no
    call function 'BAPI_EMPLOYEE_DEQUEUE'
      exporting
        number = wa_0585-pernr.
    clear wa_0585.
  endloop.
endform.                    " EMP_INVT