Proiezione ammortamenti cespiti

MESSAGE RESET,F1 #SYSTEM.RAGSOC #SYSTEM.DATE #REPORT.PAGE

I0 MESSAGE RESET,F2 I0 MESSAGE COPY,F2.100

#FINESCPREC #ANNOES #ANNOES #ANNOES #ANNOES #ANNOES+1 #ANNOES+2 #ANNOES+3 #ANNOES+4

#RESAMME;0 CODTAB[7,8] S0 #VALAMM MESSAGE ADD,F2.101 #VALAMM-#RESAMM MESSAGE ADD,F2.102 #ALIENAZIONI MESSAGE ADD,F2.103 #RESAMM MESSAGE ADD,F2.104 #ACQUISIZIONI MESSAGE ADD,F2.105 #AMMO1 MESSAGE ADD,F2.106 #AMMO2 MESSAGE ADD,F2.107 #AMMO3 MESSAGE ADD,F2.108 #AMMO4 MESSAGE ADD,F2.109 #AMMO5 MESSAGE ADD,F2.110 #AMMOX MESSAGE ADD,F2.111 #104 @ \ residuo #103 @ - \ sottrae alienzioni #105 @ + \ somma incrementi DUP 0 E; IF #106 @ \ ammortamento primo anno 100 * SWAP F; 0 ROUND ELSE DROP 0 THEN #THIS !

MESSAGE ADD,F1.105 MESSAGE ADD,F1.106 MESSAGE ADD,F1.107 MESSAGE ADD,F1.108 MESSAGE ADD,F1.109 MESSAGE ADD,F1.110

MESSAGE ADD,F1.101 MESSAGE ADD,F1.102 MESSAGE ADD,F1.103 MESSAGE ADD,F1.104 MESSAGE ADD,F1.105 MESSAGE ADD,F1.106 MESSAGE ADD,F1.107 MESSAGE ADD,F1.108 MESSAGE ADD,F1.109 MESSAGE ADD,F1.110 MESSAGE ADD,F1.111

USE %CAC BY I0 CODTAB[7,8]