Corretta formattazione
git-svn-id: svn://10.65.10.50/trunk@180 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
nik
parent
998f9e637d
commit
94b567c923
3636
cg/cg3200.cpp
3636
cg/cg3200.cpp
File diff suppressed because it is too large
Load Diff
1122
cg/cg3200a.uml
1122
cg/cg3200a.uml
File diff suppressed because it is too large
Load Diff
2656
cg/cg4600.cpp
2656
cg/cg4600.cpp
File diff suppressed because it is too large
Load Diff
68
cg/cg4600.h
68
cg/cg4600.h
@ -1,34 +1,34 @@
|
|||||||
#ifndef __CG4600_H
|
#ifndef __CG4600_H
|
||||||
#define __CG4600_H
|
#define __CG4600_H
|
||||||
|
|
||||||
#define F_CODDITTA 101
|
#define F_CODDITTA 101
|
||||||
#define F_RAGSOC 102
|
#define F_RAGSOC 102
|
||||||
#define F_CHIUSURA 103
|
#define F_CHIUSURA 103
|
||||||
#define F_APERTURA 104
|
#define F_APERTURA 104
|
||||||
#define F_DATAC 105
|
#define F_DATAC 105
|
||||||
#define F_DATAAP 106
|
#define F_DATAAP 106
|
||||||
#define F_BILCHG 107
|
#define F_BILCHG 107
|
||||||
#define F_BILCHC 108
|
#define F_BILCHC 108
|
||||||
#define F_BILCHS 109
|
#define F_BILCHS 109
|
||||||
#define F_PROPERG 110
|
#define F_PROPERG 110
|
||||||
#define F_PROPERC 111
|
#define F_PROPERC 111
|
||||||
#define F_PROPERS 112
|
#define F_PROPERS 112
|
||||||
#define F_BILAPG 113
|
#define F_BILAPG 113
|
||||||
#define F_BILAPC 114
|
#define F_BILAPC 114
|
||||||
#define F_BILAPS 115
|
#define F_BILAPS 115
|
||||||
#define F_UTILPG 116
|
#define F_UTILPG 116
|
||||||
#define F_UTILPC 117
|
#define F_UTILPC 117
|
||||||
#define F_UTILPS 118
|
#define F_UTILPS 118
|
||||||
#define F_PERDPG 119
|
#define F_PERDPG 119
|
||||||
#define F_PERDPC 120
|
#define F_PERDPC 120
|
||||||
#define F_PERDPS 121
|
#define F_PERDPS 121
|
||||||
#define F_UTILEG 122
|
#define F_UTILEG 122
|
||||||
#define F_UTILEC 123
|
#define F_UTILEC 123
|
||||||
#define F_UTILES 124
|
#define F_UTILES 124
|
||||||
#define F_PERDEG 125
|
#define F_PERDEG 125
|
||||||
#define F_PERDEC 126
|
#define F_PERDEC 126
|
||||||
#define F_PERDES 127
|
#define F_PERDES 127
|
||||||
#define F_ANNO 128
|
#define F_ANNO 128
|
||||||
#define F_ANNOCH 129
|
#define F_ANNOCH 129
|
||||||
|
|
||||||
#endif // __CG4600_H
|
#endif // __CG4600_H
|
||||||
|
|||||||
552
cg/cg4600a.uml
552
cg/cg4600a.uml
@ -1,58 +1,58 @@
|
|||||||
#include "cg4600.h"
|
#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
|
PAGE "" -1 -1 76 20
|
||||||
BEGIN
|
|
||||||
PROMPT 2 2 "Ragione sociale "
|
NUMBER F_CODDITTA 5
|
||||||
FLAGS "D"
|
BEGIN
|
||||||
END
|
PROMPT 2 1 "Ditta "
|
||||||
|
FLAGS "FRD"
|
||||||
STRING F_CHIUSURA 3
|
USE LF_NDITTE KEY 1
|
||||||
BEGIN
|
CHECKTYPE REQUIRED
|
||||||
PROMPT 2 4 "Codice causale chiusura "
|
INPUT CODDITTA F_CODDITTA
|
||||||
USE LF_CAUSALI KEY 1
|
DISPLAY "Codice" CODDITTA
|
||||||
DISPLAY "Codice" CODCAUS
|
DISPLAY "Ragione sociale @50" RAGSOC
|
||||||
DISPLAY "Descrizione @50" DESCR
|
OUTPUT F_CODDITTA CODDITTA
|
||||||
OUTPUT F_CHIUSURA CODCAUS
|
OUTPUT F_RAGSOC RAGSOC
|
||||||
INPUT CODCAUS F_CHIUSURA
|
END
|
||||||
CHECKTYPE REQUIRED
|
|
||||||
END
|
|
||||||
|
STRING F_RAGSOC 50
|
||||||
STRING F_APERTURA 3
|
BEGIN
|
||||||
BEGIN
|
PROMPT 2 2 "Ragione sociale "
|
||||||
PROMPT 2 5 "Codice causale apertura "
|
FLAGS "D"
|
||||||
COPY USE F_CHIUSURA
|
END
|
||||||
COPY DISPLAY F_CHIUSURA
|
|
||||||
OUTPUT F_APERTURA CODCAUS
|
STRING F_CHIUSURA 3
|
||||||
INPUT CODCAUS F_APERTURA
|
BEGIN
|
||||||
END
|
PROMPT 2 4 "Codice causale chiusura "
|
||||||
|
USE LF_CAUSALI KEY 1
|
||||||
DATE F_DATAC
|
DISPLAY "Codice" CODCAUS
|
||||||
BEGIN
|
DISPLAY "Descrizione @50" DESCR
|
||||||
PROMPT 36 4 "Data/Anno chiusura "
|
OUTPUT F_CHIUSURA CODCAUS
|
||||||
END
|
INPUT CODCAUS F_CHIUSURA
|
||||||
|
CHECKTYPE REQUIRED
|
||||||
DATE F_DATAAP
|
END
|
||||||
BEGIN
|
|
||||||
PROMPT 36 5 "Data/Anno apertura "
|
STRING F_APERTURA 3
|
||||||
WARNING "Inserire una data non inferiore alla data di chiusura"
|
BEGIN
|
||||||
VALIDATE DATE_CMP_FUNC >= F_DATAC
|
PROMPT 2 5 "Codice causale apertura "
|
||||||
END
|
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
|
NUMBER F_ANNOCH 4
|
||||||
BEGIN
|
BEGIN
|
||||||
@ -60,252 +60,252 @@ BEGIN
|
|||||||
FLAGS "D"
|
FLAGS "D"
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMBER F_ANNO 4
|
NUMBER F_ANNO 4
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 69 5 ""
|
PROMPT 69 5 ""
|
||||||
FLAGS "D"
|
FLAGS "D"
|
||||||
END
|
END
|
||||||
|
|
||||||
|
|
||||||
GROUPBOX DLG_NULL 60 10
|
GROUPBOX DLG_NULL 60 10
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 7 "Codici sottoconto"
|
PROMPT 2 7 "Codici sottoconto"
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMBER F_BILCHG 3
|
NUMBER F_BILCHG 3
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 3 9 "Bilancio di chiusura "
|
PROMPT 3 9 "Bilancio di chiusura "
|
||||||
USE LF_PCON KEY 1 SELECT SOTTOCONTO!=""
|
USE LF_PCON KEY 1 SELECT SOTTOCONTO!=""
|
||||||
CHECKTYPE REQUIRED
|
CHECKTYPE REQUIRED
|
||||||
DISPLAY "Gruppo" GRUPPO
|
DISPLAY "Gruppo" GRUPPO
|
||||||
DISPLAY "Conto" CONTO
|
DISPLAY "Conto" CONTO
|
||||||
DISPLAY "Sottoconto" SOTTOCONTO
|
DISPLAY "Sottoconto" SOTTOCONTO
|
||||||
DISPLAY "Descrizione @50" DESCR
|
DISPLAY "Descrizione @50" DESCR
|
||||||
OUTPUT F_BILCHG GRUPPO
|
OUTPUT F_BILCHG GRUPPO
|
||||||
OUTPUT F_BILCHC CONTO
|
OUTPUT F_BILCHC CONTO
|
||||||
OUTPUT F_BILCHS SOTTOCONTO
|
OUTPUT F_BILCHS SOTTOCONTO
|
||||||
INPUT GRUPPO F_BILCHG
|
INPUT GRUPPO F_BILCHG
|
||||||
INPUT CONTO F_BILCHC
|
INPUT CONTO F_BILCHC
|
||||||
INPUT SOTTOCONTO F_BILCHS
|
INPUT SOTTOCONTO F_BILCHS
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMBER F_BILCHC 3
|
NUMBER F_BILCHC 3
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 44 9 ""
|
PROMPT 44 9 ""
|
||||||
COPY ALL F_BILCHG
|
COPY ALL F_BILCHG
|
||||||
CHECKTYPE REQUIRED
|
CHECKTYPE REQUIRED
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMBER F_BILCHS 6
|
NUMBER F_BILCHS 6
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 51 9 ""
|
PROMPT 51 9 ""
|
||||||
COPY ALL F_BILCHG
|
COPY ALL F_BILCHG
|
||||||
CHECKTYPE REQUIRED
|
CHECKTYPE REQUIRED
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMBER F_PROPERG 3
|
NUMBER F_PROPERG 3
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 3 10 "Profitti e perdite "
|
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 ""
|
|
||||||
COPY USE F_BILCHG
|
COPY USE F_BILCHG
|
||||||
CHECKTYPE REQUIRED
|
CHECKTYPE REQUIRED
|
||||||
COPY DISPLAY F_BILCHG
|
COPY DISPLAY F_BILCHG
|
||||||
COPY OUTPUT F_PROPERG
|
OUTPUT F_PROPERG GRUPPO
|
||||||
COPY INPUT F_PROPERG
|
OUTPUT F_PROPERC CONTO
|
||||||
END
|
OUTPUT F_PROPERS SOTTOCONTO
|
||||||
|
INPUT GRUPPO F_PROPERG
|
||||||
NUMBER F_PROPERS 6
|
INPUT CONTO F_PROPERC
|
||||||
BEGIN
|
INPUT SOTTOCONTO F_PROPERS
|
||||||
PROMPT 51 10 ""
|
END
|
||||||
COPY ALL F_PROPERC
|
|
||||||
CHECKTYPE REQUIRED
|
NUMBER F_PROPERC 3
|
||||||
END
|
BEGIN
|
||||||
|
PROMPT 44 10 ""
|
||||||
NUMBER F_BILAPG 3
|
COPY USE F_BILCHG
|
||||||
BEGIN
|
CHECKTYPE REQUIRED
|
||||||
PROMPT 3 11 "Bilancio di apertura "
|
COPY DISPLAY F_BILCHG
|
||||||
COPY USE F_BILCHG
|
COPY OUTPUT F_PROPERG
|
||||||
CHECKTYPE REQUIRED
|
COPY INPUT F_PROPERG
|
||||||
COPY DISPLAY F_BILCHG
|
END
|
||||||
OUTPUT F_BILAPG GRUPPO
|
|
||||||
OUTPUT F_BILAPC CONTO
|
NUMBER F_PROPERS 6
|
||||||
OUTPUT F_BILAPS SOTTOCONTO
|
BEGIN
|
||||||
INPUT GRUPPO F_BILAPG
|
PROMPT 51 10 ""
|
||||||
INPUT CONTO F_BILAPC
|
COPY ALL F_PROPERC
|
||||||
INPUT SOTTOCONTO F_BILAPS
|
CHECKTYPE REQUIRED
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMBER F_BILAPC 3
|
NUMBER F_BILAPG 3
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 44 11 ""
|
PROMPT 3 11 "Bilancio di apertura "
|
||||||
COPY USE F_BILCHG
|
COPY USE F_BILCHG
|
||||||
CHECKTYPE REQUIRED
|
CHECKTYPE REQUIRED
|
||||||
COPY DISPLAY F_BILCHG
|
COPY DISPLAY F_BILCHG
|
||||||
COPY OUTPUT F_BILAPG
|
OUTPUT F_BILAPG GRUPPO
|
||||||
COPY INPUT F_BILAPG
|
OUTPUT F_BILAPC CONTO
|
||||||
END
|
OUTPUT F_BILAPS SOTTOCONTO
|
||||||
|
INPUT GRUPPO F_BILAPG
|
||||||
NUMBER F_BILAPS 6
|
INPUT CONTO F_BILAPC
|
||||||
BEGIN
|
INPUT SOTTOCONTO F_BILAPS
|
||||||
PROMPT 51 11 ""
|
END
|
||||||
COPY ALL F_BILAPC
|
|
||||||
CHECKTYPE REQUIRED
|
NUMBER F_BILAPC 3
|
||||||
END
|
BEGIN
|
||||||
|
PROMPT 44 11 ""
|
||||||
NUMBER F_UTILPG 3
|
COPY USE F_BILCHG
|
||||||
BEGIN
|
CHECKTYPE REQUIRED
|
||||||
PROMPT 3 12 "Utile d'esercizio c/to patrim. "
|
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"))
|
USE LF_PCON KEY 1 SELECT (SOTTOCONTO!="") && ((INDBIL="1")||(INDBIL="2")||(INDBIL="5"))
|
||||||
CHECKTYPE REQUIRED
|
CHECKTYPE REQUIRED
|
||||||
COPY DISPLAY F_BILCHG
|
COPY DISPLAY F_BILCHG
|
||||||
OUTPUT F_UTILPG GRUPPO
|
OUTPUT F_UTILPG GRUPPO
|
||||||
OUTPUT F_UTILPC CONTO
|
OUTPUT F_UTILPC CONTO
|
||||||
OUTPUT F_UTILPS SOTTOCONTO
|
OUTPUT F_UTILPS SOTTOCONTO
|
||||||
INPUT GRUPPO F_UTILPG
|
INPUT GRUPPO F_UTILPG
|
||||||
INPUT CONTO F_UTILPC
|
INPUT CONTO F_UTILPC
|
||||||
INPUT SOTTOCONTO F_UTILPS
|
INPUT SOTTOCONTO F_UTILPS
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMBER F_UTILPC 3
|
NUMBER F_UTILPC 3
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 44 12 ""
|
PROMPT 44 12 ""
|
||||||
COPY USE F_UTILPG
|
COPY USE F_UTILPG
|
||||||
CHECKTYPE REQUIRED
|
CHECKTYPE REQUIRED
|
||||||
COPY DISPLAY F_BILCHG
|
COPY DISPLAY F_BILCHG
|
||||||
COPY OUTPUT F_UTILPG
|
COPY OUTPUT F_UTILPG
|
||||||
COPY INPUT F_UTILPG
|
COPY INPUT F_UTILPG
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMBER F_UTILPS 6
|
NUMBER F_UTILPS 6
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 51 12 ""
|
PROMPT 51 12 ""
|
||||||
COPY ALL F_UTILPC
|
COPY ALL F_UTILPC
|
||||||
CHECKTYPE REQUIRED
|
CHECKTYPE REQUIRED
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMBER F_PERDPG 3
|
NUMBER F_PERDPG 3
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 3 13 "Perdita d'esercizio c/to patr. "
|
PROMPT 3 13 "Perdita d'esercizio c/to patr. "
|
||||||
USE LF_PCON KEY 1 SELECT (SOTTOCONTO!="") && ((INDBIL="1")||(INDBIL="2")||(INDBIL="5"))
|
USE LF_PCON KEY 1 SELECT (SOTTOCONTO!="") && ((INDBIL="1")||(INDBIL="2")||(INDBIL="5"))
|
||||||
CHECKTYPE REQUIRED
|
CHECKTYPE REQUIRED
|
||||||
COPY DISPLAY F_BILCHG
|
COPY DISPLAY F_BILCHG
|
||||||
OUTPUT F_PERDPG GRUPPO
|
OUTPUT F_PERDPG GRUPPO
|
||||||
OUTPUT F_PERDPC CONTO
|
OUTPUT F_PERDPC CONTO
|
||||||
OUTPUT F_PERDPS SOTTOCONTO
|
OUTPUT F_PERDPS SOTTOCONTO
|
||||||
INPUT GRUPPO F_PERDPG
|
INPUT GRUPPO F_PERDPG
|
||||||
INPUT CONTO F_PERDPC
|
INPUT CONTO F_PERDPC
|
||||||
INPUT SOTTOCONTO F_PERDPS
|
INPUT SOTTOCONTO F_PERDPS
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMBER F_PERDPC 3
|
NUMBER F_PERDPC 3
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 44 13 ""
|
PROMPT 44 13 ""
|
||||||
COPY USE F_PERDPG
|
COPY USE F_PERDPG
|
||||||
CHECKTYPE REQUIRED
|
CHECKTYPE REQUIRED
|
||||||
COPY DISPLAY F_BILCHG
|
COPY DISPLAY F_BILCHG
|
||||||
COPY OUTPUT F_PERDPG
|
COPY OUTPUT F_PERDPG
|
||||||
COPY INPUT F_PERDPG
|
COPY INPUT F_PERDPG
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMBER F_PERDPS 6
|
NUMBER F_PERDPS 6
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 51 13 ""
|
PROMPT 51 13 ""
|
||||||
COPY ALL F_PERDPC
|
COPY ALL F_PERDPC
|
||||||
CHECKTYPE REQUIRED
|
CHECKTYPE REQUIRED
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMBER F_UTILEG 3
|
NUMBER F_UTILEG 3
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 3 14 "Utile d'esercizio c/to econom. "
|
PROMPT 3 14 "Utile d'esercizio c/to econom. "
|
||||||
USE LF_PCON KEY 1 SELECT (SOTTOCONTO!="") && ((INDBIL="3")||(INDBIL="4"))
|
USE LF_PCON KEY 1 SELECT (SOTTOCONTO!="") && ((INDBIL="3")||(INDBIL="4"))
|
||||||
CHECKTYPE REQUIRED
|
CHECKTYPE REQUIRED
|
||||||
COPY DISPLAY F_BILCHG
|
COPY DISPLAY F_BILCHG
|
||||||
OUTPUT F_UTILEG GRUPPO
|
OUTPUT F_UTILEG GRUPPO
|
||||||
OUTPUT F_UTILEC CONTO
|
OUTPUT F_UTILEC CONTO
|
||||||
OUTPUT F_UTILES SOTTOCONTO
|
OUTPUT F_UTILES SOTTOCONTO
|
||||||
INPUT GRUPPO F_UTILEG
|
INPUT GRUPPO F_UTILEG
|
||||||
INPUT CONTO F_UTILEC
|
INPUT CONTO F_UTILEC
|
||||||
INPUT SOTTOCONTO F_UTILES
|
INPUT SOTTOCONTO F_UTILES
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMBER F_UTILEC 3
|
NUMBER F_UTILEC 3
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 44 14 ""
|
PROMPT 44 14 ""
|
||||||
COPY USE F_UTILEG
|
COPY USE F_UTILEG
|
||||||
CHECKTYPE REQUIRED
|
CHECKTYPE REQUIRED
|
||||||
COPY DISPLAY F_BILCHG
|
COPY DISPLAY F_BILCHG
|
||||||
COPY OUTPUT F_UTILEG
|
COPY OUTPUT F_UTILEG
|
||||||
COPY INPUT F_UTILEG
|
COPY INPUT F_UTILEG
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMBER F_UTILES 6
|
NUMBER F_UTILES 6
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 51 14 ""
|
PROMPT 51 14 ""
|
||||||
COPY ALL F_UTILEC
|
COPY ALL F_UTILEC
|
||||||
CHECKTYPE REQUIRED
|
CHECKTYPE REQUIRED
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMBER F_PERDEG 3
|
NUMBER F_PERDEG 3
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 3 15 "Perdita d'esercizio c/to econ. "
|
PROMPT 3 15 "Perdita d'esercizio c/to econ. "
|
||||||
USE LF_PCON KEY 1 SELECT (SOTTOCONTO!="") && ( (INDBIL="3")||(INDBIL="4") )
|
USE LF_PCON KEY 1 SELECT (SOTTOCONTO!="") && ( (INDBIL="3")||(INDBIL="4") )
|
||||||
CHECKTYPE REQUIRED
|
CHECKTYPE REQUIRED
|
||||||
COPY DISPLAY F_BILCHG
|
COPY DISPLAY F_BILCHG
|
||||||
OUTPUT F_PERDEG GRUPPO
|
OUTPUT F_PERDEG GRUPPO
|
||||||
OUTPUT F_PERDEC CONTO
|
OUTPUT F_PERDEC CONTO
|
||||||
OUTPUT F_PERDES SOTTOCONTO
|
OUTPUT F_PERDES SOTTOCONTO
|
||||||
INPUT GRUPPO F_PERDEG
|
INPUT GRUPPO F_PERDEG
|
||||||
INPUT CONTO F_PERDEC
|
INPUT CONTO F_PERDEC
|
||||||
INPUT SOTTOCONTO F_PERDES
|
INPUT SOTTOCONTO F_PERDES
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMBER F_PERDEC 3
|
NUMBER F_PERDEC 3
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 44 15 ""
|
PROMPT 44 15 ""
|
||||||
COPY USE F_PERDEG
|
COPY USE F_PERDEG
|
||||||
CHECKTYPE REQUIRED
|
CHECKTYPE REQUIRED
|
||||||
COPY DISPLAY F_BILCHG
|
COPY DISPLAY F_BILCHG
|
||||||
COPY OUTPUT F_PERDEG
|
COPY OUTPUT F_PERDEG
|
||||||
COPY INPUT F_PERDEG
|
COPY INPUT F_PERDEG
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMBER F_PERDES 6
|
NUMBER F_PERDES 6
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 51 15 ""
|
PROMPT 51 15 ""
|
||||||
COPY ALL F_PERDEC
|
COPY ALL F_PERDEC
|
||||||
CHECKTYPE REQUIRED
|
CHECKTYPE REQUIRED
|
||||||
END
|
END
|
||||||
|
|
||||||
BUTTON DLG_OK 9 2
|
BUTTON DLG_OK 9 2
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT -12 -1 ""
|
PROMPT -12 -1 ""
|
||||||
END
|
END
|
||||||
|
|
||||||
BUTTON DLG_CANCEL 9 2
|
BUTTON DLG_CANCEL 9 2
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT -22 -1 ""
|
PROMPT -22 -1 ""
|
||||||
END
|
END
|
||||||
|
|
||||||
ENDPAGE
|
ENDPAGE
|
||||||
|
|
||||||
ENDMASK
|
ENDMASK
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|||||||
Loading…
x
Reference in New Issue
Block a user