campo-sirio/ce/ce0400a.uml

#include "ce0400a.h"

TOOLBAR "" 0 -2 0 2

BUTTON DLG_OK 10 2
BEGIN
  PROMPT -12 -11 ""
END

BUTTON DLG_QUIT 10 2
BEGIN
  PROMPT -22 -11 ""
END

ENDPAGE

PAGE "Parametri Ditta" -1 -1 78 10

GROUPBOX DLG_NULL 76 6
BEGIN
  PROMPT 1 1 "@bEsercizio/Attivita' corrente"
  FLAGS "R"
END

NUMBER F_DITTA 5
BEGIN
  PROMPT 2 2 "Ditta     "
  FLAGS "DFG"
  USE LF_NDITTE
  INPUT CODDITTA F_DITTA
  OUTPUT F_RAGSOC RAGSOC
  CHECKTYPE NORMAL
END

STRING F_RAGSOC 50
BEGIN
  PROMPT 25 2 ""
  FLAGS "D"
END

NUMBER F_ESERCORR 4
BEGIN
   PROMPT 2 3 "Esercizio "
   FIELD CODESCORR
   FLAGS "Z"
   USE CCE
   JOIN ESC ALIAS 105 INTO CODTAB==CODTAB
   INPUT CODTAB F_ESERCORR
   DISPLAY "Codice esercizio" CODTAB 
   DISPLAY "Data inizio" 105@->D0
   DISPLAY "Data fine@10" 105@->D1
   OUTPUT F_ESERCORR CODTAB
   OUTPUT F_DATAINIZIO 105@->D0
   OUTPUT F_DATAFINE 105@->D1
   CHECKTYPE REQUIRED
END

DATE F_DATAINIZIO 
BEGIN
   PROMPT 20 3 "Data inizio "
   FLAGS "D"
END

DATE F_DATAFINE
BEGIN
   PROMPT 45 3 "Data fine "
   FLAGS "D"
END

NUMBER F_GRUPPOCORR 2
BEGIN
  PROMPT 2 4 "Gruppo "
  FIELD GRUPPOCORR
  FLAGS "Z"
  USE CCB KEY 1        
  JOIN %CGR ALIAS 106 INTO CODTAB==CODTAB[5,6]
  JOIN %CAT ALIAS 107 INTO CODTAB==CODTAB[5,10]
  INPUT CODTAB[1,4] F_ESERCORR SELECT
  INPUT CODTAB[5,6] F_GRUPPOCORR
  INPUT CODTAB[7,10] F_SPECIECORR
  DISPLAY "Gruppo" CODTAB[5,6]    
  DISPLAY "Specie" CODTAB[7,10]
  DISPLAY "Descrizione@60" 107@->S0
  OUTPUT F_GRUPPOCORR CODTAB[5,6]
  OUTPUT F_D_GRUPPOCORR 106@->S0 
  OUTPUT F_SPECIECORR CODTAB[7,10]
  OUTPUT F_D_SPECIECORR 107@->S0
  CHECKTYPE NORMAL   
END

STRING F_D_GRUPPOCORR 60 58
BEGIN
  PROMPT 17 4 ""
  FLAGS "D"
END

STRING F_SPECIECORR 4
BEGIN
  PROMPT 2 5 "Specie "
  FIELD SPECIECORR
  FLAGS "_"
  COPY ALL F_GRUPPOCORR
  CHECKTYPE NORMAL
END

STRING F_D_SPECIECORR 60 58
BEGIN
  PROMPT 17 5 ""
  FLAGS "D"
END

DATE F_DATACONS
BEGIN
  PROMPT 1 7 "Data conseguimento primi ricavi "
  FIELD CADTR
END

TEXT DLG_NULL
BEGIN
  PROMPT 1 8 "Anno inizio applicazione TUIR"
END

RADIOBUTTON F_ANNOTUIR 30
BEGIN
  FLAGS "Z"
  PROMPT 33 7 ""
  ITEM "1988|1988"
  ITEM "1989|1989"
  FIELD CATSU
END

ENDPAGE

PAGE "Collegamento Contabilit<69>" -1 -1 78 10

BOOLEAN F_PLUSMINUS
BEGIN
  PROMPT 1 1 "Generazione movimenti di plus/minusvalenza"
END

GROUP DLG_NULL 78 8
BEGIN
  PROMPT 1 2 "@bConti di collegamento"
END

NUMBER F_GR1 3
BEGIN
  PROMPT 2 3 "Eliminazione cespiti   "
  CHECKTYPE NORMAL
END

NUMBER F_CO1 3
BEGIN
  PROMPT 30 3 ""
  CHECKTYPE NORMAL
END

