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

BOOLEAN F_AMMPROP
BEGIN
  PROMPT 1 9 "Attiva ammortamento proporzionale da entrata in funzione"
  FIELD AMMPROP
END

ENDPAGE

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

BOOLEAN F_PLUSMINUS
BEGIN
  PROMPT 2 1 "Genera anche movimenti plus/minusvalenza"
  MESSAGE TRUE ENABLE,F_RIL_PLUS|ENABLE,F_D_RIL_PLUS|ENABLE,F_RIL_MIN|ENABLE,F_D_RIL_MIN|ENABLE,F_TIPOSCRIT|REQUIRED,F_PLUSVAL_SO|REQUIRED,F_MINUSVAL_SO
  MESSAGE FALSE CLEAR,F_RIL_PLUS|CLEAR,F_D_RIL_PLUS|CLEAR,F_RIL_MIN|CLEAR,F_D_RIL_MIN|CLEAR,F_TIPOSCRIT|NORMAL,F_PLUSVAL_SO|NORMAL,F_MINUSVAL_SO  
  FIELD COPLMN
END

RADIOBUTTON F_TIPOSCRIT 1 60
BEGIN
  PROMPT 2 2 "Tipo scrittura per vendita cespite "
  ITEM "|Su Conto Vendite"
    MESSAGE ENABLE,F_VEND_CESP_GR|ENABLE,F_VEND_CESP_CO|ENABLE,F_VEND_CESP_SO|ENABLE,F_VEND_CESP_D
  ITEM "X|Su Conto Cespite"
    MESSAGE CLEAR,F_VEND_CESP_GR|CLEAR,F_VEND_CESP_CO|CLEAR,F_VEND_CESP_SO|CLEAR,F_VEND_CESP_D
  FIELD COR5PM
END

GROUPBOX DLG_NULL 78 7
BEGIN
  PROMPT 1 6 "@B                             Cod.             Causali"
  FLAGS "R"
END

STRING F_ELIMCESP 3
BEGIN
  PROMPT 2 7 "Eliminazione cespite           "
  FIELD COAUEL
  USE LF_CAUSALI SELECT ((SOSPESO=="")&&(TIPODOC=="")&&(COLLCESP==""))
  INPUT CODCAUS F_ELIMCESP
  DISPLAY "Codice" CODCAUS
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_ELIMCESP CODCAUS
  OUTPUT F_D_ELIMCESP DESCR
  ADD RUN CG0 -4
  CHECKTYPE REQUIRED
END

STRING F_D_ELIMCESP 50 35
BEGIN
  PROMPT 40 7 ""
  USE LF_CAUSALI KEY 2
  INPUT DESCR F_D_ELIMCESP
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Codice" CODCAUS
  COPY OUTPUT F_ELIMCESP
  ADD RUN CG0 -4
  CHECKTYPE REQUIRED
END

STRING F_RIL_DIFF 3
BEGIN
  PROMPT 2 8 "Rilevazione differenze         "
  FIELD COAUDI
  USE LF_CAUSALI SELECT ((SOSPESO=="")&&(TIPODOC=="")&&(COLLCESP==""))
  INPUT CODCAUS F_RIL_DIFF
  DISPLAY "Codice" CODCAUS
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_RIL_DIFF CODCAUS
  OUTPUT F_D_RIL_DIFF DESCR
  ADD RUN CG0 -4
  CHECKTYPE REQUIRED
END

STRING F_D_RIL_DIFF 50 35
BEGIN
  PROMPT 40 8 ""
  USE LF_CAUSALI KEY 2
  INPUT DESCR F_D_RIL_DIFF
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Codice" CODCAUS
  COPY OUTPUT F_RIL_DIFF
  ADD RUN CG0 -4
  CHECKTYPE REQUIRED
END

STRING F_RIL_QUOT 3
BEGIN
  PROMPT 2 9 "Rilevazione quote ammortamento "
  FIELD COAUQU
  USE LF_CAUSALI SELECT ((SOSPESO=="")&&(TIPODOC=="")&&(COLLCESP==""))
  INPUT CODCAUS F_RIL_QUOT
  DISPLAY "Codice" CODCAUS
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_RIL_QUOT CODCAUS
  OUTPUT F_D_RIL_QUOT DESCR
  ADD RUN CG0 -4
  CHECKTYPE REQUIRED
