campo-sirio/ce/cetbcac.uml

#include "cetbcac.h"
#include <deftabap.h>

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

PAGE "Categorie Cespiti" 0 2 0 0

GROUPBOX DLG_NULL 75 6
BEGIN
  PROMPT 1 0 ""
  FLAGS "R"
END

NUMBER F_CODGR 2
BEGIN
  PROMPT 2 1 "Gruppo    "
  FIELD CODTAB[1,2]
  FLAGS "Z"
  KEY 1
  USE %CGR
  INPUT CODTAB F_CODGR
  DISPLAY "Codice gruppo" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CODGR CODTAB
  OUTPUT F_DESCRGR S0
  CHECKTYPE SEARCH 
  MESSAGE EMPTY "",F_DESCRGR
END

STRING F_DESCRGR 60 50
BEGIN
  PROMPT 20 1 ""
  FLAGS "D"
END

STRING F_CODSP 4
BEGIN
  PROMPT 2 2 "Specie    "
  FIELD CODTAB[3,6]
  FLAGS "_"
  KEY 1
  USE %CAT
  INPUT CODTAB[1,2] F_CODGR
  INPUT CODTAB[3,6] F_CODSP
  DISPLAY "Codice gruppo " CODTAB[1,2]
  DISPLAY "Codice specie " CODTAB[3,6]
  DISPLAY "Descrizione @50" S0
  OUTPUT F_CODGR CODTAB[1,2]
  OUTPUT F_CODSP CODTAB[3,6]
  OUTPUT F_DESCRSP S0
  CHECKTYPE SEARCH 
  MESSAGE EMPTY "",F_DESCRSP 
  VALIDATE REQIF_FUNC 1 F_CODGR
END

STRING F_DESCRSP 60 50
BEGIN
  PROMPT 20 2 ""
  FLAGS "D"
END

NUMBER F_CODCAT 2
BEGIN
  PROMPT 2 3 "Categoria "
  FIELD CODTAB[7,8]
  FLAGS "UZ"
  KEY 1
  USE %CAC
  INPUT CODTAB[1,2] F_CODGR
  INPUT CODTAB[3,6] F_CODSP
  INPUT CODTAB[7,8] F_CODCAT
  DISPLAY "Gruppo" CODTAB[1,2]
  DISPLAY "Specie" CODTAB[3,6]
  DISPLAY "Categoria" CODTAB[7,8]
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CODGR CODTAB[1,2]
  OUTPUT F_CODSP CODTAB[3,6]
  OUTPUT F_CODCAT CODTAB[7,8]
  OUTPUT F_DESCRCAT S0
  CHECKTYPE REQUIRED
  GROUP GR_SEARCH
END

STRING F_DESCRCAT 60 50
BEGIN
  PROMPT 2 4 "Descrizione       "
  FIELD S0
  KEY 2
  USE %CAC KEY 2
  INPUT S0 F_DESCRCAT
  DISPLAY "Descrizione@50" S0
  DISPLAY "Gruppo" CODTAB[1,2]
  DISPLAY "Specie" CODTAB[3,6]
  DISPLAY "Categoria" CODTAB[7,8]
  COPY OUTPUT F_CODCAT
  CHECKTYPE REQUIRED
END

RADIOBUTTON F_TIPOCE 75
BEGIN
  FLAGS "ZG"
  PROMPT 1 6 "@BTipo Cespiti"
  ITEM "0|Materiali"
  MESSAGE HIDE,GR_IMMAT@|HIDE,GR_PLURI@|SHOW,GR_MAT@
  ITEM "1|Immateriali"
  MESSAGE HIDE,GR_MAT@|HIDE,GR_PLURI@|SHOW,GR_IMMAT@
  ITEM "2|Costi pluriennali"
  MESSAGE HIDE,GR_MAT@|HIDE,GR_IMMAT@|SHOW,GR_PLURI@
  FIELD I0
  GROUP GR_MODIFY_PROTECTED
END

BOOLEAN F_NOTAMMO
BEGIN
  PROMPT 2 9 "Categoria non ammortizzabile"
  MESSAGE FALSE ENABLE,GR_MAT@|ENABLE,F_TIPOAMMO|ENABLE,F_NUMANNI|ENABLE,GR_PLURI@
  MESSAGE TRUE CLEAR,GR_MAT@|CLEAR,F_TIPOAMMO|CLEAR,F_PERC_MAXAMF1|CLEAR,F_NUMANNI|CLEAR,GR_PLURI@
  FIELD B0 
