#include "cg4600.h"

TOOLBAR "topbar" 0 0 0 2
#include <stdbar.h>
ENDPAGE

PAGE "Apertura/Chiusura conti" -1 -1 76 19

NUMBER F_CODDITTA 5
BEGIN
  PROMPT 2 1 "Ditta                "
  FLAGS "FRD"
  USE LF_NDITTE KEY 1  
  CHECKTYPE REQUIRED
  INPUT CODDITTA F_CODDITTA
  DISPLAY "Codice" CODDITTA
  DISPLAY "Ragione sociale @50" RAGSOC
  OUTPUT F_CODDITTA CODDITTA 
  OUTPUT F_RAGSOC RAGSOC
END


STRING F_RAGSOC 50
BEGIN
  PROMPT 2 2 "Ragione sociale      "
  FLAGS "D"
END

STRING F_CHIUSURA 3
BEGIN  
  PROMPT 2 4 "Codice causale chiusura "
  USE LF_CAUSALI KEY 1 SELECT MOVAP="C"
  INPUT  CODCAUS F_CHIUSURA
  DISPLAY "Codice" CODCAUS
  DISPLAY "Descrizione @50" DESCR
  OUTPUT F_CHIUSURA CODCAUS
  CHECKTYPE REQUIRED  
  FLAGS "UZ"
END

STRING F_APERTURA 3
BEGIN  
  PROMPT 2 5 "Codice causale apertura "
  USE LF_CAUSALI KEY 1 SELECT MOVAP="A"
  FLAGS "UZ"
  INPUT  CODCAUS F_APERTURA
  DISPLAY "Codice" CODCAUS
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_APERTURA CODCAUS
  CHECKTYPE REQUIRED 
END

DATE F_DATAC
BEGIN
  PROMPT 36 4 "Data/Anno chiusura "
  HELP "Data in cui effettuare il movimento di chiusura"
END 

DATE F_DATAAP
BEGIN
  PROMPT 36 5 "Data/Anno apertura "
  HELP "Data in cui effettuare il movimento di apertura"
  WARNING "Inserire una data non inferiore alla data di chiusura"
  VALIDATE DATE_CMP_FUNC >= F_DATAC 
END 

NUMBER F_ANNOCH 4
BEGIN
  PROMPT 69 4 ""
  USE ESC
  INPUT CODTAB F_ANNOCH
  DISPLAY "Codice" CODTAB
  DISPLAY "Inizio Es.@12" D0
  DISPLAY "Fine Es.@12" D1
  DISPLAY "Scarico@12" D2
  OUTPUT F_ANNOCH CODTAB
  OUTPUT F_DATAC D1
  CHECKTYPE REQUIRED
  WARNING "Codice non presente in tabella esercizi"
  FLAGS "GRZD"
  ADD RUN cg0 -5 esc
END

NUMBER F_ANNO 4
BEGIN
  PROMPT 69 5 ""   
  COPY USE F_ANNOCH
  INPUT CODTAB F_ANNO
  COPY DISPLAY F_ANNOCH
  OUTPUT F_ANNO CODTAB
  OUTPUT F_DATAAP D0
  CHECKTYPE REQUIRED
  WARNING "Anno non presente in tabella esercizi"
  FLAGS "GRZD"
  ADD RUN cg0 -5 esc
END


GROUPBOX DLG_NULL 60 10
BEGIN 
  PROMPT 2 7 "@bCodici sottoconto"
END

NUMBER F_BILCHG 3
BEGIN
  PROMPT 3 9 "Bilancio di chiusura              "
  HELP "Codice conto di riepilogo del bilancio di chiusura"
  USE LF_PCON KEY 1 SELECT SOTTOCONTO!=""
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto"  CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  DISPLAY "Descrizione @50" DESCR
  OUTPUT F_BILCHG GRUPPO
  OUTPUT F_BILCHC CONTO
  OUTPUT F_BILCHS SOTTOCONTO
  INPUT GRUPPO F_BILCHG 
  INPUT CONTO  F_BILCHC
  INPUT SOTTOCONTO F_BILCHS