END

STRING F_D_RIL_QUOT 50 35
BEGIN
  PROMPT 40 9 ""
  USE LF_CAUSALI KEY 2
  INPUT DESCR F_D_RIL_QUOT
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Codice" CODCAUS
  COPY OUTPUT F_RIL_QUOT
  ADD RUN CG0 -4
  CHECKTYPE REQUIRED
END

STRING F_RIL_PLUS 3
BEGIN
  PROMPT 2 10 "Rilevazione plusvalenze        "
  FIELD COAUPL
  USE LF_CAUSALI SELECT ((SOSPESO=="")&&(TIPODOC=="")&&(COLLCESP==""))
  INPUT CODCAUS F_RIL_PLUS
  DISPLAY "Codice" CODCAUS
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_RIL_PLUS CODCAUS
  OUTPUT F_D_RIL_PLUS DESCR
  ADD RUN CG0 -4
  CHECKTYPE REQUIRED
END

STRING F_D_RIL_PLUS 50 35
BEGIN
  PROMPT 40 10 ""
  USE LF_CAUSALI KEY 2
  INPUT DESCR F_D_RIL_PLUS
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Codice" CODCAUS
  COPY OUTPUT F_RIL_PLUS
  ADD RUN CG0 -4
  CHECKTYPE REQUIRED
END

STRING F_RIL_MIN 3
BEGIN
  PROMPT 2 11 "Rilevazione minusvalenze       "
  FIELD COAUM
  USE LF_CAUSALI SELECT ((SOSPESO=="")&&(TIPODOC=="")&&(COLLCESP==""))
  INPUT CODCAUS F_RIL_MIN
  DISPLAY "Codice" CODCAUS
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_RIL_MIN CODCAUS
  OUTPUT F_D_RIL_MIN DESCR
  ADD RUN CG0 -4
  CHECKTYPE REQUIRED
END

STRING F_D_RIL_MIN 50 35
BEGIN
  PROMPT 40 11 ""
  USE LF_CAUSALI KEY 2
  INPUT DESCR F_D_RIL_MIN
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Codice" CODCAUS
  COPY OUTPUT F_RIL_MIN
  ADD RUN CG0 -4
  CHECKTYPE REQUIRED
END

GROUPBOX DLG_NULL 78 8
BEGIN
  PROMPT 1 14 "@B                      Gr.   Co.  Sottoc.       Descrizione"
  FLAGS "R"
END

NUMBER F_SOPR_PAS_GR 3
BEGIN
  PROMPT 2 15 "Sopravvenienze passive "
  FIELD GRCOTELI
  FLAGS "R"
  USE LF_PCON KEY 1 SELECT CONTO=""
  INPUT GRUPPO F_SOPR_PAS_GR 
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_SOPR_PAS_GR GRUPPO
  ADD RUN CG0 -0
  CHECKTYPE REQUIRED
END

NUMBER F_SOPR_PAS_CO 3
BEGIN
  PROMPT 31 15 ""
  FIELD COCOTELI
  FLAGS "R"
  USE LF_PCON KEY 1 SELECT ((CONTO!="")&&(SOTTOCONTO=""))
  COPY INPUT F_SOPR_PAS_GR
  INPUT CONTO F_SOPR_PAS_CO
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_SOPR_PAS_GR GRUPPO
  OUTPUT F_SOPR_PAS_CO CONTO
  ADD RUN CG0 -0
  CHECKTYPE REQUIRED
  VALIDATE REQIF_FUNC 1 F_SOPR_PAS_SO
  WARNING "Manca il conto"
END

