Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ************************************************************************
- * *
- * ******************************************** *
- * * > * *
- * * FELIPE * *
- * * CONFIDENCIAL E PROPRIETÁRIO * *
- * * TODOS OS DIREITOS RESERVADOS * *
- * ******************************************** *
- * *
- ************************************************************************
- * NOME DO PROGRAMA : ZPOUPANCA *
- * TÍTULO DO PROGRAMA : CALCULADOR DE POUPANÇA *
- * DESCRIÇÃO : CALCULA OS VALORES QUE SERAO GERADOS NA SUA PO-*
- * UPANAÇA. *
- * PROGRAMADOR : FELIPE LOPES MELO *
- * DATA : 12/04/2018 *
- *----------------------------------------------------------------------*
- * HISTÓRICO DE MUDANÇAS: *
- * MUD DATA AUTOR DESCRIÇÃO *
- * 001 12/04/2018 FELIPE LOPES MELO CÓDIGO INICIAL *
- ************************************************************************
- REPORT zpoupanca.
- DATA: v_mes TYPE i,
- v_vlr TYPE p DECIMALS 2,
- v_jur TYPE p DECIMALS 2,
- v_dep TYPE p DECIMALS 2.
- SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME.
- PARAMETERS: p_valor TYPE p DECIMALS 2, "Valor inicial
- p_depos TYPE p DECIMALS 2. "Depositos mensais
- SELECTION-SCREEN END OF BLOCK b1.
- SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME.
- SELECT-OPTIONS: p_data FOR sy-datum. "Duração do deposito
- PARAMETERS: p_juros TYPE p DECIMALS 2. "Juros da poupança
- SELECTION-SCREEN END OF BLOCK b2.
- INITIALIZATION.
- CLEAR: v_jur,
- v_dep.
- START-OF-SELECTION.
- v_vlr = p_valor.
- CALL FUNCTION 'C14B_DIFF_BT_2_DATES'
- EXPORTING
- i_date_from = p_data-low
- i_date_to = p_data-high
- IMPORTING
- * E_DAYS =
- e_months = v_mes
- * E_YEARS =
- EXCEPTIONS
- plausibility_check_failed = 1
- OTHERS = 2.
- IF sy-subrc <> 0.
- MESSAGE 'Erro na duração do deposito' TYPE 'S' DISPLAY LIKE 'E'.
- LEAVE LIST-PROCESSING.
- ENDIF.
- DO v_mes TIMES.
- v_jur = v_jur + ( v_vlr * p_juros ).
- v_dep = v_dep + p_depos.
- v_vlr = v_vlr + ( v_vlr * p_juros ) + p_depos.
- ENDDO.
- WRITE: 'Valor: R$', p_valor,
- / 'Juros: R$', v_jur,
- / 'Depositos: R$' , v_dep,
- / 'Total: R$', v_vlr.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement