campo-sirio/ce/ce1301b.uml

#include "ce1301a.h"

TOOLBAR "topbar" 0 0 0 2

BUTTON DLG_SAVEREC 10 2
BEGIN
  PROMPT -13 -1 "~Registra" 
  MESSAGE EXIT,K_SAVE
  PICTURE BMP_SAVEREC
  PICTURE BMP_SAVERECDN
END

BUTTON DLG_DELREC 10 2
BEGIN
  PROMPT -23 10 ""
  FLAGS "D"
END

BUTTON DLG_CANCEL 10 2
BEGIN
  PROMPT -23 -1 ""
END

BUTTON DLG_QUIT 10 2
BEGIN
  PROMPT -33 -1 ""
END

ENDPAGE

PAGE "Scelte ammortamenti su cespiti Materiali" 0 2 0 0

GROUPBOX DLG_NULL 78 7
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 ""
  FLAGS "D"
  USE LF_NDITTE
  INPUT CODDITTA F_DITTA
  OUTPUT F_RAGSOC RAGSOC
  CHECKTYPE NORMAL
END

NUMBER F_ESERCIZIO 4
BEGIN
  PROMPT 1 2 "Esercizio "
  FLAGS "DGZ"
  USE CCE
  JOIN ESC ALIAS 104 INTO CODTAB==CODTAB
  INPUT CODTAB F_ESERCIZIO
  OUTPUT F_ESERCIZIO CODTAB
  OUTPUT F_INIZIO_ES 104@->D0
  OUTPUT F_FINE_ES 104@->D1
  CHECKTYPE REQUIRED
  KEY 1
END

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

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

NUMBER F_GRUPPO 2
BEGIN
  PROMPT 1 3 "Gruppo    "
  FLAGS "DZ"
END

STRING F_SPECIE 4
BEGIN
  PROMPT 16 3 "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
  OUTPUT F_GRUPPO CODTAB[5,6]
  OUTPUT F_SPECIE CODTAB[7,10]
  OUTPUT F_DESC_GRSP 400@->S0
  CHECKTYPE NORMAL
END

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

STRING F_IDCESPITE 10
BEGIN
  PROMPT 1 4 "Cespite "
  FLAGS "DGUZ"
  FIELD IDCESPITE
  KEY 1
END

STRING F_DESC 50
BEGIN
  PROMPT 24 4 ""
  FLAGS "D"
  USE LF_CESPI
  INPUT IDCESPITE F_IDCESPITE
  OUTPUT F_DESC DESC
  CHECKTYPE REQUIRED
END

NUMBER F_CATEGORIA 2
BEGIN
  PROMPT 1 5 "Categoria "
  FLAGS "DZG"
  DRIVENBY F_GRUPPO
  DRIVENBY F_SPECIE
  FIELD LF_CESPI->CODCAT
END

STRING F_DESC_CAT 60 58
BEGIN
  PROMPT 16 5 ""
  FLAGS "D"
END

DATA F_DTFUNZ 
BEGIN
  PROMPT 1 7 "Data entrata in funzione     "
  FLAGS "DG"
  FIELD LF_CESPI->DTFUNZ
END

NUMBER F_NUMESERAMM 3
BEGIN
  PROMPT 1 8 "Numero esercizi ammortizzati "
  FLAGS "DG"
  FIELD LF_SALCE->ANNIAMM
END

TEXT DLG_NULL
BEGIN
  PROMPT 56 7 "Normale    Anticipato"
END 

TEXT DLG_NULL
BEGIN
  PROMPT 45 8 "Minimo"
END

NUMBER F_NORMIN 6 2
BEGIN
  PROMPT 56 8 ""
  FLAGS "DG"
END

NUMBER F_ANTMIN 6 2
BEGIN
  PROMPT 69 8 ""
  FLAGS "DG"
END

TEXT DLG_NULL
BEGIN
  PROMPT 45 9 "Massimo"
END