NUMBER F_SOPR_PAS_SO 6
BEGIN
  PROMPT 37 15 ""
  FIELD SOCOTELI
  FLAGS "R"
  USE LF_PCON KEY 1 SELECT SOTTOCONTO!=""
  COPY INPUT F_SOPR_PAS_CO
  INPUT SOTTOCONTO F_SOPR_PAS_SO
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  DISPLAY "Sosp." SOSPESO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_SOPR_PAS_SO SOTTOCONTO
  OUTPUT F_SOPR_PAS_GR GRUPPO
  OUTPUT F_SOPR_PAS_CO CONTO
  OUTPUT F_SOPR_PAS_D DESCR
  ADD RUN CG0 -0
  CHECKTYPE REQUIRED
END

STRING F_SOPR_PAS_D 50 29
BEGIN
  PROMPT 46 15 ""
  USE LF_PCON KEY 2
  INPUT DESCR F_SOPR_PAS_D
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Sosp." SOSPESO
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  COPY OUTPUT F_SOPR_PAS_SO
  ADD RUN CG0 -0
  CHECKTYPE REQUIRED
  WARNING "Manca la descrizione"
END

NUMBER F_DIFF_QUO_GR 3
BEGIN
  PROMPT 2 16 "Differenze su quote    "
  FIELD GRCOTDIQ
  FLAGS "R"
  USE LF_PCON KEY 1 SELECT CONTO=""
  INPUT GRUPPO F_DIFF_QUO_GR 
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_DIFF_QUO_GR GRUPPO
  ADD RUN CG0 -0
  CHECKTYPE REQUIRED
END

NUMBER F_DIFF_QUO_CO 3
BEGIN
  PROMPT 31 16 ""
  FIELD COCOTDIQ
  FLAGS "R"
  USE LF_PCON KEY 1 SELECT ((CONTO!="")&&(SOTTOCONTO=""))
  COPY INPUT F_DIFF_QUO_GR
  INPUT CONTO F_DIFF_QUO_CO
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_DIFF_QUO_GR GRUPPO
  OUTPUT F_DIFF_QUO_CO CONTO
  ADD RUN CG0 -0
  CHECKTYPE REQUIRED
  VALIDATE REQIF_FUNC 1 F_DIFF_QUO_SO
  WARNING "Manca il conto"
END

NUMBER F_DIFF_QUO_SO 6
BEGIN
  PROMPT 37 16 ""
  FIELD SOCOTDIQ
  FLAGS "R"
  USE LF_PCON KEY 1 SELECT SOTTOCONTO!=""
  COPY INPUT F_DIFF_QUO_CO
  INPUT SOTTOCONTO F_DIFF_QUO_SO
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  DISPLAY "Sosp." SOSPESO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_DIFF_QUO_SO SOTTOCONTO
  OUTPUT F_DIFF_QUO_GR GRUPPO
  OUTPUT F_DIFF_QUO_CO CONTO
  OUTPUT F_DIFF_QUO_D DESCR
  ADD RUN CG0 -0
  CHECKTYPE REQUIRED
END

STRING F_DIFF_QUO_D 50 29
BEGIN
  PROMPT 46 16 ""
  USE LF_PCON KEY 2
  INPUT DESCR F_DIFF_QUO_D
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Sosp." SOSPESO
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  COPY OUTPUT F_DIFF_QUO_SO
  ADD RUN CG0 -0
  CHECKTYPE REQUIRED
  WARNING "Manca la descrizione"
END

NUMBER F_DIFF_FON_GR 3
BEGIN
  PROMPT 2 17 "Differenze su fondi    "
  FIELD GRCOTDIF
  FLAGS "R"
  USE LF_PCON KEY 1 SELECT CONTO=""
  INPUT GRUPPO F_DIFF_FON_GR 
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_DIFF_FON_GR GRUPPO
  ADD RUN CG0 -0
  CHECKTYPE REQUIRED
END

NUMBER F_DIFF_FON_CO 3
BEGIN
  PROMPT 31 17 ""
  FIELD COCOTDIF
  FLAGS "R"
  USE LF_PCON KEY 1 SELECT ((CONTO!="")&&(SOTTOCONTO=""))
  COPY INPUT F_DIFF_FON_GR
  INPUT CONTO F_DIFF_FON_CO
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_DIFF_FON_GR GRUPPO
  OUTPUT F_DIFF_FON_CO CONTO
  ADD RUN CG0 -0
  CHECKTYPE REQUIRED
  VALIDATE REQIF_FUNC 1 F_DIFF_FON_SO
  WARNING "Manca il conto"
