campo-sirio/ce/ce1500b.uml

#include "ce1500a.h"

TOOLBAR "topbar" 0 0 0 2
#include <relapbar.h>
ENDPAGE

PAGE "Estremi" 0 2 0 0

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 "<22> 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 <20> 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 "<22> necessario inserire il numero del documento"
END

DATE F_DTDOC
BEGIN
  PROMPT 56 8 "Data doc. "
  FIELD DTDOC 
  WARNING "<22> 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 "<22> 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

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

NUMBER F_ELEMENTI 4
BEGIN
  PROMPT 57 10 "Numero elementi "
  FIELD NUMELE
END

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

CURRENCY F_PLUSREIN 15
BEGIN
  PROMPT 37 11 "Plusvalenza reinvestita  "
  FIELD PLUSREIN
END

GROUPBOX DLG_NULL 78 3
BEGIN
  PROMPT 1 12 "@bValore non ammortizzabile"
END

CURRENCY F_VNONAMM 15
BEGIN
  PROMPT 2 13 "Fiscale          "
  FIELD VNONAMM
END

CURRENCY F_VNONAMMC 15
BEGIN
  PROMPT 41 13 "Civilistico          "
  FIELD VNONAMMC
END

GROUPBOX DLG_NULL 78 5
BEGIN
  PROMPT 1 15 "@bRivalutazioni"
END

CURRENCY F_RIV75 15
BEGIN
  PROMPT 2 16 "L. 576/75        "
  FIELD RIV75
END

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

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

CURRENCY F_RIV91 15
BEGIN
  PROMPT 41 17 "L. 413/91            "
  FIELD RIV91
END

CURRENCY F_RIVGF 15
BEGIN
  PROMPT 2 18 "Generica fiscale "
  FIELD RIVGF
END

CURRENCY F_RIVGC 15
BEGIN
  PROMPT 41 18 "Generica civilistica "
  FIELD RIVGC
END

TEXT F_PLUSMIN_FIS_TXT
BEGIN
  PROMPT 1 20 "Minusvalenza fiscale"
END

CURRENCY F_PLUSMIN_FIS 15
BEGIN
  PROMPT 5 21 ""
  FLAGS "D"
END

TEXT F_PLUSMIN_CIV_TXT
BEGIN
  PROMPT 25 20 "Minusvalenza civilistica"
END

CURRENCY F_PLUSMIN_CIV 15
BEGIN
  PROMPT 33 21 ""
  FLAGS "D"
END

TEXT F_PLUSMIN_GES_TXT
BEGIN
  PROMPT 54 20 "Minusvalenza gestionale"
END

CURRENCY F_PLUSMIN_GES 15
BEGIN
  PROMPT 62 21 ""
  FLAGS "D"
END

ENDPAGE

PAGE "Fabbricati" -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 

GROUPBOX DLG_NULL 78 9
BEGIN
  PROMPT 0 10 "@bScorporo terreno per fabbricati strumentali art.43 D.L.223/06"
END

LIST F_FABBR06 13
BEGIN
  PROMPT 1 11 "Tipologia del fabbricato  "
  ITEM "0|"
  ITEM "1|Industriale"
  ITEM "2|Altro"
  FLAGS "D"
END

DATE F_DATASCORP06
BEGIN
  PROMPT 1 12 "Data immissione scorporo  "
  FLAGS "D"
END

CURRENCY F_VALTERR06 15
BEGIN
  PROMPT 1 13 "Valore del terreno        "
  GROUP 13
  FIELD VALTERR06
END

CURRENCY F_VALCALC06 15
BEGIN
  PROMPT 1 14 "Valore calcolo % scorporo "
  FIELD VALCALC06
  GROUP 13
END

NUMBER F_PERCALC06 6 2
BEGIN
  PROMPT 1 15 "% da scorporare           "
  GROUP 13
  FIELD PERCALC06
END

NUMBER F_RISCALC06 15
BEGIN
  PROMPT 1 16 "Risultato dello scorporo  "
  PICTURE ".2"
  FLAGS "DG"
  DRIVENBY F_VALCALC06 F_PERCALC06
  NUM_CALC ROUND(#F_VALCALC06*#F_PERCALC06/100;2)  
END

NUMBER F_VNONAMM06 15
BEGIN
  PROMPT 1 17 "Costo indeducibile        "
  PICTURE ".2"
  FIELD VNONAMM06
  FLAGS "DG"
  DRIVENBY F_RISCALC06 F_VALTERR06
  NUM_CALC IF(#F_RISCALC06>#F_VALTERR06;#F_RISCALC06;#F_VALTERR06)
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

TEXT -1
BEGIN
  PROMPT 1 17 "@bTOTALE VALORI "
END

CURRENCY S_TOTVAL 15
BEGIN
  PROMPT 17 17 ""
  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

TEXT -1
BEGIN
  PROMPT 35 17 "@bTOTALE FONDI"
END

CURRENCY S_TOTFON 15
BEGIN
  PROMPT 61 17 ""
  FLAGS "D"
END

TEXT -1
BEGIN
  PROMPT 35 18 "@bRESIDUO (VALORI-FONDI)"
END

CURRENCY S_RESIDUO 15
BEGIN
  PROMPT 61 18 ""
  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