NUMBER F_NORMAX 6 2
BEGIN
  PROMPT 56 9 ""
  FLAGS "DG"
END

TEXT DLG_NULL
BEGIN
  PROMPT 1 10 "Tipo Scelta"
END

RADIOBUTTON F_SCELTA 1 72
BEGIN
  FLAGS "Z"
  PROMPT 15 9 ""
  ITEM "0|Tab. Ministeriale"
  MESSAGE DISABLE,1@|COPY,F_SCELTA2|COPY,F_SCELTA3
  ITEM "1|Cespite"
  MESSAGE ENABLE,1@|COPY,F_SCELTA2|COPY,F_SCELTA3
  ITEM "2|Categoria"
  MESSAGE DISABLE,1@|COPY,F_SCELTA2|COPY,F_SCELTA3
  FIELD SCELTE
END

NUMBER F_SCELTA2 1
BEGIN
  PROMPT 15 100 ""
  FLAGS "D"
  FIELD 69@->SCELTE
END

NUMBER F_SCELTA3 1
BEGIN
  PROMPT 15 100 ""
  FLAGS "D"
  FIELD 77@->SCELTE
END

GROUPBOX DLG_NULL 78 6
BEGIN
  PROMPT 0 11 "@bScelta su categoria"
END

TEXT DLG_NULL
BEGIN
  PROMPT 40 11 "Normale      Accelerato   Anticipato"
END

TEXT DLG_NULL
BEGIN
  PROMPT 1 12 "Ammortamento fiscale"
END

NUMBER F_AMMFISC_NOR_CT 6 2
BEGIN
  PROMPT 41 12 ""
  FLAGS "DG"
END

NUMBER F_AMMFISC_ACC_CT 6 2
BEGIN
  PROMPT 54 12 ""
  FLAGS "DG"
END

NUMBER F_AMMFISC_ANT_CT 6 2
BEGIN
  PROMPT 67 12 ""
  FLAGS "DG"
END

TEXT DLG_NULL
BEGIN
  PROMPT 1 13 "Ammortamento civilistico"
END

NUMBER F_AMMCIV_NOR_CT 6 2
BEGIN
  PROMPT 41 13 ""
  FLAGS "DG"
END

NUMBER F_AMMCIV_ACC_CT 6 2
BEGIN
  PROMPT 54 13 ""
  FLAGS "DG"
END

NUMBER F_AMMCIV_ANT_CT 6 2
BEGIN
  FLAGS "D"
  PROMPT 67 13 ""
  FLAGS "DG"
END

BOOLEAN F_AMMRIT_CT
BEGIN
  FLAGS "DG"
  PROMPT 1 14 "Ammortamento ritardato"
END

BOOLEAN F_AMM100_CT
BEGIN
  FLAGS "DG"
  PROMPT 1 15 "Amm.to al 100% per beni di valore unitario inferiore a 516.46 Euro"
END

GROUPBOX DLG_NULL 78 6
BEGIN
  PROMPT 0 17 "@bScelta su cespite"
END

TEXT DLG_NULL
BEGIN
  PROMPT 40 17 "Normale      Accelerato   Anticipato"
END

TEXT DLG_NULL
BEGIN
  PROMPT 1 18 "Ammortamento fiscale"
END