END

NUMBER F_DIFF_FON_SO 6
BEGIN
  PROMPT 37 17 ""
  FIELD SOCOTDIF
  FLAGS "R"
  USE LF_PCON KEY 1 SELECT SOTTOCONTO!=""
  COPY INPUT F_DIFF_FON_CO
  INPUT SOTTOCONTO F_DIFF_FON_SO
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  DISPLAY "Sosp." SOSPESO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_DIFF_FON_SO SOTTOCONTO
  OUTPUT F_DIFF_FON_GR GRUPPO
  OUTPUT F_DIFF_FON_CO CONTO
  OUTPUT F_DIFF_FON_D DESCR
  ADD RUN CG0 -0
  CHECKTYPE REQUIRED
END

STRING F_DIFF_FON_D 50 29
BEGIN
  PROMPT 46 17 ""
  USE LF_PCON KEY 2
  INPUT DESCR F_DIFF_FON_D
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Sosp." SOSPESO
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  COPY OUTPUT F_DIFF_FON_SO
  ADD RUN CG0 -0
  CHECKTYPE REQUIRED
  WARNING "Manca la descrizione"
END

NUMBER F_PLUSVAL_GR 3
BEGIN
  PROMPT 2 18 "Plusvalenze            "
  FIELD GRCOTPLU
  FLAGS "R"
  USE LF_PCON KEY 1 SELECT CONTO=""
  INPUT GRUPPO F_PLUSVAL_GR 
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_PLUSVAL_GR GRUPPO
  ADD RUN CG0 -0
  CHECKTYPE NORMAL
END

NUMBER F_PLUSVAL_CO 3
BEGIN
  PROMPT 31 18 ""
  FIELD COCOTPLU
  FLAGS "R"
  USE LF_PCON KEY 1 SELECT ((CONTO!="")&&(SOTTOCONTO="")&&(INDBIL==4))
  COPY INPUT F_PLUSVAL_GR
  INPUT CONTO F_PLUSVAL_CO
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_PLUSVAL_GR GRUPPO
  OUTPUT F_PLUSVAL_CO CONTO
  ADD RUN CG0 -0
  CHECKTYPE NORMAL
  VALIDATE REQIF_FUNC 1 F_PLUSVAL_SO
  WARNING "Manca il conto"
END

NUMBER F_PLUSVAL_SO 6
BEGIN
  PROMPT 37 18 ""
  FIELD SOCOTPLU
  FLAGS "R"
  USE LF_PCON KEY 1 SELECT SOTTOCONTO!=""
  INPUT GRUPPO F_PLUSVAL_GR SELECT
  INPUT CONTO F_PLUSVAL_CO SELECT
  INPUT SOTTOCONTO F_PLUSVAL_SO
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  DISPLAY "Sosp." SOSPESO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_PLUSVAL_SO SOTTOCONTO
  OUTPUT F_PLUSVAL_GR GRUPPO
  OUTPUT F_PLUSVAL_CO CONTO
  OUTPUT F_PLUSVAL_D DESCR
  ADD RUN CG0 -0
  CHECKTYPE NORMAL
END

STRING F_PLUSVAL_D 50 29
BEGIN
  PROMPT 46 18 ""
  USE LF_PCON KEY 2
  INPUT DESCR F_PLUSVAL_D
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Sosp." SOSPESO
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  COPY OUTPUT F_PLUSVAL_SO
  ADD RUN CG0 -0
  CHECKTYPE NORMAL
  WARNING "Manca la descrizione"
END

NUMBER F_MINUSVAL_GR 3
BEGIN
  PROMPT 2 19 "Minusvalenze           "
  FIELD GRCOTMIN
  FLAGS "R"
  USE LF_PCON KEY 1 SELECT CONTO=""
  INPUT GRUPPO F_MINUSVAL_GR 
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_MINUSVAL_GR GRUPPO
  ADD RUN CG0 -0
  CHECKTYPE NORMAL
END

