-
Notifications
You must be signed in to change notification settings - Fork 0
/
ZEXERCICOALGORITIMOO2
23 lines (20 loc) · 1.01 KB
/
ZEXERCICOALGORITIMOO2
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
*&---------------------------------------------------------------------*
*& Report ZEXERCICOALGORITIMOO2
*&---------------------------------------------------------------------*
*& Informar os 3 últimos preços usados na compra de um material e calcular o preço médio do material,
*& para ser usado como informação na cotação com fornecedores.
*&---------------------------------------------------------------------*
REPORT ZEXERCICOALGORITIMOO2.
*definicao de campos de tela
SELECTION-SCREEN BEGIN OF BLOCK bloco1 WITH FRAME TITLE text-001.
PARAMETERS: P_PRECO1 TYPE P DECIMALS 2,
P_PRECO2 TYPE P DECIMALS 2,
P_PRECO3 TYPE P DECIMALS 2.
SELECTION-SCREEN END OF BLOCK bloco1.
DATA : MEDIA TYPE P DECIMALS 2.
MEDIA = ( P_PRECO1 + P_PRECO2 + P_PRECO3 ) * 3.
* Exibição dos resultados
WRITE: / 'Preço 1:', P_PRECO1 CURRENCY 'BRL',
/ 'Preço 2:', P_PRECO2 CURRENCY 'BRL',
/ 'Preço 3:', P_PRECO3 CURRENCY 'BRL',
/ 'Preço Médio:', MEDIA CURRENCY 'BRL'.