NUMBER F_AMMFISC_NOR_CE 6 2
BEGIN
  PROMPT 41 18 ""
  FLAGS "U"
  FIELD PNOR
  NUM_EXPR (#THIS_FIELD<=#F_NORMAX)&&(#THIS_FIELD<=100)
  WARNING "L'ammortamento fiscale normale scelto supera il limite della tabella ministeriale"
  GROUP 1
END

NUMBER F_AMMFISC_ACC_CE 6 2
BEGIN
  PROMPT 54 18 ""
  FLAGS "U"
  FIELD PACC
  NUM_EXPR #THIS_FIELD<=100
  WARNING "La percentuale massima di ammortamento <20> 100"
  GROUP 1
END

NUMBER F_AMMFISC_ANT_CE 6 2
BEGIN
  PROMPT 67 18 ""
  FLAGS "U"
  FIELD PANT
  NUM_EXPR (#THIS_FIELD<=#F_ANTMIN)&&(#THIS_FIELD<=100)
  WARNING "L'ammortamento fiscale anticipato scelto supera il limite ministeriale"
END

TEXT DLG_NULL
BEGIN
  PROMPT 1 19 "Ammortamento civilistico"
END

NUMBER F_AMMCIV_NOR_CE 6 2
BEGIN
  PROMPT 41 19 ""
  FLAGS "U"
  FIELD 69@->PNOR
  NUM_EXPR #THIS_FIELD<=100
  WARNING "La percentuale massima di ammortamento <20> 100"
  GROUP 1
END

NUMBER F_AMMCIV_ACC_CE 6 2
BEGIN
  PROMPT 54 19 ""
  FLAGS "U"
  FIELD 69@->PACC
  NUM_EXPR #THIS_FIELD<=100
  WARNING "La percentuale massima di ammortamento <20> 100"
  GROUP 1
END

NUMBER F_AMMCIV_ANT_CE 6 2
BEGIN
  PROMPT 67 19 ""
  FLAGS "U"
  FIELD 69@->PANT
  NUM_EXPR (#THIS_FIELD<=#F_ANTMIN)&&(#THIS_FIELD<=100)
  WARNING "L'ammortamento civilistico anticipato scelto supera il limite ministeriale"
  GROUP 1
END

BOOLEAN F_AMMRIT_CE
BEGIN
  PROMPT 1 20 "Ammortamento ritardato"
  FLAGS "G"
  FIELD AMMRIT
  MESSAGE FALSE COPY,F_AMMRIT_CE2|COPY,F_AMMRIT_CE3  
  MESSAGE TRUE COPY,F_AMMRIT_CE2|COPY,F_AMMRIT_CE3
  GROUP 1
END

BOOLEAN F_AMMRIT_CE2
BEGIN
  PROMPT 111 20 ""
  FLAGS "D"
  FIELD 69@->AMMRIT
END

BOOLEAN F_AMMRIT_CE3
BEGIN
  PROMPT 113 20 ""
  FLAGS "D"
  FIELD 77@->AMMRIT
END

CURRENCY F_FRINGEBEN 15
BEGIN
  PROMPT 35 20 "Fringe benefit veicoli "
  FIELD FRINGEBEN
  FLAGS "G"
  MESSAGE FALSE COPY,F_FRINGEBEN2|COPY,F_FRINGEBEN3
  MESSAGE TRUE COPY,F_FRINGEBEN2|COPY,F_FRINGEBEN3
  GROUP 1
END

CURRENCY F_FRINGEBEN2 15
BEGIN
  PROMPT 115 20 ""
  FIELD 69@->FRINGEBEN
  FLAGS "D"
END

CURRENCY F_FRINGEBEN3 15
BEGIN
  PROMPT 117 20 ""
  FIELD 77@->FRINGEBEN
  FLAGS "D"
END

BOOLEAN F_AMM100_CE
BEGIN
  PROMPT 1 21 "Amm.to al 100% per beni di valore unitario inferiore a 516.46 Euro"
  FLAGS "G"
  FIELD CSCEN
  MESSAGE FALSE COPY,F_AMM1002_CE|COPY,F_AMM1003_CE
  MESSAGE TRUE COPY,F_AMM1002_CE|COPY,F_AMM1003_CE
  GROUP 1
END

BOOLEAN F_AMM1002_CE
BEGIN
  PROMPT 111 21 ""
  FLAGS "D"
  FIELD 69@->CSCEN
  GROUP 1
END

BOOLEAN F_AMM1003_CE
BEGIN
  PROMPT 113 21 ""
  FLAGS "D"
  FIELD 77@->CSCEN
  GROUP 1
END

ENDPAGE

ENDMASK