campo-sirio/ce/ce1301d.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: Costi Pluriennali" 0 2 0 0

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

NUMBER F_ESERCIZIO 4
BEGIN
  PROMPT 1 3 "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 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"
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
  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 4 ""
  FLAGS "D"
END

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

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

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

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

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

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

TEXT DLG_NULL
BEGIN
  PROMPT 1 11 "Tipo Scelta"
END

RADIOBUTTON F_SCELTA 1 72
BEGIN
  FLAGS "Z"
  PROMPT 15 10 ""
  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 5
BEGIN
  PROMPT 0 12 "@bTabelle ministeriali"
END

NUMBER F_ALIQMAX 6 2
BEGIN
  PROMPT 1 14 "Aliquota massima    "
  FLAGS "D"
  FIELD LF_CESPI->PMAXP
END

NUMBER F_ALIQMIN 6 2
BEGIN
  PROMPT 1 13 "Aliquota minima     "
  FLAGS "D"
  FIELD LF_CESPI->PMINP
END

NUMBER F_ENTROANNI 8
BEGIN
  PROMPT 1 15 "Entro numero anni   "
  FLAGS "DG"
END

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

TEXT DLG_NULL
BEGIN
  PROMPT 30 17 "Scelta su categoria        Scelta su cespite"
END

TEXT DLG_NULL
BEGIN
  PROMPT 1 18 "Ammortamento fiscale"
END

NUMBER F_AMMFISC_CT 6 2
BEGIN
  PROMPT 40 18 ""
  FLAGS "DG"
END

NUMBER F_AMMFISC_CE 6 2
BEGIN
  PROMPT 65 18 ""
  NUM_EXPR #THIS_FIELD<=100
  WARNING "La percentuale di ammortamento deve essere <= 100"
  FIELD PNOR
  GROUP 1
END

TEXT DLG_NULL
BEGIN
  PROMPT 1 19 "Ammortamento civilistico"
END

NUMBER F_AMMCIV_CT 6 2
BEGIN
  PROMPT 40 19 ""
  FLAGS "DG"
END

NUMBER F_AMMCIV_CE 6 2
BEGIN
  PROMPT 65 19 ""
  NUM_EXPR #THIS_FIELD<=100
  WARNING "La percentuale di ammortamento deve essere <= 100"
  FIELD 69@->PNOR
  GROUP 1
END

TEXT DLG_NULL
BEGIN
  PROMPT 1 20 "Anni ammortamento richiesti"
END

NUMBER F_ANNIAMMOREQ 8
BEGIN
  PROMPT 65 20 ""
  FIELD LF_CESPI->ANNIRIC
  GROUP 1
END

ENDPAGE

ENDMASK