END

NUMBER F_BILCHC 3
BEGIN
  PROMPT 44 9 ""
  HELP "Codice conto di riepilogo del bilancio di chiusura"
  COPY ALL F_BILCHG
END

NUMBER F_BILCHS 6
BEGIN
  PROMPT 51 9 ""
  HELP "Codice conto di riepilogo del bilancio di chiusura"
  COPY ALL F_BILCHG
  CHECKTYPE REQUIRED
END
 
NUMBER F_PROPERG 3
BEGIN
  PROMPT 3 10 "Profitti e perdite                "
  HELP "Codice conto di riepilogo del Profitti e perdite"
  COPY USE F_BILCHG
  COPY DISPLAY F_BILCHG
  OUTPUT F_PROPERG GRUPPO
  OUTPUT F_PROPERC CONTO
  OUTPUT F_PROPERS SOTTOCONTO
  INPUT GRUPPO F_PROPERG 
  INPUT CONTO  F_PROPERC
  INPUT SOTTOCONTO F_PROPERS
END

NUMBER F_PROPERC 3
BEGIN
  PROMPT 44 10 ""
  HELP "Codice conto di riepilogo del Profitti e perdite"
  COPY USE F_BILCHG
  COPY DISPLAY F_BILCHG
  COPY OUTPUT F_PROPERG
  COPY INPUT F_PROPERG
END

NUMBER F_PROPERS 6
BEGIN
  PROMPT 51 10 ""
  HELP "Codice conto di riepilogo del Profitti e perdite"
  COPY ALL F_PROPERC
  CHECKTYPE REQUIRED
END     

NUMBER F_BILAPG 3
BEGIN
  PROMPT 3 11 "Bilancio di apertura              "
  HELP "Codice conto di riepilogo del Bilancio di apertura"
  COPY USE F_BILCHG
  COPY DISPLAY F_BILCHG
  OUTPUT F_BILAPG GRUPPO
  OUTPUT F_BILAPC CONTO
  OUTPUT F_BILAPS SOTTOCONTO
  INPUT GRUPPO F_BILAPG 
  INPUT CONTO  F_BILAPC
  INPUT SOTTOCONTO F_BILAPS
END

NUMBER F_BILAPC 3
BEGIN
  PROMPT 44 11 ""
  HELP "Codice conto di riepilogo del Bilancio di apertura"
  COPY USE F_BILCHG
  COPY DISPLAY F_BILCHG
  COPY OUTPUT F_BILAPG
  COPY INPUT  F_BILAPG
END

NUMBER F_BILAPS 6
BEGIN
  PROMPT 51 11 ""
  HELP "Codice conto di riepilogo del Bilancio di apertura"
  COPY ALL F_BILAPC
  CHECKTYPE REQUIRED
END

NUMBER F_UTILPG 3
BEGIN
  PROMPT 3 12 "Utile d'esercizio c/to patrim.    "
  HELP "Codice conto patrimoniale in cui ripilogare l'utile d'esercizio"
  USE LF_PCON KEY 1 SELECT (SOTTOCONTO!="")
  COPY DISPLAY F_BILCHG
  OUTPUT F_UTILPG GRUPPO
  OUTPUT F_UTILPC CONTO
  OUTPUT F_UTILPS SOTTOCONTO
  INPUT GRUPPO F_UTILPG 
  INPUT CONTO  F_UTILPC
  INPUT SOTTOCONTO F_UTILPS
END

NUMBER F_UTILPC 3
BEGIN
  PROMPT 44 12 ""
  HELP "Codice conto patrimoniale in cui ripilogare l'utile d'esercizio"
  COPY USE F_UTILPG
  COPY DISPLAY F_BILCHG
  COPY OUTPUT F_UTILPG
  COPY INPUT F_UTILPG
END
                             
