#include "baeur30.h"

TOOLBAR "" 0 -3 0 3

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

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

ENDPAGE    

PAGE "Chiusura/Apertura Euro" 0 0 0 -3

GROUPBOX DLG_NULL 78 5
BEGIN
  PROMPT 1 1 "@bDitta corrente"  
END

NUMBER F30_DITTA 5
BEGIN
  PROMPT 2 2 "Ditta "
  USE LF_NDITTE
  INPUT CODDITTA F30_DITTA
  OUTPUT F30_RAGSOC RAGSOC
  CHECKTYPE REQUIRED
  FLAGS "DF"
END

STRING F30_RAGSOC 50
BEGIN
  PROMPT 21 2 ""
  FLAGS "D"
END

STRING F30_DATI 50
BEGIN
  PROMPT 2 3 "Area dati in Lire  "
  FLAGS "D"
END

STRING F30_DATIE 50
BEGIN
  PROMPT 2 4 "Area dati in Euro  "
  FLAGS "D"
END

GROUPBOX DLG_NULL 78 4
BEGIN
  PROMPT 1 6 "@bChiusura e apertura"  
END

STRING F30_CAUS_C 3
BEGIN
  PROMPT 2 7 "Causale chiusura "
  FLAGS "U"
  USE LF_CAUSALI SELECT MOVAP="C"
  INPUT CODCAUS F30_CAUS_C
  DISPLAY "Codice" CODCAUS
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F30_CAUS_C CODCAUS
  CHECKTYPE REQUIRED
END 

DATE F30_DATA_C
BEGIN
  PROMPT 32 7 "Data chiusura "
  FLAGS "D"
END

NUMBER F30_ANNO_C 4
BEGIN
  PROMPT 62 7 "Esercizio "
  FLAGS "D"
END

STRING F30_CAUS_A 3
BEGIN
  PROMPT 2 8 "Causale aperura  "
  FLAGS "U"
  USE LF_CAUSALI SELECT MOVAP="A"
  INPUT CODCAUS F30_CAUS_A
  DISPLAY "Codice" CODCAUS
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F30_CAUS_A CODCAUS
  CHECKTYPE REQUIRED
END 

DATE F30_DATA_A
BEGIN
  PROMPT 32 8 "Data apertura "
  FLAGS "D"
END

NUMBER F30_ANNO_A 4
BEGIN
  PROMPT 62 8 "Esercizio "
  FLAGS "D"
END

GROUPBOX DLG_NULL 78 10
BEGIN
  PROMPT 1 10 "@bConti"  
END

NUMBER F30_BILCHI_G 3
BEGIN
  PROMPT 2 11 "Bilancio di chiusura   "
END

NUMBER F30_BILCHI_C 3
BEGIN
  PROMPT 30 11 ""
END

NUMBER F30_BILCHI_S 6
BEGIN
  PROMPT 35 11 ""
  USE LF_PCON SELECT SOTTOCONTO!=""
  INPUT GRUPPO F30_BILCHI_G
  INPUT CONTO F30_BILCHI_C
  INPUT SOTTOCONTO F30_BILCHI_S
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F30_BILCHI_G GRUPPO 
  OUTPUT F30_BILCHI_C CONTO 
  OUTPUT F30_BILCHI_S SOTTOCONTO
  OUTPUT F30_BILCHI_D DESCR
  CHECKTYPE REQUIRED 
  ADD RUN cg0 -0
END

STRING F30_BILCHI_D 50 30
BEGIN
  PROMPT 45 11 ""
  USE LF_PCON SELECT SOTTOCONTO!=""
  INPUT DESCR F30_BILCHI_D
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  COPY OUTPUT F30_BILCHI_S
  CHECKTYPE REQUIRED 
  ADD RUN cg0 -0
END

NUMBER F30_PROPER_G 3
BEGIN
  PROMPT 2 12 "Profitti e perdite     "
END

NUMBER F30_PROPER_C 3
BEGIN
  PROMPT 30 12 ""
END

