campo-sirio/ce/ce0500b.uml

#include "ce0500a.h"

TOOLBAR "Toolbar" 0 -3 0 3

#include <toolbar.h>

ENDPAGE

PAGE "Cespite" -1 -1 78 18

GROUPBOX DLG_NULL 78 4
BEGIN
  PROMPT 0 1 "@bParametri ditta"
END

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

STRING F_RAGSOC 50
BEGIN
  PROMPT 26 2 ""
  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 3 "Esercizio "
  FLAGS "DGZ"
  USE ESC
  INPUT CODTAB F_ESERCIZIO
  OUTPUT F_ESERCIZIO CODTAB
  OUTPUT F_INIZIO_ES D0
  OUTPUT F_FINE_ES D1
  CHECKTYPE REQUIRED
  MESSAGE COPY,2@
END

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

DATE F_FINE_ES
BEGIN
  PROMPT 50 3 "Fine "
  FLAGS "DG"
  MESSAGE COPY,4@
END

NUMBER F_IDCESPITE 10
BEGIN
  PROMPT 1 5 "Cespite   "
  FLAGS "DZ"
  FIELD IDCESPITE
  KEY 1
END

STRING F_DESC 50
BEGIN
  PROMPT 26 5 ""
  CHECKTYPE REQUIRED
  FIELD DESC
  MESSAGE COPY,5@
END

NUMBER F_GRUPPO 2
BEGIN
  PROMPT 1 6 "Gruppo    "
  FLAGS "DZ"
  FIELD CODCGRA
END

STRING F_SPECIE 4
BEGIN
  PROMPT 16 6 "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
  FIELD CODSPA
END

STRING F_DESC_GRSP 60 45
BEGIN
  PROMPT 31 6 ""
  FLAGS "D"
END

NUMBER F_CATEGORIA 2
BEGIN
  PROMPT 1 7 "Categoria "
  FLAGS "DGZ"
  FIELD CODCAT
END

STRING F_DESC_CAT 60
BEGIN
  PROMPT 16 7 ""
  FLAGS "D"
END

NUMBER F_IMPIANTO 10
BEGIN
  PROMPT 1 8 "Impianto       "
  FLAGS "Z"
  USE CIM
  INPUT CODTAB F_IMPIANTO    
  DISPLAY "Codice@10" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_IMPIANTO CODTAB
  OUTPUT F_DESC_IMP S0
  CHECKTYPE NORMAL
  FIELD CODIMP
END

STRING F_DESC_IMP 50 44
BEGIN
  PROMPT 30 8 ""
  FLAGS "Z"
  USE CIM KEY 2
  INPUT S0 F_DESC_IMP
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice@10" CODTAB
  COPY OUTPUT F_IMPIANTO
  CHECKTYPE NORMAL
END

NUMBER F_LOCALIZZ 10
BEGIN    
  PROMPT 1 9 "Localizzazione "
  FLAGS "Z"
  USE LOC
  INPUT CODTAB F_LOCALIZZ
  DISPLAY "Codice@10" CODTAB
  DISPLAY "Descrizione@50" S0
  DISPLAY "Unit<69> Locale" I0
  OUTPUT F_LOCALIZZ CODTAB
  OUTPUT F_LOCALIZZ_DESC S0
  CHECKTYPE NORMAL
  FIELD CODLOC
END

STRING F_LOCALIZZ_DESC 50 44
BEGIN    
  PROMPT 30 9 ""
  USE LOC KEY 2
  INPUT S0 F_LOCALIZZ_DESC
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice@10" CODTAB
  DISPLAY "Unit<69> Locale" I0
  COPY OUTPUT F_LOCALIZZ
  CHECKTYPE NORMAL
END

DATE F_DTCOMP
BEGIN
  PROMPT 1 10 "Data completamento/acquisizione " 
  FIELD DTCOMP
END

BOOLEAN F_TUIR
BEGIN
  PROMPT 52 10 "Gestione secondo TUIR"
  FIELD TUIR
END

DATE F_DTFUNZ
BEGIN
  PROMPT 1 11 "Data di entrata in funzione     " 
  FIELD DTFUNZ
END

DATE F_DTALIEN
BEGIN
  PROMPT 46 11 "Data di alienazione " 
  FIELD DTALIEN
END

BOOLEAN F_AMMPROP
BEGIN
  PROMPT 1 12 "Ammortamento proporzionale da entrata in funzione"
  FIELD AMMPROP
