SAP HCM ABAP PRESTAMOS

EJEMPLO 01

*cl_hrpa_loan_computations=>compute_estimated_end_of_loan 
*cl_hrpa_loan_computations=>read_payments_for_loan_id 
*cl_hrpa_loan_computations=>compute_repayment_plan 
*&---------------------------------------------------------------------*
*& Report  Y_TEST_LOAN
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT  y_test_loan.
TABLES pernr.
INFOTYPES: 0045.

DATA instance    TYPE REF TO cl_hrpa_loan_computations.
DATA gd_pclo_id TYPE pclo_id.
DATA gd_estimated_end_of_loan TYPE d.
DATA  data_ref   TYPE REF TO data.
DATA gd_message_handler TYPE REF TO if_hrpa_message_handler.
data gt_pagos type PCLO_PAYMENTS_TAB.
data gt_P0078_TAB type P0078_TAB.
data: gt_PCLO_REPAY_TAB type PCLO_REPAY_TAB,
     gt_PCLO_LOAN_CHANGES_TAB type PCLO_LOAN_CHANGES_TAB.

* create dummy message handler
 data dummy_handler type ref to cl_hrpa_dummy_message_handler.
 create object dummy_handler.
 message_handler = dummy_handler.

START-OF-SELECTION.

GET pernr.

 PROVIDE * FROM p0045 BETWEEN pn-begda AND pn-endda.
   CALL METHOD cl_hrpa_loan_computations=>get_loan_id_from_p0045
     EXPORTING
       p0045   = p0045
     RECEIVING
       loan_id = gd_pclo_id.

* CALCULO DE FECHA FINAL PRESTAMO
   TRY.
  CALL METHOD cl_hrpa_loan_computations=>compute_estimated_end_of_loan
       EXPORTING
         tclas                 = 'A'
         loan_id               = gd_pclo_id
         message_handler       = dummy_handler
       RECEIVING
         estimated_end_of_loan = gd_estimated_end_of_loan.
   ENDTRY.

* PAGOS DE PRESTAMO
TRY.
CALL METHOD cl_hrpa_loan_computations=>read_payments_for_loan_id
  EXPORTING
    tclas         = 'A'
    loan_id       = gd_pclo_id
*     ZAHLA         = '*'
*     SPRPS         = '*'
*     BEGDA         = LOW_DATE
*     ENDDA         = HIGH_DATE
*     NO_AUTH_CHECK = FALSE
  IMPORTING
    PAYMENTS_TAB  = gt_pagos
*     DATA_EXISTS   =
*     MISSING_AUTH  =
    .
 CATCH CX_HRPA_VIOLATED_ASSERTION .
ENDTRY.



TRY.
CALL METHOD cl_hrpa_loan_computations=>read_p0078_for_loan_id
 EXPORTING
   tclas         = 'A'
   loan_id       = gd_pclo_id
*    ZAHLA         = '*'
*    SPRPS         = '*'
*    BEGDA         = LOW_DATE
*    ENDDA         = HIGH_DATE
*    NO_AUTH_CHECK = FALSE
 IMPORTING
   P0078_TAB     = gt_P0078_TAB
*    DATA_EXISTS   =
*    MISSING_AUTH  =
   .
 CATCH CX_HRPA_VIOLATED_ASSERTION .
ENDTRY.

* GENERAR PLAN DE AMORTIZACION
TRY.
CALL METHOD cl_hrpa_loan_computations=>compute_repayment_plan
 EXPORTING
   tclas           = 'A'
   loan_id         = gd_pclo_id
*    NEW_CURRENCY    =
   message_handler = dummy_handler
 IMPORTING
   REPAYMENT_PLAN  =  gt_PCLO_REPAY_TAB
   LOAN_CHANGES    =  gt_PCLO_LOAN_CHANGES_TAB
*    IS_OK           =
   .
 CATCH CX_HRPA_VIOLATED_ASSERTION .
ENDTRY.

endPROVIDE.

END-OF-SELECTION.

Calculo fecha fin de préstamo

