campo-sirio/ce/cetbtmc.uml

#include "cetbtmc.h"

TOOLBAR "" 0 -2 0 2

#include <toolbar.h>

ENDPAGE

PAGE "Tipi Movimento Cespiti" -1 -1 60 6

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

STRING F_CODMOV 1
BEGIN
  PROMPT 2 1 "Tipo movimento "
  FIELD CODTAB
  FLAGS "U"
  KEY 1
  USE %TMC
  INPUT CODTAB F_CODMOV
  DISPLAY "Codice tipo movimento" CODTAB
  DISPLAY "Descrizione @50" S0
  OUTPUT F_CODMOV CODTAB
  OUTPUT F_DESCRMOV S0
  CHECKTYPE REQUIRED
END

STRING F_DESCRMOV 50
BEGIN
  PROMPT 2 2 "Descrizione    "
  FIELD S0
  KEY 2
  USE %TMC KEY 2
  INPUT S0 F_DESCRMOV
  DISPLAY "Descrizione @50" S0
  DISPLAY "Codice tipo movimento" CODTAB
  COPY OUTPUT F_CODMOV
  CHECKTYPE REQUIRED
END

LIST F_TIPOMOV 1 9
BEGIN
  PROMPT 2 4 "Tipo generico movimento "
  ITEM "1|Movimento"
  MESSAGE CLEAR,F_MOV_TO_RECT|CLEAR,F_DESCR_MOV_TO_RECT
  ITEM "2|Rettifica"
  MESSAGE ENABLE,F_MOV_TO_RECT|ENABLE,F_DESCR_MOV_TO_RECT
  FIELD I0
END

GROUPBOX DLG_NULL 75 3
BEGIN
    PROMPT 1 5 "@BApplicabile a"
END

BOOLEAN F_APPLICABLE1
BEGIN
  PROMPT 2 6 "Beni materiali"
  FIELD B0
END 

BOOLEAN F_APPLICABLE2
BEGIN
  PROMPT 26 6 "Beni immateriali"
  FIELD B1
END

BOOLEAN F_APPLICABLE3
BEGIN
  PROMPT 52 6 "Costi pluriennali"
  FIELD B2
END

LIST F_SIGNS 1 1
BEGIN
  PROMPT 2 8 "Segni possibili "
  ITEM "+|+"
  MESSAGE ENABLE,F_POSS_GEN|SHOW,F_TOT_PROSP2|CLEAR,F_PLUSMINUS|CLEAR,F_POSS_AMM|HIDE,F_TOT_PROSP1
  ITEM "-|-"
  MESSAGE ENABLE,F_POSS_AMM|ENABLE,F_PLUSMINUS|SHOW,F_TOT_PROSP1|CLEAR,F_POSS_GEN|HIDE,F_TOT_PROSP2
  ITEM "=|="
  MESSAGE ENABLE,F_POSS_AMM|ENABLE,F_PLUSMINUS|ENABLE,F_POSS_GEN|SHOW,F_TOT_PROSP1|HIDE,F_TOT_PROSP2 
  FIELD S7   
END

STRING F_MOV_TO_RECT 1
BEGIN
  PROMPT 2 9 "Tipo movimento da rettificare "
  FLAGS "U"
  USE %TMC SELECT I0==1
  INPUT CODTAB F_MOV_TO_RECT
  DISPLAY "Codice tipo movimento" CODTAB
  DISPLAY "Descrizione @50" S0
  OUTPUT F_MOV_TO_RECT CODTAB
  OUTPUT F_DESCR_MOV_TO_RECT S0
  FIELD S8
  CHECTYPE REQUIRED
END

STRING F_DESCR_MOV_TO_RECT 50 24
BEGIN
  PROMPT 37 9 "Descrizione  "
  USE %TMC KEY 2 SELECT I0==1
  INPUT S0 F_DESCR_MOV_TO_RECT
  DISPLAY "Descrizione @50" S0
  DISPLAY "Codice tipo movimento" CODTAB
  COPY OUTPUT F_MOV_TO_RECT
  CHECKTYPE NORMAL
END

BOOLEAN F_POSS_GEN
BEGIN
  PROMPT 2 10 "Possibilita' di generazione nuovo cespite"
  FIELD B3
END