END

NUMBER F_MAXAUTO 7 3
BEGIN
  PROMPT 2 10 "Percentuale massimo incremento per saldo automatico  "
  FIELD R10
END

DATE F_DATA_IN
BEGIN
  PROMPT 2 11 "Data entrata in vigore categoria                     "
  FIELD D0
END

DATE F_DATA_OUT
BEGIN
  PROMPT 2 12 "Data fine validita' categoria                        "
  VALIDATE DATE_CMP_FUNC >= F_DATA_IN
  WARNING "Date non congruenti"
  FIELD D1
END


//Campi per gruppo Materiali//
NUMBER F_PERC_FISC1 7 3
BEGIN
  PROMPT 2 13 "Percentuale ammortamento fiscale D.M. 29/10/74       "
  FIELD R12
  GROUP GR_MAT
  CHECKTYPE REQUIRED
  WARNING "Percentuale ammortamento fiscale D.M. 29/10/74 obbligatoria"
END

NUMBER F_PERC_FISC2 7 3
BEGIN
  PROMPT 2 14 "Percentuale ammortamento fiscale D.M. 31/12/88       "
  FIELD R11
  GROUP GR_MAT
  CHECKTYPE REQUIRED
  WARNING "Percentuale ammortamento fiscale D.M. 31/12/88 obbligatoria"
END

//Campi per gruppo Immateriali
NUMBER F_PERC_MAXAMF1 7 3
BEGIN
  PROMPT 2 13 "Percentuale massimo ammortamento fiscale             "
  FIELD R13
  GROUP GR_IMMAT
  CHECKTYPE REQUIRED
  WARNING "Percentuale massimo ammortamento fiscale obbligatoria"
END

LIST F_TIPOAMMO 1 12
BEGIN
  PROMPT 2 15 "Tipo ammortamento beni immateriali                   "
  ITEM "1|Anni"
  MESSAGE CLEAR,F_PERC_MAXAMF1|ENABLE,F_NUMANNI
  ITEM "2|Percentuali"
  MESSAGE CLEAR,F_NUMANNI|ENABLE,F_PERC_MAXAMF1
  FIELD I1  
  GROUP GR_IMMAT
END

NUMBER F_NUMANNI 3
BEGIN
  PROMPT 2 14 "Numero anni per ammortamento costi                   "
  FIELD I3
  GROUP GR_IMMAT GR_PLURI
  WARNING "Numero di anni per ammortamento costi obbligatorio"
END


//Campi per gruppo Costi pluriennali//
LIST F_TIPOVINC 1 8
BEGIN
  FLAGS "Z"
  PROMPT 2 13 "Tipo vincolo costi pluriennali                       "
  ITEM "1|Nessuno"
  MESSAGE ENABLE,F_PERC_MINAMF2|ENABLE,F_PERC_MAXAMF2
  ITEM "2|Anni"
  MESSAGE ENABLE,F_PERC_MINAMF2|ENABLE,F_PERC_MAXAMF2
  ITEM "3|Quote"
  MESSAGE CLEAR,F_PERC_MINAMF2|CLEAR,F_PERC_MAXAMF2
  FIELD I2
  GROUP GR_PLURI
END

NUMBER F_PERC_MINAMF2 7 3
BEGIN
  PROMPT 2 15 "Percentuale minima ammortamento fiscale              "
  FIELD R14
  GROUP GR_PLURI
END

NUMBER F_PERC_MAXAMF2 7 3
BEGIN
  PROMPT 2 16 "Percentuale massima ammortamento fiscale             "
  NUM_EXPR #F_PERC_MAXAMF2>=#F_PERC_MINAMF2
  WARNING "La percentuale massima deve essere maggiore o uguale della minima"
  FIELD R15
  GROUP GR_PLURI
END

BOOLEAN F_DECORAMMO
BEGIN
  PROMPT 2 17 "Decorrenza ammortamento a partire dall'anno successivo al completamento"
  FIELD B1
  GROUP GR_PLURI
END

//Campi finali comuni//
BOOLEAN F_SUSPENDED
BEGIN
  PROMPT 2 20 "Sospeso"
  FIELD B4 
END

ENDPAGE

ENDMASK