campo-sirio/ce/cetbcce.uml

#include "cetbcce.h"
#include "cetbana.h"

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

PAGE "Esercizi Cespiti" 0 2 0 0 

GROUPBOX DLG_NULL 78 4
BEGIN
  PROMPT 1 0 ""
  FLAGS "R"
END

NUMBER F_CODESER 4
BEGIN
  PROMPT 2 1 "Codice esercizio "
  FLAGS "Z"
  KEY 1
  FIELD CODTAB   
  USE ESC
  INPUT CODTAB F_CODESER
  DISPLAY "Codice esercizio" CODTAB 
  DISPLAY "Data inizio esercizio" D0
  DISPLAY "Data fine esercizio" D1
  OUTPUT F_CODESER CODTAB
  OUTPUT F_DATAINI D0
  OUTPUT F_DATAFINE D1
  CHECKTYPE FORCED
END

DATE F_DATAINI
BEGIN
  PROMPT 2 2 "Data inizio  "
  FLAGS "D"
END

DATE F_DATAFINE
BEGIN
  PROMPT 28 2 "Data fine "
  FLAGS "D"
END

BUTTON DLG_ATTIV 10 2
BEGIN
  PROMPT 64 1 "~Attività"
END

LISTBOX F_TIPOCONTAB 1 12
BEGIN
  PROMPT 42 4 "Tipo Contabilità  "
  ITEM "1|Ordinaria"
  ITEM "2|Semplificata"
  FIELD I0
END

BOOLEAN F_DIT_PROF
BEGIN
  PROMPT 2 4 "Ditta relativa a professionista"
  FIELD B0  
END

BOOLEAN F_ESERCOST
BEGIN
  PROMPT 2 5 "Esercizio di costituzione"
  FIELD B1  
END

BOOLEAN F_RINV_AMM
BEGIN
  PROMPT 2 6 "Rinvio ammortamento a data conseguimento primi ricavi"
  FIELD B2  
END

BOOLEAN F_ES_ART14
BEGIN
  PROMPT 2 7 "Esercizio soggetto all'art. 14 c.2. Legge 449/97"
  FIELD B7
END

GROUPBOX DLG_NULL 78 7
BEGIN
  PROMPT 1 8 "@BParametri di calcolo"
  FLAGS "R"
END

LISTBOX F_TIPO_ARR 1 12
BEGIN
  PROMPT 2 9 "Tipo arrotondamento "
  ITEM "/|al centesimo"
  ITEM "+|per eccesso"
  ITEM "-|per difetto"
  FIELD S6
END

LISTBOX F_TIPO_RIP 1 8
BEGIN
  PROMPT 40 9 "Tipo riproporzionamento "
  ITEM "2|a giorni"
  ITEM "1|a mesi"
  FIELD I1
END

BOOLEAN F_AMM_VEND
BEGIN
  PROMPT 2 10 "Ammortamento anche parti vendute"
  FIELD B3
END

BOOLEAN F_RAGGUAGLIO
BEGIN
  PROMPT 2 11 "Ragguaglio al periodo di possesso degli ammortamenti sulle parti vendute"
  FIELD B4
END

BOOLEAN F_ESPOSIZIONE
BEGIN
  PROMPT 2 12 "Esposizione fondi per ammortamenti diretti su LIBRO CESPITI"
  FIELD B5
END

NUMBER F_DURATA 3
BEGIN
  PROMPT 2 13 "Giorni di durata esercizio "
  FLAGS "DG"
  FIELD I3
END

NUMBER F_COEFF_DURATA 11 9
BEGIN
  PROMPT 41 13 "Coefficiente di durata "
  FLAGS "DG"        
  FIELD S5
END

GROUPBOX DLG_NULL 78 6
BEGIN
  PROMPT 1 15 "@bAmmortamento cespiti nuovi (dal 2008)"
END

RADIOBUTTON F_AMMFIS2008 5 10
BEGIN
  PROMPT 2 16 "@bFiscale"
  ITEM "0|50%"
  ITEM "1|100%"
  FIELD S6[1,1]
END

