#include "ce1400a.h"

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

PAGE "Beni materiali" 0 2 0 0

GROUPBOX DLG_NULL 78 6
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 "D"
END

NUMBER F_ESERCIZIO 4
BEGIN
  PROMPT 1 3 "Esercizio "
  FLAGS "DGZ"
  USE ESC
  INPUT CODTAB F_ESERCIZIO
  DISPLAY "Codice esercizio" CODTAB
  DISPLAY "Inizio esercizio" D0
  DISPLAY "Fine esercizio" D1
  OUTPUT F_ESERCIZIO CODTAB
  OUTPUT F_INIZIO_ES D0
  OUTPUT F_FINE_ES D1
  CHECKTYPE REQUIRED
  FIELD CODES 
  KEY 1
END

DATE F_INIZIO_ES
BEGIN
  PROMPT 26 3 "Inizio "
  FLAGS "D"
END

DATE F_FINE_ES
BEGIN
  PROMPT 50 3 "Fine "
  FLAGS "D"
END

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

STRING F_SPECIE 4
BEGIN
  PROMPT 16 4 "Specie "
  FLAGS "_D"
  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 REQUIRED
  FIELD CODSPA
  KEY 1
END

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

NUMBER F_CATEGORIA 2
BEGIN
  PROMPT 1 5 "Categoria "
  FLAGS "DGZ"
  DRIVENBY F_GRUPPO
  DRIVENBY F_SPECIE
  WARNING "E' necessario specificare una categoria valida"
  FIELD CODCAT
  KEY 1
END

STRING F_DESC_CAT 60
BEGIN
  PROMPT 16 5 ""
  FLAGS "D"
  DRIVENBY F_GRUPPO
  DRIVENBY F_SPECIE
END

GROUPBOX DLG_NULL 78 5
BEGIN
  PROMPT 0 7 "@bLimiti ammortamento"
END

TEXT DLG_NULL
BEGIN
  PROMPT 24 8 "31-12-1987"
END

TEXT DLG_NULL
BEGIN
  PROMPT 44 8 "31-12-1988"
END

TEXT DLG_NULL
BEGIN
  PROMPT 64 8 "31-12-1989"
END

TEXT DLG_NULL
BEGIN
  PROMPT 1 9 "Minimo da tabella"
END

NUMBER F_MIN_87 6 2
BEGIN
  PROMPT 26 9 ""
  FLAGS "D"
END

NUMBER F_MIN_88 6 2
BEGIN
  PROMPT 46 9 ""
  FLAGS "D"
END

NUMBER F_MIN_89 6 2
BEGIN
  PROMPT 66 9 ""
  FLAGS "D"
END

TEXT DLG_NULL
BEGIN
  PROMPT 1 10 "Massimo da tabella"
END

NUMBER F_MAX_87 6 2
BEGIN
  PROMPT 26 10 ""
  FLAGS "D"
END

NUMBER F_MAX_88 6 2
BEGIN
  PROMPT 46 10 ""
  FLAGS "D"
END

NUMBER F_MAX_89 6 2
BEGIN
  PROMPT 66 10 ""
  FLAGS "D"
END

GROUPBOX DLG_NULL 78 6
BEGIN
  PROMPT 0 12 "@bScelte"
END

TEXT DLG_NULL
BEGIN
  PROMPT 1 13 "Ammortamento"
END

TEXT DLG_NULL
BEGIN
  PROMPT 22 13 "%Fisc.  %Civil."
END

TEXT DLG_NULL
BEGIN
  PROMPT 42 13 "%Fisc.  %Civil."
END

TEXT DLG_NULL
BEGIN
  PROMPT 62 13 "%Fisc.  %Civil."
END

TEXT DLG_NULL
BEGIN
  PROMPT 1 14 "Normale"
END

NUMBER F_NORFIS_87 6 2
BEGIN
  PROMPT 22 14 ""
  FLAGS "U"
  FIELD PFNORVN
  NUM_EXPR #THIS_FIELD<=#F_MAX_87
  WARNING "L'ammortamento non puo` superare il limite della tabella ministeriale"
END

NUMBER F_NORCIV_87 6 2
BEGIN
  PROMPT 30 14 ""
  FLAGS "U"
  FIELD PCNORVN
  NUM_EXPR #THIS_FIELD<=#F_MAX_87
  WARNING "L'ammortamento non puo` superare il limite della tabella ministeriale"
END

