Advertisement
felipelm3g

ZPOUPANCA

Apr 12th, 2018
154
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
ABAP 2.93 KB | None | 0 0
  1. ************************************************************************
  2. *                                                                      *
  3. *             ********************************************             *
  4. *             *                     >                    *             *
  5. *             *                  FELIPE                  *             *
  6. *             *        CONFIDENCIAL E PROPRIETÁRIO       *             *
  7. *             *       TODOS OS DIREITOS RESERVADOS       *             *
  8. *             ********************************************             *
  9. *                                                                      *
  10. ************************************************************************
  11. * NOME DO PROGRAMA    : ZPOUPANCA                                      *
  12. * TÍTULO DO PROGRAMA  : CALCULADOR DE POUPANÇA                         *
  13. * DESCRIÇÃO           : CALCULA OS VALORES QUE SERAO GERADOS NA SUA PO-*
  14. *                       UPANAÇA.                                       *
  15. * PROGRAMADOR         : FELIPE LOPES MELO                              *
  16. * DATA                : 12/04/2018                                     *
  17. *----------------------------------------------------------------------*
  18. * HISTÓRICO DE MUDANÇAS:                                               *
  19. * MUD  DATA        AUTOR                 DESCRIÇÃO                     *
  20. * 001  12/04/2018  FELIPE LOPES MELO     CÓDIGO INICIAL                *
  21. ************************************************************************
  22. REPORT zpoupanca.
  23.  
  24. DATA: v_mes TYPE i,
  25.       v_vlr TYPE p DECIMALS 2,
  26.       v_jur TYPE p DECIMALS 2,
  27.       v_dep TYPE p DECIMALS 2.
  28.  
  29. SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME.
  30. PARAMETERS: p_valor TYPE p DECIMALS 2, "Valor inicial
  31.             p_depos TYPE p DECIMALS 2. "Depositos mensais
  32. SELECTION-SCREEN END OF BLOCK b1.
  33.  
  34. SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME.
  35. SELECT-OPTIONS: p_data FOR sy-datum. "Duração do deposito
  36. PARAMETERS: p_juros TYPE p DECIMALS 2. "Juros da poupança
  37. SELECTION-SCREEN END OF BLOCK b2.
  38.  
  39. INITIALIZATION.
  40.   CLEAR: v_jur,
  41.          v_dep.
  42.  
  43. START-OF-SELECTION.
  44.  
  45.   v_vlr = p_valor.
  46.  
  47.   CALL FUNCTION 'C14B_DIFF_BT_2_DATES'
  48.     EXPORTING
  49.       i_date_from               = p_data-low
  50.       i_date_to                 = p_data-high
  51.     IMPORTING
  52. *     E_DAYS                    =
  53.       e_months                  = v_mes
  54. *     E_YEARS                   =
  55.     EXCEPTIONS
  56.       plausibility_check_failed = 1
  57.       OTHERS                    = 2.
  58.   IF sy-subrc <> 0.
  59.     MESSAGE 'Erro na duração do deposito' TYPE 'S' DISPLAY LIKE 'E'.
  60.     LEAVE LIST-PROCESSING.
  61.   ENDIF.
  62.  
  63.   DO v_mes TIMES.
  64.  
  65.     v_jur = v_jur + ( v_vlr * p_juros ).
  66.     v_dep = v_dep + p_depos.
  67.     v_vlr = v_vlr + ( v_vlr * p_juros ) + p_depos.
  68.  
  69.   ENDDO.
  70.  
  71.   WRITE: 'Valor:     R$', p_valor,
  72.         / 'Juros:     R$', v_jur,
  73.         / 'Depositos: R$' , v_dep,
  74.         / 'Total:     R$', v_vlr.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement