campo-sirio/ce/ce1500b.uml

#include "ce1500a.h"

TOOLBAR "Toolbar" 0 -3 0 3

#include <toolbar.h>

ENDPAGE

PAGE "Estremi" -1 -1 78 18

GROUPBOX DLG_NULL 78 5
BEGIN
  PROMPT 0 0 "@bParametri ditta"
END

NUMBER F_DITTA 5
BEGIN
  PROMPT 1 1 "Ditta     "
  FLAGS "DF"
END

STRING F_RAGSOC 50
BEGIN
  PROMPT 26 1 ""
  USE LF_NDITTE
  INPUT CODDITTA F_DITTA
  OUTPUT F_RAGSOC RAGSOC
  CHECKTYPE NORMAL
  FLAGS "DG"
  MESSAGE COPY,1@
END

NUMBER F_ESERCIZIO 4
BEGIN
  PROMPT 1 2 "Esercizio "
  FLAGS "ADGZ"
  USE CCE
  JOIN ESC ALIAS 104 INTO CODTAB==CODTAB
  INPUT CODTAB F_ESERCIZIO
  DISPLAY "Codice esercizio" CODTAB
  DISPLAY "Inizio esercizio" 104@->D0
  DISPLAY "Fine esercizio" 104@->D1
  OUTPUT F_ESERCIZIO CODTAB
  OUTPUT F_INIZIO_ES 104@->D0
  OUTPUT F_FINE_ES 104@->D1
  CHECKTYPE REQUIRED
  MESSAGE COPY,2@
END

DATE F_INIZIO_ES
BEGIN
  PROMPT 26 2 "Inizio "
  FLAGS "D"
  MESSAGE COPY,3@
END

DATE F_FINE_ES
BEGIN
  PROMPT 50 2 "Fine "
  FLAGS "D"
  MESSAGE COPY,4@
END

NUMBER F_GRUPPO 2
BEGIN
  PROMPT 1 3 "Gruppo    "
  FLAGS "DGZ"
  MESSAGE COPY,5@
END

STRING F_SPECIE 4
BEGIN
  PROMPT 16 3 "Specie "
  FLAGS "DG_"
  USE CCB 
  JOIN %CAT ALIAS 400 INTO CODTAB=CODTAB[5,10]
  INPUT CODTAB[1,4] F_ESERCIZIO SELECT
  INPUT CODTAB[5,6] F_GRUPPO
  INPUT CODTAB[7,10] F_SPECIE
  DISPLAY "Gruppo" CODTAB[5,6]
  DISPLAY "Specie" CODTAB[7,10]
  DISPLAY "Descrizione@50" 400@->S0
  OUTPUT F_GRUPPO CODTAB[5,6]
  OUTPUT F_SPECIE CODTAB[7,10]
  OUTPUT F_DESC_GRSP 400@->S0
  CHECKTYPE NORMAL
  MESSAGE COPY,6@
END

STRING F_DESC_GRSP 60 45
BEGIN
  PROMPT 31 3 ""
  FLAGS "DG"
  MESSAGE COPY,7@
END

GROUPBOX DLG_NULL 78 6
BEGIN
  PROMPT 0 5 "@bMovimento"
END

NUMBER F_IDMOV 11
BEGIN
  PROMPT 1 6 "Numero "
  FLAGS "DGZ"
  CHECKTYPE REQUIRED
  FIELD IDMOV
  KEY 1  
  MESSAGE COPY,12@
END

STRING F_DESC_MOV 50
BEGIN
  PROMPT 26 6 ""
  FIELD DESC
  CHECKTYPE REQUIRED
  WARNING "È necessario inserire una descrizione"
END

STRING F_CODMOV 1
BEGIN         
  PROMPT 1 7 "Tipo movimento "
  FLAGS "U"
  USE %TMC
  INPUT CODTAB F_CODMOV 
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CODMOV CODTAB
  OUTPUT F_CODMOV_DES S0
  CHECKTYPE REQUIRED
  FIELD CODMOV
END

STRING F_CODMOV_DES 50 30
BEGIN         
  PROMPT 21 7 ""
  USE %TMC KEY 2
  INPUT S0 F_CODMOV_DES
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT F_CODMOV
  CHECKTYPE REQUIRED
END

DATE F_DTMOV
BEGIN
  PROMPT 56 7 "Data mov. "
  FLAGS "A"
  FIELD DTMOV 
  VALIDATE DATE_CMP_FUNC >= F_INIZIO_ES
  CHECKTYPE REQUIRED
  WARNING "Non è possibile immettere movimenti per esercizi passati"
