root/campo-sirio
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Corretta formattazione

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@180 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
nik 1994-09-07 15:54:22 +00:00
parent 998f9e637d
commit 94b567c923
5 changed files with 4017 additions and 4017 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3636
cg/cg3200.cpp
View File

File diff suppressed because it is too large Load Diff

1122
cg/cg3200a.uml
View File

File diff suppressed because it is too large Load Diff

2656
cg/cg4600.cpp
View File

File diff suppressed because it is too large Load Diff

68
cg/cg4600.h
View File

@ -1,34 +1,34 @@
#ifndef __CG4600_H
#define __CG4600_H
#define F_CODDITTA 101
#define F_RAGSOC 102
#define F_CHIUSURA 103
#define F_APERTURA 104
#define F_DATAC 105
#define F_DATAAP 106
#define F_BILCHG 107
#define F_BILCHC 108
#define F_BILCHS 109
#define F_PROPERG 110
#define F_PROPERC 111
#define F_PROPERS 112
#define F_BILAPG 113
#define F_BILAPC 114
#define F_BILAPS 115
#define F_UTILPG 116
#define F_UTILPC 117
#define F_UTILPS 118
#define F_PERDPG 119
#define F_PERDPC 120
#define F_PERDPS 121
#define F_UTILEG 122
#define F_UTILEC 123
#define F_UTILES 124
#define F_PERDEG 125
#define F_PERDEC 126
#define F_PERDES 127
#define F_ANNO 128
#define F_ANNOCH 129
#endif // __CG4600_H
#ifndef __CG4600_H
#define __CG4600_H
#define F_CODDITTA 101
#define F_RAGSOC 102
#define F_CHIUSURA 103
#define F_APERTURA 104
#define F_DATAC 105
#define F_DATAAP 106
#define F_BILCHG 107
#define F_BILCHC 108
#define F_BILCHS 109
#define F_PROPERG 110
#define F_PROPERC 111
#define F_PROPERS 112
#define F_BILAPG 113
#define F_BILAPC 114
#define F_BILAPS 115
#define F_UTILPG 116
#define F_UTILPC 117
#define F_UTILPS 118
#define F_PERDPG 119
#define F_PERDPC 120
#define F_PERDPS 121
#define F_UTILEG 122
#define F_UTILEC 123
#define F_UTILES 124
#define F_PERDEG 125
#define F_PERDEC 126
#define F_PERDES 127
#define F_ANNO 128
#define F_ANNOCH 129
#endif // __CG4600_H

552
cg/cg4600a.uml
View File