END

BOOLEAN F_ESCLPR
BEGIN
  PROMPT 1 13 "Esclusione da rinvio a conseguimento ricavi"
  FIELD ESCLPR
END

BOOLEAN F_VEIDIP
BEGIN
  PROMPT 1 14 "Veicolo in uso promiscuo a dipendente"
  FIELD VEIDIP
END

BOOLEAN F_LEASING
BEGIN
  PROMPT 1 15 "Cespite oggetto di leasing"
  FIELD LEASING
  MESSAGE FALSE HIDE,F_ANNIRIC
  MESSAGE TRUE SHOW,F_ANNIRIC
END

NUMBER F_ANNIRIC 3
BEGIN
  PROMPT 40 15 "Anni di durata del leasing "
  FIELD ANNIRIC
END

BOOLEAN F_USATO
BEGIN
  PROMPT 1 16 "Cespite acquistato usato"
  FIELD USATO
END

LIST F_SPEMAN 1 24
BEGIN
  PROMPT 1 17 "Gestione spese manutenzione "
  ITEM "1|Escluso"
  ITEM "2|Incluso 5%"
  ITEM "3|Incluso 25%"
  ITEM "4|Articolo 14 legge 449/97"
  FIELD TPSPEMAN
END

NUMBER F_VEICOLO 1
BEGIN
  PROMPT 1 18 "Tipo di veicolo "
  SHEET "Tipo@4R|Descrizione@70"
  INPUT F_VEICOLO
  ITEM "1|Nessuno"
  ITEM "2|Autovettura, Autocaravan, ecc..."
  ITEM "3|Motociclo"
  ITEM "4|Ciclomotore"
  ITEM "5|Altro, (Aeromobili da turismo, Navi e imbarcazioni da diporto, Altri veicoli)"
  OUTPUT F_VEICOLO
  OUTPUT F_DESC_VEICOLO
  FIELD FLGTPVEI
END

STRING F_DESC_VEICOLO 80 54
BEGIN
  PROMPT 22 18 ""
  FLAGS "D"
END

NUMBER F_USOPROM 1
BEGIN
  PROMPT 1 19 "Uso promiscuo   "
  SHEET "Tipo@4R|Descrizione@60"
  INPUT F_USOPROM
  ITEM "1|Deducibilita 100% - Esclusivamente strumentale"
  ITEM "2|Deducibilita 50% - Uso promiscuo"
  ITEM "3|Deducibilita 80% - Uso promiscuo agenti/rappresentanti"
  OUTPUT F_USOPROM
  OUTPUT F_DESC_USOPROM
  FIELD USOPROM
END

STRING F_DESC_USOPROM 54
BEGIN
  PROMPT 22 19 ""
  FLAGS "D"
END

ENDPAGE

PAGE "Saldi" -1 -1 78 18

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

NUMBER DLG_NULL 6
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 10
BEGIN
  PROMPT 1 4 "Cespite   "
  FLAGS "DZ"
  FIELD IDCESPITE
END

STRING DLG_NULL 50
BEGIN
  PROMPT 26 4 ""
  FLAGS "DZ"
  GROUP 5
END

NUMBER F_ELEMENTI 4
BEGIN
  PROMPT 1 6 "Elementi "
  FIELD LF_SALCE->NUMELE
END

CURRENCY F_COSTO 15
BEGIN
  PROMPT 1 7 "Costo storico                      "
  FIELD LF_SALCE->CSTO
END

CURRENCY F_VNONAMM 15
BEGIN
  PROMPT 1 8 "Valore non ammortizzabile          "
  FIELD LF_SALCE->VNONAMM
END

CURRENCY F_PLUSREIN 15
BEGIN
  PROMPT 1 9 "Plusvalenza reinvestita            "
  FIELD LF_SALCE->PLUSREIN
END

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

CURRENCY F_RIV83 15
BEGIN
  PROMPT 1 11 "Rivalutazione L. 72/83             "
  FIELD LF_SALCE->RIV83
END

CURRENCY F_RIV90 15
BEGIN
  PROMPT 1 12 "Rivalutazione L. 408/90            "
  FIELD LF_SALCE->RIV90
END

NUMBER F_ANNI_90 2
BEGIN
  PROMPT 1 13 "Anni post rivalutazione L. 408/90  " 
  FIELD LF_SALCE->ANNIPOST90
END