END

STRING F_TPDOC 2
BEGIN
  PROMPT 1 8 "Tipo documento "
  FLAGS "BU"
  FIELD TPDOC
END

STRING F_NDOC 7
BEGIN
  PROMPT 38 8 "N. doc. "
  FIELD NDOC
  WARNING "È necessario inserire il numero del documento"
END

DATE F_DTDOC
BEGIN
  PROMPT 56 8 "Data doc. "
  FIELD DTDOC 
  WARNING "È necessario inserire la data del documento"
END

NUMBER F_NUMREG 7
BEGIN
  PROMPT 1 9 "Registrazione di prima nota corrispondente   "
  FLAGS "D"
  FIELD NUMREG 
END

GROUPBOX DLG_NULL 78 5
BEGIN
  PROMPT 0 11 "@bMovimento rettificato"
END

NUMBER F_IDRET 11
BEGIN
  PROMPT 1 12 "Numero "
  FLAGS "DZ"
  USE LF_MOVCE
  INPUT IDMOV F_IDRET
  DISPLAY "Movimento@11" IDMOV
  DISPLAY "Data@10" DTMOV
  DISPLAY "Tipo" CODMOV
  DISPLAY "Descrizione Movimento@50" DESC
  OUTPUT F_IDRET IDMOV
  OUTPUT F_DESC_RET DESC
  OUTPUT F_CODMOV_RET CODMOV
  OUTPUT F_DTMOV_RET DTMOV
  OUTPUT F_TPDOC_RET TPDOC
  OUTPUT F_NDOC_RET NDOC
  OUTPUT F_DTDOC_RET DTDOC
  CHECKTYPE REQUIRED
  FIELD IDRET
END

STRING F_DESC_RET 50
BEGIN
  PROMPT 26 12 "" 
  FLAGS "D"
END

STRING F_CODMOV_RET 1
BEGIN         
  PROMPT 1 13 "Tipo movimento "
  FLAGS "GDU"
  USE %TMC
  INPUT CODTAB F_CODMOV_RET
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CODMOV_RET CODTAB
  OUTPUT F_CODMOV_DES_RET S0
  CHECKTYPE REQUIRED
END

STRING F_CODMOV_DES_RET 50 30
BEGIN         
  PROMPT 21 13 ""
  FLAGS "D"
END

DATE F_DTMOV_RET
BEGIN
  PROMPT 56 13 "Data mov. "
  FLAGS "D"
END

STRING F_TPDOC_RET 2
BEGIN
  PROMPT 1 14 "Tipo documento "
  FLAGS "D"
END

STRING F_NDOC_RET 7
BEGIN
  PROMPT 38 14 "N. doc. "
  FLAGS "D"
END

DATE F_DTDOC_RET
BEGIN
  PROMPT 56 14 "Data doc. "
  FLAGS "D"
END

GROUPBOX DLG_NULL 78 5
BEGIN
  PROMPT 0 16 "@bCespite"
END

STRING F_IDCESPITE 10
BEGIN
  PROMPT 1 17 ""
  FLAGS "GUZ"
  USE LF_CESPI 
  JOIN %CAT INTO CODTAB=CODCAT   // Dummy join for resetting CAT, filling CAT handled in program
  INPUT IDCESPITE F_IDCESPITE
  DISPLAY "Codice@10" IDCESPITE
  DISPLAY "Desc@50" DESC
  DISPLAY "Cat." CODCAT
  DISPLAY "Impianto@10" CODIMP
  DISPLAY "Stabilimento@30" STABILIM
  DISPLAY "Reparto@30" REPARTO
  DISPLAY "Data Acq.@10" DTCOMP
  DISPLAY "Data Ali.@10" DTALIEN
  OUTPUT F_IDCESPITE IDCESPITE
  OUTPUT F_DESC_CES DESC
  OUTPUT F_CATEGORIA CODCAT
  OUTPUT F_DESC_CAT 4->S0
  OUTPUT F_IMPIANTO CODIMP
  CHECKTYPE REQUIRED
  FIELD IDCESPITE
  MESSAGE COPY,8@
  ADD RUN ce0 -4
  WARNING "È necessario specificare un cespite valido"
END