NUMBER F_UTILPS 6
BEGIN
  PROMPT 51 12 ""
  HELP "Codice conto patrimoniale in cui ripilogare l'utile d'esercizio"
  COPY ALL F_UTILPC
  CHECKTYPE REQUIRED
END

NUMBER F_PERDPG 3
BEGIN
  PROMPT 3 13 "Perdita d'esercizio c/to patr.    "
  HELP "Codice conto patrimoniale in cui ripilogare la perdita d'esercizio"
  USE LF_PCON KEY 1 SELECT (SOTTOCONTO!="")
  COPY DISPLAY F_BILCHG
  OUTPUT F_PERDPG GRUPPO
  OUTPUT F_PERDPC CONTO
  OUTPUT F_PERDPS SOTTOCONTO
  INPUT GRUPPO F_PERDPG 
  INPUT CONTO  F_PERDPC
  INPUT SOTTOCONTO F_PERDPS
END

NUMBER F_PERDPC 3
BEGIN
  PROMPT 44 13 ""
  HELP "Codice conto patrimoniale in cui ripilogare la perdita d'esercizio"
  COPY USE F_PERDPG
  COPY DISPLAY F_BILCHG
  COPY OUTPUT F_PERDPG
  COPY INPUT F_PERDPG
END

NUMBER F_PERDPS 6
BEGIN
  PROMPT 51 13 ""
  HELP "Codice conto patrimoniale in cui ripilogare la perdita d'esercizio"
  COPY ALL F_PERDPC
  CHECKTYPE REQUIRED
END

NUMBER F_UTILEG 3
BEGIN
  PROMPT 3 14 "Utile d'esercizio c/to econom.    "
  HELP "Codice conto economico in cui ripilogare l'utile d'esercizio"
  USE LF_PCON KEY 1 SELECT (SOTTOCONTO!="")
  COPY DISPLAY F_BILCHG
  OUTPUT F_UTILEG GRUPPO
  OUTPUT F_UTILEC CONTO
  OUTPUT F_UTILES SOTTOCONTO
  INPUT GRUPPO F_UTILEG 
  INPUT CONTO  F_UTILEC
  INPUT SOTTOCONTO F_UTILES
END

NUMBER F_UTILEC 3
BEGIN
  PROMPT 44 14 ""
  HELP "Codice conto economico in cui ripilogare l'utile d'esercizio"
  COPY USE F_UTILEG
  COPY DISPLAY F_BILCHG
  COPY OUTPUT F_UTILEG
  COPY INPUT F_UTILEG
END

NUMBER F_UTILES 6
BEGIN
  PROMPT 51 14 ""
  HELP "Codice conto economico in cui ripilogare l'utile d'esercizio"
  COPY ALL F_UTILEC
  CHECKTYPE REQUIRED
END

NUMBER F_PERDEG 3
BEGIN
  PROMPT 3 15 "Perdita d'esercizio c/to econ.    "
  HELP "Codice conto economico in cui ripilogare la perdita d'esercizio"
  USE LF_PCON KEY 1 SELECT (SOTTOCONTO!="")
  COPY DISPLAY F_BILCHG
  OUTPUT F_PERDEG GRUPPO
  OUTPUT F_PERDEC CONTO
  OUTPUT F_PERDES SOTTOCONTO
  INPUT GRUPPO F_PERDEG 
  INPUT CONTO  F_PERDEC
  INPUT SOTTOCONTO F_PERDES
  
END

NUMBER F_PERDEC 3
BEGIN
  PROMPT 44 15 ""
  HELP "Codice conto economico in cui ripilogare la perdita d'esercizio"
  COPY USE F_PERDEG
  COPY DISPLAY F_BILCHG
  COPY OUTPUT F_PERDEG
  COPY INPUT F_PERDEG 
END

NUMBER F_PERDES 6
BEGIN
  PROMPT 51 15 ""
  HELP "Codice conto economico in cui ripilogare la perdita d'esercizio"
  COPY ALL F_PERDEC
  CHECKTYPE REQUIRED
END

ENDPAGE

ENDMASK