NUMBER F_SO1 6
BEGIN
  PROMPT 35 3 ""
  USE LF_PCON SELECT SOTTOCONTO!=""
  INPUT GRUPPO F_GR1
  INPUT CONTO F_CO1
  INPUT SOTTOCONTO F_SO1
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_GR1 GRUPPO
  OUTPUT F_CO1 CONTO
  OUTPUT F_SO1 SOTTOCONTO
  OUTPUT F_DE1 DESCR
  CHECKTYPE NORMAL
END

STRING F_DE1 50 30
BEGIN
  PROMPT 45 3 ""
  USE LF_PCON KEY 2 SELECT SOTTOCONTO!=""
  INPUT DESCR F_DE1
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  COPY OUTPUT F_SO1
END

NUMBER F_GR2 3
BEGIN
  PROMPT 2 4 "Differenze su quote    "
  CHECKTYPE NORMAL
END

NUMBER F_CO2 3
BEGIN
  PROMPT 30 4 ""
  CHECKTYPE NORMAL
END

NUMBER F_SO2 6
BEGIN
  PROMPT 35 4 ""
  USE LF_PCON SELECT SOTTOCONTO!=""
  INPUT GRUPPO F_GR2
  INPUT CONTO F_CO2
  INPUT SOTTOCONTO F_SO2
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_GR2 GRUPPO
  OUTPUT F_CO2 CONTO
  OUTPUT F_SO2 SOTTOCONTO
  OUTPUT F_DE2 DESCR
  CHECKTYPE NORMAL
END

STRING F_DE2 50 30
BEGIN
  PROMPT 45 4 ""
  USE LF_PCON KEY 2 SELECT SOTTOCONTO!=""
  INPUT DESCR F_DE2
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  COPY OUTPUT F_SO2
END

NUMBER F_GR3 3
BEGIN
  PROMPT 2 5 "Differenze su fondi    "
  CHECKTYPE NORMAL
END

NUMBER F_CO3 3
BEGIN
  PROMPT 30 5 ""
  CHECKTYPE NORMAL
END

NUMBER F_SO3 6
BEGIN
  PROMPT 35 5 ""
  USE LF_PCON SELECT SOTTOCONTO!=""
  INPUT GRUPPO F_GR3
  INPUT CONTO F_CO3
  INPUT SOTTOCONTO F_SO3
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_GR3 GRUPPO
  OUTPUT F_CO3 CONTO
  OUTPUT F_SO3 SOTTOCONTO
  OUTPUT F_DE3 DESCR
  CHECKTYPE NORMAL
END

STRING F_DE3 50 30
BEGIN
  PROMPT 45 5 ""
  USE LF_PCON KEY 2 SELECT SOTTOCONTO!=""
  INPUT DESCR F_DE3
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  COPY OUTPUT F_SO3
END

NUMBER F_GR4 3
BEGIN
  PROMPT 2 6 "Differenze su plusval. "
  CHECKTYPE NORMAL
END

NUMBER F_CO4 3
BEGIN
  PROMPT 30 6 ""
  CHECKTYPE NORMAL
END

NUMBER F_SO4 6
BEGIN
  PROMPT 35 6 ""
  USE LF_PCON SELECT SOTTOCONTO!=""
  INPUT GRUPPO F_GR4
  INPUT CONTO F_CO4
  INPUT SOTTOCONTO F_SO4
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_GR4 GRUPPO
  OUTPUT F_CO4 CONTO
  OUTPUT F_SO4 SOTTOCONTO
  OUTPUT F_DE4 DESCR
  CHECKTYPE NORMAL
END

STRING F_DE4 50 30
BEGIN
  PROMPT 45 6 ""
  USE LF_PCON KEY 2 SELECT SOTTOCONTO!=""
  INPUT DESCR F_DE4
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  COPY OUTPUT F_SO4
END

NUMBER F_GR5 3
BEGIN
  PROMPT 2 7 "Differenze su minusval."
  CHECKTYPE NORMAL
END

NUMBER F_CO5 3
BEGIN
  PROMPT 30 7 ""
  CHECKTYPE NORMAL
END

NUMBER F_SO5 6
BEGIN
  PROMPT 35 7 ""
  USE LF_PCON SELECT SOTTOCONTO!=""
  INPUT GRUPPO F_GR5
  INPUT CONTO F_CO5
  INPUT SOTTOCONTO F_SO5
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_GR5 GRUPPO
  OUTPUT F_CO5 CONTO
  OUTPUT F_SO5 SOTTOCONTO
  OUTPUT F_DE5 DESCR
  CHECKTYPE NORMAL
END

STRING F_DE5 50 30
BEGIN
  PROMPT 45 7 ""
  USE LF_PCON KEY 2 SELECT SOTTOCONTO!=""
  INPUT DESCR F_DE5
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  COPY OUTPUT F_SO5
END