STRING F_DESC_CES 60
BEGIN
  PROMPT 14 17 ""
  USE LF_CESPI KEY 2
  INPUT DESC F_DESC_CES
  DISPLAY "Desc@50" DESC
  DISPLAY "Codice@10" IDCESPITE
  DISPLAY "Cat." CODCAT
  DISPLAY "Impianto@10" CODIMP
  DISPLAY "Stabilimento@30" STABILIM
  DISPLAY "Reparto@30" REPARTO
  DISPLAY "Data Acq.@10" DTCOMP
  DISPLAY "Data Ali.@10" DTALIEN
  COPY OUTPUT F_IDCESPITE
  CHECKTYPE SEARCH
  MESSAGE COPY,9@
END

NUMBER F_CATEGORIA 2
BEGIN
  PROMPT 1 18 "Categoria "
  FLAGS "DGZ"
  MESSAGE COPY,10@
END

STRING F_DESC_CAT 70 60
BEGIN
  PROMPT 16 18 ""
  FLAGS "DG"
  MESSAGE COPY,11@
END

NUMBER F_IMPIANTO 11
BEGIN
  PROMPT 1 19 "Impianto "
  USE CIM
  INPUT CODTAB F_IMPIANTO
  OUTPUT F_IMPIANTO CODTAB
  OUTPUT F_DESC_IMP S0
  CHECKTYPE NORMAL
  FLAGS "DG"
END

STRING F_DESC_IMP 50
BEGIN
  PROMPT 26 19 ""
  FLAGS "D"
END

ENDPAGE

PAGE "Valori" -1 -1 78 18

GROUPBOX DLG_NULL 78 5
BEGIN
  PROMPT 0 1 "@bDitta"
END

NUMBER DLG_NULL 5
BEGIN
  PROMPT 1 2 "Ditta     "
  FLAGS "DF"
END

STRING DLG_NULL 50
BEGIN
  PROMPT 26 2 ""
  FLAGS "D"
  GROUP 1
END

NUMBER DLG_NULL 4
BEGIN
  PROMPT 1 3 "Esercizio "
  FLAGS "DZ"
  GROUP 2
END

DATE DLG_NULL
BEGIN
  PROMPT 26 3 "Inizio "
  FLAGS "D"
  GROUP 3
END

DATE DLG_NULL
BEGIN
  PROMPT 50 3 "Fine "
  FLAGS "D"
  GROUP 4
END

NUMBER DLG_NULL 2
BEGIN
  PROMPT 1 4 "Gruppo    "
  FLAGS "DZ"
  GROUP 5
END

STRING DLG_NULL 4
BEGIN
  PROMPT 16 4 "Specie "
  FLAGS "D"
  GROUP 6
END

STRING DLG_NULL 60 45
BEGIN
  PROMPT 31 4 ""
  FLAGS "D"
  GROUP 7
END

GROUPBOX DLG_NULL 78 4
BEGIN
  PROMPT 0 6 "@bCespite"
END

NUMBER DLG_NULL 10
BEGIN
  PROMPT 1 7 ""
  FLAGS "DZ"
  GROUP 8
END

STRING DLG_NULL 60
BEGIN
  PROMPT 16 7 ""
  FLAGS "DZ"
  GROUP 9
END

NUMBER DLG_NULL 2
BEGIN
  PROMPT 1 8 "Categoria "
  FLAGS "DZ"
  GROUP 10
END

STRING DLG_NULL 70 60
BEGIN
  PROMPT 16 8 ""
  FLAGS "D"
  GROUP 11
END  

LIST F_SEGNO 1
BEGIN
  PROMPT 1 10 "Segno movimento "
  ITEM "+|+"
  ITEM "-|-"
  FIELD SEGNO
END

NUMBER F_ELEMENTI 4
BEGIN
  PROMPT 1 11 "Numero elementi "
  FIELD NUMELE
END

CURRENCY F_COSTO 15
BEGIN
  PROMPT 1 12 "Costo storico                      "
  FIELD CSTO
END

CURRENCY F_VNONAMM 15
BEGIN
  PROMPT 1 13 "Valore non ammortizzabile          "
  FIELD VNONAMM
END

CURRENCY F_PLUSREIN 15
BEGIN
  PROMPT 1 14 "Plusvalenza reinvestita            "
  FIELD PLUSREIN
END

CURRENCY F_RIV75 15
BEGIN
  PROMPT 1 15 "Rivalutazione L. 576/75            "
  FIELD RIV75
END

CURRENCY F_RIV83 15
BEGIN
  PROMPT 1 16 "Rivalutazione L. 72/83             "
  FIELD RIV83