FORM calcula_fecha_fin using p0045 type p0045 
                    CHANGING p_endda.
  TYPES: BEGIN OF tp_dynfi,
           initf TYPE c,                " initialize if marked
           key   LIKE sy-tabix,
           darbt LIKE p0078-betrg,
           dbtcu LIKE p0078-btrcu,      "currency for repayment plan
           rate  LIKE p0045-anrte,
           ratec LIKE p0045-dbtcu,
           tilbg LIKE p0045-tilbg,
           zahld LIKE p0078-zahld,
           vari  TYPE disvariant,
         END   OF tp_dynfi.

  DATA ps_dynfi TYPE tp_dynfi.
  DATA: lt_p0078 TYPE p0078 OCCURS 0 WITH HEADER LINE.
  DATA lt_p0045 TYPE TABLE OF p0045 WITH HEADER LINE.

  SELECT * INTO CORRESPONDING FIELDS OF TABLE lt_p0078 FROM pa0078 WHERE pernr = p0045-pernr AND
                                                 dlart = p0045-dlart AND
                                                 objid = p0045-objps.

  ps_dynfi-rate = p0045-anrte.
  ps_dynfi-ratec = p0045-dbtcu.
  ps_dynfi-tilbg = p0045-begda.
  ps_dynfi-dbtcu = p0045-dbtcu.

  CALL FUNCTION 'PCLO_BUILD_REPAYMENT_PLAN'
    EXPORTING
      ps_p0045    = p0045
      pf_fday     = p0045-begda
      pf_lday     = p0045-endda    ""'99991231'
      pt_paym     = lt_p0078[]
      pf_rate     = ps_dynfi-rate
      pf_ratecurr = ps_dynfi-ratec                          "GWY534928
      pf_tilbg    = ps_dynfi-tilbg
      pf_curr     = ps_dynfi-dbtcu                    "GWY428607-5
      pf_variant  = ps_dynfi-vari
      pf_nodisp   = '1'
    IMPORTING
*     ps_paper    = gs_paper
      pf_dlend    = p0045-dlend
*     pf_effin    = gf_effin
      pt_plan     = gt_pclo_repay_tab.   "amounts have currency pf_curr

  p_endda = p0045-dlend.

ENDFORM.                    "CALCULa_fecha_fin

