#include "ce0400b.h"

TOOLBAR "" 0 -2 0 2

BUTTON DLG_OK 10 2
BEGIN
  PROMPT -12 -11 ""
  PICTURE BMP_SAVEREC
  PICTURE BMP_SAVERECDN
END

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

ENDPAGE

PAGE " Collegamenti contabili parametri per ditta  " -1 -1 60 6

RADIOBUTTON F_PLUSMINUS 40
BEGIN
  FLAGS "Z"
  PROMPT 2 1 "Genera anche movimenti plus/minusvalenza"
  ITEM "0|SI"
  MESSAGE ENABLE,F_RIL_PLUS|ENABLE,F_D_RIL_PLUS|ENABLE,F_RIL_MIN|ENABLE,F_D_RIL_MIN|ENABLE,F_TIPOSCRIT
  MESSAGE REQUIRED,F_PLUSVAL_SO|REQUIRED,F_MINUSVAL_SO
  ITEM "1|NO"
  MESSAGE CLEAR,F_RIL_PLUS|CLEAR,F_D_RIL_PLUS|CLEAR,F_RIL_MIN|CLEAR,F_D_RIL_MIN|CLEAR,F_TIPOSCRIT
  MESSAGE NORMAL,F_PLUSVAL_SO|NORMAL,F_MINUSVAL_SO  
  FIELD COPLMN
END

LISTBOX F_TIPOSCRIT 1 16
BEGIN
  PROMPT 2 4 "Tipo scrittura per vendita cespite "
  ITEM "0|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 "1|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.  S.co.         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 KEY 1 SELECT SOTTOCONTO!=""
  COPY INPUT F_VEND_CESP_CO
  INPUT SOTTOCONTO F_VEND_CESP_SO
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  DISPLAY "Sosp." SOSPESO
  DISPLAY "Descrizione@50" DESCR
  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