NUMBER F_NORFIS_88 6 2
BEGIN
  PROMPT 42 14 ""
  FLAGS "U"
  FIELD PFNORVT
  NUM_EXPR #THIS_FIELD<=#F_MAX_88
  WARNING "L'ammortamento non puo` superare il limite della tabella ministeriale"
END

NUMBER F_NORCIV_88 6 2
BEGIN
  PROMPT 50 14 ""
  FLAGS "U"
  FIELD PCNORVT
  NUM_EXPR #THIS_FIELD<=#F_MAX_88
  WARNING "L'ammortamento non puo` superare il limite della tabella ministeriale"
END

NUMBER F_NORFIS_89 6 2
BEGIN
  PROMPT 62 14 ""
  FLAGS "U"
  FIELD PFNORNT
  NUM_EXPR #THIS_FIELD<=#F_MAX_89
  WARNING "L'ammortamento non puo` superare il limite della tabella ministeriale"
END

NUMBER F_NORCIV_89 6 2
BEGIN
  PROMPT 70 14 ""
  FLAGS "U"
  FIELD PCNORNT
  NUM_EXPR #THIS_FIELD<=#F_MAX_89
  WARNING "L'ammortamento non puo` superare il limite della tabella ministeriale"
END

TEXT DLG_NULL
BEGIN
  PROMPT 1 15 "Anticipato"
END

NUMBER F_ANTFIS_87 6 2
BEGIN
  PROMPT 22 15 ""
  FLAGS "U"
  FIELD PFANTVN
  NUM_EXPR #THIS_FIELD<=15
  WARNING "L'ammortamento non puo` superare il limite della tabella ministeriale"
END

NUMBER F_ANTCIV_87 6 2
BEGIN
  PROMPT 30 15 ""
  FLAGS "U"
  FIELD PCANTVN
  NUM_EXPR #THIS_FIELD<=#F_MAX_87
  WARNING "L'ammortamento non puo` superare il limite della tabella ministeriale"
END

NUMBER F_ANTFIS_88 6 2
BEGIN
  PROMPT 42 15 ""
  FLAGS "U"
  FIELD PFANTVT
  NUM_EXPR #THIS_FIELD<=#F_MAX_88
  WARNING "L'ammortamento non puo` superare il limite della tabella ministeriale"
END

NUMBER F_ANTCIV_88 6 2
BEGIN
  PROMPT 50 15 ""
  FLAGS "U"
  FIELD PCANTVT
  NUM_EXPR #THIS_FIELD<=#F_MAX_88
  WARNING "L'ammortamento non puo` superare il limite della tabella ministeriale"
END

NUMBER F_ANTFIS_89 6 2
BEGIN
  PROMPT 62 15 ""
  FLAGS "U"
  FIELD PFANTNT
  NUM_EXPR #THIS_FIELD<=#F_MAX_89
  WARNING "L'ammortamento non puo` superare il limite della tabella ministeriale"
END

NUMBER F_ANTCIV_89 6 2
BEGIN
  PROMPT 70 15 ""
  FLAGS "U"
  FIELD PCANTNT
  NUM_EXPR #THIS_FIELD<=#F_MAX_89
  WARNING "L'ammortamento non puo` superare il limite della tabella ministeriale"
END

TEXT DLG_NULL
BEGIN
  PROMPT 1 16 "Accelerato"
END

NUMBER F_ACCFIS 6 2
BEGIN
  PROMPT 22 16 ""
  FLAGS "U"
  FIELD PFACC
  NUM_EXPR #THIS_FIELD<=#F_MAX_87
  WARNING "L'ammortamento non puo` superare il limite della tabella ministeriale"
END

NUMBER F_ACCCIV 6 2
BEGIN
  PROMPT 30 16 ""
  FLAGS "U"
  FIELD PCACC
  NUM_EXPR #THIS_FIELD<=#F_MAX_87
  WARNING "L'ammortamento non puo` superare il limite della tabella ministeriale"
END

BOOLEAN F_AMMRIT
BEGIN
  PROMPT 1 18 "Scelta ammortamento ritardato "
  FIELD AMMRIT
  MESSAGE FALSE ENABLE,F_ACCFIS
  MESSAGE TRUE CLEAR,F_ACCFIS
END

BOOLEAN F_AMM100
BEGIN
  PROMPT 1 19 "Scelta ammortamento al 100% per beni inferiori a 516.46 Euro "
  FIELD CSCEN
END


ENDPAGE
       
ENDMASK