NUMBER F_MINUSVAL_CO 3
BEGIN
  PROMPT 31 19 ""
  FIELD COCOTMIN
  FLAGS "R"
  USE LF_PCON KEY 1 SELECT ((CONTO!="")&&(SOTTOCONTO="")&&(INDBIL==3))
  COPY INPUT F_MINUSVAL_GR
  INPUT CONTO F_MINUSVAL_CO
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_MINUSVAL_GR GRUPPO
  OUTPUT F_MINUSVAL_CO CONTO
  ADD RUN CG0 -0
  CHECKTYPE NORMAL
  VALIDATE REQIF_FUNC 1 F_MINUSVAL_SO
  WARNING "Manca il conto"
END

NUMBER F_MINUSVAL_SO 6
BEGIN
  PROMPT 37 19 ""
  FIELD SOCOTMIN
  FLAGS "R"
  USE LF_PCON KEY 1 SELECT SOTTOCONTO!=""
  INPUT GRUPPO F_MINUSVAL_GR SELECT
  INPUT CONTO F_MINUSVAL_CO  SELECT
  INPUT SOTTOCONTO F_MINUSVAL_SO
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  DISPLAY "Sosp." SOSPESO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_MINUSVAL_SO SOTTOCONTO
  OUTPUT F_MINUSVAL_GR GRUPPO
  OUTPUT F_MINUSVAL_CO CONTO
  OUTPUT F_MINUSVAL_D DESCR
  ADD RUN CG0 -0
  CHECKTYPE NORMAL
END

STRING F_MINUSVAL_D 50 29
BEGIN
  PROMPT 46 19 ""
  USE LF_PCON KEY 2
  INPUT DESCR F_MINUSVAL_D
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Sosp." SOSPESO
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  COPY OUTPUT F_MINUSVAL_SO
  ADD RUN CG0 -0
  CHECKTYPE NORMAL
  WARNING "Manca la descrizione"
END

NUMBER F_VEND_CESP_GR 3
BEGIN
  PROMPT 2 20 "Vendite cespiti        "
  FIELD GRCOTVEN
  FLAGS "R"
  USE LF_PCON KEY 1 SELECT CONTO=""
  INPUT GRUPPO F_VEND_CESP_GR 
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_VEND_CESP_GR GRUPPO
  ADD RUN CG0 -0
  CHECKTYPE REQUIRED
END

NUMBER F_VEND_CESP_CO 3
BEGIN
  PROMPT 31 20 ""
  FIELD COCOTVEN
  FLAGS "R"
  USE LF_PCON KEY 1 SELECT ((CONTO!="")&&(SOTTOCONTO=""))
  COPY INPUT F_VEND_CESP_GR
  INPUT CONTO F_VEND_CESP_CO
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_VEND_CESP_GR GRUPPO
  OUTPUT F_VEND_CESP_CO CONTO
  ADD RUN CG0 -0
  CHECKTYPE REQUIRED
  VALIDATE REQIF_FUNC 1 F_VEND_CESP_SO
  WARNING "Manca il conto"
END

NUMBER F_VEND_CESP_SO 6
BEGIN
  PROMPT 37 20 ""
  FIELD SOCOTVEN
  FLAGS "R"
  USE LF_PCON SELECT SOTTOCONTO!=""
  COPY INPUT F_VEND_CESP_CO
  INPUT SOTTOCONTO F_VEND_CESP_SO
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Sospeso" SOSPESO
  OUTPUT F_VEND_CESP_SO SOTTOCONTO
  OUTPUT F_VEND_CESP_GR GRUPPO
  OUTPUT F_VEND_CESP_CO CONTO
  OUTPUT F_VEND_CESP_D DESCR
  ADD RUN CG0 -0
  CHECKTYPE REQUIRED
END

STRING F_VEND_CESP_D 50 29
BEGIN
  PROMPT 46 20 ""
  USE LF_PCON KEY 2
  INPUT DESCR F_VEND_CESP_D
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Sosp." SOSPESO
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  COPY OUTPUT F_VEND_CESP_SO
  ADD RUN CG0 -0
  CHECKTYPE REQUIRED
  WARNING "Manca la descrizione"
END

ENDPAGE
*/

ENDMASK