END

CURRENCY F_RIV90 15
BEGIN
  PROMPT 1 17 "Rivalutazione L. 408/90            "
  FIELD RIV90
END

CURRENCY F_RIV91 15
BEGIN
  PROMPT 1 18 "Rivalutazione L. 413/91            "
  FIELD RIV91
END

CURRENCY F_RIVGF 15
BEGIN
  PROMPT 1 19 "Rivalutazione generica fiscale     "
  FIELD RIVGF
END

CURRENCY F_RIVGC 15
BEGIN
  PROMPT 1 20 "Rivalutazione generica civilistica "
  FIELD RIVGC
END

CURRENCY F_IMPVEN 15
BEGIN
  PROMPT 45 10 "Importo vendita "
  FIELD IMPVEN
END

TEXT F_PLUSMIN_FIS_TXT
BEGIN
  PROMPT 54 12 "Minusvalenza fiscale"
END

CURRENCY F_PLUSMIN_FIS 15
BEGIN
  PROMPT 61 13 ""
  FLAGS "D"
END

TEXT F_PLUSMIN_CIV_TXT
BEGIN
  PROMPT 54 15 "Minusvalenza civilistica"
END

CURRENCY F_PLUSMIN_CIV 15
BEGIN
  PROMPT 61 16 ""
  FLAGS "D"
END

TEXT F_PLUSMIN_GES_TXT
BEGIN
  PROMPT 54 18 "Minusvalenza gestionale"
END

CURRENCY F_PLUSMIN_GES 15
BEGIN
  PROMPT 61 19 ""
  FLAGS "D"
END

ENDPAGE

PAGE "Fondi" -1 -1 78 18

GROUPBOX DLG_NULL 78 5
BEGIN
  PROMPT 0 1 "@bDitta"
END

NUMBER DLG_NULL 5
BEGIN
  PROMPT 1 2 "Ditta     "
  FLAGS "DF"
END

STRING DLG_NULL 50
BEGIN
  PROMPT 26 2 ""
  FLAGS "D"
  GROUP 1
END

NUMBER DLG_NULL 4
BEGIN
  PROMPT 1 3 "Esercizio "
  FLAGS "DZ"
  GROUP 2
END

DATE DLG_NULL
BEGIN
  PROMPT 26 3 "Inizio "
  FLAGS "D"
  GROUP 3
END

DATE DLG_NULL
BEGIN
  PROMPT 50 3 "Fine "
  FLAGS "D"
  GROUP 4
END

NUMBER DLG_NULL 2
BEGIN
  PROMPT 1 4 "Gruppo    "
  FLAGS "DZ"
  GROUP 5
END

STRING DLG_NULL 4
BEGIN
  PROMPT 16 4 "Specie "
  FLAGS "D"
  GROUP 6
END

STRING DLG_NULL 60 45
BEGIN
  PROMPT 31 4 ""
  FLAGS "D"
  GROUP 7
END

GROUPBOX DLG_NULL 78 4
BEGIN
  PROMPT 0 6 "@bCespite"
END

NUMBER DLG_NULL 10
BEGIN
  PROMPT 1 7 ""
  FLAGS "DZ"
  GROUP 8
END

STRING DLG_NULL 60
BEGIN
  PROMPT 16 7 ""
  FLAGS "DZ"
  GROUP 9
END

NUMBER DLG_NULL 2
BEGIN
  PROMPT 1 8 "Categoria "
  FLAGS "DZ"
  GROUP 10
END

STRING DLG_NULL 70 60
BEGIN
  PROMPT 16 8 ""
  FLAGS "D"
  GROUP 11
END  

TEXT DLG_NULL
BEGIN
  PROMPT 1 10 "@bTipo ammortamento"
END

TEXT DLG_NULL
BEGIN
  PROMPT 27 10 "@bFiscale"
END

TEXT DLG_NULL
BEGIN
  PROMPT 44 10 "@bCivilistico"
END

TEXT DLG_NULL
BEGIN
  PROMPT 63 10 "@bGestionale"
END

NUMBER F_IDMOVAM 11
BEGIN
  PROMPT 31 38 "IDMOV     "
  FIELD LF_MOVAM->IDMOV
  FLAGS "DZ"
  GROUP 12
END

STRING F_IDCESAM 10
BEGIN
  PROMPT 31 39 "IDCESPITE "
  FIELD LF_MOVAM->IDCESPITE
  FLAGS "DUZ"
  GROUP 8