NUMBER F_GR6 3
BEGIN
  PROMPT 2 8 "Vendita cespiti        "
  CHECKTYPE NORMAL
END

NUMBER F_CO6 3
BEGIN
  PROMPT 30 8 ""
  CHECKTYPE NORMAL
END

NUMBER F_SO6 6
BEGIN
  PROMPT 35 8 ""
  USE LF_PCON SELECT SOTTOCONTO!=""
  INPUT GRUPPO F_GR6
  INPUT CONTO F_CO6
  INPUT SOTTOCONTO F_SO6
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_GR6 GRUPPO
  OUTPUT F_CO6 CONTO
  OUTPUT F_SO6 SOTTOCONTO
  OUTPUT F_DE6 DESCR
  CHECKTYPE NORMAL
END

STRING F_DE6 50 30
BEGIN
  PROMPT 45 8 ""
  USE LF_PCON KEY 2 SELECT SOTTOCONTO!=""
  INPUT DESCR F_DE6
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  COPY OUTPUT F_SO6
END

GROUP DLG_NULL 78 7
BEGIN
  PROMPT 1 10 "@bCausali di collegamento"
END

STRING F_CA1 3
BEGIN
  PROMPT 2 11 "Eliminazione cespiti                "
  USE LF_CAUSALI
  INPUT CODCAUS F_CA1
  DISPLAY "Codice" CODCAUS
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_CA1 CODCAUS
  OUTPUT F_DC1 DESCR
  CHECKTYPE NORMAL
END

STRING F_DC1 50 30
BEGIN
  PROMPT 45 11 ""
  USE LF_CAUSALI KEY 2
  INPUT DESCR F_DC1
  DISPLAY "Descrizione@60" DESCR
  DISPLAY "Codice" CODCAUS
  COPY OUTPUT F_CA1
  CHECKTYPE NORMAL
END

STRING F_CA2 3
BEGIN
  PROMPT 2 12 "Rilevazione differenze              "
  USE LF_CAUSALI
  INPUT CODCAUS F_CA2
  DISPLAY "Codice" CODCAUS
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_CA2 CODCAUS
  OUTPUT F_DC2 DESCR
  CHECKTYPE NORMAL
END

STRING F_DC2 50 30
BEGIN
  PROMPT 45 12 ""
  USE LF_CAUSALI KEY 2
  INPUT DESCR F_DC2
  DISPLAY "Descrizione@60" DESCR
  DISPLAY "Codice" CODCAUS
  COPY OUTPUT F_CA2
  CHECKTYPE NORMAL
END

STRING F_CA3 3
BEGIN
  PROMPT 2 13 "Rilevazione quote ammortamento      "
  USE LF_CAUSALI
  INPUT CODCAUS F_CA3
  DISPLAY "Codice" CODCAUS
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_CA3 CODCAUS
  OUTPUT F_DC3 DESCR
  CHECKTYPE NORMAL
END

STRING F_DC3 50 30
BEGIN
  PROMPT 45 13 ""
  USE LF_CAUSALI KEY 2
  INPUT DESCR F_DC3
  DISPLAY "Descrizione@60" DESCR
  DISPLAY "Codice" CODCAUS
  COPY OUTPUT F_CA3
  CHECKTYPE NORMAL
END

STRING F_CA4 3
BEGIN
  PROMPT 2 14 "Rilevazione quote plusvalenze       "
  USE LF_CAUSALI
  INPUT CODCAUS F_CA4
  DISPLAY "Codice" CODCAUS
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_CA4 CODCAUS
  OUTPUT F_DC4 DESCR
  CHECKTYPE NORMAL
END

STRING F_DC4 50 30
BEGIN
  PROMPT 45 14 ""
  USE LF_CAUSALI KEY 2
  INPUT DESCR F_DC4
  DISPLAY "Descrizione@60" DESCR
  DISPLAY "Codice" CODCAUS
  COPY OUTPUT F_CA4
  CHECKTYPE NORMAL
END

STRING F_CA5 3
BEGIN
  PROMPT 2 15 "Rilevazione quote minusvalenze      "
  USE LF_CAUSALI
  INPUT CODCAUS F_CA5
  DISPLAY "Codice" CODCAUS
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_CA5 CODCAUS
  OUTPUT F_DC5 DESCR
  CHECKTYPE NORMAL
END

STRING F_DC5 50 30
BEGIN
  PROMPT 45 15 ""
  USE LF_CAUSALI KEY 2
  INPUT DESCR F_DC5
  DISPLAY "Descrizione@60" DESCR
  DISPLAY "Codice" CODCAUS
  COPY OUTPUT F_CA5
  CHECKTYPE NORMAL
END


ENDPAGE

ENDMASK