BOOLEAN F_POSS_AMM
BEGIN
  PROMPT 2 11 "Possibilita' di ammortamento sul movimento"
  FIELD B4
END

BOOLEAN F_PLUSMINUS
BEGIN
  PROMPT 2 12 "Generazione plusvalenza/minusvalenza"
  FIELD B5
END

LIST F_TOT_PROSP2 1 15
BEGIN
  PROMPT 2 13 "Totale prospetto di bilancio "  
  ITEM "I|Incremento" 
  ITEM "E|Eliminazione"
  ITEM "P|Plusvalenza"
  ITEM "R|Rivalutazione"
  FIELD S6
END

LIST F_TOT_PROSP1 15
BEGIN
  PROMPT 2 13 "Totale prospetto di bilancio "  
  ITEM " |Nessuno" 
  ITEM "I|Incremento" 
  ITEM "E|Eliminazione"
  ITEM "P|Plusvalenza"
  ITEM "R|Rivalutazione"
  FIELD S6
END

//Parte sulla imputabilit<69> dei dati//
GROUPBOX DLG_NULL 75 8
BEGIN
 PROMPT 1 14 "@BImputabilita' dei dati"
 FLAGS "R"
END

LISTBOX F_IMPU_DOC 1 4
BEGIN
  PROMPT 2 15 "Documento  "
  ITEM "S|Si"
  ITEM "N|No"
  ITEM "O|Obbl"
  FIELD S5[1,1]
END

LISTBOX F_IMPU_VEN 1 4
BEGIN
  PROMPT 21 15 "Importo vendita "
  ITEM "S|Si"
  ITEM "N|No"
  ITEM "O|Obbl"
  FIELD S5[3,3]
END

LISTBOX F_IMPU_ELE 1 4
BEGIN
  PROMPT 2 16 "Elementi   "
  ITEM "S|Si"
  ITEM "N|No"
  ITEM "O|Obbl"
  FIELD S5[4,4]
END

LISTBOX F_IMPU_STO 1 4
BEGIN
  PROMPT 21 16 "Costo storico   "
  ITEM "S|Si"
  ITEM "N|No"
  ITEM "O|Obbl"
  FIELD S5[5,5]
END

LISTBOX F_IMPU_NOA 1 4
BEGIN
  PROMPT 45 16 "Valore non ammortizz. "
  ITEM "S|Si"
  ITEM "N|No"
  ITEM "O|Obbl"
  FIELD S5[6,6]
END

LISTBOX F_IMPU_PLUREI 1 4
BEGIN
  PROMPT 2 17 "Plusvalenza reinvestita  "
  ITEM "S|Si"
  ITEM "N|No"
  ITEM "O|Obbl"
  FIELD S5[7,7]
END

LISTBOX F_IMPU_RIVLEG 1 4
BEGIN
  PROMPT 2 18 "Rivalutazione di legge   "
  ITEM "S|Si"
  ITEM "N|No"
  ITEM "O|Obbl"
  FIELD S5[8,8]
END

LISTBOX F_IMPU_RIVGEN 1 4
BEGIN
  PROMPT 35 18 "Rivalutazione generica fiscale  "
  ITEM "S|Si"
  ITEM "N|No"
  ITEM "O|Obbl"
  FIELD S5[9,9]
END

LISTBOX F_IMPU_RIVCIV 1 4
BEGIN
  PROMPT 2 19 "Rival. generica civil.   "
  ITEM "S|Si"
  ITEM "N|No"
  ITEM "O|Obbl"
  FIELD S5[10,10]
END

LISTBOX F_IMPU_FONFIS 1 4
BEGIN
  PROMPT 35 19 "Fondo ammortamento fiscale      "
  ITEM "S|Si"
  ITEM "N|No"
  ITEM "O|Obbl"
  FIELD S5[11,11]
END

LISTBOX F_IMPU_FONCIV 1 4
BEGIN
  PROMPT 2 20 "Fondo amm.to civilistico "
  ITEM "S|Si"
  ITEM "N|No"
  ITEM "O|Obbl"
  FIELD S5[12,12]
END

LISTBOX F_IMPU_QUOPER 1 4
BEGIN
  PROMPT 35 20 "Quote perse                     "
  ITEM "S|Si"
  ITEM "N|No"
  ITEM "O|Obbl"
  FIELD S5[13,13]
END
ENDPAGE
ENDMASK