END

LIST DLG_NULL 1
BEGIN
  PROMPT 31 40 "TPAMM     "
  ITEM "1|1"
  FLAGS "D"
  FIELD LF_MOVAM->TPAMM
END

TEXT DLG_NULL
BEGIN
  PROMPT 1 11 "Normale"
END

CURRENCY F_NORMALE 15
BEGIN
  PROMPT 23 11 ""
  FIELD LF_MOVAM->QNOR
END

TEXT DLG_NULL
BEGIN
  PROMPT 1 12 "Accelerato"
END

CURRENCY F_ACCELERATO 15
BEGIN
  PROMPT 23 12 ""
  FIELD LF_MOVAM->QACC
END

TEXT DLG_NULL
BEGIN
  PROMPT 1 13 "Anticipato"
END

CURRENCY F_ANTICIPATO 15
BEGIN
  PROMPT 23 13 ""
  FIELD LF_MOVAM->QANT
END

TEXT DLG_NULL
BEGIN
  PROMPT 1 15 "Quote perse"
END

CURRENCY F_QPERSE 15
BEGIN
  PROMPT 23 15 ""
  FIELD LF_MOVAM->QPERSE
END

TEXT DLG_NULL
BEGIN
  PROMPT 1 16 "Fondo amm. privato"
END

CURRENCY F_FPRIVATO 15
BEGIN
  PROMPT 23 16 ""
  FIELD LF_MOVAM->FPRIVATO
END

TEXT DLG_NULL
BEGIN
  PROMPT 1 17 "Quote perse private"
END

CURRENCY F_QPERSEPRIV 15
BEGIN
  PROMPT 23 17 ""
  FIELD LF_MOVAM->QPPRIVATE
END

#define LF_MOVAM2 2@

CURRENCY F_NORMALE2 15
BEGIN
  PROMPT 42 11 ""
  FIELD LF_MOVAM2->QNOR
END

CURRENCY F_ACCELERATO2 15
BEGIN
  PROMPT 42 12 ""
  FIELD LF_MOVAM2->QACC
END

CURRENCY F_ANTICIPATO2 15
BEGIN
  PROMPT 42 13 ""
  FIELD LF_MOVAM2->QANT
END

NUMBER F_IDMOVAM2 11
BEGIN
  PROMPT 56 38 "IDMOV     "
  FIELD LF_MOVAM2->IDMOV
  FLAGS "DZ"
  GROUP 12
END

STRING F_IDCESAM2 10
BEGIN
  PROMPT 56 39 "IDCESPITE "
  FIELD LF_MOVAM2->IDCESPITE
  FLAGS "DUZ"
  GROUP 8
END

LIST DLG_NULL 1
BEGIN
  PROMPT 56 40 "TPAMM     "
  FLAGS "D"
  ITEM "2|2"
  FIELD LF_MOVAM2->TPAMM
END

#define LF_MOVAM3 3@

CURRENCY F_NORMALE3 15
BEGIN
  PROMPT 61 11 ""
  FIELD LF_MOVAM3->QNOR
END

CURRENCY F_ACCELERATO3 15
BEGIN
  PROMPT 61 12 ""
  FIELD LF_MOVAM3->QACC
END

CURRENCY F_ANTICIPATO3 15
BEGIN
  PROMPT 61 13 ""
  FIELD LF_MOVAM3->QANT
END

NUMBER F_IDMOVAM3 11
BEGIN
  PROMPT 56 38 "IDMOV     "
  FIELD LF_MOVAM3->IDMOV
  FLAGS "DZ"
  GROUP 12
END

STRING F_IDCESAM3 10
BEGIN
  PROMPT 56 39 "IDCESPITE "
  FIELD LF_MOVAM3->IDCESPITE
  FLAGS "DUZ"
  GROUP 8
END

LIST DLG_NULL 1
BEGIN
  PROMPT 56 40 "TPAMM     "
  FLAGS "D"
  ITEM "3|3"
  FIELD LF_MOVAM3->TPAMM
END

ENDPAGE

PAGE "Saldi" -1 -1 78 18

GROUPBOX DLG_NULL 78 5
BEGIN
  PROMPT 0 1 "@bDitta"
END

NUMBER DLG_NULL 5
BEGIN
  PROMPT 1 2 "Ditta     "
  FLAGS "DF"
END

STRING DLG_NULL 50
BEGIN
  PROMPT 26 2 ""
  FLAGS "D"
  GROUP 1