CURRENCY F_RIV91 15
BEGIN
  PROMPT 1 14 "Rivalutazione L. 413/91            "
  FIELD LF_SALCE->RIV91
END

NUMBER F_ANNI_91 2
BEGIN
  PROMPT 1 15 "Anni post rivalutazione L. 413/91  " 
  FIELD LF_SALCE->ANNIPOST91
END

CURRENCY F_RIVGF 15
BEGIN
  PROMPT 1 16 "Rivalutazione generica fiscale     "
  FIELD LF_SALCE->RIVGF
END

CURRENCY F_RIVGC 15
BEGIN
  PROMPT 1 17 "Rivalutazione generica civilistica "
  FIELD LF_SALCE->RIVGC
END

ENDPAGE

PAGE "Fondi" -1 -1 78 18

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

NUMBER DLG_NULL 6
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 10
BEGIN
  PROMPT 1 4 "Cespite   "
  FLAGS "DZ"
  FIELD IDCESPITE
END

STRING DLG_NULL 50
BEGIN
  PROMPT 26 4 ""
  FLAGS "DZ"
  GROUP 5
END

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

TEXT DLG_NULL
BEGIN
  PROMPT 25 6 "@bFiscale"
END

TEXT DLG_NULL
BEGIN
  PROMPT 43 6 "@bGestionale"
END

TEXT DLG_NULL
BEGIN
  PROMPT 63 6 "@bCivilistico"
END

CURRENCY F_NORMALE 15
BEGIN
  PROMPT 1 7 "Normale             "
  FIELD LF_AMMCE->QNOR
END

CURRENCY F_ACCELERATO 15
BEGIN
  PROMPT 1 8 "Accelerato          "
  FIELD LF_AMMCE->QACC
END

CURRENCY F_ANTICIPATO 15
BEGIN
  PROMPT 1 9 "Anticipato          "
  FIELD LF_AMMCE->QANT
END

CURRENCY F_QPERSE 15
BEGIN
  PROMPT 1 11 "Quote perse         "
  FIELD LF_AMMCE->QPERSE
END

CURRENCY F_FPRIVATO 15
BEGIN
  PROMPT 1 12 "Fondo amm. privato  "
  FIELD LF_AMMCE->FPRIVATO
END

CURRENCY F_QPERSEPRIV 15
BEGIN
  PROMPT 1 13 "Quote perse private "
  FIELD LF_AMMCE->QPPRIVATE
END

#define LF_AMMCE2 LF_AMMCE+100

CURRENCY F_NORMALE2 15
BEGIN
  PROMPT 41 7 ""
  FIELD LF_AMMCE2->QNOR
END

CURRENCY F_ACCELERATO2 15
BEGIN
  PROMPT 41 8 ""
  FIELD LF_AMMCE2->QACC
END

CURRENCY F_ANTICIPATO2 15
BEGIN
  PROMPT 41 9 ""
  FIELD LF_AMMCE2->QANT
END

CURRENCY F_QPERSE2 15
BEGIN
  PROMPT 41 11 ""
  FIELD LF_AMMCE2->QPERSE
END

CURRENCY F_FPRIVATO2 15
BEGIN
  PROMPT 41 12 ""
  FIELD LF_AMMCE2->FPRIVATO
END

CURRENCY F_QPERSEPRIV2 15
BEGIN
  PROMPT 41 13 ""
  FIELD LF_AMMCE2->QPPRIVATE
END

#define LF_AMMCE3 LF_AMMCE+200

CURRENCY F_NORMALE3 15
BEGIN
  PROMPT 61 7 ""
  FIELD LF_AMMCE3->QNOR
END

CURRENCY F_ACCELERATO3 15
BEGIN
  PROMPT 61 8 ""
  FIELD LF_AMMCE3->QACC
END

CURRENCY F_ANTICIPATO3 15
BEGIN
  PROMPT 61 9 ""
  FIELD LF_AMMCE3->QANT
END

CURRENCY F_QPERSE3 15
BEGIN
  PROMPT 61 11 ""
  FIELD LF_AMMCE3->QPERSE
END

CURRENCY F_FPRIVATO3 15
BEGIN
  PROMPT 61 12 ""
  FIELD LF_AMMCE3->FPRIVATO
END

CURRENCY F_QPERSEPRIV3 15
BEGIN
  PROMPT 61 13 ""
  FIELD LF_AMMCE3->QPPRIVATE
END

ENDPAGE

ENDMASK