Stima ricavi di competenza CA
#SYSTEM.RAGSOC
#SYSTEM.DATE
#REPORT.PAGE
MESSAGE RESET,F1.101
MESSAGE RESET,F1.102
MESSAGE RESET,F1.103
MESSAGE RESET,F1.104
MESSAGE RESET,F1.105
MESSAGE RESET,F1.106
MESSAGE RESET,F1.107
MESSAGE RESET,F1.108
ANNO
LEVEL C; 2
MESSAGE RESET,F2.101
MESSAGE RESET,F2.102
MESSAGE RESET,F2.103
MESSAGE RESET,F2.104
MESSAGE RESET,F2.105
MESSAGE RESET,F2.106
MESSAGE RESET,F2.107
MESSAGE RESET,F2.108
LEVEL
ANNO
LEVEL
MESSAGE COPY,F2.101
ANNO
MESSAGE COPY,F2.102
LEVEL
MESSAGE RESET,F3.101
MESSAGE RESET,F3.102
MESSAGE RESET,F3.103
MESSAGE RESET,F3.104
MESSAGE RESET,F3.105
MESSAGE RESET,F3.106
MESSAGE RESET,F3.107
MESSAGE RESET,F3.108
LEVEL
LEVEL
MESSAGE COPY,F3.101
CODCMS
DESCRIZ
#COS_BDG
MESSAGE ADD,F3.101
#COS_MAT
MESSAGE ADD,F3.102
#101 @ \ legge il budget
0 = IF \ se 0 per evitare la divisione per 0 mette 100 nella %
100
ELSE
#102 @
100 *
#101 @ F;
2 ROUND
DUP
100 E; IF
DROP
100
THEN
THEN
#THIS !
#RIC_BDG
MESSAGE ADD,F3.104
#103 @
#104 @
*
100 F;
2 ROUND
#THIS !
MESSAGE ADD,F3.105
#RIC_MAT
MESSAGE ADD,F3.106
#105 @
#106 @
-
#THIS !
MESSAGE ADD,F3.107
#105 @
#102 @
-
#THIS !
MESSAGE ADD,F3.108
#105 @
0
=
IF
0
ELSE
#108 @
100
*
#105 @
F;
0
ROUND
THEN
#THIS !
#101 @
0 = IF
100
ELSE
#102 @
100 *
#101 @ F;
2 ROUND
DUP
100 E; IF
DROP
100
THEN
THEN
#THIS !
#105 @
0
=
IF
0
ELSE
#108 @
100
*
#105 @
F;
0
ROUND
THEN
#THIS !
H2.101
H2.102
MESSAGE ADD,F1.101
MESSAGE COPY,F2.101
MESSAGE ADD,F1.102
#101 @
0 = IF
100
ELSE
#102 @
100 *
#101 @ F;
2 ROUND
DUP
100 E; IF
DROP
100
THEN
THEN
#THIS !
MESSAGE ADD,F1.104
MESSAGE ADD,F1.105
MESSAGE ADD,F1.106
MESSAGE ADD,F1.107
MESSAGE ADD,F1.108
#105 @
0
=
IF
0
ELSE
#108 @
100
*
#105 @
F;
0
ROUND
THEN
#THIS !
H3.101
MESSAGE ADD,F2.101
MESSAGE ADD,F2.102
#101 @
0 = IF
100
ELSE
#102 @
100 *
#101 @ F;
2 ROUND
DUP
100 E; IF
DROP
100
THEN
THEN
#THIS !
MESSAGE ADD,F2.104
MESSAGE ADD,F2.105
MESSAGE ADD,F2.106
MESSAGE ADD,F2.107
MESSAGE ADD,F2.108
#105 @
0
=
IF
0
ELSE
#108 @
100
*
#105 @
F;
0
ROUND
THEN
#THIS !
USE SALDANA