RADIOBUTTON F_AMMCIV2008 5 10
BEGIN
  PROMPT 15 16 "@bCivilistico"
  ITEM "0|50%"
  ITEM "1|100%"
  FIELD S6[2,2]
END

RADIOBUTTON F_AMMGES2008 5 10
BEGIN
  PROMPT 28 16 "@bGestionale"
  ITEM "0|50%"
  ITEM "1|100%"
  FIELD S6[3,3]
END

RADIOBUTTON F_AMMAUT2008 5 15
BEGIN
  PROMPT 41 16 "@bAutomezzi"
  ITEM "0|Esclusi"
  ITEM "1|Inclusi"
  FIELD S6[4,4]
END

ENDPAGE

PAGE "Analitica" 0 2 0 0

GROUPBOX DLG_NULL 76 5
BEGIN
  PROMPT 1 1 "@bCdC - Commessa - Fase  standard per ripartizione fondi"
END

STRING F_CODCDC 20
BEGIN
  PROMPT 2 2 "C.d.costo "
  USE LF_CDC
  INPUT CODCOSTO F_CODCDC
  DISPLAY "Codice@20" CODCOSTO
  DISPLAY "Descrizione@50" DESCRIZ
  OUTPUT F_CODCDC CODCOSTO
  OUTPUT F_DESCDC DESCRIZ
  CHECKTYPE NORMAL
  FLAGS "U"
  FIELD S2
END

STRING F_DESCDC 50 39
BEGIN
  PROMPT 35 2 ""
  USE LF_CDC KEY 2
  INPUT DESCRIZ F_DESCDC
  DISPLAY "Descrizione@50" DESCRIZ
  DISPLAY "Codice@20" CODCOSTO
  COPY OUTPUT F_CODCDC
END

STRING F_CODCMS 20
BEGIN
  PROMPT 2 3 "Commessa  "
  USE LF_COMMESSE
  INPUT CODCMS F_CODCMS
  DISPLAY "Codice@20" CODCMS
  DISPLAY "Descrizione@50" DESCRIZ
  OUTPUT F_CODCMS CODCMS
  OUTPUT F_DESCMS DESCRIZ
  CHECKTYPE NORMAL
  FLAGS "U"
  FIELD S3
END

STRING F_DESCMS 50 39
BEGIN
  PROMPT 35 3 ""
  USE LF_COMMESSE KEY 2
  INPUT DESCRIZ F_DESCMS
  DISPLAY "Descrizione@50" DESCRIZ
  DISPLAY "Codice@20" CODCMS
  COPY OUTPUT F_CODCMS
END

STRING F_CODFASE 10
BEGIN
  PROMPT 2 4 "Fase      "
  USE LF_FASI
  INPUT CODCMSFAS F_CODCMS SELECT
  INPUT CODFASE F_CODFASE
  DISPLAY "Fase@10" CODFASE
  DISPLAY "Descrizione@50" DESCRIZ
  OUTPUT F_CODFASE CODFASE
  OUTPUT F_DESFASE DESCRIZ
  CHECKTYPE NORMAL
  FLAGS "U"
  FIELD S4
END

STRING F_DESFASE 50 39
BEGIN
  PROMPT 35 4 ""
  GROUP 1
END

GROUPBOX DLG_NULL 76 7
BEGIN
  PROMPT 1 6 "@bIstruzioni"
  GROUP 1
END

TEXT DLG_NULL
BEGIN
  PROMPT 2 7 "_ Per ogni esercizio cespiti vanno indicati il CdC, la Commessa e la Fase standard per le"
END

TEXT DLG_NULL
BEGIN
  PROMPT 2 8 "  eventuali ripartizioni delle quote ammortamento del cespite tra i vari CdC e Commesse;"
END

TEXT DLG_NULL
BEGIN
  PROMPT 2 9 "  su questi CdC/Commessa/Fase standard finiranno le quote non specificatamente assegnate"
END

TEXT DLG_NULL
BEGIN
  PROMPT 2 10 "  agli altri CdC/commesse/Fasi."
END

ENDPAGE

ENDMASK