END

NUMBER DLG_NULL 4
BEGIN
  PROMPT 1 3 "Esercizio "
  FLAGS "DZ"
  GROUP 2
END

DATE DLG_NULL
BEGIN
  PROMPT 26 3 "Inizio "
  FLAGS "D"
  GROUP 3
END

DATE DLG_NULL
BEGIN
  PROMPT 50 3 "Fine "
  FLAGS "D"
  GROUP 4
END

NUMBER DLG_NULL 2
BEGIN
  PROMPT 1 4 "Gruppo    "
  FLAGS "DZ"
  GROUP 5
END

STRING DLG_NULL 4
BEGIN
  PROMPT 16 4 "Specie "
  FLAGS "D"
  GROUP 6
END

STRING DLG_NULL 60 45
BEGIN
  PROMPT 31 4 ""
  FLAGS "D"
  GROUP 7
END

GROUPBOX DLG_NULL 78 4
BEGIN
  PROMPT 0 6 "@bCespite"
END

NUMBER DLG_NULL 10
BEGIN
  PROMPT 1 7 ""
  FLAGS "DZ"
  GROUP 8
END

STRING DLG_NULL 60
BEGIN
  PROMPT 16 7 ""
  FLAGS "DZ"
  GROUP 9
END

NUMBER DLG_NULL 2
BEGIN
  PROMPT 1 8 "Categoria "
  FLAGS "DZ"
  GROUP 10
END

STRING DLG_NULL 70 60
BEGIN
  PROMPT 16 8 ""
  FLAGS "D"
  GROUP 11
END  

TEXT DLG_NULL
BEGIN
  PROMPT 1 10 "@bTipo situazione"
END

RADIOBUTTON S_TIPO 78
BEGIN
  PROMPT 27 9 ""
  FLAGS "Z"
  ITEM "1|Fiscale"
  ITEM "2|Civilistica"
  ITEM "3|Gestionale"
END

DATE S_DATAMOV
BEGIN
  PROMPT 1 11 "Saldo alla data "
  FLAGS "D"
END

NUMBER S_ELEMENTI 4
BEGIN
  PROMPT 1 12 "Numero elementi "
  FLAGS "D"
END

CURRENCY S_COSTO 15
BEGIN
  PROMPT 1 13 "Costo storico   "
  FLAGS "D"
END

CURRENCY S_VNONAMM 15
BEGIN
  PROMPT 1 14 "Val. non amm.   "
  FLAGS "D"
END

CURRENCY S_PLUSREIN 15
BEGIN
  PROMPT 1 15 "Plusv. reinv.   "
  FLAGS "D"
END

CURRENCY S_TOTRIV 15
BEGIN
  PROMPT 1 16 "Tot. Rivalutaz. "
  FLAGS "D"
END

CURRENCY S_TOTVAL 15
BEGIN
  PROMPT 1 17 "@bTOTALE VALORI   "
  FLAGS "D"
END

CURRENCY S_NORMALE 15
BEGIN
  PROMPT 35 11 "Fondo ammort. normale     "
  FLAGS "D"
END

CURRENCY S_ACCELERATO 15
BEGIN
  PROMPT 35 12 "Fondo ammort. accelerato  "
  FLAGS "D"
END

CURRENCY S_ANTICIPATO 15
BEGIN
  PROMPT 35 13 "Fondo ammort. anticipato  "
  FLAGS "D"
END

CURRENCY S_QPERSE 15
BEGIN
  PROMPT 35 14 "Fondo quote perse         "
  FLAGS "D"
END

CURRENCY S_FPRIVATO 15
BEGIN
  PROMPT 35 15 "Fondo ammort. privato     "
  FLAGS "D"
END

CURRENCY S_QPERSEP 15
BEGIN
  PROMPT 35 16 "Fondo quote perse private "
  FLAGS "D"
END

CURRENCY S_TOTFON 15
BEGIN
  PROMPT 35 17 "@bTOTALE FONDI              "
  FLAGS "D"
END

CURRENCY S_RESIDUO 15
BEGIN
  PROMPT 35 18 "@bRESIDUO (VALORI-FONDI)    "
  FLAGS "D"
END

CURRENCY S_PLUS 15
BEGIN
  PROMPT 1 19 "PLUSVALENZA     "
  FLAGS "D"
END

CURRENCY S_MINUS 15
BEGIN
  PROMPT 35 19 "MINUSVALENZA              "
  FLAGS "D"
END

ENDMASK