Obtener datos de préstamo

 *Copiado de MP004500
 FORM get_loan_results TABLES   pt_savp STRUCTURE gt_savp
                       USING    pf_pernr
                                pf_dlart
                                pf_objps
                                pf_dbtcu
                       CHANGING pfx_opelo
                                pfx_paylo
                                pfx_abrdt
                                pfx_subrc.
 
   DATA: ltx_rgdir             LIKE  pc261 OCCURS 0 WITH HEADER LINE,
         lt_rgdir              TYPE hrpy_tt_rgdir,           "GWY839032
         lsx_rgdir             LIKE  ltx_rgdir,
         lsx_result            TYPE  pay99_result,
         lsx_v0                LIKE LINE OF lsx_result-inter-v0,
         lsx_rt                LIKE LINE OF lsx_result-inter-rt,
         lfx_relid             LIKE  pcl2-relid,
         lfx_molga             LIKE  t500l-molga,
         lsx_t500l             LIKE  t500l,
         lfx_amount            LIKE  q0045-darbt,
         lfx_line              LIKE  sy-tabix,
         lfx_fday              TYPE  d,
         lfx_lday              TYPE  d,
         lfx_opecu             LIKE  q0045-opecu,
         ls_paper              TYPE  pc2paper,
         lf_payment_value_date TYPE datum,
         ls_loid_33            TYPE  pclo_id.                      "Note 834827
 
 *##--BEGIN--##
   CLEAR: pfx_opelo, pfx_paylo, pfx_abrdt, pfx_subrc.
 
   CALL FUNCTION 'CU_READ_RGDIR_NEW'
     EXPORTING
       persnr               = pf_pernr
       check_read_authority = space
     IMPORTING
       molga                = lfx_molga
     TABLES
       in_rgdir             = ltx_rgdir
     EXCEPTIONS
       OTHERS               = 1.
   IF sy-subrc <> 0.
     MOVE sy-subrc TO pfx_subrc.
   ELSE.
     MOVE sy-subrc TO pfx_subrc.
     CALL FUNCTION 'CD_READ_LAST_RESULT_IN_RGDIR'
       IMPORTING
         ptx_rgdir_nv = lsx_rgdir
       TABLES
         pt_rgdir     = ltx_rgdir.
     LOOP AT ltx_rgdir.
       APPEND ltx_rgdir TO lt_rgdir.
     ENDLOOP.
     MOVE lsx_rgdir-fpend TO pfx_abrdt.
 *   get relid
     SELECT SINGLE * FROM   t500l
                     INTO   lsx_t500l
                     WHERE  molga  = lfx_molga.
     MOVE lsx_t500l-relid TO lfx_relid.
 
     CALL FUNCTION 'PYXX_READ_PAYROLL_RESULT'
       EXPORTING
         clusterid               = lfx_relid
         employeenumber          = pf_pernr
         sequencenumber          = lsx_rgdir-seqnr
         read_only_international = 'X'
         check_read_authority    = ' '
       CHANGING
         payroll_result          = lsx_result
       EXCEPTIONS
         OTHERS                  = 1.
     IF sy-subrc <> 0.
       MOVE sy-subrc TO pfx_subrc.
     ELSE.
       MOVE sy-subrc TO pfx_subrc.
 *     get loan result .....
       LOOP AT lsx_result-inter-v0 INTO lsx_v0 WHERE v0typ = 'L'.
         IF pf_dlart = lsx_v0-vinfo+0(4) AND
            pf_objps = lsx_v0-vinfo+4(2).
           LOOP AT lsx_result-inter-rt INTO lsx_rt
                                       WHERE v0typ = 'L'
                                       AND v0znr = lsx_v0-v0znr
                                       AND   lgart = '/LLB'.
 
             MOVE: lsx_result-inter-versc-waers TO lfx_opecu,
                   lsx_rt-betrg                 TO pfx_opelo.
 
 *            PERFORM convert_to_local_currency
 *                      USING    pfx_opelo
 *                               lfx_opecu
 *                               pf_dbtcu
 *                               pfx_abrdt
 *                               'W' "called from PBO
 *                               SPACE   "use BAPI for conversion
 *                               pf_pernr
 *                               lfx_molga
 *                               lt_rgdir
 *                      CHANGING pfx_opelo.
             EXIT.
           ENDLOOP.
           IF sy-subrc <> 0.            "no open loan
             MOVE '9' TO pfx_subrc.
             EXIT. "the loop                                 "GWY458200
           ELSE.                                             "GWY458200
             MOVE '0' TO pfx_subrc.     "found open loan     "GWY458200
             EXIT. "the loop                                 "GWY458200
           ENDIF.
         ELSE.                 "this loan is not yet processed in payroll
           MOVE '7' TO pfx_subrc.
         ENDIF.
       ENDLOOP.
 
 *     get the correct payment for loans paid back already:
 *       in a productive system one can assume that a loan with
 *       q0045-begdaf < pfx_abrdt will be eather be open or paid back
       CHECK p0045-begda < pfx_abrdt.    "#EC PORTABLE        "GWY458200
 *     calculate ammount beeing payed so far
       PERFORM clear_ltrgdir TABLES ltx_rgdir.
       DESCRIBE TABLE ltx_rgdir LINES lfx_line.
       SORT ltx_rgdir ASCENDING BY seqnr.
       READ TABLE ltx_rgdir INDEX 1.
       lfx_fday = ltx_rgdir-fpbeg.
       READ TABLE ltx_rgdir INDEX lfx_line.
       lfx_lday = ltx_rgdir-fpend.
 
       SORT pt_savp ASCENDING BY zahld.
       LOOP AT pt_savp WHERE pydir = 'O'
                       AND   sprps = space.
         IF pt_savp-zahld >= lfx_fday AND
            pt_savp-zahld <= lfx_lday.
 
           LOOP AT ltx_rgdir WHERE fpbeg <= pt_savp-zahld
                               AND fpend >= pt_savp-zahld.
             EXIT.
           ENDLOOP.
 
           IF sy-subrc NE 0.                                 "JLA1532930
             CONTINUE.
           ENDIF.
 
           ls_paper-pabrj = ltx_rgdir-fpper(4).
           ls_paper-pabrp = ltx_rgdir-fpper+4(2).
 
           CALL FUNCTION 'PCLO_GET_VALUE_DATE_PAYMENT'       "GWY839032
             EXPORTING
               pf_zahla              = pt_savp-zahla
               pf_payment_begda      = pt_savp-zahld
               pf_payment_endda      = pt_savp-endda
               pf_molga              = lfx_molga
               pf_abkrs              = ltx_rgdir-abkrs
 *             PF_ABKRS_BEGDA        = '19000101'
 *             PF_ABKRS_ENDDA        = '99991231'
               pf_paper              = ls_paper
             IMPORTING
               pfx_value_date        = lf_payment_value_date
             EXCEPTIONS
               error                 = 1
               payment_not_in_period = 2
               OTHERS                = 3.
           IF sy-subrc <> 0.
             MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
                   WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
           ENDIF.
 
 *          PERFORM convert_to_local_currency
 *                    USING    pt_savp-betrg
 *                             pt_savp-btrcu
 *                             pf_dbtcu
 *                             lf_payment_value_date
 *                             'W' "called from PBO
 *                             SPACE   "use BAPI for conversion
 *                             pf_pernr
 *                             lfx_molga
 *                             lt_rgdir
 *                    CHANGING pt_savp-betrg.
           ADD pt_savp-betrg TO lfx_amount.
         ENDIF.
       ENDLOOP.
       MOVE lfx_amount TO pfx_paylo.
     ENDIF.
   ENDIF.
 ENDFORM.                               " GET_LOAN_RESULTS