@ -1,58 +1,58 @@
#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
#include "cg4600.h"
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
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 "
COPY USE F_CHIUSURA
COPY DISPLAY F_CHIUSURA
OUTPUT F_APERTURA CODCAUS
INPUT CODCAUS F_APERTURA
END
DATE F_DATAC
BEGIN
PROMPT 36 4 "Data/Anno chiusura "
END
DATE F_DATAAP
BEGIN
PROMPT 36 5 "Data/Anno apertura "
WARNING "Inserire una data non inferiore alla data di chiusura"
VALIDATE DATE_CMP_FUNC >= F_DATAC
END
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 "
USE LF_CAUSALI KEY 1
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 "
COPY USE F_CHIUSURA
COPY DISPLAY F_CHIUSURA
OUTPUT F_APERTURA CODCAUS
INPUT CODCAUS F_APERTURA
END
DATE F_DATAC
BEGIN
PROMPT 36 4 "Data/Anno chiusura "
END
DATE F_DATAAP
BEGIN
PROMPT 36 5 "Data/Anno apertura "
WARNING "Inserire una data non inferiore alla data di chiusura"
VALIDATE DATE_CMP_FUNC >= F_DATAC
END
NUMBER F_ANNOCH 4
BEGIN
@ -60,252 +60,252 @@ BEGIN
FLAGS "D"
END
NUMBER F_ANNO 4
BEGIN
PROMPT 69 5 ""
FLAGS "D"
END
GROUPBOX DLG_NULL 60 10
BEGIN
PROMPT 2 7 "Codici sottoconto"
END
NUMBER F_BILCHG 3
BEGIN
PROMPT 3 9 "Bilancio di chiusura "
NUMBER F_ANNO 4
BEGIN
PROMPT 69 5 ""
FLAGS "D"
END
GROUPBOX DLG_NULL 60 10
BEGIN
PROMPT 2 7 "Codici sottoconto"
END
NUMBER F_BILCHG 3
BEGIN
PROMPT 3 9 "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 ""
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 ""
COPY ALL F_BILCHG
CHECKTYPE REQUIRED
END
NUMBER F_BILCHS 6
BEGIN
PROMPT 51 9 ""
CHECKTYPE REQUIRED
END
NUMBER F_BILCHS 6
BEGIN
PROMPT 51 9 ""
COPY ALL F_BILCHG
CHECKTYPE REQUIRED
END
NUMBER F_PROPERG 3
BEGIN
PROMPT 3 10 "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 ""
CHECKTYPE REQUIRED
END
NUMBER F_PROPERG 3
BEGIN
PROMPT 3 10 "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 ""
COPY ALL F_PROPERC
CHECKTYPE REQUIRED
END
NUMBER F_BILAPG 3
BEGIN
PROMPT 3 11 "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 ""
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 ""
COPY ALL F_BILAPC
CHECKTYPE REQUIRED
END
NUMBER F_UTILPG 3
BEGIN
PROMPT 3 12 "Utile d'esercizio c/to patrim. "
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 ""
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 ""
COPY ALL F_PROPERC
CHECKTYPE REQUIRED
END
NUMBER F_BILAPG 3
BEGIN
PROMPT 3 11 "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 ""
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 ""
COPY ALL F_BILAPC
CHECKTYPE REQUIRED
END
NUMBER F_UTILPG 3
BEGIN
PROMPT 3 12 "Utile d'esercizio c/to patrim. "
USE LF_PCON KEY 1 SELECT (SOTTOCONTO!="") && ((INDBIL="1")||(INDBIL="2")||(INDBIL="5"))
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 ""
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 ""
COPY USE F_UTILPG
CHECKTYPE REQUIRED
CHECKTYPE REQUIRED
COPY DISPLAY F_BILCHG
COPY OUTPUT F_UTILPG
COPY INPUT F_UTILPG
END
NUMBER F_UTILPS 6
BEGIN
PROMPT 51 12 ""
END
NUMBER F_UTILPS 6
BEGIN
PROMPT 51 12 ""
COPY ALL F_UTILPC
CHECKTYPE REQUIRED
END
NUMBER F_PERDPG 3
BEGIN
PROMPT 3 13 "Perdita d'esercizio c/to patr. "
USE LF_PCON KEY 1 SELECT (SOTTOCONTO!="") && ((INDBIL="1")||(INDBIL="2")||(INDBIL="5"))
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 ""
CHECKTYPE REQUIRED
END
NUMBER F_PERDPG 3
BEGIN
PROMPT 3 13 "Perdita d'esercizio c/to patr. "
USE LF_PCON KEY 1 SELECT (SOTTOCONTO!="") && ((INDBIL="1")||(INDBIL="2")||(INDBIL="5"))
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 ""
COPY USE F_PERDPG
CHECKTYPE REQUIRED
CHECKTYPE REQUIRED
COPY DISPLAY F_BILCHG
COPY OUTPUT F_PERDPG
COPY INPUT F_PERDPG
END
NUMBER F_PERDPS 6
BEGIN
END
NUMBER F_PERDPS 6
BEGIN
PROMPT 51 13 ""
COPY ALL F_PERDPC
CHECKTYPE REQUIRED
END
NUMBER F_UTILEG 3
BEGIN
PROMPT 3 14 "Utile d'esercizio c/to econom. "
USE LF_PCON KEY 1 SELECT (SOTTOCONTO!="") && ((INDBIL="3")||(INDBIL="4"))
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 ""
CHECKTYPE REQUIRED
END
NUMBER F_UTILEG 3
BEGIN
PROMPT 3 14 "Utile d'esercizio c/to econom. "
USE LF_PCON KEY 1 SELECT (SOTTOCONTO!="") && ((INDBIL="3")||(INDBIL="4"))
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 ""
COPY USE F_UTILEG
CHECKTYPE REQUIRED
CHECKTYPE REQUIRED
COPY DISPLAY F_BILCHG
COPY OUTPUT F_UTILEG
COPY INPUT F_UTILEG
END
NUMBER F_UTILES 6
BEGIN
PROMPT 51 14 ""
END
NUMBER F_UTILES 6
BEGIN
PROMPT 51 14 ""
COPY ALL F_UTILEC
CHECKTYPE REQUIRED
END
NUMBER F_PERDEG 3
BEGIN
PROMPT 3 15 "Perdita d'esercizio c/to econ. "
USE LF_PCON KEY 1 SELECT (SOTTOCONTO!="") && ( (INDBIL="3")||(INDBIL="4") )
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 ""
CHECKTYPE REQUIRED
END
NUMBER F_PERDEG 3
BEGIN
PROMPT 3 15 "Perdita d'esercizio c/to econ. "
USE LF_PCON KEY 1 SELECT (SOTTOCONTO!="") && ( (INDBIL="3")||(INDBIL="4") )
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 ""
COPY USE F_PERDEG
CHECKTYPE REQUIRED
CHECKTYPE REQUIRED
COPY DISPLAY F_BILCHG
COPY OUTPUT F_PERDEG
COPY INPUT F_PERDEG
END
NUMBER F_PERDES 6
BEGIN
PROMPT 51 15 ""
END
NUMBER F_PERDES 6
BEGIN
PROMPT 51 15 ""
COPY ALL F_PERDEC
CHECKTYPE REQUIRED
END
BUTTON DLG_OK 9 2
BEGIN
PROMPT -12 -1 ""
END
BUTTON DLG_CANCEL 9 2
BEGIN
PROMPT -22 -1 ""
END
ENDPAGE
ENDMASK
CHECKTYPE REQUIRED
END
BUTTON DLG_OK 9 2
BEGIN
PROMPT -12 -1 ""
END
BUTTON DLG_CANCEL 9 2
BEGIN
PROMPT -22 -1 ""
END
ENDPAGE
ENDMASK