NUMBER F30_PROPER_S 6
BEGIN
  PROMPT 35 12 ""
  USE LF_PCON SELECT SOTTOCONTO!=""
  INPUT GRUPPO F30_PROPER_G
  INPUT CONTO F30_PROPER_C
  INPUT SOTTOCONTO F30_PROPER_S
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F30_PROPER_G GRUPPO 
  OUTPUT F30_PROPER_C CONTO 
  OUTPUT F30_PROPER_S SOTTOCONTO
  OUTPUT F30_PROPER_D DESCR
  CHECKTYPE REQUIRED 
  ADD RUN cg0 -0
END

STRING F30_PROPER_D 50 30
BEGIN
  PROMPT 45 12 ""
  USE LF_PCON SELECT SOTTOCONTO!=""
  INPUT DESCR F30_PROPER_D
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  COPY OUTPUT F30_PROPER_S
  CHECKTYPE REQUIRED 
  ADD RUN cg0 -0
END

NUMBER F30_BILAPE_G 3
BEGIN
  PROMPT 2 13 "Bilancio di chiusura   "
END

NUMBER F30_BILAPE_C 3
BEGIN
  PROMPT 30 13 ""
END

NUMBER F30_BILAPE_S 6
BEGIN
  PROMPT 35 13 ""
  USE LF_PCON SELECT SOTTOCONTO!=""
  INPUT GRUPPO F30_BILAPE_G
  INPUT CONTO F30_BILAPE_C
  INPUT SOTTOCONTO F30_BILAPE_S
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F30_BILAPE_G GRUPPO 
  OUTPUT F30_BILAPE_C CONTO 
  OUTPUT F30_BILAPE_S SOTTOCONTO
  OUTPUT F30_BILAPE_D DESCR
  CHECKTYPE REQUIRED 
  ADD RUN cg0 -0
END

STRING F30_BILAPE_D 50 30
BEGIN
  PROMPT 45 13 ""
  USE LF_PCON SELECT SOTTOCONTO!=""
  INPUT DESCR F30_BILAPE_D
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  COPY OUTPUT F30_BILAPE_S
  CHECKTYPE REQUIRED 
  ADD RUN cg0 -0
END

NUMBER F30_UTIPAT_G 3
BEGIN
  PROMPT 2 14 "Utile esercizio patr.  "
END

NUMBER F30_UTIPAT_C 3
BEGIN
  PROMPT 30 14 ""
END

NUMBER F30_UTIPAT_S 6
BEGIN
  PROMPT 35 14 ""
  USE LF_PCON SELECT SOTTOCONTO!=""
  INPUT GRUPPO F30_UTIPAT_G
  INPUT CONTO F30_UTIPAT_C
  INPUT SOTTOCONTO F30_UTIPAT_S
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F30_UTIPAT_G GRUPPO 
  OUTPUT F30_UTIPAT_C CONTO 
  OUTPUT F30_UTIPAT_S SOTTOCONTO
  OUTPUT F30_UTIPAT_D DESCR
  CHECKTYPE REQUIRED 
  ADD RUN cg0 -0
END

STRING F30_UTIPAT_D 50 30
BEGIN
  PROMPT 45 14 ""
  USE LF_PCON SELECT SOTTOCONTO!=""
  INPUT DESCR F30_UTIPAT_D
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  COPY OUTPUT F30_UTIPAT_S
  CHECKTYPE REQUIRED 
  ADD RUN cg0 -0
END

NUMBER F30_PERPAT_G 3
BEGIN
  PROMPT 2 15 "Perdita esercizio patr."
END

NUMBER F30_PERPAT_C 3
BEGIN
  PROMPT 30 15 ""
END

NUMBER F30_PERPAT_S 6
BEGIN
  PROMPT 35 15 ""
  USE LF_PCON SELECT SOTTOCONTO!=""
  INPUT GRUPPO F30_PERPAT_G
  INPUT CONTO F30_PERPAT_C
  INPUT SOTTOCONTO F30_PERPAT_S
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F30_PERPAT_G GRUPPO 
  OUTPUT F30_PERPAT_C CONTO 
  OUTPUT F30_PERPAT_S SOTTOCONTO
  OUTPUT F30_PERPAT_D DESCR
  CHECKTYPE REQUIRED 
  ADD RUN cg0 -0
END

