Stima ricavi di competenza CA
#SYSTEM.RAGSOC
#SYSTEM.DATE
#REPORT.PAGE
(LEVELC;2)||(LEVEL=4)
MESSAGE RESET,F2
LEVEL
MESSAGE COPY,F2.97
LEVEL
ANNO
LEVEL
MESSAGE RESET,F3
LEVEL
MESSAGE COPY,F3.97
LEVEL
CODCMS
DESCRIZ
#COS_BDG
MESSAGE ADD,F3.101
#COS_MAT
MESSAGE ADD,F3.102
#COS_PERC
#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.98
H2.99
MESSAGE ADD,F1.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.98
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