351 lines
7.3 KiB
Plaintext
Executable File
351 lines
7.3 KiB
Plaintext
Executable File
#include "cg4600.h"
|
|
|
|
PAGE "" -1 -1 76 20
|
|
|
|
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 "
|
|
HELP "Codice causale che genera il movimento di chiusura"
|
|
USE LF_CAUSALI KEY 1 SELECT MOVAP="C"
|
|
FLAGS "UZ"
|
|
DISPLAY "Codice" CODCAUS
|
|
DISPLAY "Descrizione @50" DESCR
|
|
OUTPUT F_CHIUSURA CODCAUS
|
|
INPUT CODCAUS F_CHIUSURA
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
STRING F_APERTURA 3
|
|
BEGIN
|
|
PROMPT 2 5 "Codice causale apertura "
|
|
HELP "Codice causale che genera il movimento di apertura"
|
|
USE LF_CAUSALI KEY 1 SELECT MOVAP="A"
|
|
FLAGS "UZ"
|
|
COPY DISPLAY F_CHIUSURA
|
|
OUTPUT F_APERTURA CODCAUS
|
|
INPUT CODCAUS F_APERTURA
|
|
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 "Anno" 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 "Anno non presente in tabella esercizi"
|
|
FLAGS "GRZD"
|
|
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"
|
|
END
|
|
|
|
|
|
GROUPBOX DLG_NULL 60 10
|
|
BEGIN
|
|
PROMPT 2 7 "Codici 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!=""
|
|
CHECKTYPE REQUIRED
|
|
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
|
|
CHECKTYPE REQUIRED
|
|
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
|
|
CHECKTYPE REQUIRED
|
|
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
|
|
CHECKTYPE REQUIRED
|
|
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
|
|
CHECKTYPE REQUIRED
|
|
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
|
|
CHECKTYPE REQUIRED
|
|
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!="")
|
|
CHECKTYPE REQUIRED
|
|
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
|
|
CHECKTYPE REQUIRED
|
|
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!="")
|
|
CHECKTYPE REQUIRED
|
|
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
|
|
CHECKTYPE REQUIRED
|
|
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!="")
|
|
CHECKTYPE REQUIRED
|
|
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
|
|
CHECKTYPE REQUIRED
|
|
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!="")
|
|
CHECKTYPE REQUIRED
|
|
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
|
|
CHECKTYPE REQUIRED
|
|
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
|
|
|
|
BUTTON DLG_OK 9 2
|
|
BEGIN
|
|
PROMPT -12 -1 ""
|
|
END
|
|
|
|
BUTTON DLG_QUIT 9 2
|
|
BEGIN
|
|
PROMPT -22 -1 ""
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|