STRING F30_PERPAT_D 50 30
BEGIN
  PROMPT 45 15 ""
  USE LF_PCON SELECT SOTTOCONTO!=""
  INPUT DESCR F30_PERPAT_D
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  COPY OUTPUT F30_PERPAT_S
  CHECKTYPE REQUIRED 
  ADD RUN cg0 -0
END

NUMBER F30_UTIECO_G 3
BEGIN
  PROMPT 2 16 "Utile esercizio econ.  "
END

NUMBER F30_UTIECO_C 3
BEGIN
  PROMPT 30 16 ""
END

NUMBER F30_UTIECO_S 6
BEGIN
  PROMPT 35 16 ""
  USE LF_PCON SELECT SOTTOCONTO!=""
  INPUT GRUPPO F30_UTIECO_G
  INPUT CONTO F30_UTIECO_C
  INPUT SOTTOCONTO F30_UTIECO_S
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F30_UTIECO_G GRUPPO 
  OUTPUT F30_UTIECO_C CONTO 
  OUTPUT F30_UTIECO_S SOTTOCONTO
  OUTPUT F30_UTIECO_D DESCR
  CHECKTYPE REQUIRED 
  ADD RUN cg0 -0
END

STRING F30_UTIECO_D 50 30
BEGIN
  PROMPT 45 16 ""
  USE LF_PCON SELECT SOTTOCONTO!=""
  INPUT DESCR F30_UTIECO_D
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  COPY OUTPUT F30_UTIECO_S
  CHECKTYPE REQUIRED 
  ADD RUN cg0 -0
END

NUMBER F30_PERECO_G 3
BEGIN
  PROMPT 2 17 "Perdita esercizio econ."
END

NUMBER F30_PERECO_C 3
BEGIN
  PROMPT 30 17 ""
END

NUMBER F30_PERECO_S 6
BEGIN
  PROMPT 35 17 ""
  USE LF_PCON SELECT SOTTOCONTO!=""
  INPUT GRUPPO F30_PERECO_G
  INPUT CONTO F30_PERECO_C
  INPUT SOTTOCONTO F30_PERECO_S
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F30_PERECO_G GRUPPO 
  OUTPUT F30_PERECO_C CONTO 
  OUTPUT F30_PERECO_S SOTTOCONTO
  OUTPUT F30_PERECO_D DESCR
  CHECKTYPE REQUIRED 
  ADD RUN cg0 -0
END

STRING F30_PERECO_D 50 30
BEGIN
  PROMPT 45 17 ""
  USE LF_PCON SELECT SOTTOCONTO!=""
  INPUT DESCR F30_PERECO_D
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  COPY OUTPUT F30_PERECO_S
  CHECKTYPE REQUIRED 
  ADD RUN cg0 -0
END

NUMBER F30_DIFARR_G 3
BEGIN
  PROMPT 2 18 "Differenza arrotondam. "
END

NUMBER F30_DIFARR_C 3
BEGIN
  PROMPT 30 18 ""
END

NUMBER F30_DIFARR_S 6
BEGIN
  PROMPT 35 18 ""
  USE LF_PCON SELECT SOTTOCONTO!=""
  INPUT GRUPPO F30_DIFARR_G
  INPUT CONTO F30_DIFARR_C
  INPUT SOTTOCONTO F30_DIFARR_S
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Sottoconto" GRUPPO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F30_DIFARR_G GRUPPO 
  OUTPUT F30_DIFARR_C CONTO 
  OUTPUT F30_DIFARR_S SOTTOCONTO
  OUTPUT F30_DIFARR_D DESCR
  CHECKTYPE REQUIRED 
  WARNING "E' necessario specificare il conto per gli arrotondamenti"
  ADD RUN cg0 -0
END

STRING F30_DIFARR_D 50 30
BEGIN
  PROMPT 45 18 ""
  USE LF_PCON KEY 2 SELECT SOTTOCONTO!=""
  INPUT DESCR F30_DIFARR_D
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Sottoconto" GRUPPO
  COPY OUTPUT F30_DIFARR_S 
  CHECKTYPE REQUIRED 
  ADD RUN cg0 -0
END

ENDMASK